Perguntas função FOR nos itens do pedido

Boa Tarde

Estou criando uma função no ponto de entrada MTA410() (Ao concluir o pedido de venda)

Como ficaria a função FOR nos itens do pedido de venda (SC6)

Quero verificar em cada item, por exemplo, se o campo C6_VALOR é o mesmo do B1_PRCVEN

Desde já, obrigado,
Felipe

Boa tarde Felipe

tente assim:

User Function MTA410

Local _nPosCod := aScan(aHeader,{|_cCpo| AllTrim(_cCpo[2])=="C6_PRCVEN"})
Local _nPosPreco := aScan(aHeader,{|_cCpo| AllTrim(_cCpo[2])=="C6_PRCVEN"})
Local _nPrecoSb1 := 0
Local lRet := .T.

For Nx:=1 To Len(Acols)
_nPrecoSb1 := Posicione("SB1",1,xFilial("SB1")+Acols[Nx][_nPosCod],"B1_PRCVEN")

If _nPrecoSb1 <> Acols[Nx][_nPosPreco] //se forem diferentes da a mensagem e não deixa prosseguir
msgAlert("Preço da SB1 diferente da SC6 no produto: "+Acols[Nx][_nPosCod])
lRet := .F.
EndIf

Next Nx

Return lRet



Att
Thales

For nXi := 1 To Len(Acols)
nValor := POSICIONE("SB1", 1, xFilial(“SB1”) + C6_PRODUTO, "B1_PRCVEN")
If !Empty(GdFieldGet("C6_VALOR",nXi)) = nValor)
sua validacao
EndIf
Next nXi

Valeu gente boa! é isso mesmo!

abraço,
Felipe