Vai al contenuto

COGP55 — Stampa tabella Tipi Pagamento

Sorgente: cbl/cogp55.cbl | Tipo: stampa | Program-ID: cogp55

Menu: Contabilita' > Archivi & Tabelle > Tabelle > Stampe > Tipi Pagamento

Scopo

Stampa l'elenco dei codici tipo pagamento definiti nella tabella COGTABEL con euta-tipo = 14 (condizioni di pagamento). Per ogni codice riporta descrizione, numero rate, giorni prima rata, fine mese, rate successive, valuta fissa, periodicita' (mensile, bimestrale, trimestrale, quadrimestrale, semestrale, annuale), sconto/ricarico e flag IVA / ritenuta d'acconto. E' una semplice lista di servizio della tabella pagamenti, con selezione della destinazione di stampa e impaginazione con intestazione ripetuta.

File e tabelle principali

File/Tabella Copybook Uso
COGTABEL (feurtab) cogfiles.cpy Tabella pagamenti: scansione euta-tipo 14; campi euta-cod, euta-pg-des, euta-pg-n-rate, euta-pg-gg-1r, euta-pg-fm-1r, euta-pg-al-1r, euta-pg-gg-nr, euta-pg-vf, euta-pg-period, euta-pg-sco, euta-pg-fl-iva, euta-pg-fl-rd
Stampante flsta.fd / flsta.cpy File di stampa (riga)
Anagrafica azienda cogazien.cpy Ragione sociale (az-int) per l'intestazione

Copybook di working/servizio: wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, utils54.cpy (destinazione stampa COGS54).

Flusso principale

  1. inizio — inizializzazioni, open-files, lettura azienda.
  2. a002 — chiamata a COGS54 per la scelta della destinazione di stampa (larghezza 132 caratteri); ESC/F2 esce, F3 prosegue.
  3. a4 — data di sistema; start su COGTABEL per euta-tipo 14 (st-cogtabel-notmin + rdnxt-cogtabel); se assente segnala "NESSUN PAGAMENTO".
  4. ela-10-loop — per ogni record tipo 14: se necessario stampa l'intestazione (intesta), formatta la riga di dettaglio (rdet1) traducendo la periodicita' (euta-pg-period) in testo esteso, quindi stampa (stampa); avanza al record successivo finche' il tipo resta 14.
  5. intesta — stampa intestazione pagina (ragione sociale, titolo "CODICI TIPI PAGAMENTO", data, numero pagina) con gestione salto pagina e conferma stampa (cs1-print).
  6. fine-sta / fine / z-chiudi — chiusura stampa con s54-after-print, richiamo finale COGS54, chiusura COGTABEL ed uscita.

Sottoprogrammi chiamati

Programma Ruolo
COGS54 Selezione destinazione di stampa e finalizzazione del report

Note

  • Il record tabella e' letto tramite euta-cod ridefinito in wutacod (wutacod1 pic x(3)): in stampa viene riportato solo il codice numerico a 3 posizioni (r1cod).
  • La riga di intestazione riporta la ragione sociale azienda (az-int) e la data di sistema; il numero righe per pagina e' pilotato da s54-stm-lin restituito da COGS54 (ctrri > s54-stm-lin - 10 → nuova intestazione).
  • Programma di sola stampa (subroutine mmsubw.cpy), senza griglia ne' aggiornamento dati: gestisce esclusivamente la lettura sequenziale della tabella e la formattazione del report.
  • Presenza di PERFORM ... THRU (intesta thru ex-intesta, stampa thru ex-stampa) e GO TO di navigazione: forme legacy della conversione.