Histórico da Página

#Include "Protheus.ch"

User Function TMALTSERIE()

Local cOrigem   := PARAMIXB[1] //Fonte que efetuou a chamada do PE
Local cSerie    := PARAMIXB[2] //Conteudo do parametrp MV_SERMAN
Local cFilCorr  := PARAMIXB[3] //Filial corrente
Local cRet      := ""          // Retorno do PE

If cOrigem == 'TMSA190' .And. cFilCorr == "M SP 04 " //Geração do MDFe
    cRet := "001" // Serie do MDFe
Else
    cRet := cSerie 
EndIf

Return cRet