Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3888 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Olá pessoal!

 

 

Agradeço qualquer ajuda.

Estou fazendo a seguinte rotina para fechar um cupom cuja forma de pagamento é CONVENIO (vinculado = true):

 

  if desconto.AsCurrency > 0 then
  begin
    vDesconto := desconto.AsCurrency * (-1);
    frm_principal.ACBrECF.SubtotalizaCupom(vDesconto,'Desconto Adicional');
  end
  else
    frm_principal.ACBrECF.SubtotalizaCupom;
 
  if frm_principal.ACBrECF.Estado = estPagamento then
  begin
    with dm.qry_a do
    begin
      SQL.Clear;
      SQL.Add('select codigo, vinculado, descricao from formapgto order by sequencia');
      Open;
 
      First;
      while not Eof do
      begin
        dm.cdsPagamento.First;
        valorPagamento := 0;
        while not dm.cdsPagamento.Eof do
        begin
          if dm.cdsPagamentoForma.AsInteger = FieldByName('codigo').AsInteger then
          begin
            valorPagamento := valorPagamento + dm.cdsPagamentoValorPago.AsCurrency;
            frm_principal.ACBrECF.LerTotaisFormaPagamento;
            FPgto := frm_principal.ACBrECF.AchaFPGDescricao(FieldByName('descricao').AsString);
 
            dm.cdsPagamento.Edit;
            dm.cdsPagamentoIndice.Value := FPgto.Indice;  
            dm.cdsPagamento.Post;
          end;
 
          dm.cdsPagamento.Next;
        end;
 
        if valorPagamento > 0 then
          frm_principal.ACBrECF.EfetuaPagamento(FPgto.Indice,valorPagamento,'',FPgto.PermiteVinculado);
 
        Next;
      end;
    end;
 
    // informações que devem ir no rodapé do cupom obrigatoriamente conforme a legislação do paf-ecf
    // preencha somente as informações que for utilizar, o que não foi informado não será impresso
    Observacao := InformaLocalEntrega;
 
//     frm_principal.ACBrECF.InfoRodapeCupom.MD5 := '12345678901234567890123456789012';
//     frm_principal.ACBrECF.InfoRodapeCupom.Dav := '0000000001';
//     frm_principal.ACBrECF.InfoRodapeCupom.DavOs := '0000000002';
 
    // Se o pargamento é de uma Pré Venda, informa o codigo dela no Cupom FIscal
    if (blnPreVenda) and (CodigoPedido > 0) then
    begin
      CodigoPreVenda := CapturarCodigoPreVenda(CodigoPedido);
      frm_principal.ACBrECF.InfoRodapeCupom.PreVenda := InsertZeros(CodigoPreVenda,10);
    end;
 
    // Para atender a especificação do requisito X do ATOCOTEPE v2.01
    UFdoEstabelecimento := BuscaUFdoEstabelecimento;
    frm_principal.ACBrECF.InfoRodapeCupom.CupomMania           := UFdoEstabelecimento = 'RJ';
    frm_principal.ACBrECF.InfoRodapeCupom.MinasLegal           := UFdoEstabelecimento = 'MG';
    frm_principal.ACBrECF.InfoRodapeCupom.ParaibaLegal         := UFdoEstabelecimento = 'PB';
    frm_principal.ACBrECF.InfoRodapeCupom.NotaLegalDF.Imprimir := UFdoEstabelecimento = 'DF';
 
    if frm_principal.ACBrECF.InfoRodapeCupom.NotaLegalDF.Imprimir then
    begin
      frm_principal.ACBrECF.InfoRodapeCupom.NotaLegalDF.ProgramaDeCredito := True;
      frm_principal.ACBrECF.InfoRodapeCupom.NotaLegalDF.ValorICMS := 123456.99;
      frm_principal.ACBrECF.InfoRodapeCupom.NotaLegalDF.ValorISS  := 123456.88;
    end;
 
    // lei 12.741/2013 transparencia dos impostos
    // frm_principal.ACBrECF.InfoRodapeCupom.Imposto.Texto := '...'; utilize essa propriedade se quiser personalizar o texto exemplo: Valor impostos %s (%s %) meu texto
    frm_principal.ACBrECF.InfoRodapeCupom.Imposto.ValorAproximado := vIBPT;  // informar o valor aproximado calculado a partir dos itens
    frm_principal.ACBrECF.InfoRodapeCupom.Imposto.Fonte           := 'IBPT'; // informar a fonte de onde veio a informação para calculo
 
    // ER 02.01 - Requisito XXVIII item 8
