Page History

O ponto de entrada MTGETS foi disponibilizado para o tratamento da série e subséries das notas fiscais para o Sintegra.

MATA950.PRW

MTGETS - Tratamento da série de NF ( [ cRetorno ], [ cSerie ], [ cTipo ] ) --> cRetorno

cRetorno(caracter)
• cRetorno alterado.

#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())	EndIfElse//-- Caso não seja tipo 71 mantem a serie.	 _cRetorno := _cSerieEndifReturn(_cRetorno)