Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas