COGF63 - Scheda Produzione
Panoramica
Programma interattivo GUI per la gestione e visualizzazione degli ordini di produzione. Presenta una griglia paginata delle righe di produzione con filtri per ordinamento, tipo estrazione, cliente, magazzino e agente. Dalla griglia e' possibile registrare l'avanzamento (F2), assegnare componenti (F5), visualizzare dettaglio componenti (F6), gestire opzioni (F7), totale componenti (F8), stampe (F9), liste di produzione (F10) e note operative (F11). Supporta modalita' "called" tramite linkage utilf05.cpy, utilf31.cpy, utilf32.cpy.
Tipo: Programma interattivo GUI con griglia paginata.
| Menu |
Percorso |
| Magazzino |
Produzione > Produzione 2 > Scheda Produzione |
Struttura del programma
File e tabelle utilizzati
| File/Tabella |
Tipo |
Descrizione |
| FEURTAB (cogfiles) |
Input |
Tabella parametri generali |
| File gestiti da cogf63.select |
I-O |
File principali (ordini produzione, lotti, merci, ecc.) |
| COGTRANS |
I-O (temp) |
File transito indicizzato per righe griglia (chiave primaria + k2 per data ordine + k3 per data consegna) |
| COGTRANS2 |
I-O (temp) |
File transito per calcolo disponibilita' componenti |
| FLSTA |
I-O |
File stato (lock single-user) |
| LODTMDES |
I-O (temp) |
File per note operative (gestione lock) |
Chiavi di COGTRANS
| Chiave |
Composizione |
Descrizione |
| trs-chia1 |
mag(1)+anno(4)+tipo(1)+numero(6)+progr(4)+progr1(4) |
Chiave primaria |
| trs-chia2 |
trs-data-ord + trs-chia1 |
Ordinamento per data ordine |
| trs-chia3 |
trs-data-con + trs-chia1 |
Ordinamento per data consegna |
Struttura record COGTRANS (trs-rec)
| Campo |
Tipo |
Descrizione |
| trs-chia1 |
X(20) |
Chiave primaria (mag+anno+tipo+num+progr+progr1) |
| trs-o-testa |
gruppo |
Testata ordine origine (tipo+anno+num+progressivo) |
| trs-o-rig-pro |
9(04) |
Riga produzione ordine |
| trs-merce |
X(09) |
Codice merce (gru+sot+cod) |
| trs-data-ord |
9(08) |
Data ordine |
| trs-data-con |
9(08) |
Data consegna |
| trs-data-prev |
9(08) |
Data prevista completamento |
| trs-data-gar |
9(08) |
Data garanzia |
| trs-qta |
9(07)v999 |
Quantita' ordinata |
| trs-qta-ava |
9(07)v999 |
Quantita' avanzata |
| trs-qta-eva |
9(07)v999 |
Quantita' da evadere |
| trs-stato |
X(12) |
Stato della riga |
| trs-cla-tip |
X(01) |
Classificazione tipo |
| trs-tipo1 |
X(01) |
Tipo secondario |
| trs-clifor |
9(05) |
Codice cliente/fornitore |
| trs-lotto |
9(12) |
Lotto (anno+numero) |
| trs-data-lot |
9(08) |
Data lotto |
| trs-primo-scarico |
9(08) |
Data primo scarico |
| trs-fl-scarico-comp |
X(01) |
Flag scarico completato |
| trs-fl-disp |
X(01) |
Flag disponibilita' materiali |
| trs-data-ini |
9(08) |
Data inizio lavorazione |
| trs-qta-ord |
9(07)v999 |
Quantita' ordine originale |
| trs-blocco-prod |
X(01) |
Flag blocco produttivo |
| trs-blocco-amm |
X(01) |
Flag blocco amministrativo |
| trs-note-oper |
gruppo |
Note operative (flag+descrizione commesso e magazzino) |
Struttura record COGTRANS2 (trs2-rec)
| Campo |
Tipo |
Descrizione |
| trs2-chia1 |
X(20)+X(09) |
Chiave: chiave trs primaria + codice merce componente |
| trs2-qta |
9(12)v9(06) |
Quantita' componente |
| trs2-qta-sca |
9(12)v9(06) |
Quantita' scaricata |
| trs2-qta-disp |
9(12)v9(06) |
Quantita' disponibile |
| trs2-data |
9(08) |
Data |
| trs2-fl-no-disp |
X(01) |
Flag non disponibile |
| trs2-qta-elab |
9(12)v9(06) |
Quantita' elaborata |
Copybook principali
| Copybook |
Descrizione |
| cogf63.select |
SELECT per i file del programma |
| cogf63.fd |
File description per i file del programma |
| cogf63.wrk |
Working storage generata da Screens |
| cogf63-01.scr |
Screen section della maschera |
| cogf63.decla |
Declaratives (file: cogtrans, cogtrans2, flsta, lodtmdes) |
| cogf63.prc |
Procedure generate da Screens |
| cogfiles.cpy |
Descrizione record FEURTAB |
| k-personal.cpy |
Costanti personalizzazione cliente |
| cogazien.cpy |
Dati azienda corrente |
| wgrave.cpy |
Errori gravi |
| wnscr.cpy |
Gestione schermata |
| wopenf.cpy |
Apertura file |
| utils65.cpy |
Utility ricerca cliente/fornitore (COGS65) |
| wstato.cpy |
Stato operazioni |
| wgrid.cpy |
Supporto griglia |
| utilgdad.cpy |
Utility GRIDADMN |
| utilcogu03w.cpy |
Utility COGU03W |
| utils52.cpy |
Utility date (COGS52) |
| utilu10.cpy |
Utility divisa (COGU10) |
| utilu20.cpy |
Utility input numerico (COGU20) |
| utils68.cpy |
Utility ricerca merce (COGS68) |
| utilw36.cpy |
Utility ricerca magazzino (W36) |
| utilw127.cpy |
Utility W127 |
| utilw128.cpy |
Utility W128 |
| utildlg.cpy |
Utility finestre di dialogo |
| utilo08.cpy |
Utility O08 |
| utils54.cpy |
Utility S54 |
| utilu29.cpy |
Utility U29 |
| utilf05.cpy |
Area linkage COGF05 |
| utilf31.cpy |
Area linkage COGF31 |
| utilf32.cpy |
Area linkage COGF32 |
| wcont.cpy / wcont1.cpy |
Area comunicazione chiamante |
Variabili principali della maschera (tab-maschera)
| Campo |
Tipo |
Descrizione |
| w-tipo |
X(01) |
Tipo maschera ("C" = corrente) |
| tm-ord |
X(01) |
Ordinamento ("O" = per data ordine, "C" = per data consegna) |
| tm-estr |
X(01) |
Tipo estrazione ("P" = produzione, ecc.) |
| tm-cliente |
9(05) |
Filtro cliente |
| tm-desc-cli |
X(40) |
Descrizione cliente (display) |
| tm-magazzino |
X(21) |
Codice + descrizione magazzino |
| tm-age |
9(05) |
Filtro agente |
| tm-age-des |
X(40) |
Descrizione agente (display) |
| tm-tot-qta |
9(06)v999 |
Totale quantita' |
| tm-tot-qta-ava |
9(06)v999 |
Totale quantita' avanzata |
| tm-tot-qta-eva |
9(06)v999 |
Totale quantita' da evadere |
| tm-ele-sav |
X(1000) |
Salvataggio riga in modifica |
| tm-tab |
OCCURS k-max-ele-tab |
Tabella righe griglia |
Costanti pulsanti funzione
| Costante |
Valore |
Funzione |
| k-f7-opzioni |
01 |
Opzioni riga |
| k-f6-dett-comp |
02 |
Dettaglio componenti |
| k-f8-tot-comp |
03 |
Totale componenti |
| k-f5-scarico-comp |
04 |
Assegna/scarico componenti |
| k-f2-avanza |
05 |
Avanzamento produzione |
| k-f10-liste-prod |
06 |
Liste di produzione |
| k-f11-note |
07 |
Note operative |
Chiamate a sottoprogrammi (CALL)
| Programma |
Scopo |
| GRIDADMN |
Gestione griglia (preparazione, personalizzazione S-F4, aggiunta record) |
| COGS65 |
Ricerca cliente (campo tm-cliente) e agente (campo tm-age) |
| COGS68 |
Ricerca merce |
| COGS52 |
Gestione calendario/date |
| COGU10 |
Recupero divisa conto |
| COGU03W |
Utility |
Flusso di elaborazione
1. Inizializzazione (apri)
ctr-abil per abilitazione operatorez-99-init-program- Costruzione nomi file transito in
ext-tmp-dir (COGTRANS, COGTRANS2, note operative LODTMDES)
- Tentativo di apertura LODTMDES in output: se fallisce (file gia' in uso) segnala errore e termina
- Chiude e riapre LODTMDES in I-O
open-files
- Accept sequenziale dei filtri
- Su F3 in qualsiasi campo: salta a
a-richiesta-conferma
a-richiesta-conferma: valida tutti i campi; su conferma avvia a-crea-transito
3. Creazione transito (a-crea-transito)
- Chiama
x1-write-tran (con messaggio "Attendere, prego..")
- Scorre gli archivi di produzione, crea record COGTRANS per ogni riga che soddisfa i filtri
- Calcola disponibilita' componenti per ogni riga -> popola COGTRANS2
- Accumula totali (tm-tot-qta, tm-tot-qta-ava, tm-tot-qta-eva, tm-tot-kit-1, tm-tot-kit-2)
4. Visualizzazione griglia (vis-tabella-ini -> a-grid -> vis-tabella-disp)
- Calcola dimensione griglia (
w-grid-lines - 1)
x-spaginamento-start: carica prima pagina da COGTRANS- Se nessun dato: messaggio e torna a a4
z-costruisci-grid: costruisce griglia tramite GRIDADMN- Accept paginato: gestisce paginazione, ESC (torna a a4), S-F4, S-F5, Invio
- Su Invio in modalita' "A" (aggiornamento): va a
a-riga-dettaglio-ban per modifica riga
5. Azioni da griglia
| Tasto |
Azione |
| F2 |
Avanzamento produzione della riga (k-f2-avanza) |
| F5 |
Assegna/scarico componenti (k-f5-scarico-comp) |
| F6 |
Dettaglio componenti (k-f6-dett-comp) |
| F7 |
Opzioni riga (k-f7-opzioni) |
| F8 |
Totale componenti (k-f8-tot-comp) |
| F9 |
Stampa |
| F10 |
Liste di produzione (k-f10-liste-prod) |
| F11 |
Note operative (k-f11-note) |
| S-F4 |
Personalizzazione colonne (GRIDADMN) |
| S-F5 |
Esportazione Excel |
6. Chiusura
z-close-files- Delete file transito (COGTRANS, COGTRANS2, LODTMDES)
z-99-exit-program
Note tecniche
- Il file LODTMDES viene usato come lock per garantire l'uso esclusivo per operatore (tentativo open output: se fallisce la funzione e' gia' in uso).
- I file COGTRANS e COGTRANS2 usano nomi costruiti dinamicamente con ext-pid per supportare piu' istanze parallele (uno per PID/operatore).
- La griglia e' paginata: le prime
w-grid-lines - 1 righe sono mostrate nella pagina corrente; PagGiu/PagSu scorrono su COGTRANS tramite lettura sequenziale.
- I totali (tm-tot-qta, tm-tot-qta-ava, tm-tot-qta-eva) vengono calcolati durante x1-write-tran e mostrati in fondo alla schermata durante la navigazione della griglia.
- I pulsanti custom bitmap sono caricati dal file "produz" con indici 17-41.