root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Modifiche al campo condv/codcli

Browse Source 
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
1 changed files with 37 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
mg/mg1100.uml
View File

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