Correzione errori di consistenza

git-svn-id: svn://10.65.10.50/trunk@4072 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-01-13 16:48:30 +00:00
parent 97386d8f18
commit 1473b6a5e8

View File

@ -31,8 +31,9 @@ BEGIN
DISPLAY "Codice " CODTAB[1,3] DISPLAY "Codice " CODTAB[1,3]
DISPLAY "Denominazione mag.@50 " S0 DISPLAY "Denominazione mag.@50 " S0
OUTPUT F_CODICE CODTAB[1,3] OUTPUT F_CODICE CODTAB[1,3]
OUTPUT F_DESCR S0
OUTPUT H_DESCR S0 OUTPUT H_DESCR S0
MESSAGE COPY,H_CODICE OUTPUT H_GESTGIA B0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -51,24 +52,24 @@ BEGIN
OUTPUT F_CODICE CODTAB[1,3] OUTPUT F_CODICE CODTAB[1,3]
OUTPUT F_CODDEP CODTAB[4,5] OUTPUT F_CODDEP CODTAB[4,5]
OUTPUT F_DESDEP S0 OUTPUT F_DESDEP S0
MESSAGE SHOW,F_DESCR|HIDE,H_DESCR|SHOW,F_DESDEP MESSAGE SHOW,H_DESCR|HIDE,F_DESCR|SHOW,F_DESDEP|HIDE,F_GESTGIA
MESSAGE EMPTY HIDE,F_DESCR|SHOW,H_DESCR|HIDE,F_DESDEP MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA
CHECKTYPE NORMAL CHECKTYPE NORMAL
//VALIDATE AUTOEXIT_FUNC 2 F_CODICE F_CODDEP //VALIDATE AUTOEXIT_FUNC 2 F_CODICE F_CODDEP
//GROUP GR_SEARCH //GROUP GR_SEARCH
END END
STRING H_CODICE 3 //Abilitazione/disabil. dei campi relativi al deposito
BOOLEAN H_GESTGIA
BEGIN BEGIN
FLAGS "H" PROMPT 1 1 ""
COPY USE F_CODICE FLAGS "GH"
INPUT CODTAB F_CODICE MESSAGE TRUE ENABLE,F_CODDEP//|ENABLE,F_DESDEP
COPY DISPLAY F_CODICE MESSAGE FALSE DISABLE,F_CODDEP
OUTPUT F_DESCR S0
CHECKTYPE NORMAL
END END
STRING F_DESCR 50
STRING H_DESCR 50
BEGIN BEGIN
PROMPT 2 3 "Denominazione mag. " PROMPT 2 3 "Denominazione mag. "
FLAGS "D" FLAGS "D"
@ -90,18 +91,18 @@ BEGIN
WARNING "Manca la denominazione" WARNING "Manca la denominazione"
END END
STRING H_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 2 3 "Denominazione mag. " PROMPT 2 3 "Denominazione mag. "
FIELD S0 FIELD S0
KEY 2 KEY 2
USE MAG KEY 2 USE MAG KEY 2
INPUT S0 H_DESCR INPUT S0 F_DESCR
DISPLAY "Denominazione mag.@50" S0 DISPLAY "Denominazione mag.@50" S0
DISPLAY "Cod. magazzino" CODTAB[1,3] DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Cod. deposito" CODTAB[4,5] DISPLAY "Cod. deposito" CODTAB[4,5]
COPY OUTPUT F_CODDEP COPY OUTPUT F_CODDEP
OUTPUT H_DESCR S0 OUTPUT F_DESCR S0
MESSAGE K_TAB,F_CODDEP MESSAGE K_TAB,F_CODDEP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Manca la denominazione del magazzino" WARNING "Manca la denominazione del magazzino"
@ -241,6 +242,7 @@ END
ENDPAGE ENDPAGE
PAGE "Gestione magazzini" 11 60 14 PAGE "Gestione magazzini" 11 60 14
NUMBER F_ANNO 4 NUMBER F_ANNO 4
@ -251,13 +253,16 @@ END
STRING F_CODMAGSTA 3 STRING F_CODMAGSTA 3
BEGIN BEGIN
PROMPT 2 2 "Codice magazzino sul quale stampare i movimenti " PROMPT 2 2 "Codice magazzino sul cui giornale stampare i movimenti "
FIELD S6 FIELD S6
USE MAG SELECT CODTAB ?= "???" USE MAG SELECT CODTAB[4,5] == ""
INPUT CODTAB[1,3] F_CODMAGSTA INPUT CODTAB[1,3] F_CODMAGSTA
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "Denominazione mag.@50 " S0 DISPLAY "Denominazione mag.@50 " S0
OUTPUT F_CODMAGSTA CODTAB[1,3] OUTPUT F_CODMAGSTA CODTAB[1,3]
MESSAGE DISABLE,F_CODLGIOR
MESSAGE EMPTY ENABLE,F_CODLGIOR
CHECKTYPE NORMAL
END END
STRING F_CODLGIOR 3 STRING F_CODLGIOR 3
@ -271,6 +276,14 @@ BEGIN
DISPLAY "Giornale" CODTAB[5,7] DISPLAY "Giornale" CODTAB[5,7]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODLGIOR CODTAB[5,7] OUTPUT F_CODLGIOR CODTAB[5,7]
MESSAGE DISABLE,F_CODMAGSTA
MESSAGE EMPTY ENABLE,F_CODMAGSTA
END
BOOLEAN F_GESTGIA
BEGIN
PROMPT 2 4 "Gestione giacenze in piu' depositi "
FIELD MAG->B0
END END
STRING F_CODLUNICO 3 STRING F_CODLUNICO 3
@ -286,15 +299,10 @@ BEGIN
OUTPUT F_CODLUNICO CODTAB[5,7] OUTPUT F_CODLUNICO CODTAB[5,7]
END END
BOOLEAN F_GESTGIA
BEGIN
PROMPT 2 4 "Gestione giacenze in piu' depositi "
FIELD MAG->B0
END
BOOLEAN F_STALDIS BOOLEAN F_STALDIS
BEGIN BEGIN
PROMPT 2 6 "Stampa libri distinti per classe fiscale articoli " PROMPT 2 6 "Stampa libro raggruppato per classe fiscale articoli "
FIELD MAG->B1 FIELD MAG->B1
END END
@ -306,13 +314,13 @@ END
BOOLEAN F_STAFISART BOOLEAN F_STAFISART
BEGIN BEGIN
PROMPT 2 8 "Stampa libri per raggruppamento fiscale articoli " PROMPT 2 8 "Stampa libro ragg. per raggruppamento fiscale articoli "
FIELD MAG->B2 FIELD MAG->B2
END END
BOOLEAN F_STAFISCAU BOOLEAN F_STAFISCAU
BEGIN BEGIN
PROMPT 2 9 "Stampa libri per raggruppamento fiscale causali " PROMPT 2 9 "Stampa libro ragg. per raggruppamento fiscale causali "
FIELD MAG->B3 FIELD MAG->B3
END END