Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada - LjRAQryO

Este Ponto de Entrada é executado na rotina LJRetailApp , para considerar a query do cliente para ser executada e enviar os dados das vendas.

Descrição:

Miscelânea\RetailApp

Eventos:

Integração Protheus x RetailApp

Programa Fonte:

LJRetailApp

Função:

Protheus

Parâmetos:

Nome

Tipo

Descrição

cBeginDate 

 Caractere

Data inicial usada no filtro das vendas
cFiliaisCaractereFiliais usadas no filtro das vendas

Retorno:

Nome

Tipo

Descrição

Obrigatório

 cQuery

 Caractere

String com a query a ser executada pelo programa padrão.

Importante: retornar a query com os nomes do campo igual do programa padrão: D2DESCON, D2_DOC, D2_SERIE, D2_COD, QTDE, TOTAL, D2_EMISSAO, F2_HORA, D2_FILIAL, F2_VEND1, D2_GRUPO, D2_CLIENTE, D2_LOJA, 'SD2' ALIAS

Sim 

 

Exemplo:

#Include 'Protheus.ch'

User Function LjRAQryO()
Local aArea := GetArea()
Local cDtIni:= ParamIxb[1]
Local cFiliais:= ParamIxb[2]
Local cQuery := ""

cQuery := "SELECT SUM(D2_DESCON) D2DESCON, D2_DOC, D2_SERIE, D2_COD, SUM(D2_QUANT) QTDE, SUM(D2_TOTAL) TOTAL, D2_EMISSAO, F2_HORA, D2_FILIAL, F2_VEND1, D2_GRUPO, D2_CLIENTE, D2_LOJA, 'SD2' ALIAS"
cQuery += " FROM " + RetSqlName('SD2') + " SD2"
cQuery += " INNER JOIN " + RetSqlName('SF2') + " SF2 ON "
cQuery += " SD2.D2_FILIAL = SF2.F2_FILIAL AND SD2.D2_DOC = SF2.F2_DOC AND SD2.D2_SERIE = SF2.F2_SERIE AND SD2.D2_CLIENTE = SF2.F2_CLIENTE AND SD2.D2_LOJA = SF2.F2_LOJA"
cQuery += " WHERE "
cQuery += " SD2.D2_FILIAL IN (" + cFiliais + ") AND "
cQuery += " SD2.D2_DOC <> ' ' AND SD2.D2_EMISSAO >= '" + cBeginDate + "' AND SD2.D2_TES IN ('501') AND "
cQuery += " SD2.D2_TIPO = 'N' AND SD2.D_E_L_E_T_ = ' ' AND SF2.D_E_L_E_T_ = ' ' "
cQuery += " GROUP BY D2_DOC, D2_SERIE, D2_COD, D2_EMISSAO, F2_HORA, D2_FILIAL, F2_VEND1, D2_GRUPO, D2_CLIENTE, D2_LOJA "

RestArea(aArea)
Return cQuery