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

removed

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4612 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-06-12 15:21:23 +00:00
parent e7a62687c0
commit a6739c5b22
3 changed files with 0 additions and 2218 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2035
mg/mg4200.frm
View File

File diff suppressed because it is too large Load Diff

100
mg/tab_gca.frm
View File

@ -1,100 +0,0 @@
USE FCA
JOIN GCA TO 5 ALIAS 500 INTO CODTAB[1,1]==CODTAB
END
DESCRIPTION
BEGIN
5->* "Formato del codice"
500->* "Gruppi codice"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
CARATTERE "X"
INIZIALE 5 2
FINALE 133
END
SECTION HEADER ODD 3
STRINGA 100 132 1
BEGIN
PROMPT 1 1 "----------------------------------------------------------------------------------------------"
END
STRINGA 101 132 1
BEGIN
PROMPT 21 2 "Tabella Gruppi Formato Codice Articoli"
END
STRINGA 100 132 1
BEGIN
PROMPT 1 3 "----------------------------------------------------------------------------------------------"
END
END
SECTION BODY ODD 3
STRINGA 101 20 1
BEGIN
KEY "CODICE livelo"
FLAGS "H"
PROMPT 2 1 ""
END
SECTION GRUPPO 2 1 1 FILE -500
SECTION TESTATA 1 1 1 NUMEXPR #101=0
STRINGA 110 20 1
BEGIN
KEY "CODICE livelo"
PROMPT 2 1 ""
FIELD CODTAB
MESSAGE "1",101
END
STRINGA 111 50 1
BEGIN
KEY "DESCR.livelo"
PROMPT 22 1 ""
FIELD S0
END
END
STRINGA 120 20 1
BEGIN
KEY "CODICE livelo"
PROMPT 10 1 ""
FIELD 500@->CODTAB[2,20]
END
STRINGA 121 50 1
BEGIN
KEY "DESCR.livelo"
PROMPT 32 1 ""
FIELD 500@->S0
END
END
STRINGA 131 20 1
BEGIN
KEY "CODICE livelo"
FLAGS "H"
PROMPT 2 1 ""
MESSAGE "0",101
END
END
SECTION FOOTER ODD 2
NUMERO 101
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _PAGENO
PICTURE "- ### -"
END
END

83
mg/tab_gcg.frm
View File

@ -1,83 +0,0 @@
USE FCG
JOIN GCG TO 5 ALIAS 500 INTO CODTAB[1,1]==CODTAB
END
DESCRIPTION
BEGIN
5->* "Formato del codice"
500->* "Gruppi codice"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
CARATTERE "X"
INIZIALE 5 2
FINALE 133
END
SECTION HEADER ODD 3
STRINGA 100 132 1
BEGIN
PROMPT 1 1 "----------------------------------------------------------------------------------------------"
END
STRINGA 101 132 1
BEGIN
PROMPT 21 2 "Tabella Gruppi Formato Codice Giacenze"
END
STRINGA 100 132 1
BEGIN
PROMPT 1 3 "----------------------------------------------------------------------------------------------"
END
END
SECTION BODY ODD 3
STRINGA 110 20 1
BEGIN
KEY "CODICE livelo"
PROMPT 2 1 ""
FIELD CODTAB
END
STRINGA 111 50 1
BEGIN
KEY "DESCR.livelo"
PROMPT 22 1 ""
FIELD S0
END
SECTION GRUPPO 2 1 1 FILE -500
STRINGA 120 20 1
BEGIN
KEY "CODICE livelo"
PROMPT 10 1 ""
FIELD 500@->CODTAB[2,20]
END
STRINGA 121 50 1
BEGIN
KEY "DESCR.livelo"
PROMPT 32 1 ""
FIELD 500@->S0
END
END
END
SECTION FOOTER ODD 2
NUMERO 101
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _PAGENO
PICTURE "- ### -"
END
END