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@4715 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-06-19 07:07:32 +00:00
parent 3ac77c289e
commit d3df6811a3
1 changed files with 80 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

160
mg/mg3500.frm
View File

@ -4,7 +4,7 @@ JOIN LF_STOMAG TO LF_ANAMAG INTO ANNOESRIF==1996 CODART==CODART
JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
JOIN LF_UMART TO LF_STOMAG KEY 2 ALIAS LF_UMART2 INTO CODART==CODART UM==UM
END
DESCRIPTION
BEGIN
47->* "Anagrafica articoli"
@ -63,92 +63,92 @@ END
SECTION BODY ODD 1
SECTION H_ARTICOLO 1 3 1 GROUP
STRINGA 11 20
BEGIN
KEY "CODART"
PROMPT 2 1 "Articolo "
FIELD LF_ANAMAG->CODART
END
STRINGA 12 50
BEGIN
KEY "DESCR"
PROMPT 33 1 ""
FIELD LF_ANAMAG->DESCR
END
END
SECTION H_ARTICOLO 1 3 1 GROUP
STRINGA 11 20
BEGIN
KEY "CODART"
PROMPT 2 1 "Articolo "
FIELD LF_ANAMAG->CODART
END
STRINGA 12 50
BEGIN
KEY "DESCR"
PROMPT 33 1 ""
FIELD LF_ANAMAG->DESCR
END
END
SECTION GRUPPI_ARTICOLO 1 0 0 COLUMNWISE FILE LF_STOMAG
SECTION HD_ANNI 1 2 1 COLUMNWISE GROUP
NUMERO 13 15
BEGIN
KEY "offset"
PROMPT 1 1 ""
END
NUMERO 13 6
BEGIN
KEY "ANNO"
PROMPT 2 1 "Anno"
END
STRINGA 15 12
BEGIN
KEY "QUANT"
PROMPT 4 1 "Quantità( "
FIELD LF_UMART->UM
END
NUMERO 16 12
BEGIN
KEY "VALORE"
PROMPT 5 1 ") Valore"
END
END // HD ANNI
SECTION GRUPPI_ARTICOLO 1 0 0 COLUMNWISE FILE LF_STOMAG
SECTION HD_ANNI 1 2 1 COLUMNWISE GROUP
NUMERO 13 15
BEGIN
KEY "offset"
PROMPT 1 1 ""
END
NUMERO 13 6
BEGIN
KEY "ANNO"
PROMPT 2 1 "Anno"
END
STRINGA 15 12
BEGIN
KEY "QUANT"
PROMPT 4 1 "Quantità( "
FIELD LF_UMART->UM
END
NUMERO 16 12
BEGIN
KEY "VALORE"
PROMPT 5 1 ") Valore"
END
END // HD ANNI
SECTION BODY_ANNI 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODART
NUMERO 13 15
BEGIN
KEY "offset"
PROMPT 1 1 ""
END
NUMERO 14 6
BEGIN
KEY "ANNO"
PROMPT 2 1 ""
FIELD LF_STOMAG->ANNOES
END
NUMERO 15 12
BEGIN
KEY "QUANT"
PROMPT 4 1 ""
PICTURE "###.###,@@@"
MESSAGE _NUMEXPR,LF_STOMAG->QUANT*LF_UMART2@->FC
END
NUMERO 16 12
BEGIN
KEY "VALORE"
PROMPT 5 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,LF_STOMAG->VALORE*LF_UMART2@->FC
END
END // body anni
END // gruppi anni dello stesso articolo
SECTION BODY_ANNI 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODART
NUMERO 13 15
BEGIN
KEY "offset"
PROMPT 1 1 ""
END
NUMERO 14 6
BEGIN
KEY "ANNO"
PROMPT 2 1 ""
FIELD LF_STOMAG->ANNOES
END
NUMERO 15 12
BEGIN
KEY "QUANT"
PROMPT 4 1 ""
PICTURE "###.###,@@@"
MESSAGE _NUMEXPR,LF_STOMAG->QUANT*LF_UMART2@->FC
END
NUMERO 16 12
BEGIN
KEY "VALORE"
PROMPT 5 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,LF_STOMAG->VALORE*LF_UMART2@->FC
END
END // body anni
END // gruppi anni dello stesso articolo
END // section body, loop anamag
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 // fine footer