COGP11 - Stampa Merci con Fornitore¶
Sorgente: cbl/cogp11.cbl | Tipo: Programma a menu (stampa) | Program-ID: COGP11
Menu: Magazzino > Archivi & Tabelle > Stampe > Merci > Con Fornitore
Scopo¶
Stampa l'elenco delle merci con il rispettivo fornitore di riferimento, codice merce del fornitore e prezzo di acquisto/listino. Supporta ordinamento per fornitore o per merce e filtri (range merci, fornitore singolo, classe, solo preferenziale, riferimento). Usa un file SORT esterno (flsort) per ordinare i dati.
File e Tabelle¶
| File/Tabella | Uso |
|---|---|
| FEURTAB | Parametri generali |
File da cogp11.select |
Anagrafica merci, fornitori, listini |
| FLSTA | Output stampa |
| FLSORT | File SORT temporaneo per ordinamento |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGS54 | Selezione stampante |
| COGU10 / COGU16W | Utility input divisa |
| COGS50 | Apertura file divisa (gestita da s50-fl-opn) |
| COGS65 / COGS68 | Utility ricerca/combo (per selezione merci/fornitori) |
| COGS60 | Combo standard |
Copybook principali¶
- File:
feurtab.fd,cogp11.select,cogp11.fd,flsta.fd - Record:
cogfiles.cpy,flsta.cpy - Working:
cogp11.wrk,k-u10.cpy - Utility:
utils54,utilu10,utilu16,utils50,utils65,utils68,utilf60 - Standard:
wstato,wgrave,wopenf,wnscr,cogazien - Linkage:
wcont,util021,wcont1 - Screen:
cogp11-01.scr
Costanti¶
k-chr-stampa = 183w-siz-merce = 42w-cur-id = "SRMF"— ID cursore SORT
Struttura SORT (recsort)¶
| Campo | Descrizione |
|---|---|
| s-codfor | Codice fornitore + ragione sociale |
| s-merce | Descrizione merce interna |
| s-cod-mer-for | Codice merce assegnato dal fornitore (gru/sot/cod) |
| s-merce-inter | Codice merce interna (gru/sot/cod) |
| s-c-merce-f / s-d-merce-f | Codice e descrizione fornitore |
| s-divisa / s-divisa-lfo | Divise |
| s-listino / s-lis-val | Prezzo listino e valorizzato |
Logica di elaborazione¶
- Apertura (
apro): apre file, attiva tasti, prepara mask. - Input parametri (multipli accept): ordinamento, range merci, fornitore, tipo elaborazione, valorizzazione, solo preferenziale, classe, riferimento.
- Selezione del SORT:
- Se
tm-elab = 'F': SORT sus-codfor s-merce(per fornitore) - Altrimenti: SORT su
s-merce(per merce) - Input procedure (
elabora): scansione anagrafica fornitori-merci (definita in select), filtraggio in base ai parametri, popolamentorecsortereleaseal SORT. Lookup divisa, listino, ricarico. - Output procedure (
stampa):returndei record ordinati e produzione del report con intestazione, righe di dettaglio, totali e cambio pagina. - Chiusura: COGS54 finalizzazione, cancel programmi.
Note¶
- Il SORT esterno permette di gestire grandi volumi senza limiti di memoria.
- I parametri di filtro modificano sia la fase di elaborazione (skip dei record non rilevanti) sia la presentazione (intestazione del report).
- Convenzioni standard Eurocoge GUI.