Non più usato
git-svn-id: svn://10.65.10.50/trunk@4425 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
27beae6c17
commit
5c471590cb
778
mg/mg3100c.frm
778
mg/mg3100c.frm
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user