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

Patch level : 2.0 598

Browse Source 
Files correlati     :
ce0500a.msk ce0500b.msk ce1101a.msk ce1101b.msk ce1201a.msk
ce1201b.msk ce1301a.msk ce1301b.msk ce1301c.msk ce1301d.msk
ce1500a.msk ce1500b.msk ce2300a.msk ce3200a.msk ce3500a.frm
ce3500b.frm ce3600a.frm ce3800a.frm cetbcce.msk
Ricompilazione Demo : [ ]
Commento            :

Nuova implementazione:
103
Possibilità di avere il codice dell'anagrafica cespite alfanumerico.


git-svn-id: svn://10.65.10.50/trunk@11480 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2003-10-10 09:50:34 +00:00
parent ec26fab764
commit 6d8bf68f15
19 changed files with 53 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ce/ce0500a.uml
View File

@ -145,10 +145,10 @@ BEGIN
DRIVENBY F_SPECIE
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 8 "Cespite "
FLAGS "Z"
FLAGS "UZ"
USE LF_CESPI
INPUT IDCESPITE F_IDCESPITE
DISPLAY "Codice@10" IDCESPITE

12
ce/ce0500b.uml
View File

@ -57,10 +57,10 @@ BEGIN
MESSAGE COPY,4@
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 5 "Cespite "
FLAGS "DGZ"
FLAGS "DGUZ"
FIELD IDCESPITE
MESSAGE COPY,5@
KEY 1
@ -337,7 +337,7 @@ BEGIN
GROUP 4
END
NUMBER DLG_NULL 10
STRINGA DLG_NULL 10
BEGIN
PROMPT 1 4 "Cespite "
FLAGS "DZ"
@ -505,7 +505,7 @@ BEGIN
GROUP 4
END
NUMBER DLG_NULL 10
STRINGA DLG_NULL 10
BEGIN
PROMPT 1 4 "Cespite "
FLAGS "DZ"
@ -600,7 +600,7 @@ END
#define LF_AMMCE2 -1
NUMBER DLG_NULL 10
STRING DLG_NULL 10
BEGIN
PROMPT 41 6 ""
FLAGS "HZ"
@ -655,7 +655,7 @@ END
#define LF_AMMCE3 -2
NUMBER DLG_NULL 10
STRING DLG_NULL 10
BEGIN
PROMPT 61 6 ""
FLAGS "HZ"

4
ce/ce1101a.uml
View File

@ -137,10 +137,10 @@ BEGIN
GROUP 2
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 8 "Cespite "
FLAGS "Z"
FLAGS "UZ"
USE LF_CESPI
INPUT IDCESPITE F_IDCESPITE
DISPLAY "Codice@10" IDCESPITE

4
ce/ce1101b.uml
View File

@ -105,10 +105,10 @@ BEGIN
FLAGS "D"
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 5 "Cespite "
FLAGS "DZ"
FLAGS "DUZ"
FIELD IDCESPITE
KEY 1
END

4
ce/ce1201a.uml
View File

@ -96,10 +96,10 @@ BEGIN
FLAGS "D"
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 8 "Cespite "
FLAGS "Z"
FLAGS "UZ"
USE LF_CESPI
INPUT IDCESPITE F_IDCESPITE
DISPLAY "Cespite@10" IDCESPITE

4
ce/ce1201b.uml
View File

@ -104,10 +104,10 @@ BEGIN
FLAGS "D"
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 5 "Cespite "
FLAGS "DZ"
FLAGS "DUZ"
FIELD IDCESPITE
KEY 1
END

8
ce/ce1301a.uml
View File

