Corretto campo codclio/codfor e condv
git-svn-id: svn://10.65.10.50/trunk@4990 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
e0105456e4
commit
4fd99c1437
114
mg/mg1100.uml
114
mg/mg1100.uml
@ -124,9 +124,8 @@ BEGIN
|
||||
OUPUT F_CODNUM CODNUM
|
||||
OUPUT F_NUMDOC NDOC
|
||||
OUPUT F_ANNODOC ANNO
|
||||
OUPUT F_TIPOCF TIPOCF
|
||||
// OUPUT F_CODCLI CODCF
|
||||
// OUPUT F_CODFOR CODCF
|
||||
// OUPUT F_TIPOCF TIPOCF
|
||||
// OUPUT F_CODCF CODCF
|
||||
OUPUT F_CODCAUS CAUSMAG1
|
||||
CHECKTYPE NORMAL
|
||||
|
||||
@ -177,72 +176,51 @@ BEGIN
|
||||
GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
LISTBOX F_TIPOCF 10
|
||||
LISTBOX F_TIPOCF 20
|
||||
BEGIN
|
||||
PROMPT 2 9 "Relativo a "
|
||||
PROMPT 2 9 "Movimento "
|
||||
FLAGS "G"
|
||||
FIELD TIPOCF
|
||||
ITEM " |Nessuno"
|
||||
MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|RESET,F_CODCF|HIDE,F_RAGSOC
|
||||
ITEM "C|Cliente"
|
||||
MESSAGE SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC
|
||||
ITEM "F|Fornitore"
|
||||
MESSAGE HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC
|
||||
ITEM " |interno"
|
||||
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
|
||||
|
||||
GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
// campi per READ/WRITE su archivio (e ricerca utente)
|
||||
NUMBER F_CODCLI 6
|
||||
BEGIN
|
||||
PROMPT 2 10 "Codice cliente "
|
||||
FLAGS "U"
|
||||
FIELD CODCF
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCLI
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
MESSAGE EMPTY RESET,F_CODCF
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
// campi per READ/WRITE su archivio (e ricerca utente)
|
||||
NUMBER F_CODFOR 6
|
||||
BEGIN
|
||||
FLAGS "U"
|
||||
PROMPT 2 10 "Codice fornitore "
|
||||
FIELD CODCF
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODFOR
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
MESSAGE EMPTY RESET,F_CODCF
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
|
||||
// agisce anche quando l'utente non entra in gioco (settaggio da LISTINO...)
|
||||
// agisce anche quando l'utente non entra in gioco (settaggio da contratto...)
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
FLAGS "U"
|
||||
FLAGS "HG"
|
||||
PROMPT 0 1 ""
|
||||
// FLAGS "UHG"
|
||||
FIELD CODCF
|
||||
PROMPT 19 10 ""
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT TIPOCF F_TIPOCF
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
// OUTPUT F_CODCLI CODCF
|
||||
// OUTPUT F_CODFOR CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
// OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CODCLI CODCF
|
||||
OUTPUT F_CODFOR CODCF
|
||||
CHECKTYPE NORMAL
|
||||
//MESSAGE COPY,F_CODCLI|COPY,F_CODFOR
|
||||
END
|
||||
|
||||
TEXT F_CODCLI
|
||||
BEGIN
|
||||
PROMPT 2 10 "Codice cliente "
|
||||
END
|
||||
|
||||
TEXT F_CODFOR
|
||||
BEGIN
|
||||
PROMPT 2 10 "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 ""
|
||||
@ -261,30 +239,25 @@ BEGIN
|
||||
PROMPT 2 12 "Condizione di vendita "
|
||||
ITEM " |Nessuna"
|
||||
MESSAGE RESET,F_CATVEN|DISABLE,F_CATVEN
|
||||
MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
|
||||
MESSAGE ENABLE,F_TIPOCF
|
||||
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
|
||||
MESSAGE CLEAR,F_TIPOCF
|
||||
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
|
||||
MESSAGE ENABLE,F_TIPOCF
|
||||
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
|
||||
MESSAGE CLEAR,F_TIPOCF
|
||||
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR|ENABLE,F_TIPOCF
|
||||
|
||||
// GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
|
||||
|
||||
|
||||
STRING F_CATVEN 2
|
||||
BEGIN
|
||||
FLAGS "DU"
|
||||
@ -313,10 +286,8 @@ BEGIN
|
||||
DISPLAY "Descr.@30" DESCR
|
||||
|
||||
OUTPUT F_CATVEN CATVEN
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CODLIST COD
|
||||
CHECKTYPE NORMAL
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
// GROUP G_DEFMOV
|
||||
END
|
||||
@ -336,11 +307,11 @@ BEGIN
|
||||
DISPLAY "Cod Cli/For" CODCF
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descr.@30" DESCR
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_CODCONTR COD
|
||||
|
||||
CHECKTYPE NORMAL
|
||||
CHECKTYPE REQUIRED
|
||||
// GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
@ -355,9 +326,8 @@ BEGIN
|
||||
INPUT COD F_CODOFF
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descr.@30" DESCR
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CODOFF COD
|
||||
CHECKTYPE NORMAL
|
||||
CHECKTYPE REQUIRED
|
||||
// GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user