Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function LJ7115()
Local cTESRet   := ""                                                                                                  // Atribiu a TES que será retornada
Local nPosProd    := Ascan(aPosCpo,{|x| Alltrim(Upper(x[1])) == "LR_PRODUTO"}) 

// Posicao da codigo do produto
Local nPosClEntr:= Ascan(aPosCpo,{|x| Alltrim(Upper(x[1])) == "LR_CLIENT"})         // Cliente de entrega
Local nPosLjEntr:= Ascan(aPosCpo,{|x| Alltrim(Upper(x[1])) == "LR_CLILOJA"})        // Filial do cliente de entrega

Local cProduto  := aCols[n,nPosProd]
Local cCliente  := aCols[n,nPosClEntr]
Local cLojaCli  := aCols[n,nPosLjEntr]

Local cTipOper  := "01"

If Empty(cCliente)
    cCliente  := M->LQ_CLIENTE
    cLojaCli  := M->LQ_LOJA 
EndIf
// Executa a função MatesInt para buscar TES Inteligente;
// Chamada de função MaTesInt é opcional, sendo possível definir de outra forma, conforme regra do Cliente.
cTESRet := MaTesInt( 2, cTipOper, cCliente, cLojaCli, "C", cProduto, NIL)

Return(cTESRet)