Árvore de páginas

FQ944ARR

Descrição:

Permite alterar o array contendo as 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

 aRet

A

Retorna o array contendo as informações dos lucros e dividendos do sócio da sociedade de conta em participações gerado no arquivo da DIRF.

Importante manter a estrutura do array. Segue exemplo do array

array[1] - array sócio ostensivo
array[1][1] - Filial sócio ostensivo
array[1][2] - Nome sócio ostensivo
array[1][3] - CNPJ sócio ostensivo
array[1][4] - array sócios da SCP
array[1][4][1] - array das informações sócios da SCP
array[1][4][1][1] - Filial sócio da SCP
array[1][4][1][2] - Tipo Pessoa F ou J
array[1][4][1][3] - Nome do sócio
array[1][4][1][4] - CPF ou CGC do sócio
array[1][4][1][5] - Percentual de participação
array[1][4][1][6] - array com os valores mensais
array[1][4][1][6][1][1] - Mês
array[1][4][1][6][1][2] - Ano
array[1][4][1][6][1][3] - Valor

array[1][4][1][6][2][1] - Mês
array[1][4][1][6][2][2] - Ano
array[1][4][1][6][2][3] - Valor

array[1][4][2] - array das informações do segundo sócio da SCP
array[1][4][2][1] - Filial sócio da SCP
array[1][4][2][2] - Tipo Pessoa F ou J
array[1][4][2][3] - Nome do sócio
array[1][4][2][4] - CPF ou CGC do sócio
array[1][4][2][5] - Percentual de participação
array[1][4][2][6] - array com os valores mensais
array[1][4][2][6][1][1] - Mês
array[1][4][2][6][1][2] - Ano
array[1][4][2][6][1][3] - Valor

array[1][4][2][6][2][1] - Mês
array[1][4][2][6][2][2] - Ano
array[1][4][2][6][2][3] - Valor

array[2] - array o segundo sócio ostensivo
array[2][1] - Filial sócio ostensivo
array[2][2] - Nome sócio ostensivo
array[2][3] - CNPJ sócio ostensivo
array[2][4] - array sócios da SCP
array[2][4][1] - array das informações dos sócios da SCP

E assim por diante.

Sim

 

Exemplo:

#Include 'Protheus.ch'

User Function FA944ARR()
Local aRet := ParamIxb
Local nI, nJ

For nI := 1 to Len(aRet)
   aRet[nI][2] := ALLTRIM(aRet[nI][2]) + " PRINCIPAL "

   For nJ := 1 to Len(aRet[nI][4])
         aRet[nI][4][nJ][3] := ALLTRIM(aRet[nI][4][nJ][3]) + " BENEFICIARIO "
   Next nJ
Next nI

Return aRet