COGC24 - Storno Fatture Da Ricevere/Emettere¶

Intestazione¶

Campo	Valore
Programma	COGC24
Titolo	Storno Fatture Da Ricevere / Da Emettere
Posizione menu	Contabilita' > Prima Nota > Scritture di rettifica > Storno Fatture Da Ricevere/Emettere

Scopo e logica generale¶

COGC24 e' un programma interattivo a due pagine (tab-control) per la generazione dei documenti di prima nota di storno delle fatture da ricevere e da emettere. La pagina 1 raccoglie i parametri di selezione; la pagina 2 mostra una griglia paginata dei documenti trovati, con possibilita' di selezione multipla e generazione/cancellazione degli storni.

Il programma usa un file di transito (t-tm-tab) per la gestione della griglia paginata con ordinamento e filtraggio.

Flusso principale¶

Inizializzazione (apri): controllo abilitazione, lettura azienda, apertura file, lettura configurazione RNEWCONF, configurazione tasti funzione e pulsanti custom, lettura esercizio contabile (COGTABEL tipo 66), caricamento impostazioni predefinite
Pagina 1 - Parametri:
a-tm-tip-ela: tipo elaborazione (combo tramite COGS60)
a-tm-da-data / a-tm-a-data: range date con calendario (COGS52)
a-tm-tip-bol: tipo bolle
F7 - Avvio ricerca (a-inizio-dati): validazione globale, passaggio alla pagina 2
Pagina 2 - Griglia (a-pagina-02 → a-inizio-elab → a-rileggi-transito → a-grid-ini → a-grid): creazione transito, ordinamento per data bolla + numero bolla, visualizzazione paginata
Operazioni da griglia:
Invio: toggle selezione riga (con controlli su stato stornato e fatturazione)
F2: selezione/deselezione di tutti i DDT (xf2-sel-tutti)
F3: gestione documento (a1-ges-doc)
F4: cancellazione documento prima nota di storno (cancella-doc)
F5: creazione documenti di storno (xf6-crea-doc)
F6: gestione prima nota storno tramite COGE77W
F7: visualizzazione prima nota storno tramite WIN053
F8: dettaglio bolla tramite WIN016 (send-w16)
Shift+F2: filiera documento tramite COGMA3
Chiusura (fine): chiusura file, eliminazione transito t-tm-tab

File e tabelle acceduti¶

File logico	Record	Modalita'	Uso
COGPNONC	pno-rec	I-O	Prima nota non contabilizzata (lettura dati e cancellazione storni)
COGPNCON	pco-rec	Input	Piano dei conti (verifica conti di configurazione)
COGGENER	gnr-rec	I-O	Tabella generica (aggiornamento riferimenti SF dopo cancellazione)
COGTABEL	euta-rec	Input	Tabelle di sistema (tipo 66: esercizio; tipo 65: tipo operazione storno fatture)
COGGEANA	ana-rec	Input	Anagrafica generale (fornitore/cliente)
FEURTAB	feurtab	Input	Tabella generica Eurosystem

File di transito¶

File	Uso
`t-tm-tab`	Transito principale griglia (creato, ordinato per data bolla + bolla, cancellato alla chiusura)

Copybook inclusi¶

Screen Designer¶

Copybook	Contenuto
`cogc24-01.scr`	Maschera principale (screen section)
`cogc24.select`	SELECT dei file
`cogc24.fd`	FD dei file
`cogc24.wrk`	Working storage maschera
`cogc24.tm`	Template campi tab-maschera
`cogc24.imppredf-wrk`	Working storage impostazioni predefinite
`cogc24.decla`	Declaratives
`cogc24.prc`	Paragrafi procedure division
`cogc24.imppredf`	Paragrafi impostazioni predefinite

Strutture dati¶

Copybook	Contenuto
`cogfiles.cpy`	FD feurtab
`cogazien.cpy`	Dati azienda
`cogconta.cpy` / `cogcont1.cpy`	Struttura conti
`k-u10.cpy`	Costanti COGU10
`k-tipi-cogtabel.cpy`	Costanti tipi COGTABEL
`k-personal.cpy`	Costanti personalizzazione
`wgrave.cpy` / `wnscr.cpy` / `wopenf.cpy` / `wstato.cpy`	Working storage comuni

Utility e interfacce¶

