COGS0C - Gestione tabella COGLISML¶
Posizione nel menu Programma non a menu Linkage section
| Tipo | Dato | Formato | Contenuto |
|---|---|---|---|
| INPUT | COGS0C-OPERAZIONE | x(20) | Operazione da eseguire |
| COGS0C-MERCE | merce | Codice merce da elaborare | |
| COGS0C-TIP-LIS | x(01) | Tipo listino da elaborare | |
| COGS0C-RIF | 9(05) | Riferimento listino da elaborare | |
| COGS0C-CALLER | x(08) | Nome programma chiamante | |
| OUTPUT | COGS0C-O-ESITO | x(01) | Esito dell'elaborazione: |
| COGS0B-O-MSG | x(300) | Contiene un messaggio da parte della subroutine al programma chiamante | |
| FILLER | x(500) |
Procedure collegate Logica generale Questo programma, permette di gestire il record COGMERLT riferito ad una merce / listino. Elaborazione L'elaborazione cambia a seconda dell'operazione richiesta
Operazione: AGGIORNA¶
Descrizione Si riceve un abbinamento tra merce e listino; si determina come aggiornare il record COGMERLT relativo: * Se esiste almeno un listino valido per la combinazione, verrà inserito/aggiornato il record e reso valido * Se non esiste nessun listino valido per la combiazione, il record sarà reso "cancellato" Chiamata standard
| Dato | Contenuto |
|---|---|
| COGS0C-OPERAZIONE | "AGGIORNA" |
| COGS0C-MERCE | Merce da elaborare |
| COGS0C-TIP-LIS | Tipo listino da elaborare |
| COGS0C-RIF | Riferimento listino da elaborare |
La funzione restituirà quindi
| Dato | Contenuto |
|---|---|
| COGQSC-ESITO | Esito dell'operazione |
| COGQSC-MSG | Messaggio restituito |
Elaborazione Ricerca listino valido Si scorre COGLISNW all'indietro per la combinazione merce/listino. Il listino è valido se viene trovato almeno un record su COGLISNW: * Non cancellato (LNW-VAL <> "C") * Con il prezzo <> 0, oppure LNW-FL-ZERO = "S" Aggiornamento: listino valido Cercare l'esistenza del record COGLISML corrispondente alla combinazione; se il record non esiste va inserito. Se il record esiste ed è cancellato logicamente, ripristinarlo togliendo la cancellazione logica. In tutti gli altri casi aggiornare il record trovato. Aggiornamento: listino non valido Cercare l'esistenza del record COGLISML corrispondente alla combinazione; se il record non esiste non fare nulla. Se il record esiste ed è valido, effettuare la cancellazione logica. Al termine restituire i dati al prg chiamante:
| Dato | Contenuto |
|---|---|
| COGQSC-ESITO | Esito dell'operazione |
| COGQSC-MSG | Messaggio restituito |
Estratto da documentazione interna ClickUp