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 "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
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user