Como fazer Fita Detalhe da mem fiscal em clipper para Bemate

[juniorcamilo]

Amigos tem como criar funcao para puchar (donWload) da Fita detalhe das impressoras Fiscais Bematech em clipper?

[Gilberto M Silva]

Vc já foi no site da Bematech? acredito que lá tem tudo sobre o PAF-ECF para sua impressora onde inclui esse relatório.

Código: Selecionar todos

    // Leitura da Memoria Fiscal

           setcolor( "N/BG,W+/R,,,,BG/N" )
           @ 09,25 clear to 12,43
           @ 09,25 to 12,43
           @ 10,26 prompt " Via ARQUIVO    "
           @ 11,26 prompt " Via IMPRESSORA "
           menu to opcao
           do case

              case opcao = 1

                   // Via Arquivo

                   arquivo := fcreate("LEITURA.TXT")
                   fim     := " "
                   buffer := ""
                   data_inicial := data_final := space( 08 )
                   set color to
                   set color to w+/gr
                   @ 11,30 clear to 14,54
                   @ 11,30 to 14,54
                   @ 12,31 say "Data Inicial:" get data_inicial pict "99/99/99"
                   @ 13,31 say "Data Final..:" get data_final   pict "99/99/99"
                   read
                   set color to w*
                   @ 16,31 say "Aguarde... o arquivo est  sendo criado."

                   data_inicial := substr( data_inicial, 1, 2 )+substr( data_inicial, 4, 2 )+substr( data_inicial, 7, 2 )
                   data_final   := substr( data_final, 1, 2 )+substr( data_final, 4, 2 )+substr( data_final, 7, 2 )
                   Comando      := Chr( 27 )+Chr( 251 )+"08|"+data_inicial+"|"+data_final+"|R|"+Chr( 27 )
                   FWrite( Porta, @Comando, Len( Comando ) )

                   Do While .T.
                      FRead( Porta, @Fim, 1 )
                      buffer = buffer + fim
                      If Transform( Asc( Fim ), "999" ) = "  3"
                         Exit
                      EndIf
                   EndDo

                   set color to
                   @ 16,31 say space( 40 )
                   FWrite( arquivo, buffer, len(buffer) )
                   set color to
                   set color to w+/b
                   @ 13,09 clear to 16,59
                   @ 13,09 to 16,59
                   @ 14,11 say "O arquivo gerado foi LEITURA.TXT com o conte£do"
                   @ 15,11 say "da Mem¢ria Fiscal. Pressione qualquer tecla..."
                   inkey( 0 )

              case opcao = 2

                   // Via ImpressÆo
                   
                   data_inicial := data_final := space( 08 )
                   set color to
                   set color to w+/gr
                   @ 11,30 clear to 14,54
                   @ 11,30 to 14,54
                   @ 12,31 say "Data Inicial:" get data_inicial pict "99/99/99"
                   @ 13,31 say "Data Final..:" get data_final   pict "99/99/99"
                   read
                   data_inicial := substr( data_inicial, 1, 2 )+substr( data_inicial, 4, 2 )+substr( data_inicial, 7, 2 )
                   data_final   := substr( data_final, 1, 2 )+substr( data_final, 4, 2 )+substr( data_final, 7, 2 )
                   Comando      := Chr( 27 )+Chr( 251 )+"08|"+data_inicial+"|"+data_final+"|I|"+Chr( 27 )
                   FWrite( Porta, @Comando, Len( Comando ) )
                   ver_status()

              

           endcase

[juniorcamilo]

Vc já foi no site da Bematech? acredito que lá tem tudo sobre o PAF-ECF para sua impressora onde inclui esse relatório.

Valeu Gilberto, mas em minha pergunta acho que nao fui claro, quero dizer a fitadetalhe venda a venda com os itens!?

[anacatacombs]

Meu caro, não sei se tem como não.
Até aonde eu sei, tem como fazer a leitura da memoria fiscal da impressora, mas como um "espelho do cupom" .. sai o totalizador diário, tipo o resumo da redução Z.
Qual modelo da impressora?
Existe alguma outra forma de resolver o problema sem precisar retirar esses dados da impressora?

[pena]

bom dia, tem sim como fazer, ele cria um arquivo txt com tudo que foi impresso na ecf.

[pena]

só mais um detalhe, foi + ou -, o que aconteceu comigo, em um cliente, deu pau no servidor, eles perderam as vendas de todo um dia, pela fita detalhe é meio complicado de conseguir obter esses dados, mas na bematech que era o meu caso, tem uma função que gera o sintegra, o que fiz foi gerar este arquivo e a partir dele consegui relançar os cupons, pelo menos os produtos, e pela fita detalhe, o cliente foi analisando caso a caso, para ver se tinha venda no crediario neste dia, ae foi so entrar nestes cupons e informar o cliente e o prazo.