VX002CAT - Tratamento da Negociação da Reserva de Domínio

Este Ponto de Entrada é executado na rotina Entrada por Devolução de Venda (VEIXA002) e permite retornar a categoria e o tipo da venda do atendimento, para tratamento da negociação da reserva de domínio.

User Function VX002CAT()
Local aRet := ParamIXB[1]

aRet[1] := "Teste" // Teste

Return aRet

Português(Brasil)

Todas

Todos

Todas

aRet = retornar a categoria e o tipo da venda do atendimento .

aRet

If !Empty(cTipVen)
ni := At(aRet[1]+"=",cTipVen) // Pesquisa pela Categora da Venda
If ni > 0
aRet[2] := substr(cTipVen,ni+2,2) // Tipo da Venda
EndIf
EndIf
ni := ascan(aCliAli,\{|x| x[1] == aRet[1] \}) // Trazer o Cliente Alienacao
If ni > 0
aRet[3] := aCliAli[ni,2] // Cliente Alienacao
aRet[4] := aCliAli[ni,3] // Loja do Cliente Alienacao
EndIf

If ExistBlock("VX002CAT")
aRet := ExecBlock("VX002CAT",.f.,.f.,\{aRet\})
Endif

RestArea( aArea )

VEIXX002