COGF56 - Visualizza contrassegni
Intestazione
| Campo |
Valore |
| Programma |
COGF56 |
| Titolo |
Visualizza/stampa movimenti contrassegni |
| Modulo |
Vendite |
| Posizione menu |
Vendite > Trasporti > Visualizza contrassegni |
Scopo e logica generale
COGF56 e' una funzione di consultazione dei contrassegni (importi da incassare in contrassegno) legati ai movimenti di trasporto. L'utente imposta un filtro (vettore, tipo pagato/non pagato/tutti, intervallo date), il programma estrae i movimenti di trasporto corrispondenti da COGTRASP, li incrocia con i raccordi di fatturazione (COGRACCO) per determinare l'importo fatturato e il riferimento fattura, e li presenta in una griglia paginata con totale per vettore. Sono disponibili la stampa (F9) ed esportazione Excel (Shift+F5).
L'elaborazione appoggia i dati su un file indicizzato temporaneo COGTRANS, univoco per operatore, creato in area temporanea (ext-tmp-dir) e cancellato in chiusura.
Flusso principale
- Apertura (
apri): apertura file, lettura azienda, determinazione divisa di conto (get-divisa-conto), impostazione tasti funzione, preparazione maschera e griglia.
- Impostazione filtri (
a4 ... a-tm-a-data): valori di default (anno corrente, tipo T = tutti, divisa di conto); accept di vettore (aiuto tramite COGE18), tipo movimento, data partenza e data arrivo, con validazioni. Il file temporaneo COGTRANS viene creato in output e riaperto in I-O (controllo di uso esclusivo per operatore).
- Ricerca (
a-fine-dati → a-ricerca): su conferma F3 scandisce COGTRASP per chiave secondaria (st-cogtrasp-notmin-chia3) filtrando per vettore, intervallo date e flag contrassegno (tra-contrassegno); per ogni movimento valido richiama search-fattu per calcolare l'importo dal raccordo e scrive un record in COGTRANS (wr-cogtrans).
- Totalizzazione (
tratta-cogtrans / totalizza-vettore): somma gli importi per codice vettore e scrive record di totale sul file temporaneo; calcola il totale generale (w-totale) mostrato in e-tm-totale.
- Griglia (
a-grid-ini / a-grid): carica e visualizza i movimenti con spaginamento (z-99-accept-paged-grid), tasti PgUp/PgDn per scorrere.
- Tasti in griglia: F8 apre il dettaglio fattura (WIN019) sul raccordo della riga, F9 stampa (
stampa), Shift+F4 configura le colonne, Shift+F5 esporta in Excel.
- Stampa (
stampa): dialogo di impostazione stampa (COGS54), rilettura di COGTRANS con testata per vettore, righe di dettaglio e totali (per vettore e generale).
- Chiusura (
fine / z-chiudi): chiude e cancella il file temporaneo COGTRANS.
File e tabelle acceduti
| File |
Record |
Modalita' |
Uso |
| COGTRASP |
tra-rec |
Input |
Movimenti di trasporto; scansione per chiave secondaria (.k03) filtrata per vettore/data/tipo contrassegno |
| COGRACCO |
rac-rec |
Input |
Raccordo bolla/fattura; lookup per chiave secondaria (.k02) per importo fatturato e riferimento fattura |
| COGFATTU |
fat-rec |
Input |
Testata fattura; lettura per recuperare il tipo pagamento (fat-rb) |
| COGGEANA |
ana-rec |
Input |
Anagrafica vettori e clienti (nomi) |
| FEURTAB (COGTABEL) |
euta-rec |
Input |
Tabella vettori (tipo 47) per validazione codice vettore |
| COGTRANS |
trs-rec |
I-O |
File indicizzato temporaneo di appoggio, univoco per operatore; movimenti selezionati e totali per vettore |
Copybook principali
Screen Designer
| Copybook |
Contenuto |
cogf56.select |
SELECT file |
cogf56.fd |
File descriptor |
cogf56.wrk |
Working storage |
cogf56-01.scr |
Maschera principale |
cogf56.decla |
Declaratives |
cogf56.prc |
Procedure Screen Designer |
Strutture dati e utility
| Copybook |
Contenuto |
feurtab.fd / cogfiles.cpy |
FD e record FEURTAB |
flsta.fd / flsta.cpy |
File di stampa |
k-u10.cpy |
Costanti per COGU10W (edit/cambio importi) |
utils52.cpy / utils54.cpy / utils68.cpy / utilu10.cpy / utilu22.cpy |
Interfacce subroutine (calendario, stampa, edit importi, pagamenti) |
utile18.cpy |
Interfaccia COGE18 (aiuto vettori) |
utilw19.cpy |
Interfaccia WIN019 (dettaglio fattura) |
utils15.cpy |
Area linkage |
wgrid.cpy / utilgdad.cpy / utilpggr.cpy / fscrol2.cpy |
Gestione griglia paginata e spaginamento |
GetDCont.cpy |
Determinazione divisa di conto |
sendu22.cpy |
Lettura tipi pagamento (COGU22) |
dtab.cpy |
Utility date |
cogtrasp.k03 / cogracco.k02 / cogtrans.k01 |
Chiavi (secondarie e primaria del temporaneo) |
Programmi chiamati (CALL)
| Programma |
Scopo |
| GRIDADMN |
Amministrazione griglia (prepara, add-record, configurazione, esportazione) |
| COGE18 |
Aiuto/ricerca vettori (F8 sul campo vettore) |
| WIN019 |
Dettaglio fattura del raccordo selezionato (F8 in griglia) |
| COGS54 |
Dialogo e gestione stampa |
| COGU10W |
Edit e conversione importi/divisa |
Logica di business
- Selezione movimenti (
a-ricerca): filtra COGTRASP per vettore (0 = tutti), intervallo tm-da-data/tm-a-data e tipo contrassegno (S=pagato, N=non pagato, T=tutti, testato su tra-contrassegno).
- Importo (
search-fattu): l'importo del contrassegno e' derivato dal totale fattura del raccordo (rac-totfat), convertito nella divisa di conto tramite COGU10W se necessario; il riferimento fattura e' costruito da tipo/anno/numero fattura del raccordo.
- Totali: somma per codice vettore (record fittizio con
trs-data = 99999999) e totale generale; in stampa la divisa e' segnalata con !! se disomogenea tra i movimenti.
- Il file COGTRANS e' aperto in output esclusivo all'avvio come lock di funzione: se gia' in uso da un altro operatore l'elaborazione viene interrotta.
Note
- Programma di sola consultazione/stampa: non modifica gli archivi permanenti, opera su file di appoggio temporaneo.
- Limite di 100 elementi per pagina di griglia (
k-max-ele-tab), con spaginamento avanti/indietro sul file COGTRANS.
Documentazione tecnica -- creata 2026-07-10