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:
parent
a44a144cea
commit
05751b8a24
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user