Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

cimples cimples

Membros
  • Posts

    10
  • Joined

  • Last visited

cimples cimples's Achievements

Rookie

Rookie (2/14)

  • Dedicated Rare
  • Collaborator Rare
  • First Post
  • Week One Done
  • One Month Later

Recent Badges

0

Reputation

  1. era isso mesmo, agora ta dando erro de numero de registro estadual, vou ter que pedir meu cliente para fazer o registro, para eu testar dinovo, pelo menos o erro acima ja foi corrigido valeu gente, foi de grande valia.
  2. meu codigo inteiro var Ok: Boolean; PathMensal: String; begin dados.qryConfig.Close; dados.qryConfig.Params[0].Value := dados.qryEmpresaCODIGO.Value; dados.qryConfig.Open; ACBrCTe.Configuracoes.Arquivos.AdicionarLiteral := true; ACBrCTe.Configuracoes.Arquivos.EmissaoPathCTe := true; ACBrCTe.Configuracoes.Arquivos.SepararPorMes := true; ACBrCTe.Configuracoes.Arquivos.SepararPorCNPJ := true; ACBrCTe.Configuracoes.Arquivos.PathEvento := trim(dados.qryConfigPATH_EVENTO_CTE.Value); ACBrCTe.Configuracoes.Arquivos.PathSalvar := trim(dados.qryConfigPATH_SALVAR_CTE.Value); ACBrCTe.Configuracoes.Arquivos.PathCTe := trim(dados.qryConfigPATH_ENVIADAS_CTE.Value); ACBrCTe.Configuracoes.Arquivos.PathSchemas := dados.qryConfigPATH_SCHEMA_CTE.Value; ACBrCTe.Configuracoes.Arquivos.PathInu := dados.qryConfigPATH_INU_CTE.Value; ACBrCTe.Configuracoes.Geral.ModeloDF := moCTeOS; PathMensal := ACBrCTe.Configuracoes.Arquivos.GetPathCTe(0); case dados.qryConfigVERSAO_CTE.Value of 0: ACBrCTe.Configuracoes.Geral.VersaoDF := TVersaoCTe(0); 1: ACBrCTe.Configuracoes.Geral.VersaoDF := TVersaoCTe(1); end; ACBrCTe.Configuracoes.Arquivos.PathSalvar := PathMensal; ACBrCTe.DACTE.PathPDF := dados.qryConfigPATH_PDF_CTE.Value; ACBrCTe.SSL.DescarregarCertificado; with ACBrCTe.Configuracoes.Geral do // configurações gerais begin SSLLib := TSSLLib(dados.qryConfigTIPO_EMISSAO.Value); SSLCryptLib := TSSLCryptLib(dados.qryConfigCRYPTLIB.AsInteger); SSLHttpLib := TSSLHttpLib(dados.qryConfigHTTPLIB.AsInteger); SSLXmlSignLib := TSSLXmlSignLib(dados.qryConfigXMLSIGN.AsInteger); end; ACBrCTe.SSL.SSLType := TSSLType(dados.qryconfigSSL_TIPO.AsInteger); ACBrCTe.Configuracoes.Certificados.NumeroSerie := dados.qryConfigNUMEROSERIECERTFICADO.Value; ACBrCTe.Configuracoes.Certificados.Senha := dados.qryConfigSENHACERTIFICADO.Value; ACBrCTe.Configuracoes.Certificados.ArquivoPFX := dados.qryConfigCAMINHO_CERTIFICADO.Value; // Configurações -> WebServices ACBrCTe.Configuracoes.WebServices.AguardarConsultaRet := 100; ACBrCTe.Configuracoes.WebServices.AjustaAguardaConsultaRet := true; ACBrCTe.Configuracoes.WebServices.IntervaloTentativas := 100; ACBrCTe.Configuracoes.WebServices.Tentativas := 1000; ACBrCTe.Configuracoes.WebServices.UF := dados.qryConfigUF.Text; ACBrCTe.Configuracoes.WebServices.Visualizar := false; if dados.qryConfigVISUALIZAR.Value = 'S' then ACBrCTe.Configuracoes.WebServices.Visualizar := true; ACBrCTe.Configuracoes.WebServices.Salvar := false; // DAMDFe if ACBrCTe.DACTE <> nil then begin ACBrCTe.DACTE.PathPDF := dados.qryConfigPATH_PDF_CTE.Value; ACBrCTe.DACTE.ExpandeLogoMarca := false; ACBrCTe.DACTE.Logo := dados.qryConfigLOGOMARCA.Value; ACBrCTe.DACTE.TipoDACTE := StrToTpImp(Ok, IntToStr(1)); end; // ACBrCTe.Configuracoes.Arquivos.Salvar := true; ACBrCTe.Configuracoes.WebServices.Ambiente := taProducao; if dados.qryConfigAMBIENTE.Value = 1 then ACBrCTe.Configuracoes.WebServices.Ambiente := taHomologacao; ACBrCTeDACTeRL1.Sistema := dados.qryParametroEMPRESA.Value + ' | ' + dados.qryparametroFONE1.Value + ' ' + dados.qryparametroFONE2.Value; ACBrCTeDACTeRL1.Site := dados.qryparametroSITE.Value; OK vou fazer
  3. ACBrCTe.SSL.DescarregarCertificado; with ACBrCTe.Configuracoes.Geral do // configurações gerais meu codigo ta assim sera que tenho que inverter??? begin SSLLib := TSSLLib(dados.qryConfigTIPO_EMISSAO.Value); SSLCryptLib := TSSLCryptLib(dados.qryConfigCRYPTLIB.AsInteger); SSLHttpLib := TSSLHttpLib(dados.qryConfigHTTPLIB.AsInteger); SSLXmlSignLib := TSSLXmlSignLib(dados.qryConfigXMLSIGN.AsInteger); end; ACBrCTe.SSL.SSLType := TSSLType(dados.qryconfigSSL_TIPO.AsInteger); ACBrCTe.Configuracoes.Certificados.NumeroSerie := dados.qryConfigNUMEROSERIECERTFICADO.Value; ACBrCTe.Configuracoes.Certificados.Senha := dados.qryConfigSENHACERTIFICADO.Value; ACBrCTe.Configuracoes.Certificados.ArquivoPFX := dados.qryConfigCAMINHO_CERTIFICADO.Value; // Configurações -> WebServices ACBrCTe.Configuracoes.WebServices.AguardarConsultaRet := 100; ACBrCTe.Configuracoes.WebServices.AjustaAguardaConsultaRet := true; ACBrCTe.Configuracoes.WebServices.IntervaloTentativas := 100; ACBrCTe.Configuracoes.WebServices.Tentativas := 1000; ACBrCTe.Configuracoes.WebServices.UF := dados.qryConfigUF.Text; ACBrCTe.Configuracoes.WebServices.Visualizar := false; if dados.qryConfigVISUALIZAR.Value = 'S' then ACBrCTe.Configuracoes.WebServices.Visualizar := true; ACBrCTe.Configuracoes.WebServices.Salvar := false;
  4. nao deu coloquei o numero de serie, e senha e mais o caminho e nao deu
  5. qual o procedimento que deve fazer para conseguir, transmitir o erro também acontece quando abro a tela, eu sei que e nas configurações , para emissão de cte normal, ele funciona perfeito, para para cte-os da esse erro, minha configuraçao esta assim meu código esta assim ACBrCTe.SSL.SSLType := TSSLType(dados.qryconfigSSL_TIPO.AsInteger); ACBrCTe.Configuracoes.Certificados.NumeroSerie := dados.qryConfigNUMEROSERIECERTFICADO.Value; ACBrCTe.Configuracoes.Certificados.Senha := dados.qryConfigSENHACERTIFICADO.Value; ACBrCTe.Configuracoes.Certificados.ArquivoPFX := dados.qryConfigCAMINHO_CERTIFICADO.Value; alguém pode me ajudar, preciso terminar meu CTE-OS
  6. gente obrigado a todos ai, tanto pela localização no svn, quanto a explicação era esse inicio que eu precisa agora e implementar
  7. Bom dia Onde consigo o exemplo do CTE-OS, estou querendo implementar no meu sistema mas não tenho base de como ele funciona, os objetivos de uso, no meu sistema já esta funcionando o CTE E O MDFE, alguém poderia me explicar resumidamente como ele funciona e pra que serve?? e onde eu acho o exemplo na pasta acbr, pois no meu não tem
  8. Boa tarde Estou atualizando o meu acbr, pela primeira vez de instalado, e esta dando erro, processo que estou fazendo( atualizando pelo svn) e depois tento instalar novamente pelo truk2(seria isso mesmo para atulizar no meu delphi??), quando tento instalar novamente da o erro segue log. alguém poderia me ajudar ai, preciso instalar todos os componentes do acbr, ja utilizo todos do fiscal, agora da erro. lembrando que ele ja estava instalado no delphi, e funcionava normalmente, so preciso atualizar para ficar atualizado e agora ta dando erro log_Delphi_10.3_Rio_Win32.txt
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.