Correzione errori relativi alla gestione/stampa tabella indici libro
unico: dal MI4259 al MI4267. git-svn-id: svn://10.65.10.50/trunk@3442 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
51db9c4e5a
commit
35c8a53895
@ -32,7 +32,7 @@ BEGIN
|
||||
FLAGS "UZ"
|
||||
FIELD CODLIB
|
||||
COPY ALL F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
@ -97,14 +97,13 @@ NUMBER F_DITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Codice ditta "
|
||||
FIELD CODDITTA
|
||||
FLAGS "R"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_DITTA
|
||||
DISPLAY "Codice ditta" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_DITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "E' necessario specificare un codice ditta valido"
|
||||
END
|
||||
|
||||
@ -123,7 +122,7 @@ STRING F_CODREG 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Codice registro "
|
||||
FIELD CODREG
|
||||
FLAGS "UZ"
|
||||
FLAGS "UZ"
|
||||
USE REG
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODREG
|
||||
@ -133,8 +132,9 @@ BEGIN
|
||||
OUTPUT F_CODREG CODTAB[5,7]
|
||||
OUTPUT F_DESCREG S0
|
||||
WARNING "Codice registro assente"
|
||||
CHECKTYPE NORMAL
|
||||
VALIDATE NOT_EMPTY_CHECK_FIELD
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE EMPTY RESET,F_DESCREG
|
||||
END
|
||||
|
||||
STRING F_DESCREG 50
|
||||
@ -143,8 +143,10 @@ BEGIN
|
||||
USE REG KEY 2
|
||||
INPUT S0 F_DESCREG
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice registro" CODTAB
|
||||
COPY OUTPUT F_CODREG
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
OUTPUT F_CODREG CODTAB[5,7]
|
||||
OUTPUT F_DESCREG S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
@ -200,9 +202,9 @@ BEGIN
|
||||
PROMPT 36 16 "Pagine libro unico annullate"
|
||||
FIELD ANNULLATE
|
||||
MESSAGE FALSE ENABLE,F_DITTA|ENABLE,F_RAGSOC
|
||||
MESSAGE FALSE ENABLE,F_CODREG|ENABLE,F_DESCREG
|
||||
// MESSAGE FALSE ENABLE,F_CODREG|ENABLE,F_DESCREG
|
||||
MESSAGE FALSE REQUIRED,F_PINI_RU|REQUIRED,F_PFIN_RU
|
||||
MESSAGE TRUE CLEAR,F_DITTA|DISABLE,F_RAGSOC
|
||||
MESSAGE TRUE CLEAR,F_DITTA|CLEAR,F_RAGSOC
|
||||
MESSAGE TRUE CLEAR,F_CODREG|CLEAR,F_DESCREG|"Pagine annullate",F_DESCREG
|
||||
MESSAGE TRUE NORMAL,F_PINI_RU|NORMAL,F_PFIN_RU
|
||||
END
|
||||
|
Loading…
x
Reference in New Issue
Block a user