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:
parent
300534401c
commit
349683d8ea
@ -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
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user