Márcio Antônio

Coloquei essa sequência: ACBRNFeTriviaDownload.SSL.DescarregarCertificado; ACBRNFeTriviaDownload.Configuracoes.Certificados.ArquivoPFX := 'C:\Empresas\Certificado2021.pfx'; ACBRNFeTriviaDownload.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado; ACBRNFeTriviaDownload.SSL.CarregarCertificado; e mesmo assim deu erro na hora de carregar o certificado: parâmetro incorreto

Coloquei logo depois o ACBRNFeTriviaDownload.SSL.CarregarCertificado; e deu o mesmo erro, parâmetro incorreto.

Opa renato, bom dia! Passei esses parâmetros abaixo e não deu certo, deu um erro de : parâmetro inválido ACBRNFeTriviaDownload.Configuracoes.Certificados.ArquivoPFX := 'C:\Empresas\Certificado2021.pfx'; ACBRNFeTriviaDownload.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado;

Valeu renato, pelo retorno... irei olhar o link.... obrigado!

Opa, renato, tudo igual... no meu form normal, conecto... faço tudo... mas no meu service, não consigo conectar, exatamente iguais os códigos... até o componente é o mesmo, fica no mesmo datamodule.... não sei mesmo o que pode ser...

Olá pessoal, estou criando um serviço para consultar as notas destinadas ao meu cnpj, mas não estou conseguindo conectar a sefaz, estou fazendo o mesmo código, na minha aplicação funciona normalmente, mas no serviço não... sempre da o mesmo erro, certificado não encontrado. segue abaixo a configuração do componente, para ver se vocês conseguem me ajudar... dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Certificados.NumeroSerie := NFeCertificadoInfo.numCertificado; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.WebServices.UF := fempresaInfo.PessoaInfo.EnderecoPrinc.id_estado; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Geral.IdCSC := NFeCertificadoInfo.IdCSC; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Geral.CSC := NFeCertificadoInfo.CSC; try dtmCompra.ACBRNFeTriviaDownload.Configuracoes.WebServices.Visualizar := False; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.WebServices.Ambiente := taProducao; dtmCompra.ACBRNFeTriviaDownload.NotasFiscais.Clear; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Arquivos.PathSchemas :=''; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\Nfe'; finally end; dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.Executar; Quando manda executar, ele diz que não localizou o certificado... não sei mais o que fazer...

Entendi, vou ver aqui...

Pessoal, não sei se estou fazendo algo de errado, mas não estou conseguindo baixar as notas, estou fazendo o seguinte: try empresainfo := dtmCheca.ChecaEmpresa(dblcbEmpresa.KeyValue); if empresainfo.NSUultimo = '' then vNSU := '0' else vNSU := empresainfo.NSUultimo; dtmSysMsg.Aguarde(cxgrdNFVenda,'Consultando NF-e destinadas'); k := 0; repeat inc(k); // Consultar Notas Destinadas with dtmCompra.ACBRNFeTriviaDownload do begin DistribuicaoDFePorUltNSU(StrToInt(empresaInfo.PessoaInfo.EnderecoPrinc.Estado.CODESTADOIBGE), empresaInfo.pessoaInfo.cnpjCpf, vNSU); end; vStat := IntToStr(dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.cStat); vMotivo := dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; if dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then vTemMais := 'N' else vTemMais := 'S'; vUltNsu := dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; vNSU := vUltNsu; // Atualizando a NSU na tabela empresa with dtmCompra do begin with isqAtualizaNsuEmpresa do begin ParamByName('nsu').AsString := vUltNsu; ParamByName('Id_Empresa').AsInteger := empresaInfo.pessoaInfo.id_pessoa; ExecQuery; end; isqAtualizaNsuEmpresa.Transaction.CommitRetaining; end; // Fim Atualização if dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then begin j := dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1; for i := 0 to j do begin // Gravando as Notas Destinadas no Banco try with dtmCompra do begin if dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.chDFe <> '' then begin Normalmente, o retorno que grava na variável J, retorna 49, sendo que quando entra no laço do FOR, quase todas as chaves vem VAZIO, e não consigo prosseguir com as notas, o que será que estou fazendo de errado?

Massa, obrigado!

Isso eu sei, queria saber na primeira consulta, trazer somente dos últimos 30 dias e não dos últimos 90 dias, informando o 0 na nsu....

Obrigado pela informação, tem como informar algum valor e esse intervalo ser menor? por exemplo os últimos 30 dias?

Gostaria de tirar uma dúvida, estou consultando as notas destinadas ao meu cnpj, usando o código abaixo, onde o vNSU, é igual a ZERO, sendo que li aqui no forum, quando eu faço isso, vem as notas destinadas ao meu CNPJ dos últimos 15 dias, sendo que quando fiz isso, veio do mês de julho pra cá, fiz algo de errado? // Consultar Notas Destinadas with dtmCompra.ACBRNFeTriviaDownload do begin DistribuicaoDFePorUltNSU(StrToInt(empresaInfo.PessoaInfo.EnderecoPrinc.Estado.CODESTADOIBGE), empresaInfo.pessoaInfo.cnpjCpf, vNSU); end; Obrigado!

