COGF40 - Inserimento P.A. a Piu' Fornitori¶

Intestazione¶

Campo	Valore
Programma	COGF40
Titolo	Gestione Pagamenti per piu' banche
Posizione menu	Contabilita' > Fornit. a Part.Aperte > Inserimento a Piu' Fornitori

Scopo e logica generale¶

COGF40 e' un programma interattivo per la registrazione massiva di pagamenti a fornitori tramite partite aperte. L'operatore seleziona una contropartita bancaria, definisce importo totale, data movimento e data valuta, poi per ciascun fornitore visualizza e seleziona le partite da saldare. Al termine genera automaticamente un documento di prima nota contabile.

Il programma gestisce pagamenti parziali, abbuoni attivo/passivo, chiusure parziali di partita, ritenute d'acconto e contributi previdenziali. Supporta la gestione multi-esercizio (esercizio chiuso/aperto) e multi-divisa.

Flusso principale¶

Inizializzazione (apri): lettura parametri di chiamata (util-pagam), controllo abilitazione, lettura azienda (incluso supporto consorzi), apertura file, lettura configurazione RNEWCONF (x999-confi), lettura esercizio contabile (euta tipo 66), creazione file di transito operatore (cogtrans, cogwpno)
Maschera a due schermate: screen cogf40-01.scr (testata + griglia partite) e cogf40-02.scr (gestione parziali)
Accept testata: contropartita bancaria (tm-cpart), importo (tm-importo-m1), data movimento (tm-datamov-m1), data valuta (tm-dataval-m1)
Accept fornitore: codice fornitore (tm-codice), con ricerca F8 (COGS65) e navigazione partite
Griglia partite: caricamento partite aperte del fornitore, selezione con Invio, somma scadenze con F6, gestione parziale con F11, visualizzazione documento con F9
Maschera parziale (cogf40-02.scr): propone 4 opzioni (nuovo importo, abbuono att./pass., chiusura parziale, riseleziona partite)
Conferma e generazione (a-richiesta-conferma): quadratura importi, generazione documento prima nota su cogwpno, eventuale gestione ritenute e contributi, chiusura
Chiusura (fine): pulizia file di transito, chiusura file, z-99-exit-program

File e tabelle acceduti¶

File logico	Record	Modalita'	Uso
COGTABEL	euta-rec	Input	Tabelle generiche (esercizio contabile tipo 66, partite aperte tipo 62, ecc.)
COGGEANA	ana-rec	Input	Anagrafica generale (fornitori)
COGWPNO	cogwpno	I-O	Prima nota - file di lavoro per generazione documento
COGTRANS	trs-rec	I-O	File transito pagamenti operatore (chiave multipla)
COGFATTU	fat-rec	Input	Fatture (riferimento partite)
FEURTAB	feurtab	Input	Tabella generica Eurosystem

File di transito COGTRANS¶

File indicizzato temporaneo creato per operatore in ext-tmp-dir. Chiavi: - trs-chia1: anno + documento + progressivo - trs-chia2: filiale + chia3 (con duplicati) - trs-chia3: 14 byte (con duplicati) - trs-valuta: 14 byte (con duplicati) - trs-cc: 19 byte (con duplicati) - trs-partita: 23 byte (con duplicati)

Copybook inclusi¶

Screen Designer¶

Copybook	Contenuto
`cogf40-01.scr`	Maschera principale (testata + griglia partite)
`cogf40-02.scr`	Maschera secondaria (gestione parziali)
`cogf40.select`	SELECT dei file
`cogf40.fd`	FD dei file
`cogf40.wrk`	Working storage maschera
`cogf40.decla`	Declaratives (cogwpno, cogtrans)

Strutture dati e utility¶

