COGQB6 - Gestione registro ISIR¶
Posizione nel menu Programma non a menu Linkage section
| Tipo | Dato | Formato | Contenuto |
|---|---|---|---|
| INPUT | COGQB6-OPE | x(20) | Vedi argomenti successivi |
| COGQB6-ORDINE | Ordine | Testata ordine interessata all'operazione | |
| COGQB6-ORD-RIGA | 9(04) | Riga ordine interessata all'operazione | |
| I-O | COGQB6-REG-TIP | x(01) | Tipo registro (Vedi ISIR-TIP) |
| COGQB6-REG-ANN | 9(04) | Anno registro | |
| COGQB6-REG-NUM | 9(06) | Numero registro | |
| OUTPUT | COGQB6-ESITO | x(01) | Esito dell'operazione |
| COGQB6-MSG | x(200) | Messaggio restituito | |
| FILLER | x(500) |
Logica generale Gestione delle operazioni principali sulla tabella COGISIRR Configurazioni
| Gruppo | Parametro | Note |
|---|---|---|
Elaborazione L'elaborazione cambia a seconda dell'operazione richiesta.
Operazione: "INS-REG-ISIR"¶
Descrizione Riceve in input una riga ordine, e crea una riga sul registro ISIR. Chiamata standard
| Dato | Contenuto |
|---|---|
| COGQB6-OPE | INS-REG-ISIR |
| COGQB6-ORDINE | Testata ordine interessata all'operazione |
| COGQB6-ORD-RIGA | Riga ordine interessata all'operazione |
Elaborazione Inizializzare i campi di output: * COGQB6-REG-* Ricerca riga ordine Viene eseguita la lettura della riga ordine. Deve esistere, e deve essere abilitata alla gestione ISIR (RAR-FL-ISIR = "S") Controllo esistenza registro sulla riga Se e' gia' presente una riga di registro collegata alla riga ordine, significa che ho gia' effettuato l'operazione, quindi non faccio nulla. Do' per scontato che non sia un errore, perche' magari il programma chiamante non ha controllato correttamente il cambio di stato su RAR-FL-ISIR. Controllo esistenza registro su merce/cliente Non controllo se e' gia' presente una riga di registro relativa alla stessa combinazione cliente/merce: potrebbe essere una richiesta voluta per ripetere il processo di approvazione. Creazione posizione su registro Questa operazione corrisponde a creare un recordo con tipo "I" su COGISIRR, con tutti i dati di default prelevati dall'ordine stesso.
Operazione: "DEL-ISIR-ORDINE"¶
Descrizione Riceve in input una testata ordine, ed elimina le righe di registro ISIR per tutte le righe non più esistenti di un ordine. E' utile sia in caso di variazione che di cancellazione ordine. Chiamata standard
| Dato | Contenuto |
|---|---|
| COGQB6-OPE | DEL-ISIR-ORDINE |
| COGQB6-ORDINE | Testata ordine interessata all'operazione |
Elaborazione Si scorrono tutte le righe di registro relative all'ordine interessato. Per ciascuna riga si cerca l'esistenza della riga ordine. Se la riga: * Non esiste * Esiste, ma non ha la spunta "ISIR" allora si esegue la cancellazione fisica del relativo record COGISIRR
Estratto da documentazione interna ClickUp