Ir para conteúdo
  • Cadastre-se

josemarmt

Membros
  • Total de ítens

    127
  • Registro em

  • Última visita

Posts postados por josemarmt

  1. Caros colegas, estou novamente solicitando a ajuda de voces.

    Para esclarecer, acabei de atualizar o componente e pesquisei no forum mas não tive sucesso.

    Não estou conseguindo realizar o cancelamento, meu código estou postando abaixo:

     

          ACBrCTe1.Conhecimentos.Clear;
          ACBrCTe1.Conhecimentos.LoadFromFile(dmlote.cdsconhece.FieldByName('chave').AsString);
          if not(InputQuery('WebServices Cancelamento', 'Justificativa', vAux))
             then exit;
     
       xcgcfirma := dmlote.cdslote.FieldByName('CGCFIRMA').asstring;
       xcgcfirma := copy(xcgcfirma,1,2)+copy(xcgcfirma,4,3)+copy(xcgcfirma,8,3)+copy(xcgcfirma,12,4)+copy(xcgcfirma,17,2);
       ACBrCTe1.EventoCTe.Evento.Clear;
       ACBrCTe1.Eventocte.idLote := 1;
     
       with ACBrCTe1.EventoCTe.Evento.Add do
       begin
         infevento.cOrgao          := 31;
         infevento.chCTe           := copy(dmlote.cdsconhece.FieldByName('chave').AsString,1,44);
         infEvento.CNPJ            := xcgcfirma;
         infEvento.dhEvento        := now;
         infEvento.tpEvento        := teCancelamento;
         infEvento.detEvento.xJust := trim(vAux);
         infEvento.detEvento.nProt := '1';
         infEvento.nSeqEvento      := 1;
       end;
     
       ACBrCTe1.EnviarEventoCTe(1);
     
    recebo o erro que postei em anexo.
    Fico extremamente grato pela ajuda.
    Abraço a todos.
     
     

    post-1524-0-10524000-1402076957.jpg

  2. Caros colegas, mas uma vez venho solicitar a ajuda de vcs.

    Tomei como base o exemplo que acompanha o projeto para gerar o manifesto eletrônico, entretanto estou com uma msg de erro ao validar o xml no campo idUnidTransp, no exemplo vem como sendo :

     

                 with infUnidTransp.Add do
                 begin
                    //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros );
                    tpUnidTransp := utRodoTracao;
                    idUnidTransp := 'Caminhao';
                 end;
    e deste modo não consigo compilar, alguém já passou por isto e poderia me ajudar, desde já agradeço.
    abs a todos
  3. Caros colegas, mas uma vez venho solicitar a ajuda de vcs.

    Tomei como base o exemplo que acompanha o projeto para gerar o manifesto eletrônico, entretanto estou com uma msg de erro ao validar o xml no campo idUnidTransp, no exemplo vem como sendo :

     

                 with infUnidTransp.Add do
                 begin
                    //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros );
                    tpUnidTransp := utRodoTracao;
                    idUnidTransp := 'Caminhao';
                 end;
    e deste modo não consigo compilar, alguém já passou por isto e poderia me ajudar, desde já agradeço.
    abs a todos
  4. Caros colegas.

    Desculpe aproveitar o post.

    Estou com os fontes atualizados(hoje) e qdo tento compilar o pacote acbrmdfe me ocorre o erro de falta do arquivo acbrmfe.dcu, fiz uma busca no micro e não o encontrei. Alguém poderia me dar uma força.

    Desde já agradeço, abs. 

  5. Consegui resolver agora a pouco.

    Alterei as seguintes informações do destinatário que antes eram:

    cidade : rio de janeiro, p ex, para exterior

    uf         : RJ                           para EX

    cod. ibge : do rio                  para 9999999

    não soube explicar ao cliente nem a mim mesmo, uma vez que nada foi alterado, mas resolveu.

    Abs a tds

  6. vlw krepe

    é exatamente deste modo que faço.

    o mais estranho é que o erro passou a aparecer de uma hora para outra, hoje mesmo na parte da manhã funcionou perfeitamente.

    de qualquer forma agradeço sua atenção

    abs.

  7. Caros colegas boa noite.

    Passei a receber hoje a tarde a mensagem de rejeição.

     

    cfop invalido para operacao,

     

    não houve alteração nenhuma para que fosse gerado o erro.

    comparei com outro cte com características iguais e nada difere.

    pesquisei e nada encontrei.

    solicito ajuda pois o cliente esta com veículos transitando de forma incorreta.

    obrigado mais uma vez.

    abs

  8. Caros colegas, novamente solicitando ajuda.

    Estou tentando enviar email utilizando Gmail, com o terra obtive sucesso, entretanto....

    segue abaixo trecho do código, se alguém puder ajudar fico muito grato.

    Abs a todos e bom fim de semana

     

    procedure Tfrmcadlote.BitBtn21Click(Sender: TObject);
    var
     Para : String;
     CC   : Tstrings;
    begin

      dmlote.qryinfocliente.ParamByName('CODCLI').AsString := dmlote.cdsconhece.FieldByName('CLITOMA').AsString;
      dmlote.qryinfocliente.Open;

      Para := dmlote.qryinfocliente.fieldbyname('emailcli').AsString;
      dmlote.qryinfocliente.Close;
      if trim(para) <> '' then
      begin
        ACBrCTe1.Conhecimentos.Clear;
        ACBrCTe1.Conhecimentos.Clear;
        ACBrCTe1.Conhecimentos.LoadFromFile(dmlote.cdsconhece.FieldByName('chave').AsString);
        CC:=TstringList.Create;
        CC.Add('[email protected]'); //especifique um email válido

        ACBrCTe1.Conhecimentos.Items[0].EnviarEmail('smtp.gmail.com'
                                                    , '465'
                                                    , '[email protected]'
                                                    , '32112294'
                                                    , '[email protected]'
                                                    , Para
                                                    , 'Envio de XML CTe'
                                                    , mmEmailMsg.Lines
                                                    , false
                                                    , false //Enviar PDF junto
                                                    , CC  // nil Lista com emails que serão enviado cópias - TStrings
                                                    , nil // Lista de anexos - TStrings
                                                    , False ); //Pede confirmação de leitura do email

        CC.Free;

        showmessage('Email enviado!');

      end;
    end;
     

    PS. Antes de postar pesquisei em todo o forum e não encontrei nada q fosse mais esclarecedor.

  9. Galera, consegui!!! ufa!!

    Após persistir nas pesquisas consegui a dica abaixo e foi a solução!!!

    segue

    - IExplorer
    - Ferramentas
    - Avançadas
    Lá no final das opções:
    
    - [ ] Verificar revogação de certificados do servidor* (desmarcar)
    - [ ] Verificar se há certificados revogados do editor (desmarcar)
    

    Abs a todos e obrigado mais uma vez

  10. Já instalei em diversas máquinas, porém esta é a 1ª que me apresenta este problema, já fiz de tudo, reinstalei certificado, dll capicom, msxml5, .....

    Nada de funcionar, mas agrade o retorno, vou aguardar alguma outra dica, só para constar, já pesquisei aqui no forum tb.

    abs

  11. Caros colegas, estou com problemas ao executar o acbr monitor e verificar o status me reporta o seguinte erro:

     

    WebService Consulta Status serviço:
    - Inativo ou Inoperante tente novamente.
     
    caso alguem possa me ajudar fico muito grato.
    abs
  12. Caros colegas, estou tentando instalar um sistema desenvolvido em um micro do cliente e esta me gerando o erro que colo abaixo, lembrando que em meu micro de trabalho o mesmo não ocorre, instalei o acbr monitor que geralmente corrige possíveis erros de instalações de dlls, por exemplo, entretanto nem mesmo o acbr monitor esta rodando, solicito ajuda, abraço a todos.

     

    Eis a mensagem de erro:

     

    WebService Consulta Status serviço:
    - Inativo ou Inoperante tente novamente.
     

     

  13. Renato me parece que vc esta com problemas no certificado. Comigo este problema não ocorreu não.

    Aproveitndo, vc esta desenvolvendo em Juiz de Fora, caso afirmativo, podemos tentar alguma colaboração.

    vlw

    • Curtir 1
×
×
  • 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.

The popup will be closed in 10 segundos...