Copybook	Contenuto
`COGFILES.CPY`	FD feurtab
`cogwpno.cpy`	Record prima nota
`wstato.cpy`, `wgrave.cpy`, `wopenf.cpy`, `wnscr.cpy`	Standard working storage
`cogazien.cpy`	Dati azienda
`capazien.cpy`	Dati azienda consorzi
`cogconta.cpy`	Struttura contabilita' (esercizio)
`wgrid.cpy`, `utilgdad.cpy`	Gestione griglie
`utildlg.cpy`	Dialoghi
`utilncnf.cpy`	Parametri RNEWCONF
`utils25.cpy`, `utils51.cpy`, `utils52.cpy`, `utils65.cpy`, `utils67.cpy`, `utils77.cpy`, `utils78.cpy`	Utility varie
`utilu10.cpy`	Gestione importi e divise
`utilu22.cpy`, `utilw19.cpy`, `utilw53.cpy`, `utilw62.cpy`	Utility aggiuntive
`utile65.cpy`	Utility COGE65
`utilk02.cpy`	Utility chiavi
`k-u10.cpy`	Costanti U10
`wcont.cpy`, `wcont1.cpy`	Linkage section

Programmi chiamati (CALL)¶

Programma	Scopo
COGS52W	Calendario per selezione date
COGS65	Ricerca e selezione anagrafica (fornitore)
GRIDADMN	Amministrazione griglia
RNEWCONF	Lettura/modifica configurazione
COGU10W	Gestione importi, divise, formattazione
COGE35	Ricerca agente/fornitore (F8)

Configurazione (RNEWCONF)¶

Parametro	Campo	Utilizzo
Reparto agente	`tm-cfg-rep-age`	Gestione reparto per agente
Reparto generico	`tm-cfg-reparto-generico`	Reparto generico
Data inizio gestione CA	`tm-cfg-ca-data-inizio-gestione`	Data inizio gestione contributi artigiani

Logica di business¶

Gestione partite¶

Il programma carica le partite aperte del fornitore selezionato in una griglia (fino a 950 elementi). Ogni partita mostra: anno, tipo, numero, scadenza, documento, data valuta, numero fattura, importi dare/avere, stato ICS, importo da pagare, sospesi.

L'operatore seleziona le partite con Invio. Con F6 puo' sommare le scadenze di una partita. Con F11 gestisce il pagamento parziale (4 opzioni: nuovo importo, abbuono, chiusura parziale, riseleziona).

Pagamenti multi-fornitore¶

Dopo aver completato la selezione per un fornitore, l'operatore puo' passare a un fornitore successivo. I movimenti di pagamento vengono accumulati nel file di transito cogtrans.

Generazione documento¶

Alla conferma (F5/F3), il sistema verifica la quadratura dei totali dare/avere e genera il documento di prima nota su cogwpno. Se c'e' squadratura, avvisa con messaggio specifico.

Ritenute d'acconto e previdenza¶

Se il fornitore ha ritenute d'acconto o contributi previdenziali configurati, il programma li calcola e li include nel documento di prima nota generato.

Gestione esercizio¶

Se l'esercizio contabile e' chiuso (flachiu = "S"), i pagamenti relativi all'esercizio precedente vengono gestiti con la data di chiusura appropriata.

Variabili di stato principali¶

Variabile	Descrizione
`tm-cpart`	Contropartita bancaria (codice + mastro/conto/sottoconto + tipo operazione)
`tm-codice`	Codice fornitore corrente
`tm-importo-m1`	Importo complessivo del pagamento
`tm-datamov-m1`	Data movimento
`tm-dataval-m1`	Data valuta
`tm-ele`	Array righe griglia (partite, importi, flag selezione)
`tm-scelta`	Opzione selezionata nella maschera parziale
`flachiu`	Flag esercizio chiuso
`datchiuatt` / `datchiupre`	Date chiusura esercizio attuale/precedente
`w-primo-fornitore`	Flag primo fornitore inserito
`util-pagam`	Parametri di chiamata (tipo, codice, importo, anno, tipo, num, scadenza)