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

Non più usato

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4425 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-05-28 07:34:43 +00:00
parent 27beae6c17
commit 5c471590cb
1 changed files with 0 additions and 778 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

778
mg/mg3100c.frm
View File

@ -1,778 +0,0 @@
USE 109 KEY 2
JOIN 47 TO 109 INTO CODART==CODART
JOIN MAG TO 109 ALIAS 500 INTO CODTAB==CODMAG[1,3]
JOIN MAG TO 109 ALIAS 501 INTO CODTAB==CODMAG
JOIN GMC TO 47 ALIAS 400 INTO CODTAB==GRMERC[1,3]
JOIN GMC TO 47 ALIAS 401 INTO CODTAB==GRMERC
JOIN 49 TO 47 INTO CODART==CODART
END
DESCRIPTION
BEGIN
47->* "Anagrafica articoli"
109->* "Archivio Giacenze"
MAG->* "Tabella magazzini"
49->* "Unità di misura articoli"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 8
CARATTERE "X"
INIZIALE 5 2
FINALE 133
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
NUMERO 4 32
BEGIN
KEY "Intestazione stampa"
PROMPT 45 2 "Stampa dati storici giacenze"
END
STRINGA 5 146
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
LIST 666 1
BEGIN
PROMPT 1 1 ""
FLAG "H"
KEY "FLAG GIACENZA"
ITEM "0|0"
MESSAGE HIDE,14|DISABLE,BO->47
ITEM "1|1"
MESSAGE SHOW,14|ENABLE,BO->47
END
LIST 667 1
BEGIN
PROMPT 1 1 ""
FLAG "H"
KEY "FLAG SOTTOSCORTA"
ITEM "0|0"
MESSAGE HIDE,15|DISABLE,BO->48
ITEM "1|1"
MESSAGE SHOW,15|ENABLE,BO->48
END
STRINGA 6 20
BEGIN
KEY "H1"
PROMPT 2 4 "Codice"
END
STRINGA 7 40
BEGIN
KEY "H1"
PROMPT 24 4 "Descrizione"
END
STRINGA 7 40
BEGIN
KEY "H1"
PROMPT 45 4 "UM"
END
STRINGA 8 12
BEGIN
KEY "H1"
PROMPT 55 4 "Acq."
END
STRINGA 9 12
BEGIN
KEY "H1"
PROMPT 68 4 "Val.Acq."
END
STRINGA 10 12
BEGIN
KEY "H1"
PROMPT 81 4 "Ven."
END
STRINGA 11 12
BEGIN
KEY "H1"
PROMPT 94 4 "Val.Ven."
END
STRINGA 12 12
BEGIN
KEY "H1"
PROMPT 107 4 "Rim."
END
STRINGA 13 12
BEGIN
KEY "H1"
PROMPT 120 4 "Val.Rim."
END
STRINGA 14 12
BEGIN
KEY "H1"
PROMPT 133 4 "Giac."
END
STRINGA 15 12
BEGIN
KEY "H1"
PROMPT 131 4 "Scorta-Giac."
END
STRINGA 17 146
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END
SECTION BODY ODD 0 COLUMNWISE
LIST 555 1
BEGIN
PROMPT 1 1 ""
FLAG "H"
KEY "FLAG VALORI MEDI"
ITEM "0|N"
MESSAGE SHOW,10@|DISABLE,11@
ITEM "1|Y"
MESSAGE HIDE,10@|ENABLE,11@
END
SECTION HEADER_MAGAZZINO 1 1 1 GROUP
STRINGA 10 12 2
BEGIN
KEY "magazzino"
PROMPT 2 1 ""
FIELD CODMAG[1,3]
END
STRINGA 11 12 2
BEGIN
KEY "magazzino"
PROMPT 3 1 ""
FIELD 500@->s0
MESSAGE RESET,4@|COPY,450
END
END
SECTION GRUPPI_MAGAZZINO 1 1 0 FILE 109 GROUP CODMAG[1,3]
SECTION HEADER_DEPOSITO 1 1 1 GROUP
STRINGA 21 8 1
BEGIN
KEY "CODICE"
PROMPT 2 1 "Deposito"
END
STRINGA 22 34 1
BEGIN
KEY "descr"
PROMPT 3 1 ""
FIELD 501@->s0
MESSAGE RESET,3@|COPY,350
END
END
SECTION GRUPPI_DEPOSITO 1 0 0 FILE 109 GROUP CODMAG[4,5]
STRINGA 30 21 1
BEGIN
FLAGS "H"
KEY "codice ARTICOLO"
PROMPT 2 1 " Articolo:"
FIELD 47->CODART
MESSAGE COPY,251
END
STRINGA 31 21 1
BEGIN
FLAGS "H"
KEY "codice ARTICOLO"
PROMPT 3 1 ""
FIELD 47->DESCR
MESSAGE RESET,2@|COPY,250
END
SECTION GRUPPI_ARTICOLO 1 0 0 FILE 109 GROUP CODART
STRINGA 40 40 1
BEGIN
FLAGS "H"
KEY "livgiac"
PROMPT 3 1 ""
MESSAGE _USER,GRUPPOGIAC|RESET,1@|COPY,150
END
SECTION GRUPPI_LIVELLO_GIACENZE 1 0 0 FILE 109 GROUP LIVELLO
SECTION RIGHE_LIVELLI 0 1 1 GROUP
STRINGA 51 5 2
BEGIN
KEY "CODICE"
PROMPT 2 1 ""
END
STRINGA 52 37 2
BEGIN
KEY "descr"
PROMPT 3 1 ""
MESSAGE _USER,LIVELLIGIAC
END
STRINGA 53 3
BEGIN
KEY "UM"
PROMPT 5 1 ""
FIELD 49->UM
END
NUMERO 41 12
BEGIN
KEY "ACQ"
PROMPT 6 1 ""
FIELD 109->ACQ
PICTURE "########,@#"
MESSAGE ADD,141
END
NUMERO 42 12
BEGIN
KEY "VALACQ"
PROMPT 7 1 ""
FIELD 109->VALACQ
PICTURE "###.###.##@"
MESSAGE ADD,142
GROUP 10
END
NUMERO 82 12
BEGIN
KEY "VALACQ"
PROMPT 7 1 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,109->VALACQ/109->ACQ
GROUP 11
END
NUMERO 43 12
BEGIN
KEY "VEN"
PROMPT 8 1 ""
FIELD 109->VEN
PICTURE "########,@#"
MESSAGE ADD,143
END
NUMERO 44 12
BEGIN
KEY "VALV"
PROMPT 9 1 ""
FIELD 109->VALVEN
PICTURE "###.###.##@"
MESSAGE ADD,144
GROUP 10
END
NUMERO 84 12
BEGIN
KEY "VALV"
PROMPT 9 1 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,109->VALVEN/109->VEN
GROUP 11
END
NUMERO 45 12
BEGIN
KEY "RIM"
PROMPT 10 1 ""
FIELD 109->RIM
PICTURE "########,@#"
MESSAGE ADD,145
END
NUMERO 46 12
BEGIN
KEY "VALrim"
PROMPT 11 1 ""
PICTURE "###.###.##@"
FIELD 109->VALRIM
MESSAGE ADD,146
GROUP 10
END
NUMERO 86 12
BEGIN
KEY "VALrim"
PROMPT 11 1 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,109->VALRIM/109->RIM
GROUP 11
END
NUMERO 47 12
BEGIN
KEY "giac"
PROMPT 12 1 ""
FIELD 109->GIAC
PICTURE "#######@,@#"
MESSAGE ADD,147
END
NUMERO 48 12
BEGIN
KEY "scorta-giac"
PROMPT 12 1 ""
PICTURE "#######@,@#"
MESSAGE _NUMEXPR,109->SCORTAMIN-109->GIAC|ADD,147
END
END // SECTION GROUP LIVELLI
END // LOOP LIVELLI
SECTION TOTALI_LIVELLO_GIAC 1 2 2 GROUP
STRINGA 777
BEGIN
KEY ""
PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
END
STRINGA 150 35 2
BEGIN
KEY "LIVGIAC"
PROMPT 3 2 ""
END
STRINGA 151 7 2
BEGIN
KEY "livgiac"
PROMPT 2 2 " Totale"
END
STRINGA 153 3
BEGIN
KEY "UM"
PROMPT 5 2 ""
FIELD 49->UM
MESSAGE COPY,253
END
NUMERO 141 12
BEGIN
KEY "ACQ"
PROMPT 6 2 ""
PICTURE "########,@#"
MESSAGE ADD,241
GROUP 1
END
NUMERO 142 12
BEGIN
KEY "VALACQ"
PROMPT 7 2 ""
PICTURE "###.###.##@"
MESSAGE ADD,242
GROUP 1 10
END
NUMERO 182 12
BEGIN
KEY "VALACQ"
PROMPT 7 2 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#142/#141
GROUP 11
END
NUMERO 143 12
BEGIN
KEY "ven"
PROMPT 8 2 ""
PICTURE "########,@#"
MESSAGE ADD,243
GROUP 1
END
NUMERO 144 12
BEGIN
KEY "VALven"
PROMPT 9 2 ""
PICTURE "###.###.##@"
MESSAGE ADD,244
GROUP 1 10
END
NUMERO 184 12
BEGIN
KEY "VALven"
PROMPT 9 2 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#144/#143
GROUP 11
END
NUMERO 145 12
BEGIN
KEY "rim"
PROMPT 10 2 ""
PICTURE "########,@#"
MESSAGE ADD,245
GROUP 1
END
NUMERO 146 12
BEGIN
KEY "VALrim"
PROMPT 11 2 ""
PICTURE "###.###.##@"
MESSAGE ADD,246
GROUP 1 10
END
NUMERO 186 12
BEGIN
KEY "VALrim"
PROMPT 11 2 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#146/#145
GROUP 11
END
NUMERO 147 12
BEGIN
KEY "giac"
PROMPT 12 2 ""
PICTURE "########,@#"
MESSAGE ADD,247
GROUP 1
END
END
END // LOOP LIVELLI DI GIACENZA
SECTION TOTALI_ARTICOLO 1 1 1 GROUP
STRINGA 250 21 1
BEGIN
PROMPT 3 1 ""
END
STRINGA 251 21 1
BEGIN
KEY "Livello giac"
PROMPT 2 1 " Articolo "
END
STRINGA 253 3
BEGIN
KEY "UM"
PROMPT 5 1 ""
MESSAGE COPY,353
END
NUMERO 241 12
BEGIN
KEY "ACQ"
PROMPT 6 1 ""
PICTURE "########,@#"
MESSAGE ADD,341
GROUP 2
END
NUMERO 242 12
BEGIN
KEY "VALACQ"
PROMPT 7 1 ""
PICTURE "###.###.##@"
MESSAGE ADD,342
GROUP 2 10
END
NUMERO 282 12
BEGIN
KEY "VALACQ"
PROMPT 7 1 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#242/#241
GROUP 11
END
NUMERO 243 12
BEGIN
KEY "ven"
PROMPT 8 1 ""
PICTURE "########,@#"
MESSAGE ADD,343
GROUP 2
END
NUMERO 244 12
BEGIN
KEY "VALven"
PROMPT 9 1 ""
PICTURE "###.###.##@"
MESSAGE ADD,344
GROUP 2 10
END
NUMERO 284 12
BEGIN
KEY "VALven"
PROMPT 9 1 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#244/#243
GROUP 11
END
NUMERO 245 12
BEGIN
KEY "rim"
PROMPT 10 1 ""
PICTURE "########,@#"
MESSAGE ADD,345
GROUP 2
END
NUMERO 246 12
BEGIN
KEY "VALrim"
PROMPT 11 1 ""
PICTURE "###.###.##@"
MESSAGE ADD,346
GROUP 2 10
END
NUMERO 286 12
BEGIN
KEY "VALrim"
PROMPT 11 1 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#246/#245
GROUP 11
END
NUMERO 247 12
BEGIN
KEY "giac"
PROMPT 12 1 ""
PICTURE "########,@#"
MESSAGE ADD,347
GROUP 2
END
END // SECTION TOTALI
END // LOOP GIAC
SECTION TOTALI_DEPOSITO 1 3 3 GROUP
STRINGA 777
BEGIN
KEY "giac"
PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
END
STRINGA 350 30 2
BEGIN
KEY ""
PROMPT 3 2 ""
END
STRINGA 351 12 2
BEGIN
KEY ""
PROMPT 2 2 " Totale dep."
END
STRINGA 353 3
BEGIN
KEY "UM"
PROMPT 5 2 ""
MESSAGE COPY,453
END
NUMERO 341 12
BEGIN
KEY "ACQ"
PROMPT 6 2 ""
PICTURE "########,@#"
MESSAGE ADD,441
GROUP 3
END
NUMERO 342 12
BEGIN
KEY "VALACQ"
PROMPT 7 2 ""
PICTURE "###.###.##@"
MESSAGE ADD,442
GROUP 3 10
END
NUMERO 382 12
BEGIN
KEY "VALACQ"
PROMPT 7 2 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#342/#341
GROUP 11
END
NUMERO 343 12
BEGIN
KEY "ven"
PROMPT 8 2 ""
PICTURE "########,@#"
MESSAGE ADD,443
GROUP 3
END
NUMERO 344 12
BEGIN
KEY "VALven"
PROMPT 9 2 ""
PICTURE "###.###.##@"
MESSAGE ADD,444
GROUP 3 10
END
NUMERO 384 12
BEGIN
KEY "VALven"
PROMPT 9 2 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#344/#343
GROUP 11
END
NUMERO 345 12
BEGIN
KEY "rim"
PROMPT 10 2 ""
PICTURE "########,@#"
MESSAGE ADD,445
GROUP 3
END
NUMERO 346 12
BEGIN
KEY "VALrim"
PROMPT 11 2 ""
PICTURE "###.###.##@"
MESSAGE ADD,446
GROUP 3 10
END
NUMERO 386 12
BEGIN
KEY "VALrim"
PROMPT 11 2 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#346/#345
GROUP 11
END
NUMERO 347 12
BEGIN
KEY "giac"
PROMPT 12 2 ""
PICTURE "########,@#"
MESSAGE ADD,447
GROUP 3
END
END // SECTION TOTALI
END // loop ragg codice o catmerc
SECTION TOTALI_MAGAZZINO 1 3 3 GROUP
STRINGA 777
BEGIN
KEY ""
PROMPT 6 1 "----------------------------------------------------------------------------------------------------"
END
STRINGA 451 20 2
BEGIN
KEY ""
PROMPT 2 2 " TOTALE MAG."
END
STRINGA 450 22 2
BEGIN
KEY ""
PROMPT 3 2 ""
END
STRINGA 453 3
BEGIN
KEY "UM"
PROMPT 5 2 ""
END
NUMERO 441 12
BEGIN
KEY "ACQ"
PROMPT 6 2 ""
PICTURE "########,@#"
GROUP 4
END
NUMERO 442 12
BEGIN
KEY "VALACQ"
PROMPT 7 2 ""
PICTURE "###.###.##@"
GROUP 4 10
END
NUMERO 482 12
BEGIN
KEY "VALACQ"
PROMPT 7 2 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#442/#441
GROUP 11
END
NUMERO 443 12
BEGIN
KEY "ven"
PROMPT 8 2 ""
PICTURE "########,@#"
GROUP 4
END
NUMERO 444 12
BEGIN
KEY "VALven"
PROMPT 9 2 ""
PICTURE "###.###.##@"
GROUP 4 10
END
NUMERO 484 12
BEGIN
KEY "VALVEN medio"
PROMPT 9 2 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#444/#443
GROUP 11
END
NUMERO 445 12
BEGIN
KEY "rim"
PROMPT 10 2 ""
PICTURE "########,@#"
GROUP 4
END
NUMERO 446 12
BEGIN
KEY "VALrim"
PROMPT 11 2 ""
PICTURE "###.###.##@"
GROUP 4 10
END
NUMERO 486 12
BEGIN
KEY "VALrim medio"
PROMPT 11 2 ""
PICTURE "#######,@##"
MESSAGE _NUMEXPR,#446/#445
GROUP 11
END
NUMERO 447 12
BEGIN
KEY "giac"
PROMPT 12 2 ""
PICTURE "########,@#"
GROUP 4
END
END // SECTION TOTALI
END // section body, loop anamag
SECTION FOOTER ODD 2
STRINGA 100
BEGIN
KEY "NUMP"
PROMPT 50 1 "--------------"
END
NUMERO 101
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _PAGENO
PICTURE "-###-"
END
END // fine footer
END// fine form