Vai al contenuto

COGPA4 -- Stampa tentata vendita magazzini viaggianti

Sorgente: cbl/cogpa4.cbl | Tipo: interattivo (stampa) | Program-ID: COGPA4

Menu: Assist 2.0 > Operativo > Gestione Interventi a Richiesta > Trasferimenti magazzini viaggianti > Stampa tentata vendita


Scopo

Selezione e stampa documenti di tentata vendita generati dai trasferimenti su magazzini viaggianti. Supporta sia uso interattivo (input numero documento) che chiamata da altro programma con bolla pre-impostata via util-pa4 / util-m41.


File e tabelle principali

File/Tabella Uso
feurtab Parametri Eurocoge
File definiti in cogpa4.select/.fd Documenti di trasferimento/bolla

Maschera (tab-maschera)

  • tm-documento.tm-doc-mag (X), tm-doc-ann (9(4)), tm-doc-tip (X), tm-doc-num (9(6))
  • tm-copie (9(2))

Struttura maschera di lavoro contiene anche pagamento, sconti, destinatario, vettori, aspetto, porto, etc. usati per la composizione della stampa (132 char).

Linkage

Copybook Uso
utilpa4.cpy Linkage chiamante: pa4-called, pa4-fl-sta, pa4-bolla
Redefinizione util-m41 su user-area Compatibilita' con chiamate da COGM41 (m41-bolla, m41-tip-doc, m41-called)

Configurazioni RNEWCONF

Gruppo Chiave Note
Configurazione stampa Lette in x99-src-confi/x99-src-cfg Modello stampa, offset, copie, stampa seriale, causale trasferimento interno

tab-mas-cfg raccoglie: tm-cfg-not, tm-cfg-mod, tm-cfg-v-off, tm-cfg-h-off, tm-cfg-ctr-prn, tm-cfg-mod-con, tm-cfg-cop, tm-cfg-rch-prz, tm-cfg-sn (stampa seriale), tm-cfg-caus-trasf-int.

Programmi chiamati

Programma Scopo
DIALOGS Dialog generici (utildlg)

Logica di elaborazione

  1. Init: accept data sistema, verifica se chiamato (pa4-called = 'COGPA4-CALLED').
  2. Se called: pre-imposta w-dc-pa4-bolla, salta maschera (w-dc-fl-show-form = NO).
  3. Altrimenti: mostra maschera per acquisizione dati documento.
  4. Apertura file standard, lettura configurazioni stampa.
  5. Per il documento selezionato compone le righe del modulo di tentata vendita (intestazione, righe articolo, pagamenti, sconti, totali) usando l'area maschera.
  6. Emissione stampa secondo le configurazioni (modulo, offset, numero copie, stampa seriale).

Documentazione tecnica generata -- 2026-06-04