COGP00 - Esportazione Listino da Modelli
Sorgente: cbl/cogp00.cbl | Program-ID: COGP00 | Tipo: Interattivo (raccolta parametri + elaborazione batch)
Menu: Magazzino > Archivi & Tabelle > Listino Vendita > Esportazione da modelli
Scopo
Esportazione del listino vendita su file utilizzando modelli di stampa predefiniti (gestiti da COGPA9). L'utente imposta i parametri di filtro (intervallo merci, tipo listino, data, cliente), seleziona un modello, e il programma genera il file di output scorrendo le merci e applicando i criteri di selezione e formattazione.
File e tabelle
| File/Tabella |
Tipo |
Modalita' |
Descrizione |
| FEURTAB |
Tabella |
Input |
Tabella generale Eurosystem |
| COGMERCI |
Tabella |
Input |
Anagrafica merci |
| COGMERAP |
Tabella |
Input |
Dati aggiuntivi merci |
I file acceduti sono quelli dichiarati in cogp00.select tramite Screen Designer.
Copybook utilizzate
| Copybook |
Descrizione |
cogfiles.cpy |
Struttura generica FEURTAB |
cogp00.select |
SELECT file generati da Screens |
cogp00.fd |
FD file generati da Screens |
cogp00.wrk |
Working storage generata da Screens |
cogp00-01.scr |
Maschera grafica |
cogp00.decla |
Declaratives |
cogp00.prc |
Procedure copy generate da Screens |
k-u10.cpy |
Costanti per conversione divise |
k-personal.cpy |
Costanti personalizzazione azienda |
k-modelli-ie-e-listino-vendita.cpy |
Definizione modelli import/export listino |
wstato.cpy |
Working stato |
wopenf.cpy |
Working apertura file |
wgrave.cpy |
Working errori gravi |
wnscr.cpy |
Working screen |
cogazien.cpy |
Dati azienda |
utils52.cpy |
Interfaccia COGS52W (date/calendario) |
utils54.cpy |
Interfaccia COGS54 (gestione stampa) |
utilu10.cpy |
Interfaccia COGU10W (conversione divise) |
utilu16.cpy |
Interfaccia COGU16W (ordinamento merci) |
utilw96.cpy |
Interfaccia WIN096 |
utils65.cpy |
Interfaccia COGS65W (ricerca cliente/fornitore) |
utils68.cpy |
Interfaccia COGS68W (ricerca merce) |
utilncnf.cpy |
Interfaccia RNEWCONF (configurazione) |
utilcogpa9.cpy |
Interfaccia COGPA9 (gestione modelli) |
utilgesstr.cpy |
Utility gestione stringhe |
utilcogs01.cpy |
Interfaccia COGS01 (ricerca prezzo listino) |
Linkage
| Copybook |
Descrizione |
wcont.cpy |
Contesto chiamante |
utils01.cpy |
Interfaccia COGS01 |
wcont1.cpy |
Contesto esteso |
Struttura del programma
Variabili della maschera (tab-maschera)
| Variabile |
PIC |
Descrizione |
tm-da-merce |
X(09) |
Codice merce iniziale (gru+sot+cod) |
tm-da-merce-des |
X(36) |
Descrizione merce iniziale |
tm-a-merce |
X(09) |
Codice merce finale |
tm-a-merce-des |
X(36) |
Descrizione merce finale |
tm-ordinamento |
X(01) |
Criterio di ordinamento |
tm-tipo-listino |
X(01) |
Tipo: "L" = Listino |
tm-tutti |
X(01) |
"T" = Tutte le merci, "N" = Solo con prezzo |
tm-prezzi-zero |
X(01) |
"S" = Includi prezzi zero, "N" = Escludi |
tm-fl-cmc |
X(01) |
"S" = Usa codici merce del cliente |
tm-listino |
9(02) |
Numero listino vendita |
tm-des-listino |
X(15) |
Descrizione listino |
tm-data |
9(08) |
Data di riferimento prezzi |
tm-cliente-lis |
9(05) |
Codice cliente per listino personalizzato |
tm-n-merci-elaborate |
9(08) |
Contatore merci elaborate |
Configurazione (tm-cfg)
| Variabile |
Descrizione |
tm-cfg-pre-db |
Flag inclusione prezzo distinta base |
tm-cfg-jump |
Flag salto pagina |
tm-uso-cminte |
Flag uso codice merce interno |
tm-uso-cmavan |
Flag uso codice merce avanzato |
Gestione modelli (COGPA9)
Il programma si interfaccia con COGPA9 per:
- Presentare all'utente la lista dei modelli di esportazione disponibili (copybook
k-modelli-ie-e-listino-vendita.cpy)
- Ottenere la versione del modello selezionato (
w-cogpa9-id-versione)
- Generare il file di output secondo il layout del modello
Flusso principale
- apri - Inizializzazione, apertura file, lettura divisa di conto
- a4 - Reset maschera, default: data sistema, tutti, no prezzi zero, tipo "L", codici merce cliente "S"
- a-tm-ordinamento - Accept criterio di ordinamento (via COGU16W)
- a-tm-da-merce / a-tm-a-merce - Accept intervallo merci (COGS68W per ricerca)
- a-tm-tipo-listino - Accept tipo listino
- a-tm-tutti / a-tm-prezzi-zero / a-tm-fl-cmc - Accept opzioni di filtro
- a-tm-listino - Accept numero listino
- a-tm-data - Accept data (COGS52W con calendario)
- a-tm-cliente-lis - Accept cliente (COGS65W per ricerca)
- a-fine-dati - Validazione, selezione modello (COGPA9), avvio elaborazione
- b-elabora - Scansione merci, calcolo prezzi (COGS01), scrittura output
Chiamate esterne
| Programma |
Modalita' |
Scopo |
| COGPA9 |
CALL |
Gestione modelli import/export |
| COGS01 |
CALL |
Ricerca prezzo di listino |
| COGS52W |
CALL |
Gestione date con calendario |
| COGS65W |
CALL |
Ricerca cliente/fornitore |
| COGS68W |
CALL |
Ricerca merce con barcode |
| COGU10W |
CALL |
Conversione divise |
| COGU16W |
CALL |
Ordinamento merci |
| WIN096 |
CALL |
Finestra di selezione |
| RNEWCONF |
CALL |
Lettura configurazione |
Note
- I modelli di esportazione sono definiti nella copybook
k-modelli-ie-e-listino-vendita.cpy e gestiti da COGPA9.
- Il programma supporta l'esportazione con codici merce del cliente (
tm-fl-cmc = "S"): in questo caso, il codice merce riportato nel file e' quello definito nell'associazione merce-cliente.
- La data di riferimento determina quali prezzi di listino vengono considerati validi.
- L'ordinamento delle merci nel file e' gestito da COGU16W, che puo' ordinare per codice merce, descrizione, gruppo, ecc.
- Il contatore
tm-n-merci-elaborate viene aggiornato e visualizzato durante l'elaborazione per feedback all'utente.