COGG42 - Cancellazione RMA
Sorgente: cbl/cogg42.cbl | Program-ID: COGG42 | Tipo: Interattivo con maschera text-mode
Menu: Magazzino > Entrate > RMA; Uscite > Conto Anticipo
Scopo
Cancellazione dell'ultimo livello di classe applicato a un RMA o Conto Anticipo. Visualizza la situazione corrente (righe con serial number, merci entrata/uscita, stato, documenti creati) e consente la cancellazione tramite COGU30 con operazione "delete-doc".
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 |
| COGAPPOG |
Tabella |
Input |
Tabella appoggio |
| COGMATRI |
Tabella |
Input |
Archivio matricole |
| COGGENER |
Tabella |
Input |
Tabella generica (documenti creati RMA) |
| COGRMATS |
Tabella |
I-O |
Testata RMA |
| COGRMARG |
Tabella |
Input |
Righe RMA |
| COGRMADT |
Tabella |
Input |
Dettaglio RMA |
| COGRMACL |
Tabella |
Input |
Classi RMA |
Copybook utilizzate
| Copybook |
Descrizione |
k-rma.cpy |
Costanti RMA (tipi documento, classi, ecc.) |
wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy |
Working storage comuni |
cogazien.cpy |
Dati azienda |
utilg35.cpy |
Interfaccia COGU35 |
utils23.cpy |
Interfaccia COGS23 |
utils52.cpy |
Interfaccia COGS52 (accept date) |
utils68.cpy |
Interfaccia COGS68 (accept merce) |
utils88.cpy |
Interfaccia COGS88 (validazione causali) |
utils89.cpy |
Interfaccia COGS89 |
utilu20.cpy |
Interfaccia COGU20 |
utilu30.cpy |
Interfaccia COGU30 (creazione/cancellazione documenti) |
utilw68.cpy |
Interfaccia WIN068 |
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 |
utilg41.cpy |
Interfaccia COGG41 (situazione RMA) |
utilg42.cpy |
Parametri in ingresso: caller, called, rma-key |
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 |
tm-ana |
compound |
Anagrafica: tipo X(1) + codice 9(5) |
tm-last-level |
9(04) |
Ultimo livello classe applicata |
tm-clm-cod |
X(03) |
Codice classe corrente |
tm-clm-des |
X(30) |
Descrizione classe corrente |
tm-clm-data |
9(08) |
Data inserimento classe |
tm-fl-cambio-merce |
X(01) |
Flag cambio merce nella classe |
tm-fl-cambio-sn |
X(01) |
Flag cambio serial number nella classe |
tm-codice-ric |
X(20) |
Codice ricerca/chiamata |
Griglia righe (tm-tab-righe, max k-t-size = 900)
| Variabile |
PIC |
Descrizione |
tm-rig(i) / tm-det(i) |
9(04) |
Riga e dettaglio |
tm-merce-ent(i) / tm-merce-usc(i) |
X(09) |
Merce entrata/uscita |
tm-mat-ent(i) / tm-mat-usc(i) |
compound |
Matricola entrata/uscita |
tm-sn-e(i) / tm-sn-u(i) |
X(30) |
Serial number entrata/uscita |
tm-qta(i) |
9(06)v999 |
Quantita' riga |
tm-qta-ent(i) / tm-qta-prc(i) / tm-qta-usc(i) |
9(06)v999 |
Quantita' entrata/processata/uscita |
tm-dif-dic(i) / tm-dif-ris(i) |
X(04) |
Differenza dichiarata/riscontrata |
tm-stato(i) |
X(01) |
Stato riga |
Documenti creati (tm-tab, max k-t-size = 900)
| Variabile |
PIC |
Descrizione |
tt-doc(i) |
compound |
Documento (mag+anno+tipo+num) o ordine o fattura |
tt-cau-cod(i) / tt-cau-des(i) |
9(02) / X(20) |
Causale e descrizione |
tt-tip-doc(i) |
X(01) |
Tipo documento (bolla/ordine/fattura) |
Doppia modalita'
Come COGG41, opera in modalita' RMA (default) o Conto Anticipo (wo-parametro = "A"), con adattamento maschera.
Flusso principale
- a000 - Inizializzazione, gestione called, apertura file, adattamento maschera
- a4 - Reset maschera, setup ricerca
- a-5-ricerche / a-5-anno / a-5-cod - Ricerca RMA
- a-5-read - Lettura testata COGRMATS, verifica che esista almeno una classe applicata (
rmt-last-rmc-level > 0), lettura anagrafica
- a1-creo-tabe - Caricamento righe RMA per il livello corrente
- a2-carico-doc - Caricamento documenti creati da COGGENER (tipo
k-gnr-tip-rma-doc)
- a3-disp-doc - Display documenti (fino a 3 righe x 3 documenti per riga = 9 documenti)
- a65 / b-10 - Navigazione righe
Cancellazione (acc-50)
- Richiesta conferma
- Verifica abilitazione aggiornamento (
w-abi-agg)
- Chiamata COGU30 con:
u30-ope = "delete-doc" - Operazione cancellazioneu30-i-doc-tip = "R" - Tipo documento RMAu30-i-doc-cod = tm-rma-key - Chiave RMAu30-i-level = tm-last-level - Livello da cancellareu30-i-fl-forza-creati = "S" - Forza cancellazione documenti creati
- COGU30 cancella i documenti di magazzino e aggiorna lo stato RMA
Chiamate esterne
| Programma |
Scopo |
| COGS52 |
Accept date con calendario |
| COGS88 |
Validazione causali magazzino |
| COGS89 |
Utility generica |
| COGG41 |
Situazione RMA (F8 dalla griglia) |
| COGU30 |
Cancellazione documenti (operazione delete-doc) |
| WIN107 |
Ricerca RMA con filtri |
| WIN109 |
Visualizzazione classi applicate (F9) |
| WIN110 |
Visualizzazione documenti creati (F5) |
| COGS68 |
Accept merce |
Note
- La maschera mostra fino a 9 documenti creati nella sezione superiore (3 righe x 3 colonne), con tipo (bolla/ordine/fattura) e causale.
- La struttura classi usa
w-gnr-clm per decodificare i dati della classe (tipo documento, causale, magazzino, flag cambio merce/SN).
- COGMERCI e' dichiarato come
is external.
- La
k-rma.cpy contiene le costanti per i tipi di documento RMA (k-clm-tip-doc-fat-imm, k-clm-tip-doc-ord-for, k-clm-tip-doc-ord-cli, ecc.).