Cleonir

Boa tarde, Eu estou migrando os meu clientes para essa versão do Wincrypt e em algum clientes que possuem o certificado A1 também estou tendo esse problema na linha 166 a Unit ACBrDFeXsMsXml dispara o Exception if (dsigKey = nil) then raise EACBrDFeException.Create('Falha ao obter a Chave Privada do Certificado para Assinatura.'); Para resolver isso eu peguei o certificado instale no Windows XP marcando aquela opção para exportar a chave privada e depois baixei ele novamente e configurei no sistema e funcionou normalmente. Mas por que que acontece este erro? tem alguma outra forma mais pratica para resolver isso?

Bom dia. Na atualização que fiz hoje deu problema nesta tag IEST, se eu não informar nada da erro na hora de validar, (Inscrição Estadual do Substituto Tributário) - Nenhum valor informado. por que crio a tag igual mas sem nenhuma informação acredito que falta fazer um pequeno if na hora de criar. if (CTe.infCTe.versao >= 3) and (CTe.ide.modelo = 57) then begin if Length(trim(CTe.Emit.IEST)) > 0 then Gerador.wCampo(tcStr, '#100', 'IEST ', 02, 14, 1, OnlyNumber(CTe.Emit.IEST), DSC_IEST); end; fiz assim e passou...

Beleza Italo Acredito que agora vai passar, ~Só não consegui enviar ainda por que o certificado que estou utilizando aqui para testes não esta habilitado a emitir CTeOS, esta retornando a Rejeição: Emissor não habilitado para a emissão do Ct-e. Vou precisar conseguir um cliente que esteja habilitado para fazer os testes finais. Muito obrigado Italo pela atenção...

Ok Obrigado Italo.

fiz mais um pequeno ajuste no ACBrCTeDACTEFR.pas, tinha um problema quando o documento referenciado era uma NF e se o campo nDoc tivesse mais de 10 caracteres, estava tentando transforma o nDoc para integer para formatar para jogar no campo TextoImpressao do clientDataSet. Alterei para StrToInt64, alterei a mascara e tirei alguns espaços em branco para não cortar na impressão. ACBrCTeDACTEFR.pas

Boa tarde Italo. Muito obrigado pela atenção. Depois da atualização ainda ficou um pequeno problema. Quando for um CTeOS e o Tipo de Serviço = Transporte de Valores da erro na hora de validar mas precisamente na hora de identificar o shema do modal, por que foi retirado a tag infModal quando é transporte de valores. Em anexo imagem do erro e o Demo do AcbrCTe ajustado para poder testar com o Wimcrypt e com os campos preenchidos do GerarCte para você testar. Frm_Demo_ACBrCTe.dfm Frm_Demo_ACBrCTe.pas E também se possível analisar e subir para o SVN as alterações que fiz no ACBrCTeDACTEFR.pas e no DACTE_OS.fr3 para a impressão do CteOS que adicionei logo acima neste post.

A também esta retornando a Rejeição: Grupo infModal não deve ser preenchido quando o tpServ = tsTranspValores.

Bom dia Italo. Com a atualização parece que vai enviar, só não consegui enviar ainda por que esta dando Rejeição:Emissor não habilitado para emissão do CT-e. Vou precisar encontrar um cliente que que esteja habilitado a emitir CTeOs para conseguir testar. Mas tem um pequeno problema ainda. A rejeição não esta mostrando correto, o ACBrCTe1.WebServices.Retorno.xMotivo esta pegando do retCTeOS, ali esta vindo somente Lote processado, eu acho que deveria pegar do protCTe que vem a descrição da rejeição. Ex: Rejeição: Emissor nao habilitado para emissao do CT-e.

Apartir da atualização de hoje esta retornado o xml pro-lot-soap.xml com Rejeição: Falha no Schema XML do CT-e. e o pro-lot.xml grava em branco. Conferindo o xml soap de envio percebi que esta invertido uma informação, não sei se isso interfere em alguma coisa. na segunda linha do xml no manual o xmlns:soap12="http://www.w3.org/2003/05/soap-envelope" 'esta no fim da linha e no xml gerado esta no inicio.

Não é o campo VersaoDF do componente do Cte que falta você configurar?

