Vai al contenuto

COGP77 — Stampa Estratto Conto Fatture Emesse

Sorgente: cbl/cogp77.cbl | Tipo: stampa (con maschera di selezione) | Program-ID: cogp77

Menu: Vendite > Fatturazione > Stampe > Estratto Conto Fatture Emesse

Scopo

Stampa, per ciascuna fattura emessa nell'intervallo richiesto, un promemoria scadenze in forma di lettera al cliente: intestazione azienda, dati anagrafici del cliente, testo di cortesia e l'elenco delle scadenze (rate) della fattura con numero, data fattura, data scadenza e importo, piu' il totale. Ogni fattura genera una pagina distinta (salto pagina finale).

L'operatore seleziona il tipo fattura (tramite combo che raccoglie i tipi documento abilitati dell'azienda), l'anno e l'intervallo di numeri fattura (da/a). Il calcolo delle rate e scadenze e' delegato alla subroutine COGS09, gli importi sono formattati (con divisa) da COGU10W.

File e tabelle principali

File/Tabella Copybook Uso
COGFATTU (feurtab) cogfiles.cpy Testate fatture: scansione per chiave fat-chia1 (fat-tip, fat-ann, fat-num); campi fat-cli, fat-pag, fat-damov*, fat-importo, fat-currency
COGGEANA cogfiles.cpy Anagrafica clienti (ana-rec): nome, indirizzo, cap/loca/prov
COGMAGAZ cogfiles.cpy Magazzino/sede (magz-rec, tipo M cod 1) per l'intestazione mittente
COGTABEL cogfiles.cpy Tabella tipi documento (euta-tipo 68) per descrizioni tipi fattura abilitati
Stampante flsta.fd / flsta.cpy File di stampa (riga)
Anagrafica azienda cogazien.cpy Ragione sociale (az-int) e tipi documento abilitati (az-tipo-batch, az-tipo-imm, az-tipo-ci, az-tipo-cid, az-tipo-gior, az-tipo-extra, az-tipo-sps, az-tipo-sps-imm)

Copybook di working/servizio: utils52.cpy (data/anno COGS52), utils54.cpy (destinazione stampa COGS54), k-u10.cpy/utilu10.cpy (divisa/edit COGU10), UTILS09.CPY (rate pagamento COGS09), utils60w2.cpy (combo COGS60W2), GetDCont.cpy.

Flusso principale

  1. apri — inizializzazioni, lettura azienda, open-files; ricava la divisa conto tramite COGU10W (op GetDivisaConto); attiva F3 conferma e F8 calendario.
  2. Caricamento della combo tipi fattura: per ognuno dei tipi documento abilitati dell'azienda (az-tipo-*) legge la descrizione da COGTABEL tipo 68 e la aggiunge alla tabella opzioni; aggiunge la voce fissa "CO" = Corrispettivi; elimina i duplicati (blocco tab-opt-tm-da-tip1-B) e passa la lista a COGS60W2 (z-s60-tm-da-tip1).
  3. a4 — reset maschera, tipo default = prima voce della combo.
  4. a-tm-tipo — accept del tipo fattura (combo COGS60W2); validazione x-controlla-tm-tipo verso i tipi abilitati.
  5. a-tm-anno — accept dell'anno fattura (COGS52, F8 calendario); obbligatorio.
  6. a-tm-da-num / a-tm-a-num — accept dell'intervallo numeri fattura (da/a).
  7. a-richiesta-conferma — conferma (x-imposta-conferma) e chiamata a COGS54 per la destinazione di stampa (85 caratteri).
  8. ela-00 / ela-20 — legge la sede da COGMAGAZ (M/1); start su COGFATTU da fat-chia1 e scansione sequenziale finche' fat-chia1 <= dati-arrivo. Per ogni fattura: legge il cliente (COGGEANA), stampa intestazione mittente, dati cliente, testo di cortesia e la tabella scadenze.
  9. Calcolo scadenze: COGS09 restituisce le rate (s09-imp-pag, s09-pag-aa/mm/gg) a partire da codice pagamento (fat-pag), cliente, data e totale fattura; ogni rata non nulla viene stampata (rd9), gli importi editati da COGU10W (z-u10).
  10. ela-50 / fine — finalizzazione stampa (s54-after-print, COGS54), chiusura file (z-close-files), chiusura window ed uscita.

Sottoprogrammi chiamati

Programma Ruolo
COGS60W2 Combo di selezione del tipo fattura
COGS52 (via z-s52-tm-anno) Editing/validazione anno
COGS54 Selezione destinazione di stampa e finalizzazione report
COGS09 Calcolo rate/scadenze della fattura dal codice pagamento
COGU10W Recupero divisa conto ed editing importi in valuta

Note

  • La combo dei tipi fattura e' costruita dinamicamente dai parametri azienda az-tipo-* (tipi documento abilitati) piu' la voce fissa "CO" (Corrispettivi); la deduplica evita voci ripetute quando piu' parametri coincidono.
  • L'intervallo di stampa e' delimitato dalla chiave composta dati-arrivo (tipo + anno + numero di arrivo): la scansione si ferma quando fat-chia1 > dati-arrivo.
  • Gli importi delle rate provengono dagli elementi di fat-importo (39 = IVA, 40 = totale fattura) passati a COGS09; la stampa e' in Euro (rd7-div fisso a "Divisa: Euro").
  • Il documento riporta la dicitura "DOCUMENTO ESENTE BOLLO-RIFERIMENTO FATTURE ASSOGGETTATE AD IVA".
  • z-99-exception-form ignora l'evento ntf-resized (uscita anticipata con exit paragraph) per non interrompere l'accept sul ridimensionamento finestra.
  • Il sorgente usa PERFORM ... THRU (cstato thru ex-cstato) e GO TO di navigazione/scansione (ela-20, ela-50): forme legacy della conversione.