Hetosoft Sistemas

Estou gerando o brcode asim Form_NFe.ACBrNFe1.NotasFiscais.Clear; Form_NFe.ACBrNFe1.NotasFiscais.LoadFromFile(RAIZ+'\SQL_PDV\NFe\EnvioDeResposta\'+chave+'-nfe.xml'); if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then URL := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?' else URL := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?'; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then tpAmb := '1' else tpAmb := '2'; cDest := Iif(Length(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, ''); Memo1.Lines.Clear; Memo1.Text := URL + 'chNFe=' + Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe + '&nVersao=' + '100' + '&tpAmb=' + tpAmb + Iif((Length(cDest) > 0),('&cDest=' + cDest), '') + '&dhEmi=' + StringToHex(DateTimeTodhUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) + '&vNF=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) + '&vICMS=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) + '&digVal=' + StringToHex(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) + '&cIdToken=' + tokem; Hash_SHA1 := Form_NFe.ACBrEAD1.CalcularHash(UTF8Encode(Memo1.Text), dgstSHA1); Memo1.Text := Memo1.Text + '&cHashQRCode=' + Hash_SHA1; Barcode2D_QRCode1.Barcode:= Memo1.Text; //////////////////////// e a nota off assim Form_NFe.ACBrNFe1.Configuracoes.Geral.FormaEmissao := teOffLine; Ide.tpEmis := teOffLine; Ide.dhCont := Now; Ide.xJust := 'Problemas Técnicos'; quando consutlo nao mostra nada na consulta é claro ainda nao ta na sefaz, mais quando envior blz, nao era para o mesmo qrcode , mostrar o conteudo na conulta da sefaz. se eu manda imprmir o qrcode pelo novo xml enviado ai da certo.

Coloco a data como coloco na nf-e mais ta dando esse erro. with Form_NFe.ACBrNFe1.NotasFiscais.Add.NFe do begin Ide.cNF := StrToInt(NumNFe); //Caso não seja preenchido será gerado um número aleatório pelo componente Ide.natOp := 'VENDA'; Ide.indPag := ipVista; Ide.modelo := 65; Ide.serie := StrToInt(Serie); Ide.nNF := StrToInt(NumNFe); Ide.dEmi := StrToDate( DM.Client_CUPOMDATA.Text ); //now; Ide.dSaiEnt := StrToDate( DM.Client_CUPOMDATA.Text ); //now; Ide.hSaiEnt := Now; mais ta dando esse erro. Rejeiicao: NFC-e com data-hora de emissao atrasada

Faço uma nfc-e do tipo emissao offline, ate ai blz, a nfc-e ainda nao ta na sefaz, so que quero cancelar o cupom o que eu faço? Executo o comando ... Form_NFe.ACBrNFe1.Enviar(vNumLote,False,Sincrono); e depois Cancelamento NFe com XML ou tem outra auternativa. o que fazer com o xml assinado e validado.?

Estou emplantando em meu PDV a nfc-e qual o melhor status para eu saber que nfc-e foi autorizada ou nao para eu poder finalizar o cupom ou deixar em aberto para tenta de novo. ACBrNFe1.Enviar(vNumLote,True,Sincrono); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS); LoadXML(MemoResp, WBResposta); MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF)); MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo); MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg)); MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo); // MemoDados.Lines.Add('cStat: '+ ACBrNFe1.WebServices.Retorno.NFeRetorno; { ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].tpAmb ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].verAplic ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].dhRecbto ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].digVal ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].cStat ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo } tipo se atutorizado finalizar o cupom se nao mostra messagem do erro para o cleinte. obrigado pela atencao.

Erro quando usor Imprimir DANFE usando NFC-e em contigencia (off) quando nfc-e normal ele abre o dandfe em folha A4. Fis outra post porque nao pode anexar dois arquivos blz.