Obrigado pela atenção BigWings. Mais alguém consegue me ajudar? Estou precisando terminar esse CTeOs meio logo tenho alguns clientes me pegando no pé... e estou com esse problema no envio?

Erro Interno: 0 Erro HTTP: 400.

Realizei alguns ajustes no Demo para conseguir simular o envio do CTeOS com o WinCrypt e com o OpenSSl. Tanto com o WinCrypt como com o OpenSSl acontece o erro. Em anexo Demo Alterado e imagem onde ocorre o erro... No demo já deixei preenchido no GerarCTe. Frm_Demo_ACBrCTe.dfm Frm_Demo_ACBrCTe.pas

Estou Configurando Assim... DM.CTe1.SSL.SSLType := LT_all; DM.CTe1.Configuracoes.Geral.SSLLib := libOpenSSL; DM.CTe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; DM.CTe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; DM.CTe1.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec; DM.CTe1.Configuracoes.Geral.ModeloDF := moCTeOS; DM.CTe1.Configuracoes.Certificados.ArquivoPFX :=DM.qrConf.FieldByName('END_CERT').AsString; DM.CTe1.Configuracoes.Certificados.Senha :=DM.qrConf.FieldByName('SENHA_CERT').AsString; DM.CTe1.Configuracoes.WebServices.UF := 'SC'; DM.CTe1.Configuracoes.WebServices.Ambiente := taHomologacao; Em anexo o xml que estou tentando enviar. No Demo vou precisar fazer alguns ajustes para enviar, por que ainda não foi ajustado para utilizar o WinCrypt. 42170581581324000162670320000000041000000054-cte.xml

Alguém consegue me ajudar em relação ao envio do CTeOS ? esta ocorrendo o erro que citei no inicio deste tópico. E aproveitando fiz algumas alterações no ACBrCTeDACTEFR.pas para conseguir imprimir o CTeOS. Em Anexo ACBrCTeDACTEFR.pas alterada e o fr3 que criei. Provavelmente depois vai precisar ser feito ajustes, por que ainda não consegui enviar o CTeOS para testar. Favor analisarem e se possível adicionar ao SVN. ACBrCTeDACTEFR.pas DACTE_OS.fr3

Na verdade é quando reinstala o ACBR que aparece.

Consegui, faltava reiniciar o micro...

Eu tive um problema parecido, ao enviar o e-mail dos boletos eu queria mandar um pequeno html junto. Só estava faltando setar a propriedade IsHTML do componente ACBrMail para True.

Estou tentando fazer a Impressão do CTeOS mas não estou conseguindo pegar as informações que adicionei em um novo ClientDataSet que criei. cdsInfServico := TClientDataSet.Create(nil); with cdsInfServico, FieldDefs do begin Close; Clear; Add('xDescServ', ftString, 30); Add('qCarga', ftFloat); CreateDataSet; end; Como que faço para aparecer esse DataSet la no FastReport ?

Obrigado Italo.

Estou com problema na hora de enviar o CteOS. Na Unit ACBrDFeHttpWinApi Na função function TDFeHttpWinHttp.Enviar(const ConteudoXML: String; const AURL: String; const ASoapAction: String; AMimeType: String): String; if not (FWinHTTPReqResp.HTTPResultCode in [200, 201, 202]) then //Aqui esta retornando 400 aí cai no exeption tanto com o OpenSSL como com o WinCrypt raise EACBrDFeException.Create(''); E também aproveitando no TCTeW.GerarTomador esta criando a tag indIEToma essa tag não pode ser criada dentro do tomador é somente na ide aqui só comentei as linhas if (CTe.infCTe.versao >= 3) then Gerador.wCampo(tcStr, '#066', 'indIEToma', 01, 01, 1, indIEDestToStr(CTe.toma.indIEToma), DSC_INDIETOMA); e passou. Se alguém poder me ajudar na primeira questão ficarei grato.

Era isso mesmo. Muito obrigado...

Bom dia. A UF é SC Ambiente homologação e produção, acontece o mesmo problema. Testei com o demo e também acontece isso.

No CteOS Status Serviço esta dando erro. Erro: URL não definida para: TCTeStatusServico. Não consegui identificar onde esta o problema. Alguém pode me ajudar?

Por acaso tem alguém desenvolvendo o DACTE do CTeOS ?