Bom dia senhores, essa nova TAG, já está disponível no repositório? pois esta dando erro em um cliente meu em produção... Obrigado!

Boa tarde Juliana, deu certo, obrigado!

Na geração do boleto do banco do nordeste, é obrigatório a informação do dígito da agência, mas o cliente e a própria agência me informaram que não existe esse dígito da agência, o que eu faço?

Fiz aqui a reinstalação do fortes e do acbr, e normalizou... obrigado Juliomar.

Opa Juliomar, estou usando o componente: ACBrNFeDANFCeFortes Configurei a propriedade TipoDanfe para: tiNfCe MargemDireita: 0,51 MargemEsquerda: 0,6 MargemInferior: 0,8 MargemSuperior: 0,8 e na chamada de impressão: ACBrNFCeFinanceiro.NotasFiscais.LoadFromFile(PAnsiChar(Trim(vCaminho)+'\'+Trim(ArquivoNFCe)), False); ACBrNFeDANFCeFortesFinanceiro.PathPDF := vCaminho; ACBrNFeDANFCeFortesFinanceiro.MostraPreview := False; ACBrNFeDANFCeFortesFinanceiro.MostraStatus := False; ACBrNFCeFinanceiro.NotasFiscais.ImprimirPDF;

Olá pessoal, estou tentando imprimir o pdf de uma NFCe, e a mesma está saindo de forma estranha, o que pode ser? segue em anexo o PDF e o XML de simulação. 26210538300088000130650010000010551061328417-nfe.pdf 26210538300088000130650010000010551061328417-nfe.xml

Show de bola, obrigado pelas informações.

Não entendi o que preciso informar nessa tag, tenho um cliente que é um mercadinho, informei na tag pagemento que a forma de pagamento é cartão, mas no cnpj sempre coloquei tudo ZERO, agora preciso informar o que? o cnpj do mercadinho ou da administradora do cartão? Sempre informei assim: tPag := fpCartaoCredito; tpIntegra := tiPagIntegrado; CNPJ := '00000000000000'; tBand := bcOutros; cAut := '000000';

Está sim Juliomar, após algumas pesquisas, consegui resolver... eu havia esquecido de colocar o código dtmOC.cdsManifestoItem.DisableControls; e depois o dtmOC.cdsManifestoItem.EnableControls; Obrigado pelo retorno. Abraços!

Amigos, já fiz de tudo e não consigo descobrir esse erro de access violation, quando dou o comando de: dtmOC.cdsManifestoItem.Filtered := False; ele continua o meu código, mas da a mensagem de erro: segue abaixo parte do meu código: dtmOC.cdsNFEmunicipio.First; dtmOC.cdsManifestoItem.Open; // Dados do(s) município(s) e da(s) NF-e with dtmOC.cdsNFEmunicipio do begin vQtdTotNF := 0; while not dtmOC.cdsNFEmunicipio.Eof do begin with infDoc.infMunDescarga.New do begin dtmOC.cdsManifestoItem.First; dtmOC.cdsManifestoItem.Filtered := False; dtmOC.cdsManifestoItem.Filter := 'MunDescarga = ' + IntToStr(dtmOC.cdsNFEmunicipioMunDescarga.AsInteger); dtmOC.cdsManifestoItem.Filtered := True; cMunDescarga := dtmOC.cdsManifestoItemMunDescarga.AsInteger; xMunDescarga := RemoverCaracteresEspeciais(dtmOC.cdsManifestoItemMunicipio.AsString); while not dtmOC.cdsManifestoItem.Eof do begin with infNFe.New do begin chNFe := dtmOC.cdsManifestoItemChave.AsString; end; vQtdTotNF := vQtdTotNF + 1; dtmOC.cdsManifestoItem.Next; end; end; dtmOC.cdsNFEmunicipio.Next; end; end; se alguém poder me ajudar, não sei mais o que fazer, obrigado!

Pois é, já tentei de tudo e não sai o texto abaixo...

Também não sai, o suporte da daruma falou que só sai o texto abaixo com essa tag... ' <txt> </txt>'.

opa Daniel, estou usando o seguinte, fNotaCredito.Append('<code39><txt>'+dtmCAPCentral.iqrImpNotaCredID_TITULO.AsString+'</txt></code39>'); dtmFDL.ecfPDV.RelatorioGerencial(fNotaCredito); ele sai somente as barras do código de barras, mas não sai o texto abaixo do mesmo. Falei com o suporte da daruma e eles me disseram que para sair o texto abaixo, tenho que usar o método: iImprimirTexto_DUAL_DarumaFramework e não o relatoriogerencial. Confere mesmo?