Vai al contenuto

COGL50 -- Situazione Vendite

Sorgente: cbl/cogl50.cbl | Tipo: Programma con interfaccia grafica (griglia interattiva) | Program-ID: COGL50

Menu: Vendite > Visualizzazioni > Situazione Vendite

Scopo

Visualizza in una griglia interattiva l'elenco di bolle e fatture di vendita emesse in un periodo selezionato, con filtri per agente e cliente. Calcola i totali netti e ivati suddivisi tra bolle non fatturate e fatture. Consente la navigazione nel dettaglio dei documenti e la stampa.

Interfaccia utente

Maschera di filtro (tab-maschera)

Campo Tipo Descrizione
tm-data-ini 9(08) Data inizio periodo (AAAAMMGG)
tm-data-fin 9(08) Data fine periodo (AAAAMMGG)
tm-agente 9(05) Codice agente (0 = tutti)
tm-nome-age x(40) Ragione sociale agente (display)
tm-cli 9(05) Codice cliente (0 = tutti)
tm-nome-cli x(40) Ragione sociale cliente (display)
tm-bol-tot / tm-bol-tot-ivato s9(12)v9(06) Totale bolle netto / ivato
tm-fat-tot / tm-fat-tot-ivato s9(12)v9(06) Totale fatture netto / ivato

Griglia risultati (grid-record)

Colonna Campo Descrizione
Data grd-data Data del documento (gg/mm/aaaa)
Documento grd-documento Riferimento bolla o fattura
Cliente grd-cli Codice cliente
Nome grd-nome Ragione sociale
Importo grd-importo Importo documento
Indicatore grd-indicatore Stato evasione ordini collegati

Tasti funzione

Tasto Funzione
F3 Gestione documento selezionato (COGU78)
F7 Cambia ordinamento griglia (WIN090)
F8 Dettaglio documento (WIN016)
F9 Stampa situazione per agente (COGP86, solo con agente selezionato)
S-F4 Gestione griglia (GRIDADMN)
S-F5 Esportazione in Excel
ESC Uscita dalla griglia / dal programma

File e Tabelle

File/Tabella Copybook Uso
COGTESBO cogl50.fd (via select) Testata bolle -- scansione per data (chiave 2)
COGGEANA cogl50.fd (via select) Anagrafica clienti/fornitori
COGTABEL cogl50.fd (via select) Tabelle generiche (tipo 15: causali DDT)
COGRACCO cogl50.fd (via select) Raccolta bolle/fatture (ricerca fattura collegata a bolla, chiave 2)
transito file indicizzato temporaneo File di transito per i risultati della ricerca
TRAN-COGS96 tran-cogs96.fd File di transito per multi-agente (COGS96)
FEURTAB feurtab.fd / cogfiles.cpy File tabelle Euro

Programmi chiamati

Programma Scopo
COGU09 Ricerca documenti collegati (consegne ordine)
COGU10W Utility valute/divisioni (conversione importi in divisa conto)
COGU78 Gestione documento (apertura da griglia con F3)
COGS87.COB Calcolo totale bolla (netto e ivato)
COGS96 Gestione multi-agente
COGP86 Stampa situazione per agente
GRIDADMN Gestore griglia interattiva
WIN016 Finestra dettaglio documento (F8)
WIN090 Finestra ordinamento (F7)

Copybook principali

  • cogl50.select, cogl50.fd, cogl50.wrk, cogl50.prc, cogl50.decla, cogl50-01.scr -- Definizioni generate da Screens
  • tran-cogs96.fd, tran-cogs96.cpy -- File transito multi-agente
  • cogazien.cpy -- Dati azienda
  • wgrid.cpy, utilgdad.cpy -- Gestione griglia
  • utils52.cpy -- Interfaccia calendario
  • utils65.cpy -- Interfaccia selezione anagrafica
  • utils87.cpy -- Interfaccia calcolo totale bolla
  • utilu09.cpy -- Interfaccia COGU09
  • utilu10.cpy -- Interfaccia COGU10W
  • utilw16.cpy -- Interfaccia WIN016
  • utilw90.cpy -- Interfaccia WIN090
  • utilp86.cpy -- Interfaccia COGP86
  • utilcogs96.cpy -- Interfaccia COGS96
  • utilu78.cpy -- Interfaccia COGU78

Logica di Elaborazione

Caricamento agenti (carica-agenti)

All'avvio, carica la lista agenti tramite COGS96 (multi-agente). Se il caricamento fallisce, esce dal programma.

Estrazione dati (b40 / b40-loop)

  1. Posiziona su COGTESBO con chiave 2 (data), partendo da tm-data-ini
  2. Scorre tutti i documenti fino a tm-data-fin
  3. Filtri applicati:
  4. Tipo bolla: solo "I", "D", "R", "B", "Q", "S"
  5. Cliente: tes-nonno = tm-cli (se specificato)
  6. Agente: tes-agente = tm-agente (o ana-agente per personalizzazione "EX")
  7. Causale: deve avere euta-cb-con-fat valorizzato ("SI" o "NO") e euta-cb-cli-for = "C" (solo clienti)
  8. Causali con euta-cb-con-fat = "NO" passano solo se tipo bolla primaria (mag-tipob1 = "P")

  9. Multi-agente: filtro aggiuntivo via ctrl-age

  10. Per ogni documento valido:

  11. Chiama COGU09 per ottenere le consegne collegate all'ordine
  12. Chiama assegna-indicatore per determinare lo stato di evasione
  13. Chiama COGS87 per calcolare il totale netto e ivato
  14. Inverte il segno per causali di entrata (euta-cb-fl-eu = "E")
  15. Converte l'importo nella divisa di conto tramite COGU10W
  16. Cerca la fattura collegata in COGRACCO: se trovata il documento e' classificato come fattura (F), altrimenti come bolla (B)
  17. Accumula i totali (bolle e fatture, netti e ivati)
  18. Scrive il record nel file di transito

Visualizzazione griglia (a-grid)

Griglia paginata con supporto PgUp/PgDn. Operazioni disponibili: - F3: apre il documento selezionato tramite COGU78 - F7: cambia l'ordinamento tramite WIN090 - F8: mostra il dettaglio tramite WIN016 - F9: stampa situazione agente tramite COGP86 (disponibile solo se tm-agente <> 0); scorre tutti gli ordini non evasi e li invia a COGP86 - S-F4: personalizzazione griglia (GRIDADMN) - S-F5: esportazione in Excel

Note tecniche

  • Il file di transito (transito) viene ricreato ad ogni nuova ricerca. Viene eliminato alla chiusura del programma.
  • Il file multi-agente (tran-cogs96) viene eliminato alla chiusura.
  • Gli importi sono sempre convertiti nella divisa di conto dell'azienda per uniformita'.
  • Il programma supporta la personalizzazione "EX" per la lettura dell'agente dall'anagrafica anziche' dalla testata bolla.

Documentazione tecnica -- 2026-04-16