AllyRafhiyy E N Nunes

ta ficando assim quando consulto, na imagem!!

pessoal estou com um problema, quando ocorre esse erro de timeout que vou inutilizar a nfce diz que um numero de faixa ja foi utilizado. codigo que uso para enviar a NFCe procedure TUFinaliza_Venda.PreparaNFCE; var vNota:string; pCodigo:integer; Begin nfce_autorizada := false; fmodulo.LerACBRNFe; vAux := uFrente_caixa.codifica('888888',6); vSincrono := '1'; vNumLote := '1'; Sincrono := true; with fmodulo do begin try ACBRNFe1.NotasFiscais.clear; ufrente_caixa.Imprime_display(' AGUARDE... GERANDO NFC-E', CLWHITE, tiLivre); //grid.Repaint; GerarNota(vAux); ufrente_caixa.Imprime_display(' AGUARDE... ENVIANDO NFC-E', CLWHITE, tiLivre); //grid.Repaint; ACBRNFe1.Enviar(vNumLote, false, Sincrono); if ACBRNFe1.NotasFiscais.Items[0].Confirmada then begin If ACBRNFe1.WebServices.Enviar.cStat = 100 then begin cStatus := 100; ChaveNFCE := ACBRNFe1.NotasFiscais.Items[0].NFe.infNFe.Id; NumeroNFCe := strtoint(vAux); end; end else begin ufrente_caixa.Imprime_display(ACBRNFe1.WebServices.Enviar.xMotivo, CLWHITE, tiLivre); end; ufrente_caixa.Imprime_display(' AGUARDE... GERANDO QRCODE DA NFC-E', CLWHITE, tiLivre); //grid.Repaint; GerarQrCode; // Zint.Barcode.Data := MemoDados.text; arrumar depois // bc := TBitmap.create; // Zint.Barcode.GetBarcode(bc); // bc.SaveToFile('C:\Store_Protheus\PDV\xml\qrcode' + copy(ChaveNFCE, 4, 47) // + '.bmp'); // FreeAndNil(bc); ACBrNFe1.DANFE:=DanfeFast; DanfeFast.FastFile := 'C:\AthenasPDV\DANFE\DanfeNFCe3_50.fr3'; DanfeFast.Logo := edtLogoMarca; //ACBrNFeDANFCeFortes1.vTroco:=ed_troco.value; //ACBRDANFENFCe.vTroco := ed_troco.value; ACBRNFe1.NotasFiscais.Imprimir; ACBRNFe1.NotasFiscais.clear; if cStatus = 100 then nfce_autorizada := true else nfce_autorizada := false; except on e: exception do begin application.messagebox(pwidechar('Erro na geração da NFCE' + #13 + 'Erro: ' + e.Message), 'Erro', mb_ok + MB_ICONERROR); nfce_autorizada := false; vCodNFCe:=numeroNFCe; end; end; end; end;

nao estou conseguindo instalar o acbr, formatei o computador baixe os arquivos pelo Tortoise e acontece esse erro quando vou instalar segue anexo do log log.txt

3: begin if qrnota_item.fieldbyname('cst').asstring = '000' then ICMS.cst := cst00; if qrnota_item.fieldbyname('cst').asstring = '010' then ICMS.cst := cst10; if qrnota_item.fieldbyname('cst').asstring = '020' then ICMS.cst := cst20; if qrnota_item.fieldbyname('cst').asstring = '030' then ICMS.cst := cst30; if qrnota_item.fieldbyname('cst').asstring = '040' then ICMS.cst := cst40; if qrnota_item.fieldbyname('cst').asstring = '041' then ICMS.cst := cst41; if qrnota_item.fieldbyname('cst').asstring = '050' then ICMS.cst := cst50; if qrnota_item.fieldbyname('cst').asstring = '051' then ICMS.cst := cst51; if qrnota_item.fieldbyname('cst').asstring = '060' then ICMS.cst := cst60; if qrnota_item.fieldbyname('cst').asstring = '070' then ICMS.cst := cst70; if qrnota_item.fieldbyname('cst').asstring = '080' then ICMS.cst := cst80; if qrnota_item.fieldbyname('cst').asstring = '081' then ICMS.cst := cst81; if qrnota_item.fieldbyname('cst').asstring = '090' then ICMS.cst := cst90; ICMS.modBC := dbiPrecoTabelado; ICMS.pICMS := qrnota_item.fieldbyname('ICMS').asfloat; ICMS.vICMS := qrnota_item.fieldbyname('valor_icms').asfloat; ICMS.vBC := qrnota_item.fieldbyname('base_calculo').asfloat; ICMS.orig := oeNacional; IPI.cst := ipi00; IPI.clEnq := ''; IPI.cEnq := '999'; end; entao eu poderia criar aqui as regras para icmsufdest para CRT=3

