Márcio Antônio

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?

Oi Daniel, estou fazendo diferente, assim: fRelatItensFaltantes := TStringList.Create; fRelatItensFaltantes.Append(' '); fRelatItensFaltantes.Append(' I T E N S A R E T I R A R '); fRelatItensFaltantes.Append(' '); fRelatItensFaltantes.Append('Cliente: ' + cdsPedVendaItemCODCLI.AsString +' - '+ cdsPedVendaItemDescCli.AsString); fRelatItensFaltantes.Append('aqui eu gostaria de imprimir um codigo de barras qualquer'); fRelatItensFaltantes.Append(' '); dtmFDL.ecfPDV.RelatorioGerencial(dtmPAFECF.fRelatItensFaltantes); tem como? ou tem que ser do jeito que você falou?

Estou montando um relatório gerencial em uma stringlist, e no mesmo gostaria de imprimir um código de barras, passar um valor por exemplo: 15200, e ele imprimir um código de barras nesse valor, alguém sabe como eu posso fazer isso para imprimir na impressora DR800, usando a função RelatorioGerencial da unit AcbrEcf?

Boa tarde, Aqui pra mim não está gerando a tag vICMSSubstituto, testei com um cliente gerou normal, mas em outro não... segue em anexos os 2 xml com e sem a tag.... o que pode ser? NFe26190540864613000191550010008651621008651623.xml NFe26190507620045000108550010003485041003485040.xml

Segue abaixo alguns links da não obrigatoriedade da emissão da redução Z: http://www.nfce.se.gov.br/portal/portalNoticias.jsp?jsp=barra-menu/conhecaNFCe/sobreNFCe.htm http://www.nfce.go.gov.br/post/ver/215401/e-quais-obrigacoes-acessorias-estarao-dispensadas-apos-aderir-a-nfc-e http://portalnfce.sefaz.am.gov.br/empresario/vantagens-da-nfc-e/

Estão não italo, baixei ontem uma versão... quando percebi que não tinha essa linha que informei, por isso mandei por aqui...

Resolvido, segue em anexo o arquivo atualizado. ACBrNFeServicos.ini