Vai al contenuto

COGE10 — Scheda Analitica Fornitori (Qualita')

Sorgente: cbl/coge10.cbl | Tipo: interattivo a maschera + stampa | Program-ID: coge10

Menu: Contabilita' > Archivi & Tabelle > Stampe > Fornitori > Qualita' > Scheda Analitica Fornitori ; Vendite > Fatturazione > Tabelle > Spese R.B.

Scopo

Stampa la scheda dettagliata (anagrafica + dati qualita') dei fornitori. Per ogni fornitore selezionato produce una pagina con i dati anagrafici completi (nome, indirizzo, comune/CAP/provincia, partita IVA e codice fiscale, telefono/fax, sito web ed e-mail, banca e sportello, modalita' di pagamento) e, nella parte "Qualita'", la certificazione/qualifica (app-q-tipo-cert), classe/gruppo qualita' e una tabella per la registrazione manuale della revisione, valutazione, accettazione e approvazione (rg-11/rg-12).

La selezione avviene per range di fornitori (per codice o per descrizione, tm-ordinam), con opzione di includere i cancellati (tm-cancellati). I dati filtrati vengono prima riversati su un file di transito indicizzato temporaneo (COGTRANS) per poi essere stampati in ordine.

File e tabelle principali

File/Tabella Copybook Uso
COGGEANA coggeana.k02 (chiave alfabetica) Anagrafica fornitori (k-ana-tipo-for): scansione per codice o per nome; lettura dei dati anagrafici in stampa
COGAPPOG (in openGEN) Record appoggio anagrafica (app-rec): dati qualita' (app-q-*), telefono/fax, ABI/CAB. In personalizzazione "IP" filtra i fornitori privi di dati qualita'
COGTABEL (in openGEN) Tabelle: descrizioni classe/gruppo qualita' (tipi A3/A4), tipo certificazione (A6), modalita' di pagamento (tipo 14)
COGCNDCF (in openGEN) Condizioni cliente/fornitore: recupero sito web (condizione W1, chiavi 1 e 2)
COGTRANS dichiarato inline nel sorgente File di transito temporaneo indicizzato (w-trs-name in ext-tmp-dir, per operatore) usato per ordinare i fornitori selezionati prima della stampa
flsta flsta.fd / flsta.cpy File di stampa

Flusso principale

  1. apri — inizializzazioni, open-files, x99-confi (lettura configurazione), costruzione nome file transito w-trs-name, attivazione tasti F8/F3/F9, rd-msk-pop.
  2. a4 — default maschera (tm-cli-for="F", tm-cancellati="N", tm-ordinam="C"); apertura esclusiva del transito (open output di controllo poi apertura in aggiornamento open-cogtrans, con messaggio "Funzione gia' in uso" se occupato).
  3. a-tm-cli-da / a-tm-cli-a / a-tm-cancellati / a-tm-ordinam — accept dei parametri: fornitore da/a via COGS65W, flag cancellati via COGS95, ordinamento via COGS60.
  4. a-riga-fine — conferma (x-imposta-conferma), COGS54 per la stampa, carica-dati, controllo dati presenti, riapertura transito in input e stampa-dati.
  5. carica-dati — scandisce COGGEANA nel range, applica filtri (tipo fornitore, cancellati, e in personalizzazione "IP" presenza dati qualita' su COGAPPOG) e scrive i record su COGTRANS.
  6. stampa-dati / stampa-riga — rilegge COGTRANS in ordine e, per ogni fornitore, rilegge COGGEANA e COGAPPOG e compone le righe rg-1..rg-12 della scheda.
  7. fine / z-chiudi — chiusura file, chiusura finestra, delete cogtrans (rimozione del transito), exit program.

Sottoprogrammi chiamati

Programma Ruolo
COGS54 Selezione periferica di stampa / anteprima
COGS65W Ricerca e validazione anagrafica fornitore da/a
COGU03 Recupero descrizione banca e sportello (cerca-Banca-ana) per la riga banca
COGU22 Lettura descrizione tipo pagamento R.B. (u22-leggi, copybook sendu22.cpy)
RNEWCONF Lettura configurazione QUALITA.CNF (vedi sotto)
COGS60 Combo-box ordinamento; COGS95 gestione flag cancellati (gestori da .prc)

Configurazioni (RNEWCONF)

Gruppo Chiave Pilota
qualita COGE10 (pacchetto C, file QUALITA.CNF) Descrizione qualita' stampata nell'intestazione della scheda (tm-cfg-desc-qual -> rg-1-qual), letta in x99-confi

Note

  • Il file di transito COGTRANS e' dichiarato manualmente nel sorgente (SELECT/FD inline con il solo trs-chia1), non e' un file di magazzino: e' un temporaneo per-operatore usato solo per ordinare le schede prima della stampa.
  • Comportamento condizionato dalla personalizzazione cliente az-personal: se = "IP" (k-personal-impernovo) vengono esclusi i fornitori senza alcun dato qualita' su COGAPPOG e viene stampata l'intestazione aggiuntiva "PAG. 1 di 3" con sequenze di controllo emulazione (HP LaserJet HPLJ3 vs generico DWS/DWR) in stampa-riga.
  • La scelta dello sportello banca in stampa dipende da u22-cp-tip (R = fornitore, B = bonifico con ulteriore switch az-sport-bon tra sportello fornitore e sportello cliente interno az-cli-int).
  • Il sorgente usa PERFORM ... THRU (carica-dati thru ex-carica-dati, stampa-dati thru ex-stampa-dati, stampa-riga thru ex-stampa-riga, controlla-ordine thru ex-controlla-ordine) e GO TO per la navigazione: pattern legacy tipico dei programmi di stampa.
  • Le righe web/e-mail sono state aggiunte come intestazioni dedicate (rg-7-testa-web, rg-7-testa-email): il sito web deriva dalle condizioni W1 di COGCNDCF, l'e-mail dal campo ana-email.