ainda estou com duvida se crio o grupo ICMSUFdest ou faço isso dentro apenas do grupo ICMS?

pessoal tou precisando de uma ajuda, tou voando onde colocar FCP segue o anexo do meu codigo. GerarXMLFCP.txt

eu faço dessa forma if RDINHEIRO.Value >= Total.ICMSTot.vNF THEN begin with pag.Add do //PAGAMENTOS apenas para NFC-e begin tPag := fpDinheiro; vPag := RoundTo(Total.ICMSTot.vNF,-2); end; END; if RDINHEIRO.Value < Total.ICMSTot.vNF then BEGIN if rdinheiro.Value >0 then begin with pag.Add do begin tpag:=fpDinheiro; vpag:=RoundTo(rdinheiro.Value,-2); end; END; END; // Crediario da loja if RCREDIARIO.Value >0 THEN begin with pag.Add do //PAGAMENTOS apenas para NFC-e begin tpag:=fpCreditoLoja; vPag:=RoundTo(Total.ICMSTot.vNF - rdinheiro.value - rcartaocred.value - rcartaodeb.value - rchequeav.value,-2); end; end; if rcartaocred.value >0 then begin with pag.Add do begin tpag:=fpCartaoCredito; vpag:=RoundTo(Total.ICMSTot.vNF - rdinheiro.value - rcrediario.value - rcartaodeb.value - rchequeav.value,-2); end; end; if rcartaodeb.Value >0 then begin with pag.Add do begin tpag:=fpCartaoDebito; vpag:=RoundTo(Total.ICMSTot.vNF - rdinheiro.value - rcrediario.value - rcartaocred.value - rchequeav.value,-2); end; end; // meio cheque avista if rchequeav.Value >0 then begin //4 with pag.Add do //PAGAMENTOS apenas para NFC-e begin tpag:=fpCheque; vPag:=RoundTo(Total.ICMSTot.vNF - rdinheiro.value - rcrediario.value - rcartaodeb.value - rcartaocred.Value,-2); end; end;

Não tinha verificado, vou dar uma olhada, obrigado!!!

Quando importo o xml o codigo de barras vem dessa forma [07893299735073] , so que quando vou emitir uma NFe ou NFCe da Rejeição: codigo Ean invalido, alguem poderia me ajudar como remover esse zero(0) no codigo de barras. desde de já agradeço!

Fabio Neto, pra mim a única solução foi mudar para ESCPos, modo gráfico não tem jeito, não imprime toda a NFCe.

obrigado ! consegui resolver formatando o computador!!!

obriagado André Ferreira de Moraes so nao entendo quando mudo para 3.10 no ambiente de producao da erro de Codigo Hash invalido no qrcode, sendo que o IdCSC e o CSC estao corretos.

a Senha esta correta!

nao consigo conectar de forma alguma o certificado A1, fiz a instalacao via instalador Valid, instalei os novos certificados e nao vai de jeito nenhum. nao sei mais o que fazer porque ja tentei de tudo.

quando altero para ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL;ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL;ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL;ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec;

pessoal nao sei mais o que fazer, depois que instalei as novas cadeias simplismente o certificado A1 nao conecta, se coloco tipo documento fiscal 4.0 da erro interno:0 Erro http:500 se coloco modelo 3.10 da erro : codigo hash difere do calculo, sendo que o CSC e o Id estao corretos.

e a epson TM-20 ta configurada para 80x297mm

nao, a impressora corta!!!!

Pessoal, estou com um problema aqui em um cliente, que mostra o certificado digital no aplciativo adminstracao de token mas quando clico para mostrar a chve privada, simplismente nao aconte nada, nao mostra a chave privada. alguem poderia me dizer porque nao mostra chave privada se os drivers e cadeias estao instaladas.

eu uso assim e nao tenho problemas com certificado A1 nao, seja qual for a certificadora, passa normal aqui!

eu coloquei SSLib = LibCustom e ficou normal, com certificado A1 passa normal nao dar nenhum erro.

Obrigado Juliomar, era a uses que tinha esquecido de colocar.

pessoal desculpa se for ignorancia, mas nao conseguir entender esse erro ao compilar Undeclared identifier: 'TSSLType';

e o seguinte se o codigo de barras for assim 7894000010028 passa normal, mas se tiver 17894000010028 simplismente da erro, debuguei e la ta normal o codigo!

alguem pode me ajudar, ao importar um xml com acbr da esse erro no codigo de barras do produto 17894000010028䄀䴀䤀䐀伀 䴀䤀䰀䠀伀 䴀䄀䤀娀䔀一䄀 䌀堀䄀 ㄀ 堀 㐀 㔀 䜀 nao sei como aparece isso, ja que no xml esta normal o codigo!!!