COGL07 - Gestione Merci Temporanee
Panoramica
Programma interattivo per la gestione dell'anagrafica merci temporanee (tabella COGMERTP). Consente inserimento, variazione e cancellazione di merci che non fanno parte dell'anagrafica ufficiale (COGMERCI) ma vengono utilizzate nelle pre-distinte per la preventivazione. La maschera e' in formato testo (non Screens). Circa 591 righe.
| Menu |
Percorso |
| Magazzino |
Produzione > Distinte-Preventivo > Merci Temporanee |
Struttura del programma
File e tabelle utilizzati
| File/Tabella |
Tipo |
Descrizione |
| FEURTAB |
Input |
Tabella di sistema |
| COGMERCI |
Input |
Anagrafica merci ufficiale (per verifica duplicati) |
| COGMERTP |
I-O |
Anagrafica merci temporanee (tabella principale) |
Copybook principali
| Copybook |
Descrizione |
| cogmerci.cpy |
Record anagrafica merci |
| cogmertp.cpy |
Record merci temporanee |
| cogfiles.cpy |
Descrizione FEURTAB |
| utilu10.cpy |
Interfaccia COGU10 per divise |
| k-u10.cpy |
Costanti COGU10 |
| cogazien.cpy |
Dati azienda |
Chiamate a sottoprogrammi (CALL)
| Programma |
Scopo |
| COGU10 |
Gestione divise: accept prezzo con conversione, cambio valuta |
| COGS12 |
Ricerca merce temporanea (F8) |
Logica di elaborazione
Flusso principale
- Inizializzazione (
a000): apre file, legge dati azienda, prepara maschera testo (8 righe x 63 colonne).
- Input codice (
a4, a10-gru/sot/cod): accept del codice merce nel formato Gruppo/Sottogruppo/Codice. Valida il gruppo e sottogruppo contro una tabella di 37 caratteri ammessi (0-9, spazio, A-Z). F8 apre la ricerca (COGS12).
- Verifica duplicati (
a30): controlla che il codice non esista in COGMERCI (anagrafica ufficiale). Se esiste, blocca con errore. Poi cerca in COGMERTP:
- Se esiste: carica i dati e va in visualizzazione/variazione
- Se non esiste: va in inserimento
- Visualizzazione (
visualizza): mostra codice, descrizione, prezzo (convertito nella divisa di conto).
- Variazione (
variazione): accept descrizione e prezzo, con possibilita' di cancellazione (F4). Alla conferma (F3): legge con lock, riscrive il record COGMERTP.
- Inserimento (
inserimento): accept descrizione e prezzo. Alla conferma (F3): scrive nuovo record COGMERTP con mtp-padre = ' '.
- Cancellazione (
cancella): chiede conferma, poi DELETE su COGMERTP.
Struttura del record COGMERTP
| Campo |
Tipo |
Descrizione |
| mtp-chia (chiave) |
x(9) |
Codice merce: gru(2) + sot(2) + cod(5) |
| mtp-descr |
x(36) |
Descrizione |
| mtp-pre |
9(12)v9(6) |
Prezzo |
| mtp-currency |
x(2) |
Divisa del prezzo |
| mtp-padre |
x(1) |
"P" = merce padre (pre-distinta), " " = componente |
Note tecniche
- La maschera e' in formato testo classico (non generata da Screens): definita inline come
mm-1 con 8 righe da 63 caratteri.
- Il programma usa
PERFORM ... THRU per le sezioni di controllo stato e gestione errori.
- La conversione valuta del prezzo avviene all'ingresso (da divisa originale a divisa di conto) tramite COGU10 con operazione "Cambio".
- Il codice Gruppo e Sottogruppo possono essere alfanumerici (lettere A-Z e cifre 0-9); il codice e' numerico a 5 cifre.