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