Corretti errori per vendite e conflitto

git-svn-id: svn://10.65.10.50/trunk@2697 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-03-26 09:48:44 +00:00
parent 300534401c
commit 349683d8ea

View File

@ -639,13 +639,8 @@ END
STRING F_CODVAL 3
BEGIN
<<<<<<< cg0200a.uml
PROMPT 2 6 "Valuta "
FLAGS "UZ"
=======
PROMPT 2 6 "Valuta "
FLAGS "UZ"
>>>>>>> 1.23
FIELD CODVAL
USE %VAL
INPUT CODTAB F_CODVAL
@ -1510,6 +1505,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
BEGIN
PROMPT 54 16 "Categoria vendita "
FIELD LF_CFVEN->CATVEN
FLAGS "U"
GROUP 7
USE %CVE
INPUT CODTAB F_CATVEN
@ -1620,20 +1616,29 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
STRING F_CODMAG 3
BEGIN
PROMPT 48 5 "Codice magazzino "
FIELD LF_CFVEN->CODMAG
HELP "Codice del magazzino movimentato"
END
FIELD LF_CFVEN->CODMAG
USE MAG SELECT CODTAB[4,5]==""
INPUT CODTAB F_CODMAG
DISPLAY "Codice" CODTAB[1,3]
DISPLAY "Denominazione@50" S0
OUTPUT F_CODMAG CODTAB[1,3]
WARNING "Codice del magazzino errato"
CHECKTYPE NORMAL
END
STRING F_CODLIST 5
BEGIN
PROMPT 48 6 "Codice listino "
FIELD LF_CFVEN->CODLIST
USE %LIS
INPUT CODTAB F_CODLIST
DISPLAY "Codice listino " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODLIST CODTAB
HELP "Codice listino utilizzato"
USE LF_CONDV
INPUT TIPO "L"
INPUT CATVEN F_CATVEN
INPUT COD F_CODLIST
DISPLAY "Codice cat.vendita " CATVEN
DISPLAY "Codice listino " COD
DISPLAY "Descrizione@50" DESC
OUTPUT F_CODLIST COD
WARNING "Codice listino errato"
CHECKTYPE NORMAL
END