josemarmt

Mas uma vez, desculpe o vacilo e muito obrigado Italo.

Boa tarde Igor, anteriormente tinha feito sem o orgão e me retornou erro pela falta do mesmo. de qualquer forma vou tentar com sua sugestão mantendo o orgão. Obrigadão

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.

Valeu meu caro, desculpe o erro, mas tomei como base o modelo do exemplo. Fica aqui meu agradecimento. Pelo visto, até o final do projeto ainda irei te importunar novamente. Grande abraço.

Desculpe, italojjr estive em curso e não tive como lhe retornar o erro esta em anexo. Obrigado como sempre.

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

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

Juliomar, consegui resolver, obrigado pelas dicas, gde abraço.

Caro Juliomar, utilizo delphi 7. Desculpe a inexperiencia, mas como realizo esta tarefa que vc comentou por último, de qualquer forma obrigado pelo retorno. Abs

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.

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

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.

Vale salientar que este erro, fiz um teste agora, só ocorre no caso de exportação. abs

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

Valeu Miguel, Funcionou. Obrigado e gde abraço.

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.

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

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

Caros colegas, estou com problemas ao executar o acbr monitor e verificar o status me reporta o seguinte erro: http://www.djsystem.com.br/acbr/forum/ WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. - TAG:<consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00"> ID:FP03/tpAmb(%DESCRICAO%) -x - URL:https://nfe.sefazvirtual.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2 caso alguem possa me ajudar fico muito grato. abs

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: http://www.djsystem.com.br/acbr/forum/ WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. - TAG:<consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00"> ID:FP03/tpAmb(%DESCRICAO%) -x - URL:https://nfe.sefazvirtual.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2

[email protected]

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

E ai Wesley? Evoluiu em alguma coisa? Podemos trocar idéias?

sim, pasta -> acbr2011\Exemplos\ACBrNFSe\Delphi\Schemas\BHISS, conforme indicação do Italo.

Bom dia Angelo, Obrigado pelo esclarecimento. Fiz conforme sugestão,Gerar e Enviar Lote, porém agora me aprtesenta o erro