× Linguagem de Programação ADVPL

Perguntas Preenchimento de item Orçamento de venda Faturamento MATA415

Mais
10 anos 10 meses atrás #20710 por arlindoneto
Srs.

tenho uma tela que funciona como uma consulta padrão nela o usuário consegue escolher o produto para preencher o grid do orçamento de vendas. O primeiro item é preenchido 100% porém quando o usuário aperta a tecla da seta para baixo o grid fica todo bagunçado, segue a abaixo a função que preenche o grid:
Static Function fSeleciona2()
Local lRet := .T.  
Local nItem      := 0
Local cItem      := "00"


While TMP1->(!EOF())
	nItem++
    TMP1->(dbskip())
End

TMP1->(DbGoTop())
//Ajusta o sequencial do itens
If nItem==1
	cItem := "00"
Else
    cItem := TMP1->CK_ITEM
Endif
If SB1->(dbSeek(xFilial("SB1") + XXX->B1_COD))
	cCodPro :=	SB1->B1_COD
	cDesPro :=	SB1->B1_DESC
	cLocal	:=  SB1->B1_LOCPAD
	cUn     :=  SB1->B1_UM
EndIf
RecLock("TMP1", .T.)             
cItem := Soma1(cItem)
TMP1->CK_ITEM := cItem
TMP1->CK_PRODUTO := cCodPro
M->CK_PRODUTO    := cCodPro
TMP1->CK_UM     := cUn
M->CK_QTDVEN	:= nQtd
TMP1->CK_QTDVEN := nQtd
TMP1->CK_PRCVEN := nPreco
TMP1->CK_VALOR 	:= A410Arred(nQtd*nPreco,"CK_VALOR")
TMP1->CK_FLAG   := .F.
TMP1->CK_DESCRI := SB1->B1_DESC
TMP1->CK_LOCAL 	:= SB1->B1_LOCPAD
TMP1->CK_TES 	:= SB1->B1_TS
lLoop := .T.
TMP1->(MsUnLock())             
oGetDad:AddLine()
//oGetDad:ForceRefresh()

Return lRet

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 10 meses atrás #20923 por mbrigagao
Arlindo,

Tenho o mesmo problema, e até agora não consegui achar a solução.... Você teve algum progresso ?

At.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.077 segundos
Joomla templates by a4joomla