Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | Quitação de Débitos |
País: | Brasil |
Ticket: | 14331389 |
Requisito/Story/Issue (informe o requisito relacionado) : | DSAUBE-18668 |
Necessidade de incluir uma consulta diferente da padrão na Declaração anual de débitos.
Implementando ponto de entrada PL772QRY para substituir a Query padrão na Declaração anual de débitos.
Ponto de entrada: PL772QRY
Parâmetros: PARAMIXB com 11 posições
Retorno: Variável contendo a Query padrão ou customizada para ser executada no código (Tipo Caractere).
Obs: O retorno da Query (padrão ou customizada) por regra deve conter os mesmos campos, são eles:
Portanto o select deve começar com:
SELECT SE1.E1_CODINT, SE1.E1_CODEMP, SE1.E1_MATRIC, SE1.E1_CONEMP, SE1.E1_VERCON, SE1.E1_SUBCON, SE1.E1_VERSUB, SE1.E1_CLIENTE, SE1.E1_LOJA, BBT.BBT_NIVEL, SE1.E1_EMISSAO, SE1.E1_VENCREA, SE1.E1_SALDO, SE1.E1_VALOR, SE1.E1_STATUS FROM ... |
Exemplo de uso:
#Include 'Protheus.ch' User Function PL772QRY() local cSql := PARAMIXB[1] //Query padrão do sistema local nTpCont := PARAMIXB[2] //Pessoa Fisica - 1 / Pessoa Jurídica - 2 local cIntDe := PARAMIXB[3] //Código Instituição De (E1_CODINT) local cIntAte := PARAMIXB[4] //Código Instituição Até (E1_CODINT) local cGruDe := PARAMIXB[5] //Código da empresa De (E1_CODEMP) local cGruAte := PARAMIXB[6] //Código da empresa Até (E1_CODEMP) local cConDe := PARAMIXB[7] //Contrato da empresa De (E1_CONEMP) local cConAte := PARAMIXB[8] //Contrato da empresa Até (E1_CONEMP) local cSubDe := PARAMIXB[9] //Sub-Contrato da empresa De (E1_SUBCON) local cSubAte := PARAMIXB[10] //Sub-Contrato da empresa Até (E1_SUBCON) local aRetDatas := aClone(PARAMIXB[11]) //Array contendo o primeiro e o último dia do ano informado na tela de Declaração anual de débitos - Ex: [0] = 01/01/2022 [1] = 31/12/2022 (Utilizar DToS nos valores) local cCustomSql := "" //Variavel para customizarmos a Query //Condicões do cliente //cCustomSql := "SELECT SE1.E1_CODINT, SE1.E1_CODEMP, SE1.E1_MATRIC, SE1.E1_CONEMP, SE1.E1_VERCON, SE1.E1_SUBCON, SE1.E1_VERSUB, SE1.E1_CLIENTE, // SE1.E1_LOJA, BBT.BBT_NIVEL, SE1.E1_EMISSAO, SE1.E1_VENCREA, SE1.E1_SALDO, SE1.E1_VALOR, SE1.E1_STATUS FROM ... " //Importante: O retorno da Query padrão ou customizada por regra deve conter os seguintes campos: //+----------------------------------------------------------------------------------------------------------------------------+ // SE1.E1_CODINT, SE1.E1_CODEMP, SE1.E1_MATRIC, SE1.E1_CONEMP, SE1.E1_VERCON, SE1.E1_SUBCON, SE1.E1_VERSUB, SE1.E1_CLIENTE, // SE1.E1_LOJA, BBT.BBT_NIVEL, SE1.E1_EMISSAO, SE1.E1_VENCREA, SE1.E1_SALDO, SE1.E1_VALOR, SE1.E1_STATUS //+----------------------------------------------------------------------------------------------------------------------------+ //Podemos retornar tambem a propia query padrão do sistema. cCustomSql := cSql Return cCustomSql |