Vai al contenuto

ASN048 - Documenti di Stampa x Cliente

Sorgente: cbl/asn048.cbl | Program-ID: ASN048 | Tipo: Programma interattivo (gestore tabella anagrafica)

Menu: Assist 2.0 > Archivi > Tabelle > Documenti di Stampa x Cliente

Scopo

Gestisce l'associazione cliente -> modello di documento di stampa (ASNDOCST). Per ciascun cliente puo' essere indicato il nome del file del modello (la path e' quella standard configurata per i modelli di stampa) usato dai programmi che producono stampe specifiche per cliente. Pattern standard "tabella anagrafica con griglia".

Nota: il programma e' standalone; il blocco di linkage utilasn048 e' commentato nel sorgente, quindi al momento non viene chiamato in modalita' selezione da altri programmi.

File e tabelle

File/Tabella Tipo Modalita' Descrizione Chiave
FEURTAB ISAM Input Parametri generali azienda std
ASNDOCST ISAM I-O Modelli di stampa per cliente dost-id (12), chia2 = cli-tip+cli-cod+nome-doc
COGGEANA ISAM Input Anagrafica clienti (lookup ragione sociale) ana-tipo+ana-cod

Chiavi secondarie: asndocst.k02 (cliente + nome documento).

Copybook utilizzate

Copybook Ruolo
asn048.select, asn048.fd, asn048.wrk, asn048-01.scr, asn048.prc, asn048.decla Screen Designer
cogfiles.cpy Layout FEURTAB
wgrave, wnscr, wopenf, wstato, cogazien Working storage standard
wgrid.cpy, utilgdad.cpy Working griglia + linkage GRIDADMN
utils65.cpy Utility

Logica di elaborazione

Pattern standard "tabella anagrafica":

  1. apri: open files. Linkage di selezione commentato (non utilizzato).
  2. a4 → a10-loop: scan completo di ASNDOCST via st-asndocst-notmin-chia2 (cliente+nome), carica tm-nome-doc, tm-cli-cod, tm-cli-des (via rd-coggeana), tm-id. Aggiorna w-dost-id con il max id letto.
  3. a-grid / a-accept-grid: accept griglia standard.
  4. F3 aggiornamento: b-aggiorna standard. b1-inserisci assegna nuovo id progressivo w-dost-id + 1; b2-modifica riscrive il record esistente; b3-cancella elimina per id.
  5. Tasti supportati: F8 (aiuto), F9 (ricerca avanzata), Shift+F4 (GRIDADMN), Ctrl+A/Ctrl+E, F3 salva.

Programmi richiamati: GRIDADMN.

Linkage

Solo stringhe. Il record util-asn048 e' definito in utilasn048.cpy ma e' commentato nella procedure division using: il programma non e' invocabile in modalita' selezione.

Note

  • Massimo righe griglia: k-max-ele-tab = 900.
  • Id record dost-id generato in maniera progressiva all'interno del programma (w-dost-id + 1), non con generatore globale.
  • Cancellazione: c1-ctrl-canc controlla solo che la griglia non sia vuota. Nessuna verifica di referential integrity.
  • La path dei file di modello e' configurata a livello di sistema, qui si memorizza solo il nome file.