Usei esses mesmo dados na nota 7 no nodo normal que envia direto, e deu certo. ----depois---- verdade fiz a nota 9 com Prod.CFOP := '5102'; //'5101'; e deu certo, so na hora de IMPRIMIR DANFE da erro Sabendo que nem vou usar o danfe que vem pos é A4, mais so pra saber porque da erro quando é tipo teOffLine; OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then begin ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID; ACBrNFe1.WebServices.ConsultaDPEC.Executar; ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC); end; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.NotasFiscais.Imprimir; end; pos a nfc-e 7 que foi feito normal sem off a funcao imprimir danfe funciona erro 51131103953552000102650010000000089000000083-nfe.xml

certo blz, mais uma estou usando assim para off ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; GerarNFCeOFF(vAux); ACBrNFe1.NotasFiscais.Assinar; ACBrNFe1.NotasFiscais.Valida; ate ai blz quando envio ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); vNumLote:= '1'; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Enviar(vNumLote,True,True); DA ESSE ERRO Ambiente : 2 Versão Aplicativo : 3.00 Status Código : 716 Status Descrição : Rejeicao: NFC-e em operacao nao destinada a consumidor final UF : MT dhRecbto : 06/11/2013 12:35:41 chNFe : 51131103953552000102650010000000089000000083 vi que tem as opcoes Ide.indFinal := cfConsumidorFinal; Ide.indPres := pcPresencial; tenho que muda quando for OFF ?

Estou criando meu danfe da nfc-e pelo reportbuilder, tudo ok mais quando Ide.tpEmis := teOffLine; nao vem <nProt>151130000025703</nProt> tem algum problem o danfe quando for offline nao sair com Protocolo Atutorizacao?

Vamos lar, fiz um NFC-e em homologacao tudo ok abrir o xml via internet explorer -<protNFe versao="3.00">-<infProt><tpAmb>2</tpAmb><verAplic>3.00</verAplic><chNFe>51131103953552000102650010000000071000000072</chNFe><dhRecbto>2013-11-06T10:08:20</dhRecbto><nProt>151130000025703</nProt><digVal>89V4I4mmqAQiRALasSOf44x+9Uw=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo></infProt></protNFe></nfeProc> e o nProt ta preechido blz, quando uso umas das funcoes como Consultar carregando XML ou Cancelamento NFe com XML ele altera o xml que ta ok e tira o nProt da tag -<protNFe versao="2.00">-<infProt><tpAmb>2</tpAmb><verAplic>2.00</verAplic><chNFe>51131103953552000102650010000000071000000072</chNFe><dhRecbto/><nProt/><digVal/><cStat>701</cStat><xMotivo>Rejeicao: NF-e nao pode utilizar a versao 3.00 </xMotivo></infProt></protNFe></nfeProc> --------------------- descobrir --------------------------- coloquei a funcao Cancelamento NFe com XML ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.EnviarEventoNFe(StrToInt(idLote)); ai deu certo, eu pensava que so usava ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; para criar nfc-e, depois era atuomatico mais blz. Crieu uma funcaozinha para resolver seria isso mesmo? if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.verAplic='3.00' then begin ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; end else begin ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe; end;

brigadoooooooooooooooooooo.

certinho so outra duvida, // Valor Total dos Tributos imp.vTotTrib := RoundTo(DM_CNT.ConhecimentovTotTrib.AsFloat, -2); // Obs do Contribuinte if (imp.vTotTrib <> 0.0) then begin with compl.ObsCont.Add do begin xCampo := 'Lei da Transparencia'; xTexto := 'O valor aproximado de tributos incidentes sobre o preço deste servico e de R$ ' + FormatFloat('##0.00', imp.vTotTrib) + ' (' + FormatFloat('#0.00', DM_CNT.ConhecimentoAliqNBS.AsFloat) + '%) ' + 'Fonte: IBPT'; end; end; como fazer o do CT-e porque o da NF-e tenho uma tabela em ecxel que mostra os tributos somo e faço o calculo mais com ct-e nao tem produtos, eu pego o icms para fazer esse calculo ?

