Tolti i gruppi merceologici 2 e 3, spostati di una riga i campi

successivi.


git-svn-id: svn://10.65.10.50/trunk@3386 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-08-13 15:40:16 +00:00
parent 1246414ecf
commit 761bccc810

View File

@ -7,7 +7,7 @@ ENDPAGE
PAGE "Pagina 1" 0 0 70 20
GROUPBOX DLG_NULL 71 5
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 0 0 ""
//FLAG "R"
@ -48,129 +48,69 @@ BEGIN
CHECKTYPE REQUIRED
END
STRING F_GRMERC1 3
STRING F_GRMERC 3
BEGIN
PROMPT 1 5 "Gruppo merc. 1 "
FIELD LF_ANAMAG->GRMERC1[1,3]
PROMPT 1 5 "Gr. merc. "
FIELD LF_ANAMAG->GRMERC[1,3]
GROUP 1
FLAG "U"
END
STRING F_GRMERC1B 2
BEGIN
PROMPT 21 5 ""
FIELD LF_ANAMAG->GRMERC1[4,5]
GROUP 1
FLAG "U"
MESSAGE EMPTY CLEAR,2@
MESSAGE ENABLE,2@
USE GMC
INPUT CODTAB[1,3] F_GRMERC1
INPUT CODTAB[4,5] F_GRMERC1B
USE GMC
INPUT CODTAB F_GRMERC SELECT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_GRMERC1 CODTAB[1,3]
OUTPUT F_GRMERC1B CODTAB[4,5]
OUTPUT F_GRMERC1D S0
OUTPUT F_GRMERC CODTAB[1,3]
OUTPUT F_GRMERCB CODTAB[4,5]
OUTPUT F_GRMERCD1 S0
CHECKTYPE NORMAL
END
STRING F_GRMERC1D 50
STRING F_GRMERCD1 50
BEGIN
PROMPT 26 5 ""
PROMPT 23 5 ""
GROUP 1
USE GMC KEY 2
INPUT S0 F_GRMERC1D
INPUT S0 F_GRMERCD1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_GRMERC1 CODTAB[1,3]
OUTPUT F_GRMERC1B CODTAB[4,5]
OUTPUT F_GRMERC1D S0
END
STRING F_GRMERC2 3
BEGIN
PROMPT 1 6 "Gruppo merc. 2 "
FIELD LF_ANAMAG->GRMERC2[1,3]
GROUP 2
FLAG "U"
END
STRING F_GRMERC2B 2
BEGIN
PROMPT 21 6 ""
FIELD LF_ANAMAG->GRMERC2[4,5]
GROUP 2
FLAG "U"
MESSAGE EMPTY CLEAR,3@
MESSAGE ENABLE,3@
NUM_EXPR (#F_GRMERC2=="")||(#F_GRMERC2!=#F_GRMERC1)
USE GMC
INPUT CODTAB[1,3] F_GRMERC2
INPUT CODTAB[4,5] F_GRMERC2B
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_GRMERC2 CODTAB[1,3]
OUTPUT F_GRMERC2B CODTAB[4,5]
OUTPUT F_GRMERC2D S0
OUTPUT F_GRMERC CODTAB[1,3]
OUTPUT F_GRMERCD1 S0
CHECKTYPE NORMAL
END
STRING F_GRMERC2D 50
STRING F_GRMERCB 2
BEGIN
PROMPT 26 6 ""
GROUP 2
USE GMC KEY 2
INPUT S0 F_GRMERC2D
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_GRMERC2 CODTAB[1,3]
OUTPUT F_GRMERC2B CODTAB[4,5]
OUTPUT F_GRMERC2D S0
END
STRING F_GRMERC3 3
BEGIN
PROMPT 1 7 "Gruppo merc. 3 "
FIELD LF_ANAMAG->GRMERC3[1,3]
GROUP 3
PROMPT 1 6 "Sott. merc. "
FIELD LF_ANAMAG->GRMERC[4,5]
GROUP 1
FLAG "U"
END
STRING F_GRMERC3B 2
BEGIN
PROMPT 21 7 ""
FIELD LF_ANAMAG->GRMERC3[4,5]
GROUP 3
FLAG "U"
NUM_EXPR (#F_GRMERC3=="")||((#F_GRMERC3!=#F_GRMERC1)&&(#F_GRMERC3!=#F_GRMERC2))
USE GMC
INPUT CODTAB[1,3] F_GRMERC3
INPUT CODTAB[4,5] F_GRMERC3B
INPUT CODTAB[1,3] F_GRMERC
INPUT CODTAB[4,5] F_GRMERCB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_GRMERC3 CODTAB[1,3]
OUTPUT F_GRMERC3B CODTAB[4,5]
OUTPUT F_GRMERC3D S0
OUTPUT F_GRMERC CODTAB[1,3]
OUTPUT F_GRMERCB CODTAB[4,5]
OUTPUT F_GRMERCD2 S0
CHECKTYPE NORMAL
END
STRING F_GRMERC3D 50
STRING F_GRMERCD2 50
BEGIN
PROMPT 26 7 ""
GROUP 3
PROMPT 23 6 ""
GROUP 1
USE GMC KEY 2
INPUT S0 F_GRMERC3D
INPUT S0 F_GRMERCD2
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_GRMERC3 CODTAB[1,3]
OUTPUT F_GRMERC3B CODTAB[4,5]
OUTPUT F_GRMERC3D S0
OUTPUT F_GRMERC CODTAB[1,3]
OUTPUT F_GRMERCB CODTAB[4,5]
OUTPUT F_GRMERCD2 S0
CHECKTYPE NORMAL
END
STRING F_CODIVA 4
BEGIN
PROMPT 1 8 "Codice IVA "
PROMPT 1 7 "Codice IVA "
FIELD LF_ANAMAG->CODIVA
USE %IVA
INPUT CODTAB F_CODIVA
@ -183,7 +123,7 @@ END
STRING F_CODIVA1 50
BEGIN
PROMPT 26 8 ""
PROMPT 23 7 ""
USE %IVA KEY 2
INPUT S0 F_CODIVA1
DISPLAY "Descrizione@50" S0
@ -194,7 +134,7 @@ END
SPREADSHEET F_SHEET0 77 5
BEGIN
PROMPT 1 9 ""
PROMPT 1 8 ""
ITEM "U.M."
ITEM "F. conversione"
ITEM "Prezzo netto@18"
@ -203,7 +143,7 @@ END
STRING F_CATCONA 3
BEGIN
PROMPT 1 15 "Categoria conto acquisti "
PROMPT 1 14 "Categoria conto acquisti "
FIELD LF_ANAMAG->CATCONA
GROUP 11
MESSAGE CLEAR,12@
@ -223,7 +163,7 @@ END
STRING F_CATCONA1 40
BEGIN
PROMPT 36 15 ""
PROMPT 36 14 ""
FLAG "D"
GROUP 11
USE CAA KEY 2
@ -238,7 +178,7 @@ END
STRING F_GRUPPOA 2
BEGIN
PROMPT 1 16 "Conto d'acquisto "
PROMPT 1 15 "Conto d'acquisto "
FIELD LF_ANAMAG->GRUPPOA
GROUP 12
MESSAGE CLEAR,11@
@ -247,14 +187,14 @@ END
STRING F_CONTOA 2
BEGIN
PROMPT 22 16 ""
PROMPT 22 15 ""
FIELD LF_ANAMAG->CONTOA
GROUP 12
END
STRING F_SOTTOCA 6
BEGIN
PROMPT 26 16 ""
PROMPT 26 15 ""
FIELD LF_ANAMAG->SOTTOCA
GROUP 12
USE LF_PCON
@ -274,7 +214,7 @@ END
STRING F_DESCRA 40
BEGIN
PROMPT 36 16 ""
PROMPT 36 15 ""
FLAG "D"
GROUP 12
USE LF_PCON KEY 2
@ -290,7 +230,7 @@ END
STRING F_CATCONV 3
BEGIN
PROMPT 1 17 "Categoria conto vendite "
PROMPT 1 16 "Categoria conto vendite "
FIELD LF_ANAMAG->CATCONV
GROUP 21
MESSAGE CLEAR,22@
@ -310,7 +250,7 @@ END
STRING F_CATCONV1 40
BEGIN
PROMPT 36 17 ""
PROMPT 36 16 ""
FLAG "D"
GROUP 21
USE CRA KEY 2
@ -325,7 +265,7 @@ END
STRING F_GRUPPOV 2
BEGIN
PROMPT 1 18 "Conto di vendita "
PROMPT 1 17 "Conto di vendita "
FIELD LF_ANAMAG->GRUPPOV
GROUP 22
MESSAGE CLEAR,21@
@ -334,14 +274,14 @@ END
STRING F_CONTOV 2
BEGIN
PROMPT 22 18 ""
PROMPT 22 17 ""
FIELD LF_ANAMAG->CONTOV
GROUP 22
END
STRING F_SOTTOCV 6
BEGIN
PROMPT 26 18 ""
PROMPT 26 17 ""
FIELD LF_ANAMAG->SOTTOCV
GROUP 22
USE LF_PCON
@ -361,7 +301,7 @@ END
STRING F_DESCRV 40
BEGIN
PROMPT 36 18 ""
PROMPT 36 17 ""
FLAG "D"
GROUP 22
USE LF_PCON KEY 2
@ -375,19 +315,19 @@ END
STRING F_UMP 3
BEGIN
PROMPT 1 19 "U.M. peso "
PROMPT 1 18 "U.M. peso "
FIELD LF_ANAMAG->UMP
END
NUMBER F_PESO 15 5
BEGIN
PROMPT 30 19 "Peso "
PROMPT 30 18 "Peso "
FIELD LF_ANAMAG->PESO
END
STRING F_CLASSDOG 10
BEGIN
PROMPT 1 20 "Classe doganale "
PROMPT 1 19 "Classe doganale "
FIELD LF_ANAMAG->CLASSDOG
FLAG "UZ"
USE %CLD
@ -401,7 +341,7 @@ END
STRING F_CLASSDOG1 40
BEGIN
PROMPT 36 20 ""
PROMPT 36 19 ""
FLAG "D"
END