COGB33 - Pagamento fatture fornitori da Home Banking¶
Scopo¶
Programma di contabilizzazione automatica dei pagamenti a fornitori (e chiusura delle relative partite aperte) a partire dagli archivi generati dalla procedura di Home Banking / distinte (COGB32, CAP032). Legge un archivio temporaneo di movimenti proposti (homeba, con nome derivato dal tipo pagamento: bonifici.arc, assegni.arc, ribafor.arc), genera un unico documento di Prima Nota bilanciato Dare/Avere (movimenti fornitore, contropartita banca, ritenute d'acconto, note di accredito, eventuali spese) e chiude le partite in cogmovpa/cogparti. Al termine, se configurato, produce i file di estrazione per l'archiviazione documentale JDOC.
Menu¶
Contabilita' > Home banking > Chiusura Partite
File e tabelle¶
| File | Tipo | Descrizione |
|---|---|---|
feurtab (cogfiles.cpy) |
Indicizzato multi-tracciato | Contenitore dei file di contabilita' (cogtabel, coggeana, cogpnonc, cogmovpa, cogparti, cogpncon, cogritac, cogfattu, cogfatt2, nutbanas, nutaltri, nutconti, prntoper, ...) |
| homeba | Indicizzato temporaneo | Archivio movimenti proposti dall'Home Banking. Chiave hom-chia (patipcli, pacli, panno, patipo, panpart, paprogsca); chiave alternata hom-chia1 (nome, valu, chia). Nome fisico in nf-homeba |
| homeba2 | Indicizzato temporaneo | Archivio bonifici di COGB32 (#$cogb32.<operatore>), usato per conteggio spese bonifici. Chiavi hom2-chia1, hom2-chia2 |
| filejdoc | Binary sequential | File di estrazione per invio all'archiviazione documentale JDOC (record da 1 carattere jdoc-record) |
flsta (flsta.cpy) |
Indicizzato | File di supporto stampa/stato |
Chiavi/campi rilevanti del record hom-rec: hom-patipcli, hom-pacli, hom-panno, hom-patipo, hom-panpart, hom-impo, hom-anti, hom-rita, hom-nac, hom-segno, hom-ban, hom-dadis, hom-vadis, hom-tipag, hom-sos, hom-acconto.
Copybook¶
- File/select (screen designer, in
cbl/screens/):cogb33.select,cogb33.fd,cogb33.wrk,cogb33.decla,cogb33.prc,cogb33-01.scr. Anchefeurtab.fd,flsta.fd,cogfiles.cpy,flsta.cpy. - Working-storage standard:
wstato,wgrave,wopenf,wnscr,cogazien,capazien,cogconta. - Utilita':
utils21,utils54,utilncnf,utils25,utils99,utildlg,utild99,l-copiaf. - Linkage:
wcont,u-copiaf,utilcogb33,utilcoge77,wcont1. - Fine procedure:
stato,stato1,winmsg,grave,opengen,mmmask,cogb33.prc, e chiave secondariacogmovpa.k03.
CALL¶
| Programma | Descrizione |
|---|---|
| RNEWCONF | Lettura configurazioni gruppo contabil/trasmiss (aliquota, conti, tipi operazione, spese, path/azienda JDOC, contropartita banca) |
| COGS99W | Gestione/edit dei codici Tipo Operazione (fornitori, clienti, altri, note accredito) con handle sui campi screen |
| COGS54 | Gestione stampa (report riepilogo contabile del documento creato) |
| COGS25 | Attribuzione/lettura numero documento di Prima Nota |
| DIALOGS | Dialog di conferma con opzioni (Prosegui / Gestione documento / Note) nel paragrafo gestione-documento |
| COGE77W.COB | Gestione del documento di Prima Nota appena creato (parametro GP) |
| COGD99 | Note su documento (chiave pno-chia) |
| COPIAF | Copia del file JDOC dal server al client (prepare-copiaf-move / call-copiaf) |
| WIN009 | Finestra ausiliaria tipi operazione (win-to) |
| festa | Calcolo giorno festivo/valuta per la data di versamento ritenuta |
Logica di elaborazione¶
a000: init programma,open-files,rd-azi, lettura configurazioni (x99-confi→RNEWCONF), costruzione controlli screen,find-eser(esercizio contabile).a4/a001/a002: caricamento tabella Conti per Partite Aperte (cogtabel tipo 45) e decodifica dei Tipi Operazione (cogtabel tipo 65). Se chiamato da CAP032/COGB32 salta direttamente alla conferma (a018).- Paragrafi
a-tm-*: accept dei parametri di testata (tipo pagamento, descrizione contropartita banca, T.O. fornitori/clienti/altri/note accredito) con controllix-controlla-*. a-richiesta-conferma/a018: validazione complessiva (x-imposta-conferma), stampa report tramite COGS54, aperturahomebain base al tipo pagamento.a043/src-next: scansione dihomeba; per ogni movimento non gia' contabilizzato (hom-sos) e con banca valorizzata, in base a segno/importi invoca:crea-coge: scrittura movimento fornitore che chiude la fattura (importo netto = impo − rita − anti − nac); accumula la contropartita banca incp-dare/cp-avere.chiudi-fat: chiusura per compensazione da Nota Accredito (importohom-nac).chiudi-nac: chiusura partita di Nota Accredito (segno opposto).wr-ritac: registrazioni di ritenuta d'acconto (T.O. e contropartita da cogtabel tipi 46/16/65) e aggiornamentocogritac.crea-controp: al termine scrittura del movimento di contropartita banca (bonifico o effetti) per quadrare Dare/Avere; gestione spese bonifici (conta-bonificisuhomeba2).- Ogni scrittura di Prima Nota (
wr-cogpnonc) e' accompagnata dascrivo-cogmovpa(movimento partita) e, per IP/PA, dacrea-cogparti/find-cogparti/non-ce-parti. a047/sta-riep: verifica quadratura documento e stampa del riepilogo contabile (tab-riepilogo, righet4);gestione-documentoper interventi post-creazione.crea-file-jdoc/x1-creo-filejdoc: setm-cfg-cod-azi-jdocvalorizzato, per ogni fattura chiusa (saldo dare = avere sucogmovpa) genera il filefatf_<barcode>.expcon i campi AZI/CMD/UTE/TDOC/BARCODE/C01..C04/JDOC_STATE/JDOC_FORZABLOCCOFIRMA e lo copia sul client.z-chiudi/fine: chiusura file ed uscita.
Note tecniche¶
- Numerazione documento con
COGS25(magazzino 5); doppia lettura per determinare/incrementare il numero, con controllo di collisione sucogpnonc(prendi-num). - La contropartita banca puo' essere presa dalle banche assuntrici (
nutbanas:ban-mas-bon/ban-con-bon/ban-bon-tochper bonifici,ban-*-fadper effetti) oppure danutcontiquandotm-cfg-cp-banca = "I"(indice intm-cfg-cp-banca-indice). - Le date valuta per la Prima Nota derivano da
hom-vadis; la data movimento dahom-dadis. - Il file JDOC e' scritto carattere per carattere con terminatori CR/LF (
wca-cod-cr/wca-cod-lf);JDOC_STATE=13eJDOC_FORZABLOCCOFIRMA=SI. - Configurazioni RNEWCONF usate: homeb-percentuale, homeb-conto, homeb-to-for, homeb-to-cli, homeb-to-altri, homeb-to-nac, homeb-desc-banca, homeb-scrivi-spese, homeb-spese-conto, homeb-cp-banca, homeb-cp-banca-indice-nutcont, path-cogb20-invio-dati-jdoc, cogb20-cod-azienda-jdoc.
- Il sorgente e'
source-computer rmcobole fa ampio uso diGO TOePERFORM ... THRU(stile legacy pre-conversione).