- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Preenchimento de item Orçamento de venda Faturamento MATA415
×
Linguagem de Programação ADVPL
Perguntas Preenchimento de item Orçamento de venda Faturamento MATA415
- arlindoneto
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 31
- Obrigados Recebidos: 0
10 anos 9 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:
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.
- mbrigagao
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 350
- Obrigados Recebidos: 1
10 anos 9 meses atrás #20923
por mbrigagao
Respondido por mbrigagao no tópico Preenchimento de item Orçamento de venda Faturamento MATA415
Arlindo,
Tenho o mesmo problema, e até agora não consegui achar a solução.... Você teve algum progresso ?
At.
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Preenchimento de item Orçamento de venda Faturamento MATA415
Tempo para a criação da página:0.112 segundos