Como fazer Fita Detalhe da mem fiscal em clipper para Bemate
Enviado: 21 Set 2011 06:57
Amigos tem como criar funcao para puchar (donWload) da Fita detalhe das impressoras Fiscais Bematech em clipper?
Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/
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
Valeu Gilberto, mas em minha pergunta acho que nao fui claro, quero dizer a fitadetalhe venda a venda com os itens!?Gilberto M Silva escreveu:Vc já foi no site da Bematech? acredito que lá tem tudo sobre o PAF-ECF para sua impressora onde inclui esse relatório.