Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

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

02. DESCRIÇÃO

Permite alteração nas informações do registro C600 do EFD Contribuições.

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

NomeTipoDescrição
PARAMIXBArray of Record

Array com dados de processamento

[1] = Array contendo as informações do registro C600.
        As posições são referentes ao Guia Prático EFD PIS/COFINS.

[2] = Alias da tabela principal

Retorno:

NomeTipoDescrição

Array of Record

Array do registro C600 alterado.


04. EMPLO DE UTILIZAÇÃO

SPDPIS06
#include "protheus.ch"
#include "topconn.ch"

User Function SPDPIS06()
	Local alC600 	:= ParamIXB[1]  // Array C600
	Local cAlias	:= ParamIXB[2]  // Alias

	dbSelectArea("SA1")
	SA1->(DbSetOrder(1))

	If SA1->(DbSeek(xFilial("SA1")+(cAlias)->FT_CLIEFOR+(cAlias)->FT_LOJA))
        // Alteracao das informacoes desejadas	       	       
        // Campo 03 - Cod. Mun. (Exemplo)	       
		alC600[03] := "35"+AllTrim(SA1->A1_COD_MUN)
        // Campo 06 - SubSerie (Exemplo)		
		alC600[05] := "001"
        // Campo 07 - Cod_Cons (Neste exemplo estamos utilizando codigo da classe 		
        //            de consumo de energia eletrica, conforme tabela 4.4.5		
		alC600[06] := "80"
        // Campo 12 - Consumo em kWh (Exemplo)														
		alC600[12] := AllTrim(STR(Val(alC600[12])+((cAlias)->FT_QUANT*2000)))
	EndIf
    
Return alC600 // Retorna o array modificado.


05. INFORMAÇÕES ADICIONAIS

  • Não há.