TEMPO814 - Inizializzazione nuovo campo su COGTESAP (TSA-MERCE)¶
| Campo | Valore |
|---|---|
| Sorgente | cbl/tempo814.cbl |
| Tipo | Utility di conversione una-tantum (maschera) |
| Program-ID | TEMPO814 |
| Menu | Non a menu (utility tecnica da lanciare manualmente) |
| Righe sorgente | ~335 |
Descrizione¶
Utility di conversione una-tantum che inizializza il nuovo campo tsa-merce aggiunto al
tracciato di COGTESAP (dati aggiuntivi del documento di magazzino). Va eseguita una sola volta
dopo l'estensione del tracciato, per azzerare il campo su tutti i record gia' presenti.
I programmi tempo* sono per convenzione utility tecniche temporanee: scorrono un archivio e
applicano una correzione/inizializzazione massiva, poi non vengono piu' utilizzati.
E' il compagno di migrazione della TASK-5831 di COGE51: il campo tsa-merce
(codice merce "Centro di Costo", articolo Servizio) e' valorizzabile in testata al DDT e, quando
presente, guida la generazione dei movimenti centri di costo. TEMPO814 garantisce che i record
storici partano con tsa-merce azzerato.
File e tabelle¶
| File/Tabella | Tipo | Descrizione |
|---|---|---|
| COGTESAP (tsa) | I-O | Dati aggiuntivi documento di magazzino. Chiave primaria tsa-chia1 (testata documento), chiavi alternate tsa-chia2 (esportato) e tsa-chia3 (data/ora aggiornamento) |
| FEURTAB (feurtab) | Input | Parametri generali azienda (cogazien) |
Il campo inizializzato e':
| Campo | Descrizione |
|---|---|
tsa-merce |
Codice merce "Centro di Costo" (gruppo tsa-gru + sottogruppo tsa-sot + codice tsa-cod). Se abilitata la gestione centri di costo puo' essere valorizzato con una merce 'servizio' |
Logica di elaborazione¶
Il programma presenta una maschera di conferma ("Inizializza nuovo campo su COGTESAP"); alla
conferma (F3) esegue il paragrafo elabora:
- Scorre tutti i record di COGTESAP dalla prima posizione (
st-cogtesap-notmin+rdnxt-cogtesap). - Per ogni record azzera
tsa-merce(initialize tsa-merce) e riscrive il record (rewrite). - Aggiorna a video il contatore dei record letti ogni 100 record.
Al termine mostra il messaggio "Elaborazione corretta." con il totale dei record elaborati.
Note¶
- L'esecuzione e' idempotente sul valore (riazzera il campo), ma riscrive l'intero archivio: va lanciata una sola volta a ridosso della modifica del tracciato.
- All'avvio il programma verifica
az-personal: per il cliente Scuola Edile (az-personal = "SC") l'elaborazione e' gia' stata effettuata, quindi la utility esce subito senza riscrivere COGTESAP. - Il campo
tsa-merceinizializzato qui e' letto da COGE51 (TASK-5831) per pilotare la contabilita' analitica dei centri di costo.
Documentazione tecnica