COGE08F -- Gestione Anagrafica Fornitori¶

Sorgente: cbl/coge08f.cbl (~11.320 righe) | Tipo: Programma interattivo GUI a maschera (SCREENS, single-record, notebook 5 pagine) | Program-ID: COGE08F

Menu:

Contabilita' > Archivi & Tabelle > Fornitori

Scopo¶

Gestione completa dell'anagrafica Fornitori di contabilita' (inserimento, modifica, cancellazione logica e fisica). Il tipo anagrafica e' fisso a fornitore (k-ana-tipo-for -> tm-tipo). Oltre al record principale COGGEANA gestisce, a cascata, una serie di tabelle satellite (dati fiscali/condizioni, dati aggiuntivi, contatti, banche/IBAN, destinazioni diverse, sconti, ente previdenziale, privacy, flag vettore/agente). Include validazioni fiscali (P.IVA e Codice Fiscale via COGE05), clonazione anagrafica su altri ambienti (consorzi/aziende gruppo) e sincronizzazione verso sistemi esterni (Postgres/KPN via SWN079, CRM clienti potenziali).

E' sia standalone (voce di menu) sia richiamabile via linkage.

File e tabelle¶

FD dichiarati direttamente nel sorgente: feurtab (menu/tab), lodtmdes (semaforo di lock funzione, aperto i-o per uso esclusivo operatore), tran-e08 (transito temporaneo #$COGE08.<oper>). Le tabelle applicative sono gestite dai gestori generati da SCREENS (coge08f.select/.fd/.prc).

Tabella	Ruolo	Campi/chiavi principali
COGGEANA (`ana-`)	Anagrafica principale cli/for/trasp	`ana-chia`(=`ana-tipo`+`ana-cod`), `ana-nome`/`ana-nome2`, indirizzo, `ana-piva`, `ana-cofi`, `ana-controp`, `ana-pag1`, `ana-val` (cancellato logico). K02=`ana-chia1` (tipo+nome), K03=`ana-chia2` (tipo+piva)
COGANAPP (`aap-`) / COGANAP2 (`aap2-`)	Dati aggiuntivi anagrafica	sconto piramidale, flag sincronizzazione, raccordo, % IVA indetraibile
COGANCAP (`anc-`)	Appendice finanziaria	date rapporto, IBAN/BIC estero, giorni ritardo, rating, voce finanziaria
COGCNDCF (`cnd-`)	Condizioni/dati fiscali (multi-record per `cnd-cnd`)	chiavi `AK` (contropartita), `EP` (ente previdenziale + esclusioni CU), `NA`/`NB`/`NC`/`ND` (persona fisica), `DF`/`DF BIS` (porto/vettore/rapp. fiscale), `W1` (siti web), `PY` (data privacy)
COGAPPOG (`app-`)	Banche/IBAN e dati qualita'	IBAN it. (st/cin/abi/cab/c-corr), tel/fax, certificazioni qualita'
COGDESTI/COGDEST2 (`dst-`)	Destinazioni diverse (`dst-id-tip='F'`)	ragione sociale/indirizzo/email
COGRIFER/COGRIFE2, COGANATN/COGANAT2 (`rif-`/`atn-`)	Contatti/tecnici anagrafica	cancellati a cascata
COGSCOCF (`scf-`) / COGSCONT (`scc-`, tip 'A')	Sconti particolari / generalizzati	cancellati a cascata
COGMAGPE (`mgp-`)	Anagrafica lavorazioni esterne	se `az-lav-est` + `tm-lav-est`
COGTABEL (`euta-`)	Flag vettore (tipo 47) e agente (tipo 21, `euta-fl-prv`)	i flag NON stanno su COGGEANA
COGPNCON (`pco-`)	Piano dei conti (descrizione contropartite)	`pco-mastro`/conto/sconto, `pco-des`
COGDESCR	Descrizioni di ricerca	via `x4-ins-descrizioni`/`c2-can-descrizioni`
CRMINFOR/CRMANAGR/CRMANANF/CRMANANN, NUTBANAS	Collegamenti CRM e banca appoggio effetti

Copybook principali¶

coge08f.wrk, cogfiles.cpy, coggeana.cpy, cogazien.cpy (flag az-*), wstato/wgrave/wnscr/wopenf, k-personal.cpy, costanti-clipot.cpy, utilncnf.cpy (RNEWCONF), utildlg.cpy (DIALOGS), utilcopiaana.cpy, numerosi util*.cpy dei sottoprogrammi. Fine procedure: mmmask.cpy, opengen/stato/stato1/grave/winmsg, i send-*, le chiavi secondarie manuali (coggeana.k02/.k03, coganap2.k02, cogrifer.k02, lodtmdes.k01) e coge08f.prc (gestori tabella generati).

Chiamate ad altri programmi¶

Validazione/persistenza: COGE05 (P.IVA/Cod.Fiscale), RNEWCONF, COGS43/COGS44 (tabelle di ricerca), COGS25 (numeratore codice fornitore, cod 12), COGE08V (verifica cancellabilita'), COGE08D, copiaana (clonazione/cancellazione su altri ambienti), SWN079 (export chiave verso Postgres/KPN), CRMS03/CRM030 (clienti potenziali), COGEA3 (modulo privacy, solo Artic Seals), GESSTR (CONV-PER-XML).
Aiuti/ricerche di campo: COGE04 (banca ABI/CAB), COGE22 (divisa), COGE16 (pagamento), COGE18 (stato), COGE29/COGE29F (prezzi/listino), COGE32 (sconti), WIN161 (CAP/localita'), WIN080, WIN022, COGF09/COGF10/COGF11, COGU03W (banca), COGM79 (destinazioni), COGVA1 (listino fornitore), COGG32 (contatti), COGD20/POSTIT (note post-it), COGF61 (scheda/allegati), COGE08R (ricerca fornitori), DIALOGS, W$MENU.

Flusso / Paragrafi principali¶

apri/main: ctr-abil, z-99-init-program, rd-azi, open-files, abilitazione tasti funzione e bitmap, lock esclusivo su lodtmdes, init modalita' called, x99-confi-contabil + x99-confi.
a4: reset maschera, tm-tipo = k-ana-tipo-for, testata, menu; se called imposta chiave o innesca a9-carica-clipot/a8-cerca-libero.
Ricerca (testata): a-tm-ana-cod (F5=COGE08R, F8=libero), a-tm-nome-ric (send-w06), a-tm-piva-ric (send-w22), a-tm-cofi-ric (send-wcf6).
a-inizio-dati: lettura rd-coggeana-lk -> fl-vario I(insert)/V(variazione); se V carica tutte le tabelle satellite (x2-altri-dati).
Pagine dati a-pagina-1..5 con accept a-tm-* e validazioni x-controlla-tm-* (anagrafica base, banca/IBAN, contatti, contropartite, qualita', privacy/finanza/sincronizzazione).
Salvataggio a-fine-dati/a-fine-dati-ins: conferma, validazioni fiscali, controllo P.IVA duplicata (K02), pulizia XML, mapping tm-*->ana-*, scrittura a cascata delle tabelle satellite, numeratore, CRM, clonazione ambienti, SWN079.
Cancellazione cancella: COGE08V, eventuale cancellazione logica, eliminazione a cascata di tutte le tabelle collegate, aggiornamenti CRM/SWN079/clonazione.
fine/z-chiudi: cancel all, chiusura.

Configurazioni¶

Lettura via RNEWCONF in x99-confi-contabil (1 chiave) e x99-confi (numerose chiavi). Principali:

Gruppo	Chiave	Variabile / Effetto
CONTABIL	`versione-programmi-doc`	`tm-cfg-versione-contabil` (CARATTERE/GRAFICA, pilota contropartite AK/COGU66)
FORNIT	`tipo-pagamento` / `codice-pagamento` / `contropartita` / `conto-anagrafico`	default RB/pagamento/contropartita/rifconto
FORNIT	`gest-rag-2`	`tm-cfg-rag-2` (seconda ragione sociale)
abilita	`copiaana` / `copiaana-conf` / `copiaana-source-name` / `copiaana-destination-name` (1..10)	clonazione anagrafica su ambienti destinazione
ABILITA	`GRUPPO-AZIENDE` / `contabilita`	sincronizzazione aziende gruppo
CLIENTI	`MODO-CODICE-DA-CRM`	`tm-cfg-codice-da-crm`
clienti	`raccordo-obbligatorio`	`tm-cfg-raccordo-obbligatorio`
areaapp	`agg-postgres-online`	`tm-cfg-aggiorna-postgres-online` (sync KPN via SWN079)
listvend	`listino-unico`	commuta F1 tra prezzi netti acquisto e sconti
contabil	`collegamento-tesoreria`	`tm-cfg-gestione-tesoreria`
entrate	`porto-con-codice`	`tm-cfg-porto-cod`

Note¶

Validazioni fiscali con COGE05; su errore DIALOGS con F3 (conferma) / F5 (modifica). Controllo P.IVA gia' legata ad altra anagrafica (K02). Il controllo e' ripetuto in a-fine-dati per non essere bypassato col mouse.
Pulizia campi (inspect ... replacing + GESSTR CONV-PER-XML) su indirizzo, ragione sociale, rag-2 e localita' per compatibilita' XML.
Dati fiscali multi-record su COGCNDCF discriminati da cnd-cnd (AK/EP/NA/NB/NC/ND/DF/DF BIS/W1/PY).
Flag vettore/agente su COGTABEL tipo 47/21 (non su COGGEANA).
Multi-ambiente/consorzi: clonazione/cancellazione anagrafica via copiaana e sincronizzazione aziende gruppo (a-sincronizza-aziende-gruppo), gate su az-consorzi/az-for-int.
Modalita' called via utile08f.cpy (e08f-called = "COGE08F-CALLED"), con e08f-ope = "Gestione" o "Ins-da-clipot" (inserimento fornitore da nominativo CRM).
Lock esclusivo tramite lodtmdes ("La Funzione e' gia' in uso da questo operatore!!").
Personalizzazioni: menu a tendina e modulo privacy COGEA3 attivi solo per az-personal = k-personal-artic-seals.
Nessun marcatore *>DOC: nel sorgente; le modifiche recenti sono tracciate da tag data in colonna 1.