COGMA4 - Simulazione Prezzi da Listino Fornitore
Sorgente: cbl/cogma4.cbl | Program-ID: COGMA4 | Tipo: Interattivo (raccolta parametri + griglia risultati)
Menu: Magazzino > Archivi & Tabelle > Merci Fornitori > Simulazione prezzi fornitore unico
Scopo
Simulazione dei prezzi di vendita partendo dal listino di un fornitore specifico. Il programma puo' caricare i dati da un file esterno (listino fornitore) oppure direttamente dagli archivi interni, e calcola prezzo netto, margine e ricarico confrontando il listino fornitore con il listino di vendita corrente. I risultati sono mostrati in griglia con possibilita' di dettaglio riga.
File e tabelle
| File/Tabella |
Tipo |
Modalita' |
Descrizione |
| FEURTAB |
Tabella |
Input |
Tabella generale Eurosystem |
| COGMERCI |
Tabella |
Input |
Anagrafica merci |
| COGMERAP |
Tabella |
Input |
Dati aggiuntivi merci |
| COGMEFOC |
Tabella |
Input |
Merci-fornitori con condizioni |
| TRAN-COGMA4 |
File temp. |
I-O |
File temporaneo indicizzato per i risultati della simulazione |
I file acceduti sono quelli dichiarati in cogma4.select tramite Screen Designer, piu' TRAN-COGMA4 dichiarato nel sorgente.
Copybook utilizzate
| Copybook |
Descrizione |
cogfiles.cpy |
Struttura generica FEURTAB |
cogma4.select |
SELECT file generati da Screens |
cogma4.fd |
FD file generati da Screens |
cogma4.wrk |
Working storage generata da Screens |
cogma4-01.scr |
Maschera grafica |
cogma4.decla |
Declaratives |
cogma4.prc |
Procedure copy generate da Screens |
tran-cogma4.fd, tran-cogma4.cpy |
Definizione file temporaneo |
opensave.def |
Definizione dialogo apri/salva file |
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 |
wscrolmc.cpy |
Scroll merci-clienti |
utils52.cpy |
Interfaccia COGS52W (date/calendario) |
utils65.cpy |
Interfaccia COGS65W (ricerca fornitore) |
utilu10.cpy |
Interfaccia COGU10 (conversione divise) |
utilu20.cpy |
Interfaccia COGU20 |
utils68.cpy |
Interfaccia COGS68W (ricerca merce) |
utilw29.cpy |
Interfaccia WIN029 (raggruppamenti) |
utilcogl61.cpy |
Interfaccia COGL61 (calcolo prezzo acquisto) |
utildlg.cpy |
Interfaccia DIALOGS |
l-copiaf.cpy, u-copiaf.cpy |
Interfaccia COPIAF (copia file) |
Linkage
| Copybook |
Descrizione |
wcont.cpy |
Contesto chiamante |
utilcogma4s.cpy |
Interfaccia subroutine COGMA4S |
u-copiaf.cpy |
Interfaccia COPIAF |
utils01.cpy |
Interfaccia COGS01 (ricerca prezzo listino) |
wcont1.cpy |
Contesto esteso |
Struttura del programma
Variabili della maschera (tab-maschera)
| Variabile |
PIC |
Descrizione |
tm-fl-carico |
X(01) |
Modalita' caricamento: "F" = File, "A" = Archivi |
tm-file |
X(70) |
Percorso file listino fornitore |
tm-ana-tip |
X(01) |
Tipo anagrafica |
tm-ana-cod |
9(05) |
Codice fornitore |
tm-ana-des |
X(40) |
Descrizione fornitore |
tm-ana-listino |
9(02) |
Numero listino vendita |
tm-ana-fascia |
9(02) |
Fascia listino |
tm-fl-ragr-1/2/3 |
X(01) |
Flag filtro raggruppamenti |
tm-merce |
X(09) |
Filtro codice merce |
tm-ragr-1/2/3 |
X(02) |
Codici raggruppamento filtro |
Griglia risultati
Ogni riga della griglia contiene:
| Campo |
Descrizione |
tm-r-merce |
Codice merce |
tm-r-merce-desc |
Descrizione merce |
tm-r-pre-upa |
Prezzo unitario d'acquisto |
tm-r-pre-lis |
Prezzo di listino vendita |
tm-r-pre-lis-uni |
Prezzo listino unitario |
tm-r-sco-1, tm-r-sco-2 |
Sconti |
tm-r-pre-net |
Prezzo netto |
tm-r-sim-pre-uni |
Prezzo unitario simulato |
tm-r-margine |
Margine percentuale |
tm-r-ricarico |
Ricarico percentuale |
tm-r-mlf-* |
Dati dal listino fornitore (sconti, CONAI, trasporto, rebate) |
Flusso principale
- a000 - Inizializzazione, creazione file temporaneo, apertura file
- a4 - Reset maschera, inizializzazione griglia
- a-frame-principale-inizio - Accept parametri (tipo carico, file, fornitore, listino, filtri)
- Caricamento dati da file o da archivi nel file temporaneo TRAN-COGMA4
- Calcolo prezzi simulati per ogni merce (via COGS01, COGL61)
- Visualizzazione risultati in griglia paginata
Chiamate esterne
| Programma |
Modalita' |
Scopo |
| COGS01 |
CALL |
Ricerca prezzo di listino |
| COGS65W |
CALL |
Ricerca fornitore |
| COGL61 |
CALL |
Calcolo prezzo medio d'acquisto |
| COGU10 / COGU10W |
CALL |
Conversione divise |
| COGMA4S |
CALL |
Subroutine di elaborazione specifica |
| DIALOGS |
CALL |
Messaggi di dialogo |
| C$OPENSAVEBOX |
CALL |
Dialogo sfoglia file |
| GRIDADMN |
CALL |
Gestione griglia |
Note
- Il file temporaneo TRAN-COGMA4 viene creato nella cartella tmp con nome
#trs-cogma4_{operatore}.arc.
- La griglia e' paginata (k-max-ele-tab = 100 righe per pagina).
- La simulazione e' in sola lettura: non aggiorna i listini di vendita.
- Il programma gestisce sconti a cascata fino a 6 livelli, contributi CONAI, spese trasporto e rebate nella composizione del prezzo simulato.
- La subroutine COGMA4S gestisce la logica di calcolo specifica (margine, ricarico, applicazione sconti).