Patch level : 12.0 no patch

Files correlati     :
Commento            :

MIgliorata la generazione dei campi utente sulle righe documento
This commit is contained in:
Alessandro Bonazzi 2020-03-03 01:30:57 +01:00
parent 84476d10d6
commit 93679c4300
3 changed files with 674 additions and 130 deletions

View File

@ -1649,11 +1649,16 @@ ELSEIF
NUMBER FR_QTAGG1 13 5
ENDIF
BEGIN
IFDEF(X_QTAGG1)
PROMPT X_QTAGG1 Y_QTAGG1 PR_QTAGG1
ELSEIF
PROMPT 2 6 "Qta' agg.1 "
IFNDEF(X_QTAGG1)
!!define X_QTAGG1 2
ENDIF
IFNDEF(Y_QTAGG1)
!!define Y_QTAGG1 6
ENDIF
IFNDEF(PR_QTAGG1)
!!define PR_QTAGG1 "Quantità 1 "
ENDIF
PROMPT X_QTAGG1 Y_QTAGG1 PR_QTAGG1
IFDEF(FL_QTAGG1)
FLAGS FL_QTAGG1
ENDIF
@ -1663,7 +1668,11 @@ ENDIF
IFDEF(NC_QTAGG1)
NUM_CALC NC_QTAGG1
ENDIF
FIELD QTAGG1
IFDEF(FI_QTAGG1)
FIELD FI_QTAGG1
ELSEIF
FIELD QTAGG1
ENDIF
END
ENDIF
@ -1678,11 +1687,16 @@ ELSEIF
NUMBER FR_QTAGG2 13 5
ENDIF
BEGIN
IFDEF(X_QTAGG2)
PROMPT X_QTAGG2 Y_QTAGG2 PR_QTAGG2
ELSEIF
PROMPT 28 6 "2 "
IFNDEF(X_QTAGG2)
!!define X_QTAGG2 28
ENDIF
IFNDEF(Y_QTAGG5)
!!define Y_QTAGG2 6
ENDIF
IFNDEF(PR_QTAGG2)
!!define PR_QTAGG2 "Quantità 2 "
ENDIF
PROMPT X_QTAGG2 Y_QTAGG2 PR_QTAGG2
IFDEF(FL_QTAGG2)
FLAGS FL_QTAGG2
ENDIF
@ -1692,7 +1706,11 @@ ENDIF
IFDEF(NC_QTAGG2)
NUM_CALC NC_QTAGG2
ENDIF
FIELD QTAGG2
IFDEF(FI_QTAGG2)
FIELD FI_QTAGG2
ELSEIF
FIELD QTAGG2
ENDIF
END
ENDIF
@ -1707,11 +1725,16 @@ ELSEIF
NUMBER FR_QTAGG3 13 5
ENDIF
BEGIN
IFDEF(X_QTAGG3)
PROMPT X_QTAGG3 Y_QTAGG3 PR_QTAGG3
ELSEIF
PROMPT 44 6 "3 "
IFNDEF(X_QTAGG3)
!!define X_QTAGG3 55
ENDIF
IFNDEF(Y_QTAGG3)
!!define Y_QTAGG3 6
ENDIF
IFNDEF(PR_QTAGG3)
!!define PR_QTAGG3 "Quantità 3 "
ENDIF
PROMPT X_QTAGG3 Y_QTAGG3 PR_QTAGG3
IFDEF(FL_QTAGG3)
FLAGS FL_QTAGG3
ENDIF
@ -1721,7 +1744,11 @@ ENDIF
IFDEF(NC_QTAGG3)
NUM_CALC NC_QTAGG3
ENDIF
FIELD QTAGG3
IFDEF(FI_QTAGG3)
FIELD FI_QTAGG3
ELSEIF
FIELD QTAGG3
ENDIF
END
ENDIF
@ -1736,11 +1763,16 @@ ELSEIF
NUMBER FR_QTAGG4 13 5
ENDIF
BEGIN
IFDEF(X_QTAGG4)
PROMPT X_QTAGG4 Y_QTAGG4 PR_QTAGG4
ELSEIF
PROMPT 12 7 "4 "
IFNDEF(X_QTAGG4)
!!define X_QTAGG4 2
ENDIF
IFNDEF(Y_QTAGG4)
!!define Y_QTAGG4 7
ENDIF
IFNDEF(PR_QTAGG4)
!!define PR_QTAGG4 "Quantità 4 "
ENDIF
PROMPT 2 7 "4 "
IFDEF(FL_QTAGG4)
FLAGS FL_QTAGG4
ENDIF
@ -1750,13 +1782,17 @@ ENDIF
IFDEF(NC_QTAGG1)
NUM_CALC NC_QTAGG4
ENDIF
FIELD QTAGG4
IFDEF(FI_QTAGG4)
FIELD FI_QTAGG4
ELSEIF
FIELD QTAGG4
ENDIF
END
ENDIF
IFDEF(FLD_QTAGG5)
IFDEF(TY_QTAGG5)
IF(TY_QTAGG1==CURRENCY)
IF(TY_QTAGG5==CURRENCY)
TY_QTAGG5 FR_QTAGG5 13
ELSEIF
TY_QTAGG5 FR_QTAGG5 13 5
@ -1765,11 +1801,16 @@ ELSEIF
NUMBER FR_QTAGG5 13 5
ENDIF
BEGIN
IFDEF(X_QTAGG5)
PROMPT X_QTAGG5 Y_QTAGG5 PR_QTAGG5
ELSEIF
PROMPT 28 7 "5 "
IFNDEF(X_QTAGG5)
!!define X_QTAGG5 28
ENDIF
IFNDEF(Y_QTAGG5)
!!define Y_QTAGG5 7
ENDIF
IFNDEF(PR_QTAGG5)
!!define PR_QTAGG5 "Quantità 5 "
ENDIF
PROMPT X_QTAGG5 Y_QTAGG5 PR_QTAGG5
IFDEF(FL_QTAGG5)
FLAGS FL_QTAGG5
ENDIF
@ -1779,7 +1820,11 @@ ENDIF
IFDEF(NC_QTAGG5)
NUM_CALC NC_QTAGG5
ENDIF
FIELD QTAGG5
IFDEF(FI_QTAGG5)
FIELD FI_QTAGG5
ELSEIF
FIELD QTAGG5
ENDIF
END
ENDIF
@ -1861,58 +1906,577 @@ ENDIF
END
ENDIF
IFDEF(FLD_JOLLY)
STRING FR_JOLLY1 20
BEGIN
PROMPT 2 12 "Jolly "
END
IFDEF(FLD_JOLLY1)
IFNDEF(TY_JOLLY1)
F_TYPE(JOLLY1, STRING)
ENDIF
IFNDEF(LN_JOLLY1)
F_LEN(JOLLY1, 20)
ENDIF
IFNDEF(DE_JOLLY1)
F_DEC(JOLLY1, )
ENDIF
IFNDEF (X_JOLLY1)
F_X(JOLLY1, 2)
ENDIF
IFNDEF (Y_JOLLY1)
F_Y(JOLLY1, 11)
ENDIF
IFNDEF(PR_JOLLY1)
F_PROMPT(JOLLY1, "Jolly 1 ")
ENDIF
IFNDEF(FI_JOLLY1)
F_FIELD(JOLLY1, 0)
ENDIF
IFNDEF(FL_JOLLY1)
F_FLG(JOLLY1, 0)
ENDIF
IFNDEF(CH_JOLLY1)
F_CHK(JOLLY1, 0)
ENDIF
IFNDEF(MS_JOLLY1)
!!define MS_JOLLY1 0
ENDIF
STRING FR_JOLLY2 20
TY_JOLLY1 FR_JOLLY1 LN_JOLLY1 DE_JOLLY1
BEGIN
PROMPT 2 12 "Jolly "
END
STRING FR_JOLLY3 20
BEGIN
PROMPT 2 12 "Jolly "
END
STRING FR_JOLLY4 20
BEGIN
PROMPT 2 12 "Jolly "
END
STRING FR_JOLLY5 20
BEGIN
PROMPT 2 12 "Jolly "
END
STRING FR_JOLLY6 20
BEGIN
PROMPT 2 12 "Jolly "
END
STRING FR_JOLLY7 20
BEGIN
PROMPT 2 12 "Jolly "
END
STRING FR_JOLLY8 20
BEGIN
PROMPT 2 12 "Jolly "
END
STRING FR_JOLLY9 20
BEGIN
PROMPT 2 12 "Jolly "
END
STRING FR_JOLLY10 20
BEGIN
PROMPT 2 12 "Jolly "
PROMPT X_JOLLY1 Y_JOLLY1 PR_JOLLY1
IF(FL_JOLLY1 != 0)
FLAGS FL_JOLLY1
ENDIF
IF(CH_JOLLY1 != 0)
CHECKTYPE CH_JOLLY1
ENDIF
IF(MS_JOLLY1 != 0)
MESSAGE MS_JOLLY1,MF_JOLLY1
ENDIF
IF(FI_JOLLY1 != 0)
FIELD FI_JOLLY1
ENDIF
END
ENDIF
IFDEF(FLD_JOLLY2)
IFNDEF(TY_JOLLY2)
F_TYPE(JOLLY2, STRING)
ENDIF
IFNDEF(LN_JOLLY2)
F_LEN(JOLLY2, 20)
ENDIF
IFNDEF(DE_JOLLY2)
F_DEC(JOLLY2, )
ENDIF
IFNDEF (X_JOLLY2)
F_X(JOLLY2, 2)
ENDIF
IFNDEF (Y_JOLLY2)
F_Y(JOLLY2, 12)
ENDIF
IFNDEF(PR_JOLLY2)
F_PROMPT(JOLLY2, "Jolly 2 ")
ENDIF
IFNDEF(FI_JOLLY2)
F_FIELD(JOLLY2, 0)
ENDIF
IFNDEF(FL_JOLLY2)
F_FLG(JOLLY2, 0)
ENDIF
IFNDEF(CH_JOLLY2)
F_CHK(JOLLY2, 0)
ENDIF
IFNDEF(MS_JOLLY2)
!!define MS_JOLLY2 0
ENDIF
TY_JOLLY2 FR_JOLLY2 LN_JOLLY2 DE_JOLLY2
BEGIN
PROMPT X_JOLLY2 Y_JOLLY2 PR_JOLLY2
IF(FL_JOLLY2 != 0)
FLAGS FL_JOLLY2
ENDIF
IF(CH_JOLLY2 != 0)
CHECKTYPE CH_JOLLY2
ENDIF
IF(MS_JOLLY2 != 0)
MESSAGE MS_JOLLY2,MF_JOLLY2
ENDIF
IF(FI_JOLLY2 != 0)
FIELD FI_JOLLY2
ENDIF
END
ENDIF
IFDEF(FLD_JOLLY3)
IFNDEF(TY_JOLLY3)
F_TYPE(JOLLY3, STRING)
ENDIF
IFNDEF(LN_JOLLY3)
F_LEN(JOLLY3, 20)
ENDIF
IFNDEF(DE_JOLLY3)
F_DEC(JOLLY3, )
ENDIF
IFNDEF (X_JOLLY3)
F_X(JOLLY3, 2)
ENDIF
IFNDEF (Y_JOLLY3)
F_Y(JOLLY3, 13)
ENDIF
IFNDEF(PR_JOLLY3)
F_PROMPT(JOLLY3, "Jolly 3 ")
ENDIF
IFNDEF(FI_JOLLY3)
F_FIELD(JOLLY3, 0)
ENDIF
IFNDEF(FL_JOLLY3)
F_FLG(JOLLY3, 0)
ENDIF
IFNDEF(CH_JOLLY3)
F_CHK(JOLLY3, 0)
ENDIF
IFNDEF(MS_JOLLY3)
!!define MS_JOLLY3 0
ENDIF
TY_JOLLY3 FR_JOLLY3 LN_JOLLY3 DE_JOLLY3
BEGIN
PROMPT X_JOLLY3 Y_JOLLY3 PR_JOLLY3
IF(FL_JOLLY3 != 0)
FLAGS FL_JOLLY3
ENDIF
IF(CH_JOLLY3 != 0)
CHECKTYPE CH_JOLLY3
ENDIF
IF(MS_JOLLY3 != 0)
MESSAGE MS_JOLLY3,MF_JOLLY3
ENDIF
IF(FI_JOLLY3 != 0)
FIELD FI_JOLLY3
ENDIF
END
ENDIF
IFDEF(FLD_JOLLY4)
IFNDEF(TY_JOLLY4)
F_TYPE(JOLLY4, STRING)
ENDIF
IFNDEF(LN_JOLLY4)
F_LEN(JOLLY4, 20)
ENDIF
IFNDEF(DE_JOLLY4)
F_DEC(JOLLY4, )
ENDIF
IFNDEF (X_JOLLY4)
F_X(JOLLY4, 2)
ENDIF
IFNDEF (Y_JOLLY4)
F_Y(JOLLY4, 14)
ENDIF
IFNDEF(PR_JOLLY4)
F_PROMPT(JOLLY4, "Jolly 4 ")
ENDIF
IFNDEF(FI_JOLLY4)
F_FIELD(JOLLY4, 0)
ENDIF
IFNDEF(FL_JOLLY4)
F_FLG(JOLLY4, 0)
ENDIF
IFNDEF(CH_JOLLY4)
F_CHK(JOLLY4, 0)
ENDIF
IFNDEF(MS_JOLLY4)
!!define MS_JOLLY4 0
ENDIF
TY_JOLLY4 FR_JOLLY4 LN_JOLLY4 DE_JOLLY4
BEGIN
PROMPT X_JOLLY4 Y_JOLLY4 PR_JOLLY4
IF(FL_JOLLY4 != 0)
FLAGS FL_JOLLY4
ENDIF
IF(CH_JOLLY4 != 0)
CHECKTYPE CH_JOLLY4
ENDIF
IF(MS_JOLLY4 != 0)
MESSAGE MS_JOLLY4,MF_JOLLY4
ENDIF
IF(FI_JOLLY4 != 0)
FIELD FI_JOLLY4
ENDIF
END
ENDIF
IFDEF(FLD_JOLLY5)
IFNDEF(TY_JOLLY5)
F_TYPE(JOLLY5, STRING)
ENDIF
IFNDEF(LN_JOLLY5)
F_LEN(JOLLY5, 20)
ENDIF
IFNDEF(DE_JOLLY5)
F_DEC(JOLLY5, )
ENDIF
IFNDEF (X_JOLLY5)
F_X(JOLLY5, 2)
ENDIF
IFNDEF (Y_JOLLY5)
F_Y(JOLLY5, 15)
ENDIF
IFNDEF(PR_JOLLY5)
F_PROMPT(JOLLY5, "Jolly 5 ")
ENDIF
IFNDEF(FI_JOLLY5)
F_FIELD(JOLLY5, 0)
ENDIF
IFNDEF(FL_JOLLY5)
F_FLG(JOLLY5, 0)
ENDIF
IFNDEF(CH_JOLLY5)
F_CHK(JOLLY5, 0)
ENDIF
IFNDEF(MS_JOLLY5)
!!define MS_JOLLY5 0
ENDIF
TY_JOLLY5 FR_JOLLY5 LN_JOLLY5 DE_JOLLY5
BEGIN
PROMPT X_JOLLY5 Y_JOLLY5 PR_JOLLY5
IF(FL_JOLLY5 != 0)
FLAGS FL_JOLLY5
ENDIF
IF(CH_JOLLY5 != 0)
CHECKTYPE CH_JOLLY5
ENDIF
IF(MS_JOLLY5 != 0)
MESSAGE MS_JOLLY5,MF_JOLLY5
ENDIF
IF(FI_JOLLY5 != 0)
FIELD FI_JOLLY5
ENDIF
END
ENDIF
IFDEF(FLD_JOLLY6)
IFNDEF(TY_JOLLY6)
F_TYPE(JOLLY6, STRING)
ENDIF
IFNDEF(LN_JOLLY6)
F_LEN(JOLLY6, 20)
ENDIF
IFNDEF(DE_JOLLY6)
F_DEC(JOLLY6, )
ENDIF
IFNDEF (X_JOLLY6)
F_X(JOLLY6, 2)
ENDIF
IFNDEF (Y_JOLLY6)
F_Y(JOLLY6, 16)
ENDIF
IFNDEF(PR_JOLLY6)
F_PROMPT(JOLLY6, "Jolly 6 ")
ENDIF
IFNDEF(FI_JOLLY6)
F_FIELD(JOLLY6, 0)
ENDIF
IFNDEF(FL_JOLLY6)
F_FLG(JOLLY6, 0)
ENDIF
IFNDEF(CH_JOLLY6)
F_CHK(JOLLY6, 0)
ENDIF
IFNDEF(MS_JOLLY6)
!!define MS_JOLLY6 0
ENDIF
TY_JOLLY6 FR_JOLLY6 LN_JOLLY6 DE_JOLLY6
BEGIN
PROMPT X_JOLLY6 Y_JOLLY6 PR_JOLLY6
IF(FL_JOLLY6 != 0)
FLAGS FL_JOLLY6
ENDIF
IF(CH_JOLLY6 != 0)
CHECKTYPE CH_JOLLY6
ENDIF
IF(MS_JOLLY6 != 0)
MESSAGE MS_JOLLY6,MF_JOLLY6
ENDIF
IF(FI_JOLLY6 != 0)
FIELD FI_JOLLY6
ENDIF
END
ENDIF
IFDEF(FLD_JOLLY7)
IFNDEF(TY_JOLLY7)
F_TYPE(JOLLY7, STRING)
ENDIF
IFNDEF(LN_JOLLY7)
F_LEN(JOLLY7, 20)
ENDIF
IFNDEF(DE_JOLLY7)
F_DEC(JOLLY7, )
ENDIF
IFNDEF (X_JOLLY7)
F_X(JOLLY7, 2)
ENDIF
IFNDEF (Y_JOLLY7)
F_Y(JOLLY7, 17)
ENDIF
IFNDEF(PR_JOLLY7)
F_PROMPT(JOLLY7, "Jolly 7 ")
ENDIF
IFNDEF(FI_JOLLY7)
F_FIELD(JOLLY7, 0)
ENDIF
IFNDEF(FL_JOLLY7)
F_FLG(JOLLY7, 0)
ENDIF
IFNDEF(CH_JOLLY7)
F_CHK(JOLLY7, 0)
ENDIF
IFNDEF(MS_JOLLY7)
!!define MS_JOLLY7 0
ENDIF
TY_JOLLY7 FR_JOLLY7 LN_JOLLY7 DE_JOLLY7
BEGIN
PROMPT X_JOLLY7 Y_JOLLY7 PR_JOLLY7
IF(FL_JOLLY7 != 0)
FLAGS FL_JOLLY7
ENDIF
IF(CH_JOLLY7 != 0)
CHECKTYPE CH_JOLLY7
ENDIF
IF(MS_JOLLY7 != 0)
MESSAGE MS_JOLLY7,MF_JOLLY7
ENDIF
IF(FI_JOLLY7 != 0)
FIELD FI_JOLLY7
ENDIF
END
ENDIF
IFDEF(FLD_JOLLY8)
IFNDEF(TY_JOLLY8)
F_TYPE(JOLLY8, STRING)
ENDIF
IFNDEF(LN_JOLLY8)
F_LEN(JOLLY8, 20)
ENDIF
IFNDEF(DE_JOLLY8)
F_DEC(JOLLY8, )
ENDIF
IFNDEF (X_JOLLY8)
F_X(JOLLY8, 2)
ENDIF
IFNDEF (Y_JOLLY8)
F_Y(JOLLY8, 18)
ENDIF
IFNDEF(PR_JOLLY8)
F_PROMPT(JOLLY8, "Jolly 8 ")
ENDIF
IFNDEF(FI_JOLLY8)
F_FIELD(JOLLY8, 0)
ENDIF
IFNDEF(FL_JOLLY8)
F_FLG(JOLLY8, 0)
ENDIF
IFNDEF(CH_JOLLY8)
F_CHK(JOLLY8, 0)
ENDIF
IFNDEF(MS_JOLLY8)
!!define MS_JOLLY8 0
ENDIF
TY_JOLLY8 FR_JOLLY8 LN_JOLLY8 DE_JOLLY8
BEGIN
PROMPT X_JOLLY8 Y_JOLLY8 PR_JOLLY8
IF(FL_JOLLY8 != 0)
FLAGS FL_JOLLY8
ENDIF
IF(CH_JOLLY8 != 0)
CHECKTYPE CH_JOLLY8
ENDIF
IF(MS_JOLLY8 != 0)
MESSAGE MS_JOLLY8,MF_JOLLY8
ENDIF
IF(FI_JOLLY8 != 0)
FIELD FI_JOLLY8
ENDIF
END
ENDIF
IFDEF(FLD_JOLLY9)
IFNDEF(TY_JOLLY9)
F_TYPE(JOLLY9, STRING)
ENDIF
IFNDEF(LN_JOLLY9)
F_LEN(JOLLY9, 20)
ENDIF
IFNDEF(DE_JOLLY9)
F_DEC(JOLLY9, )
ENDIF
IFNDEF (X_JOLLY9)
F_X(JOLLY9, 2)
ENDIF
IFNDEF (Y_JOLLY9)
F_Y(JOLLY9, 19)
ENDIF
IFNDEF(PR_JOLLY9)
F_PROMPT(JOLLY9, "Jolly 9 ")
ENDIF
IFNDEF(FI_JOLLY9)
F_FIELD(JOLLY9, 0)
ENDIF
IFNDEF(FL_JOLLY9)
F_FLG(JOLLY9, 0)
ENDIF
IFNDEF(CH_JOLLY9)
F_CHK(JOLLY9, 0)
ENDIF
IFNDEF(MS_JOLLY9)
!!define MS_JOLLY9 0
ENDIF
TY_JOLLY9 FR_JOLLY9 LN_JOLLY9 DE_JOLLY9
BEGIN
PROMPT X_JOLLY9 Y_JOLLY9 PR_JOLLY9
IF(FL_JOLLY9 != 0)
FLAGS FL_JOLLY9
ENDIF
IF(CH_JOLLY9 != 0)
CHECKTYPE CH_JOLLY9
ENDIF
IF(MS_JOLLY9 != 0)
MESSAGE MS_JOLLY9,MF_JOLLY9
ENDIF
IF(FI_JOLLY9 != 0)
FIELD FI_JOLLY9
ENDIF
END
ENDIF
IFDEF(FLD_JOLLY10)
IFNDEF(TY_JOLLY10)
F_TYPE(JOLLY10, STRING)
ENDIF
IFNDEF(LN_JOLLY10)
F_LEN(JOLLY10, 20)
ENDIF
IFNDEF(DE_JOLLY10)
F_DEC(JOLLY10, )
ENDIF
IFNDEF (X_JOLLY10)
F_X(JOLLY10, 2)
ENDIF
IFNDEF (Y_JOLLY10)
F_Y(JOLLY10, 20)
ENDIF
IFNDEF (PR_JOLLY10)
F_PROMPT(JOLLY10, "Jolly 10 ")
ENDIF
IFNDEF (FI_JOLLY10)
F_FIELD(JOLLY10, 0)
ENDIF
IFNDEF (FL_JOLLY10)
F_FLG(JOLLY10, 0)
ENDIF
IFNDEF (CH_JOLLY10)
F_CHK(JOLLY10, 0)
ENDIF
IFNDEF (MS_JOLLY10)
!!define MS_JOLLY10 0
ENDIF
TY_JOLLY10 FR_JOLLY10 LN_JOLLY10 DE_JOLLY10
BEGIN
PROMPT X_JOLLY10 Y_JOLLY10 PR_JOLLY10
IF(FL_JOLLY10 != 0)
FLAGS FL_JOLLY10
ENDIF
IF(CH_JOLLY10 != 0)
CHECKTYPE CH_JOLLY10
ENDIF
IF(MS_JOLLY10 != 0)
MESSAGE MS_JOLLY10
ENDIF
IF(FI_JOLLY10 != 0)
FIELD FI_JOLLY10
ENDIF
END
ENDIF
IFDEF(FLD_CODAGG1)
IFDEF(TY_CODAGG1)
TY_CODAGG1 FR_CODAGG1 20
ELSEIF
STRING FR_CODAGG1 20
ENDIF
BEGIN
IFNDEF(X_CODAGG1)
!!define X_CODAGG1 2
ENDIF
IFNDEF(Y_CODAGG1)
!!define Y_CODAGG1 21
ENDIF
IFNDEF(PR_CODAGG1)
!!define PR_CODAGG1 "Stringa 1 "
ENDIF
PROMPT X_CODAGG1 Y_CODAGG1 PR_CODAGG1
IFDEF(FL_CODAGG1)
FLAGS FL_CODAGG1
ENDIF
IFDEF(MS_CODAGG1)
MESSAGE MS_CODAGG1
ENDIF
IFDEF(NC_CODAGG1)
NUM_CALC NC_CODAGG1
ENDIF
IFDEF(FI_CODAGG1)
FIELD FI_CODAGG1
ELSEIF
FIELD CODAGG1
ENDIF
END
ENDIF
IFDEF(FLD_CODAGG2)
IFDEF(TY_CODAGG2)
TY_CODAGG2 FR_CODAGG2 20
ELSEIF
STRING FR_CODAGG2 13 5
ENDIF
BEGIN
IFNDEF(X_CODAGG2)
!!define X_CODAGG2 2
ENDIF
IFNDEF(Y_CODAGG2)
!!define Y_CODAGG2 22
ENDIF
IFNDEF(PR_CODAGG2)
!!define PR_CODAGG2 "Stringa 2 "
ENDIF
IFDEF(X_CODAGG2)
PROMPT X_CODAGG2 Y_CODAGG2 PR_CODAGG2
ELSEIF
PROMPT 2 12 "Stringa 2 "
ENDIF
IFDEF(FL_CODAGG2)
FLAGS FL_CODAGG2
ENDIF
IFDEF(MS_CODAGG2)
MESSAGE MS_CODAGG2
ENDIF
IFDEF(NC_CODAGG2)
NUM_CALC NC_CODAGG2
ENDIF
IFDEF(FI_CODAGG2)
FIELD FI_CODAGG2
ELSEIF
FIELD CODAGG2
ENDIF
END
IFDEF(FLD_RIDPREZZO)
CURRENCY FR_RIDPREZZO 18
BEGIN
@ -2124,6 +2688,8 @@ BEGIN
FIELD PCON(10)
END
ENDIF
ENDPAGE
#endif
@ -2245,55 +2811,4 @@ END
ENDIF // Campi analitici
IFDEF(FLD_CODAGG1)
IFDEF(TY_CODAGG1)
TY_CODAGG1 FR_CODAGG1 20
ELSEIF
STRING FR_CODAGG1 20
ENDIF
BEGIN
IFDEF(X_CODAGG1)
PROMPT X_CODAGG1 Y_CODAGG1 PR_CODAGG1
ELSEIF
PROMPT 2 15 "Stringa 1 "
ENDIF
IFDEF(FL_CODAGG1)
FLAGS FL_CODAGG1
ENDIF
IFDEF(MS_CODAGG1)
MESSAGE MS_CODAGG1
ENDIF
IFDEF(NC_CODAGG1)
NUM_CALC NC_CODAGG1
ENDIF
FIELD CODAGG1
END
ENDIF
IFDEF(FLD_CODAGG2)
IFDEF(TY_CODAGG2)
TY_CODAGG2 FR_CODAGG2 20
ELSEIF
STRING FR_CODAGG2 13 5
ENDIF
BEGIN
IFDEF(X_CODAGG2)
PROMPT X_CODAGG2 Y_CODAGG2 PR_CODAGG2
ELSEIF
PROMPT 42 15 "Stringa 2 "
ENDIF
IFDEF(FL_CODAGG2)
FLAGS FL_CODAGG2
ENDIF
IFDEF(MS_CODAGG2)
MESSAGE MS_CODAGG2
ENDIF
IFDEF(NC_CODAGG2)
NUM_CALC NC_CODAGG2
ENDIF
FIELD CODAGG2
END
ENDIF
ENDMASK

