Histórico da Página

Permite alteração nas informações do registro C600 do SPED PIS/COFINS.

SPEDPISCOF.PRW

SPDPIS06 - Altera informações do registro C600 do SPED PIS/COFINS ( [ aC600 ], [ cAlias ] ) --> aRet

aRet (array_of_record)
• Array do registro C600 alterado.

#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.