Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Usuário desconhecido (rodrigo.ccandido)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Matheus Bispo Coelho dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

01. DADOS GERAIS

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

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:

...

Bloco de código
languagejava
themeMidnight
titleSPEDG126
#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á.