PE - MTGETS - Tratamento da série de NF

#include "rwmake.ch"
#include "protheus.ch"

User Function MTGETS()
//-- ExecBlock("MTGETS",.F.,.F.,{cRetorno,cSerie,cTipo})                        
Local _cSerie	:= paramixb[2]
Local cTipo		:= paramixb[3]
Local _cRetorno	:= ""

If cTipo == "70" .OR. cTipo == "71"//-- Incluir as condições para que seja feita as alterações em cada uma das séries.	
    If Substr(_cSerie,1,1) $ "123456789 " //-- Série inválidas encontradas na validação do arquivo.		
        _cRetorno := SubStr(_cSerie, 1, 1)+Space(2)	
    Else		
        _cRetorno := "1"+Space(2)	
    Endif   		
    If cTipo == "70"		
        RecLock("R70",.F.)		
        R70->A70_SUBSER :=""  //Limpo a subserie ou acrescento outro conteudo. 		
        R70->(MsUnlock())	
    ElseIf cTipo == "71"		
        RecLock("R71",.F.)		
        R71->A71_SUBCON :="" //Limpo a subserie ou acrescento outro conteudo. 		
        R71->(MsUnlock())	
    EndIf
Else//-- Caso não seja tipo 71 mantem a serie.	 
_cRetorno := _cSerieEndifReturn(_cRetorno)
ENDIF