Atualizei os fontes do acbr e o cte que era 1.4 abilitei o 2.0 depois disso nao consigo mais compilar o projeto da erro na seguinte linha Erro: comando nao existe. with Rem.InfNF.Add do comando: case DM12.Client_CteNFTIPO.AsInteger of 1: begin with Rem.InfNF.Add do begin nRoma := ''; nPed := DM12.Client_CteNFNUMDOC.AsString; serie := DM12.Client_CteNFSER.AsString; nDoc := DM12.Client_CteNFNUMDOC.AsString; dEmi := DM12.Client_CteNFDATAEMISSAO.AsDateTime; vBC := 0; vICMS := 0; vBCST := 0; vST := 0; vProd := DM12.Client_CteNFVALORDOC.AsFloat; vNF := DM12.Client_CteNFVALORDOC.AsFloat; nCFOP := StrToInt(cfop); nPeso := 0; PIN := ''; end;

Aguardando resposta tambem

atualizei o acbr hoje de manha e deu erro ao compilar ACBr_BoletoFC_Quick fala que as dcu's RLFilters, RLPDFFilter nao existe na pasta, procurei os arquivos e nao achei, o que eu faço.

eu conseguir na verdade fis isso fCancelado:=False; //////////////////////////////////////////////////// 20 : begin if Mensagem = '' then Mensagem := 'CONFIRMA ?'; Resposta := ifThen( (DoExibeMsg( opmYesNo, Mensagem ) = mrYes), '0', '1' ) ; {Digitado := ( Resposta <> '1') ;} fCancelado:=False; end ; //Cabei de ser homologado na Certified CIELO e com Cielo Premia tive que fazer alguma modificacoes mais tudo ok. fazer com que o dinheiro sempre seja imprimirdo por ultimo na impressora fiscal desabilitei eta funcao opeImprimePagamentos : procedure TForm1TEFD.ACBrTEFD1ComandaECF(Operacao : TACBrTEFDOperacaoECF; Resp : TACBrTEFDResp; var RetornoECF : Integer ); Var Est : TACBrECFEstado ; P : Integer; Linha, CodFPG : String ; ValorFPG : Double ; begin Memo1.Lines.Add('ComandaECF: '+GetEnumName( TypeInfo(TACBrTEFDOperacaoECF), integer(Operacao) )); try Est := Form1_ACBrECF.ACBrECF1.Estado; case Operacao of opeAbreGerencial : Form1_ACBrECF.ACBrECF1.AbreRelatorioGerencial; opeCancelaCupom : if Est = estNaoFiscal then begin Form1_ACBrECF.ACBrECF1.CancelaNaoFiscal; end else begin Form1_ACBrECF.ACBrECF1.CancelaCupom;//2 Form_PDV.Cancelar_Cupom_REGISTROS_TefFim(-1); end; opeFechaCupom : if Est = estNaoFiscal then Form1_ACBrECF.ACBrECF1.FechaNaoFiscal('') //'Projeto ACBr|http://acbr.sf.net' else begin Form_PDV.Finalizar_ACBrECF_Memo; Form1_ACBrECF.ACBrECF1.FechaCupom( Form_PDV.DBMemo2.Text); //'Projeto ACBr|http://acbr.sf.net' end; opeSubTotalizaCupom : if Est = estNaoFiscal then Form1_ACBrECF.ACBrECF1.SubtotalizaNaoFiscal( 0, '' ) //'Projeto ACBr|http://acbr.sf.net' else Form1_ACBrECF.ACBrECF1.SubtotalizaCupom( 0, '' ); //'Projeto ACBr|http://acbr.sf.net' opeFechaGerencial, opeFechaVinculado : Form1_ACBrECF.ACBrECF1.FechaRelatorio ; opePulaLinhas : begin Form1_ACBrECF.ACBrECF1.PulaLinhas( Form1_ACBrECF.ACBrECF1.LinhasEntreCupons ); Form1_ACBrECF.ACBrECF1.CortaPapel( True ); //Sleep(200); end; opeImprimePagamentos : begin {while mPagamentos.Lines.Count > 0 do begin Linha := mPagamentos.Lines[0] ; P := pos('|',Linha) ; if P > 0 then begin CodFPG := Trim(copy(Linha,1,P-1)) ; ValorFPG := StringToFloatDef( copy(Linha, P+1, Length(Linha) ), 0 ); ShowMessage(CodFPG+' - '+FloatToStr(ValorFPG)); if (CodFPG <> '') and (ValorFPG > 0) then Form1_ACBrECF.ACBrECF1.EfetuaPagamento( CodFPG, ValorFPG ); end; mPagamentos.Lines.Delete(0); end; } end; end; RetornoECF := 1 ; except RetornoECF := 0 ; end; end; //E COLOQUEI AQUI 'P' : begin if not AutoEfetuarPagamento then procedure TACBrTEFD.FinalizarCupom(DesbloquearMouseTecladoNoTermino: Boolean); Var I, J, Ordem : Integer; Est, EstNaoFiscal : AnsiChar; ImpressaoOk : Boolean ; GrupoFPG : TACBrTEFDArrayGrupoRespostasPendentes ; P : Integer; Linha, CodFPG : String ; ValorFPG : Double ; begin ImpressaoOk := False ; fTefClass.GravaLog( 'FinalizarCupom'+IfThen(DesbloquearMouseTecladoNoTermino, ', DesbloquearMouseTecladoNoTermino','') ) ; try while not ImpressaoOk do begin try BloquearMouseTeclado( True ); try EstNaoFiscal := 'N'; Est := EstadoECF; while Est <> 'L' do begin // É não fiscal ? Se SIM, vamos passar por todas as fases... if Est = 'N' then begin case EstNaoFiscal of 'N' : EstNaoFiscal := 'V' ; 'V' : EstNaoFiscal := 'P' ; 'P' : EstNaoFiscal := 'N' ; end ; Est := EstNaoFiscal ; end ; try Case Est of 'V' : ECFSubtotaliza( RespostasPendentes.TotalDesconto ); 'P' : begin if not AutoEfetuarPagamento then begin //FORMAS TEF GrupoFPG := nil ; AgruparRespostasPendentes( GrupoFPG ); Ordem := 0 ; For I := 0 to Length( GrupoFPG )-1 do begin if GrupoFPG.OrdemPagamento = 0 then begin Inc( Ordem ) ; if InfoECFAsDouble(ineSubTotal) > 0 then ECFPagamento( GrupoFPG.IndiceFPG_ECF, GrupoFPG.Total ); For J := 0 to RespostasPendentes.Count-1 do if RespostasPendentes[J].IndiceFPG_ECF = GrupoFPG.IndiceFPG_ECF then begin if (RespostasPendentes[J].Header = 'CHQ') and CHQEmGerencial then begin RespostasPendentes[J].OrdemPagamento := 999; Dec( Ordem ) ; end else RespostasPendentes[J].OrdemPagamento := Ordem; end; end else Ordem := GrupoFPG.OrdemPagamento ; end; if vTEFDjaExPag<>1 then begin ////////////////////////////////////// //FORMA NAO TEF while Form1TEFD.mPagamentos.Lines.Count > 0 do begin Linha := Form1TEFD.mPagamentos.Lines[0] ; P := pos('|',Linha) ; if P > 0 then begin CodFPG := Trim(copy(Linha,1,P-1)) ; ValorFPG := StringToFloatDef( copy(Linha, P+1, Length(Linha) ), 0 ); if (CodFPG <> '') and (ValorFPG > 0) then begin //Form1_ACBrECF.ACBrECF1.EfetuaPagamento( CodFPG, ValorFPG ); //ShowMessage('desligue a impressora'); vTEFDjaExPag:=1; ECFPagamento( CodFPG, ValorFPG ); end; end; Form1TEFD.mPagamentos.Lines.Delete(0); end; ////////////////////////////////////// end; end;

