Histórico da Página

#Include "PROTHEUS.CH"

User Function DMSC48TP()
Local aRet   := {}   //Retorno do ponto de entrada
Local cMunic := ""
Local cTipo  := ""
Local nValor := 0 
Local aParam := ParamIxb 

Do Case
	Case  AllTrim(aParam[8][2]) == '1251'
	    cMunic := "51801"
		cTipo := "013"   //energia elétrica adquirida de terceiros para comercialização
		nValor := aParam[11][2]

	Case AllTrim(aParam[8][2])  == "5102"
		 cMunic := "50308"
		 cTipo := "012"  //energia elétrica adquirida de terceiros e comercializada no mês	
		 nValor := aParam[11][2]

    Case !AllTrim(aParam[8][2]) $== "5102|12511201" 		 
		 cMunic := aParam[14][2]
		 cTipo := aParam[13][2]
		 nValor := Round(aParam[11][2],2) // Caso não seja nenhum desses CFOPS Arredondo o valor 

    Case !AllTrim(aParam[8][2]) $ "5102|1201|1251" 		 
		 cMunic := Nil
		 cTipo :=  Nil
		 nValor := Nil // Caso desejar manter os valores do padrão, sem tratamento do ponto de entrada 
EndCase

AADD( aRet, cMunic ) 
AADD( aRet, cTipo  ) 
AADD( aRet, nValor )  

Return aRet