COGB11 - Tabella Estremi Bolla¶

Intestazione¶

Campo	Valore
Programma	COGB11
Titolo	Estremi Vari Bolle
Posizione menu	Magazzino -> Uscite -> Bolle Accompagnatorie -> Bolle con MW-20 -> Tabella Estremi Bolla
Posizione menu alternativa	Vendite -> Bolle Vendita -> Bolle da MW-20 -> Tabella Estremi Bolla

Scopo e logica generale¶

COGB11 e' un programma interattivo di gestione della tabella degli estremi predefiniti delle bolle di accompagnamento. Consente di inserire, modificare e cancellare configurazioni identificate da un codice numerico (tipo 71 su COGTABEL), ciascuna contenente causale trasporto, modalita' di resa, aspetto esteriore della merce e porto.

Il programma utilizza COGTABEL con tipo 71 come archivio principale. Usa COGTABEL tipo 15 per la validazione delle causali bolle. Non usa file di transito.

Flusso principale¶

Inizializzazione (apri): controllo abilitazione, init programma, caricamento lingua, lettura azienda, apertura file, configurazione tasti funzione (F3 conferma, F3 aggiorna, F4 cancella, F8 aiuto), visualizzazione maschera
Loop principale (a4): inizializzazione maschera, impostazione tm-cura = "M" (mittente), caricamento controlli, attivazione F3 conferma, disattivazione F3 aggiorna e F4 cancella
Accept chiave (a-tm-cod): codice configurazione (1-999). F8 -> ricerca via send-w79 (WIN079)
Fine chiave (a-fine-chiave): validazione codice, lettura COGTABEL tipo 71 per verificare esistenza (fl-vario = "I" nuovo, "V" esistente). Se esistente: carica dati, abilita F4 cancella
Accept dati:
a-tm-cau: causale bolla - validazione su COGTABEL tipo 15 (via x-controlla-tm-cau). F8 -> COGW01
a-tm-cura: modalita' resa/trasporto - via COGS60 (combo)
a-tm-asp: aspetto esteriore - campo libero
a-tm-porto: porto - campo libero
Salvataggio (a-fine-dati): richiesta conferma (acc-conf-custom), verifica abilitazioni (w-abi-ins, w-abi-agg), scrittura su COGTABEL tipo 71 (wr-cogtabel o rwr-cogtabel)
Cancellazione: gestita con F4 direttamente dalla routine z-cambia-controlli / tasto funzione dedicato
Chiusura (fine / z-chiudi): chiusura file, chiusura finestra, exit program

File e tabelle acceduti¶

File logico	Record / tipo	Modalita'	Uso
COGTABEL	euta-rec, tipo 71	I-O	Tabella estremi bolla - record principale (chiave: tipo=71, codice=tm-cod)
COGTABEL	euta-rec, tipo 15	Input	Tabella causali bolle - validazione campo causale

Struttura record COGTABEL tipo 71¶

Il record usa la struttura euta-estremi per memorizzare: - euta-tipo = 71 - euta-codr = tm-cod (codice configurazione, pic 9(03)) - euta-srm-cau = tm-cau (causale bolla, pic 9(02)) - euta-srm-tra = tm-cura (trasporto/resa, pic x(01)) - euta-srm-asp = tm-asp (aspetto, pic x(40)) - euta-srm-prt = tm-porto (porto, pic x(10))

Copybook inclusi¶

Screen Designer¶

Copybook	Contenuto
`cogb11-01.scr`	Maschera principale
`cogb11.select`	SELECT dei file
`cogb11.fd`	FD dei file
`cogb11.wrk`	Working storage maschera
`cogb11.decla`	Declaratives

Working storage¶

Copybook	Contenuto
`wgrave.cpy`	Gestione errori gravi
`wnscr.cpy`	Gestione schermo
`wopenf.cpy`	Gestione apertura file
`wstato.cpy`	Working stato
`cogazien.cpy`	Dati azienda
`utilw01.cpy`	Interfaccia COGW01 (ricerca causali bolle, F8 su causale)
`utilw79.cpy`	Interfaccia WIN079 (ricerca codice estremi, F8 su codice)

Linkage¶

Copybook	Contenuto
`wcont.cpy`	Dati operatore
`wcont1.cpy`	Dati azienda linkage

Programmi chiamati (CALL)¶

Programma	Scopo
COGW01	Ricerca causali bolle (F8 sul campo causale)
WIN079	Ricerca codice estremi bolla (F8 sul campo codice)

Il programma non usa RNEWCONF.

Logica di business¶

Validazione causale¶

La causale inserita in tm-cau viene verificata su COGTABEL tipo 15 (rd-cogtabel). Se il record non esiste, viene mostrato il messaggio "Causale Bolla Non Esistente" e il codice viene evidenziato in rosso. Se esiste, la descrizione euta-cb-des viene copiata in tm-decau e visualizzata.

Controllo modalita' (inserimento vs. modifica)¶

Il flag fl-vario determina la modalita' operativa: - "I" = inserimento: usa wr-cogtabel - "V" = modifica/visualizzazione: usa rwr-cogtabel

In caso di modifica, viene prima riletto il record (rd-cogtabel-lk) per verificare che non sia stato cancellato nel frattempo. Se il record e' stato cancellato, il sistema forza la modalita' inserimento.

Gestione abilitazioni¶

Inserimento: richiede w-abi-ins = "S"
Modifica: richiede w-abi-agg = "S"

In assenza delle abilitazioni, il programma torna al ciclo principale (go to a4) senza effettuare l'operazione.