Vai al contenuto

COGP40 - Stampa Giornale Contrassegni

Sorgente: cbl/cogp40.cbl | Tipo: Programma a menu (stampa bollata) | Program-ID: COGP40

Menu: Magazzino > Stampe > Giornale Contrassegni

Scopo

Stampa il giornale dei movimenti per i magazzini gestiti a contrassegno (13 valori A1-A6 + B1-B7), con saldi progressivi e attuali per ciascun contrassegno. Supporta:

  • Stampa di tutti i movimenti del periodo o solo quelli non ancora stampati
  • Aggiornamento dei saldi e marcatura come "stampati" (modalita' bollato definitivo)

File e Tabelle

File/Tabella Uso
FEURTAB Parametri generali
File da cogp40.select File contrassegni, movimenti, magazzini, anagrafiche
FLSTA Output stampa

Programmi chiamati

  • COGS54 (selezione stampante)
  • COGS52 (input data, calendario)
  • COGS21, COGS25 (input selezione)
  • W36 / utility — utilw36.cpy per aiuto magazzino
  • COGU10, ecc.

Copybook principali

  • File: feurtab.fd, cogp40.select, cogp40.fd, flsta.fd
  • Record: cogfiles.cpy, flsta.cpy
  • Working: cogp40.wrk, wstato, wopenf, wgrave, wnscr, cogazien, utils25.cpy, utils52.cpy, utils54.cpy, utilw36.cpy
  • Screen: cogp40-01.scr

Struttura tab-maschera

Campo Descrizione
tm-mag Codice magazzino
tm-mag-d Descrizione magazzino
tm-da-data / tm-a-data Periodo (yyyymmdd)
tm-agg Flag aggiornamento saldi (S/N)
tm-mov Tutti / solo non stampati

Strutture di stampa

  • tab-totali con 2 array tt-ele-tipo (2) × 7 tt-ele-num: saldi per A (6) e B (7) con tt-spr (saldo precedente), tt-car (carico), tt-sca (scarico), tt-sat (saldo attuale).
  • Righe di stampa: testa1, rigel, rig-spr, rig-car, rig-sca, rig-sat.

Logica di elaborazione

  1. Apertura (apri): apre file, attiva F8 calendario, F8 aiuto.
  2. Input parametri (a-tm-mag, a-tm-da-data, a-tm-a-data, a-tm-mov, a-tm-agg):
  3. Magazzino con F8 → utility W36 (aiuto magazzino)
  4. Date con F8 → COGS52 (calendario)
  5. Combo "tutti i movimenti / solo non stampati" via COGS95
  6. Combo "aggiorna saldi"
  7. Conferma stampa: COGS54.
  8. Elaborazione: scansione file movimenti contrassegni nel periodo + magazzino. Per ogni movimento:
  9. Se tm-mov = "N" (solo non stampati): salta i movimenti gia' marcati
  10. Aggiorna tab-totali (carichi/scarichi su A1-A6 / B1-B7)
  11. Stampa riga rigel con data, num progressivo, tipo doc, num doc, descrizione, qta
  12. Stampa saldi: a fine sezione/giornata stampa rig-spr, rig-car, rig-sca, rig-sat.
  13. Aggiornamento saldi (se tm-agg = "S"): aggiorna i saldi nel file contrassegni e marca i movimenti come stampati (per evitare ristampa).
  14. Chiusura: COGS54 finalizzazione.

Note

  • I 13 contrassegni sono fissi (A1-A6 + B1-B7): la dimensione e' hard-coded nelle strutture di stampa.
  • L'opzione "aggiorna saldi" trasforma la stampa da consultiva a bollato definitivo: una volta marcato, un movimento non puo' essere ristampato in modalita' "solo non stampati".
  • Il programma e' specifico per magazzini gestiti a contrassegno (configurazione di magazzino dedicata).
  • Convenzioni standard Eurocoge GUI con s-mm-1 overlay e accept controlli grafici.