Linha Microsiga Protheus

Árvore de páginas

FQ944QRY

Descrição:

Permite alterar a query de seleção dos dados para a montagem do array de retorno das informações dos lucros e dividendos do sócio da sociedade de conta em participações gerado no arquivo da DIRF.

Localização:

Miscelânea > Dirf

Eventos:

Gerar Arquivo

Programa Fonte:

GPEM550

Função:

FINA994

Retorno:

Nome

Tipo

Descrição

Obrigatório

 cQuery

C

Retorna a query para a seleção dos registros na tabela FOD - Cadastro de Sócios e FOE - Lucros/Dividendos do sócio SCP. Importante que seja mantido a ordem e que todos os campos estejam na query para a montagem do array de retorno enviado para a rotina de geração de arquivo Dirf.

Sim

 

Exemplo:

#Include 'Protheus.ch'

User Function FA944QRY()
Local cQueryAtu := ParamIxb[1]
Local cAno := ParamIxb[2]

cQueryAtu := "SELECT FOD.*, FOE.* FROM " + RetSqlName("FOD") + " FOD, "
cQueryAtu += RetSqlName("FOE") + " FOE "
cQueryAtu += "WHERE FOD.FOD_FILIAL = FOE.FOE_FILIAL "
cQueryAtu += "AND FOD.FOD_FILSCP = FOE.FOE_FILSCP "
cQueryAtu += "AND FOD.FOD_FILSOC = FOE.FOE_FILSOC "
cQueryAtu += "AND FOE.FOE_ANO = '" + cAno + "' "
cQueryAtu += "AND FOE.FOE_VALOR > 0 "
cQueryAtu += "AND FOD.D_E_L_E_T_ = ' ' "
cQueryAtu += "AND FOE.D_E_L_E_T_ = ' ' "
cQueryAtu += "ORDER BY FOD.FOD_FILSCP, FOD.FOD_TIPOPE, FOD.FOD_FILSOC, FOE.FOE_MES "


Return cQueryAtu