Vai al contenuto

COGA12 -- Prezzi Particolari (stampa)

Sorgente: cbl/coga12.cbl | Tipo: Programma GUI standalone | Program-ID: COGA12

Menu: - Magazzino > Archivi & Tabelle > Stampe > Sconti > Prezzi Particolari

Scopo

Stampa dei prezzi particolari (sconti e prezzi speciali) da archivio COGSCONT. Supporta due modalita': per Merce (mostra tutti i clienti con prezzo speciale per una data merce) o per Cliente (mostra tutte le merci con prezzo speciale per un dato cliente).

File e tabelle

File/Tabella Tipo Modalita' Descrizione
FEURTAB Indicizzato I-O Tabelle di sistema
COGSCONT via coga12.select Input Sconti/prezzi particolari (chiave k02 per merce)
COGMERCI via coga12.select Input Anagrafica merci
COGGEANA via coga12.select Input Anagrafica generale (clienti)
FLSTA Indicizzato I-O File stampa

Programmi chiamati

Programma Scopo
COGS54 Gestione finestra stampa
COGS60 Gestione combo-box (tipo elaborazione)
COGS65W Selezione cliente
COGS68W Selezione/display merce
COGU10W Gestione divise e formattazione importi
COGA12MD Programma alternativo per personalizzazione MDA

Copybook principali

  • coga12.select, coga12.fd, coga12.wrk, coga12.prc, coga12.decla, coga12-01.scr
  • cogfiles.cpy, flsta.cpy
  • wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy, cogazien.cpy
  • utils54.cpy, utils65.cpy, utils68.cpy, utilu10.cpy
  • k-personal.cpy, k-u10.cpy, wrk-u10.cpy
  • utila12.cpy (linkage -- parametri di chiamata esterna)
  • GetDCont.cpy, u10-fun.cpy
  • cogscont.k02 (chiave secondaria)

Struttura del programma

Flusso principale

  1. apri: inizializzazione, apertura file, controllo personalizzazione MDA (se az-personal = k-personal-mda, chiama COGA12MD ed esce)
  2. a4: inizializzazione maschera, default tipo "M" (per Merce); se chiamato con a12-ope = "stampa", precarica tipo/merce/cliente e salta alla conferma
  3. a-tm-tip: accept tipo elaborazione (M = per Merce, C = per Cliente) tramite COGS60
  4. a-tm-merce: accept codice merce (se tipo = M) tramite COGS68W; se tipo = C il campo e' disabilitato
  5. a-tm-ana-cod: accept codice cliente (se tipo = C) tramite COGS65W; se tipo = M il campo e' disabilitato
  6. a-tm-conf / a222: validazione, conferma stampa via COGS54
  7. Ciclo stampa: scansione COGSCONT:
  8. Se tipo = M: start su chiave k02 per merce, scorre clienti
  9. Se tipo = C: start su chiave primaria per cliente, scorre merci
  10. testa-pagina: intestazione con dati merce/cliente e paginazione (62 righe/pagina, 132 colonne)
  11. riga-pagina: stampa riga con sconti (scc-sco-1, scc-sco-2) e prezzo, con conversione divisa via COGU10W
  12. end-stampa: chiusura stampa con COGS54 (after-print)

Formato stampa

  • 132 colonne, 62 righe per pagina
  • Testata: dati merce o cliente, data, numero pagina
  • Colonne riga: Codice+Descrizione (50 car.), Sconto1, Sconto2, Sconto3, Prezzo (15 car.)
  • I prezzi vengono convertiti nella divisa di conto prima della stampa

Modalita' chiamato

Via linkage utila12.cpy:

  • a12-caller: programma chiamante
  • a12-ope: operazione ("stampa")
  • a12-tip: "M" per merce, "C" per cliente
  • a12-merce / a12-cliente: filtro preimpostato

Documentazione tecnica -- 2026-04-29