COGP70 -- Elenco Fornitori Approvati

Sorgente: cbl/cogp70.cbl | Program-ID: COGP70 | Menu: Contabilita' > Archivi & Tabelle > Stampe > Fornitori > Qualita > Elenco Fornitori Approvati

Descrizione

Stampa l'elenco dei fornitori qualificati con il relativo stato di approvazione, ai fini della gestione qualita' fornitori. Il programma scorre l'anagrafica dei fornitori (COGGEANA tipo "F") e per ciascuno legge la scheda condizioni fornitore (COGCNDCF, condizione "DF") per ricavare stato di approvazione e prodotto fornito; stampa solo i fornitori il cui stato e' selezionato tra le opzioni scelte dall'utente (idonei, non idonei, certificati, in fase di certificazione). L'ordinamento puo' essere alfabetico o numerico e per ogni fornitore vengono riportati anche telefono e fax (da COGAPPOG).

File e tabelle

File/Tabella	Accesso	Descrizione
COGGEANA (feurtab)	Indexed, dynamic	Anagrafica generale: fornitori (tipo "F"). Lettura per chiave primaria o alternata chia1 in base all'ordinamento
COGCNDCF (feurtab)	Indexed	Condizioni cliente/fornitore: record condizione "DF" (dati fornitore) con stato approvazione e prodotto
COGAPPOG (feurtab)	Indexed	Appoggio anagrafica: telefono e fax del fornitore
FLSTA	Sequential, output	File di stampa

Sottoprogrammi chiamati

Programma	Scopo
COGS54	Gestione output stampa (selezione destinazione, anteprima, chiusura con s54-after-print = "S")
RNEWCONF	Lettura configurazione QUALITA.CNF (chiave = program-id): descrizione qualita' per intestazione personalizzata

Logica di elaborazione

Programma interattivo con maschera a parametri, poi routine di stampa.

• apri / a4: inizializzazione, apertura file, caricamento configurazione (x99-confi), default tm-cli-for = "F" e tm-tipo-ord = "A" (alfabetico).
• Selezione parametri tramite paragrafi a-tm-tipo-ord (ordinamento), a-tm-idonei, a-tm-non-idonei, a-tm-cert, a-tm-fase: check che abilitano/escludono le categorie di stato approvazione da stampare. Il controllo x-controlla-selezioni impone di selezionare almeno una opzione.
• a-riga-fine: conferma (F3), invoca COGS54 per la destinazione.
• stampa / a6 / a7: posiziona su COGGEANA (chiave primaria se tm-tipo-ord = "N", altrimenti chiave alternata chia1) filtrando su ana-tipo = tm-cli-for. Per ogni fornitore legge COGCNDCF condizione "DF"; salta se cnd-df-approv e' vuoto. In base a cnd-df-approv (1=Idoneo, 2=Non Idoneo, 3=Certificato, 4=In Fase di Certificazione) verifica se la categoria e' stata selezionata e imposta la dicitura in r2-approv; altrimenti salta il record.
• Per il record stampato legge COGAPPOG (telefono/fax) e scrive due righe: r1 (codice, ragione sociale, indirizzo, localita', provincia, CAP) e r2 (telefono, fax, prodotto fornito, stato approvazione).
• intesta: intestazione pagina con salto pagina, testata standard oppure testata personalizzata impernovo (quando az-personal = k-personal-impernovo), riportando la descrizione qualita' da configurazione.

Larghezza stampa: 132 caratteri (k-chr-stampa).

Note

• Copybook screen designer: cogp70.select / cogp70.fd / cogp70.wrk / cogp70.prc / cogp70.decla / cogp70-01.scr.
• Copybook file/record: feurtab.fd, cogfiles.cpy, flsta.fd/flsta.cpy.
• Include coggeana.k02 (routine chiave secondaria) aggiunta manualmente in coda alla procedure division, usata per l'ordinamento alfabetico (st-coggeana-notmin-chia1).
• Copybook standard: wgrave, wnscr, wopenf, wstato, cogazien, k-personal, utilncnf, utils54, mmmask.
• La testata personalizzata testa-impernovo viene emessa con prefissi stringa C08/CRE (codici di controllo stampa) quando l'azienda e' del gruppo impernovo.