Msautoexec030-erro cod.mun

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

compartilhar
  • Vc já verificou se esse codigo q ele traz desse municipio pertence ao estado de SC?

    Jose de Aguiar Ferreira Real Neto   1 week ago
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

0 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags execaut ou faça a sua própria pergunta.