Modifiche al campo condv/codcli

git-svn-id: svn://10.65.10.50/trunk@5014 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-08-01 09:22:50 +00:00
parent a44a144cea
commit 05751b8a24

View File

@ -176,27 +176,53 @@ BEGIN
GROUP G_DEFMOV
END
LISTBOX F_TIPOCONDV 1 12
BEGIN
FIELD TIPOCV
PROMPT 2 10 "Condizione di vendita "
ITEM " |Nessuna"
MESSAGE CLEAR,F_CATVEN
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR|RESET,F_CODOFF
MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF|CLEAR,F_TIPOCF
ITEM "L|Listino"
MESSAGE ENABLE,F_CATVEN
MESSAGE SHOW,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF|CLEAR,F_TIPOCF
ITEM "C|Contratto"
MESSAGE CLEAR,F_CATVEN
MESSAGE HIDE,F_CODLIST|SHOW,F_CODCONTR|HIDE,F_CODOFF
MESSAGE RESET,F_CODLIST|RESET,F_CODOFF|ENABLE,F_TIPOCF
ITEM "O|Offerta"
MESSAGE CLEAR,F_CATVEN
MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|SHOW,F_CODOFF
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR|CLEAR,F_TIPOCF
// GROUP G_DEFMOV
END
LISTBOX F_TIPOCF 20
BEGIN
PROMPT 2 9 "Movimento "
PROMPT 42 10 "relativo a "
FLAGS "G"
FIELD TIPOCF
ITEM " |interno"
ITEM " |"
MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|HIDE,F_RAGSOC|RESET,F_CODCF|HIDE,F_CODCF
ITEM "C|relativo a cliente"
MESSAGE SHOW,F_CODCF|SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC
ITEM "F|relativo a fornitore"
MESSAGE SHOW,F_CODCF|HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC
ITEM "C|cliente"
MESSAGE SHOW,F_CODCF|SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC|CHECK,F_CODCONTR
ITEM "F|fornitore"
MESSAGE SHOW,F_CODCF|HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC|CHECK,F_CODCONTR
GROUP G_DEFMOV
END
// agisce anche quando l'utente non entra in gioco (settaggio da contratto...)
NUMBER F_CODCF 6
BEGIN
// FLAGS "UHG"
FIELD CODCF
PROMPT 19 10 ""
PROMPT 19 12 ""
USE LF_CLIFO
INPUT TIPOCF F_TIPOCF
INPUT CODCF F_CODCF
@ -211,19 +237,18 @@ END
TEXT F_CODCLI
BEGIN
PROMPT 2 10 "Codice cliente "
PROMPT 2 12 "Codice cliente "
END
TEXT F_CODFOR
BEGIN
PROMPT 2 10 "Codice fornitore "
PROMPT 2 12 "Codice fornitore "
END
// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
STRING F_RAGSOC 50 40
BEGIN
PROMPT 30 10 ""
PROMPT 30 12 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOCF SELECT
INPUT RAGSOC F_RAGSOC
@ -233,31 +258,6 @@ BEGIN
GROUP G_DEFMOV
END
LISTBOX F_TIPOCONDV 1 12
BEGIN
FIELD TIPOCV
PROMPT 2 12 "Condizione di vendita "
ITEM " |Nessuna"
MESSAGE RESET,F_CATVEN|DISABLE,F_CATVEN
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR|RESET,F_CODOFF
MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF|ENABLE,F_TIPOCF
ITEM "L|Listino"
MESSAGE ENABLE,F_CATVEN
MESSAGE SHOW,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF|ENABLE,F_TIPOCF
ITEM "C|Contratto"
MESSAGE RESET,F_CATVEN|DISABLE,F_CATVEN
MESSAGE HIDE,F_CODLIST|SHOW,F_CODCONTR|HIDE,F_CODOFF
MESSAGE RESET,F_CODLIST|RESET,F_CODOFF|DISABLE,F_TIPOCF
ITEM "O|Offerta"
MESSAGE RESET,F_CATVEN|DISABLE,F_CATVEN
MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|SHOW,F_CODOFF
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR|ENABLE,F_TIPOCF
// GROUP G_DEFMOV
END
STRING F_CATVEN 2
BEGIN
FLAGS "DU"
@ -331,6 +331,7 @@ BEGIN
// GROUP G_DEFMOV
END
ENDPAGE
PAGE "Righe" 11 60 14