Vai al contenuto

COGC32 — Giroconto Clienti a Portafoglio Effetti

Sorgente: cbl/cogc32.cbl | Tipo: interattivo a griglia | Program-ID: cogc32

Menu: Vendite > Ricevute Bancarie > G/C Clienti a Portafoglio

Scopo

Esegue il giroconto contabile dal conto Clienti al conto Portafoglio Effetti per un cliente selezionato. L'operatore indica cliente, data del giroconto e la contropartita di portafoglio; il programma presenta in griglia gli effetti/RIBA del cliente (letti da nutariba, chiave 6 per codice cliente) con relativo importo e data valuta. Le righe della griglia possono essere aggiunte, modificate o eliminate manualmente indicando i riferimenti di partita (anno/tipo/numero/progressivo), che vengono validati sulle partite aperte tramite cogs77.

Alla conferma (aggiorna) il programma genera in prima nota (cogpnonc) una registrazione di giroconto: una riga in DARE sul conto di portafoglio e, per ciascun effetto, una riga in AVERE sul conto clienti con i riferimenti di partita aperta; contestualmente scrive i movimenti partite (cogmovpa) e marca le RIBA come girate a portafoglio (rib-portafoglio = "*"). Il numero documento del movimento viene assegnato da COGS25 e la chiusura delle partite e' delegata a COGS78 (che a sua volta lancia COGE77).

File e tabelle principali

File/Tabella Copybook Uso
feurtab cogfiles.cpy, cogc32.fd File dati generico Eurocoge
cogcoatt COGCOATT.CPY Prima nota contabilizzata attuale (aperto in input, controllo uso esclusivo)
cogcopre COGCOPRE.CPY Prima nota contabilizzata precedente (aperto in input)
COGTABEL cogfiles.cpy Tabelle generiche: es. contabile (tipo 66), contropartita portafoglio (tipo 16), righe partite aperte (tipo 45)
NUTARIBA nutariba.k02, nutariba.k06 Effetti/RIBA del cliente (st-nutariba-notmin-chia6); aggiornamento portafoglio (rd-nutariba-chia2/rwr-nutariba)
COGPNONC (accesso std) Scrittura righe di prima nota del giroconto (wr-cogpnonc)
COGMOVPA (accesso std) Scrittura movimenti partite (wr-cogmovpa)
COGGEANA (accesso std) Anagrafica cliente (nome, mastro/conto di riferimento)
COGPNCON (accesso std) Descrizione conto di portafoglio (rd-cogpncon)
Dati contabili COGCONTA.CPY Esercizio contabile e controlli data (conta-rec)

Flusso principale

  1. apri — inizializza programma, apre i file, apre in input cogcoatt e cogcopre (con controllo di uso esclusivo), legge l'esercizio contabile (COGTABEL tipo 66) e carica la configurazione (x99-src-cfg).
  2. a4 — legge la contropartita CO/GE per portafoglio (COGTABEL tipo 16, codice da tm-cg-portaf) e ne recupera la descrizione via rd-cogpncon.
  3. a-tm-cli — accept cliente (gestito da COGS65W, F1 apre la config).
  4. a-tm-data — accept data giroconto, validata via AZVALIDA.COB e contro l'esercizio/contabilizzazione (datchiuatt, datchiupre, datdachiur).
  5. a-tm-pc — accept contropartita portafoglio (mastro/conto/sottoconto, gestito da COGS67).
  6. a-richiesta-conferma / a032 — dopo la conferma cerca la riga partite aperte (COGTABEL tipo 45) corrispondente a mastro/conto anagrafica; carica in griglia gli effetti del cliente da nutariba (a10-loop), convertendo gli importi nella divisa di conto via COGU10W.
  7. a30 / a-grid / a-accept-grid — gestione griglia: alterna modalita' Selezione/Aggiornamento (F3), consente Invio (modifica riga), Ctrl-A (aggiungi), Ctrl-E (elimina); SF4 apre l'amministrazione griglia (GRIDADMN).
  8. a-riga-dettaglio ... a-riga-dettaglio-fine — accept dei campi di riga (anno/tipo/numero/progressivo partita) con validazione partita via check-par (cogs77); aggiorna la griglia via GRIDADMN.
  9. aggiorna / agg-cor — controlla che l'importo totale non sia zero, ottiene il numero documento da COGS25, scrive la riga DARE portafoglio e le righe AVERE clienti in cogpnonc/cogmovpa (agg-10/agg-30), marca le RIBA a portafoglio (agg-rib) e chiude le partite via COGS78 (call-cogs78).
  10. fine / z-chiudi — chiude file e finestra ed esce.

Sottoprogrammi chiamati

Programma Ruolo
RNEWCONF Lettura configurazioni giroconto portafoglio (x99-src-cfg)
GRIDADMN Amministrazione/formattazione della griglia effetti (gestore griglia standard)
COGS65W Gestione campo cliente con lookup anagrafica (z-s65-tm-cli)
COGS67 Gestione campo contropartita mastro/conto/sottoconto (z-s67-tm-pc)
COGS52 Gestione campi data con calendario (z-s52-*)
COGU10W Conversione/edit importi in divisa di conto (z-u10)
cogs77 Interrogazione partita aperta (R-PARTITA) per validare gli effetti
COGS25 Assegnazione numero documento del giroconto (agg-cor)
COGS78 Chiusura partite (funzione LANCIO-S77, lancia COGE77)
AZVALIDA.COB Validazione formale della data digitata

Configurazioni (RNEWCONF)

Percorso RIACPORTAF, pacchetto C (letto in x99-src-cfg):

Gruppo Chiave Pilota
(percorso RIACPORTAF) euta-c026-cg-sp Codice contropartita CO/GE per portafoglio (COGTABEL tipo 16) — tm-cg-portaf
(percorso RIACPORTAF) euta-c026-to-sp Tipo operazione riga DARE portafoglio — tm-to-dare
(percorso RIACPORTAF) euta-c026-to-bo Tipo operazione riga AVERE clienti — tm-to-avere

Note

  • Programma a griglia con GRIDADMN: la formattazione colonne e' delegata al gestore griglia (z-prepara-tm-grid, z-costruisci-grid).
  • Se la contropartita di portafoglio (COGTABEL tipo 16) non esiste, il programma avvisa e apre la configurazione in modifica, poi esce.
  • Gli importi in griglia sono sempre normalizzati nella divisa di conto (w-currency-conto) tramite COGU10W.
  • Sono presenti ampi blocchi di codice commentato (vecchia gestione COGTABEL per i "tipi operazione"): la logica attiva usa nutariba e cogpnonc.
  • Codice legacy: numerosi PERFORM ... thru ex-... e GO TO; da non prendere a modello per nuovi sviluppi.