Ir para conteúdo
  • Cadastre-se

Henrique Beraldo

Membros
  • Total de ítens

    9
  • Registro em

  • Última visita

Tudo que Henrique Beraldo postou

  1. Bom Dia a Todos, Pessoal, Estou tendo algumas dificuldades no envio de emails utilizando o serviço SMTP do Outlook/Office365 ja testei de varias formas porem não consigo executar o envio alguem ai utiliza o dominio outlook no ACBrmail ? como configuraram ?
  2. Boa noite. Estou com o mesmo problema. Como você resolveu o problema no certificado? O certificado digital A1 tem algum problema quando está assinando a 3.1 normal e agora testando na 4.0, dá o erro.
  3. Olá amigo, tenho uma estação de um cliente, que só consegue emitir pelo SVCAN, quando ativo ele para o Normal (SEFAZ da UF), ele dá esse erro. Utilizo o SSL também. Em outra estação, emite pelo SEFAZ normalmente. Já fiz de tudo. Parou de repente. Já perdi umas boas horas nisso...
  4. Boa noite. Obrigado Juliomar, a impressão deu certinho. Agora vou fazer o envio do e-mail dos eventos. Abraços
  5. Boa tarde pessoal, tudo bem? Já fiz o cancelamento e a carta de correção da NFe, e tudo está funcionando. Mas eu não tenho idéia de como se imprimi. O DANFE estou imprimindo normalmente, mas como eu faço para enviar o e-mail de cancelamento e carta de correção e a impressão. Utilizo Delphi 7 com o trunk2 e estou testando em homologação. Obrigado.
  6. Boa tarde pessoal. Pesquisando o fórum, consegui as informações que precisava, em um post do Ítalo, de como recuperar as informações do cancelamento. O Código exemplo abaixo faz isso. sProtocolo := ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[X].RetInfEvento.nProt; sStat := IntToStr(ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[X].RetInfEvento.cStat); sMotivo := ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[X].RetInfEvento.xMotivo; dhEvento := ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[X].RetInfEvento.dhRegEvento; sDataHora := DateTimeToStr(dhEvento); Obrigado a todos.
  7. Boa tarde a todos. Estou tentando resgatar o xml do evento do cancelamento, mas eu não estou sabendo como faz para pegar o protocolo e o xml do cancelamento, para que eu possa guardar no banco. Abaixo segue um fragmento de código sobre a rotina... procedure TNotaFiscal.eventocancelamentoClick(Sender: TObject); var vAux : String; Query : Tquery; _string: string; stStreamNF: TStringStream; xmlcaminho:String; const SQLText = 'update notafiscal set'#13#10+ ' nfp_nfeprotocolocancelamento = :XMLprotocolocancelamento,'#13#10+ ' nfp_nfexmleventocancelamento = :XMLeventocancelamento,'#13#10+ ' nfp_statusnfe = :XMLStatus,'#13#10+ ' nfp_statusnfecodigo = :XMLStatuscodigo'#13#10+ 'where'#13#10+ ' id = :id'#13#10; begin // Verificando se a Nota Fiscal tem o status possível para realizar o cancelamento. if (Query_NF_statusnfecodigo.asstring ='100') or (Query_NF_statusnfecodigo.asstring ='205') then if not (MessageDlg('Deseja cancelar o DANFE ?', mtConfirmation, [mbOK, mbCancel], 0) = mrOK) then exit; if not(InputQuery('WebServices Eventos: Cancelamento', 'Justificativa', vAux)) then exit; FrmConfigNfE2:=TFrmConfigNfE2.create(Self); _query := Tquery.Create(self); _string := ' SELECT _xmlconteudo FROM notafiscal ' ; _string := _string + ' WHERE id = ' + Query_NF_id.AsString; _query.DatabaseName:='_alias'; _query.SQL.Add(_string); _query.open; // Salvando o xml que estava no banco para uma pasta stStreamNF := TStringStream.Create(_query.FieldByName('nfp_xmlconteudo').AsString); // Carregando o xml FrmConfigNfE2.ACBrNFe1.NotasFiscais.Clear; FrmConfigNfE2.ACBrNFe1.NotasFiscais.LoadFromStream(stStreamNF); // FrmConfigNfE2.ACBrNFe1.EventoNFe.Evento.Clear; FrmConfigNfE2.ACBrNFe1.EventoNFe.idLote := StrToInt('1') ; // with FrmConfigNfE2.ACBrNFe1.EventoNFe.Evento.Add do begin // infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := vAux; // end; // // cancelando FrmConfigNfE2.ACBrNFe1.EnviarEvento(StrToInt('1')); // // resgatando o arquivo na pasta eventos para gravar no banco de dados FrmConfigNfE2.ACBrNFe1.NotasFiscais.Clear; xmlCaminho:=FrmConfigNfE2.ACBrNFe1.Configuracoes.Arquivos.PathEvento+'\'+ FrmConfignfe2.edtEmitCNPJ.Text+'\NFe\'+ copy(FormatDateTime('yyyy-mm-dd',Query_NF_dtemissao.value),1,4)+ copy(FormatDateTime('yyyy-mm-dd',Query_NF_dtemissao.value),6,2); // NÃO SEI SE A LINHA ABAIXO É O CORRETO PARA LER O XML DE CANCELAMENTO FrmConfigNfE2.ACBrNFe1.NotasFiscais.LoadFromFile(xmlCaminho+'\110111'+Query_nfechave.asstring+'01-procEventoNFe.xml'); // É AQUI QUE EU NÃO SEI COMO FAZ PARA PEGAR AS INFORMAÇÕES DO ARQUIVO DO XML DE RETORNO. if FrmConfigNfE2.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt<>'' then begin Query := TQuery.Create(nil); // try Query.DatabaseName := Dm1.database1.DatabaseName; Query.SQL.Text := SQLText; Query.ParamByName('XMLprotocolocancelamento').asstring:=FrmConfigNfE2.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt; Query.ParamByName('XMLeventocancelamento').AsString := FrmConfigNfE2.ACBrNFe1.NotasFiscais.items[0].xml; Query.ParamByName('XMLStatus').Asstring :=copy('CODIGO:['+InttoStr( FrmConfigNfE2.ACBrNFe1.NotasFiscais.Items[0].Nfe.procnfe.cstat )+']-'+ FrmConfigNfE2.ACBrNFe1.NotasFiscais.Items[0].Nfe.procnfe.xmotivo,1,240); Query.ParamByName('XMLStatuscodigo').Asstring :=InttoStr( FrmConfigNfE2.ACBrNFe1.NotasFiscais.Items[0].Nfe.procnfe.cstat ); Query.ParamByName('id').AsFloat := Trunc(dmNFPedido.Query_NFPedidos_nfc_id.AsFloat); Query.ExecSQL; finally Query.Free; end; end; // end;
  8. Pablo, obrigado pela resposta. Quando você fala em desvincular e vincular novamente, onde eu posso fazer esse processo?
  9. Bom dia. Refiz a instalação pelo ACBrInstall_Trunk2.exe, baixei pelo SVN, mas não retornou nada de arquivo alterado, revisão 10954 ou seja, está atualizado. Pedi todos os pacotes, menos o NFSe. Quando abro o exemplo AcbrNfe_demo, aparece os erros : 1)AcbrnfedanfeESCPOS1.LocallmpCanhoto: Property LocallmpCanhoto does not exists. 2)AcbrnfedanfeRL1.LocallmpCanhoto.does not exists Refiz os processos como citados acima, e continua dando erro. Tem algum outro procedimento?
×
×
  • 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.