Vai al contenuto

COGE50 — Caricamento fatture in contabilita' (Co/Ge)

Sorgente: cbl/coge50.cbl | Tipo: Elaborazione batch con stampa | Program-ID: coge50

Menu: Magazzino > Uscite > Fatture Accompagnatorie > [Caric. Fatture in Co/Ge] ; Vendite > Fatturazione > [Caricam. Fatture in Co/Ge] ; Vendite > Note Accredito > [Caricamento in Co/Ge] ; Lab.Odont. > Fatturazione > [Caricamento in Co/ge]

Scopo

Carica in contabilita' generale i documenti di fatturazione (fatture o note di accredito) generando le relative registrazioni di prima nota. L'operatore seleziona il tipo documento, l'anno e l'intervallo di numeri fattura da contabilizzare; il programma scandisce l'archivio fatture (COGFATTU) e per ogni documento delega la creazione della registrazione di prima nota alla subroutine COGE51, aggiornando la fattura con il riferimento al documento di prima nota generato. Al termine produce una stampa di riepilogo dei conti movimentati con i totali dare/avere e una verifica di quadratura.

Il tipo di elaborazione (fatture o note accredito) e' pilotato dal parametro di menu wo-parametro (w-type = "N" per note accredito).

File e tabelle principali

File/Tabella Copybook Uso Note
FEURTAB cogfiles.cpy Input Parametri generali azienda (cogazien), az-ult-fat aggiornato a fine elaborazione
COGFATTU cogfattu.cpy (fat-rec) I-O Archivio fatture da contabilizzare. Chiave fat-tip/fat-ann/fat-num; fat-chia3 = fat-anno + fat-num-pno (numero documento di prima nota assegnato)
COGTABEL cogtabel.cpy (euta-rec) Input Contropartite spese/bolli CO/GE (tipo 16) e C/C (tipo 18); tipi documento IVA (tipo 68, euta-desctiva); esercizio contabile (tipo 66 -> conta-rec)
COGPNONC cogpnonc.cpy (pno-rec) Input Prima nota non contabilizzata generata da COGE51: rilettura per comporre la tabella di riepilogo (pno-con, pno-importo, pno-segno)
COGPNCON (inline pco-*) Input Piano dei conti: descrizione conto (pco-des), tipo anagrafica (pco-tipoanagr)
COGGEANA (inline ana-*) Input Anagrafica generale: ragione sociale (ana-nome) per l'intestazione riga di stampa
COGBABEL (inline euba-*, tabella temporanea da screen) Input Tabella tipi documento per causale (k-euta-tipo-fat): usata per popolare la combo tipi documento quando tm-cfg-doc-per-causale = "S"
flsta flsta.cpy Output File di stampa del riepilogo conti

Parametri di collegamento a COGE51: lnke51.cpy (lk-area) — contropartite spese/bolli, tipo NAC, dati partita. Copybook di supporto: wgrave, wnscr, wopenf, wstato, utils52, utils54, utilu10, utilncnf, utils60w2, cogconta, wtipidoc, utilw67, k-personal, k-tipi-cogtabel. Linkage: wcont (con e51-num-doc), wcont1. Variabile esterna ext-num-doc.

Flusso principale

  1. apri — inizializzazione, open-files, rd-azi, caricamento tipi documento (u-tipidoc); verifica del parametro tipo (w-type). Legge la configurazione (x99-conf) ed esplode le contropartite spese/bolli CO/GE e C/C da COGTABEL; legge l'anno contabile (tipo 66).
  2. a3 / preparazione — popola la combo dei tipi documento ammessi in base a w-type (per NAC i tipi nota accredito, altrimenti i tipi fattura da cogazien); se tm-cfg-doc-per-causale = "S" integra i tipi dalla tabella COGBABEL (add-tipo-doc-to-tab-sub-w-in, con deduplica).
  3. a4 / accept — richieste a video: tipo documento (a-tm-tipo, con F1 configurazione e F8 ricerca via WIN067), anno (a-tm-anno, che tramite cerco-nr-partenza/cerco-nr-arrivo propone gli estremi di numerazione leggendo COGFATTU), numero da (a-tm-da-numero) e numero a (a-tm-a-numero).
  4. a222 — richiesta di conferma della contabilizzazione; imposta dati-partenza/dati-arrivo.
  5. ela-00/ela-20 — scansione di COGFATTU nell'intervallo selezionato: per ogni fattura apre una finestra di appoggio e chiama COGE51 (creazione registrazione di prima nota), poi riscrive la fattura (rwr-cogfattu) con il riferimento al documento generato; se abilitato l'incasso contestuale (tm-cfg-c-incas = "S") chiama anche COGJ15.
  6. ela-20-loop — rilegge da COGPNONC i movimenti di prima nota appena creati per il documento e accumula, per conto (pno-con), i totali dare/avere nella tabella di riepilogo tabrie; controlla l'omogeneita' della divisa.
  7. ela-50/ela-65/ela-70 — stampa del riepilogo (intestazione, righe conto/descrizione/dare/avere via COGU10W, totali) tramite COGS54.
  8. ela-90 — aggiorna az-ult-fat con l'ultimo numero elaborato e riscrive i parametri azienda.
  9. fine / z-chiudi — chiusura file, cancellazione di COGE51/COGE53, uscita.

