Vai al contenuto

COSO02 - Stampa Tabelle Soci

Funzione

Stampa riepilogativa delle voci della tabella soci (COGTABEL tipo 06), con parametri per conteggio quote suddivisi per zona altimetrica e sezione dedicata alle quote (codso1 = 50).

  • Contabilita' > Unione soci/clienti > Archivi & Tabelle > Tabelle > Stampe > Stampa Tabelle Soci
  • Contabilita' > Unione soci/clienti > Archivi & Tabelle > Stampe > Stampa Tabella Soci
  • Contabilita' > Unione soci/clienti > Tabella Soci

Tabelle e file principali

Tabella/File Descrizione Accesso
COGTABEL (feurtab) Tabelle generiche contabilita' Lettura sequenziale (tipo 06)
flsta File di stampa Scrittura

Copybook e sottoprogrammi

Elemento Tipo Ruolo
cogfiles.cpy COPY Descrizione record feurtab
coso02.select COPY SELECT dei file
coso02.fd COPY FD del programma
coso02.wrk COPY Working-storage
coso02.prc COPY Procedure finali
flsta.fd / flsta.cpy COPY File di stampa
utils54.cpy COPY Utility selezione stampante
COGS54 CALL Selezione periferica di stampa
wgrave / wnscr / wopenf / wstato / cogazien COPY Copybook standard

Logica principale

  1. Inizializzazione: apre i file, legge azienda corrente, carica lingua.
  2. Selezione stampante: chiama COGS54 per scegliere destinazione di stampa (132 caratteri).
  3. Stampa tabella: esegue st-cogtabel-notmin su tipo 06 e scorre con rdnxt-cogtabel.
  4. Per ogni record con euta-codso1 <> 50: stampa codice (codso1/codso2), descrizione, importi per pianura/montagna/collina/incolto (estratti da euta-descr -> wdati).
  5. Per record con euta-codso1 = 50 (quote): stampa quota fissa, flag coadiuvante (SI/NO), flag forfettario (SI/NO). Dati estratti da wquo-dati.
  6. Intestazione: stampa automatica a cambio pagina con ragione sociale, data, numero pagina.
  7. Fine: richiama COGS54 con s54-after-print = "S" per chiudere la stampa.

Note

  • Larghezza stampa: 132 caratteri (k-chr-stampa).
  • Il numero massimo righe per pagina e' calcolato dinamicamente: s54-stm-lin - 8.
  • Il programma usa PERFORM ... THRU (stile legacy) per la sezione di stampa.
  • I valori numerici in euta-descr vengono validati (NOT NUMERIC -> zero) prima della stampa.