root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Esplosione tab

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4842 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-07-07 12:25:34 +00:00
parent 532279fe8c
commit 9f3f1e6a16
6 changed files with 1171 additions and 1171 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
mg/mg3300.h
View File

@ -1,6 +1,6 @@
#define F_SCHEDA 101
#define F_DADATA 102
#define F_ADATA 103
#define F_SCHEDA 101
#define F_DADATA 102
#define F_ADATA 103
#define F_ORDINE 104
#define F_ORDINEART 105
@ -31,25 +31,25 @@
#define G_DESART 3
#define FF_STAMPASALDOPREC 300
#define FF_SALDO_MOV 301
#define FF_SALDO_MOVS 302
#define FF_SALDO_GRMOV 303
#define FF_SALDOPREC 304
#define FF_SALDOPREC_MOVS 305
#define FF_SALDOPREC_GRMOV 306
#define FF_NUM_MOV 307
#define FF_DATA_MOV 308
#define FF_QUANTRIGA 309
#define FF_VALORE_MOV 310
#define FF_VALORE_GRMOV 311
#define FF_UM_GART 312
#define FF_SALDO_GART 313
#define FF_VALORE_GART 314
#define FF_STAMPASALDOPREC 300
#define FF_SALDO_MOV 301
#define FF_SALDO_MOVS 302
#define FF_SALDO_GRMOV 303
#define FF_SALDOPREC 304
#define FF_SALDOPREC_MOVS 305
#define FF_SALDOPREC_GRMOV 306
#define FF_NUM_MOV 307
#define FF_DATA_MOV 308
#define FF_QUANTRIGA 309
#define FF_VALORE_MOV 310
#define FF_VALORE_GRMOV 311
#define FF_UM_GART 312
#define FF_SALDO_GART 313
#define FF_VALORE_GART 314
#define FF_NUM_MOVART 315
#define FF_SALDO_MOVART 316
#define FF_DATA_MOVART 317
#define FF_VALORE_MOVART 318
#define FF_NUM_MOVART 315
#define FF_SALDO_MOVART 316
#define FF_DATA_MOVART 317
#define FF_VALORE_MOVART 318
#define ALIAS_CATMER 510
#define ALIAS_SOTTOCATMER 511

240
mg/mg3300.uml
View File

