diff --git a/mg/mg1100.uml b/mg/mg1100.uml index b6499c058..61c4351e5 100755 --- a/mg/mg1100.uml +++ b/mg/mg1100.uml @@ -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