Código: Selecionar todos
if (cresp1 = "V") // nao funciona
set print to arqtemp.txt
elseif (cresp1 = "A") // ok
set print to arqtemp.txt
elseif (cresp1 = "I") // ok
set print to printer
endif
if (LastKey() == 27)
close databases
return
endif
impress()
goto top
mens("Aguarde IMPRIMINDO Relatorio de Clientes...")
set device to printer
setprc(0, 0)
do while (.T.)
pag++
@ 00,00 say chr(15)
@ PRow() + 1, 0 say "DATA..: " + DToC(Date())
@ PRow(), 0 say "DATA..: " + DToC(Date())
@ PRow(), 40 say "RELATORIO DE CLIENTE POR CODIGO - De: a "
@ PRow(), 40 say "RELATORIO DE CLIENTE POR CODIGO - De: a "
@ PRow(), 78 say strzero(m_cod1, 4, 0)
@ PRow(), 78 say strzero(m_cod1, 4, 0)
@ PRow(), 85 say strzero(m_cod2, 4, 0)
@ PRow(), 85 say strzero(m_cod2, 4, 0)
@ PRow(), 122 say "PAG..: " + strzero(pag, 3, 0)
@ PRow(), 122 say "PAG..: " + strzero(pag, 3, 0)
empresa(3)
@ PRow() + 1, 0 say Replicate("-", 133)
@ PRow(), 0 say Replicate("-", 133)
@ PRow() + 1, 0 say "CODIGO NOME/ENDERECO BAIRRO/CIDADE CEP /UF FONE/FAX CGC/Ins.Estadual"
@ PRow() , 0 say "CODIGO NOME/ENDERECO BAIRRO/CIDADE CEP /UF FONE/FAX CGC/Ins.Estadual"
@ PRow() + 1, 0 say Replicate("-", 133)
@ PRow(), 0 say Replicate("-", 133)
do while (!EOF() .AND. PRow() <= 59)
@ PRow() + 1, 1 say strzero(cod, 4, 0)
@ PRow(), 7 say emp
@ PRow(), 48 say bai
@ PRow(), 74 say cep
@ PRow(), 91 say fon
@ PRow(), 108 say cgc
@ PRow() + 1, 7 say end
@ PRow(), 48 say cid
@ PRow(), 85 say est
@ PRow(), 91 say fax
@ PRow(), 108 say ins
@ PRow() + 1, 0 say Replicate("-", 133)
skip
enddo
eject
@ 0, 0 say " "
if (EOF())
set device to screen
close databases
return
endif
enddo
enddo
set print to printer
if (cresp1 = "V") // nao funciona
edicao("arqtemp.txt")
endif
(5, 6, 20, 75, restscreen:= tecli)
return
