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_SCHEDA 101
#define F_DADATA 102 #define F_DADATA 102
#define F_ADATA 103 #define F_ADATA 103
#define F_ORDINE 104 #define F_ORDINE 104
#define F_ORDINEART 105 #define F_ORDINEART 105
@ -31,25 +31,25 @@
#define G_DESART 3 #define G_DESART 3
#define FF_STAMPASALDOPREC 300 #define FF_STAMPASALDOPREC 300
#define FF_SALDO_MOV 301 #define FF_SALDO_MOV 301
#define FF_SALDO_MOVS 302 #define FF_SALDO_MOVS 302
#define FF_SALDO_GRMOV 303 #define FF_SALDO_GRMOV 303
#define FF_SALDOPREC 304 #define FF_SALDOPREC 304
#define FF_SALDOPREC_MOVS 305 #define FF_SALDOPREC_MOVS 305
#define FF_SALDOPREC_GRMOV 306 #define FF_SALDOPREC_GRMOV 306
#define FF_NUM_MOV 307 #define FF_NUM_MOV 307
#define FF_DATA_MOV 308 #define FF_DATA_MOV 308
#define FF_QUANTRIGA 309 #define FF_QUANTRIGA 309
#define FF_VALORE_MOV 310 #define FF_VALORE_MOV 310
#define FF_VALORE_GRMOV 311 #define FF_VALORE_GRMOV 311
#define FF_UM_GART 312 #define FF_UM_GART 312
#define FF_SALDO_GART 313 #define FF_SALDO_GART 313
#define FF_VALORE_GART 314 #define FF_VALORE_GART 314
#define FF_NUM_MOVART 315 #define FF_NUM_MOVART 315
#define FF_SALDO_MOVART 316 #define FF_SALDO_MOVART 316
#define FF_DATA_MOVART 317 #define FF_DATA_MOVART 317
#define FF_VALORE_MOVART 318 #define FF_VALORE_MOVART 318
#define ALIAS_CATMER 510 #define ALIAS_CATMER 510
#define ALIAS_SOTTOCATMER 511 #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 LISTBOX F_SCHEDA 30
BEGIN BEGIN
PROMPT 2 1 "Tipo scheda " PROMPT 2 1 "Tipo scheda "
ITEM "G|Giacenza" ITEM "G|Giacenza"
ITEM "OF|Ordinato fornitori" ITEM "OF|Ordinato fornitori"
ITEM "OC|Ordinato clienti" ITEM "OC|Ordinato clienti"
ITEM "ACL|A conto lavoro" ITEM "ACL|A conto lavoro"
ITEM "INCL|In conto lavoro" ITEM "INCL|In conto lavoro"
ITEM "PC|Componenti in produzione " ITEM "PC|Componenti in produzione "
ITEM "PF|Finiti in produzione " ITEM "PF|Finiti in produzione "
END END
LISTBOX F_ORDINE 12 LISTBOX F_ORDINE 12
BEGIN BEGIN
PROMPT 2 2 "Ordinamento " PROMPT 2 2 "Ordinamento "
ITEM "A|articoli" ITEM "A|articoli"
MESSAGE ENABLE,F_ORDINEART|HIDE,F_TOTALIDEPOSITI|HIDE,F_DETTAGLIODEP MESSAGE ENABLE,F_ORDINEART|HIDE,F_TOTALIDEPOSITI|HIDE,F_DETTAGLIODEP
MESSAGE SHOW,F_TOTALIMAGAZZINI|SHOW,F_DETTAGLIOMAG MESSAGE SHOW,F_TOTALIMAGAZZINI|SHOW,F_DETTAGLIOMAG
ITEM "M|magazzini" ITEM "M|magazzini"
MESSAGE "C",F_ORDINEART|K_SPACE,F_ORDINEART|DISABLE,F_ORDINEART|SHOW,G_CODART@|HIDE,G_DESART@ 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 SHOW,F_TOTALIDEPOSITI|SHOW,F_DETTAGLIODEP
MESSAGE HIDE,F_TOTALIMAGAZZINI|HIDE,F_DETTAGLIOMAG MESSAGE HIDE,F_TOTALIMAGAZZINI|HIDE,F_DETTAGLIOMAG
END END
LISTBOX F_ORDINEART 14 LISTBOX F_ORDINEART 14
BEGIN BEGIN
FLAGS "G" FLAGS "G"
PROMPT 42 2 "sotto-ordinamento " PROMPT 42 2 "sotto-ordinamento "
ITEM "C|codice" ITEM "C|codice"
MESSAGE HIDE,G_CATMER@|SHOW,G_CODART@|HIDE,G_DESART@ MESSAGE HIDE,G_CATMER@|SHOW,G_CODART@|HIDE,G_DESART@
ITEM "D|descrizione" ITEM "D|descrizione"
MESSAGE HIDE,G_CATMER@|HIDE,G_CODART@|SHOW,G_DESART@ MESSAGE HIDE,G_CATMER@|HIDE,G_CODART@|SHOW,G_DESART@
ITEM "M|gruppo merc." ITEM "M|gruppo merc."
MESSAGE SHOW,G_CATMER@|SHOW,G_CODART@|HIDE,G_DESART@ MESSAGE SHOW,G_CATMER@|SHOW,G_CODART@|HIDE,G_DESART@
END END
NUMBER F_ANNOES 4 NUMBER F_ANNOES 4
BEGIN BEGIN
FLAGS "A" FLAGS "A"
PROMPT 2 3 "Codice es. " PROMPT 2 3 "Codice es. "
USE ESC USE ESC
INPUT CODTAB F_ANNOES INPUT CODTAB F_ANNOES
DISPLAY "Esercizio" CODTAB DISPLAY "Esercizio" CODTAB
DISPLAY "Dal@12" D0 DISPLAY "Dal@12" D0
DISPLAY "Al@12" D0 DISPLAY "Al@12" D0
OUTPUT F_ANNOES CODTAB OUTPUT F_ANNOES CODTAB
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
LISTBOX F_FILTRO 10 LISTBOX F_FILTRO 10
BEGIN BEGIN
FLAGS "G" FLAGS "G"
PROMPT 53 3 "Filtro " PROMPT 53 3 "Filtro "
ITEM "T|tutto" ITEM "T|tutto"
ITEM "N|negativi" ITEM "N|negativi"
END END
DATE F_DADATA DATE F_DADATA
BEGIN BEGIN
PROMPT 2 5 "Dalla data " PROMPT 2 5 "Dalla data "
END END
DATE F_ADATA DATE F_ADATA
BEGIN BEGIN
PROMPT 2 6 " alla data " PROMPT 2 6 " alla data "
STR_EXPR ANSI(#F_ADATA)>=ANSI(#F_DADATA)||(#F_ADATA=="") STR_EXPR ANSI(#F_ADATA)>=ANSI(#F_DADATA)||(#F_ADATA=="")
WARNING "Il secondo estremo deve essere superiore al primo" WARNING "Il secondo estremo deve essere superiore al primo"
END END
STRING F_DAART 20 STRING F_DAART 20
BEGIN BEGIN
PROMPT 28 5 "Dall'articolo " PROMPT 28 5 "Dall'articolo "
FLAGS "U" FLAGS "U"
USE LF_ANAMAG USE LF_ANAMAG
INPUT CODART F_DAART INPUT CODART F_DAART
DISPLAY "Codice" CODART DISPLAY "Codice" CODART
DISPLAY "Descr@50" DESCR DISPLAY "Descr@50" DESCR
OUTPUT F_DAART CODART OUTPUT F_DAART CODART
GROUP G_CODART GROUP G_CODART
END END
STRING F_AART 20 STRING F_AART 20
BEGIN BEGIN
PROMPT 28 6 " all'articolo " PROMPT 28 6 " all'articolo "
FLAGS "U" FLAGS "U"
COPY USE F_DAART COPY USE F_DAART
INPUT CODART F_AART INPUT CODART F_AART
COPY DISPLAY F_DAART COPY DISPLAY F_DAART
OUTPUT F_AART CODART OUTPUT F_AART CODART
GROUP G_CODART GROUP G_CODART
STR_EXPR (#F_AART>=#F_DAART)||(#F_AART=="") STR_EXPR (#F_AART>=#F_DAART)||(#F_AART=="")
WARNING "Il secondo estremo deve essere superiore al primo" WARNING "Il secondo estremo deve essere superiore al primo"
END END
STRING F_DADES 50 30 STRING F_DADES 50 30
BEGIN BEGIN
PROMPT 28 5 "Dall'articolo " PROMPT 28 5 "Dall'articolo "
FLAGS "U" FLAGS "U"
USE LF_ANAMAG KEY 2 USE LF_ANAMAG KEY 2
INPUT DESCR F_DADES INPUT DESCR F_DADES
DISPLAY "Descr@50" DESCR DISPLAY "Descr@50" DESCR
DISPLAY "Codice" CODART DISPLAY "Codice" CODART
OUTPUT F_DADES DESCR OUTPUT F_DADES DESCR
GROUP G_DESART GROUP G_DESART
END END
STRING F_ADES 50 30 STRING F_ADES 50 30
BEGIN BEGIN
PROMPT 28 6 " all'articolo " PROMPT 28 6 " all'articolo "
FLAGS "U" FLAGS "U"
COPY USE F_DADES COPY USE F_DADES
INPUT DESCR F_ADES INPUT DESCR F_ADES
COPY DISPLAY F_DADES COPY DISPLAY F_DADES
OUTPUT F_ADES DESCR OUTPUT F_ADES DESCR
GROUP G_DESART GROUP G_DESART
STR_EXPR (#F_ADES>=#F_DADES)||(#F_ADES=="") STR_EXPR (#F_ADES>=#F_DADES)||(#F_ADES=="")
WARNING "Il secondo estremo deve essere superiore al primo" WARNING "Il secondo estremo deve essere superiore al primo"
END END
STRING F_DAMAG 3 STRING F_DAMAG 3
BEGIN BEGIN
PROMPT 2 8 "Dal magazzino " PROMPT 2 8 "Dal magazzino "
FLAGS "U" FLAGS "U"
USE MAG SELECT CODTAB[4,5]=="" && CODTAB[1,3]!="" USE MAG SELECT CODTAB[4,5]=="" && CODTAB[1,3]!=""
INPUT CODTAB F_DAMAG INPUT CODTAB F_DAMAG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descr@50" S0 DISPLAY "Descr@50" S0
OUTPUT F_DAMAG CODTAB OUTPUT F_DAMAG CODTAB
END END
STRING F_AMAG 3 STRING F_AMAG 3
BEGIN BEGIN
PROMPT 2 9 " al magazzino " PROMPT 2 9 " al magazzino "
FLAGS "U" FLAGS "U"
COPY USE F_DAMAG COPY USE F_DAMAG
INPUT CODTAB F_AMAG INPUT CODTAB F_AMAG
COPY DISPLAY F_DAMAG COPY DISPLAY F_DAMAG
OUTPUT F_AMAG CODTAB OUTPUT F_AMAG CODTAB
STR_EXPR (#F_AMAG>=#F_DAMAG)||(#F_AMAG=="") STR_EXPR (#F_AMAG>=#F_DAMAG)||(#F_AMAG=="")
WARNING "Il secondo estremo deve essere superiore al primo" WARNING "Il secondo estremo deve essere superiore al primo"
END END
STRING F_DACATMER 3 STRING F_DACATMER 3
BEGIN BEGIN
PROMPT 2 11 "Dal gruppo " PROMPT 2 11 "Dal gruppo "
FLAGS "U" FLAGS "U"
USE GMC SELECT CODTAB[4,5]=="" USE GMC SELECT CODTAB[4,5]==""
INPUT CODTAB F_DACATMER INPUT CODTAB F_DACATMER
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descr@50" S0 DISPLAY "Descr@50" S0
OUTPUT F_DACATMER CODTAB[1,3] OUTPUT F_DACATMER CODTAB[1,3]
GROUP G_CATMER GROUP G_CATMER
END END
STRING F_ACATMER 3 STRING F_ACATMER 3
BEGIN BEGIN
PROMPT 2 12 " al gruppo " PROMPT 2 12 " al gruppo "
FLAGS "U" FLAGS "U"
COPY USE F_DACATMER COPY USE F_DACATMER
INPUT CODTAB F_ACATMER INPUT CODTAB F_ACATMER
COPY DISPLAY F_DACATMER COPY DISPLAY F_DACATMER
OUTPUT F_ACATMER CODTAB[1,3] OUTPUT F_ACATMER CODTAB[1,3]
GROUP G_CATMER GROUP G_CATMER
STR_EXPR (#F_ACATMER>=#F_DACATMER)||(#F_ACATMER=="") STR_EXPR (#F_ACATMER>=#F_DACATMER)||(#F_ACATMER=="")
WARNING "Il secondo estremo deve essere superiore al primo" WARNING "Il secondo estremo deve essere superiore al primo"
END END
BOOLEAN F_RAGGCODICE BOOLEAN F_RAGGCODICE
BEGIN BEGIN
PROMPT 2 14 "Raggruppo gli articoli" PROMPT 2 14 "Raggruppo gli articoli"
MESSAGE FALSE CLEAR,F_TOLIVELLOART|CHECK,F_TOLIVELLOART MESSAGE FALSE CLEAR,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
MESSAGE TRUE ENABLE,F_TOLIVELLOART|CHECK,F_TOLIVELLOART MESSAGE TRUE ENABLE,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
END END
NUMBER F_TOLIVELLOART 1 NUMBER F_TOLIVELLOART 1
BEGIN BEGIN
PROMPT 42 14 "fino al livello " PROMPT 42 14 "fino al livello "
USE FCA USE FCA
INPUT CODTAB F_TOLIVELLOART INPUT CODTAB F_TOLIVELLOART
DISPLAY "Num." CODTAB DISPLAY "Num." CODTAB
DISPLAY "Descr@50" S0 DISPLAY "Descr@50" S0
OUTPUT F_TOLIVELLOART CODTAB OUTPUT F_TOLIVELLOART CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
// NUM_EXPR (||(#F_TOLIVELLOART=0))&&(((#F_TOLIVELLOGIAC+#F_FROMLIVELLOGIAC)*#F_TOLIVELLOART)=0) // NUM_EXPR (||(#F_TOLIVELLOART=0))&&(((#F_TOLIVELLOGIAC+#F_FROMLIVELLOGIAC)*#F_TOLIVELLOART)=0)
WARNING "Livello finale non ammissibile" WARNING "Livello finale non ammissibile"
END END
BOOL F_RAGGLIVGIAC BOOL F_RAGGLIVGIAC
BEGIN BEGIN
PROMPT 2 15 "Raggruppo le giacenze" PROMPT 2 15 "Raggruppo le giacenze"
MESSAGE FALSE CLEAR,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC MESSAGE FALSE CLEAR,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
MESSAGE TRUE ENABLE,F_TOLIVELLOGIAC MESSAGE TRUE ENABLE,F_TOLIVELLOGIAC
END END
NUMBER F_TOLIVELLOGIAC 1 NUMBER F_TOLIVELLOGIAC 1
BEGIN BEGIN
FLAG "D" FLAG "D"
PROMPT 42 15 "fino al livello " PROMPT 42 15 "fino al livello "
USE FCG USE FCG
INPUT CODTAB F_TOLIVELLOGIAC INPUT CODTAB F_TOLIVELLOGIAC
DISPLAY "Num." CODTAB DISPLAY "Num." CODTAB
DISPLAY "Descr@50" S0 DISPLAY "Descr@50" S0
OUTPUT F_TOLIVELLOGIAC CODTAB OUTPUT F_TOLIVELLOGIAC CODTAB
WARNING "Livello finale non ammissibile" WARNING "Livello finale non ammissibile"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
BOOL F_SUDDIV_MAGAZZINI BOOL F_SUDDIV_MAGAZZINI
BEGIN BEGIN
PROMPT 2 16 "Suddivido per depositi" PROMPT 2 16 "Suddivido per depositi"
MESSAGE TRUE ENABLE,F_SUDDIV_DEPOSITI MESSAGE TRUE ENABLE,F_SUDDIV_DEPOSITI
MESSAGE FALSE CLEAR,F_SUDDIV_DEPOSITI|K_SPACE,F_SUDDIV_DEPOSITI MESSAGE FALSE CLEAR,F_SUDDIV_DEPOSITI|K_SPACE,F_SUDDIV_DEPOSITI
END END
BOOL F_SUDDIV_DEPOSITI BOOL F_SUDDIV_DEPOSITI
BEGIN BEGIN
PROMPT 2 17 "Dettaglio i depositi" PROMPT 2 17 "Dettaglio i depositi"
MESSAGE TRUE ENABLE,F_DETTAGLIODEP MESSAGE TRUE ENABLE,F_DETTAGLIODEP
MESSAGE FALSE CLEAR,F_DETTAGLIODEP MESSAGE FALSE CLEAR,F_DETTAGLIODEP
END END
BOOL F_DETTAGLIODEP BOOL F_DETTAGLIODEP
BEGIN BEGIN
PROMPT 42 17 "Dettaglio i depositi" PROMPT 42 17 "Dettaglio i depositi"
END END

750
mg/mg3300a.frm
View File

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

542
mg/mg3300b.frm
View File

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

328
mg/mg3400.cpp
View File

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

378
mg/mg4300.frm
View File

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