Vai al contenuto

COGO38 -- Ordini Non Stampati

Sorgente: cbl/cogo38.cbl | Tipo: Interattivo | Program-ID: COGO38

Menu:

  • Ordini > Clienti > Visualizzazioni > Ordini Non Stampati

Scopo

Visualizzazione interattiva degli ordini clienti che hanno consegne non ancora stampate in un determinato periodo. Crea un file di transito indicizzato e presenta i dati in griglia paginata. Supporta ristampa diretta dell'ordine selezionato (F9) e visualizzazione di un rapporto dettagliato (F5).

File e tabelle

File/Tabella Tipo Modalita' Descrizione
FEURTAB Sistema Input Tabella di sistema
File da cogo38.select Dati I-O COGGEANA, COGTESOR, COGRIGOR, COGCONOR, COGMERCI
COGTRANS Temp I-O File transito indicizzato: data + tipo/anno/numero/progressivo
FLSTA Stampa I-O File di stampa

Programmi chiamati

Programma Scopo
GRIDADMN Gestione griglia avanzata (preparazione, add-record, personalizzazione, export)
COGS52 Accept date con calendario (F8)
COGS54 Configurazione stampa

Copybook principali

  • cogo38.select, cogo38.fd, cogo38.wrk, cogo38.prc, cogo38-01.scr, cogo38.decla
  • cogfiles.cpy, cogazien.cpy, wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy
  • wgrid.cpy, utilgdad.cpy
  • utils65.cpy, utils50.cpy, utils52.cpy, utils54.cpy
  • utilw15.cpy, utilo65.cpy
  • flsta.fd, flsta.cpy
  • cogtrans.k01, cogtesor.k02, cogconor.k03
  • dtab.cpy, fscrol2.cpy, utilpggr.cpy
  • wcont.cpy, wcont1.cpy

Struttura del programma

Flusso principale

  1. Inizializzazione (apri): apre file, carica lingua. Crea nome file transito nella directory temp con formato #$COGO38.<operatore>. Configura tasti funzione (F3, S-F4, S-F5, F8/calendario). Crea pulsanti custom per Ristampa Ordine (F9) e Dettaglio Stampa (F5).

  2. Accept filtri (a-tm-da-data, a-tm-a-data): date di inizio e fine periodo. Preimpostate alla data odierna. Le date devono essere nello stesso anno e data inizio <= data fine.

  3. Creazione file di transito (b-elabora): scorre COGCONOR chiave 3 partendo dalla data inizio con cor-merce = low-values. Per ogni consegna nel periodo, legge testata ordine (COGTESOR) e verifica che non sia in stato temporaneo (tor-fl-sta != "S") e che il flag di stampa non sia impostato. Scrive nel file COGTRANS: data, tipo/anno/numero/progressivo, chiusura, cliente/descrizione.

  4. Visualizzazione griglia (vis-tabella-ini): griglia spaginata fino a 100 elementi. Se nessun ordine trovato, mostra messaggio e torna ai filtri.

  5. Navigazione griglia (vis-tabella-disp): S-F4/S-F5 (personalizzazione/export), F5 (dettaglio stampa sta-no-det), F9 (ristampa ordine se tm-fl-stampa(i) = "N").

  6. Ristampa ordine (F9): stampa del dettaglio dell'ordine con intestazione, dati cliente e righe con articolo, unita' di misura, quantita' e prezzi.

  7. Dettaglio stampa (F5): report riepilogativo di tutti gli ordini non stampati nel periodo.

Variabili principali

Variabile Tipo Descrizione
tm-da-data / tm-a-data 9(08) Periodo di riferimento
tm-fl-stampa x(01) Flag stampa per riga: "N" non stampato, aggiornato dopo ristampa
name-trs x(70) Nome file COGTRANS di transito
trs-data 9(08) Data ordine nel transito
trs-tor-chia struct Chiave ordine: tipo + anno + numero + progressivo
trs-chiu x(01) Stato chiusura ordine
trs-cli 9(05) Codice cliente
trs-des-cli x(36) Descrizione cliente
k-f9-ristampa 9 Costante indice pulsante F9 (01)
k-f5-det-stampa 9 Costante indice pulsante F5 (02)
n-m 9(04) Numero righe nella griglia

Documentazione tecnica -- 2026-04-29