Vai al contenuto

COGV26 - Gestione Raggruppamenti Merci

Sorgente: cbl/cogv26.cbl | Program-ID: COGV26 | Tipo: Interattivo (griglia con filtro)

Menu: Magazzino > Archivi & Tabelle > Varie > Gestione Raggruppamenti Merci


Scopo

Gestione dei codici di raggruppamento (1, 2, 3) sulle merci dell'anagrafica. Permette di filtrare le merci per intervallo e modificare direttamente i raggruppamenti nella griglia.


File e tabelle

File/Tabella Tipo Modalita' Descrizione
FEURTAB Tabella Input Tabella generale Eurosystem
COGMERCI Tabella I-O Anagrafica merci (per lettura e aggiornamento raggruppamenti)

I file acceduti sono quelli dichiarati in cogv26.select tramite Screen Designer.

Copybook utilizzate

Copybook Descrizione
cogfiles.cpy Struttura generica FEURTAB
cogv26.select SELECT file generati da Screens
cogv26.fd FD file generati da Screens
cogv26.wrk Working storage generata da Screens
cogv26-01.scr Maschera grafica
cogv26.decla Declaratives
cogv26.prc Procedure copy generate da Screens
wgrave.cpy Working errori gravi
wnscr.cpy Working screen
wopenf.cpy Working apertura file
wstato.cpy Working stato
cogazien.cpy Dati azienda
wgrid.cpy Working griglia
utilgdad.cpy Interfaccia GRIDADMN
utils68.cpy Interfaccia COGS68W (ricerca merce)
utilw29.cpy Interfaccia WIN029 (ricerca raggruppamenti)

Linkage

Copybook Descrizione
wcont.cpy Contesto chiamante
wcont1.cpy Contesto esteso

Struttura del programma

Variabili della maschera (tab-maschera)

Variabile PIC Descrizione
tm-da-merce X(09) Codice merce iniziale (gru 2 + sot 2 + cod 5)
tm-da-merce-des X(40) Descrizione merce iniziale
tm-a-merce X(09) Codice merce finale
tm-a-merce-des X(40) Descrizione merce finale
tm-pnt 9(04) Puntatore numero elementi caricati
tm-merce X(09) Codice merce nella riga griglia
tm-rag1 X(02) Raggruppamento 1
tm-rag2 X(02) Raggruppamento 2
tm-rag3 X(02) Raggruppamento 3

Flusso principale

  1. apri - Inizializzazione, controllo abilitazione, apertura file
  2. Accept dei parametri filtro (Da merce / A merce)
  3. b-carica - Scansione COGMERCI nell'intervallo richiesto, caricamento dei raggruppamenti nella griglia
  4. a-grid / a-accept-grid - Loop principale di gestione griglia
  5. Su modifica: aggiornamento diretto dei raggruppamenti in COGMERCI tramite REWRITE

Chiamate esterne

Programma Modalita' Scopo
GRIDADMN CALL Gestione griglia

Note

  • I raggruppamenti sono campi di 2 caratteri ciascuno presenti nel record merci (mer-rag-1, mer-rag-2, mer-rag-3).
  • La griglia puo' contenere fino a 900 elementi (k-max-ele-tab).
  • Il salvataggio avviene con REWRITE diretto sulla merce selezionata.