COGF10 — Tipologie Clienti¶

Sorgente: cbl/cogf10.cbl | Program-ID: COGF10 | Tipo: Gestione tabella a griglia

Menu: Contabilita' > Archivi & Tabelle > Tabelle > Tipologie Clienti

Scopo¶

Gestisce la tabella delle tipologie clienti/fornitori su COGTABEL (tipo 84). Permette inserimento, modifica, cancellazione e selezione delle tipologie. Supporta la modalita' CALLED per la selezione da altri programmi (es. COGE38) tramite la linkage utilf10.cpy. Le tipologie sono nate come miste clienti/fornitori: il prefisso di chiave (k-euta-cod-1) e' sempre "C" indipendentemente dal contesto.

Struttura della maschera¶

Screen: cogf10-01.scr. Titolo: caricato da lingua (m-titolo-maschera).

La maschera ha una griglia principale (e-tm-tab) e un frame di dettaglio (e-frame-dettaglio).

Campi griglia¶

Colonna	Variabile griglia	Descrizione
Codice	`grd-cod`	Codice tipologia x(02)
Descrizione	`grd-des`	Descrizione x(40)
Titolo	`grd-tit`	Titolo abbreviato x(15)
Fido	`grd-fido`	Importo fido z(07)
Punti	`grd-punti`	Punti z(06)
Tipologia CRM	`grd-tipol`	Codice tipologia CRM x(03)
Desc. Tipol.	`grd-desl`	Descrizione tipologia CRM x(40)
Codice Host	`grd-codice-host`	Codice host x(10)

Campi dettaglio (tab-maschera)¶

Campo	Variabile	Tipo	Descrizione
Codice	`tm-cod(i)`	x(02)	Codice tipologia (2 caratteri)
Descrizione	`tm-des(i)`	x(40)	Descrizione
Titolo	`tm-tit(i)`	x(15)	Titolo abbreviato
Fido	`tm-fido(i)`	9(05)	Importo fido (solo consorzi)
Punti	`tm-punti(i)`	9(04)	Punti (solo consorzi)
Tipologia CRM	`tm-tipol(i)`	x(03)	Codice tipologia CRM (solo cli-pot)
Desc. Tipol.	`tm-desl(i)`	x(40)	Descrizione tipologia CRM (read-only)
Codice Host	`tm-codice-host(i)`	x(10)	Codice host

Logica di elaborazione¶

Flusso principale¶

apri: Inizializzazione, apertura file. Se invocato come CALLED (f10-called = "COGF10"), entra in modalita' selezione. Il tipo anagrafica (k-euta-cod-1) e' impostato da f10-in-tipo se fornito, altrimenti default "C".
a4: Reset griglia, inizializzazione.
a10: Caricamento dati da COGTABEL tipo 84. Filtra per k-euta-cod-1 (primo carattere della chiave). Per ogni record carica:
euta-cod(2:2) in tm-cod
euta-tpl-des in tm-des
euta-tpl-tit in tm-tit
Se consorzi: euta-tpl-fido in tm-fido, euta-tpl-punti in tm-punti
Se cli-pot: euta-tpl-tcl in tm-tipol, poi legge CRMTIPCL per la descrizione
euta-tpl-codice-host in tm-codice-host
a30: Se ci sono record, costruisce la griglia. Se la griglia e' vuota e non e' in modalita' CALLED, va direttamente in inserimento. Se e' vuota in modalita' CALLED, mostra messaggio e esce.
a-grid / a-accept-grid: Loop di gestione griglia.

Dettaglio riga (a-riga-dettaglio)¶

Flusso accept sequenziale: a-tm-cod > a-tm-des > a-tm-tit > a-tm-fido (se consorzi) > a-tm-punti (se consorzi) > a-tm-tipol (se cli-pot) > a-tm-codice-host > a-riga-dettaglio-fine.

In inserimento il campo tm-cod e' editabile.
In modifica il record viene bloccato con rd-cogtabel-lk.
Il campo tm-tipol ha F8 per richiamare CRM010 (selezione tipologia CRM).

Salvataggio (a-riga-dettaglio-fine)¶

Costruisce la chiave COGTABEL tipo 84 come: k-euta-cod-1 + tm-cod(i) (es. "C01").

Scrive: - euta-tpl-des = tm-des(i) - euta-tpl-tit = tm-tit(i) - euta-tpl-fido = tm-fido(i) - euta-tpl-punti = tm-punti(i) - euta-tpl-tcl = tm-tipol(i) (se cli-pot) - euta-tpl-codice-host = tm-codice-host(i)

In inserimento usa wr-cogtabel, in modifica usa rwr-cogtabel.

Cancellazione (c-cancella)¶

Costruisce la chiave (tipo 84, k-euta-cod-1 + tm-cod(i)), legge con lock, poi esegue del-cogtabel.

Visibilita' condizionale dei campi¶

Campo	Condizione di visibilita'
Fido	`az-consorzi` = "S"
Punti	`az-consorzi` = "S"
Tipologia CRM	`az-cli-pot` = "S"

File utilizzati¶

File	Accesso	Scopo
COGTABEL	I-O	Tabella generica — record tipo 84 (tipologie clienti)
CRMTIPCL	Input	Tabella tipologie CRM (per descrizione)

Programmi chiamati¶

Programma	Scopo
CRM010	Selezione tipologia CRM (F8 su campo Tipologia CRM)
GRIDADMN	Gestione griglia dati

Copybook principali¶

cogfiles.cpy — Struttura record FEURTAB
cogf10.select, cogf10.fd, cogf10.wrk — File, FD e variabili generate da Screens
wstato.cpy, wgrave.cpy, wgrid.cpy, wopenf.cpy, wnscr.cpy — Framework standard
cogazien.cpy — Dati azienda
utilgdad.cpy — Interfaccia GRIDADMN
utilcrm010.cpy — Interfaccia CRM010
utilf10.cpy — Interfaccia CALLED (linkage)