Histórico da Página

Ponto de Entrada - LjRACatG

Este Ponto de Entrada é executado na rotina LJRetailApp , para considerar outra tabela de categoria a ser executada no envio dos eventos vendas, estoque, vendas entrega.

Exemplo:

#Include 'Protheus.ch'

User Function LjRACatG()
Local aArea := GetArea()
Local cFiliais := ParamIxb[1]
Local cProduto := ParamIxb[2]

Local cDescr := ""

Local cTempDb := GetNextAlias()
Local cQuery := ""

cQuery := "SELECT BM_FILIAL, BM_GRUPO, BM_DESC, 
cQuery += " FROM " + RetSqlName('SB1') + " SB1"
cQuery += " INNER JOIN " + RetSqlName('SBM') + " SBM ON "
cQuery += " SB1.B1_FILIAL = SBM.BM_FILIAL AND SB1.B1_GRUPO = SBM.BM_GRUPO "
cQuery += " WHERE "
cQuery += " SB1.B1_FILIAL ='" + cFiliais + "' AND "
cQuery += " SB1.B1_COD ='" + cProduto + "' AND "
cQuery += " SB1.D_E_L_E_T_ = ' ' AND SBM.D_E_L_E_T_ = ' ' "

cQuery := ChangeQuery(cQuery)
dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cTempDb,.F.,.F.)

If (cTempDb)→(!EOF())

cDescr := (cTempDb)->BM_DESC

EndIF

Return cDescr