COGE100 -- Prodotti IVA Aziende Agricole¶

Sorgente: cbl/coge100.cbl | Tipo: Programma interattivo GUI a griglia (gestore tabella) | Program-ID: COGE100

Menu:

Contabilita' > Archivi & Tabelle > Tabelle > Prodotti Az. Agricole

Scopo¶

Gestione della tabella dei prodotti delle aziende agricole con la relativa aliquota IVA e percentuale di compensazione, usata per la contabilita' delle aziende agricole (regime di compensazione IVA). Editor a griglia con riga di dettaglio.

File e tabelle¶

Tabella	Ruolo	Campi principali
COGTABEL (tipo 83, `k-euta-tipo-83`)	Prodotti aziende agricole	chiave `euta-codr`; `euta-prod-des` (descrizione), `euta-prod-ali` (aliquota IVA), `euta-prod-comp` (% compensazione)

Copybook principali¶

utilgdad.cpy, utilgrid.cpy, utilu20.cpy, mmmask.cpy, standard working-storage (wstato/wgrave/wgrid/wopenf/wnscr/cogazien). Verbi COGTABEL (st-/rdnxt-/rd--lk/wr-/rwr-/del-cogtabel) da coge100.prc. Richiamo in selezione via utile100.cpy.

Chiamate ad altri programmi¶

GRIDADMN (gestore griglia standard).

Flusso / Paragrafi principali¶

apri -> open files.
a4 / a10-loop: scan della tabella tipo 83 (max 900 righe; filtro per aliquota in modalita' selezione).
a-grid / a-accept-grid: editing griglia.
a-riga-dettaglio: accept di codice, descrizione, aliquota normale, aliquota compensazione.
a-riga-dettaglio-fine: salvataggio.
c-cancella: cancellazione riga.
fine.

Non legge configurazioni RNEWCONF.

Note¶

Richiamabile in modalita' selezione via utile100.cpy (e100-called/e100-caller, filtro e100-in-ali, output e100-out-cod/e100-out-des).