//    frm_principal.ACBrECF.InfoRodapeCupom.NF := '123456';
 
 
    // Valida texto de observações a ser impresso
    Observacao := StringReplace(Observacao,'|',#10,[rfReplaceAll,rfIgnoreCase]);
 
    // Fecha o Cupom Fiscal
    frm_principal.ACBrECF.FechaCupom(Observacao,0);
 
 
Esta funcionando sem problemas nas outras formas de pagamento, menos quando é convênio. Aparece o seguinte erro: 
 
Erro na sequencia do fechamento do cupom fiscal
Erro estendido (120 -> Não em fase de finalização de documento)
 
Segue o arquivo de log abaixo. OBS.: O problema aparece nessa linha (-- 19:30:27:229 FechaCupom)
 
-- 19:29:37:121 Estado
                TX -> [FS]R[200]056[181]
   19:29:37:161 RX <- :[200]0560[CR][252]
-- 19:29:37:161 
                TX -> [GS][ACK][ESC]
   19:29:37:242 RX <- :0030B88000C100[CR]
-- 19:29:37:975 AbreCupom( , ,  )
                TX -> [FS]R[200]078[185]
   19:29:38:069 RX <- :[200]078DR0811BR000000295971 [CR][239]
-- 19:29:38:084 GrandeTotal
                TX -> [FS]R[200]001[183]
   19:29:38:162 RX <- :[200]001000000000116345419[CR]
-- 19:29:38:162 
                TX -> [FS]F[200][255][255][255]m
   19:29:38:584 RX <- :0000000[200]064720055981[CR][200]
-- 19:29:38:584 NumSerie
                TX -> [FS]R[200]078[185]
   19:29:38:662 RX <- :[200]078DR0811BR000000295971 [CR][239]
-- 19:29:38:662 MF Adicional
                TX -> [FS]R[200]078[185]
   19:29:38:771 RX <- :[200]078DR0811BR000000295971 [CR][239]
-- 19:29:38:771 DataHoraSB
                TX -> [FS]R[200]085[187]
   19:29:38:849 RX <- :[200]08528102011080125[CR][197]
-- 19:29:38:849 DataHoraSB
                TX -> [FS]R[200]085[187]
   19:29:38:958 RX <- :[200]08528102011080125[CR][197]
-- 19:29:38:958 SubModeloECF
                TX -> [FS]R[200]094[187]
   19:29:39:020 RX <- :[200]09401[CR]
-- 19:29:39:020 NumCRZ
                TX -> [FS]R[200]024[176]
   19:29:39:098 RX <- :[200]0240624[CR][201]
-- 19:29:39:098 NumCRO
                TX -> [FS]R[200]023[183]
   19:29:39:145 RX <- :[200]023001[CR][255]
-- 19:29:39:145 NumGNF
                TX -> [FS]R[200]028[188]
   19:29:39:208 RX <- :[200]028007281[CR][201]
-- 19:29:39:223 NumGRG
                TX -> [FS]R[200]033[182]
   19:29:39:270 RX <- :[200]033002452[CR][206]
-- 19:29:39:270 NumCDC
                TX -> [FS]R[200]045[183]
   19:29:39:332 RX <- :[200]0450010[CR][207]
-- 19:29:39:332 NumCFC
                TX -> [FS]R[200]039[188]
   19:29:39:395 RX <- :[200]0390021[CR][198]
-- 19:29:39:457 Estado
                TX -> [FS]R[200]056[181]
   19:29:39:535 RX <- :[200]0561[CR][253]
-- 19:29:39:535 
                TX -> [FS]R[200]057[180]
   19:29:39:598 RX <- :[200]0571[CR][252]
-- 19:29:39:598 NumGNF
                TX -> [FS]R[200]028[188]
   19:29:39:660 RX <- :[200]028007281[CR][201]
-- 19:29:39:660 NumECF
                TX -> [FS]R[200]078[185]
   19:29:39:754 RX <- :[200]078DR0811BR000000295971 [CR][239]
-- 19:29:39:785 Estado
                TX -> [FS]R[200]056[181]
   19:29:39:863 RX <- :[200]0561[CR][253]
-- 19:29:39:863 
                TX -> [FS]R[200]057[180]
   19:29:39:925 RX <- :[200]0571[CR][252]
-- 19:29:39:925 Estado
                TX -> [FS]R[200]056[181]
   19:29:39:988 RX <- :[200]0561[CR][253]
-- 19:29:39:988 
                TX -> [FS]R[200]057[180]
   19:29:40:034 RX <- :[200]0571[CR][252]
-- 19:29:40:034 VendeItem( 544 , PRIVINA ADULTO 1% 15ML , FF , 1 , 6,51 , 5 , FR , % , D , -1 )
                TX -> [FS]F[207]1700010000000065100000000000018544           FR TPRIVINA ADULTO 1% 15ML[255]N
   19:29:40:253 RX <- :0000000[207]001000000000651[CR][251]
-- 19:29:40:253 
                TX -> [FS]F[202]001005000000000[164]
   19:29:40:518 RX <- :0000000[202]001000000000619[CR][242]
-- 19:29:40:518 GrandeTotal
                TX -> [FS]R[200]001[183]
   19:29:40:752 RX <- :[200]001000000000116346070[CR]
-- 19:29:40:970 Estado
                TX -> [FS]R[200]056[181]
   19:29:41:017 RX <- :[200]0561[CR][253]
-- 19:29:41:017 
                TX -> [FS]R[200]057[180]
   19:29:41:080 RX <- :[200]0571[CR][252]
-- 19:29:41:080 Estado
                TX -> [FS]R[200]056[181]
   19:29:41:142 RX <- :[200]0561[CR][253]
-- 19:29:41:142 
                TX -> [FS]R[200]057[180]
   19:29:41:204 RX <- :[200]0571[CR][252]
-- 19:29:45:884 Estado
                TX -> [FS]R[200]056[181]
   19:29:45:947 RX <- :[200]0561[CR][253]
-- 19:29:45:947 
                TX -> [FS]R[200]057[180]
   19:29:46:009 RX <- :[200]0571[CR][252]
-- 19:29:46:009 Estado
                TX -> [FS]R[200]056[181]
   19:29:46:072 RX <- :[200]0561[CR][253]
-- 19:29:46:072 
                TX -> [FS]R[200]057[180]
   19:29:46:134 RX <- :[200]0571[CR][252]
-- 19:29:46:134 VendeItem( 3813 , TYLENOL SINUS C/24 CPR , FF , 1 , 13,4 , 5 , CX , % , D , -1 )
                TX -> [FS]F[207]17000100000001340000000000000183813          CX TTYLENOL SINUS C/24 CPR[255]$
   19:29:46:337 RX <- :0000000[207]002000000001340[CR][252]
-- 19:29:46:337 
                TX -> [FS]F[202]002005000000000[167]
   19:29:46:618 RX <- :0000000[202]002000000001273[CR][248]
-- 19:29:46:618 GrandeTotal
                TX -> [FS]R[200]001[183]
   19:29:46:836 RX <- :[200]001000000000116347410[CR]
-- 19:29:46:914 Estado
                TX -> [FS]R[200]056[181]
   19:29:46:961 RX <- :[200]0561[CR][253]
-- 19:29:46:961 
                TX -> [FS]R[200]057[180]
   19:29:47:023 RX <- :[200]0571[CR][252]
-- 19:29:47:023 Estado
                TX -> [FS]R[200]056[181]
   19:29:47:086 RX <- :[200]0561[CR][253]
-- 19:29:47:086 
                TX -> [FS]R[200]057[180]
   19:29:47:148 RX <- :[200]0571[CR][252]
-- 19:29:52:493 Estado
                TX -> [FS]R[200]056[181]
   19:29:52:540 RX <- :[200]0561[CR][253]
-- 19:29:52:540 
                TX -> [FS]R[200]057[180]
   19:29:52:602 RX <- :[200]0571[CR][252]
-- 19:29:52:602 Estado
                TX -> [FS]R[200]056[181]
   19:29:52:665 RX <- :[200]0561[CR][253]
-- 19:29:52:665 
                TX -> [FS]R[200]057[180]
   19:29:52:727 RX <- :[200]0571[CR][252]
-- 19:29:52:727 VendeItem( 836 , APAR.PROBAK II C/2 UNID , FF , 1 , 2,09 , 0 , UN , % , D , -1 )
                TX -> [FS]F[207]1700010000000020900000000000018836           UN TAPAR.PROBAK II C/2 UNID[255]l
   19:29:52:930 RX <- :0000000[207]003000000000209[CR][240]
-- 19:29:52:930 GrandeTotal
                TX -> [FS]R[200]001[183]
   19:29:53:164 RX <- :[200]001000000000116347619[CR]
-- 19:29:53:242 Estado
                TX -> [FS]R[200]056[181]
   19:29:53:289 RX <- :[200]0561[CR][253]
-- 19:29:53:289 
                TX -> [FS]R[200]057[180]
   19:29:53:336 RX <- :[200]0571[CR][252]
-- 19:29:53:336 Estado
                TX -> [FS]R[200]056[181]
   19:29:53:398 RX <- :[200]0561[CR][253]
-- 19:29:53:398 
                TX -> [FS]R[200]057[180]
   19:29:53:460 RX <- :[200]0571[CR][252]
-- 19:30:02:425 Estado
                TX -> [FS]R[200]056[181]
   19:30:02:472 RX <- :[200]0561[CR][253]
-- 19:30:02:472 
                TX -> [FS]R[200]057[180]
   19:30:02:518 RX <- :[200]0571[CR][252]
-- 19:30:02:518 Estado
                TX -> [FS]R[200]056[181]
   19:30:02:581 RX <- :[200]0561[CR][253]
-- 19:30:02:581 
                TX -> [FS]R[200]057[180]
   19:30:02:643 RX <- :[200]0571[CR][252]
-- 19:30:02:643 VendeItem( 1635 , NEOSULIDA 100MG C/12 CPR              NQ , FF , 1 , 20,08 , 19,92 , CX , % , D , -1 )
                TX -> [FS]F[207]17000100000002008000000000000181635          CX TNEOSULIDA 100MG C/12 CPR              NQ[255]X
   19:30:02:846 RX <- :0000000[207]004000000002008[CR][246]
-- 19:30:02:846 
                TX -> [FS]F[202]004019920000000[167]
   19:30:03:127 RX <- :0000000[202]004000000001609[CR][247]
-- 19:30:03:127 GrandeTotal
                TX -> [FS]R[200]001[183]
   19:30:03:361 RX <- :[200]001000000000116349627[CR]
-- 19:30:03:439 Estado
                TX -> [FS]R[200]056[181]
   19:30:03:486 RX <- :[200]0561[CR][253]
-- 19:30:03:486 
                TX -> [FS]R[200]057[180]
   19:30:03:548 RX <- :[200]0571[CR][252]
-- 19:30:03:548 Estado
                TX -> [FS]R[200]056[181]
   19:30:03:595 RX <- :[200]0561[CR][253]
-- 19:30:03:610 
                TX -> [FS]R[200]057[180]
   19:30:03:657 RX <- :[200]0571[CR][252]
-- 19:30:05:482 Estado
                TX -> [FS]R[200]056[181]
   19:30:05:560 RX <- :[200]0561[CR][253]
-- 19:30:05:560 
                TX -> [FS]R[200]057[180]
   19:30:05:623 RX <- :[200]0571[CR][252]
-- 19:30:05:654 Estado
                TX -> [FS]R[200]056[181]
   19:30:05:716 RX <- :[200]0561[CR][253]
-- 19:30:05:716 
                TX -> [FS]R[200]057[180]
   19:30:05:779 RX <- :[200]0571[CR][252]
-- 19:30:24:795 Estado
                TX -> [FS]R[200]056[181]
   19:30:24:842 RX <- :[200]0561[CR][253]
-- 19:30:24:842 
                TX -> [FS]R[200]057[180]
   19:30:24:904 RX <- :[200]0571[CR][252]
-- 19:30:24:904 SubtotalizaCupom( 0 ,  )
                TX -> [FS]F[206]1000000000000[165]
   19:30:24:998 RX <- :0000000[206]000000003710[CR][204]
-- 19:30:24:998 Estado
                TX -> [FS]R[200]056[181]
   19:30:25:060 RX <- :[200]0561[CR][253]
-- 19:30:25:060 
                TX -> [FS]R[200]057[180]
   19:30:25:123 RX <- :[200]0573[CR][254]
-- 19:30:25:123 LerTotaisFormaPagamento
                TX -> [FS]R[201]00901[191]
   19:30:25:216 RX <- :[201]0090000000324595[CR][251]
-- 19:30:25:216 
                TX -> [FS]R[201]00902[188]
   19:30:25:310 RX <- :[201]0090000000000000[CR][247]
-- 19:30:25:310 
                TX -> [FS]R[201]00903[189]
   19:30:25:419 RX <- :[201]0090000000000000[CR][247]
-- 19:30:25:419 
                TX -> [FS]R[201]00904[186]
   19:30:25:513 RX <- :[201]0090000000000000[CR][247]
-- 19:30:25:513 
                TX -> [FS]R[201]00905[187]
   19:30:25:606 RX <- :[201]0090000000000000[CR][247]
-- 19:30:25:606 
                TX -> [FS]R[201]00906[184]
   19:30:25:716 RX <- :[201]0090000000000000[CR][247]
-- 19:30:25:716 
                TX -> [FS]R[201]00907[185]
   19:30:25:809 RX <- :[201]0090000000000000[CR][247]
-- 19:30:25:809 
                TX -> [FS]R[201]00908[182]
   19:30:25:918 RX <- :[201]0090000000016767[CR][246]
-- 19:30:25:918 
                TX -> [FS]R[201]00909[183]
   19:30:26:012 RX <- :[201]0090000000044851[CR][251]
-- 19:30:26:012 
                TX -> [FS]R[201]00910[191]
   19:30:26:106 RX <- :[201]0090000000000000[CR][247]
-- 19:30:26:106 
                TX -> [FS]R[201]01001[183]
   19:30:26:215 RX <- :[201]0100000000000000[CR][255]
-- 19:30:26:215 
                TX -> [FS]R[201]01002[180]
   19:30:26:308 RX <- :[201]0100000000050000[CR][250]
-- 19:30:26:308 
                TX -> [FS]R[201]01003[181]
   19:30:26:418 RX <- :[201]0100000000000000[CR][255]
-- 19:30:26:418 
                TX -> [FS]R[201]01004[178]
   19:30:26:511 RX <- :[201]0100000000000000[CR][255]
-- 19:30:26:511 
                TX -> [FS]R[201]01101[182]
   19:30:26:589 RX <- :[201]0110000[CR][206]
-- 19:30:26:589 
                TX -> [FS]R[201]01102[181]
   19:30:26:652 RX <- :[201]0110002[CR][204]
-- 19:30:26:652 
                TX -> [FS]R[201]01103[180]
   19:30:26:714 RX <- :[201]0110000[CR][206]
-- 19:30:26:714 
                TX -> [FS]R[201]01104[179]
   19:30:26:776 RX <- :[201]0110000[CR][206]
-- 19:30:26:776 EfetuaPagamento( 04 , 25 , , -1, 0 )
                TX -> [FS]F[209]04000000002500[255]w
   19:30:26:886 RX <- :0000000[209]+000000001210[CR][255]
-- 19:30:26:886 IE
                TX -> [FS]R[200]091[190]
   19:30:27:135 RX <- :[200]09116.118.606-8        [CR][221]
-- 19:30:27:135 DataHora
                TX -> [FS]R[200]066[182]
   19:30:27:229 RX <- :[200]06602042014193026[CR][193]
-- 19:30:27:229 FechaCupom( PARA[205]BA LEGAL [150] RECEITA CIDAD[195][LF]TORPEDO PREMIADO: 161186068 02042014 064720 3710[CR][LF]Val.Aprox.Impostos R$7,75(20,89%) Fonte:IBPT[LF] )
                TX -> [FS]F[210]0PARA[205]BA LEGAL - RECEITA CIDAD[195][CR][LF]TORPEDO PREMIADO: 161186068 02042014 064720 3710[CR][CR][LF]Val.Aprox.Impostos R$7,75(20,89%) Fonte:IBPT[CR][LF][255]r
Daruma: Falha no Envio do CMD. Tentativa: 1 - Erro: 39 - Estendido: 120 -> Meio de pagamento já programado Cod.Aviso: 0
   19:30:27:650 RX <- :3912000[210]000000000000000000[CR][220]
----------------- ERRO -----------------
Erro retornado pela Impressora: Daruma
 
Erro na sequência de fechamento do cupom fiscal
Erro estendido (120 -> Não em fase de finalização de documento)
----------------------------------------
 
-- 19:31:04:510 Estado
                TX -> [FS]R[200]056[181]
   19:31:04:557 RX <- :[200]0561[CR][253]
-- 19:31:04:557 
                TX -> [FS]R[200]057[180]
   19:31:04:614 RX <- :[200]0573[CR][254]
-- 19:31:04:614 SubtotalizaCupom( 0 ,  )
                TX -> [FS]F[206]1000000000000[165]
Daruma: Falha no Envio do CMD. Tentativa: 1 - Erro: 39 - Estendido: 115 -> Meio de pagamento já programado Cod.Aviso: 0
   19:31:04:714 RX <- :3911500[206]000000000000[CR][198]
----------------- ERRO -----------------
Erro retornado pela Impressora: Daruma
 
Erro na sequência de fechamento do cupom fiscal
Erro estendido (115 -> Não em fase de venda ou totalização)
----------------------------------------
 
-- 19:31:07:324 Estado
                TX -> [FS]R[200]056[181]
   19:31:07:371 RX <- :[200]0561[CR][253]
-- 19:31:07:371 
                TX -> [FS]R[200]057[180]
   19:31:07:434 RX <- :[200]0573[CR][254]
-- 19:31:07:777 Estado
                TX -> [FS]R[200]056[181]
   19:31:07:839 RX <- :[200]0561[CR][253]
-- 19:31:07:839 
                TX -> [FS]R[200]057[180]
   19:31:07:902 RX <- :[200]0573[CR][254]
 
 
Postado

No outro post, meu problema era quando ia imprimir o cupom vinculado.

 

Depois de um tempo vi que o problema era outo, daí abri esse post, pois o problema esta na finalização do cupom, que por consequência esta influenciando no funcionamento do vinculado.

 

Peço desculpas por isso.

 

Estou com o sistema funcionando e dando problemas.

 

Me dá uma ajuda por favor.

  • Fundadores
Postado

O Subtotal do Cupom é de R$ 37,10

 

 
-- 19:30:24:904 SubtotalizaCupom( 0 ,  )
                TX -> [FS]F[206]1000000000000[165]
   19:30:24:998 RX <- :0000000[206]000000003710[CR][204]

 

 

 

e você só enviou um Pagamento de R$ 25,00 no Indice 04

 

-- 19:30:26:776 EfetuaPagamento( 04 , 25 , , -1, 0 )

                TX -> [FS]F[209]04000000002500[255]w

   19:30:26:886 RX <- :0000000[209]+000000001210[CR][255]

 

 

Logo após vc está tentando Fechar o Cupom... É lógico que o ECF não permitirá, pois você não efetuou todos os pagamentos necessários

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

  • Este tópico foi criado há 3888 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.