Vai al contenuto

COGE98 -- Ritorno Contabile Banca

Sorgente: cbl/coge98.cbl | Program-ID: COGE98 | Tipo: Gestione griglia interattiva + Registrazione contabile

Menu: Vendite > Ricevute Bancarie > Ritorno Contabile Banca

Scopo

Gestione del ritorno contabile delle distinte Ri.Ba. (ricevute bancarie). Presenta gli effetti di una distinta in una griglia, consente di selezionare gli effetti, assegnare la data di valuta e generare le registrazioni contabili di chiusura conto transitorio e apertura conto banca (tramite COGE99).

Struttura della maschera

Screen gestita da Screen Designer: coge98-01.scr.

Campi di testata (tab-maschera-bis)

Campo Variabile Tipo Validazione
Data contabile tm-data (tm-aa/tm-mm/tm-gg) 9(08) Via COGS52; validata con AZVALIDA.COB
Banca tm-ban 9(04) Via WIN023.COB (F8)
Distinta tm-dis 9(06) Via WIN039.COB (F8)
Importo distinta tm-importo X(13) Display only
Rif. maschera/contab. tm-rifmas, tm-rifcon 9(02) Interni
N. Effetti tm-neff 9(04) Calcolato
Lordo distinta tm-lordo-d X(13) Display only (formattato da COGU10W)
Comm./Spese distinta tm-comspe-d X(13) Display only
Netto distinta tm-netto-d X(13) Display only

Griglia (tab-maschera)

Fino a k-max-ele-tab (100) righe. Il record trs-rec in cogtrans contiene tutti i dati dell'effetto.

Colonna Variabile grid Tipo
Scadenza grd-scad X(10) (GG/MM/AAAA)
Importo grd-impo X(12)
Commissioni grd-comm X(12)
Netto grd-netto X(12)
Valuta grd-val X(10)
Selezione grd-sel X(3)

Record interno per ogni riga (tm-righe):

Campo Variabile Tipo
Num. Ri.Ba. tm-riba 9(06)
Scadenza tm-scad 9(08)
Importo lordo tm-impo 9(12)V9(06)
Commissioni tm-comm 9(12)V9(06)
Netto tm-netto 9(12)V9(06)
Valuta tm-val 9(08)
Selezione tm-sel X(02)
Progressivo tm-progressivo 9(06)

Logica di elaborazione

Inizializzazione

  1. ctr-abil, rd-azi, x-carica-lingua.
  2. Lettura esercizio contabile da COGTABEL tipo 66. Struttura salvata in conta-rec (cogconta.cpy).
  3. Creazione pulsanti custom: F5 ("Valuta") e F6 ("Somma scadenze").
  4. Lettura configurazione RNEWCONF tramite x99-src-cfg.

Fase 1: Controlli iniziali (controlli-iniziali THRU ex-controlli-iniziali)

Sequenza accept:

  1. a-tm-data: data contabile via COGS52, validata con AZVALIDA.COB.
  2. a-tm-ban: banca assuntrice, F8 chiama WIN023.COB.
  3. a-tm-dis: numero distinta, F8 chiama WIN039.COB.

Fase 2: Caricamento griglia (riempi-file THRU ex-riempi-file)

Non visibile nel sorgente letto (nel .prc); scansione di NUTSCADE/effetti della distinta, scrittura in cogtrans temporaneo, popolamento tm-righe. Le commissioni vengono calcolate dalla tabella banca (ban-com-sp).

Fase 3: Griglia (vis-tabella-disp)

Loop di accept sulla griglia paginata:

  • INVIO: seleziona/deseleziona l'effetto. Se tm-val(i) > 0 (gia' valorizzato), non e' selezionabile. La selezione aggiorna trs-sel su cogtrans e ricalcola i parziali (par-lordo, par-comm, par-netto).
  • F5: chiama COGE98A per assegnare data valuta agli effetti selezionati. Poi tratta-a98-out aggiorna trs-val su cogtrans. scrivi-scad-ban aggiorna scd-datban5 su NUTSCADE.
  • F6 (raggruppa-scad): seleziona tutti gli effetti con trs-datpag2 uguale a w-scad (data scadenza riga corrente).
  • F3: sequenza di conferma:
  • x1-b000: verifica che almeno una riga sia selezionata.
  • x1-d000: controlla se ci sono effetti con valuta a zero e avvisa.
  • acc-conf: richiesta conferma.
  • x1-e000 (sottrai-imp-comm): ricalcola lordo/commissioni sottraendo gli effetti senza valuta.
  • x1-f000 (scrivi-scad-ban): scrive la valuta bancaria nelle scadenze.
  • Chiama COGE99.COB passando tab-maschera-bis e w-trs-name. COGE99 genera le registrazioni contabili.

Totali (display-totali THRU ex-display-totali)

Formattazione e display di tm-lordo, tm-comspe, tm-netto-d tramite COGU10W.

File utilizzati

File Copybook Accesso Utilizzo
FEURTAB cogfiles.cpy Random Tabella file generali
NUTSCADE via coge98.fd/prc I-O Scadenze effetti (Ri.Ba.)
NUTDISBA via coge98.fd/prc Random Distinte bancarie
COGTABEL via coge98.prc Random Tabelle (esercizio contabile tipo 66, banche tipo 80)
COGGEANA via coge98.prc Random Anagrafica (banche)
cogtrans Inline (trs-rec) I-O Dynamic File temporaneo effetti distinta

Programmi chiamati

Programma Scopo
COGE98A Assegnazione data valuta agli effetti selezionati
COGE99.COB Generazione registrazioni contabili (chiusura transitorio, apertura banca)
COGS52 (COGS52W) Input data con calendario
COGU10W Formattazione importi/divisa
COGU03 Utilita'
COGS54 Gestione stampa
WIN023.COB Ricerca banche
WIN039.COB Ricerca distinte
AZVALIDA.COB Validazione date
UTIL030A Utilita'
RNEWCONF Lettura configurazioni
GRIDADMN Gestione griglia paginata

Copybook principali

  • coge98.select, coge98.fd, coge98.wrk, coge98.decla, coge98.prc -- Generati da Screens
  • coge98-01.scr -- Screen definition
  • k-u10.cpy -- Costanti COGU10
  • wgrid.cpy, utilgdad.cpy -- Gestione griglia
  • cogconta.cpy -- Struttura esercizio contabile
  • utils52.cpy, utilu10.cpy, utilu03.cpy, utils54.cpy
  • util030a.cpy, utilrcnf.cpy
  • wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy, cogazien.cpy