COGT99 - Cancellazione massiva DDT da numero a numero
Scopo
Utility di cancellazione in blocco di DDT/Bolle per un range numerico (da Da a A) su un magazzino/tipo. Prima di cancellare ogni documento verifica la presenza di una fattura associata in COGRACCO (collegamento fatture-DDT): se trovata, salta il DDT. La cancellazione effettiva e' delegata a COGU11, che gestisce anche eventuali kit e giacenze.
File e tabelle
| File |
Tipo |
Descrizione |
| COGTESBO |
Indicizzato |
Testata bolle/DDT |
| COGRACCO |
Indicizzato |
Collegamento fatture-DDT (controllo associazione) |
| COGTRANS2 |
Indicizzato |
Verifica rac-key-bolla |
| TGLPRRIG / TGLPRRIP |
Indicizzati |
Gestione kit (se configurato) |
Copybook
| Copybook |
Sezione |
Utilizzo |
| cogt99.wrk |
WORKING-STORAGE |
Generato da Screens |
| utilncnf.cpy |
WORKING-STORAGE |
Configurazione RNEWCONF |
CALL
| Programma |
Quando |
Scopo |
| COGU11 |
Per ogni DDT non fatturato |
Cancellazione reale con gestione kit e giacenze |
| RNEWCONF |
Avvio |
Legge configurazione DB scaglioni/esclusione (euta-c041-db-sca, euta-c041-db-esc), gestione kit |
| COGS65W |
Eventuale lookup |
Lookup |
Logica di elaborazione
Flusso principale
- Input parametri: magazzino, anno, tipo, range numero (Da, A).
- Validazione: campi obbligatori, esistenza DDT Da/A, A ≥ Da.
- Conferma utente esplicita per l'intero range.
- Loop su ogni numero Da..A:
- lettura COGTESBO;
- verifica
rac-key-bolla in COGTRANS2 con chiave COGTESBO.chia3;
- se associato a fattura: skip;
- altrimenti CALL COGU11 con i parametri (
i-mm-mag, i-mm-tip, i-mm-num, i-mm-ann, i-cfg-db-sca, i-cfg-db-esc, i-cfg-gestione-kit).
- Messaggio di completamento.
Note tecniche
- Prima della CALL COGU11 viene eseguita
UNLOCK ALL per rilasciare eventuali lock.
M-view-msg = 'S' mostra i messaggi di COGU11.- L'utility e' irreversibile: pensata per ripulire numerazioni errate o documenti di test.
Note operative
- Operazione distruttiva: documentare l'uso e fare backup preventivo.
- Non opera sui DDT gia' fatturati (protezione automatica).