COGN49 -- Distinta Conto Anticipo
Sorgente: cbl/cogn49.cbl | Tipo: Programma interattivo a griglia | Program-ID: COGN49
Menu:
Scopo
COGN49 gestisce le distinte di fatture presentate alla banca per l'anticipo (anticipi su fatture, Ri.Ba., SDD). Permette di creare nuove distinte, richiamare distinte esistenti, selezionare/deselezionare le fatture da includere, generare il documento contabile (prima nota) e stampare la distinta.
Interfaccia utente
Maschera (tab-maschera)
| Campo |
Tipo |
Descrizione |
tm-distinta |
9(06) |
Numero distinta (0 = nuova) |
tm-data |
9(08) |
Data partenza selezione scadenze |
tm-a-data |
9(08) |
Data fine selezione scadenze |
tm-data-cont |
9(08) |
Data contabile |
tm-data-valuta |
9(08) |
Data valuta |
tm-ban |
9(05) |
Codice banca presentazione |
tm-ban-des |
x(40) |
Descrizione banca |
tm-fido |
s9(12)v9(06) |
Fido disponibile |
tm-totale |
s9(12)v9(06) |
Totale distinta |
tm-tot-delta |
s9(12)v9(06) |
Variazione totale |
tm-desc-cont |
x(30) |
Descrizione contabile |
Griglia fatture
La griglia (max 100 elementi) mostra le fatture con scadenza nel periodo indicato:
| Colonna |
Descrizione |
| Cliente |
Codice e ragione sociale |
| Fattura |
Tipo, anno, numero, scadenza |
| Data scadenza |
Data di scadenza della rata |
| Importo |
Importo rata (modificabile) |
| Pagamento |
Tipo pagamento |
| Selezione |
Flag inclusione nella distinta |
Tasti funzione
| Tasto |
Funzione |
| Invio |
Modifica riga selezionata |
| F1 |
Configurazione (RNEWCONF) |
| F3 |
Conferma/salva distinta |
| F4 |
Cancella distinta / Visualizza immagine |
| F5 |
Genera documento contabile (prima nota) |
| F8 |
Aiuto / Ricerca (distinta, banca) / Calendario |
| F9 |
Stampa distinta |
| S-F4 |
Gestione colonne griglia (GRIDADMN) |
| Ctrl+E |
Elimina riga dalla griglia |
| Esc |
Uscita |
Logica di Elaborazione
Flusso principale
- Inizializzazione: controllo abilitazione, init program, lettura azienda, apertura file, configurazione (RNEWCONF)
- Accept testata: distinta, date, banca
- Controllo distinta (
x-controlla-tm-distinta / x-after-tm-distinta): se distinta esistente, la ricarica; se nuova, inizializza
- Apertura transito (
apri-cogtrans): apre il file di transito temporaneo (#$COGN49. + operatore)
- Caricamento fatture (
carica-fatture): legge le fatture con scadenza nel periodo indicato dal file fatture/scadenziario
- Caricamento griglia (
carica-tab): popola la griglia con le fatture trovate
- Accept griglia (
a-accept-grid): l'operatore puo' modificare importi, eliminare righe, aggiungere righe
- Conteggio totali (
conteggia-tot-cc): ricalcola il totale della distinta
- Salvataggio (F3): salva la distinta
- Generazione documento (F5): crea la prima nota in contabilita' tramite COGP41 + COGS77
- Stampa (F9): genera la stampa della distinta tramite WORDMDL / COGS54
Generazione documento contabile (F5)
Quando l'utente preme F5, il programma:
- Prepara i dati della prima nota (data contabile, data valuta, banca)
- Se configurato
tm-cfg-creo-prima-nota = "S", chiama COGP41 per creare la prima nota
- Se configurato
tm-cfg-una-sola-prima-nota, crea un'unica registrazione contabile per tutte le fatture
- Se configurato
tm-cfg-impongo-banca-su-fattura, aggiorna la banca sulla fattura originale
- Calcola i giorni di posticipo anticipo (
tm-cfg-gg-post-anticipo) e la percentuale di anticipo (tm-cfg-perc-anticipo)
- Chiama COGS77 per la registrazione
Stampa distinta (F9)
La stampa utilizza il motore WORDMDL (Word/modello) con i seguenti dati:
- Dati banca: ABI, CAB, descrizione
- Dati azienda: ragione sociale, indirizzo, C.F./P.IVA
- Per ogni fattura: cliente (nome, indirizzo, C.F./P.IVA), fattura (tipo/numero/data), importo, scadenza
- Totale distinta
Il modello di stampa e' configurabile tramite tm-cfg-modello-stampa.
File di transito COGTRANS
| Campo |
Tipo |
Descrizione |
trs-cli |
9(05) |
Codice cliente |
trs-fat |
x(20) |
Chiave fattura (tipo+anno+numero+scadenza) |
trs-prog |
9(04) |
Progressivo |
trs-data-doc |
9(08) |
Data documento |
trs-pag |
x(01) |
Tipo pagamento |
trs-data-sca |
9(08) |
Data scadenza |
trs-importo |
s9(12)v9(06) |
Importo |
trs-div |
x(02) |
Divisa |
trs-sel |
x(01) |
Flag selezione |
File e Tabelle
File acceduti
| File/Tabella |
Copybook |
Uso |
| FEURTAB |
cogfiles.cpy |
Tabella nomi file |
| COGTRANS |
(inline) |
Transito fatture (temporaneo, indicizzato) |
| FILEINP |
(inline) |
File input sequenziale |
| File da cogn49.select/fd |
cogn49.select, cogn49.fd |
Fatture, scadenziario, distinte, banche |
Programmi chiamati
| Programma |
Scopo |
| COGP41 |
Creazione prima nota contabile |
| COGS77 |
Registrazione contabile |
| COGS54 |
Utility stampa |
| COGS52W |
Accept data con calendario |
| COGU10W |
Utility divise/valute |
| COGU03W |
Utility formattazione |
| GRIDADMN |
Gestore griglia interattiva |
| WORDMDL |
Generazione documento da modello Word |
| COPIAF |
Copia file |
| ESTRXLS |
Esportazione Excel |
| DIALOGS |
Gestione dialoghi |
| WIN019 / WCA019 |
Finestre di selezione |
| WIN023 |
Ricerca banca |
| COGN49H |
Ricerca distinte esistenti |
| COGS25 |
Utility generiche |
| RNEWCONF |
Lettura configurazioni |
Copybook principali
Screen Designer (generati)
| Copybook |
Contenuto |
cogn49-01.scr |
Maschera (screen section) |
cogn49.select |
SELECT file |
cogn49.fd |
FD file |
cogn49.wrk |
Working storage |
cogn49.decla |
Declaratives |
cogn49.prc |
Procedure division generate |
Gestionale
| Copybook |
Contenuto |
cogazien.cpy |
Dati azienda |
capazien.cpy |
Dati azienda (consorzi) |
utilcoge77.cpy |
Interfaccia COGE77 (contabilita') |
utilp41.cpy |
Interfaccia COGP41 |
utilcogpa3.cpy |
Interfaccia COGPA3 |
utilwordmdl.cpy |
Interfaccia WORDMDL |
utilestrxls.cpy |
Interfaccia esportazione Excel |
utildlg.cpy |
Interfaccia DIALOGS |
utilncnf.cpy |
Interfaccia RNEWCONF |
cogconta.cpy |
Struttura piano dei conti |
opensave.def |
Definizione OpenSaveBox |
k-u10.cpy |
Costanti divise |
Configurazioni
| Campo |
Descrizione |
tm-cfg-merce-ricambio |
Codice merce ricambio (per personalizzazione macchine) |
tm-cfg-ope-modif-rep |
Flag modifica reparto |
tm-cfg-perc-anticipo |
Percentuale di anticipo (0-100) |
tm-cfg-gg-post-anticipo |
Giorni di posticipo anticipo |
tm-cfg-creo-prima-nota |
"S" = crea prima nota contabile |
tm-cfg-una-sola-prima-nota |
"S" = una sola prima nota per distinta |
tm-cfg-impongo-banca-su-fattura |
"S" = forza banca sulla fattura |
tm-cfg-modello-stampa |
Path del modello di stampa Word |
Note tecniche
- Il file di transito e' creato nella directory temporanea con nome
#$COGN49. + codice operatore
- Il programma gestisce il lock del file di transito: se un altro operatore sta usando la funzione, viene segnalato
- La variabile esterna
w-gg-posticipo viene usata per il calcolo della data valuta posticipata
- Il conteggio distinte (
ctr-distinte) traccia il numero di distinte generate nella sessione
- Massimo 100 fatture nella griglia (
k-max-ele-tab = 100)
Documentazione tecnica -- 2026-04-08