COGC56 - Inserimento Movimenti Cespiti¶

Campo	Valore
Sorgente	`cbl/cogc56.cbl`
Tipo	Interattivo (maschera)
Richiamato da	Menu (Contabilita' > Cespiti > Inserimento Movimenti)

Descrizione¶

Gestione movimenti manuali sui cespiti aziendali: variazioni in aumento/diminuzione, vendite, dismissioni, minusvalenze, plusvalenze, beni persi. Tutti gli eventi che modificano il valore di un cespite diversi dall'ammortamento ordinario.

File e tabelle¶

File/Tabella	Modalita'	Descrizione
COGCESMO	I/O	Movimenti cespiti (tabella principale)
COGCESCR	Lettura	Consegna/riconsegna cespiti (per controllo dismissione/vendita)
COGGEANA	Lettura	Anagrafica clienti/fornitori
FEURTAB	Lettura	Tabelle generali

Copybook principali¶

cogc56.select, cogc56.fd, cogc56.wrk, cogc56.prc -- struttura Screens
cogconta.cpy -- contesto contabile
utilc53.cpy -- utilita' cespiti (condivise con COGC53)
utilcoge77.cpy -- utilita' contabilizzazione IVA
utilcogc56.cpy -- utilita' specifiche COGC56
cogcesmo.k02, cogcescr.k02 -- chiavi secondarie

Logica di elaborazione¶

Flusso principale¶

Il programma opera su singoli movimenti cespite. L'operatore sceglie un numero movimento esistente o ne crea uno nuovo con F9.

Validazione campi¶

Codice cespite (a-tm-cod): ricerca in COGCESMO, popola dati riepilogativi
Tipo movimento (a-tm-fl-1): accetta +, -, V, D, M, P, B
Controllo dismissione/vendita (x-controlla-tm-fl-1): per tipo D o V, verifica su COGCESCR che non esistano consegne aperte senza riconsegna. Se trovate, blocca con messaggio e impedisce l'operazione
Importo: calcolo automatico plusvalenza/minusvalenza confrontando con valore contabile residuo

Salvataggio¶

a-90-wr: write del record COGCESMO
a-90-rw: rewrite del record esistente
a1-riempi-record: popola il record da tab-maschera

Controllo F3 (`x-controlla-f3`)¶

Validazione globale prima del salvataggio. Include il controllo dismissione/vendita ripetuto per sicurezza.

Chiamate a sottoprogrammi¶

Programma	Funzione
COGS52W	Ricerca anagrafica
COGS65W	Ricerca (seconda modalita')
COGU10W	Utility condivisa
COGS25	Gestione stringhe
COGC53	Calcolo quote ammortamento
COGE77W	Contabilizzazione IVA
WIN094	Popup calendario
RNEWCONF	Lettura configurazioni
DTPRG	Conversione data/giorni progressivi

Note¶

La variabile w-ok-dism-vend (aggiunta 140426) controlla l'esito della verifica consegna/riconsegna per dismissioni e vendite
Il controllo su COGCESCR usa la chiave secondaria .k02 per scansione per codice cespite
Il programma e' di tipo standalone (usa mmmask.cpy)