Juliomar Marchetti

Boa noite acabei de efetuar o teste em meu micro que tem o delphi7 e o mesmo não ocorreu! Acredito ter em algum lugar dentro de seu micro o fonte dessa unit desatualizado e seu delphi está enxergando e pegando ele para compilar!

Então temos um problema! verifique agora o método que pega o retorno em uma stream do webservice e veja se ele está convertendo corretamente ou o que está trazendo o mesmo!

Boa tarde notei que o cOrgao abaixo está como 91! o porque isso?

Poderia anexar o log do ACBrInstall?

A tendência do TDI é forte, veja os navegadores hoje e já vi diversos sistemas assim!

Estranho atualizei o svn hoje e recompilei tudo no meu delphi e não ocorreu! sua pasta do svn está toda ok? chegou a conferir senão existem arquivos que por terem sido modificados localmente não atualizaram?

Sim nessas units que alterou verifique se no começo delas tem a seguinte declaração {$I ACBr.inc} caso negativo acrescente e volte para a string e refaça a consulta! poste o resultado

Boa tarde tente verificar o seguinte: if NFSeRetorno.ListaNfse.CompNfse.count > 0 then FDataRecebimento := NFSeRetorno.ListaNfse.CompNfse[0].Nfse.dhRecebimento; e verifique se está retornando algo ali!

Boa tarde já está disponível no svn a alteração no componente e no exemplo obrigado!

Veja duas coisas! uma que você informou que não tem certificado! então é necessário ver se o provedor precisa! após conforme o Italo informou que o componente não utiliza a dll mencionada!

Obrigado Isaac!

Tratamos aqui ou no outro post sobre seu problema? acho que continuamos somente aqui né? então faça o sugerido no outro post e continue aqui somente! Obrigado

pegue as dll do openssl que tem no svn na pasta dll e coloque junto ao bin do delphi!

Boa tarde Qual windows está utilizando? versão do delphi? acontece somente em homologação? conforme mencionou é com um único provedor o erro? se sim veja senão está com problema no método do webservice, se bem que o erro é do lado cliente!

Boa tarde Acho que o Daniel respondeu a outra pessoa a poucos dias, dizendo que é padrão da impressora o tamanho, não podendo ser alterado o tamanho!

Infoger Sistemas Ltda ME InfoComFC 8.1.10.0 Laudo UNO1682014 Órgão Técnico LTS Unochapecó. ER 02.01 Suite ACBr! Delphi XE2 superior Firebird 2.1 superior

Interfoc Informática Ltda WGenPDV 4.0.0.0 Laudo UNO1552014 Órgão Técnico LTS Unochapecó. ER 02.01 Suite ACBr! Delphi XE3 superior PostGreSQL 8.4 superior

Poderia descrever para quando alguém tiver o mesmo problema posso resolver?

Sim via dll a integração ! entra no site deles e conversa com eles, é uma ótima solução TEF! muito difícil dar problemas!

Boa tarde Tente debugar ele e ir usando o F7 e verifique as strings para ver se alguma delas não está ficando com problema em função do Unicode !

Vou chutar pois não consegui testar, mas verifique senão se faz necessário colocar junto as dll do openssl do seu executável!

Conforme o Daniel já informou ele é object pascal, não tendo para vb, vb.net ou C#!

Boa tarde Sim deve de criar um novo tópico, mas já o dividi agora! Sobre seu problema, é bom você ter um único componente e criar um método pra configurar conforme o modelo necessário para emitir!

Verifiquei que os dois posts são antigos e não recentes! chegou a entrar em contato com o sefaz pra ver se não está ocorrendo algum problema lá?

Boa tarde Chegou a abrir o exemplo do MDFe que tem na pasta? veja o código abaixo retirado dele: OpenDialog1.Title := 'Selecione o MDFe'; OpenDialog1.DefaultExt := '*-MDFe.xml'; OpenDialog1.Filter := 'Arquivos MDFe (*-MDFe.xml)|*-MDFe.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrMDFe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrMDFe1.Manifestos.Clear; ACBrMDFe1.Manifestos.LoadFromFile(OpenDialog1.FileName); with ACBrMDFe1.EventoMDFe.Evento.Add do begin infEvento.chMDFe := Copy(ACBrMDFe1.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44); infEvento.CNPJ := edtEmitCNPJ.Text; infEvento.dhEvento := now; // TpcnTpEvento = (teCCe, teCancelamento, teManifDestConfirmacao, teManifDestCiencia, // teManifDestDesconhecimento, teManifDestOperNaoRealizada, // teEncerramento); infEvento.tpEvento := teEncerramento; infEvento.nSeqEvento := 1; infEvento.detEvento.nProt := ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.nProt; infEvento.detEvento.dtEnc := Date; infEvento.detEvento.cUF := StrToInt(Copy(IntToStr(ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga),1,2)); infEvento.detEvento.cMun := ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga; end; ACBrMDFe1.EnviarEventoMDFe( 1 ); // 1 = Numero do Lote MemoResp.Lines.Text := UTF8Encode(ACBrMDFe1.WebServices.EnvEvento.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrMDFe1.WebServices.EnvEvento.RetWS); LoadXML(MemoResp, WBResposta); end;