desculpe se eu falei alguma bobagem, mais agora to precisando muito de vcs, estou em sp e ontem foi aprovado na softwareexpress tef dll sitef e estou aqui na certified e to travado em uma questao, quando eu chamo um crt escolho o cartao debito ou credito vem a messagem insira ou passe o cartao neste momento clico em CancelarResp mostrar a messagem 13 - Operacao Cancelada? clico em Nao em vem de continuar esperando o cartao ser inserido fica em lupe na messagem 13 - Operacao Cancelada? Sim / Nao se eu aperta sim, blz cancela tudo, mais se eu aperta Nao nao para na messagem insira ou passe o cartao e sim mostra de novo a messagem 13 - Operacao Cancelada? Sim / Nao o que devo fazer testei tambem no demo acbrtefd e ta a mesma coisa.

engraçado fui homologado com Autoefetuarpagamento como true acho o comentario Você precisará rever sua lógica de programação... equivocado, deveriam respeita mais os mebros do forum. nao sou contribuidor para ficar ouvindo isso. estou aqui para tirar duvidas, se eu fosse iqual a vc nao taria aqui no forum e sim dando consultoria com mais respeito.

eu optei por AutoEfetuarPagamento com isso o pagamento de cartao nao mostra no memu mPagamentos entao como vou opnar qual pagamento imprimir primeiro, sabendo que o acbrtefd imprimi sempre o cartao por ultimo ? ---------fis umas mudanca so pra homologa amanha na serverPDV sitef ------------- desabilitei em procedure TForm1TEFD.ACBrTEFD1ComandaECF( opeImprimePagamentos : begin { desabilitei while mPagamentos.Lines.Count > 0 do begin Linha := mPagamentos.Lines[0] ; P := pos('|',Linha) ; if P > 0 then begin CodFPG := Trim(copy(Linha,1,P-1)) ; ValorFPG := StringToFloatDef( copy(Linha, P+1, Length(Linha) ), 0 ); ShowMessage(CodFPG+' - '+FloatToStr(ValorFPG)); if (CodFPG <> '') and (ValorFPG > 0) then Form1_ACBrECF.ACBrECF1.EfetuaPagamento( CodFPG, ValorFPG ); end; mPagamentos.Lines.Delete(0); end; } desabilitei end; ///////////////// e adicionei em procedure TACBrTEFD.FinalizarCupom( 'P' : begin if not AutoEfetuarPagamento then begin //FORMAS TEF GrupoFPG := nil ; AgruparRespostasPendentes( GrupoFPG ); Ordem := 0 ; For I := 0 to Length( GrupoFPG )-1 do begin if GrupoFPG.OrdemPagamento = 0 then begin Inc( Ordem ) ; if InfoECFAsDouble(ineSubTotal) > 0 then ECFPagamento( GrupoFPG.IndiceFPG_ECF, GrupoFPG.Total ); For J := 0 to RespostasPendentes.Count-1 do if RespostasPendentes[J].IndiceFPG_ECF = GrupoFPG.IndiceFPG_ECF then begin if (RespostasPendentes[J].Header = 'CHQ') and CHQEmGerencial then begin RespostasPendentes[J].OrdemPagamento := 999; Dec( Ordem ) ; end else RespostasPendentes[J].OrdemPagamento := Ordem; end; end else Ordem := GrupoFPG.OrdemPagamento ; end; ////////////////////////////////////// //FORMA NAO TEF while Form1TEFD.mPagamentos.Lines.Count > 0 do begin Linha := Form1TEFD.mPagamentos.Lines[0] ; P := pos('|',Linha) ; if P > 0 then begin CodFPG := Trim(copy(Linha,1,P-1)) ; ValorFPG := StringToFloatDef( copy(Linha, P+1, Length(Linha) ), 0 ); if (CodFPG <> '') and (ValorFPG > 0) then //Form1_ACBrECF.ACBrECF1.EfetuaPagamento( CodFPG, ValorFPG ); //ShowMessage('desligue a impressora'); ECFPagamento( CodFPG, ValorFPG ); end; Form1TEFD.mPagamentos.Lines.Delete(0); end; ////////////////////////////////////// end; if (InfoECFAsDouble(ineSubTotal) > 0) then begin if (InfoECFAsDouble(ineTotalAPagar,0) > 0) then begin ComandarECF( opeImprimePagamentos ) ; if InfoECFAsDouble(ineSubTotal) > 0 then Break; end else Break; end ; ComandarECF( opeFechaCupom ) end ; //////////////////////////////////////////////////////// Com isso fis com que a forma de pagamento DINHEIRO SEMPRE FIQUE NA ULTIMA POSICAO DA IMPRESSORA FISCAL EX: CARTAO DINHEIRO mais depois queria saber a forma certa para isso, sai de cuiaba para sao paulo e quase fiquei sem ser aprovado so por causa disso, que sufoco.

Estou em sao paulo homologando o sitef, e aqui no serverPDV pede que a forma de pagamento DINHEIRO sempre fique na ultima posicao do cupom ex CARTAO DINHEIRO mesmo que eu passa primiero o dinheiro e depois o cartao o dinheiro sempre tem que aparece por ultimo, como façor isso , esotu usando o ACBRTEFD coloco o primeiro dinheiro 01|2,00 no mPagamento e depois cartao 02|3,00 como façor para no cupom imprimir o dinheiro por ultimo, sabendo qu eestou usando a funcao Autoefetuarpagamento, muito obrigado pela atencao estou aqui na server PDV

resolvir fazendo isso if key = vk_F1 then begin BitBtn3.Click; end;

concordo com vc mais vamos lar, dia 11 to indo para sao paulo para homologa o sitef e esotu usando o componete acbrtef ok, e estou com um grande problema, nas telas Exibe Menu e Obtem Campo, eles tem 3 botoes com &Ok &Cancelar &Repetir ate ai nada de mais, mias no roterio pré-homologacao pedi para voltar a tela que dizer o botao &Repetir sabendo que a tecla de atalho é Alt+R blz, volta a tela mais não funciona mais o TECLADO porque a telca Alt fica fixada virtualmente, pra volta ao normal tenho que aperta a tecla Alt de novo, minha primeira pertuta foi tem como usa em vez de & os atalhos F, para nao da esse problema de Alt fica precionado (sabendo que nao é teclado velho pos usei 3 novos), tentei usar os atalho F1 no okkeydown mais nao encontrei a funcao que esta em cada botao do form Exibe Menu queria assim if vk_f1 then begin a funcao do botao Voltar end; com isso vou tira o & do atalho de cada botao &Ok &Cancelar &Repetir obrigado pela atencoa, espero ter esplicado bem.

No tef tem os botaoes OK, CANCELAR, REPETIR Com os atalhos Alt+O Alt+C Alt+R tentei colocar F1, F2, F3 como atalho mais nao conceguir pos acbr usar o status do botal OK, CANCELAR, REPETIR como façor para cololar os atalhos F1 para OK e ect no evento onkeydow obrigado pela atencao.

Eu tambem estou com o mesmo problema, a messagem é download concluido . nais o nome fica Arquivo.exe.part e mesmo renomeando ele nao tem conteudo tamanho 0kb o que devo fazer ja coloquei o bufferSize de varios tambanho e nada.

BLZ porque ate o codigo do Servico: tava a variavel e nao o cod 01.05 / Licednciamento ou cessao de idreito de uso de programas de computacao

posso voltar as pasta fontes da versao anteriro que tem a pasta D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3