COGG41 - Situazione RMA
Sorgente: cbl/cogg41.cbl | Program-ID: COGG41 | Tipo: Interattivo con maschera text-mode
Menu: Magazzino > Entrate > RMA; Uscite > Conto Anticipo
Scopo
Visualizzazione della situazione di un RMA (Return Merchandise Authorization) o Conto Anticipo. Mostra testata, righe con quantita' entrate/uscite e stato, con possibilita' di navigare al dettaglio riga (COGG38), alle classi applicate (WIN109) e ai documenti creati (WIN110).
File e tabelle
| File/Tabella |
Tipo |
Modalita' |
Descrizione |
| FEURTAB |
Tabella |
Input |
Tabella generale Eurosystem |
| COGTABEL |
Tabella |
Input |
Tabelle di sistema |
| COGMERCI |
Tabella |
Input (external) |
Anagrafica merci |
| COGGEANA |
Tabella |
Input |
Anagrafica clienti/fornitori |
| COGTESBO |
Tabella |
Input |
Testata bolle magazzino |
| COGRMATS |
Tabella |
Input |
Testata RMA |
| COGRMARG |
Tabella |
Input |
Righe RMA |
| COGRIFER |
Tabella |
Input |
Riferimenti/contatti |
Copybook utilizzate
| Copybook |
Descrizione |
wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy |
Working storage comuni |
cogazien.cpy |
Dati azienda |
utils52.cpy |
Interfaccia COGS52 (accept date) |
utils68.cpy |
Interfaccia COGS68 (accept merce) |
utilw107.cpy |
Interfaccia WIN107 (ricerca RMA) |
utilw109.cpy |
Interfaccia WIN109 (classi applicate) |
utilw110.cpy |
Interfaccia WIN110 (documenti creati) |
Linkage
| Copybook |
Descrizione |
wcont.cpy, wcont1.cpy |
Contesto chiamante |
utilg38.cpy |
Interfaccia COGG38 (dettaglio riga RMA) |
utilg41.cpy |
Parametri in ingresso/uscita: fl-invio, caller, called, rma-key (tipo+anno+num+ana2+riga+det) |
Struttura del programma
Variabili della maschera (tab-maschera)
| Variabile |
PIC |
Descrizione |
tm-rma-key |
compound |
Chiave RMA: tipo X(1) + anno 9(4) + num 9(8) + ana2-tip X(1) + ana2-cod 9(5) |
tm-ana |
compound |
Anagrafica: tipo X(1) + codice 9(5) |
tm-riferimento |
compound |
Tipo riferimento X(1) + codice 9(10) |
tm-codice-ric |
X(20) |
Codice ricerca/chiamata |
Griglia righe (tm-tab-righe, max 10)
| Variabile |
PIC |
Descrizione |
tm-rig(i) |
9(04) |
Numero riga |
tm-merce-ent(i) |
X(09) |
Codice merce entrata (gru+sot+cod) |
tm-desc-e(i) |
X(36) |
Descrizione |
tm-qta-ent(i) |
9(06)v999 |
Quantita' entrata |
tm-qta-usc(i) |
9(06)v999 |
Quantita' uscita |
tm-stato(i) |
X(11) |
Stato riga |
Doppia modalita'
Il programma opera in due modalita', determinate dal parametro wo-parametro:
| Modalita' |
Parametro |
Tipo RMA |
Titolo |
| RMA |
(default) |
C (cliente) |
Situazione RMA |
| Conto Anticipo |
"A" |
A (anticipo) |
Situazione Conto Anticipo |
La maschera viene adattata: in modalita' Conto Anticipo, le etichette cambiano e l'ordine delle colonne qta entrata/uscita si inverte.
Flusso principale
- a000 - Inizializzazione, gestione called (COGG41-CALLED), apertura file, lettura azienda
- a4 - Reset maschera, setup ricerca
- a-5-ricerche - Ricerca tramite WIN107
- a-5-anno / a-5-cod - Accept anno e numero RMA
- a-5-read - Lettura testata COGRMATS, lettura anagrafica, lettura riferimento/contatto, lettura documento entrata (COGTESBO), scansione righe (rst-next)
- b-05 / b-10 - Navigazione righe con reverse video, gestione tasti funzione
Scansione righe (rst-next / rst-previous)
Scansione COGRMARG per chiave testata RMA. Carica in pagine da 10 righe (t-size). Per ogni riga, compone la riga di display con codice merce, quantita' entrata, uscita e stato. Supporta paginazione avanti (PgDn) e indietro (PgUp).
Tasti funzione gestiti
| Tasto |
Paragrafo |
Azione |
| Invio |
b-10 |
Se lnk-g41-fl-invio = "S", restituisce la riga selezionata; altrimenti chiama COGG38 per dettaglio riga |
| F8 |
b-10 |
Dettaglio prodotto (x6-dettag) |
| F9 |
b-10 |
Classi applicate (WIN109) |
| F5 |
b-10 |
Documenti creati (WIN110) |
| PgUp/PgDn |
b-10 |
Navigazione pagina |
Modalita' CALLED
Se g41-called = 'COGG41-CALLED', la chiave RMA viene preimpostata e si salta direttamente alla lettura. In uscita, util-g41 viene valorizzato con la riga selezionata (se fl-invio = "S").
Chiamate esterne
| Programma |
Scopo |
| COGS52 |
Accept date con calendario |
| COGG38 |
Dettaglio riga RMA (Invio) |
| WIN107 |
Ricerca RMA con filtri |
| WIN109 |
Visualizzazione classi applicate (F9) |
| WIN110 |
Visualizzazione documenti creati (F5) |
Note
- La griglia supporta max 10 righe per pagina con paginazione manuale.
- COGMERCI e' dichiarato come
is external per condivisione con sottoprogrammi.
- Il display delle righe usa
str-reverse con controllo ctr-reverse per evidenziare la riga corrente.