COGC67 - Stampa modulo consegna/riconsegna asset no cespite¶
Sorgente: cbl/cogc67.cbl | Tipo: Programma di stampa (chiamato in CALL) | Program-ID: COGC67
Menu: Non presente nel menu. Richiamato come sottoprogramma da programmi di gestione asset (analogo a COGC65 per i cespiti).
Scopo¶
Stampa il modulo di consegna oppure il modulo di riconsegna di un asset non registrato come cespite contabile, utilizzando un modello Word definito per il programma COGC67 tramite la configurazione COGPA3. Il modello viene popolato con i dati identificativi dell'asset, della consegna e della riconsegna forniti dal chiamante.
Struttura del programma¶
File e tabelle utilizzati¶
| File/Tabella | Tipo | Descrizione |
|---|---|---|
| COGTABEL (feurtab) | Input | Tabella generica |
Il programma non apre archivi applicativi: riceve tutti i dati tramite linkage.
Copybook principali¶
| Copybook | Descrizione |
|---|---|
| feurtab.fd | SELECT tabella COGTABEL |
| cogc67.select | SELECT generati da Screens |
| cogc67.fd | FD generate da Screens |
| cogc67.wrk | Working-storage generata da Screens |
| cogfiles.cpy | Record COGTABEL |
| wgrave.cpy | Gestione errori gravi |
| wnscr.cpy | Variabili screen |
| wopenf.cpy | Apertura file |
| wstato.cpy | Variabili di stato |
| cogazien.cpy | Dati azienda corrente |
| utils54.cpy | Utility COGS54 (selezione stampante) |
| utilu20.cpy | Utility COGU20W (lookup anagrafiche) |
| utilu10.cpy | Utility COGU10W (conversione divise) |
| utilncnf.cpy | Utility configurazione RNEWCONF |
| utilwordmdl.cpy | Utility gestione modelli Word |
| utilcogpa3.cpy | Utility COGPA3 (ricerca modello di stampa) |
| utilcogc67.cpy | Parametri di linkage per chiamata esterna |
| cogc67.prc | Paragrafi standard I/O |
Chiamate a sottoprogrammi (CALL)¶
| Programma | Scopo |
|---|---|
| COGPA3 | Recupero modello di stampa configurato per COGC67 |
| COGS54 | Dialogo selezione stampante |
| WORDMDL | Generazione del documento Word dal modello con sostituzione dei segnaposto |
Logica di elaborazione¶
Parametri di linkage (util-cogc67)¶
| Campo | Descrizione |
|---|---|
cogc67-fl-modulo |
Tipo modulo: "C" = consegna, "R" = riconsegna |
cogc67-fl-tipo |
Tipo asset |
cogc67-cod |
Codice asset |
cogc67-data-cons |
Data consegna |
cogc67-rif-nome |
Nome di chi riceve/riconsegna |
cogc67-data-ricons |
Data riconsegna (valorizzata solo per il modulo di riconsegna) |
Flusso principale¶
- Inizializzazione (
a000): apre file, legge azienda, verifica abilitazioni. Copia i parametri di linkage nellatab-maschera. - Ricerca modello (
inizio-stampa): chiama COGPA3 con tipo "COGC67" per recuperare il nome del modello Word configurato e la sua tabella dei segnaposto (tab-det-mm). Se non e' configurato alcun modello, segnala l'errore e termina. - Selezione stampante (
a222): chiama COGS54 per far scegliere la stampante di destinazione. F2/Esc annullano. - Elaborazione (
a4->b-elaborazione): costruisce il payload XML con i dati dell'asset e della consegna/riconsegna e invoca il generatore WORDMDL sul modello configurato. - Chiusura: chiude i file e termina.
Differenze con COGC65¶
COGC65 stampa il modulo di consegna/riconsegna per i cespiti contabili (record COGCESAN + COGCESCR). COGC67 ha la stessa struttura ma si applica agli asset non cespiti gestiti tramite COGCESAS/COGCESCR senza anagrafica cespite collegata, e utilizza un proprio modello di stampa configurato su COGPA3 con tipo "COGC67".
Note tecniche¶
- Il programma e' chiamato esclusivamente in modalita' CALLED (verifica su
cogc67-called): non e' previsto l'uso standalone. - Il modello di stampa e' definito nella tabella dei modelli di stampa (COGPA3) associando il tipo "COGC67" a un documento Word con segnaposto.
- Se il modello non e' configurato, l'operazione viene abortita con un messaggio a video.
Documentazione tecnica creata -- 2026-04-17