Vai al contenuto

COGE44 - Scadenzario Clienti/Fornitori per Data

Scopo

Visualizzazione a griglia dello scadenzario (partite aperte) di clienti o fornitori, ordinato per data di scadenza/valuta e nominativo, con selezione per intervallo di date, tipo/condizione di pagamento, tipologia cliente, tipo documento e tipo fatturazione. Il programma estrae la Prima Nota non contabilizzata (cogwpno) tramite la subroutine COGS77, la raggruppa in archivi temporanei (cogtrans2/cogtrans/cogtrans3), calcola i saldi per partita e i totali per data, e presenta la lista con possibilita' di stampa, esportazione Excel e apertura del pannello Incassi/Pagamenti. Il tipo (C/F) e' determinato dal parametro di chiamata wo-parametro.

Contabilita' > Clienti a Part.Aperte > Scadenzario x Data

File e tabelle

File Tipo Descrizione
feurtab (cogfiles.cpy) Indicizzato multi-tracciato File di contabilita' (cogtabel, coggeana, cogappog, cogfattu, cogritac, cogftets, coganap2, nutariba, nutsriba, prntoper, ...)
cogwpno Indicizzato temporaneo Prima Nota di lavoro non contabilizzata prodotta da COGS77 (record wpn-rec); nome in nf-name-pr
cogtrans2 Indicizzato temporaneo Estrazione grezza per partita. Chiave trs2-chia1; chiave alternata trs2-chia2 con trs2-dasca (data scadenza aa/mm/gg) in testa, per l'ordinamento per data. Nome in w-trs2-name
cogtrans Indicizzato temporaneo Righe formattate per la griglia (record trs-rec con saldi, ritenute, stato invio SDI, agente). Chiave trs-chia1. Nome in w-trs-name
cogtrans3 Indicizzato temporaneo Totali per nominativo (trs3-saldoa/trs3-saldod). Chiave trs3-chia1 (codice, sigla). Nome in w-trs3-name
flsta (flsta.cpy) Indicizzato File di supporto stampa

Copybook

  • File/select (screen designer, in cbl/screens/): coge44.select, coge44.fd, coge44.wrk, coge44.decla, coge44-01.scr. Anche feurtab.fd, cogwpno.fd/cogwpno.cpy, flsta.fd/flsta.cpy, cogfiles.cpy.
  • Working-storage standard: wgrave, wnscr, wopenf, wstato, cogazien, capazien, cogconta, cogpnonc, wgrid.
  • Utilita': k-u10, utilgdad (griglia GRIDADMN), utils51, utilf10, utils52, utils54, utils77, utilu10, utilu22, utilw62, utilw67, utily68, utilncnf, utilu06, utilwordmdl, utilcogpa3, utilcogsc1.
  • Linkage: wcont (con ridefinizioni user-area2/user-area3), wcont1.

CALL

Programma Descrizione
COGS77 Estrazione delle partite aperte a valuta/data in cogwpno (funzione R-VAL-DATA, filtro provvisori/valuta)
COGSC1 / RNEWCONF Lettura configurazioni (area report attiva per il programma; tipi-doc-per-causale)
COGS52W Editing/formattazione delle date (calendario)
COGS51 Gestione stato sospeso/nota sulla partita (F7) e lettura descrizione sospeso
COGU22 (utilu22) Combo tipo/condizione pagamento (u22-accept/u22-popola)
COGF10 Aiuto tipologia cliente (tm-app-tip-stt)
WIN067 Aiuto tipo documento fattura (tm-fat-tip)
COGY68 Aiuto tipo fatturazione (tm-tipo-fat)
WIN062 Finestra ausiliaria
GRIDADMN Gestione della list-box paged (prepara/add/modify/svuota, esporta Excel)
COGU10W Visualizzazione importi/cambi valuta
COGU06 Utilita' comune
COGE40 Pannello Incassi/Pagamenti attivato da F1 sulla riga selezionata
COGPA3 Ricerca modello di stampa "area report" (Word/XML) per COGE44
WORDMDL Motore di stampa su modello Word/XML (Apri-XML, tag, chiudi)

