Linha Microsiga Protheus

Árvore de páginas

Nome:

LJ7115

Descrição:

Este ponto de entrada permite selecionar a TES conforme regra definida pelo Cliente. 
A chamada do ponto de entrada ocorre no momento em que o Código Produto é informado.

Programa Fonte:LOJA701A.PRW
Parâmetros:Sem parâmetros
Retorno:TES definida pela regra do Cliente
Exemplo:

#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)