PC Toledo

telar := savescreen(00,00,24,79)
@ 06,15 to 16,37
use canal index canal.ntx
dbedit(07,16,15,36,{"CANAL"})
if lastkey() = 27
close databases
restscreen(00,00,24,79,telar)
return
endif
e_cod := codigo
e_cred := canal
close databases
restscreen(00,00,24,79,telar)
if lastkey() = 27
close databases
restscreen(00,00,24,79,telar)
return
endif

** COMECEI AQUI O PROCESSO **

c_normal()
set console off
set printer on
set printer to c.txt
? e_cred
? dtoc(c_data)
set printer to
set printer off
set console on
set device to screen
f_mes := month(c_data)
f_ano := year(c_data)
centro("RELATORIO DE COMISSAO DO MES",04)
c_erro()
pos := 0
delete file c:\comissao\fechamto.dbf ** SEMPRE APAGO A BASE DE DADOS ANTIGA **
use comissao index comixd.ntx new
dbgotop()
copy structure to fechamto ** CRIO DE NOVO A BASE ESPELHO PARA TRABALHAR SEGURO **

** PREENCHIMENTO DO ARQUIVO ESPELHO COM OS DADOS A SEREM EXPORTADOS. AQUI VC MUDA DE ACORDO COM AS CONDIÇÕES QUE VC VAI PRECISAR. NO MEU CASO ERA O APENAS OS DADOS DO MES E ANO CORRENTE **

do while !eof()
pos++
if ((month(comissao->data) = f_mes) .and. (year(comissao->data) = f_ano))
use fechamto new
append blank
replace fechamto->data with comissao->data
replace fechamto->inscricao with comissao->inscricao
replace fechamto->telefone with comissao->telefone
replace fechamto->planoatual with comissao->planoatual
replace fechamto->apaatual with comissao->apaatual
replace fechamto->serialatua with comissao->serialatua
replace fechamto->nota with comissao->nota
replace fechamto->notamae with comissao->notamae
replace fechamto->planonovo with comissao->planonovo
replace fechamto->apanovo with comissao->apanovo
replace fechamto->serialnovo with comissao->serialnovo
replace fechamto->brindei with comissao->brindei
replace fechamto->brindet with comissao->brindet
replace fechamto->desconto with comissao->desconto
replace fechamto->apanosso with comissao->apanosso
replace fechamto->tipocomiss with comissao->tipocomiss
replace fechamto->observacao with comissao->observacao
replace fechamto->gerado with comissao->gerado
replace fechamto->vendedor with comissao->vendedor

close fechamto
endif

** FUNÇÃOZINHA PRA MOSTRAR A PORCENTAGEM DA EXPORTAÇÃO NA TELA... **

select comissao
percent3 := ltrim(str((pos/lastrec()) * 100))
@ 18,03 clear to 20,39
@ 18,03 to 20,39
@ 19,04 say "Gerando Arquivo..." + percent3 + "% concluido" ** ACABA AQUI A FUNÇÃO DA PORCENTAGEM ... **
dbskip()
enddo
close databases
set console off
set console on
delete file c:\comissao\relat\comparc.txt
delete file c:\comissao\fechai.ntx

** MUDO O DESTINO PARA UM ARQUIVO, COMO SE FOSSE UMA IMPRESSORA ***

set console off
set printer on
set printer to c:\comissao\relat\comparc.txt
use fechamto.dbf
index on data to fechai.ntx
close databases

** NO MEU CASO, CRIEI ESSE CABEÇALHO NO ARQUIVO, JÁ SEPARADO POR VIRGULAS, COM OS CAMPOS. PRA IMPORTAR NO EXCEL DEPOIS FICA TETA !!! **

? "DATA,INSCRICAO,TELEFONE,PLANO ATUAL,APARELHO ATUAL,SERIA ATUAL,NOTA,NOTA MAE,PLANO NOVO,APARELHO NOVO,SERIAL NOVO,INSCRICAO BRINDE, TELEFONE BRINDE, DESCONTO, APARELHO DA SERCOMTEL ?,COMISSAO,OBSERVACAO,JÁ GERADO ?, VENDEDOR"

** ABRO O ARQUIVO ESPELHO, QUE TEM APENAS OS DADOS QUE PASSARAM PELA CONDIÇÃO LÁ EM CIMA **

use fechamto.dbf index fechai
do while !eof()

** "IMPRIMO ELE INTEIRO PRO ARQUIVO. AÍ OS NOMES SÃO OS NOMES DOS CAMPOS DO MEU DBF, ONDE ENTRE CADA UM, COLOCO UMA ",". FIZ COM "," O SEPARADOS... AI VC MUDA PRO QUE QUISER... **


? data,",",inscricao,",",telefone,",",planoatual,",",apaatual,",",serialatua,",",nota;
,",",notamae,",",planonovo,",",apanovo,",",serialnovo,",",brindei,",",brindet;
,",",desconto,",",apanosso,",",tipocomiss,",",observacao,",",gerado,",",vendedor
dbskip()
enddo
set printer to
set printer off
set console on
public relcom := 1
do calcula.prg
delete file c:\comissao\fechamto.dbf
restscreen(00,00,24,79,telar)

return