Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

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

02. DESCRIÇÃO

Ponto de entrada para gerar informações do registro G126 do SPEDFISCAL.

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

Nome

Tipo

Descrição

PARAMIXBArray of Record

[1] = nPos do registro pai (G125)

[2] = Array com o conteúdo do registro G126

[3] = Alias da tabela SFA, caso seja necessário posiciona-la

[4] = Código do bem, caso seja necessário filtrar o registro G126

Retorno:

Array com o conteúdo do registro G126:

NomeTipoDescrição
aRegG126Array of Record

[1] = Relacionamento com o registro PAI

[2] = REG

[3] = DT_INI

[4] = DT_FIM

[5] = NUM_PARC

[6] = VL_PARC_PASS

[7] = VL_TRIB_OC

[8] = VL_TOTAL

[9] = IND_PER_SAI

[10] = VL_PARC_APROP


04. EXEMPLO DE UTILIZAÇÃO

SPEDG126
#INCLUDE "PROTHEUS.CH"  

User Function SPEDG126()
	Local nPosG125 	:= Paramixb[1]
	Local cAliasSFA := Paramixb[2] //Variavel cAliasSFA usada para posicionar algum registro se necessario.
	Local aRegG126  := Paramixb[3]
	Local cCodBem 	:= Paramixb[4]
	Local nPos		:= 0 

	If AllTrim(cCodBem) == "00000901"	
		
		aAdd(aRegG126, {})
		nPos :=	Len (aRegG126)
		
		aAdd(aRegG126[nPos], nPosG125)		  	//00 - Relacionamento com o registro PAI	
		aAdd(aRegG126[nPos], "G126") 		  	//01-REG
		aAdd(aRegG126[nPos], "01012011")		//02-DT_INI
		aAdd(aRegG126[nPos], "01012011")		//03-DT_FIM	
		aAdd(aRegG126[nPos], 001)		   		//04-NUM_PARC
		aAdd(aRegG126[nPos], 16000.00)			//05-VL_PARC_PASS
		aAdd(aRegG126[nPos], 16000.00)			//06-VL_TRIB_OC
		aAdd(aRegG126[nPos], 16000.00)			//07-VL_TOTAL
		aAdd(aRegG126[nPos], 16000.00)			//08-IND_PER_SAI
		aAdd(aRegG126[nPos], 16000.00)			//09-VL_PARC_APROP

	EndIf

Return aRegG126

05. DEMAIS INFORMAÇÕES

Não há.