COGE39 — Stampa Analitica Clienti/Fornitori¶

Sorgente: cbl/coge39.cbl | Program-ID: COGE39 | Tipo: Stampa

Menu: Contabilita' > Archivi & Tabelle > Stampe > Clienti > Analitica / Contabilita' > Archivi & Tabelle > Stampe > Fornitori > Analitica

Scopo¶

Produce una stampa analitica (scheda completa) delle anagrafiche clienti o fornitori. Stampa tutti i dati disponibili per ogni soggetto: anagrafica, riferimenti fiscali, condizioni commerciali, bancarie, contabili, note. Supporta ordinamento per codice o alfabetico, e filtri per range codice, agenzia e contenzioso. Puo' essere invocato direttamente dal menu o chiamato da altri programmi con parametri precompilati tramite la linkage section (utilcoge39.cpy).

Struttura della maschera¶

Screen: coge39-01.scr. Titolo: "Stampa analitica clienti" o "Stampa analitica fornitori".

Campi¶

Campo	Variabile	Tipo	Descrizione
Ordinamento	`tm-ordine`	x(01)	C=Per codice, A=Alfabetico
Da Cliente	`tm-cli-da`	9(05)	Codice anagrafica iniziale
Descrizione Da	`tm-des-cli-da`	x(40)	Ragione sociale (visualizzazione)
A Cliente	`tm-cli-a`	9(05)	Codice anagrafica finale
Descrizione A	`tm-des-cli-a`	x(40)	Ragione sociale (visualizzazione)
Agenzia	`tm-agenzia`	x(02)	Filtro agenzia (solo consorzi)
Solo Contenziosi	`tm-cli-cont`	x(01)	S/N (solo consorzi)

Logica di elaborazione¶

Flusso principale¶

apri: Inizializzazione, apertura file, creazione file temporanei lodtmdes e lodtrdes con nome #$coge39.<operatore> e #$COGZDE.<operatore>.
Se invocato come called (parametro w-dc-fl-called = "Y"), i parametri vengono precompilati da w-dc-coge39 e si salta direttamente alla selezione stampante (a-s54).
a4: Inizializzazione maschera con default (tm-ordine = "C", tm-cli-cont = "N").
a-tm-ordine .. a-riga-fine: Accept sequenziale dei parametri.
a-s54: Chiama COGS54 per selezione destinazione stampa.
stampa: Esecuzione stampa.

Routine di stampa¶

Il paragrafo stampa scorre le anagrafiche in base all'ordinamento:

Ordinamento "C" (codice): lettura sequenziale di COGGEANA per chiave primaria (ana-tipo + ana-cod), dal codice tm-cli-da al codice tm-cli-a.
Ordinamento "A" (alfabetico): lettura sequenziale per chiave secondaria (ana-tipo1 + ana-nome), dal nome tm-des-cli-da al nome tm-des-cli-a.

Stampa per ogni anagrafica (st-20 .. st-50)¶

Per ciascun soggetto vengono stampate 15 righe (riga-1 .. riga-15):

Riga	Contenuto
riga-1	Codice + Ragione Sociale
riga-2	Indirizzo, CAP, Localita', Provincia
riga-3	P.IVA, Codice Fiscale, Privato, Persona/Societa', Esportatore, Stato
riga-4	Telefono, Fax, ABI/CAB, Conto Corrente
riga-5	Soggetto padre
riga-6	Pagamento, Tipo pagamento
riga-8	Sportello bancario
riga-9	Contropartita contabile + Conto Cli/For
riga-10	Listino, Listino Cauzioni, Sconti, Raggr. Fattura
riga-11	Fido, Descr. Merci, Perc. Trasporti, Spese Fatturazione
riga-12	Add. Cauzioni, Fatt. Triangolare, Det. Consegna, Rottura Padre, Periodicita'
riga-13	Divisa, Ritenuta d'Acconto
riga-14	Note (riga 1)
riga-15	Note (riga 2)

Larghezza stampa: 132 colonne.

Invocazione come CALLED¶

Il programma accetta parametri via linkage (utilcoge39.cpy):

Campo	Variabile	Descrizione
Caller	`w-dc-coge39-caller`	ID programma chiamante
Called	`w-dc-coge39-called`	Deve essere "COGE39"
Ordine	`w-dc-coge39-ordine`	Ordinamento preimpostato
Da anagrafica	`w-dc-coge39-da-ana`	Tipo + codice iniziale
A anagrafica	`w-dc-coge39-a-ana`	Tipo + codice finale
Agenzia	`w-dc-coge39-agenzia`	Filtro agenzia
Solo contenziosi	`w-dc-coge39-cli-cont`	S/N

File utilizzati¶

File	Accesso	Scopo
COGGEANA	Input	Anagrafica clienti/fornitori
COGTABEL	Input	Tabelle generiche (pagamenti, stati esteri)
COGAPPOG	Input	Dati di appoggio (telefono, fax, banca)
COGPNCON	Input	Piano dei conti
COGSCONT	Input	Sconti per anagrafica
COGDESCR	Input	Descrizioni aggiuntive
COGANAPP	Input	Dati agenzia (solo consorzi)
CAPMAGAZ	Input	Magazzino cap (solo consorzi)
LODTMDES	I-O	File temporaneo descrizioni
LODTRDES	Input	File temporaneo descrizioni riga
FLSTA	Output	File di stampa

Programmi chiamati¶

Programma	Scopo
COGS52W	Gestione input date con calendario
COGS54	Selezione destinazione stampa
COGS60	Gestione combo-box
COGS65	Ricerca anagrafica
COGU03	Ricerca banca associata all'anagrafica
COGU22	Gestione tipo pagamento
COGZDEW	Gestione note/descrizioni estese
WCA005.COB	Selezione agenzia

Copybook principali¶

cogfiles.cpy — Struttura record FEURTAB
coge39.select, coge39.fd, coge39.wrk — File, FD e variabili generate da Screens
lodtmdes.cpy, lodtrdes.cpy — File lavoro descrizioni
flsta.fd, flsta.cpy — File di stampa
wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy — Variabili standard framework
cogazien.cpy, capazien.cpy — Dati azienda
utilcoge39.cpy — Interfaccia chiamata come CALLED
utils54.cpy, utils65.cpy — Interfacce COGS54/S65
utilu03.cpy, utilu22.cpy — Interfacce COGU03/U22
utilzde.cpy — Interfaccia COGZDEW