Histórico da Página

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