COGE38 — Stampa Sintetica Clienti/Fornitori¶

Sorgente: cbl/coge38.cbl | Program-ID: COGE38 | Tipo: Stampa

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

Scopo¶

Produce una stampa sintetica delle anagrafiche clienti o fornitori con i dati principali (anagrafica, riferimenti fiscali, condizioni di pagamento, banca, sconti, listino, note). Supporta diversi criteri di selezione (da codice, elenco, per movimenti, per tipologia) e di ordinamento (numerico, alfabetico, per zona, provincia, agente). La distinzione clienti/fornitori e' gestita tramite il parametro wo-parametro passato all'avvio ("C" = clienti, "F" = fornitori).

Struttura della maschera¶

Screen: coge38-01.scr. Il titolo viene impostato dinamicamente ("Stampa anagrafica clienti" o "Stampa anagrafica fornitori").

Campi¶

Campo	Variabile	Tipo	Descrizione
Da Data Ins.	`tm-da-ins`	9(08)	Data inserimento iniziale
A Data Ins.	`tm-a-ins`	9(08)	Data inserimento finale
Selezione	`tm-sel`	x(01)	Tipo selezione: C/E/M/T
Ordinamento	`tm-ord`	x(01)	Ordinamento: A/G/N/P/Z
Tipo Stampa	`tm-tip`	x(01)	D=Dettagliata, R=Ridotta
Da Cliente	`tm-cli-da`	9(05)	Codice anagrafica iniziale
A Cliente	`tm-cli-a`	9(05)	Codice anagrafica finale
Zona	`tm-zona`	x(03)	Filtro zona
Provincia	`tm-prov`	x(02)	Filtro provincia
Agente	`tm-age-cod`	9(05)	Filtro agente
Tipologia	`tm-tip-stt`	x(02)	Filtro tipologia cliente
Da Data Mov.	`tm-da-data-num`	9(08)	Data inizio movimenti
A Data Mov.	`tm-a-data-num`	9(08)	Data fine movimenti
Tipo Pagamento	`tm-pag-cnd`	x(01)	T=Tutti, o codice specifico
Agenzia	`tm-agenzia`	x(02)	Filtro agenzia (solo consorzi)
Solo Contenziosi	`tm-cli-cont`	x(01)	S/N (solo consorzi)
Solo Senza Agenzia	`tm-cli-no-age`	x(01)	S/N (solo consorzi)
Solo Cisterne	`tm-cli-cisterne`	x(01)	S/N (solo consorzi)

Logica di elaborazione¶

Flusso principale¶

apri: Inizializzazione, apertura file, creazione file di transito temporaneo cogtrans con nome #$COGE38.<operatore>.
a4: Inizializzazione maschera con valori di default (tm-sel = "C", tm-tip = "D", tm-pag-cnd = "T").
a-tm-da-ins .. a-riga-fine: Accept sequenziale dei parametri di selezione. I campi visibili/abilitati variano in base alla combinazione selezione/ordinamento.
Dopo conferma F3, chiama COGS54 per la selezione destinazione stampa.
stampa: Esecuzione della stampa.

Routine di stampa¶

In base al tipo di selezione e ordinamento, il flusso di lettura cambia:

Selezione/Ordine	Paragrafo di lettura	Chiave utilizzata
Codice, ord. Numerico	`st-10-loop`	`ana-tipo` + `ana-cod` (chiave primaria COGGEANA)
Codice, ord. Alfabetico	`st-10-alf-loop`	`ana-tipo1` + `ana-nome` (chiave secondaria COGGEANA)
Elenco	`st-10-eln`	Legge da array `u04-cod`
Per movimenti	`st-10-mov-loop`	Scansione sequenziale + controllo movimenti
Per tipologia	`st-10-tip-loop`	Scansione sequenziale + filtro su `app-tip-stt`
Per zona	`st-10-loop-zona`	Lettura tramite `cogtrans` ordinato per zona
Per provincia	`st-10-loop-prov`	Lettura tramite `cogtrans` ordinato per provincia
Per agente	`st-10-loop-agente`	Lettura tramite `cogtrans` ordinato per agente

Per gli ordinamenti zona/provincia/agente, il paragrafo x1-creo-sort crea un file di transito (cogtrans) ordinato secondo il criterio scelto.

Stampa per ogni anagrafica (st-20)¶

Per ciascuna anagrafica vengono stampate fino a 15 righe (riga-1 .. riga-15) con: - Codice, ragione sociale, indirizzo, localita', provincia, CAP, telefono - Fax, pagamento, ABI/CAB, banca, sportello, conto corrente - P.IVA, codice fiscale, persona/societa', esportatore, stato estero - Telefono, fax, coordinate bancarie - Soggetto padre - Condizioni di pagamento, tipo pagamento - Sportello bancario - Contropartita contabile - Listino, sconti - Fido, descrizione merci, perc. trasporti, spese fatturazione - Addebito cauzioni, fatturazione triangolare, dettaglio consegna, rottura padre, periodicita' - Divisa, ritenuta d'acconto - Note (2 righe)

Larghezza stampa: 132 colonne.

File utilizzati¶

File	Accesso	Scopo
COGGEANA	Input	Anagrafica clienti/fornitori
COGTABEL	Input	Tabelle generiche (pagamenti, stati esteri, tipologie)
COGAPPOG	Input	Dati di appoggio anagrafica (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	Lavoro temporaneo descrizioni
LODTRDES	Input	Lavoro temporaneo descrizioni riga
COGTRANS	I-O	File di transito per ordinamenti zona/provincia/agente
FLSTA	Output	File di stampa

Programmi chiamati¶

Programma	Scopo
COGS52W	Gestione input date con calendario
COGS54	Selezione destinazione stampa
COGS60	Gestione combo-box / lista valori
COGS65	Ricerca anagrafica
COGU03	Ricerca banca associata all'anagrafica
COGU04	Selezione multipla anagrafiche (per modalita' Elenco)
COGU22	Gestione tipo pagamento
COGF01	Gestione zone
COGF09	Gestione province
COGF10	Gestione tipologie clienti
COGZDEW	Gestione note/descrizioni estese
WCA005.COB	Selezione agenzia
GRIDADMN	Gestione griglia dati

Copybook principali¶

cogfiles.cpy — Struttura record FEURTAB
coge38.select, coge38.fd, coge38.wrk — File, FD e variabili generate da Screens
flsta.fd, flsta.cpy — File di stampa
wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy — Variabili standard framework
cogazien.cpy, capazien.cpy — Dati azienda
utilf01.cpy, utilf09.cpy, utilf10.cpy — Interfacce COGF01/F09/F10
utils52.cpy, utils54.cpy, utils65.cpy — Interfacce COGS52/S54/S65
utilu03.cpy, utilu04.cpy, utilu22.cpy — Interfacce COGU03/U04/U22