Histórico da Página
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: |
|
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