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

Corretto errore MI4090

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@742 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-12-07 14:50:18 +00:00
parent e45d7934ef
commit a213e0bc19
9 changed files with 31 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ba/ba3300a.uml
View File

@ -31,7 +31,7 @@ STRING F_CODICE 3
BEGIN
PROMPT 3 4 "Codice Registro "
HELP "Codice del registro da numerare"
FLAGS "U"
FLAGS "UZ"
COPY ALL F_ANNO
CHECKTYPE REQUIRED
KEY 1

1
ba/ba3500a.uml
View File

@ -231,6 +231,7 @@ BEGIN
PROMPT 1 8 "Codice registro "
FIELD %INL->S0
USE REG
FLAGS "UZ"
INPUT CODTAB[5,7] 106
DISPLAY "Codice registro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0

2
ba/ba3700a.uml
View File

@ -17,7 +17,7 @@ STRING F_CODICE 4
BEGIN
PROMPT 6 1 "Codice "
HELP "Codice condizione di pagamento"
FLAGS "U"
FLAGS "UZ"
FIELD %CPG->CODTAB
USE %CPG KEY 1 ALIAS 50
INPUT CODTAB F_CODICE

4
ba/ba4300a.uml
View File

@ -674,6 +674,10 @@ BEGIN
MESSAGE ENABLE,4@
ITEMS "4|Socio amministratore"
MESSAGE ENABLE,4@
ITEMS "5|Erede"
MESSAGE ENABLE,4@
ITEMS "6|Curatore di eredita'"
MESSAGE ENABLE,4@
END
DATE FLD_GD3_DECCARRAPP

24
ba/bastcpg.uml
View File

@ -4,29 +4,29 @@
PAGE "Stampa condizioni di pagamento" -1 -1 50 8
STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
PROMPT 2 1 "Da codice "
FLAGS "UZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %CPG
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
GROUP 1
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
PROMPT 2 3 "A codice "
FLAGS "UZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
GROUP 2
END
BUTTON DLG_OK 8 2

6
ba/bastiva.uml
View File

@ -5,7 +5,7 @@ PAGE "Stampa codici IVA" -1 -1 50 8
STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "R"
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %IVA
@ -14,12 +14,13 @@ BEGIN
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
VALIDATE ZEROFILL_FUNC 2
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A codice "
FLAGS "R"
FLAGS "U"
HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
@ -27,6 +28,7 @@ BEGIN
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
VALIDATE ZEROFILL_FUNC 2
END
BUTTON DLG_OK 8 2

2
ba/batbcpg.uml
View File

@ -11,7 +11,7 @@ BEGIN
PROMPT 4 1 "Codice "
HELP "Codice di pagamento"
FIELD LF_TABCOM->CODTAB
FLAGS "U"
FLAGS "UZ"
USE %CPG
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB

1
ba/batbiva.uml
View File

@ -26,6 +26,7 @@ BEGIN
OUTPUT FLD_TABIVA_S0 S0
HELP "Inserire il codice IVA"
CHECKTYPE REQUIRED
VALIDATE ZEROFILL_FUNC 2
END
STRING FLD_TABIVA_S0 50

10
ba/batbpim.uml
View File

@ -78,7 +78,7 @@ BEGIN
PROMPT 4 6 "Codice registro "
HELP "Codice registro di riferimento"
FIELD LF_TAB->CODTAB[10,12]
FLAGS "R"
FLAGS "UZ"
USE REG
CHECKTYPE NORMAL
INPUT CODTAB[1,4] F_REGISTRO
@ -115,13 +115,15 @@ STRING F_CODIVA 3
BEGIN
PROMPT 4 10 "Codice IVA "
HELP "Codice IVA da applicare"
FLAGS "U"
FIELD LF_TAB->CODTAB[16,18]
USE %IVA
USE %IVA
INPUT CODTAB F_CODIVA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione " S0
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione " S0
OUTPUT F_CODIVA CODTAB
KEY 1
VALIDATE ZEROFILL_FUNC 2
END
LIST F_IMPORTO 5