@ -137,10 +137,10 @@ BEGIN
GROUP 2
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 8 "Cespite "
FLAGS "Z"
FLAGS "UZ"
USE LF_CESPI SELECT (CODCGRA=#F_GRUPPO)&&(CODSPA=#F_SPECIE)
INPUT IDCESPITE F_IDCESPITE
DISPLAY "Codice@10" IDCESPITE
@ -177,10 +177,10 @@ BEGIN
GROUP 1
END
NUMBER F_IDCESPITE_I 10
STRING F_IDCESPITE_I 10
BEGIN
PROMPT 1 8 "Cespite "
FLAGS "Z"
FLAGS "UZ"
USE LF_CESPI SELECT CODIMP=#F_IMPIANTO
INPUT IDCESPITE F_IDCESPITE_I
COPY DISPLAY F_IDCESPITE

4
ce/ce1301b.uml
View File

@ -104,10 +104,10 @@ BEGIN
FLAGS "D"
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 4 "Cespite "
FLAGS "DGZ"
FLAGS "DGUZ"
FIELD IDCESPITE
KEY 1
END

4
ce/ce1301c.uml
View File

@ -104,10 +104,10 @@ BEGIN
FLAGS "D"
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 5 "Cespite "
FLAGS "DGZ"
FLAGS "DGUZ"
FIELD IDCESPITE
KEY 1
END

4
ce/ce1301d.uml
View File

@ -104,10 +104,10 @@ BEGIN
FLAGS "D"
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 5 "Cespite "
FLAGS "DGZ"
FLAGS "DGUZ"
FIELD IDCESPITE
KEY 1
END

4
ce/ce1500a.uml
View File

@ -118,10 +118,10 @@ BEGIN
CHECKTYPE NORMAL
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 8 "Cespite "
FLAGS "Z"
FLAGS "UZ"
USE LF_CESPI
INPUT IDCESPITE F_IDCESPITE
DISPLAY "Cespite@10" IDCESPITE

16
ce/ce1500b.uml
View File

@ -260,10 +260,10 @@ BEGIN
PROMPT 0 16 "@bCespite"
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 1 17 ""
FLAGS "GZ"
FLAGS "GUZ"
USE LF_CESPI
JOIN %CAT INTO CODTAB=CODCAT // Dummy join for resetting CAT, filling CAT handled in program
INPUT IDCESPITE F_IDCESPITE
@ -665,11 +665,11 @@ BEGIN
GROUP 12
END
NUMBER F_IDCESAM 10
STRING F_IDCESAM 10
BEGIN
PROMPT 31 39 "IDCESPITE "
FIELD LF_MOVAM->IDCESPITE
FLAGS "DZ"
FLAGS "DUZ"
GROUP 8
END
@ -775,11 +775,11 @@ BEGIN
GROUP 12
END
NUMBER F_IDCESAM2 10
STRING F_IDCESAM2 10
BEGIN
PROMPT 56 39 "IDCESPITE "
FIELD LF_MOVAM2->IDCESPITE
FLAGS "DZ"
FLAGS "DUZ"
GROUP 8
END
@ -819,11 +819,11 @@ BEGIN
GROUP 12
END
NUMBER F_IDCESAM3 10
STRING F_IDCESAM3 10
BEGIN
PROMPT 56 39 "IDCESPITE "
FIELD LF_MOVAM3->IDCESPITE
FLAGS "DZ"
FLAGS "DUZ"
GROUP 8
END

8
ce/ce2300a.uml
View File

@ -187,10 +187,10 @@ BEGIN
FLAGS "D"
END
NUMBER F_IDCESPITE 10
STRING F_IDCESPITE 10
BEGIN
PROMPT 16 8 ""
FLAGS "Z"
FLAGS "UZ"
USE LF_COLLCES SELECT IDCESPITE!=""
JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
INPUT CODGRUPPO F_GRUPPO SELECT
@ -208,10 +208,10 @@ BEGIN
GROUP 1
END
NUMBER F_IDCESPITE2 10
STRING F_IDCESPITE2 10
BEGIN
PROMPT 16 8 ""
FLAGS "HZ"
FLAGS "HUZ"
USE LF_CESPI
INPUT IDCESPITE F_IDCESPITE2
COPY DISPLAY F_IDCESPITE

4
ce/ce3200a.uml
View File

@ -119,7 +119,7 @@ BEGIN
FLAGS "R"
END
NUMBER F_CODCESP 10
STRING F_CODCESP 10
BEGIN
PROMPT 19 10 " "
USE LF_CESPI SELECT STR(CODCGRA==#F_GRUPPO)&&(TRIM(CODSPA)==TRIM(#F_SPECIE))
@ -128,7 +128,7 @@ BEGIN
DISPLAY "Descrizione@50" DESC
OUTPUT F_CODCESP IDCESPITE
OUTPUT F_DESCRCESP DESC
FLAGS "Z"
FLAGS "UZ"
END
STRING F_DESCRCESP 50 36

4
ce/ce3500a.frm
View File

@ -160,13 +160,13 @@ END
SECTION BODY ODD 3
STRING -1
STRINGA -1
BEGIN
PROMPT 1 1 "@b"
FIELD IDCESPITE
END
STRING -1 54
STRINGA -1 54
BEGIN
PROMPT 17 1 ""
FIELD DESC

4
ce/ce3500b.frm
View File

@ -227,13 +227,13 @@ END
SECTION BODY ODD 5
STRING -1
STRINGA -1
BEGIN
PROMPT 1 1 "@b"
FIELD IDCESPITE
END
STRING -1 54
STRINGA -1 54
BEGIN
PROMPT 17 1 ""
FIELD DESC

4
ce/ce3600a.frm
View File

@ -259,13 +259,13 @@ BEGIN
FIELD NUMELE
END
STRING -1
STRINGA -1
BEGIN
PROMPT 65 1 ""
FIELD DESC
END
STRING -1
STRINGA -1
BEGIN
PROMPT 1 2 ""
FIELD IDCESPITE

4
ce/ce3800a.frm
View File

@ -207,13 +207,13 @@ END
SECTION BODY ODD 3
STRING -1
STRINGA -1
BEGIN
PROMPT 1 1 ""
FIELD IDCESPITE
END
STRING -1
STRINGA -1
BEGIN
PROMPT 12 1 ""
FIELD DESC

6
ce/cetbcce.uml
View File

@ -87,10 +87,10 @@ BEGIN
FLAGS "R"
END
LISTBOX F_TIPO_ARR 1 11
LISTBOX F_TIPO_ARR 1 12
BEGIN
PROMPT 1 11 "Tipo arrotondamento "
ITEM "/|alla lira"
PROMPT 2 11 "Tipo arrotondamento "
ITEM "/|al centesimo"
ITEM "+|per eccesso"
ITEM "-|per difetto"
FIELD S6