Ir para conteúdo
  • Cadastre-se

Rafael jorge

Membros
  • Total de ítens

    248
  • Registro em

  • Última visita

  • Days Won

    2

Tudo que Rafael jorge postou

  1. Apos update no svn no dia 19/02/2018 tudo ok com a instalacao do svn. so que quando eu vou copilar qualquer projeto que tem acbrnfe ele da pau no ACBrHTMLtoXML nas linhas 107 NFe.Ide.cNF := RetornarCodigoNumerico(NFe.infNFe.ID,NFe.infNFe.Versao); erro de nao achar a rotina RetornarCodigoNumerico 123 NFe.Ide.modelo := StrToInt(copy(SomenteNumeros(NFe.infNFe.ID), 21, 2)); erro da rotina SomenteNumeros nao localizada 124 NFe.Ide.serie := StrToInt(copy(SomenteNumeros(NFe.infNFe.ID), 23, 3)); mesmo erro.
  2. estava passando o csc correto mas o idcsc nao. descobri o que era. o IDCSC que o cliente me informou era 1. so que na verdade era pra ser 2. o contador dele jurou de pe junto que era 1. so descobri pq acessei remotamente o pc junto com ele entramos no cadastro e vi que era 2. além de programador agora tenho que ser detetive com esses contadores. pelo menos fica ai pra quem passar por isso tambem
  3. anexei um xml que da esse erro de qr calculado errado. fui no site que valida e esta ok, disse que nao encontrou nenhum erro. so que o qr ta sendo calculado errado. nao to sabendo solucionar isso. nfe_erro.xml
  4. ok. e que isso faz parte de uma unit gigantesca. por isso fiz isso. mas vou ter cuidado na próxima.
  5. estou com um problema. sempre que da erro na validação do sefaz em vez de retornar o erro que causou sempre informa "rejeição: código de hash no qr-code difere do calculado" ai tenho que pegar o xml ir no site https://www.sefaz.rs.gov.br/nfe/nfe-val.aspx colar o xml e validar pra ver realmente qual o erro. abaixo eu mostro o procedimento que realizo ao enviar: try try nfe.WebServices.StatusServico.Executar; except on E:Exception do begin showmessage({aviso(}'Erro ao Consultar Status da SEFAZ. Erro:' + E.Message+#13+ 'Motivo: ' + nfe.WebServices.StatusServico.xMotivo + #13+ 'Observação: ' + NFE.WebServices.StatusServico.xObs );//'',maviso); result := false; //abort; Exit; end; end; NFE.WebServices.Enviar.Lote := NFCEGeraLote(empresa, conexao, erro); Try NFE.WebServices.Enviar.Executar; except on E:Exception do begin showmessage({aviso(}'Lote não pode ser enviado. Erro:' + E.Message+#13+ 'Motivo: ' + NFE.WebServices.Enviar.xMotivo );//'',maviso); result := false; if RecuperaNota then begin result := true; exit; end; end; end; //salvando no banco os dados da nota... NFE.WebServices.Retorno.Recibo := NFE.WebServices.Enviar.Recibo; {self.nfsaida.NFE_lote := strtointdef(vnumlote,0); self.nfsaida.NFE_recibo := NFE.WebServices.Retorno.Recibo; SELF.nfsaida.NFE_XML_NOME := NFE.NotasFiscais.Items[0].NomeArq;} //testar o Retorno do envio Try NFE.WebServices.Retorno.Executar; except on E:Exception do begin showmessage({aviso(}'Não foi possível processar o Retorno da SEFAZ. Erro:' + E.Message+#13+ 'Motivo: ' + NFE.WebServices.Retorno.xMotivo );//'',maviso); result := false; if RecuperaNota then begin result := true; exit; end; end; end; MENSAGEM := ''; case NFe.WebServices.Retorno.cStat of 204:begin // Registrar consulta para obter informação da NF-e NFE.WebServices.Consulta.NFeChave:= NFE.WebServices.Retorno.ChaveNFe; try NFE.WebServices.Consulta.Executar; except on E:Exception do begin mensagem := 'Nota já foi Recebida na SEFAZ mas houve erro ao atualizar dados da NF-e. Erro:' + E.Message+#13+ 'Motivo: ' + NFE.WebServices.Consulta.XMotivo + #13+ 'Mensagem: ' + NFE.WebServices.Consulta.Msg; showmessage({aviso(}mensagem );//'',maviso); result := false; retorno := NFE.WebServices.Retorno.Msg; if RecuperaNota then begin result := true; exit; end; end; end; mensagem := 'Nota já foi Recebida na SEFAZ. Atualizado o Status da NF-e no Sistema'+#13+ 'Motivo: ' + IntToStr(NFE.WebServices.Consulta.cStat) + ' - ' + NFE.WebServices.Consulta.XMotivo+#13+ 'Retorno : '+NFE.WebServices.Retorno.xMotivo; showmessage({aviso(}mensagem );//'',maviso); result := false; retorno := NFE.WebServices.Retorno.Msg; if RecuperaNota then begin result := true; exit; end; end; 301..302:begin mensagem := 'Nota Enviada mas foi DENEGADO O USO!'+#13+ 'Cod. Status: ' + IntToStr(NFE.WebServices.Retorno.cStat)+' - ' + NFE.WebServices.Retorno.Msg+#13+ 'Retorno : '+NFE.WebServices.Retorno.xMotivo; showmessage({aviso(}mensagem );//'',maviso); result := true; retorno := NFE.WebServices.Retorno.Msg; if RecuperaNota then begin result := true; exit; end; end; 103,104,105:begin mensagem := 'Lote em Processamento na SEFAZ'+#13+ 'Cod. Status: ' + IntToStr(NFE.WebServices.Retorno.cStat) +' - ' + NFE.WebServices.Retorno.Msg+#13+ 'Retorno : '+NFE.WebServices.Retorno.xMotivo; showmessage({aviso(}mensagem );//'',maviso); result := true; retorno := NFE.WebServices.Retorno.Msg; if RecuperaNota then begin result := true; exit; end; end; 108:begin mensagem := 'Serviço Paralizado momentaneamente!'+#13+ 'Cod. Status: ' + IntToStr(NFE.WebServices.Retorno.cStat) +' - ' + NFE.WebServices.Retorno.Msg+#13+ 'Retorno : '+NFE.WebServices.Retorno.xMotivo; showmessage({aviso(}mensagem );//'',maviso); result := false; retorno := NFE.WebServices.Retorno.Msg; if RecuperaNota then begin result := true; exit; end; end; 109:begin mensagem := 'Serviço Paralizado sem previsão de retorno!'+#13+ 'Cod. Status: ' + IntToStr(NFE.WebServices.Retorno.cStat) +' - ' + NFE.WebServices.Retorno.Msg+#13+ 'Retorno : '+NFE.WebServices.Retorno.xMotivo; showmessage({aviso(}mensagem );//'',maviso); result := false; retorno := NFE.WebServices.Retorno.Msg; if RecuperaNota then begin result := true; exit; end; end; 201,202,203,205..279:begin mensagem := 'Houve Rejeição do Processamento. Analise o motivo e faça as devidas correções - Edite a NF-e'+#13+ 'Cod. Status: ' + IntToStr(NFE.WebServices.Retorno.cStat) +' - ' + NFE.WebServices.Retorno.Msg+#13+ 'Retorno : '+NFE.WebServices.Retorno.xMotivo; showmessage({aviso(}mensagem );//'',maviso); // gravar recibo e status da nota result := false; retorno := NFE.WebServices.Retorno.Msg; {if RecuperaNota then begin result := true; exit; end;} end; 280..298:begin mensagem := 'Houve Rejeição do Processamento. Analise o motivo e faça as devidas correções' + #13 + 'Há problemas com o Certificado atual, analise se o certificado não está vencido' + #13 + 'ou se o mesmo não está danificado. Remova o certificado do Emitente, ' + #13 + 'remova a cadeia de certificados e instale novamente.'+#13+ 'Cod. Status: ' + IntToStr(NFE.WebServices.Retorno.cStat) +' - ' + NFE.WebServices.Retorno.Msg+#13+ 'Retorno : '+NFE.WebServices.Retorno.xMotivo; showmessage({aviso(}mensagem );//'',maviso); retorno := NFE.WebServices.Retorno.Msg; result := false; if RecuperaNota then begin result := true; exit; end; end; 401..999:begin mensagem := 'Houve Rejeição do Processamento. Analise o motivo e faça as devidas correções - Edite a NF-e' + #13 + 'Problemas com os dados do emitente/destinatário. Corriga os cadastros de ambos, valide a NF-e e gere novamente'+#13+ 'Cod. Status: ' + IntToStr(NFE.WebServices.Retorno.cStat) +' - ' + NFE.WebServices.Retorno.Msg+#13+ 'Retorno : '+NFE.WebServices.Retorno.xMotivo; showmessage({aviso(}mensagem );//'',maviso); retorno := NFE.WebServices.Retorno.Msg; result := false; if RecuperaNota then begin result := true; exit; end; end; 101:begin mensagem := 'Nota Enviada com sucesso!'+#13+ 'Protocolo: ' + NFE.WebServices.Retorno.Protocolo + #13 + 'NF-e : ' + NFE.WebServices.Retorno.ChaveNFe + ' enviada com sucesso!'; showmessage(mensagem); retorno := NFE.WebServices.Retorno.Msg; try //NFCEGrava(nfe,empresa,conexao,erro); NFCEincNumero(empresa,conexao,erro); NFE.NotasFiscais.Imprimir; except end; result := true; end; 100:begin // gravar NFe //GravaNota; //cdc.FieldByName('NFE_temporesposta').AsInteger:= NFE.WebServices.Enviar.TMed; //cdc.FieldByName('NFE_xml').LoadFromFile(NFE.Configuracoes.Geral.PathSalvar + NFE.WebServices.Retorno.ChaveNFe + '-nfe.xml',ftBlob); //cdc.FieldByName('NFE_divval').AsString := NFE.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].digVal; //cdc.FieldByName('NFE_cstat').AsInteger := NFE.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].cStat; {mensagem := 'Nota Enviada com sucesso!'+#13+ 'Protocolo: ' + NFE.WebServices.Retorno.Protocolo + #13 + 'NF-e : ' + NFE.WebServices.Retorno.ChaveNFe + ' enviada com sucesso!'; showmessage(mensagem );//'',maviso);} retorno := NFE.WebServices.Retorno.Msg; try //NFCEGrava(nfe,empresa,conexao,erro); NFCEincNumero(empresa,conexao,erro); NFE.NotasFiscais.Imprimir; except end; //salvando na rede... if formConfiguracaoNFE.editrede.Text <> '' then begin if DirectoryExists(formConfiguracaoNFE.editrede.Text+formatdatetime('yyyymm',NFE.NotasFiscais.Items[0].NFe.Ide.dEmi)) = false then begin try CreateDir(formConfiguracaoNFE.editrede.Text+formatdatetime('yyyymm',NFE.NotasFiscais.Items[0].nfe.Ide.dEmi)) except end; end; try //finalemente gravando o arquivo na rede. NFE.NotasFiscais.GravarXML(formConfiguracaoNFE.editrede.Text+formatdatetime('yyyymm',NFE.NotasFiscais.Items[0].nfe.Ide.dEmi)+ '\'+extractfilename(NFE.NotasFiscais.Items[0].NomeArq)); except end; end; result := true; end; else begin //se nao pegou nenhum status mensagem := 'A nf-e pegou um status invalido'+#13+ 'Cod. Status: ' + IntToStr(NFE.WebServices.Retorno.cStat)+'.'+#13+ 'Retorno obtido: '+ NFE.WebServices.Retorno.Msg; showmessage(mensagem); if RecuperaNota then begin result := true; exit; end; end; end; //recuperanota; except on e:exception do begin if pos('Certificado Digital não encontrado', e.message) <> 0 then begin aviso('Certificado Digital não encontrado!'+#13+ 'O sistema não consequio localizar o certificado Digital, tente novamente. Caso o erro persista, verifique com o suporte tecnico.', '', maviso); result := false; end else begin //FormAvisoErroNFE := tFormAvisoErroNFE.create(application); //FormAvisoErroNFE.memo.lines.text := 'Erro ao Gerar/assinar/validar NF-e'; //FormAvisoErroNFE.memo.lines.add(''); if pos('cUF(Código do UF (Unidade da Federação)) - Conteúdo inválido.', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Faltou o UF do emitente';//); if pos('cMunFG(Código do Município FG) - Conteúdo inválido', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Faltou o código do municipio do emitente';//); if pos('<emit><enderEmit> ID:C10/cMun(Código do Município) - Conteúdo inválido.', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Faltou o código do municipio do emitente';//); if pos('<dest><enderDest> ID:E07/nro(Número) - Nenhum valor informado.', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Faltou o número do endereço do destinatario';//); if pos('<dest><enderDest> ID:E10/cMun(Código do Município) - Conteúdo inválido.', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Faltou o código do municipio do destinatario';//); if pos('NCM(Código NCM) - Nenhum valor informado', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'algum produto esta sem o código NCM';//); if pos('<dest> ID:E02-E03/CNPJ-CPF(CNPJ/CPF) - Nenhum valor informado.', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Faltou o CNPJ/CPF do destinatario';//); if pos('<dest><enderDest> ID:E06/xLgr(Logradouro) - Nenhum valor informado.', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Faltou o logradouro do destinatario';//); if pos('<dest><enderDest> ID:E09/xBairro(Bairro) - Nenhum valor informado.', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Faltou o bairro do destinatario';//); if pos('<dest><enderDest> ID:E11/xMun(Nome do Município) - Nenhum valor informado.', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Faltou o numero do destinatario';//); if pos('<dest><enderDest> ID:E12/UF(Sigla da UF) - Nenhum valor informado.', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Faltou o UF do destinatario';//); if pos('<dest><enderDest> ID:E12/UF(Sigla da UF) - Conteúdo inválido.', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'O conteudo da UF passado é valido';//); if pos('O conjunto de chaves não existe', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'O Conjunto de Chaves Registrado não Existe. Verifique se o certificado digital esta conectado (caso seja um pen-driver ou cartão digital), ou se é o mesmo que esta configurado no sistema.';//); if pos('Certificado Digital não encontrado!', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'O sistema não consequio localizar o certificado Digital, tente novamente. Caso o erro persista, verifique com o suporte tecnico.';//); if pos('<prod> ID:I11/vProd(Valor Total Bruto dos Produtos ou Serviços) - Numero máximo de casas decimais permitidas', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Valor Total Bruto dos Produtos ou Serviços excedeu o Numero máximo de casas decimais permitidas';//); if pos('<total><ICMSTot> ID:W07/vProd(Valor Total Bruto dos Produtos ou Serviços) - Numero máximo de casas decimais permitidas', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Valor Total Bruto dos Produtos ou Serviços excedeu o Numero máximo de casas decimais permitidas';//); if pos('<total><ICMSTot> ID:W16/vNF(Valor Total da NF-e) - Numero máximo de casas decimais permitidas', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Valor Total da NF-e excedeu o Numero máximo de casas decimais permitidas';//); if pos('{http://www.portalfiscal.inf.br/nfe}IE', e.message) <> 0 then msg_erro := msg_erro+#13+{FormAvisoErroNFE.memo.lines.add(}'Erro na validação da Inscrição Estatual do cliente ou emitente. Por favor verifique ambos.';//); //FormAvisoErroNFE.memo.lines.add(''); ///FormAvisoErroNFE.memo.lines.add(e.Message); //FormAvisoErroNFE.mostraform('Erro', true, false, form, '', nil, 0); aviso(msg_erro, '', merro); result := false; end; end; end; end;
  6. infelizmente o mundo nao é perfeito. eu tambem exijo certificado A1, mas mesmo assim chega um contador e manda o cliente comprar um token ou um cartão. ja aconteceu diversas vezes.
  7. Boa tarde, me deu uma duvida. O soft esta em produção, tirando as notas, tudo certinho. ai por algum motivo (exemplo alguém fez o favor de tirar o token da maquina). ai o operador nao notou. e foi e começou a atender, vamos definir que seja um caixa de um supermercado. ai na hora de tirar o cupom (nfc-e) ele da erro pois nao ta com o token. ai a pessoa que tirou, quardou na gerencia e ninguém tem a chave. então, como proceder se isso acontecer? ja que vai dar erro, nao vai poder nem verificar status, nao vai emitir em contingência, nem nada. pois tudo depende do certificado? como voces tratariam esse tipo de eventualidade?
  8. vamos la. isso acontece quando vc manda uma nfce que ja foi enviada (o numero). pode acontecer de vc enviar uma Nfce ai da erro na rede e por algum motivo vc manda a mesma Nfce de novo. o refaz nao aceita. ai da status 100: autorizado o uso da nf-e, ai vc nao consegue reenviar. verifique se vc esta incrementando o numero da nfce corretamente ou se esta trabalhando em rede, se estiver em rede verifique e trate de uma forma para que duas maquinas ao mesmo tempo nao pequem o mesmo numero da nfce e tente enviar ao mesmo tempo. exemplo: 1. PC-A começa a fazer uma venda 2. ao mesmo tempo PC-B tambem 3. no PC-A vc finaliza a venda e tenta emitir nfce so que a tua rotina so incrementa o numero da nfce se der tudo certo e esta ainda enviando o nfce. 4. Ai o PC-B tenta tirar um nfce, como tu nao incrementou ainda, ta indo os dois com o mesmo numero. 5. nesse tempo o PC-A imprimiu o danFe, pois enviou validou e deu tudo certo. 6. o PC-B deu o teu erro, pois tentou enviar o mesmo numero da NFCE pro SEFAZ.
  9. oi, hoje fui testar de novo pra gerar o arquivo pra te enviar. e simplesmente passou. como eu previa, e foi me dito o refaz tava com alguma bronca. ai voltou ao normal hoje. obrigado.
  10. usando demo do abr tentei fazer o cancelando anexando o xml da nota e tive o mesmo erro, erro não catalogado. Estou anexando o xml da nota que estou tentando cancelar ou carta de correção. 26171107231408000113550010000015261000015268-nfe.xml
  11. Estou com os fontes todos atualizados, tudo certinho. Ao tentar tirar um cancelamento de uma nota esta dando erro não catalogado. Ao tentar emitir uma carta de correção também. ja a emissão de nota esta ok. estou usando a versão 3.10 webservice de Recife.
  12. To com um pequeno problema que se tornou um grande problema. Um cliente da gente começou a gerar boletos usando nosso sistema que usa o acbrboleto. ate ai tudo bem. so que eles usam Santander, e tem que registrar o boleto, nada de mais, so que eles nao enviaram nenhuma remessa. ai os boletos estão aparecendo no relatório chamado francesinha. Mesmo baixando o retorno por algum motivo nao é identificado nenhum boleto. anexei o retorno, acho que tem algo errado com o retorno. COBST_LMZ3_02_031017P_MOV.TXT
  13. obrigado de novo. resolveu a bronca aqui. entendi essa parte de icms desonerado.
  14. realmente nao to sabendo preencher o componente. agora se informo um produto com cst = 40 tenho que informar o motivo e o valor da desoneração. ei to preenchendo mas quando mando pro sefaz da erro de calcuculo do bc do icms errado. ai com ajuda desse link : http://tdn.totvs.com/pages/releaseview.action?pageId=185737442 entendi um pouco melhor o motivo e etc.
  15. realmente so vim conhecer esse site de validação recentemente. obrigado pela dica. vou ver aqui como resolver obrigado.
  16. parou de dar o erro de classe nao registrada. agora esta dando de falha no schema XML. nos outros cliente que utilizo capicom e nao apresenta esse erro apos registrar as dlss e etc. passa normalmente. vou anexar o xml gerado. 26171017067256000119650010000000011000000010-nfe.xml
  17. Realmente nao tinha visto teu post. e olha que é o primeiro da lista. mas pelo menos a gente resolveu essa bronca.
  18. em anexo o retorno utilizado para testes do retorno. COBST_LMZ3_02_031017P_MOV.TXT
  19. Estou tentando ler o retorno do santander, o problema é que ele esta pegando um caracter a mais no cnpj o que da o erro CNPJ\CPF do arquivo inválido. eu corrigi a linha 893 original: case StrToIntDef(Copy(ARetorno[0],17,1),0) of 1: rCNPJCPF := Copy(ARetorno[0],22,11); 2: rCNPJCPF := Copy(ARetorno[0],18,15); else rCNPJCPF := Copy(ARetorno[0],18,15); end; modifiquei para: case StrToIntDef(Copy(ARetorno[0],17,1),0) of 1: rCNPJCPF := Copy(ARetorno[0],22,11); 2: rCNPJCPF := Copy(ARetorno[0],19,14); else rCNPJCPF := Copy(ARetorno[0],18,15); end; a unit altera esta anexada tambem ACBrBancoSantander.pas
  20. ja registrei. ja instalei o capicom e ja fiz tudo isso. vou tentar o WinCrypt
  21. Bom dia, existe alguma forma de usar outro tipo de uso sem ser o capicom para emitir nfce com certificado A1? estou tentando num cliente, mas so da erro de classe nao registrada. ja instalei a cadeia de certificados, capicom, rodei o instala.bat ja fiz tudo mas o erro persiste. o problema é que é certificado de cartao. tinha como usar outra coisa sem ser o capicom?
  22. if cdccliente.FieldByName('ie_tipo').AsString = 'FINAL' then begin ide.indFinal := cfconsumidorfinal; Dest.indIEDest := inNaoContribuinte; end else begin IF (cdccliente.fieldbyname('pessoa').asstring = 'J') or (cdccliente.fieldbyname('pessoa').asstring = '') then begin if (cdcCliente.fieldbyname('ie').asstring <> '') and (cdccliente.fieldbyname('ie').asstring <> 'ISENTO') then begin Dest.IE := cdccliente.fieldbyname('ie').asstring; Dest.indIEDest := inContribuinte; if cdccliente.findfield('ie_tipo') = nil then ide.indFinal := cfnao else begin if cdccliente.FieldByName('ie_tipo').AsString = '' then ide.indFinal := cfnao else begin if cdccliente.FieldByName('ie_tipo').AsString = 'NAO' THEN ide.indFinal := cfnao ELSE ide.indFinal := cfconsumidorfinal; end; end; end else begin dest.IE := ''; Dest.indIEDest := inNaoContribuinte; //inIsento; if cdccliente.findfield('ie_tipo') = nil then begin if cdccliente.FieldByName('ie_tipo').AsString = '' then ide.indFinal := cfConsumidorFinal else begin if cdccliente.FieldByName('ie_tipo').AsString = 'NAO' THEN ide.indFinal := cfnao ELSE ide.indFinal := cfconsumidorfinal; end; end; end; end; end; boa noite. resolvi. coloquei o codigo acima e passou tranquilo muito obrigado a ajuda.
  23. estava tudo ok. ai atualizei o svn, gerei uma atualização com os fontes pros clientes. ai clientes que a nota tava saindo normalmente agora esta dando rejeição : Operação com não contribuinte deve indicar operacao com consumidor final. ai ja tentei la no cadastro de cliente indicando ele como consumidor final e sem ser (se o campo la tiver setado eu alimento as tags de consumidor final ou nao), mas mesmo assim nao ta indo. este erro esta dando em todos os nossos clientes. abaixo como alimento o componente via codigo: if cdccliente.fieldbyname('pessoa').asstring = 'F' then begin Dest.indIEDest := inNaoContribuinte; // Quando for pessoa física ide.indFinal := cfConsumidorFinal; // não contribuinte end; IF (cdccliente.fieldbyname('pessoa').asstring = 'J') or (cdccliente.fieldbyname('pessoa').asstring = '') then begin if (cdcCliente.fieldbyname('ie').asstring <> '') and (cdccliente.fieldbyname('ie').asstring <> 'ISENTO') then begin Dest.IE := cdccliente.fieldbyname('ie').asstring; Dest.indIEDest := inContribuinte; if cdccliente.findfield('ie_tipo') = nil then ide.indFinal := cfnao else begin if cdccliente.FieldByName('ie_tipo').AsString = '' then ide.indFinal := cfnao else begin if cdccliente.FieldByName('ie_tipo').AsString = 'NAO' THEN ide.indFinal := cfnao ELSE ide.indFinal := cfconsumidorfinal; end; end; end else begin dest.IE := ''; Dest.indIEDest := inNaoContribuinte; //inIsento; if cdccliente.findfield('ie_tipo') = nil then begin if cdccliente.FieldByName('ie_tipo').AsString = '' then ide.indFinal := cfConsumidorFinal else begin if cdccliente.FieldByName('ie_tipo').AsString = 'NAO' THEN ide.indFinal := cfnao ELSE ide.indFinal := cfconsumidorfinal; end; end; end; end; em anexo uma nota que esta apresentando esse mesmo problema: 29171006149336000105550010000116091000116090-nfe.xml
  24. obrigado BigWings. o erro mudou para "informações dos tomadores é obrigatorio para esta operação. vou agora ver o que é isso e tentar solucionar. mas pelo visto essa parte do seguro ja resolvi. obrigado mesmo pela ajuda.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.