Ir para conteúdo
  • Cadastre-se

Claudio Stein Junior

Membros
  • Total de ítens

    206
  • Registro em

  • Última visita

Tudo que Claudio Stein Junior postou

  1. Ele gera só com a primeira linha, vou anexar o arquivo que ele gerou. O código para enviar o e-mail é esse: procedure TfrmDemo_ACBrCTe.btnEnviarEmailClick(Sender: TObject); var Para : String; CC : Tstrings; begin if not(InputQuery('Enviar Email', 'Email de destino', Para)) then exit; OpenDialog1.Title := 'Selecione o CTe'; OpenDialog1.DefaultExt := '*-cte.xml'; OpenDialog1.Filter := 'Arquivos CTe (*-cte.xml)|*-cte.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrCTe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrCTe1.Conhecimentos.Clear; ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); CC:=TstringList.Create; if Length(DmEmpresa.CdsEmpresaEMAILCONTADOR.AsString) > 0 then CC.Add(DmEmpresa.CdsEmpresaEMAILCONTADOR.AsString); //outros e-mails try ACBrMail1.Host := edtSmtpHost.Text; ACBrMail1.Port := edtSmtpPort.Text; ACBrMail1.Username := edtSmtpUser.Text; ACBrMail1.Password := edtSmtpPass.Text; ACBrMail1.From := edtSmtpUser.Text; ACBrMail1.SetSSL := cbEmailSSL.Checked; // SSL - ConexÃo Segura ACBrMail1.SetTLS := cbEmailSSL.Checked; // Auto TLS ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) ACBrMail1.FromName := edtEmitFantasia.Text; ACBrMail1.AddAttachment(OpenDialog1.FileName); ACBrCTe1.Conhecimentos.Items[0].EnviarEmail(Para, edtEmailAssunto.Text, mmEmailMsg.Lines, true, CC, nil); finally CC.Free; end; end; end; O erro dispara no momento que tenta enviar o e-mail. O PDF chega perfeito, mas o XML não. Não chega a ser erro de envio, mas de formação do XML. 35200713380804000105570010000407761000407769-cte.xml
  2. Olá estou tentando mandar um cte por e-mail e está dando um erro que não dava antes. Na Nf-e não acontece. Inclusive estou usando o código do eexemplo. Eu escolho o XML e ao enviar recebo a mensagem: "list index out of bounds [0]. O PDF do e-mail chega certinho, mas o xml chega sem a escrita no corpo, apenas a primeira linha aparece: <eventoCTe xmlns="http://www.portalfiscal.inf.br/cte" versao=""> O erro acontece nesta linha e corresponde a essa função: function TEventoCTe.GerarXML: boolean; Evento.Items[0].InfEvento.Id := 'ID'+ Evento.Items[0].InfEvento.TipoEvento + OnlyNumber(Evento.Items[0].InfEvento.chCTe) + Format('%.2d', [Evento.Items[0].InfEvento.nSeqEvento]); Como posso resolver? Obrigado.
  3. Com quantos caracteres você envia o CIOT? Envia com 12 caracteres? Quando gera ficam mais caracteres. E tenho essa dúvida do CIOT automático também.
  4. Parece que o prazo para produção é 6 de julho. Mas minha dúvida ainda é se preciso fazer o CIOT antes. Ou posso fazer isso diretamente na MDF-e, em um único documento. No campo para informar o CIOT eu fiz um teste outro dia e não tinha aceitado os 16 caracteres de um CIOT aprovado.
  5. Olá, quando as novas regras estiverem funcionando em julho como devo proceder com relação ao CIOT integrado ao MDF-e. Eu devo digitar algum número para o CIOT ou deixar vazio. Se devo digitar um número serão quantos caracteres? Pois lembro que não aceitava a quantidade de caracteres de um CIOT já aprovado. Estou com dúvida nesse tópico.
  6. Resolvi fui nos adaptadores de rede e ativei o DNS, Dns 8.8.8.8 alternativo 8.8.0.0
  7. Testando agora na máquina do cliente percebi que ele não consegue acessar o link no navegador: https://mdfe-homologacao.svrs.rs.gov.br/ws/mdfestatusservico/MDFeStatusServico.asmx Minha máquina com windows 7 acessa normal. A mensagem de erro é: DNS_PROBE_FINISHED_NXDOMAIN
  8. Boa noite. Mudei sim. No Windows 7 funciona normal.
  9. As máquinas dos meus clientes com windows 10 pararam de emitir o MDF-e apenas. NF-e e CT-e continuam com emissão normal. Percebi que teve duas atualizações do windows no dia 15/04/2020. Uso CAPICOM ainda, mas nem mudando para Wincript funcionou. Os certificados em duas máquinas eram A1 e A3. Vou tentar remover a atualização do Windows.
  10. Estava sim. Até agora não entendi o que aconteceu. Mas no fim deu certo baixando um novo xml e consultando. Obrigado mais uma vez.
  11. Consegui resolver, eu baixei o XML do site do Sefaz do RS. Em seguida consultei este arquivo e consegui pegar o protocolo atualizando assim o XML. Em seguida fiz o cancelamento. Só não entendi porque o XML que eu gerei com o ACBR não atualizava. Obrigado Ítalo.
  12. Ítalo, realmente está sem o protocolo. Fiz exatamente isso que falou. Eu consulto carregando o XML, mas não atualiza o XML com o protocolo. Quando carrego o XML ao cancelar não ocorre erro nenhum, ele simplesmente diz que o XML está atualizado.. Baixei o XML do Sefaz do RS e vem sem o protocolo também. Como posso proceder?
  13. Inclusive baixei ela do sefaz e está com a tarja de não enviada ao sefaz da mesma forma. Muito estranho.
  14. Olá, hoje não estou conseguindo cancelar um MDF-e em SP. Alguém está com esse problema? Quando consulto o mesmo fala que o MDF-e está autorizado, mas quando imprimo aparece que não foi enviado. Estranho, aconteceu com mais alguém? O normal seria quando consultar a mensagem de não enviado desaparecer.
  15. Acredito que esteja relacionado ao campo cNF (número aleatório de 8 dígitos) que está sendo gerado automaticamente na tentativa de envio de cada nota. Recomendo gravar o valor deste campo no banco de dados e recuperar antes ao enviar para manter sempre o mesmo número na chave da nota.
  16. Boa noite. Resolvido zerando a tag PICMSInterPart e atualizando os schemas. Obrigado.
  17. Estou com o mesmo erro. CTE de SP.
  18. Obrigado deu certo. Troquei o provedor e a conexão de internet e funcionou.
  19. Tentei o comando cleanup, o comando funciona, mas o update não. O que mais posso tentar fazer?
  20. Bom dia, estou tentando um update do SVN mas está dando a mensagem de erro abaixo. Será que o servidor está fora? Can't read from connection: An existing connection was forcibly closed by the Obrigado
  21. Olá, estou tentando uma impressão na impressora Sweda SI-250 e está dando erro de porta. O componente é o ACBrPosPrinter. A impressora chama SAT no windows e está na porta USB001. O código que estou utilizando está abaixo e não dá certo. Já tentei colocar em porta 'USB:EPSON" mas não funciona também. O que devo fazer para solucionar esta questão. Obrigado. impressora.ColunasFonteNormal:= 42; impressora.Modelo:= ppEscPosEpson; impressora.EspacoEntreLinhas:= 10; impressora.PaginaDeCodigo:= pc850; impressora.CortarPapel(true); impressora.porta:= 'RAW:SAT'; if impressora.Ativo = false then impressora.Ativar; impressora.ImprimirLinha('Teste1'); impressora.ImprimirLinha('Teste2'); impressora.ImprimirLinha('Teste3'); impressora.ImprimirLinha(' '); impressora.ImprimirLinha(' '); impressora.ImprimirLinha(' '); if impressora.Ativo = true then impressora.Desativar;
  22. Se os fontes estiverem atualizados informe o valor 0 para a propriedade "digito verificador da ag/conta" e veja se resolve.
  23. Boa tarde, resolvi. Estava no caminho errado do gerenciador de envios. Segue imagens detalhando o certo e o errado.
  24. Vocês já descobriram a solução? Estou com o mesmo problema.
×
×
  • 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.