COGY20 -- Estrazione Dati Trasporto¶
Sorgente: cbl/cogy20.cbl | Tipo: Elaborazione + Stampa | Program-ID: COGY20
Menu: Vendite > Trasporti > Trasporti 2 > Estrazione trasporti
Scopo¶
Estrae e consolida i dati dei trasporti dalle bolle di vendita per un determinato periodo. Raccoglie informazioni su destinatari, vettori, costi e pagamenti dai documenti di trasporto (DdT e fatture accompagnatorie), producendo un archivio riepilogativo per la rendicontazione e la liquidazione dei trasportatori.
File utilizzati¶
| File | Accesso | Scopo |
|---|---|---|
| FEURTAB (cogfiles) | Input | Parametri generali |
| File trasporti | Input | Dati trasporti (via cogy20.select/fd) |
Copybook principali¶
| Copybook | Descrizione |
|---|---|
| cogy20.select | SELECT file del programma |
| cogy20.fd | File description |
| cogy20.wrk | Working storage (Screens) |
| cogfiles.cpy | Record FEURTAB |
| k-personal.cpy | Costanti personalizzazione cliente |
Variabili principali¶
| Variabile | Tipo | Descrizione |
|---|---|---|
| w-dataprog.w-da-data | 9(08) COMP-4 | Data inizio periodo |
| w-dataprog.w-a-data | 9(08) COMP-4 | Data fine periodo |
| fl-errore | X(01) | Flag errore elaborazione |
| fl-scrivi-costi-cogtesap | X(01) | Flag scrittura costi su COGTESAP |
| fl-ha-num-trasp | X(01) | Flag presenza numero trasporto |
| fl-pagamento | X(01) | Flag tipo pagamento |
| fl-cli-estero | X(01) | Flag cliente estero |
Note implementative¶
- Autore: Claudio Chiossi.
- Accesso a COGTESBO originariamente commentato (codice legacy).
- Usa k-personal.cpy per personalizzazioni specifiche per cliente.