Vai al contenuto

COGE06UN - Gestione Anagrafiche Soci

Scopo

Gestione completa (inserimento, modifica, consultazione, cancellazione) delle anagrafiche soci per il modulo Unione. Il programma opera su piu' pagine a schede (tab control) gestendo dati anagrafici, dati aggiuntivi, fondi/superfici e quote tramite griglie editabili.

Contabilita' > Unione soci/clienti > Anagrafiche Soci (3 posizioni)

File e tabelle

File Tipo Utilizzo
FEURTAB (COGTABEL) Indicizzato Tabelle generali (zone tipo 06/90, configurazioni tipo 06/97)
UNANASO Indicizzato Anagrafica soci/clienti unione
LODTMDES Indicizzato File temporaneo per descrizioni

Il file UNANASO e' acceduto tramite chiave primaria (k01) e chiave secondaria (k02 — unanaso.k02).

Copybook

Working-Storage

  • coge06un.wrk — variabili specifiche programma
  • k-u10.cpy — costanti utility divise
  • wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy — standard gestionale
  • cogazien.cpy — dati azienda
  • wgrid.cpy, utilgdad.cpy — gestione griglie

Utility

  • utils25.cpy, utils43.cpy, utils44.cpy, utils52.cpy, utils65.cpy — subroutine standard
  • utilu10.cpy, utilu20.cpy — utility divise e operatori
  • utilzde.cpy — gestione note/descrizioni estese
  • utilf09.cpy — utility destinazioni diverse
  • utilo14.cpy, utilo26.cpy, utilo30.cpy, utilo33.cpy — ricerche varie
  • utilow19.cpy, utilow21.cpy — utility finestre
  • utilso35.cpy — utility soci
  • utilw162.cpy — utility WIN162
  • wcont.cpy, wcont1.cpy — variabili contabilita'
  • utils-s67.cpy — utility S67

Screen

  • coge06un-01.scr — definizione maschera

Procedure Division

  • coge06un.decla — declaratives
  • coge06un.prc — procedure standard
  • lodtmdes.k01 — accesso file temporaneo
  • unanaso.k02 — chiave secondaria anagrafica
  • grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy — standard finali

CALL a sottoprogrammi

Programma Funzione
COGU10W Gestione divise (GetDivisaConto)
COSOW21 Ricerca ragione sociale / partita IVA
COSO26 Ricerca destinazioni diverse
COGF09 Gestione destinazioni diverse
COSO30 Ricerca zone
COSO33 Ricerca pagamenti
COSO35 Utility soci
GRIDADMN Amministrazione griglie
COGE87NO Scheda contabile / estratto conto
WIN162 Finestra utility 162
COGZDEW Gestione note/descrizioni estese
COGS25 Subroutine S25 (lista valori)
COGS43 Subroutine S43
COGS44 Subroutine S44
COSO67 Utility O67

Logica di elaborazione

Inizializzazione

  1. Carica lingua e divisa conto corrente tramite COGU10W
  2. Legge zona della postazione corrente da COGTABEL (tipo "AH")
  3. Legge configurazione tipo 06/97 per determinare mastro/conto di default
  4. Configura pulsanti custom: "Codice Libero (F8)" e "Codice Libero > 90000 (F9)"
  5. Costruisce controlli maschera a tab (4 pagine)

Flusso principale

  1. Accept codice socio: ricerca per codice, ragione sociale, P.IVA o C.F.
  2. Pagina 1: dati anagrafici (zona, date iscrizione/dimissione, indirizzo, P.IVA, C.F.)
  3. Pagina 2: dati aggiuntivi (natura giuridica, quote fisse, note)
  4. Pagina 3: griglia fondi — conduzione, superficie, totali (con insert/modify/delete)
  5. Pagina 4: griglia quote
  6. Conferma (F3): scrittura su UNANASO e COGTABEL

Ricerca codice libero

  • F8 (a8-cerca-libero): cerca il primo codice numerico non utilizzato partendo da 1
  • F9 (a9-cerca-90000): cerca il primo codice libero sopra 90000

Gestione griglie

Le griglie fondi e quote supportano: - Invio: modifica riga esistente - Ctrl+A: aggiunta nuova riga - Ctrl+E: eliminazione riga con ricalcolo totali - F5: note sulla riga selezionata (tramite COGZDEW) - F6: richiamo COGE87NO per scheda contabile

Costanti significative

Costante Valore Significato
k-euta-tip-soc "C" Tipo socio per COGTABEL
k-euta-tipo-gen 06 Tipo generico per configurazione
k-sede 500 Codice sede
k-max-ele-tab 200 Massimo elementi per griglia

Note tecniche

  • Il programma usa PERFORM ... THRU in diversi punti (es. cancella-lodtmdes thru ex-cancella-lodtmdes, normal thru ex-normal) — stile legacy.
  • La zona dell'operatore viene determinata dalla postazione (ext-postazione) letta su COGTABEL tipo "AH".
  • Il livello di accesso (w-livello) determina le abilitazioni di inserimento/modifica/cancellazione.
  • Il programma e' dimensionato per 8355 righe sorgente — e' uno dei piu' grandi dell'area Unione.
  • Usa mmmask.cpy (programma standalone con maschera).