@ -4,230 +4,230 @@ PAGE "Stampa Schede di magazzino" -1 -1 78 20
LISTBOX F_SCHEDA 30
BEGIN
PROMPT 2 1 "Tipo scheda "
ITEM "G|Giacenza"
ITEM "OF|Ordinato fornitori"
ITEM "OC|Ordinato clienti"
ITEM "ACL|A conto lavoro"
ITEM "INCL|In conto lavoro"
ITEM "PC|Componenti in produzione "
ITEM "PF|Finiti in produzione "
ITEM "G|Giacenza"
ITEM "OF|Ordinato fornitori"
ITEM "OC|Ordinato clienti"
ITEM "ACL|A conto lavoro"
ITEM "INCL|In conto lavoro"
ITEM "PC|Componenti in produzione "
ITEM "PF|Finiti in produzione "
END
LISTBOX F_ORDINE 12
BEGIN
PROMPT 2 2 "Ordinamento "
ITEM "A|articoli"
MESSAGE ENABLE,F_ORDINEART|HIDE,F_TOTALIDEPOSITI|HIDE,F_DETTAGLIODEP
MESSAGE SHOW,F_TOTALIMAGAZZINI|SHOW,F_DETTAGLIOMAG
ITEM "M|magazzini"
MESSAGE "C",F_ORDINEART|K_SPACE,F_ORDINEART|DISABLE,F_ORDINEART|SHOW,G_CODART@|HIDE,G_DESART@
MESSAGE SHOW,F_TOTALIDEPOSITI|SHOW,F_DETTAGLIODEP
MESSAGE HIDE,F_TOTALIMAGAZZINI|HIDE,F_DETTAGLIOMAG
ITEM "A|articoli"
MESSAGE ENABLE,F_ORDINEART|HIDE,F_TOTALIDEPOSITI|HIDE,F_DETTAGLIODEP
MESSAGE SHOW,F_TOTALIMAGAZZINI|SHOW,F_DETTAGLIOMAG
ITEM "M|magazzini"
MESSAGE "C",F_ORDINEART|K_SPACE,F_ORDINEART|DISABLE,F_ORDINEART|SHOW,G_CODART@|HIDE,G_DESART@
MESSAGE SHOW,F_TOTALIDEPOSITI|SHOW,F_DETTAGLIODEP
MESSAGE HIDE,F_TOTALIMAGAZZINI|HIDE,F_DETTAGLIOMAG
END
LISTBOX F_ORDINEART 14
BEGIN
FLAGS "G"
FLAGS "G"
PROMPT 42 2 "sotto-ordinamento "
ITEM "C|codice"
MESSAGE HIDE,G_CATMER@|SHOW,G_CODART@|HIDE,G_DESART@
ITEM "D|descrizione"
MESSAGE HIDE,G_CATMER@|HIDE,G_CODART@|SHOW,G_DESART@
ITEM "M|gruppo merc."
MESSAGE SHOW,G_CATMER@|SHOW,G_CODART@|HIDE,G_DESART@
ITEM "C|codice"
MESSAGE HIDE,G_CATMER@|SHOW,G_CODART@|HIDE,G_DESART@
ITEM "D|descrizione"
MESSAGE HIDE,G_CATMER@|HIDE,G_CODART@|SHOW,G_DESART@
ITEM "M|gruppo merc."
MESSAGE SHOW,G_CATMER@|SHOW,G_CODART@|HIDE,G_DESART@
END
NUMBER F_ANNOES 4
BEGIN
FLAGS "A"
FLAGS "A"
PROMPT 2 3 "Codice es. "
USE ESC
INPUT CODTAB F_ANNOES
DISPLAY "Esercizio" CODTAB
DISPLAY "Dal@12" D0
DISPLAY "Al@12" D0
OUTPUT F_ANNOES CODTAB
CHECKTYPE REQUIRED
USE ESC
INPUT CODTAB F_ANNOES
DISPLAY "Esercizio" CODTAB
DISPLAY "Dal@12" D0
DISPLAY "Al@12" D0
OUTPUT F_ANNOES CODTAB
CHECKTYPE REQUIRED
END
LISTBOX F_FILTRO 10
BEGIN
FLAGS "G"
FLAGS "G"
PROMPT 53 3 "Filtro "
ITEM "T|tutto"
ITEM "N|negativi"
ITEM "T|tutto"
ITEM "N|negativi"
END
DATE F_DADATA
BEGIN
PROMPT 2 5 "Dalla data "
PROMPT 2 5 "Dalla data "
END
DATE F_ADATA
BEGIN
PROMPT 2 6 " alla data "
STR_EXPR ANSI(#F_ADATA)>=ANSI(#F_DADATA)||(#F_ADATA=="")
WARNING "Il secondo estremo deve essere superiore al primo"
STR_EXPR ANSI(#F_ADATA)>=ANSI(#F_DADATA)||(#F_ADATA=="")
WARNING "Il secondo estremo deve essere superiore al primo"
END
STRING F_DAART 20
BEGIN
PROMPT 28 5 "Dall'articolo "
FLAGS "U"
USE LF_ANAMAG
INPUT CODART F_DAART
DISPLAY "Codice" CODART
DISPLAY "Descr@50" DESCR
OUTPUT F_DAART CODART
GROUP G_CODART
FLAGS "U"
USE LF_ANAMAG
INPUT CODART F_DAART
DISPLAY "Codice" CODART
DISPLAY "Descr@50" DESCR
OUTPUT F_DAART CODART
GROUP G_CODART
END
STRING F_AART 20
BEGIN
PROMPT 28 6 " all'articolo "
FLAGS "U"
COPY USE F_DAART
INPUT CODART F_AART
COPY DISPLAY F_DAART
OUTPUT F_AART CODART
GROUP G_CODART
STR_EXPR (#F_AART>=#F_DAART)||(#F_AART=="")
WARNING "Il secondo estremo deve essere superiore al primo"
FLAGS "U"
COPY USE F_DAART
INPUT CODART F_AART
COPY DISPLAY F_DAART
OUTPUT F_AART CODART
GROUP G_CODART
STR_EXPR (#F_AART>=#F_DAART)||(#F_AART=="")
WARNING "Il secondo estremo deve essere superiore al primo"
END
STRING F_DADES 50 30
BEGIN
PROMPT 28 5 "Dall'articolo "
FLAGS "U"
USE LF_ANAMAG KEY 2
INPUT DESCR F_DADES
DISPLAY "Descr@50" DESCR
DISPLAY "Codice" CODART
OUTPUT F_DADES DESCR
GROUP G_DESART
FLAGS "U"
USE LF_ANAMAG KEY 2
INPUT DESCR F_DADES
DISPLAY "Descr@50" DESCR
DISPLAY "Codice" CODART
OUTPUT F_DADES DESCR
GROUP G_DESART
END
STRING F_ADES 50 30
BEGIN
PROMPT 28 6 " all'articolo "
FLAGS "U"
COPY USE F_DADES
INPUT DESCR F_ADES
COPY DISPLAY F_DADES
OUTPUT F_ADES DESCR
GROUP G_DESART
STR_EXPR (#F_ADES>=#F_DADES)||(#F_ADES=="")
WARNING "Il secondo estremo deve essere superiore al primo"
FLAGS "U"
COPY USE F_DADES
INPUT DESCR F_ADES
COPY DISPLAY F_DADES
OUTPUT F_ADES DESCR
GROUP G_DESART
STR_EXPR (#F_ADES>=#F_DADES)||(#F_ADES=="")
WARNING "Il secondo estremo deve essere superiore al primo"
END
STRING F_DAMAG 3
BEGIN
PROMPT 2 8 "Dal magazzino "
FLAGS "U"
USE MAG SELECT CODTAB[4,5]=="" && CODTAB[1,3]!=""
INPUT CODTAB F_DAMAG
DISPLAY "Codice" CODTAB
DISPLAY "Descr@50" S0
OUTPUT F_DAMAG CODTAB
FLAGS "U"
USE MAG SELECT CODTAB[4,5]=="" && CODTAB[1,3]!=""
INPUT CODTAB F_DAMAG
DISPLAY "Codice" CODTAB
DISPLAY "Descr@50" S0
OUTPUT F_DAMAG CODTAB
END
STRING F_AMAG 3
BEGIN
PROMPT 2 9 " al magazzino "
FLAGS "U"
COPY USE F_DAMAG
INPUT CODTAB F_AMAG
COPY DISPLAY F_DAMAG
OUTPUT F_AMAG CODTAB
STR_EXPR (#F_AMAG>=#F_DAMAG)||(#F_AMAG=="")
WARNING "Il secondo estremo deve essere superiore al primo"
FLAGS "U"
COPY USE F_DAMAG
INPUT CODTAB F_AMAG
COPY DISPLAY F_DAMAG
OUTPUT F_AMAG CODTAB
STR_EXPR (#F_AMAG>=#F_DAMAG)||(#F_AMAG=="")
WARNING "Il secondo estremo deve essere superiore al primo"
END
STRING F_DACATMER 3
BEGIN
PROMPT 2 11 "Dal gruppo "
FLAGS "U"
USE GMC SELECT CODTAB[4,5]==""
INPUT CODTAB F_DACATMER
DISPLAY "Codice" CODTAB
DISPLAY "Descr@50" S0
OUTPUT F_DACATMER CODTAB[1,3]
GROUP G_CATMER
FLAGS "U"
USE GMC SELECT CODTAB[4,5]==""
INPUT CODTAB F_DACATMER
DISPLAY "Codice" CODTAB
DISPLAY "Descr@50" S0
OUTPUT F_DACATMER CODTAB[1,3]
GROUP G_CATMER
END
STRING F_ACATMER 3
BEGIN
PROMPT 2 12 " al gruppo "
FLAGS "U"
COPY USE F_DACATMER
INPUT CODTAB F_ACATMER
COPY DISPLAY F_DACATMER
OUTPUT F_ACATMER CODTAB[1,3]
GROUP G_CATMER
STR_EXPR (#F_ACATMER>=#F_DACATMER)||(#F_ACATMER=="")
WARNING "Il secondo estremo deve essere superiore al primo"
FLAGS "U"
COPY USE F_DACATMER
INPUT CODTAB F_ACATMER
COPY DISPLAY F_DACATMER
OUTPUT F_ACATMER CODTAB[1,3]
GROUP G_CATMER
STR_EXPR (#F_ACATMER>=#F_DACATMER)||(#F_ACATMER=="")
WARNING "Il secondo estremo deve essere superiore al primo"
END
BOOLEAN F_RAGGCODICE
BEGIN
PROMPT 2 14 "Raggruppo gli articoli"
MESSAGE FALSE CLEAR,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
MESSAGE TRUE ENABLE,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
MESSAGE FALSE CLEAR,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
MESSAGE TRUE ENABLE,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
END
NUMBER F_TOLIVELLOART 1
BEGIN
PROMPT 42 14 "fino al livello "
USE FCA
INPUT CODTAB F_TOLIVELLOART
DISPLAY "Num." CODTAB
DISPLAY "Descr@50" S0
OUTPUT F_TOLIVELLOART CODTAB
CHECKTYPE NORMAL
// NUM_EXPR (||(#F_TOLIVELLOART=0))&&(((#F_TOLIVELLOGIAC+#F_FROMLIVELLOGIAC)*#F_TOLIVELLOART)=0)
WARNING "Livello finale non ammissibile"
USE FCA
INPUT CODTAB F_TOLIVELLOART
DISPLAY "Num." CODTAB
DISPLAY "Descr@50" S0
OUTPUT F_TOLIVELLOART CODTAB
CHECKTYPE NORMAL
// NUM_EXPR (||(#F_TOLIVELLOART=0))&&(((#F_TOLIVELLOGIAC+#F_FROMLIVELLOGIAC)*#F_TOLIVELLOART)=0)
WARNING "Livello finale non ammissibile"
END
BOOL F_RAGGLIVGIAC
BEGIN
PROMPT 2 15 "Raggruppo le giacenze"
MESSAGE FALSE CLEAR,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
MESSAGE TRUE ENABLE,F_TOLIVELLOGIAC
MESSAGE FALSE CLEAR,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
MESSAGE TRUE ENABLE,F_TOLIVELLOGIAC
END
NUMBER F_TOLIVELLOGIAC 1
BEGIN
FLAG "D"
FLAG "D"
PROMPT 42 15 "fino al livello "
USE FCG
INPUT CODTAB F_TOLIVELLOGIAC
DISPLAY "Num." CODTAB
DISPLAY "Descr@50" S0
OUTPUT F_TOLIVELLOGIAC CODTAB
WARNING "Livello finale non ammissibile"
CHECKTYPE NORMAL
USE FCG
INPUT CODTAB F_TOLIVELLOGIAC
DISPLAY "Num." CODTAB
DISPLAY "Descr@50" S0
OUTPUT F_TOLIVELLOGIAC CODTAB
WARNING "Livello finale non ammissibile"
CHECKTYPE NORMAL
END
BOOL F_SUDDIV_MAGAZZINI
BEGIN
PROMPT 2 16 "Suddivido per depositi"
MESSAGE TRUE ENABLE,F_SUDDIV_DEPOSITI
MESSAGE FALSE CLEAR,F_SUDDIV_DEPOSITI|K_SPACE,F_SUDDIV_DEPOSITI
PROMPT 2 16 "Suddivido per depositi"
MESSAGE TRUE ENABLE,F_SUDDIV_DEPOSITI
MESSAGE FALSE CLEAR,F_SUDDIV_DEPOSITI|K_SPACE,F_SUDDIV_DEPOSITI
END
BOOL F_SUDDIV_DEPOSITI
BEGIN
PROMPT 2 17 "Dettaglio i depositi"
MESSAGE TRUE ENABLE,F_DETTAGLIODEP
MESSAGE FALSE CLEAR,F_DETTAGLIODEP
PROMPT 2 17 "Dettaglio i depositi"
MESSAGE TRUE ENABLE,F_DETTAGLIODEP
MESSAGE FALSE CLEAR,F_DETTAGLIODEP
END
BOOL F_DETTAGLIODEP
BEGIN
PROMPT 42 17 "Dettaglio i depositi"
PROMPT 42 17 "Dettaglio i depositi"
END

776
mg/mg3300a.frm
View File

@ -1,8 +1,8 @@
#include "mg3300.h"
USE LF_ANAMAG
SORT LF_RMOVMAG BY LF_MOVMAG->DATAREG NUMREG
USING LF_MOVMAG INTO NUMREG==NUMREG
JOIN TO LF_ANAMAG KEY 2 INTO CODART==CODART
USING LF_MOVMAG INTO NUMREG==NUMREG
JOIN TO LF_ANAMAG KEY 2 INTO CODART==CODART
JOIN LF_MAG TO LF_RMOVMAG KEY 2 INTO ANNOES==1996 CODMAG==CODMAG CODART==CODART LIVELLO==LIVGIAC
JOIN LF_MOVMAG TO LF_RMOVMAG INTO NUMREG==NUMREG
JOIN CAU TO LF_MOVMAG INTO CODTAB==CODCAUS
@ -15,7 +15,7 @@ JOIN GMC TO LF_ANAMAG ALIAS ALIAS_SOTTOCATMER INTO CODTAB==GRMERC[1,5]
JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS 349 INTO CODART==CODART UM==UM
END
DESCRIPTION
BEGIN
47->* "Anagrafica articoli"
@ -37,411 +37,411 @@ BEGIN
END
SECTION HEADER ODD 5
STRINGA 1 40 1
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
MESSAGE _DITTA, !RAGSOC
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 120 1 "Data "
MESSAGE _TODAY
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 137 1 "Pagina "
MESSAGE _PAGENO
END
STRINGA 4 45
BEGIN
KEY "Intestazione stampa"
PROMPT 45 2 "Stampa schede di magazzino :"
MESSAGE _USER,TIPOSCHEDA
END
STRINGA 5 146
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
STRINGA 6 12
BEGIN
PROMPT 27 4 "UM"
END
NUMBER 7 12
BEGIN
PROMPT 31 4 "Quantità"
END
NUMBER 8 12
BEGIN
PROMPT 42 4 "Prezzo"
END
NUMBER 9 12
BEGIN
PROMPT 54 4 "Valore"
END
STRINGA 5 146
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
STRINGA 1 40 1
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
MESSAGE _DITTA, !RAGSOC
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 120 1 "Data "
MESSAGE _TODAY
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 137 1 "Pagina "
MESSAGE _PAGENO
END
STRINGA 4 45
BEGIN
KEY "Intestazione stampa"
PROMPT 45 2 "Stampa schede di magazzino :"
MESSAGE _USER,TIPOSCHEDA
END
STRINGA 5 146
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
STRINGA 6 12
BEGIN
PROMPT 27 4 "UM"
END
NUMBER 7 12
BEGIN
PROMPT 31 4 "Quantità"
END
NUMBER 8 12
BEGIN
PROMPT 42 4 "Prezzo"
END
NUMBER 9 12
BEGIN
PROMPT 54 4 "Valore"
END
STRINGA 5 146
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END
SECTION BODY ODD 2
NUMBER 100 1
BEGIN
FLAGS "H"
MESSAGE RESET,FF_SALDO_GART|RESET,FF_VALORE_GART
END
SECTION HEADER_ARTICOLO 1 2 2 GROUP
FLAGS "N"
SECTION HEADER_CATMER 1 2 1 GROUP
STRINGA 10 20 1
BEGIN
KEY "CODICE CATMER"
PROMPT 1 1 "Gruppo merceologico "
MESSAGE _USER,CODCATMER|RESET,FF_STAMPASALDOPREC
END
STRINGA 12 50 1
BEGIN
KEY "DESCR."
PROMPT 30 1 ""
MESSAGE _USER,CATMER
END
END //HEADER catmer
STRINGA 10 20 1
BEGIN
KEY "CODICE articolo"
PROMPT 1 1 "Articolo "
MESSAGE _USER,CODGRUPPOART|RESET,FF_STAMPASALDOPREC
END
STRINGA 11 50 1
BEGIN
KEY "DESCR.articolo"
PROMPT 30 1 ""
MESSAGE _USER,GRUPPOART
END
STRINGA 24 50 1
BEGIN
KEY "dep"
PROMPT 1 2 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END //HEADER articolo
NUMBER 100 1
BEGIN
FLAGS "H"
MESSAGE RESET,FF_SALDO_GART|RESET,FF_VALORE_GART
END
SECTION HEADER_ARTICOLO 1 2 2 GROUP
FLAGS "N"
SECTION HEADER_CATMER 1 2 1 GROUP
STRINGA 10 20 1
BEGIN
KEY "CODICE CATMER"
PROMPT 1 1 "Gruppo merceologico "
MESSAGE _USER,CODCATMER|RESET,FF_STAMPASALDOPREC
END
STRINGA 12 50 1
BEGIN
KEY "DESCR."
PROMPT 30 1 ""
MESSAGE _USER,CATMER
END
END //HEADER catmer
STRINGA 10 20 1
BEGIN
KEY "CODICE articolo"
PROMPT 1 1 "Articolo "
MESSAGE _USER,CODGRUPPOART|RESET,FF_STAMPASALDOPREC
END
STRINGA 11 50 1
BEGIN
KEY "DESCR.articolo"
PROMPT 30 1 ""
MESSAGE _USER,GRUPPOART
END
STRINGA 24 50 1
BEGIN
KEY "dep"
PROMPT 1 2 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END //HEADER articolo
SECTION GRUPPI_ARTICOLO 1 0 0 FILE LF_ANAMAG BY CODART
SECTION FILE_RMOVMAG 1 1 0 FILE LF_RMOVMAG
SECTION HEADER_LIVGIAC 1 3 3 GROUP
FLAGS "N"
SECTION HEADER_LIVGIACCATMER 1 1 1 GROUP
STRINGA 10 20 1
BEGIN
KEY "CODICE CATMER"
PROMPT 1 1 "Gruppo merceologico "
MESSAGE _USER,CODCATMER|RESET,FF_STAMPASALDOPREC
END
STRINGA 12 50 1
BEGIN
KEY "DESCR."
PROMPT 30 1 ""
MESSAGE _USER,CATMER
END
END //HEADER catmer
STRINGA 10 20 1
BEGIN
KEY "CODICE articolo"
PROMPT 1 1 "Articolo "
MESSAGE _USER,CODGRUPPOART|RESET,FF_STAMPASALDOPREC
END
STRINGA 11 50 1
BEGIN
KEY "DESCR.articolo"
PROMPT 30 1 ""
MESSAGE _USER,GRUPPOART
END
STRINGA 20 20 1
BEGIN
KEY "CODICE livello"
PROMPT 1 2 ""
MESSAGE _USER,CODGRUPPOGIAC
END
STRINGA 21 50 1
BEGIN
KEY "Livello giac"
PROMPT 23 2 ""
MESSAGE _USER,GRUPPOGIAC
END
SECTION HEADER_MAG 3 1 1 GROUP
STRINGA 22 50 1
BEGIN
KEY "mag"
PROMPT 5 1 "Magazzino "
FIELD 500@->S0
END
SECTION HEADER_DEP 1 1 1 GROUP
STRINGA 23 50 1
BEGIN
KEY "dep"
PROMPT 7 1 "Deposito "
FIELD 501@->S0
END
END // HEADER deposito
END // HEADER magazzino
STRINGA 24 50 1
BEGIN
KEY "dep"
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END // HEADER livgiac
STRINGA 10
BEGIN
FLAGS "H"
MESSAGE RESET,FF_SALDO_GRMOV|RESET,FF_VALORE_GRMOV
END
SECTION GRUPPI_ARTICOLO 1 0 0 FILE LF_ANAMAG BY CODART
SECTION FILE_RMOVMAG 1 1 0 FILE LF_RMOVMAG
SECTION HEADER_LIVGIAC 1 3 3 GROUP
FLAGS "N"
SECTION HEADER_LIVGIACCATMER 1 1 1 GROUP
STRINGA 10 20 1
BEGIN
KEY "CODICE CATMER"
PROMPT 1 1 "Gruppo merceologico "
MESSAGE _USER,CODCATMER|RESET,FF_STAMPASALDOPREC
END
STRINGA 12 50 1
BEGIN
KEY "DESCR."
PROMPT 30 1 ""
MESSAGE _USER,CATMER
END
END //HEADER catmer
STRINGA 10 20 1
BEGIN
KEY "CODICE articolo"
PROMPT 1 1 "Articolo "
MESSAGE _USER,CODGRUPPOART|RESET,FF_STAMPASALDOPREC
END
STRINGA 11 50 1
BEGIN
KEY "DESCR.articolo"
PROMPT 30 1 ""
MESSAGE _USER,GRUPPOART
END
STRINGA 20 20 1
BEGIN
KEY "CODICE livello"
PROMPT 1 2 ""
MESSAGE _USER,CODGRUPPOGIAC
END
STRINGA 21 50 1
BEGIN
KEY "Livello giac"
PROMPT 23 2 ""
MESSAGE _USER,GRUPPOGIAC
END
SECTION HEADER_MAG 3 1 1 GROUP
STRINGA 22 50 1
BEGIN
KEY "mag"
PROMPT 5 1 "Magazzino "
FIELD 500@->S0
END
SECTION HEADER_DEP 1 1 1 GROUP
STRINGA 23 50 1
BEGIN
KEY "dep"
PROMPT 7 1 "Deposito "
FIELD 501@->S0
END
END // HEADER deposito
END // HEADER magazzino
STRINGA 24 50 1
BEGIN
KEY "dep"
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END // HEADER livgiac
STRINGA 10
BEGIN
FLAGS "H"
MESSAGE RESET,FF_SALDO_GRMOV|RESET,FF_VALORE_GRMOV
END
SECTION GRUPPI_RMOVMAG 1 0 0 FILE LF_RMOVMAG GROUP CODART
NUMERO 10
BEGIN
FLAGS "H"
FIELD LF_RMOVMAG->NUMREG
MESSAGE COPY,FF_NUM_MOV|RESET,FF_SALDO_MOV|RESET,FF_VALORE_MOV
END
NUMERO 11
BEGIN
FLAGS "H"
FIELD LF_MOVMAG->DATAREG
MESSAGE COPY,FF_DATA_MOV
END
NUMERO 12
BEGIN
FLAGS "H"
FIELD LF_MOVMAG->CODCAUS
MESSAGE _USER,SETCAUSALE
END
SECTION MOVIMENTO 1 0 0 FILE LF_RMOVMAG GROUP NUMREG
NUMBER FF_QUANTRIGA 12
BEGIN
FLAGS "H"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*349@->FC|_USER,*SEGNOCAUS
END
SECTION GRUPPI_RMOVMAG 1 0 0 FILE LF_RMOVMAG GROUP CODART
NUMERO 10
BEGIN
FLAGS "H"
FIELD LF_RMOVMAG->NUMREG
MESSAGE COPY,FF_NUM_MOV|RESET,FF_SALDO_MOV|RESET,FF_VALORE_MOV
END
NUMERO 11
BEGIN
FLAGS "H"
FIELD LF_MOVMAG->DATAREG
MESSAGE COPY,FF_DATA_MOV
END
NUMERO 12
BEGIN
FLAGS "H"
FIELD LF_MOVMAG->CODCAUS
MESSAGE _USER,SETCAUSALE
END
SECTION MOVIMENTO 1 0 0 FILE LF_RMOVMAG GROUP NUMREG
NUMBER FF_QUANTRIGA 12
BEGIN
FLAGS "H"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*349@->FC|_USER,*SEGNOCAUS
END
NUMBER FF_STAMPASALDOPREC 30
BEGIN
FLAGS "H"
END
NUMBER FF_STAMPASALDOPREC 30
BEGIN
FLAGS "H"
END
SECTION MOVS_PRECEDENTI 1 0 0 STREXPR LF_MOVMAG->DATAREG<""
NUMBER 103 30
BEGIN
PROMPT 31 1 "Quantita' a saldo prec:"
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDOPREC
END
END
SECTION MOVS_PRECEDENTI 1 0 0 STREXPR LF_MOVMAG->DATAREG<""
NUMBER 103 30
BEGIN
PROMPT 31 1 "Quantita' a saldo prec:"
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDOPREC
END
END
SECTION MOVS_INTERESSATI 1 0 0 STREXPR LF_MOVMAG->DATAREG>=""
SECTION STAMPASALDOPREC 1 1 1 NUMEXPR (#FF_STAMPASALDOPREC==0)&&(#FF_QUANTRIGA!=0)
NUMBER 100 18
BEGIN
PROMPT 8 1 "Saldo precedente :"
END
NUMBER FF_SALDOPREC 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
END
NUMBER 101 12
BEGIN
FLAGS "H"
MESSAGE RESET,FF_SALDOPREC |INC,FF_STAMPASALDOPREC
END
STRINGA 102 12
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
END // stampa saldo precedente
SECTION MOVS_INTERESSATI 1 0 0 STREXPR LF_MOVMAG->DATAREG>=""
SECTION STAMPASALDOPREC 1 1 1 NUMEXPR (#FF_STAMPASALDOPREC==0)&&(#FF_QUANTRIGA!=0)
NUMBER 100 18
BEGIN
PROMPT 8 1 "Saldo precedente :"
END
NUMBER FF_SALDOPREC 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
END
NUMBER 101 12
BEGIN
FLAGS "H"
MESSAGE RESET,FF_SALDOPREC |INC,FF_STAMPASALDOPREC
END
STRINGA 102 12
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
END // stampa saldo precedente
STRINGA 100 30
BEGIN
PROMPT 1 1 ">>>"
MESSAGE _STREXPR,LF_RMOVMAG->CODART+"/"+LF_RMOVMAG->LIVGIAC+":"+LF_RMOVMAG->CODMAG
END
STRINGA 101 12
BEGIN
PROMPT 27 1 ""
FIELD LF_RMOVMAG->UM
END
STRINGA 100 30
BEGIN
PROMPT 1 1 ">>>"
MESSAGE _STREXPR,LF_RMOVMAG->CODART+"/"+LF_RMOVMAG->LIVGIAC+":"+LF_RMOVMAG->CODMAG
END
STRINGA 101 12
BEGIN
PROMPT 27 1 ""
FIELD LF_RMOVMAG->UM
END
NUMBER 104 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
FIELD LF_RMOVMAG->PREZZO
END
NUMBER 103 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDO_MOV
END
NUMBER 105 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS|ADD,FF_VALORE_MOV
END
END // sezione movimento di competenza
END // loop movimento
NUMBER 104 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
FIELD LF_RMOVMAG->PREZZO
END
NUMBER 103 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDO_MOV
END
NUMBER 105 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS|ADD,FF_VALORE_MOV
END
END // sezione movimento di competenza
END // loop movimento
SECTION TOTALI_MOV 1 2 1 NUMEXPR #FF_SALDO_MOV!=0
NUMBER FF_NUM_MOV 32
BEGIN
PROMPT 2 1 "Mov. "
END
STRINGA FF_DATA_MOV 10
BEGIN
PROMPT 12 1 "del "
END
STRINGA 100 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
NUMBER FF_SALDO_MOV 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE ADD,FF_SALDO_GRMOV
END
NUMBER 100 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
END
NUMBER FF_VALORE_MOV 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GRMOV
END
END // totali mov
END // loop scheda
SECTION TOTALI_MOV 1 2 1 NUMEXPR #FF_SALDO_MOV!=0
NUMBER FF_NUM_MOV 32
BEGIN
PROMPT 2 1 "Mov. "
END
STRINGA FF_DATA_MOV 10
BEGIN
PROMPT 12 1 "del "
END
STRINGA 100 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
NUMBER FF_SALDO_MOV 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE ADD,FF_SALDO_GRMOV
END
NUMBER 100 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
END
NUMBER FF_VALORE_MOV 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GRMOV
END
END // totali mov
END // loop scheda
SECTION TOTALI_GRMOV 1 1 3 GROUP
STRINGA 100 15
BEGIN
PROMPT 1 1 "Totale scheda"
END
STRINGA 100 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
MESSAGE COPY,FF_UM_GART
END
NUMBER FF_SALDO_GRMOV 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE ADD,FF_SALDO_GART
END
NUMBER FF_VALORE_GRMOV 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GART
END
END // TOTALI scheda per articolo
END // loop RMOVMAG
SECTION TOTALI_GRMOV 1 1 3 GROUP
STRINGA 100 15
BEGIN
PROMPT 1 1 "Totale scheda"
END
STRINGA 100 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
MESSAGE COPY,FF_UM_GART
END
NUMBER FF_SALDO_GRMOV 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE ADD,FF_SALDO_GART
END
NUMBER FF_VALORE_GRMOV 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GART
END
END // TOTALI scheda per articolo
END // loop RMOVMAG
SECTION TOTALI_MOV_ARTICOLO 1 0 0 NUMEXPR #FF_SALDO_MOV!=0
NUMBER FF_NUM_MOVART 32
BEGIN
PROMPT 2 1 "Mov. "
END
STRINGA FF_DATA_MOVART 10
BEGIN
PROMPT 12 1 "del "
END
STRINGA 100 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
NUMBER FF_SALDO_MOVART 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE ADD,FF_SALDO_GRMOV
END
NUMBER 100 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
END
NUMBER FF_VALORE_MOVART 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GRMOV
END
END // totali mov
SECTION TOTALI_MOV_ARTICOLO 1 0 0 NUMEXPR #FF_SALDO_MOV!=0
NUMBER FF_NUM_MOVART 32
BEGIN
PROMPT 2 1 "Mov. "
END
STRINGA FF_DATA_MOVART 10
BEGIN
PROMPT 12 1 "del "
END
STRINGA 100 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
NUMBER FF_SALDO_MOVART 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE ADD,FF_SALDO_GRMOV
END
NUMBER 100 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
END
NUMBER FF_VALORE_MOVART 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GRMOV
END
END // totali mov
END // ragg articolo (codice o catmer)
SECTION TOTALI_GRUPPIART 1 1 3 GROUP
STRINGA 100 15
BEGIN
PROMPT 1 1 "Totale scheda"
END
STRINGA FF_UM_GART 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
NUMBER FF_SALDO_GART 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
END
NUMBER FF_VALORE_GART 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
END
END // TOTALI scheda per articolo
END // ragg articolo (codice o catmer)
SECTION TOTALI_GRUPPIART 1 1 3 GROUP
STRINGA 100 15
BEGIN
PROMPT 1 1 "Totale scheda"
END
STRINGA FF_UM_GART 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
NUMBER FF_SALDO_GART 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
END
NUMBER FF_VALORE_GART 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
END
END // TOTALI scheda per articolo
END // *****
SECTION FOOTER ODD 2
STRINGA 100
BEGIN
KEY "NUMP"
PROMPT 50 1 "-----"
END
STRINGA 100
BEGIN
KEY "NUMP"
PROMPT 50 1 "-----"
END
NUMERO 101
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _PAGENO
PICTURE "-###-"
END
NUMERO 101
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _PAGENO
PICTURE "-###-"
END
END

566
mg/mg3300b.frm
View File

@ -14,7 +14,7 @@ JOIN GMC TO LF_ANAMAG ALIAS ALIAS_SOTTOCATMER INTO CODTAB==GRMERC[1,5]
JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS 349 INTO CODART==CODART UM==UM
END
DESCRIPTION
BEGIN
47->* "Anagrafica articoli"
@ -36,318 +36,318 @@ BEGIN
END
SECTION HEADER ODD 5
STRINGA 1 40 1
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
MESSAGE _DITTA, !RAGSOC
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 120 1 "Data "
MESSAGE _TODAY
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 137 1 "Pagina "
MESSAGE _PAGENO
END
STRINGA 4 45
BEGIN
KEY "Intestazione stampa"
PROMPT 45 2 "Stampa schede di magazzino :"
MESSAGE _USER,TIPOSCHEDA
END
STRINGA 5 146
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
STRINGA 6 12
BEGIN
PROMPT 27 4 "UM"
END
NUMBER 7 12
BEGIN
PROMPT 31 4 "Quantità"
END
NUMBER 8 12
BEGIN
PROMPT 42 4 "Prezzo"
END
NUMBER 9 12
BEGIN
PROMPT 54 4 "Valore"
END
STRINGA 5 146
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
STRINGA 1 40 1
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
MESSAGE _DITTA, !RAGSOC
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 120 1 "Data "
MESSAGE _TODAY
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 137 1 "Pagina "
MESSAGE _PAGENO
END
STRINGA 4 45
BEGIN
KEY "Intestazione stampa"
PROMPT 45 2 "Stampa schede di magazzino :"
MESSAGE _USER,TIPOSCHEDA
END
STRINGA 5 146
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
STRINGA 6 12
BEGIN
PROMPT 27 4 "UM"
END
NUMBER 7 12
BEGIN
PROMPT 31 4 "Quantità"
END
NUMBER 8 12
BEGIN
PROMPT 42 4 "Prezzo"
END
NUMBER 9 12
BEGIN
PROMPT 54 4 "Valore"
END
STRINGA 5 146
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END
SECTION BODY ODD 2
NUMBER 100 1
BEGIN
FLAGS "H"
MESSAGE RESET,FF_SALDO_GART|RESET,FF_VALORE_GART
END
SECTION HEADER_CATMER 1 2 1 GROUP
FLAGS "H"
STRINGA 10 20 1
BEGIN
KEY "CODICE CATMER"
PROMPT 1 1 "Gruppo merceologico "
MESSAGE _USER,CODCATMER
END
STRINGA 12 50 1
BEGIN
KEY "DESCR."
PROMPT 30 1 ""
MESSAGE _USER,CATMER
END
END //HEADER catmer
NUMBER 100 1
BEGIN
FLAGS "H"
MESSAGE RESET,FF_SALDO_GART|RESET,FF_VALORE_GART
END
SECTION HEADER_CATMER 1 2 1 GROUP
FLAGS "H"
STRINGA 10 20 1
BEGIN
KEY "CODICE CATMER"
PROMPT 1 1 "Gruppo merceologico "
MESSAGE _USER,CODCATMER
END
STRINGA 12 50 1
BEGIN
KEY "DESCR."
PROMPT 30 1 ""
MESSAGE _USER,CATMER
END
END //HEADER catmer
SECTION HEADER_MAG 1 2 2 GROUP
FLAGS "N"
STRINGA 22 50 1
BEGIN
KEY "mag"
PROMPT 1 1 "Magazzino "
FIELD 500@->S0
END
SECTION HEADER_DEP 2 1 1 GROUP
STRINGA 23 50 1
BEGIN
KEY "dep"
PROMPT 1 1 "Deposito "
FIELD 501@->S0
END
SECTION HEADER_ARTICOLO 2 1 1 GROUP
STRINGA 10 20 1
BEGIN
KEY "CODICE articolo"
PROMPT 1 1 "Articolo "
MESSAGE _USER,CODGRUPPOART
END
STRINGA 11 50 1
BEGIN
KEY "DESCR.articolo"
PROMPT 30 1 ""
MESSAGE _USER,GRUPPOART
END
SECTION HEADER_LIVGIAC 2 1 1 GROUP
STRINGA 20 20 1
BEGIN
KEY "CODICE livello"
PROMPT 1 1 ""
MESSAGE _USER,CODGRUPPOGIAC
END
STRINGA 21 50 1
BEGIN
KEY "Livello giac"
PROMPT 23 1 ""
MESSAGE _USER,GRUPPOGIAC
END
END // HEADER livgiac
END //HEADER articolo
END // HEADER deposito
STRINGA 24 50 1
BEGIN
KEY "dep"
PROMPT 1 2 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END // HEADER magazzino
SECTION HEADER_MAG 1 2 2 GROUP
FLAGS "N"
STRINGA 22 50 1
BEGIN
KEY "mag"
PROMPT 1 1 "Magazzino "
FIELD 500@->S0
END
SECTION HEADER_DEP 2 1 1 GROUP
STRINGA 23 50 1
BEGIN
KEY "dep"
PROMPT 1 1 "Deposito "
FIELD 501@->S0
END
SECTION HEADER_ARTICOLO 2 1 1 GROUP
STRINGA 10 20 1
BEGIN
KEY "CODICE articolo"
PROMPT 1 1 "Articolo "
MESSAGE _USER,CODGRUPPOART
END
STRINGA 11 50 1
BEGIN
KEY "DESCR.articolo"
PROMPT 30 1 ""
MESSAGE _USER,GRUPPOART
END
SECTION HEADER_LIVGIAC 2 1 1 GROUP
STRINGA 20 20 1
BEGIN
KEY "CODICE livello"
PROMPT 1 1 ""
MESSAGE _USER,CODGRUPPOGIAC
END
STRINGA 21 50 1
BEGIN
KEY "Livello giac"
PROMPT 23 1 ""
MESSAGE _USER,GRUPPOGIAC
END
END // HEADER livgiac
END //HEADER articolo
END // HEADER deposito
STRINGA 24 50 1
BEGIN
KEY "dep"
PROMPT 1 2 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END // HEADER magazzino
SECTION FILE_RMOVMAG 1 0 0 FILE LF_ANAMAG
SECTION FILE_RMOVMAG 1 0 0 FILE LF_ANAMAG
STRINGA 10
BEGIN
FLAGS "H"
MESSAGE RESET,FF_SALDO_GART|RESET,FF_VALORE_GART|RESET,FF_STAMPASALDOPREC
FLAGS "H"
MESSAGE RESET,FF_SALDO_GART|RESET,FF_VALORE_GART|RESET,FF_STAMPASALDOPREC
END
SECTION GRUPPI_RMOVMAG 1 0 0 FILE LF_RMOVMAG GROUP CODMAG+CODART
SECTION GRUPPI_RMOVMAG 1 0 0 FILE LF_RMOVMAG GROUP CODMAG+CODART
NUMERO 10
BEGIN
FLAGS "H"
FIELD LF_RMOVMAG->NUMREG
MESSAGE COPY,FF_NUM_MOV|RESET,FF_SALDO_MOV|RESET,FF_VALORE_MOV
FLAGS "H"
FIELD LF_RMOVMAG->NUMREG
MESSAGE COPY,FF_NUM_MOV|RESET,FF_SALDO_MOV|RESET,FF_VALORE_MOV
END
NUMERO 11
BEGIN
FLAGS "H"
FIELD LF_MOVMAG->DATAREG
MESSAGE COPY,FF_DATA_MOV
FLAGS "H"
FIELD LF_MOVMAG->DATAREG
MESSAGE COPY,FF_DATA_MOV
END
NUMERO 12
BEGIN
FLAGS "H"
FIELD LF_MOVMAG->CODCAUS
MESSAGE _USER,SETCAUSALE
FLAGS "H"
FIELD LF_MOVMAG->CODCAUS
MESSAGE _USER,SETCAUSALE
END
SECTION MOVIMENTO 1 0 0 FILE LF_RMOVMAG GROUP NUMREG
NUMBER FF_QUANTRIGA 12
BEGIN
FLAGS "H"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*349@->FC|_USER,*SEGNOCAUS
END
SECTION MOVIMENTO 1 0 0 FILE LF_RMOVMAG GROUP NUMREG
NUMBER FF_QUANTRIGA 12
BEGIN
FLAGS "H"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*349@->FC|_USER,*SEGNOCAUS
END
NUMBER FF_STAMPASALDOPREC 30
BEGIN
FLAGS "H"
END
NUMBER FF_STAMPASALDOPREC 30
BEGIN
FLAGS "H"
END
SECTION MOVS_PRECEDENTI 1 0 0 STREXPR LF_MOVMAG->DATAREG<""
NUMBER 103 30
BEGIN
PROMPT 31 1 "Quantita' a saldo prec:"
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDOPREC
END
END
SECTION MOVS_PRECEDENTI 1 0 0 STREXPR LF_MOVMAG->DATAREG<""
NUMBER 103 30
BEGIN
PROMPT 31 1 "Quantita' a saldo prec:"
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDOPREC
END
END
SECTION MOVS_INTERESSATI 1 0 0 STREXPR LF_MOVMAG->DATAREG>=""
SECTION STAMPASALDOPREC 1 1 1 NUMEXPR (#FF_STAMPASALDOPREC==0)&&(#FF_QUANTRIGA!=0)
NUMBER 100 18
BEGIN
PROMPT 8 1 "Saldo precedente :"
END
NUMBER FF_SALDOPREC 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
END
NUMBER 101 12
BEGIN
FLAGS "H"
MESSAGE RESET,FF_SALDOPREC |INC,FF_STAMPASALDOPREC
END
STRINGA 102 12
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
END // stampa saldo precedente
SECTION MOVS_INTERESSATI 1 0 0 STREXPR LF_MOVMAG->DATAREG>=""
SECTION STAMPASALDOPREC 1 1 1 NUMEXPR (#FF_STAMPASALDOPREC==0)&&(#FF_QUANTRIGA!=0)
NUMBER 100 18
BEGIN
PROMPT 8 1 "Saldo precedente :"
END
NUMBER FF_SALDOPREC 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
END
NUMBER 101 12
BEGIN
FLAGS "H"
MESSAGE RESET,FF_SALDOPREC |INC,FF_STAMPASALDOPREC
END
STRINGA 102 12
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
END // stampa saldo precedente
STRINGA 100 30
BEGIN
PROMPT 1 1 ">>>"
MESSAGE _STREXPR,LF_RMOVMAG->CODART+" "+LF_RMOVMAG->LIVGIAC+" "+LF_RMOVMAG->CODMAG
END
STRINGA 101 12
BEGIN
PROMPT 27 1 ""
FIELD LF_RMOVMAG->UM
END
STRINGA 100 30
BEGIN
PROMPT 1 1 ">>>"
MESSAGE _STREXPR,LF_RMOVMAG->CODART+" "+LF_RMOVMAG->LIVGIAC+" "+LF_RMOVMAG->CODMAG
END
STRINGA 101 12
BEGIN
PROMPT 27 1 ""
FIELD LF_RMOVMAG->UM
END
NUMBER 104 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
FIELD LF_RMOVMAG->PREZZO
END
NUMBER 103 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDO_MOV
END
NUMBER 105 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS|ADD,FF_VALORE_MOV
END
END // sezione movimento di competenza
END // loop movimento
NUMBER 104 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
FIELD LF_RMOVMAG->PREZZO
END
NUMBER 103 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDO_MOV
END
NUMBER 105 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS|ADD,FF_VALORE_MOV
END
END // sezione movimento di competenza
END // loop movimento
SECTION TOTALI_MOV 1 4 1 NUMEXPR #FF_SALDO_MOV!=0
NUMBER FF_NUM_MOV 32
BEGIN
PROMPT 2 1 "Mov. "
END
STRINGA FF_DATA_MOV 10
BEGIN
PROMPT 12 1 "del "
END
STRINGA 100 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
NUMBER FF_SALDO_MOV 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE ADD,FF_SALDO_GART
END
NUMBER 100 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
END
NUMBER FF_VALORE_MOV 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GART
END
END // totali mov
END // loop scheda
SECTION TOTALI_MOV 1 4 1 NUMEXPR #FF_SALDO_MOV!=0
NUMBER FF_NUM_MOV 32
BEGIN
PROMPT 2 1 "Mov. "
END
STRINGA FF_DATA_MOV 10
BEGIN
PROMPT 12 1 "del "
END
STRINGA 100 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
NUMBER FF_SALDO_MOV 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE ADD,FF_SALDO_GART
END
NUMBER 100 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
END
NUMBER FF_VALORE_MOV 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GART
END
END // totali mov
END // loop scheda
SECTION TOTALI_GART 1 1 3 GROUP
STRINGA 100 15
BEGIN
PROMPT 1 1 "Totale scheda"
END
STRINGA 100 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
NUMBER FF_SALDO_GART 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
END
NUMBER FF_VALORE_GART 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
END
END // TOTALI scheda per articolo
END // loop RMOVMAG raggruppate
SECTION TOTALI_GART 1 1 3 GROUP
STRINGA 100 15
BEGIN
PROMPT 1 1 "Totale scheda"
END
STRINGA 100 2
BEGIN
PROMPT 27 1 ""
FIELD LF_UMART->UM
END
NUMBER FF_SALDO_GART 12
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
END
NUMBER FF_VALORE_GART 12
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
END
END // TOTALI scheda per articolo
END // loop RMOVMAG raggruppate
END // *****
SECTION FOOTER ODD 2
STRINGA 100
BEGIN
KEY "NUMP"
PROMPT 50 1 "-----"
END
STRINGA 100
BEGIN
KEY "NUMP"
PROMPT 50 1 "-----"
END
NUMERO 101
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _PAGENO
PICTURE "-###-"
END
NUMERO 101
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _PAGENO
PICTURE "-###-"
END
END

328
mg/mg3400.cpp
View File

@ -14,103 +14,103 @@
#include "mg3frm.h"
class TStgiacprezzi_mask: public TMask
{
static bool handle_ragg(TMask_field &fld, KEY k); // handler
static bool handle_liv(TMask_field &fld, KEY k); // handler
static bool handle_subord(TMask_field &fld, KEY k); // handler
static bool handle_ragg(TMask_field &fld, KEY k); // handler
static bool handle_liv(TMask_field &fld, KEY k); // handler
static bool handle_subord(TMask_field &fld, KEY k); // handler
public:
TStgiacprezzi_mask();
~TStgiacprezzi_mask(){};
TStgiacprezzi_mask();
~TStgiacprezzi_mask(){};
};
TStgiacprezzi_mask::TStgiacprezzi_mask():
TMask("mg3400")
TMask("mg3400")
{
TMag_livelli giaclev("FCA"),artlev("FCG");
TMag_livelli giaclev("FCA"),artlev("FCG");
set_handler(F_TOLIVELLOART, handle_liv);
set_handler(F_TOLIVELLOGIAC, handle_liv);
set_handler(F_ORDINE, handle_ragg);
set_handler(F_DETTAGLIODEP, handle_ragg);
set_handler(F_DETTAGLIOMAG, handle_ragg);
set_handler(F_ORDINEART,handle_subord);
if (!artlev.enabled()) {
TMask_field &f1=field(F_RAGGCODICE);
f1.reset(); f1.check();f1.hide();
}
if (!giaclev.enabled()) {
TMask_field &f2=field(F_RAGGLIVGIAC);
f2.reset(); f2.check();f2.hide();
}
set_handler(F_ORDINEART,handle_subord);
if (!artlev.enabled()) {
TMask_field &f1=field(F_RAGGCODICE);
f1.reset(); f1.check();f1.hide();
}
if (!giaclev.enabled()) {
TMask_field &f2=field(F_RAGGLIVGIAC);
f2.reset(); f2.check();f2.hide();
}
}
bool TStgiacprezzi_mask::handle_subord(TMask_field &fld, KEY k)
{
if (k == K_SPACE)
{
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
switch (fld.get()[1]) {
case 'C':
if (fld.mask().get(F_ORDINE)=="A")
fraggcod.enable();
else {
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
{
fraggcod.reset(); fraggcod.disable();
fragggiac.reset(); fragggiac.disable();
fraggcod.do_message(0);fragggiac.do_message(0);
}
}
break;
case 'M':
case 'D':
fraggcod.reset(); fraggcod.check();fraggcod.disable();
break;
}
}
return TRUE;
if (k == K_SPACE)
{
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
switch (fld.get()[1]) {
case 'C':
if (fld.mask().get(F_ORDINE)=="A")
fraggcod.enable();
else {
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
{
fraggcod.reset(); fraggcod.disable();
fragggiac.reset(); fragggiac.disable();
fraggcod.do_message(0);fragggiac.do_message(0);
}
}
break;
case 'M':
case 'D':
fraggcod.reset(); fraggcod.check();fraggcod.disable();
break;
}
}
return TRUE;
}
bool TStgiacprezzi_mask::handle_liv(TMask_field &fld, KEY k)
{
if (k == K_TAB)
{
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG);
if (fld.mask().get(F_ORDINE)=="A")
{
if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC))
{
// raggruppamenti prima del dettaglio magazzini
ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0);
} else {
ftotmag.enable();
}
}
}
if (k == K_TAB)
{
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG);
if (fld.mask().get(F_ORDINE)=="A")
{
if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC))
{
// raggruppamenti prima del dettaglio magazzini
ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0);
} else {
ftotmag.enable();
}
}
}
return TRUE;
}
bool TStgiacprezzi_mask::handle_ragg(TMask_field &fld, KEY k)
{
if (k == K_SPACE)
{
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
if (fld.mask().get(F_ORDINE)=="M")
{
ftotmag.enable();
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
{
fraggcod.reset(); fraggcod.disable();
fragggiac.reset(); fragggiac.disable();
fraggcod.do_message(0);fragggiac.do_message(0);
return TRUE;
}
}
fraggcod.enable();
fragggiac.enable();
}
if (k == K_SPACE)
{
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
if (fld.mask().get(F_ORDINE)=="M")
{
ftotmag.enable();
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
{
fraggcod.reset(); fraggcod.disable();
fragggiac.reset(); fragggiac.disable();
fraggcod.do_message(0);fragggiac.do_message(0);
return TRUE;
}
}
fraggcod.enable();
fragggiac.enable();
}
return TRUE;
}
@ -118,23 +118,23 @@ bool TStgiacprezzi_mask::handle_ragg(TMask_field &fld, KEY k)
// mg3300 Stampa
class TStampa_giacprezzi : public TPrint_application
{
TArray * _files;
TStgiacprezzi_mask * _mask;
TCursor * _cur;
TForm_stampemg * _form;
TArray * _files;
TStgiacprezzi_mask * _mask;
TCursor * _cur;
TForm_stampemg * _form;
protected:
virtual bool print_one(int file) {return TRUE;}
virtual bool user_create();
virtual bool user_destroy();
virtual bool set_print(int i=1);
virtual void set_page(int file,int count) { }
void setprint_permagazzini();
void setprint_perarticoli();
virtual void set_page(int file,int count) { }
void setprint_permagazzini();
void setprint_perarticoli();
public:
TStampa_giacprezzi() {}
virtual ~TStampa_giacprezzi() {}
TStampa_giacprezzi() {}
virtual ~TStampa_giacprezzi() {}
};
// ORDINAMENTO
@ -142,62 +142,62 @@ void TStampa_giacprezzi::setprint_perarticoli()
{
TRectype darec(LF_ANAMAG),arec(LF_ANAMAG);
TString cfilter,filter,joinexp;
TString sortexp("ANNOES|CODART|LIVELLO|CODMAG");
TString sortexp("ANNOES|CODART|LIVELLO|CODMAG");
char subordine=*_mask->get(F_ORDINEART);
_form = new TForm_stampemg("mg3400a", "");
_form = new TForm_stampemg("mg3400a", "");
_cur = _form->cursor();
if (*_mask->get(F_DAMAG))
filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
if (*_mask->get(F_AMAG))
filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
if (filter.not_empty())
filter.cut(filter.len()-2);
if (*_mask->get(F_DAMAG))
filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
if (*_mask->get(F_AMAG))
filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
if (filter.not_empty())
filter.cut(filter.len()-2);
switch (subordine)
{
case 'C':
_cur->setkey(1);
darec.put("CODART",_mask->get(F_DAART));
arec.put("CODART",_mask->get(F_AART));
_form->find_field('B',odd_page,"H_CATMER").hide();
_form->find_field('B',odd_page,"TOT_CATMER").hide();
_form->setcatmer(FALSE);
break;
case 'D':
_cur->setkey(2);
darec.put("DESCR",_mask->get(F_DADES));
arec.put("DESCR",_mask->get(F_ADES));
_form->find_field('B',odd_page,"H_CATMER").disable();
_form->find_field('B',odd_page,"TOT_CATMER").hide();
_form->setcatmer(FALSE);
break;
case 'M':
_cur->setkey(3);
darec.put("GRMERC",_mask->get(F_DACATMER));
darec.put("CODART",_mask->get(F_DAART));
arec.put("GRMERC",_mask->get(F_ACATMER));
arec.put("CODART",_mask->get(F_AART));
_form->find_field('B',odd_page,"H_CATMER").show();
_form->find_field('B',odd_page,"TOT_CATMER").show();
_form->setcatmer(TRUE);
break;
case 'C':
_cur->setkey(1);
darec.put("CODART",_mask->get(F_DAART));
arec.put("CODART",_mask->get(F_AART));
_form->find_field('B',odd_page,"H_CATMER").hide();
_form->find_field('B',odd_page,"TOT_CATMER").hide();
_form->setcatmer(FALSE);
break;
case 'D':
_cur->setkey(2);
darec.put("DESCR",_mask->get(F_DADES));
arec.put("DESCR",_mask->get(F_ADES));
_form->find_field('B',odd_page,"H_CATMER").disable();
_form->find_field('B',odd_page,"TOT_CATMER").hide();
_form->setcatmer(FALSE);
break;
case 'M':
_cur->setkey(3);
darec.put("GRMERC",_mask->get(F_DACATMER));
darec.put("CODART",_mask->get(F_DAART));
arec.put("GRMERC",_mask->get(F_ACATMER));
arec.put("CODART",_mask->get(F_AART));
_form->find_field('B',odd_page,"H_CATMER").show();
_form->find_field('B',odd_page,"TOT_CATMER").show();
_form->setcatmer(TRUE);
break;
}
_form->setdett_perart(
_mask->get_int(F_FROMLIVELLOART),
_mask->get_int(F_TOLIVELLOART),
_mask->get_int(F_FROMLIVELLOGIAC),
_mask->get_int(F_TOLIVELLOGIAC),
_mask->get_bool(F_TOTALIMAGAZZINI),
_mask->get_bool(F_TOTALIDEPOSITI));
_form->setdett_perart(
_mask->get_int(F_FROMLIVELLOART),
_mask->get_int(F_TOLIVELLOART),
_mask->get_int(F_FROMLIVELLOGIAC),
_mask->get_int(F_TOLIVELLOGIAC),
_mask->get_bool(F_TOTALIMAGAZZINI),
_mask->get_bool(F_TOTALIDEPOSITI));
joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART";
joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART";
TSortedfile *mag;
mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1);
_cur->relation()->replace(mag,1,joinexp);
_cur->setfilter(cfilter);
_cur->setregion(darec,arec);
TSortedfile *mag;
mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1);
_cur->relation()->replace(mag,1,joinexp);
_cur->setfilter(cfilter);
_cur->setregion(darec,arec);
}
void TStampa_giacprezzi::setprint_permagazzini()
@ -207,42 +207,42 @@ void TStampa_giacprezzi::setprint_permagazzini()
TString cfilter,sortexp,joinexp;
_form = new TForm_stampemg("mg3400b", "");
_cur = _form->cursor();
// setta il filtro sul cursore
if (*_mask->get(F_DAART))
cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
if (*_mask->get(F_AART))
cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
if (cfilter.not_empty())
cfilter.cut(cfilter.len()-2);
// setta il filtro sul cursore
if (*_mask->get(F_DAART))
cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
if (*_mask->get(F_AART))
cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
if (cfilter.not_empty())
cfilter.cut(cfilter.len()-2);
// abilita/disabilita le sezioni dei totali
bool showdett;
showdett=_mask->get_bool(F_DETTAGLIODEP);
_form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),_mask->get_int(F_TOLIVELLOART),_mask->get_int(F_FROMLIVELLOGIAC),_mask->get_int(F_TOLIVELLOGIAC),_mask->get_bool(F_TOTALIMAGAZZINI),_mask->get_bool(F_TOTALIDEPOSITI),showdett);
// abilita/disabilita le sezioni dei totali
bool showdett;
showdett=_mask->get_bool(F_DETTAGLIODEP);
_form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),_mask->get_int(F_TOLIVELLOART),_mask->get_int(F_FROMLIVELLOGIAC),_mask->get_int(F_TOLIVELLOGIAC),_mask->get_bool(F_TOTALIMAGAZZINI),_mask->get_bool(F_TOTALIDEPOSITI),showdett);
darec.put("ANNOES",_mask->get(F_ANNOES));
darec.put("CODMAG",_mask->get(F_DAMAG));
arec.put("ANNOES",_mask->get(F_ANNOES));
arec.put("CODMAG",_mask->get(F_AMAG));
_cur->setfilter(cfilter);
_cur->setregion(darec,arec);
darec.put("ANNOES",_mask->get(F_ANNOES));
darec.put("CODMAG",_mask->get(F_DAMAG));
arec.put("ANNOES",_mask->get(F_ANNOES));
arec.put("CODMAG",_mask->get(F_AMAG));
_cur->setfilter(cfilter);
_cur->setregion(darec,arec);
}
bool TStampa_giacprezzi::set_print(int i)
{
while (TRUE) {
if (_mask->run() != K_ENTER)
return FALSE;
while (TRUE) {
if (_mask->run() != K_ENTER)
return FALSE;
if (*_mask->get(F_ORDINE)=='A')
{
setprint_perarticoli();
} else {
setprint_permagazzini();
}
_form->print();
delete _form;
} // while true
if (*_mask->get(F_ORDINE)=='A')
{
setprint_perarticoli();
} else {
setprint_permagazzini();
}
_form->print();
delete _form;
} // while true
return TRUE;
}
@ -256,14 +256,14 @@ bool TStampa_giacprezzi::user_create()
bool TStampa_giacprezzi::user_destroy()
{
delete _mask;
delete _files;
delete _mask;
delete _files;
return TRUE;
}
int mg3400(int argc, char* argv[])
{
TStampa_giacprezzi a;// derivata da Application e con uso di form
a.run(argc,argv,"Stampa giacenze e prezzi");
return 0;
TStampa_giacprezzi a;// derivata da Application e con uso di form
a.run(argc,argv,"Stampa giacenze e prezzi");
return 0;
}

