COGV60 -- Inserimento Fatture

Sorgente: cbl/cogv60.cbl | Tipo: Interattivo (lanciatore) | Program-ID: COGV60

Menu:

• Vendite > Fatturazione > A Singolo Cliente > Inserimento

---

Scopo

Programma di lancio per la fatturazione differita a singolo cliente. Determina quale versione operativa del programma di fatturazione richiamare in base alla personalizzazione dell'azienda (az-personal) e al profilo operativo (az-prof).

---

File e tabelle

File/Tabella	Tipo	Modalita'	Descrizione
Nessun file dati proprio	--	--	Il programma e' un puro lanciatore

Programmi chiamati

Programma	Scopo
COGV60xx	Versione personalizzata (xx = az-personal, es. COGV60DA)
COGV60TA	Versione profilo professionale
COGV60DA	Versione standard per az-tip-cmp = "C"
COGV60NO	Versione standard (fallback)

Copybook principali

• WSTATO.CPY, WGRAVE.CPY, WOPENF.CPY, WSCREE.CPY, COGAZIEN.CPY
• WCONT.CPY, WCONT1.CPY
• STATO.CPY, WINMSG.CPY, GRAVE.CPY

---

Struttura del programma

Flusso principale

1. Determinazione programma (a000): il programma tenta di chiamare la versione personalizzata costruendo il nome come COGV60 + az-personal. Se la CALL fallisce (overflow):
2. Se az-prof = "S": tenta COGV60TA, se fallisce va a st-80-standard

3. Altrimenti: va a st-80-standard

4. Versione standard (st-80-standard):

5. Se az-prof = "S": chiama COGV60TA
6. Se az-tip-cmp = "C": chiama COGV60DA (versione contabilita')

7. Altrimenti: chiama COGV60NO (versione base)

8. Fallback (st-80-no): se nessun programma trovato, chiama COGV60NO.COB. Se anche questo fallisce, mostra messaggio "Non trovo il programma di fatturazione!".

9. Uscita (st-90-ok): cancella il programma chiamato e esce.

---

Variabili principali

Variabile	Tipo	Descrizione
name-call	x(08)	Nome del programma da chiamare
az-personal	da cogazien	Personalizzazione azienda (suffisso programma)
az-prof	da cogazien	Profilo operativo ("S" = professionale)
az-tip-cmp	da cogazien	Tipo contabilita' ("C" = contabilita')

---

Documentazione tecnica -- 2026-04-29