Vai al contenuto

COGV84 -- Fatture x Cliente (Visualizzazione e Stampa)

Sorgente: cbl/cogv84.cbl | Tipo: Programma interattivo con griglia | Program-ID: COGV84

Menu:

  • Contabilita' > Fatture Fornitori > Visualizzazioni > Fatture x Fornitore
  • Vendite > Fatturazione > Visualizzazioni > Fatture x Cliente
  • Vendite > Fatturazione > Visualizzazioni > Prefatture
  • Vendite > Fatturazione > Ricevute Fiscali > Visualizza
  • Lab.Odont. > Fatturazione > Visualizzazioni > Fatture x Cliente

Scopo

Visualizzazione e stampa delle fatture/ricevute/prefatture per cliente o fornitore. Presenta una maschera di ricerca con griglia interattiva. Supporta archiviazione ottica documenti, visualizzazione scadenze, ristampa singola fattura e stampa elenco fatture su modello.

File di transito fatturazione (tran-v60)

Il paragrafo x-lancio-fattura prepara il file di transito per la fatturazione (tran-v60, copybook tran-v60.cpy) e lancia cogv60no. Il nome del file viene composto in trs-v60-name come <ext-tmp-dir><ext-os-slash>#$COGV60_<ext-pid>.<wo-oper> (vedi sezione Storico, TASK-5374): il PID di processo (ext-pid) garantisce un nome univoco per sessione ed evita collisioni e falsi errori "La Funzione e' gia' in uso da questo operatore!!" tra operatori che fatturano in concorrenza. Se l'apertura open output tran-v60 fallisce (stato <> "00") il programma mostra comunque il messaggio e abbandona il lancio.

Integrazione Assist (build 2026/0426, esteso 2026/06)

Quando il modulo Assist 2.0 e' attivo (az-assist = "S") e il documento e' un DDT (tes-tipob = "D"), il programma risale dalla testata raccolta (cogracco, nel loop di caricamento dati) all'intervento Assist collegato per recuperare responsabile e tipo attivita' della chiamata:

  1. Inizializza acim-rec, imposta acim-tip = 'D' e la chiave del DDT (acim-tes-mag = tes-mag, acim-tes-ann = tes-anno, acim-tes-tip = tes-tipob, acim-tes-num = tes-bolla3) e cerca in ASNINDMG con st-asnindmg-notmin-chia2 + rdnxt-asnindmg
  2. Verifica la rottura chiave (mag/anno/tipob/bolla3) e che acim-tip = 'D' e acim-tipo-ddt not = spaces
  3. Se ok, legge la testata intervento ASNINTES con rd-asnintes (acit-id = acim-id-intervento)
  4. Da ASNINTES risale alla chiamata ASNCHTES con rd-asnchtes (acht-id = acit-id-chiamata)
  5. Se la lettura ha successo: se w-resp e' ancora spaces estrae acht-responsabile in w-resp; se w-tip-att e' ancora spaces estrae acht-tip-att in w-tip-att

Al momento di costruire la riga griglia (paragrafo di build rm2601):

  • se w-resp not = spaces lo trasferisce in t-gor-r-resp e azzera w-resp;
  • se w-tip-att not = spaces lo trasferisce in t-gor-r-tip-att, poi legge la tabella tipi attivita' ASNTPATT (atpa-cod = w-tip-att, rd-asntpatt) e ne riporta la descrizione (atpa-des) in t-gor-r-tip-att-des, infine azzera w-tip-att.

La riga griglia propaga poi t-gor-r-resp -> trs-resp e t-gor-r-tip-att -> trs-tip-att nel record di stampa/transito. Il paragrafo x-lancio-fattura esegue la stessa catena ASNINDMG/ASNINTES/ASNCHTES per popolare trs-v60-id-chiamata e trs-v60-chiamata-cli sul transito di fatturazione (tran-v60); responsabile e tipo attivita' arrivano invece alla stampa del documento tramite i campi di griglia t-gor-r-resp/t-gor-r-tip-att.

File aggiuntivi per Assist

File Copybook Uso
ASNINDMG asnindmg.fd, .k02 Indice documenti Assist (legame DDT → intervento), accesso per chiave 2
ASNINTES asnintes.fd Testata interventi Assist (chiave acit-id)
ASNCHTES asnchtes.fd Testata chiamate Assist (chiave acht-id), campi acht-responsabile, acht-tip-att
ASNTPATT asntpatt.fd Tabella tipi attivita' (chiave atpa-cod), descrizione atpa-des

Variabili coinvolte

Variabile Definizione Descrizione
w-resp pic x(03) Working storage: responsabile recuperato da ASNCHTES; azzerato dopo il travaso in griglia
w-tip-att pic x(02) Working storage: tipo attivita' recuperato da ASNCHTES; azzerato dopo il travaso in griglia
t-gor-r-resp (riga griglia) Campo Responsabile nella riga griglia
t-gor-r-tip-att (riga griglia) Codice tipo attivita' nella riga griglia
t-gor-r-tip-att-des (riga griglia) Descrizione tipo attivita' (atpa-des da ASNTPATT) nella riga griglia
trs-resp pic x(03) Campo Responsabile nel record di transito/stampa tran-v60
trs-tip-att pic x(02) Campo Tipo attivita' nel record di transito/stampa tran-v60

Storico Modifiche

Build / Data Descrizione
2026/0426 Integrazione Assist: recupero responsabile chiamata da ASNCHTES per DDT collegati a interventi. Nuovi campi w-resp, t-gor-r-resp (griglia) e trs-resp (stampa)
2026-06-24 TASK-5374: in x-lancio-fattura il nome del file di transito tran-v60 ora include il PID di processo (#$COGV60_<ext-pid>.<wo-oper>), per evitare collisioni e falsi messaggi "La Funzione e' gia' in uso da questo operatore!!" tra operatori concorrenti. Documentati trs-resp pic x(03), la condizione acim-tipo-ddt not = spaces e la catena t-gor-r-resp -> trs-resp. Il campo trs-v60-name e' stato ampliato da pic x(70) a pic x(170) per contenere il nome file con path e PID
2026/06 Estensione integrazione Assist al tipo attivita': dalla chiamata ASNCHTES viene estratto anche acht-tip-att (in w-tip-att); in griglia si valorizzano t-gor-r-tip-att e la descrizione t-gor-r-tip-att-des (letta da ASNTPATT, atpa-des); nuovo campo di transito/stampa trs-tip-att pic x(02) alimentato da t-gor-r-tip-att. Nuova tabella di lettura ASNTPATT (atpa-cod/atpa-des)