Trasporti — Gestione costi di trasporto e contrassegni¶
Area funzionale: Vendite / Trasporti Programmi documentati: 6 | Righe totali analizzate: 8.488
Indice¶
1. Gestione operativa¶
COGY20 — Estrazione dati trasporto¶
File: /programmi/eurocoge/cbl/cogy20.cbl (959 righe)
Estrazione batch dei costi di trasporto dalle bolle. Per ogni DDT nell'intervallo date, calcola costi primario, secondario e accessori (contrassegno, riconsegna) usando tariffe vettori (COGVTTAR) e routine COGS72.
Parametri: Date da/a (default: mese corrente).
Logica: 1. Cancella movimenti precedenti da COGTRABO nel range 2. Scorre COGTESBO (chiave 2, per data), filtra per tipo I/C, vettore valido, trasporto non a cura mittente 3. Calcola peso/volume sommando righe COGMOMAG × COGMERCI 4. Determina costo primario: da bolla (tbo-tra-imp), manuale (COGTESAP) o calcolato (COGS72) 5. Costo secondario: se vettore 2 presente, ricalcola con COGS72 6. Accessori: contrassegno (COGS72), riconsegna (50% del primario) 7. WRITE COGTRABO: fino a 3 record per documento (P=primario, S=secondario, A=accessori)
File: COGTESBO (tbo-), COGTRABO (btr-), COGTESAP (tsa-), COGMOMAG (mag-), COGMERCI (mer-), COGVTTAR (vtt-), COGGEANA (ana-), COGTABEL (euta- tipo 47/22), FRMTESBO (tes-). CALL: COGS72, COGU10, DTPRG, PRGDT.
COGY21 — Controllo documenti trasporti¶
File: /programmi/eurocoge/cbl/cogy21.cbl (2.073 righe)
Controllo e modifica interattiva dei costi calcolati da COGY20. Griglia paginata con possibilita' di rettifica dei singoli costi (primario, secondario, riconsegna, giacenza, contrassegno, altri).
Parametri: Date da/a.
Logica: 1. Estrae COGTRABO per data → aggrega record P/S/A dello stesso documento in COGTRANS 2. Per ogni documento: lettura COGTESBO (cliente), COGGEANA (descrizione vettore/cliente), FRMTESBO (trasporto esterno), COGTESAP (accessori attivi) 3. Griglia: documento, data, cliente, vettore, costi P/S/riconsegna/giacenza/contrassegno/altri 4. Modifica riga: l'operatore rettifica singoli importi 5. F3 aggiornamento: REWRITE su COGTRABO per tipo P, S, A
File: COGTRANS (trs-), COGTRABO (btr-), COGTESBO (tes-), FRMTESBO, COGTESAP (tsa-), COGGEANA (ana-). CALL: COGU10W, GRIDADMN, DTPRG, PRGDT.
COGY22 — Simulazione fattura trasporti¶
File: /programmi/eurocoge/cbl/cogy22.cbl (3.054 righe)
Simulazione e registrazione fattura di trasporto per singolo vettore. Periodo di calcolo e periodo di consultazione (piu' ampio). Modifica costi e date competenza, associazione numero/data fattura fornitore.
Parametri: Codice vettore, date calcolo da/a, date consultazione da/a, tipo (primari+accessori / secondari / tutti), numero e data fattura fornitore.
Logica:
1. Scorre COGTRABO per chiave 2 (vettore+data competenza), esclude documenti gia' fatturati
2. Griglia: documento, data, cliente, costi dettagliati. Righe fuori periodo calcolo evidenziate
3. Modifica: variazione importi e data competenza (con riallocazione al periodo corretto)
4. Registrazione fattura (F3): scrive btr-fat-for e btr-data-fat-for su COGTRABO
File: COGTRANS (trs-), COGTRABO (btr-), COGTESBO (tes-), FRMTESBO, COGTESAP (tsa-), COGGEANA (ana-). CALL: COGU10W, COGS65W, GRIDADMN, DTPRG, PRGDT.
2. Visualizzazione e stampa¶
COGF56 — Visualizza contrassegni¶
File: /programmi/eurocoge/cbl/cogf56.cbl (1.706 righe)
Visualizzazione e stampa movimenti contrassegni (pagamenti alla consegna) associati ai trasporti. Filtro per vettore, tipo (pagato/non pagato/tutti), date.
Logica: Scorre COGTRASP per chiave 3 (vettore+data), recupera raccordo fattura da COGRACCO, importo da COGFATTU, nome cliente da COGGEANA. Griglia paginata con drill-down su fattura (WIN019). Stampa con subtotali per vettore.
File: COGTRANS (trs-), COGTRASP (tra-), COGRACCO (rac-), COGFATTU (fat-), COGGEANA (ana-), COGTABEL (euta- tipo 47). CALL: COGU10W, COGE18, WIN019, COGS54, GRIDADMN.
COGF83 — Note vettore per data¶
File: /programmi/eurocoge/cbl/cogf83.cbl (601 righe)
Gestione note testuali associate a un vettore per una data specifica. Modalita' standalone o called (linkage f83-called, f83-vet, f83-data, f83-serie). Note segmentate in record da 60 caratteri su COGNOTEV, concatenate per visualizzazione (max 2000 caratteri con CR+LF).
File: COGNOTEV (ntv-), COGGEANA (ana-), COGTABEL (euta- tipo 47). CALL: COGE18, COGS65W.
COGF82 — Stampa trasporti (dispatcher)¶
File: /programmi/eurocoge/cbl/cogf82.cbl (95 righe)
Dispatcher: cerca versione personalizzata COGF82xx (xx = az-personal), altrimenti chiama COGF82NO.
CALL: COGF82xx (dinamico), COGF82NO.
3. Flusso integrato¶
ESTRAZIONE:
└── COGY20 (batch: calcolo costi trasporto da bolle)
├── Legge COGTESBO + COGMOMAG + COGMERCI (peso/volume)
├── Calcola tariffe: COGVTTAR + COGS72
└── → WRITE COGTRABO (record P/S/A per documento)
CONTROLLO:
└── COGY21 (modifica interattiva costi)
├── Legge COGTRABO
└── → REWRITE COGTRABO
FATTURAZIONE:
└── COGY22 (simulazione fattura per vettore)
├── Legge COGTRABO per vettore
├── Modifica costi e date competenza
└── → REWRITE COGTRABO (numero + data fattura fornitore)
CONTRASSEGNI:
└── COGF56 (visualizzazione/stampa pagamenti alla consegna)
└── Legge COGTRASP + COGRACCO + COGFATTU
NOTE:
└── COGF83 (note testuali vettore per data)
└── COGNOTEV
STAMPA:
└── COGF82 (dispatcher → COGF82NO o personalizzato)
4. File principali¶
| File | Prefisso | Descrizione |
|---|---|---|
| COGTRABO | btr- | Costi trasporto elaborati (tipo P/S/A, costo, vettore, fattura fornitore) |
| COGTRASP | tra- | Movimenti trasporti (contrassegni) |
| COGTESAP | tsa- | Dati supplementari trasporto per documento |
| COGVTTAR | vtt- | Tariffe vettori trasporti |
| COGNOTEV | ntv- | Note testuali vettori per data |
5. Tabella riepilogativa¶
| # | Programma | Righe | Tipo | Funzione |
|---|---|---|---|---|
| 1 | COGY20 | 959 | Batch | Estrazione dati trasporto da bolle |
| 2 | COGY21 | 2.073 | Operativo | Controllo/modifica costi trasporto |
| 3 | COGY22 | 3.054 | Operativo | Simulazione fattura trasporti |
| 4 | COGF56 | 1.706 | Inquiry | Visualizza contrassegni |
| 5 | COGF83 | 601 | Operativo | Note vettore per data |
| 6 | COGF82 | 95 | Dispatcher | Stampa trasporti |
| TOTALE | 8.488 |