Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS


Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Fiscal

02. DESCRIÇÃO

Altera a query que retorna os dados para a apresentação do registro F500.

Programa Fonte:

SPED FISCAL - SPEDXFUN.PRW
EFD CONTRIBUIÇÕES - FISA001.PRW


03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

Nome

Tipo

Descrição

PARAMIXB    Array of Record

[1] = Cláusula FROM da query a ser executada

[2] = Cláusula WHERE da query a ser executada

Retorno:

Nome

Tipo

Descrição


Array of Record

Array com a primeira posição contendo a cláusula FROM e a segunda posição contendo a cláusula WHERE.


04. EXEMPLO DE UTILIZAÇÃO


SPDF500A.PRW
#include 'protheus.ch'
#include 'parmtype.ch'

User Function SPDF500A()

    Local cFrom := ParamIxb[1]
    Local cWhere := ParamIxb[2]
    Local aQuery := {}   

    cFrom += " LEFT JOIN " + RetSqlName("SF2")
    cFrom += " SF2 ON(SF2.F2_FILIAL='" + xFilial("SF2") + "' "  
    cFrom += "AND SF2.F2_DOC=SFT.FT_NFISCAL "
    cFrom += "AND SF2.F2_SERIE=SFT.FT_SERIE "
    cFrom += "AND SF2.F2_CLIENTE=SFT.FT_CLIEFOR "
    cFrom += "AND SF2.F2_LOJA=SFT.FT_LOJA "
    cFrom += "AND SF2.D_E_L_E_T_=' ')" 

    cWhere += "SFT.FT_TIPOMOV='S' "

    aAdd(aQuery,cFrom)
    aAdd(aQuery,cWhere)

Return aQuery


05. DEMAIS INFORMAÇÕES

Não se aplica.