Logica di elaborazione

  1. apri/main: init programma, rd-azi, open-files, lettura configurazioni (x99-confi, COGSC1, RNEWCONF area-report). Il parametro wo-parametro determina dep-tipo = "C" o "F" (default "C").
  2. Apertura nutariba/nutsriba (Ri.Ba.); gestione assenza (sw-rb = "NO RB"). Costruzione dei nomi dei file temporanei (w-trs2-name, w-trs-name, w-trs3-name, nf-name-pr).
  3. Per le personalizzazioni consorzi (az-consorzi = "S") lettura codice agente dell'operatore (prntoper) per limitare la visibilita' ai propri clienti (CAP-PC).
  4. Creazione pulsanti custom (bitmap): Incasso/Pagamento (F1), Visualizza Immagine (F4). Costruzione controlli e griglia (z-prepara-tm-grid).
  5. Paragrafi a-tm-*: accept dei parametri (tipo divisa, data da/a, tipo pagamento, tipo documento, esclusione Ri.Ba. con data limite, tipologia cliente, tipo fatturazione) con relativi controlli.
  6. a-inizio-dati: conferma; apertura in output/i-o dei tre file temporanei (con controllo "funzione gia' in uso").
  7. acce-24a: per ogni codice conto per partite aperte (cogtabel tipo 45, filtrato per tipo), chiamata COGS77 per popolare cogwpno; scansione di cogwpno (una-20b):
  8. filtri per tipo documento, tipo fatturazione (cogtabel tipo FL), tipologia cliente (cogappog), tipo pagamento (verifica-tipo-pagamento);
  9. lettura anagrafica (coggeana) e scrittura del record grezzo in cogtrans2 (una-20c), con importo in divisa conto o documento.
  10. ela-10/ela-20: rilettura di cogtrans2 per chiave trs2-chia2 (ordine per data scadenza); per ogni partita (par-00):
  11. lettura sospesi (leggi-cogdesor/COGS51), rottura per data (rot-data),
  12. detrazione ritenute d'acconto non a pagare (cogritac) e calcolo netto a pagare (x-calc-ritac),
  13. stato invio fattura elettronica (cogftets, chiave chia6/key-doc-area) con decodifica in trs-stato-invio, conto anticipo, agente,
  14. scrittura in cogtrans (par-01) e totalizzazione (totalizza → cogtrans3).
  15. ela-100/ela-110: aggiunta righe "Totale del Periodo" da cogtrans3.
  16. a35-0/vis-tabella: riempimento e accept della griglia paged; da qui F1 (COGE40), F7 (sospesi/COGS51), S-F4 (config griglia), S-F5 (esporta Excel), F9 (st-stampa).
  17. st-stampa: stampa classica via COGS54 oppure, se area-report-attivo = "S", stampa su modello Word/XML tramite COGPA3 + WORDMDL.
  18. fine/z-chiudi: chiusura e delete file dei temporanei, uscita.

Note tecniche

  • source-computer acu-cobol; la griglia e' una list-box paged gestita interamente da GRIDADMN con record di interscambio grid-record.
  • Il record trs-rec porta anche i campi per fattura elettronica (trs-stato-invio, trs-id-sdi, trs-data-ricezione), ritenute (trs-rit-acc-prev, trs-rit-acc-eff, trs-netto-a-pag) e agente (trs-agente), aggiunti nelle revisioni 2019/2023.
  • Il vettore w-tabella-sca/w-segnale mappa il progressivo scadenza alfanumerico su indice numerico (value-ind-num) per accumulare le ritenute per rata.
  • Filtri per "consorzi/CAP-PC": in sede l'operatore con codice agente vede solo i propri clienti.
  • Configurazioni RNEWCONF usate: tipi-doc-per-causale e la chiave sudddivisa per programma stampe/area-report-attivo.