COSO60 - Tabella Mastro/Conto Soci

Scopo

Configurazione dei conti contabili di riferimento per la gestione soci. Definisce il mastro/conto di transito, il mastro/conto/sottoconto IVA e la causale contabile predefinita. I dati sono memorizzati in un singolo record COGTABEL (EUTA) con tipo=06, codso1=97.

Menu

Contabilita' > Unione soci/clienti > Tabelle > Tabella Mastro/Conto Soci

File e tabelle

File	Tipo	Descrizione
FEURTAB	Parametri	File parametri di ambiente
COGTABEL (EUTA)	Indicizzato	Tabella generica, record con euta-tipo=06, euta-codso1=97
COGPNCON (PCO)	Indicizzato	Piano dei conti (per validazione mastro/conto)

Copybook

File e select

• feurtab.fd — FD file parametri
• cogfiles.cpy — Record file parametri
• coso60.select — SELECT dei file
• coso60.fd — FD specifici del programma
• coso60.wrk — Working-storage generata

Working-storage standard

• wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy
• k-u10.cpy — Costanti U10

Utilita'

• utillogo.cpy — Logo
• utilzde.cpy — Utility ZDE
• utils67.cpy — Gestione piano dei conti (S67)
• utilu10.cpy — Utility date U10
• utils99.cpy — Gestione causali (S99)

Linkage

• wcont.cpy, wcont1.cpy — Stringhe di comunicazione

Procedure

• coso60.prc — Procedure I/O su COGTABEL e COGPNCON
• getdcont.cpy — Get divisa conto
• grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy

CALL

Programma	Descrizione
COGS99W	Gestione input/ricerca causali
COGU10W	Utility date

Logica di elaborazione

1. Inizializzazione: apre file, legge azienda
2. Caricamento dati (carica-dati): legge il record COGTABEL con chiave tipo=06, codr=0, codso1=97. Il campo euta-descr contiene in formato compatto: mastro(2) + conto(2) + mastro-iva(2) + conto-iva(2) + sottoconto-iva(6) + causale(3). Per ogni mastro/conto, legge COGPNCON per mostrare la descrizione. Per la causale, chiama COGS99W in modalita' "edit" per ottenere la descrizione
3. Accept campi:
4. a-tm-c: input mastro/conto di transito tramite subroutine S67 (selezione da piano dei conti)
5. a-tm-i: input mastro/conto/sottoconto IVA tramite S67
6. a-tm-caus: input causale tramite COGS99W con ricerca F8
7. Validazione (x-imposta-conferma): verifica che mastro, conto, mastro IVA, conto IVA, sottoconto IVA e causale siano compilati e validi su COGPNCON/tabella causali
8. Salvataggio (registra): compone il campo euta-descr e scrive/riscrive il record COGTABEL

Struttura record

COGTABEL: euta-tipo=06, euta-codr=0, euta-codso1=97, euta-codso2=0
euta-descr (= euta-descr1):
  pos 1-2:   mastro transito (PIC 9(02))
  pos 3-4:   conto transito (PIC 9(02))
  pos 5-6:   mastro IVA (PIC 9(02))
  pos 7-8:   conto IVA (PIC 9(02))
  pos 9-14:  sottoconto IVA (PIC 9(06))
  pos 15-17: causale IVA (PIC X(03))

Note tecniche

• Il programma gestisce un singolo record di configurazione (non una lista).
• La validazione dei conti usa rd-cogpncon con chiave mastro+conto+sottoconto.
• La ricerca causali usa COGS99W con flag s99-fl-tf = k-yes per abilitare F8.
• Usa PERFORM ... THRU in carica-dati, registra e nelle routine di errore (codice legacy).
• Il campo euta-codso1 = 97 (precedentemente era 90, come indicato nel commento del sorgente).