Copybook	Contenuto
`utilw53.cpy`	Interfaccia WIN053
`utils25.cpy`	Interfaccia date
`utils52.cpy`	Interfaccia COGS52 (calendario)
`utils87.cpy`	Interfaccia COGS87
`utilu10.cpy` / `utilu20.cpy`	Utility divisa/formattazione
`utilu78.cpy`	Interfaccia COGU78
`utilw16.cpy`	Interfaccia WIN016 (dettaglio bolla)
`utilcogma3.cpy`	Interfaccia COGMA3 (filiera)
`utilimppredf.cpy`	Impostazioni predefinite
`utilncnf.cpy`	Struttura parametri RNEWCONF
`utilgesdate.cpy`	Utility gestione date
`utilgesdebug.cpy`	Gestione debug
`utilcoge77.cpy`	Interfaccia COGE77W
`wgrid.cpy` / `utilgdad.cpy`	Gestione griglie
`wcont.cpy` / `wcont1.cpy` / `utilu30b.cpy`	Linkage section

Programmi chiamati (CALL)¶

Programma	Scopo
COGU10W	Formattazione/conversione importi, recupero divisa conto
COGU78	Formattazione custom importi
COGS87.COB	Utility stringhe
WIN053.COB	Visualizzazione documento prima nota di storno (F7)
COGMA3	Consultazione filiera documento (Shift+F2)
COGE77W.COB	Gestione documento prima nota di storno (F6)
GRIDADMN	Amministrazione griglie
RNEWCONF	Lettura configurazione
W$MENU	Gestione menu popup contestuale

Configurazione (RNEWCONF)¶

Il programma legge la configurazione tramite x99-confi. La struttura tab-config contiene i conti contabili necessari per la creazione dei documenti di storno:

Campo	Descrizione
`tm-cfg-fat-emett-*`	Conto fatture da emettere (mastro/conto/sconto)
`tm-cfg-nac-emett-*`	Conto note di accredito da emettere (mastro/conto/sconto)
`tm-cfg-to`	Tipo operazione per fatture da emettere
`tm-cfg-cto-fatt-daric-*`	Conto fatture da ricevere (mastro/conto/sconto)
`tm-cfg-cto-nacc-daric-*`	Conto note di accredito da ricevere (mastro/conto/sconto)
`tm-cfg-to-fatt-da-ricevere`	Tipo operazione per fatture da ricevere
`tm-cfg-cto-sopra-att-*`	Conto sopravvenienze attive (mastro/conto/sconto)
`tm-cfg-cto-sopra-pas-*`	Conto sopravvenienze passive (mastro/conto/sconto)
`tm-cfg-to-storno-fatture`	Tipo operazione storno fatture (COGTABEL tipo 65)

Logica di business¶

Struttura dati griglia (tab-maschera)¶

La griglia contiene fino a 900 righe (k-max-ele-tab). Per ogni riga: - tm-rif-bol (i): chiave bolla (mag + anno + tipo + numero) - tm-sel (i): flag selezione ("S" / spaces) - tm-tot-bol-ril (i): importo del documento - tm-fat-nac (i): flag presenza fattura/nota accredito (vuoto = non fatturato) - tm-pn-sto-ann (i) / tm-pn-sto-num (i): riferimento documento di storno gia' generato - tm-doc-pn-ann (i) / tm-doc-pn-num (i): riferimento documento di prima nota originale

Totali aggiornati in real-time: tri-totale (totale generale), tri-totale-sel (totale selezionato).

Selezione riga (Invio)¶

Toggle tm-sel(i): se "S" → spaces (sottrae tm-tot-bol-ril(i) da tri-totale-sel), altrimenti → "S" (somma). Blocchi: - se tm-pn-sto-num(i) <> 0: documento gia' stornato, non selezionabile - se tm-fat-nac(i) = spaces: non ancora fatturato, non selezionabile

Creazione storni (F5 - `xf6-crea-doc`)¶

Prima della creazione verifica l'esistenza nel piano dei conti di: sopravvenienze attive, sopravvenienze passive, tipo operazione storno fatture (COGTABEL tipo 65). Se un conto manca blocca l'elaborazione. Alla conferma richiama la routine xf6-crea-doc.

Cancellazione storno (F4 - `cancella-doc`)¶

Scansiona COGPNONC per anno/documento del documento di storno, cancella tutte le righe, poi aggiorna COGGENER azzerando i riferimenti.

Ordinamento griglia¶

Predefinito su data bolla (asc) + numero bolla (asc) tramite gor-col / gor-ord-tipo.