Vai al contenuto

COGV82 — Visualizzazione legame Bolle/Fatture

Sorgente: cbl/cogv82.cbl | Tipo: Programma interattivo a griglia | Program-ID: cogv82

Menu: Contabilita' > Fatture Fornitori > Visualizzazioni [Legame Bolle/Fatture] ; Magazzino > Entrate > Visualizzazioni [Bolle/Fatture] ; Vendite > Fatturazione > Visualizzazioni [Legame Bolla/Fattura] ; Lab.Odont. > Fatturazione > Visualizzazioni

Scopo

Il programma permette di consultare a video il legame tra bolle/DDT e fatture: partendo da una bolla oppure da una fattura, ricostruisce e mostra in una griglia tutte le righe di merce e di contropartita raccordate a quel documento. Serve agli uffici contabilita', magazzino e vendite per verificare cosa e' stato fatturato di una bolla o quali bolle compongono una fattura.

Il tipo anagrafica (Cliente o Fornitore) e' determinato dal parametro di chiamata (wo-parametro): la stessa maschera si adatta al ciclo attivo (fatture clienti) o passivo (fatture fornitori), cambiando titolo, tipi documento ammessi e conti/divise coerenti.

L'importo puo' essere visualizzato in divisa conto oppure in divisa documento (radio tm-divisa); gli importi sono editati tramite la routine di formattazione valutaria COGU10W.

File e tabelle principali

File/Tabella Copybook Uso
COGRACCO cogracco.cpy / .fd / .k02 Raccordo bolle/fatture: chiave per fattura (rac-ann/rac-tipo/rac-nfat) e chiave secondaria .k02 per bolla (rac-mag/rac-anno1/rac-tipo1/rac-bolla). Fornisce anno, cliente/fornitore, totali fattura/IVA, data cambio
COGTESBO cogtesbo.cpy / .fd Testata bolla: recupero dati testata (tes-mag, tes-anno, tes-tipob, tes-bolla3, tes-causale, data)
COGMOMAG cogmomag.cpy / .fd Movimenti di magazzino della bolla: righe merce (gruppo/sotto/codice, quantita', prezzo, valore, entrata/uscita)
COGCONTR cogcontr.cpy / .fd Righe di contropartita/spese della bolla (descrizione, quantita', prezzo, valore)
COGGEANA coggeana.cpy / .fd Anagrafica: ragione sociale del cliente/fornitore
COGTABEL cogtabel.cpy Tabella generica; tipo 15 (causali documento) per il flag euro/valuta (euta-cb-fl-eu)
COGTRANS dichiarato inline nel sorgente File di transito temporaneo che raccoglie le righe da mostrare in griglia. Chiave trs-chia1 (trs-num progressivo)

Il nome fisico di COGTRANS e' costruito in w-trs-name come <tmp-dir>/#$COGV82.<operatore>.

Flusso principale

  1. apri — inizializzazione, apertura file, lettura tipi documento (u-tipidoc), lettura divisa conto (get-divisa-conto), determinazione tipo anagrafica da wo-parametro, preparazione griglia (z-prepara-tm-grid / z-gridadmn-prepara via GRIDADMN).
  2. a4 — svuota la griglia e ricrea COGTRANS (output poi i-o).
  3. a-tm-ricerca — scelta tipo ricerca "B" (per bolla) o "F" (per fattura); i campi bolla/fattura vengono resi visibili/nascosti in z-cambia-tm-bol-mag / z-cambia-tm-fat-tip.
  4. Sezioni di accept: a-tm-divisa, e — a seconda della ricerca — i campi bolla (a-tm-bol-mag, a-tm-bol-ann, a-tm-bol-tip, a-tm-bol-num) oppure fattura (a-tm-fat-tip, a-tm-fat-ann, a-tm-fat-num), ciascuno con relativo x-controlla-....
  5. ctrl-bolla / ctrl-fattura — validano l'esistenza del legame su COGRACCO e ricavano la chiave di fattura (tm-ft-*).
  6. a-inizio-dati — dopo conferma (F3) recupera testata su COGRACCO, ragione sociale, totali fattura, e li mostra formattati.
  7. carica-dati — cuore dell'elaborazione: scorre COGRACCO per la fattura, per ogni bolla legge COGTESBO, poi accumula in COGTRANS le righe da COGMOMAG (carica-dati-mag-loop) e da COGCONTR (carica-dati-contr-loop), applicando divisa e segno (entrata/uscita) e formattazione importi via COGU10W.
  8. vis-tabella / vis-tabella-disp — visualizza COGTRANS nella griglia paginata (routine di spaginamento fscrol2/utilpggr), con gestione PgUp/PgDn e stampa griglia (S+F4 via GRIDADMN).
  9. fine / z-chiudi — chiude i file, esegue delete file cogtrans e chiude la finestra.

Sottoprogrammi chiamati

Programma Ruolo
COGU10W Formattazione/editing importi in valuta (prezzo, valore, totali)
COGS52W Editing/formattazione date (data documento)
GRIDADMN Gestore della griglia (preparazione colonne, add-record, svuota, stampa)
RNEWCONF Lettura/configurazione parametri (invocato da x99-confi con ncnf-pac-gen = "C")
DIALOGS (indirettamente tramite le routine comuni di messaggistica)

Configurazioni (RNEWCONF)

Il tasto F1 (x99-confi) apre la configurazione con ncnf-ope = "Modifica" e ncnf-pac-gen = "C" (pacchetto contabilita'), consentendo di modificare i parametri di gruppo relativi alla funzione. Non vengono lette chiavi specifiche hard-coded nel sorgente: la selezione avviene interattivamente.

Note

  • COGTRANS e' un transito di lavoro per operatore, ricreato in output ad ogni ciclo e cancellato in chiusura (delete file cogtrans). Le righe merce e contropartita vengono numerate progressivamente in trs-num; in caso di collisione di chiave l'inserimento riprova incrementando il progressivo.
  • Il segno della quantita'/valore dipende dal confronto tra mag-entrusc e il flag euro della causale (w-euta-cb-fl-eu da COGTABEL tipo 15): le uscite vengono portate a negativo.
  • La colonna grd-solo-rac mostra lo stato di raccordo della riga ("Chiusa" per solo-rac = "S", "No accert." per "X").
  • La griglia e' paginata (list-box paged): la lettura su COGTRANS usa le routine standard di scroll fscrol2/utilpggr con i punti di aggancio rn-start, sn-read, rd-controlli-fill, ecc.
  • Codice legacy con PERFORM ... THRU e numerosi GO TO: non usare come modello per nuove scritture.