01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Programa:FISA008.PRW
Módulo:Fiscal

02. DESCRIÇÃO

Permite a geração do registro 1800 através do ponto de entrada SPDPC1800.

É chamado na geração do arquivo EFD Contribuições.

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

NomeTipoDescrição
PARAMIXBArray of Record

Array com dados de processamento

[1] = Data De - Processamento

[2] = Data Até - Processamento

Retorno:

NomeTipoDescrição

Array of Record

Informações do registro 1800


04. EXEMPLO DE UTILIZAÇÃO

User Function SPDPC1800()

	Local aReg1800 := {}
	Local aWizard := ParamixB[1]
	Local nPos := 0

	aAdd(aReg1800, {})
	nPos := Len (aReg1800)
	aAdd (aReg1800[nPos], "1800")
	aAdd (aReg1800[nPos], "Empreendimento Objeto de Incorporação")
	aAdd (aReg1800[nPos], 15000)
	aAdd (aReg1800[nPos], 10000)
	aAdd (aReg1800[nPos], 1000)
	aAdd (aReg1800[nPos], 2)
	aAdd (aReg1800[nPos], 20)
	aAdd (aReg1800[nPos], "01072012")
	aAdd (aReg1800[nPos], "0001")

Return aReg1800


05. INFORMAÇÕES ADICIONAIS