Boa tarde!

Meu msexecauto está apresentando a msg abaixo, mas não consegui identificar o motivo.

AJUDA:REGNOISNão existe registro relacionado a este código.

Tabela 07/04/2021 15:24:34 - 11466420133 := 9104 Filial - A1_FILIAL := 01Loja - A1_LOJA := 01 Nome - A1_NOME := JOICE SOARES CANUTO Tipo Negocio - A1_TIPNEG := 05 Fisica/Jurid - A1_PESSOA := F N Fantasia - A1_NREDUZ := JOICE SOARES CANUTO Endereco - A1_END := RUA 3150, 409, ESQUINA DOS AÇORES (PORTARIA) Tipo - A1_TIPO := F Estado - A1_EST := SC Cd.Municipio - A1_COD_MUN := 02008 < -- Invalido Cod.Mun.SIAF - A1_CODSIAF := 8039 Municipio - A1_MUN := BALNEARIO CAMBORIU Bairro - A1_BAIRRO := CENTRO Natureza - A1_NATUREZ := 11001 CEP - A1_CEP := 88.330-281 Telefone - A1_TEL := (47) 99670-8170

CNPJ/CPF - A1_CGC := 08102812958

Abaixo trecho do fonte, quando jumbo o cod. do municipio grava..

For i:=1 to Len(aDados) oProcess:IncRegua1("Importando Cliente:..:"+aDados[i,6]) dbSelectArea ("SA1") SA1->(dbSetOrder(3)) SA1->(dbSeek(xFilial("SA1")+StrTran(StrTran(aDados[i,7],".",""),"-",""))) // consulta CPF/CNPJ

If !Found() .and. _cID<>aDados[i,1] ///// Variaveis para msexecauto020 - cadastro de cliente _cID := aDados[i,1] cLojCli := "01" cPessoa := "F" cNomCli := UPPER(aDados[i,6]) cEndCli := UPPER(aDados[i,8]) cTipo := "F" cUFCli := UPPER(ALLTRIM(aDados[i,12])) cMunCli := UPPER(ALLTRIM(NoAcento(UPPER(aDados[i,10])))) cBaiCli := UPPER(aDados[i,9]) cFonCli := aDados[i,14] cCNPCli := StrTran(StrTran(aDados[i,7],".",""),"-","") cCEPCli := aDados[i,11] cTIPNeg := "05" cNaturez :="11001"

dbSelectArea ("CC2") CC2->(dbSetOrder(4)) CC2->(dbSeek(xFilial("CC2")+cUFCli+cMunCli)) cCodMunCli := alltrim(CC2_CODMUN) /// 02008 cCodSIAF := CC2_CDSIAF

oProcess:IncRegua1("Importando Cliente:..:"+aDados[i,6])

aAdd(aDados, {"A1_FILIAL" , xFilial("SA1") , Nil}) aAdd(aDados, {"A1_LOJA" , cLojCli , Nil}) aAdd(aDados, {"A1_NOME" , cNomCli , Nil}) aAdd(aDados, {"A1_TIPNEG" , cTIPNEG , Nil}) aAdd(aDados, {"A1_Pessoa" , cPessoa , Nil}) aAdd(aDados, {"A1_NREDUZ" , Substr(cNomCli,1,20) , Nil}) aAdd(aDados, {"A1_END" , cEndCli , Nil}) aAdd(aDados, {"A1_TIPO" , cTipo , NIL}) aAdd(aDados, {"A1_EST" , cUFCli , Nil}) aAdd(aDados, {"A1_COD_MUN" , cCodMunCli , Nil}) aAdd(aDados, {"A1_CODSIAF" , cCodSIAF , Nil}) aAdd(aDados, {"A1_MUN" , cMunCli , Nil}) aAdd(aDados, {"A1_BAIRRO" , cBaiCli , Nil}) aAdd(aDados, {"A1_NATUREZ" , cNaturez , Nil}) aAdd(aDados, {"A1_CEP" , cCEPCli , Nil}) aAdd(aDados, {"A1_TEL" , cFonCli , Nil}) aAdd(aDados, {"A1_CGC" , cCNPCli , Nil})

lMsErroAuto := .F. IncProc("Inserindo cliente") MsExecAuto({|x,y| MATA030(x,y)}, aDados, 3) If lMsErroAuto MostraErro() Else Msginfo("Cliente cadastrado com Sucesso! Nº:"+SA1->A1_COD) endif endif Next i