Sottoprogrammi chiamati

Programma Ruolo
COGE51 Creazione della registrazione di prima nota a partire dalla fattura (fat-rec, lk-area) — motore della contabilizzazione
COGJ15 Incasso contestuale della fattura (solo se tm-cfg-c-incas = "S")
COGS54 Gestione stampa del riepilogo conti
COGU10W Edit/formattazione degli importi dare/avere in divisa
WIN067 Finestra di ricerca/selezione tipo documento (F8)
COGS52 / COGS60W2 Servizi su date e combo tipi documento
RNEWCONF Lettura configurazioni (vedi sotto)
COGE53 Sottoprogramma di contabilizzazione (cancellato a fine elaborazione)

Configurazioni (RNEWCONF)

Paragrafo x99-conf, pacchetto "C", gruppo FATTCARICA (19 chiavi euta-c026-*) piu' una chiave del gruppo CONTABIL:

Gruppo Chiave Uso
FATTCARICA euta-c026-cg-spese / euta-c026-cg-bolli Codici contropartita CO/GE spese e bolli (tipo COGTABEL 16)
FATTCARICA euta-c026-cc-spese / euta-c026-cc-bolli Codici contropartita C/C spese e bolli (tipo COGTABEL 18)
FATTCARICA euta-c026-to-spese / euta-c026-to-bolli Tipi operazione spese/bolli
FATTCARICA euta-c026-c-incas / euta-c026-cc-incas Flag e conto per incasso contestuale
FATTCARICA euta-c026-cg-omaggio / euta-c026-cc-omaggio / euta-c026-to-omaggio Contropartite omaggi
FATTCARICA euta-c026-pag-cont Pagamento contanti
FATTCARICA euta-c026-cnt-ci-pro / euta-c026-cnt-ci-stu / euta-c026-perc-stu Parametri conto interessi / studi
FATTCARICA euta-c026-ric-sta / euta-c026-c-r-ita / euta-c026-c-r-int / euta-c026-c-r-ext Parametri ricevute/ritenute
CONTABIL tipi-doc-per-causale Se "S", i tipi documento della combo sono derivati dalla tabella COGBABEL per causale

Le prime 8 chiavi vengono lette in tm-cfg-* e usate per esplodere in tab-conti le contropartite spese/bolli.

Note

  • Il vero motore della contabilizzazione e' COGE51: COGE50 gestisce interfaccia, selezione intervallo, ciclo sulle fatture, stampa di riepilogo e aggiornamento del riferimento p.nota sulla fattura.
  • ext-num-doc (variabile external) e e51-num-doc (in user-area) contengono il numero del documento di prima nota generato da COGE51, usato per rileggere i movimenti da COGPNONC (compreso l'eventuale documento di giroconto per la chiusura omaggi).
  • La proposta automatica dei numeri di partenza/arrivo (TASK-1637) scandisce COGFATTU a ritroso per individuare l'ultima fattura gia' contabilizzata (fat-num-pno valorizzato) e le fatture ancora da contabilizzare.
  • La tabella di riepilogo tabrie e' dimensionata fino a 1500 conti (occurs 0 to 1500 depending on n-t).
  • COGBABEL e' una tabella gestita dai file di Screen Designer (non un copybook di cpy/): i suoi campi euba-* e i verbi st-cogbabel-notmin/rdnxt-cogbabel provengono dalle inclusioni generate.