388
mg/mg4300.frm
View File

@ -6,7 +6,7 @@ JOIN LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS ALIAS_UMRMOV INTO CODART==CODART UM==UM
END
DESCRIPTION
BEGIN
47->* "Anagrafica articoli"
@ -26,212 +26,212 @@ BEGIN
END
SECTION HEADER ODD 5
STRINGA 1 40 1
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
MESSAGE _USER, INTEST_DITTA
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 66 1 "Data "
MESSAGE _TODAY
END
STRINGA 4 45
BEGIN
KEY "Intestazione stampa"
PROMPT 25 2 ""
MESSAGE _USER,INTEST_REG
END
STRINGA 5 80
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
STRINGA 6 12
BEGIN
PROMPT 42 4 "UM"
END
NUMBER 7 12
BEGIN
PROMPT 46 4 "Quantità"
END
NUMBER 8 12
BEGIN
PROMPT 57 4 "Prezzo"
END
NUMBER 9 12
BEGIN
PROMPT 69 4 "Valore"
END
STRINGA 5 80
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
STRINGA 1 40 1
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
MESSAGE _USER, INTEST_DITTA
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 66 1 "Data "
MESSAGE _TODAY
END
STRINGA 4 45
BEGIN
KEY "Intestazione stampa"
PROMPT 25 2 ""
MESSAGE _USER,INTEST_REG
END
STRINGA 5 80
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
STRINGA 6 12
BEGIN
PROMPT 42 4 "UM"
END
NUMBER 7 12
BEGIN
PROMPT 46 4 "Quantità"
END
NUMBER 8 12
BEGIN
PROMPT 57 4 "Prezzo"
END
NUMBER 9 12
BEGIN
PROMPT 69 4 "Valore"
END
STRINGA 5 80
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END
SECTION BODY ODD 2
NUMBER 100
BEGIN
FLAGS "H"
MESSAGE RESET,3@
END
NUMBER 100
BEGIN
FLAGS "H"
MESSAGE RESET,3@
END
STRINGA 101 48
BEGIN
FLAGS "H"
PROMPT 1 1 ""
MESSAGE _USER,INFO_CRONO|RESET,FF_NUMLINEE|COPY,FF_INFORAGGCRO
END
STRINGA 101 48
BEGIN
FLAGS "H"
PROMPT 1 1 ""
MESSAGE _USER,INFO_CRONO|RESET,FF_NUMLINEE|COPY,FF_INFORAGGCRO
END
SECTION RAGG_CRONOLOGICO 1 0 0 FILE LF_RMOVMAG GROUP CRONO_FIELD
NUMBER 100
BEGIN
FLAGS "H"
MESSAGE RESET,2@
END
SECTION RAGG_CRONOLOGICO 1 0 0 FILE LF_RMOVMAG GROUP CRONO_FIELD
NUMBER 100
BEGIN
FLAGS "H"
MESSAGE RESET,2@
END
SECTION HEADER_RAGG_FISC 1 2 0 GROUP
STRINGA 100 78
BEGIN
PROMPT 1 1 "++"
MESSAGE _USER,INFO_FISC|COPY,FF_CODTOT
END
STRINGA 102 12
BEGIN
PROMPT 37 1 ""
FIELD LF_UMART->UM
MESSAGE COPY,FF_UMTOT
END
END
SECTION HEADER_RAGG_FISC 1 2 0 GROUP
STRINGA 100 78
BEGIN
PROMPT 1 1 "++"
MESSAGE _USER,INFO_FISC|COPY,FF_CODTOT
END
STRINGA 102 12
BEGIN
PROMPT 37 1 ""
FIELD LF_UMART->UM
MESSAGE COPY,FF_UMTOT
END
END
SECTION RAGG_FISCALE 1 0 0 FILE LF_RMOVMAG GROUP FISC_FIELD
STRINGA 100 30
BEGIN
PROMPT 1 1 ">>>"
MESSAGE _STREXPR,LF_RMOVMAG->NUMREG+LF_RMOVMAG->CODART+"/"+LF_RMOVMAG->LIVGIAC+":"+LF_RMOVMAG->CODMAG
MESSAGE _USER,REGISTRASTAMPA
END
STRINGA 100 10
BEGIN
PROMPT 31 1 ">>>"
FIELD LF_MOVMAG->DATAREG
END
STRINGA 101 12
BEGIN
PROMPT 67 1 ""
FIELD LF_RMOVMAG->UM
END
NUMBER 103 12
BEGIN
PROMPT 71 1 ""
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*ALIAS_UMRMOV@->FC|_USER,*SEGNOCAUS|ADD,FF_QTARAGGFIS
END
NUMBER 105 12
BEGIN
PROMPT 94 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS|ADD,FF_VALTOT
END
NUMBER 104 12
BEGIN
PROMPT 82 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#105/#103
END
END // RAGG FISCALE
NUMBER FF_NUMLINEE 12
BEGIN
FLAGS "H"
END
SECTION RAGG_FISCALE 1 0 0 FILE LF_RMOVMAG GROUP FISC_FIELD
STRINGA 100 30
BEGIN
PROMPT 1 1 ">>>"
MESSAGE _STREXPR,LF_RMOVMAG->NUMREG+LF_RMOVMAG->CODART+"/"+LF_RMOVMAG->LIVGIAC+":"+LF_RMOVMAG->CODMAG
MESSAGE _USER,REGISTRASTAMPA
END
STRINGA 100 10
BEGIN
PROMPT 31 1 ">>>"
FIELD LF_MOVMAG->DATAREG
END
STRINGA 101 12
BEGIN
PROMPT 67 1 ""
FIELD LF_RMOVMAG->UM
END
NUMBER 103 12
BEGIN
PROMPT 71 1 ""
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*ALIAS_UMRMOV@->FC|_USER,*SEGNOCAUS|ADD,FF_QTARAGGFIS
END
NUMBER 105 12
BEGIN
PROMPT 94 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS|ADD,FF_VALTOT
END
NUMBER 104 12
BEGIN
PROMPT 82 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#105/#103
END
END // RAGG FISCALE
NUMBER FF_NUMLINEE 12
BEGIN
FLAGS "H"
END
SECTION TOTALI_RAGG_FISC 1 1 1 NUMEXPR #FF_QTARAGGFIS!=0
SECTION HEADER_RAGG_CRONO 1 2 1 NUMEXPR #FF_NUMLINEE=0
STRINGA FF_INFORAGGCRO 48
BEGIN
PROMPT 1 1 ""
MESSAGE _USER,INCNUMREGST
END
SECTION HEADER_MOV 2 2 1 GROUP
STRINGA 101 30
BEGIN
PROMPT 10 1 "Causale: "
FIELD ALIAS_CAUSALI@->CODTAB
END
STRINGA 101 30
BEGIN
PROMPT 31 1 ""
FIELD ALIAS_CAUSALI@->S0
END
SECTION HEADER_DOC 2 1 1 NUMEXPR LF_MOVMAG->NUMDOC!=0
STRINGA 101 25
BEGIN
PROMPT 10 1 "Documento "
FIELD LF_MOVMAG->NUMDOC
END
STRINGA 101 10
BEGIN
PROMPT 30 1 "del "
FIELD LF_MOVMAG->ANNODOC
END
END
END
END // header_ragg_crono
SECTION TOTALI_RAGG_FISC 1 1 1 NUMEXPR #FF_QTARAGGFIS!=0
SECTION HEADER_RAGG_CRONO 1 2 1 NUMEXPR #FF_NUMLINEE=0
STRINGA FF_INFORAGGCRO 48
BEGIN
PROMPT 1 1 ""
MESSAGE _USER,INCNUMREGST
END
SECTION HEADER_MOV 2 2 1 GROUP
STRINGA 101 30
BEGIN
PROMPT 10 1 "Causale: "
FIELD ALIAS_CAUSALI@->CODTAB
END
STRINGA 101 30
BEGIN
PROMPT 31 1 ""
FIELD ALIAS_CAUSALI@->S0
END
SECTION HEADER_DOC 2 1 1 NUMEXPR LF_MOVMAG->NUMDOC!=0
STRINGA 101 25
BEGIN
PROMPT 10 1 "Documento "
FIELD LF_MOVMAG->NUMDOC
END
STRINGA 101 10
BEGIN
PROMPT 30 1 "del "
FIELD LF_MOVMAG->ANNODOC
END
END
END
END // header_ragg_crono
STRINGA FF_CODTOT 40
BEGIN
PROMPT 1 1 ""
MESSAGE INC,FF_NUMLINEE
END
STRINGA FF_UMTOT 2
BEGIN
PROMPT 42 1 ""
GROUP 2
END
NUMBER FF_QTARAGGFIS 12
BEGIN
PROMPT 45 1 ""
PICTURE "###.###,@##"
GROUP 2
END
NUMBER FF_VALTOT 12
BEGIN
PROMPT 71 1 ""
PICTURE "###.###.###"
GROUP 2
END
NUMBER 204 12
BEGIN
PROMPT 58 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALTOT/#FF_QTARAGGFIS
GROUP 2
END
END // totali ragg_
END // RAGG CRONOLOGICO
STRINGA FF_CODTOT 40
BEGIN
PROMPT 1 1 ""
MESSAGE INC,FF_NUMLINEE
END
STRINGA FF_UMTOT 2
BEGIN
PROMPT 42 1 ""
GROUP 2
END
NUMBER FF_QTARAGGFIS 12
BEGIN
PROMPT 45 1 ""
PICTURE "###.###,@##"
GROUP 2
END
NUMBER FF_VALTOT 12
BEGIN
PROMPT 71 1 ""
PICTURE "###.###.###"
GROUP 2
END
NUMBER 204 12
BEGIN
PROMPT 58 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALTOT/#FF_QTARAGGFIS
GROUP 2
END
END // totali ragg_
END // RAGG CRONOLOGICO
END // BODY: CICLO MOV
SECTION FOOTER ODD 2
STRINGA 100
BEGIN
KEY "NUMP"
PROMPT 50 1 "-----"
END
STRINGA 100
BEGIN
KEY "NUMP"
PROMPT 50 1 "-----"
END
NUMERO 101
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _USER,PAGENO
PICTURE "-###-"
END
NUMERO 101
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _USER,PAGENO
PICTURE "-###-"
END
END