View File

@ -17,7 +17,31 @@ DEFINE_FIELD(DESMAG)
DEFINE_FIELD(CODDEP)
DEFINE_FIELD(DESDEP)
DEFINE_FIELD(CODART)
// F_OUT(CODART, FR_CODAGG1, USER1)
// DEFINE_FIELD(JOLLY1)
// DEFINE_FIELD(JOLLY2)
// DEFINE_FIELD(JOLLY3)
// DEFINE_FIELD(JOLLY4)
// DEFINE_FIELD(JOLLY5)
// DEFINE_FIELD(JOLLY6)
// DEFINE_FIELD(JOLLY7)
// DEFINE_FIELD(JOLLY8)
// DEFINE_FIELD(JOLLY9)
// DEFINE_FIELD(JOLLY10)
// DEFINE_FIELD(QTAGG1)
// F_POS(QTAGG1, 25, 2, "Q 1")
// DEFINE_FIELD(QTAGG2)
// F_X(QTAGG2, 26)
// DEFINE_FIELD(QTAGG3)
// F_Y(QTAGG3, 15)
// DEFINE_FIELD(QTAGG4)
// F_PROMPT(QTAGG4, "Q 4")
// DEFINE_FIELD(QTAGG5)
// DEFINE_FIELD(CODAGG1)
// F_X(CODAGG1, 20)
// F_Y(CODAGG1, 15)
// F_PROMPT(CODAGG1, "Cod.Importazione ")
// DEFINE_FIELD(CODAGG2)
// F_FIELD(CODAGG1, CODIMP)
DEFINE_FIELD(DESCRART)
DEFINE_FIELD(UMQTA)
DEFINE_FIELD(QTA)

View File

@ -1,15 +1,20 @@
#define INCLDEF(file) !!include file
#define INCLDEF(file) !!include file;
#define IFDEF(name) !!ifdef name
#define IF(cond) !!if cond
#define IFNDEF(name) !!ifndef name
#define IF(cond) !!if (cond)
#define ENDIF !!endif
#define ELSEIF !!else
#define DEFINE_FIELD(name) !!define FLD_##name ;
#define F_POS(name, row, col, prompt) !!define X_##name row ;\
!!define Y_##name col ;\
!!define PR_##name prompt ;
#define F_X(name, row) !!define X_##name row ;
#define F_Y(name, col) !!define Y_##name col ;
#define F_PROMPT(name, prompt) !!define PR_##name prompt ; // da implementare
#define F_POS(name, row, col, prompt) F_X(name, row);\
F_Y(name, col);\
F_PROMPT(name, prompt);
#define F_FIELD(name, field) !!define FI_##name field ;
#define F_TYPE(name, type) !!define TY_##name type ;
#define F_LEN(name, len) !!define LN_##name len ;
#define F_DEC(name, dec) !!define DE_##name dec ;