Correzione errori di consistenza
git-svn-id: svn://10.65.10.50/trunk@4072 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
97386d8f18
commit
1473b6a5e8
@ -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
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user