Vai al contenuto

COGV15 — Gestione entrate magazzino (dispatcher)

Sorgente: cbl/cogv15.cbl | Tipo: Programma richiamato (dispatcher) | Program-ID: COGV15

Menu: Magazzino > Entrate [Modifica/Cancell.] ; Magazzino > Entrate > Inserimento [Gestione] ; Contanti > Entrate > Manuali [Gestione] (fuori perimetro)

Scopo

COGV15 e' il punto d'ingresso della gestione delle bolle di entrata (documenti di entrata da fornitore): inserimento, modifica e cancellazione della testata e delle righe del documento.

Nella versione attuale il sorgente e' un dispatcher sottile: legge la configurazione che stabilisce quale variante utilizzare e delega tutto il lavoro effettivo (maschera, testata, righe) al programma reale, richiamandolo via CALL. Il grosso del codice storico (accept dei campi bolla, controlli, gestione mouse) e' presente nel sorgente solo come commento, testimonianza della vecchia versione a caratteri poi sostituita dalla delega.

Il programma non produce direttamente un output: si limita a instradare verso il gestore vero e proprio.

File e tabelle principali

File/Tabella Copybook Uso
(nessun file aperto direttamente) — COGV15 non apre file: la gestione documento e' interamente nel programma delegato

Il codice commentato faceva riferimento a COGTESBO (testata bolla, tes-rec), ma nel flusso attivo non viene usato.

Flusso principale

  1. main / apri — inizializza il programma (z-99-init-program), legge l'azienda (rd-azi) e interroga la configurazione tramite RNEWCONF (gruppo entrate, chiave versione-programmi-ent), salvando l'esito in tm-cfg-versione.
  2. ela-00 — se la configurazione vale GRAFICA imposta il nome del gestore a COGV15W, altrimenti a COGV15C; poi esegue CALL w-nome-programma using stringhe e subito dopo CANCEL.
  3. fine / z-chiudi — chiude con z-99-exit-program ed exit program.

Sottoprogrammi chiamati

Programma Ruolo
RNEWCONF Lettura configurazione (nuovo motore configurazioni)
COGV15W Gestione GUI delle bolle di entrata (variante GRAFICA) — programma reale che gestisce testata e righe
COGV15C Gestione a caratteri delle bolle di entrata (variante non GRAFICA)

Configurazioni (RNEWCONF)

Pacchetto Gruppo Chiave Uso
C entrate versione-programmi-ent Se GRAFICA instrada verso COGV15W, altrimenti verso COGV15C

Note

  • Programma richiamato: usa mmmask.cpy (z-99-init-program / z-99-exit-program) e riceve stringhe (wcont/wcont1) in linkage.
  • Praticamente tutto il corpo procedurale storico e' commentato: per la logica effettiva di gestione testata/righe della bolla di entrata fare riferimento a COGV15W (o COGV15C).
  • La scelta della variante e' interamente guidata dalla configurazione: non c'e' fallback hard-coded oltre al ramo else che porta a COGV15C.