ALIAS SCCRDUP
OUTROARQ SCCRCLI
OUTROARQ SF_VEND
VARIAVEL ZREC0 = RECNO()
VARIAVEL Z_DE = CTOD('01.'+SUBSTR(DTOC(DATE()),4))
VARIAVEL Z_ATE =  DATE()
VARIAVEL Z_VALTOT = 0
VARIAVEL z_tpd = ""

variavel pag := 0

COMANDO ANTES DBGOTOP()
COMANDO DURANTE SCCRCLI->(dBgOTO(SCCRDUP->CR_COD_CLI))
COMANDO DURANTE SF_VEND->(dBgOTO(VAL(SCCRCLI->CR_ZONA)))

T3,10,12,60,Parametros 
T3,2,Form.Pagto  ES CH CT CV CA NC BC :,2,z_tpd,xx
T4,2,Data Inicial.....................:,8,z_de,99.99.99 
T5,2,Data Final.......................:,8,z_ate,99.99.99 

COMANDO ANTES #TEXTO_FONTE

   PRIVATE zCmdsDurante, ZCODCLI

   oLst:lPortrait := .t.

   oLst:AddCab( {"style"=>"font:Helvetica", "COLS"=>"0,L"}, {|| "BUREAU DIGITAL - JP           Data do Relatorio: "+Dtoc(s_datual)+"           Pagina "+Str(++pag,4)+"   "} )
   oLst:AddCab( {"style"=>"font:Helvetica#size:2", "COLS"=>"0,L"}, " " )
   oLst:AddCab( {"style"=>"font:Helvetica-Bold#size:18", "COLS"=>"0,L"}, "VENDAS EM "+z_tpd )
   oLst:AddCab( {"style"=>"font:Courier-Oblique#size:12"}, {|| "De "+Dtoc(z_de)+" ate "+Dtoc(Z_ATE) })

   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

   oLst:AddCol('NumVenda;CR_NUM_PED;C;@S10;10;;') 
   oLst:AddCol('TpV;CR_tip_dup;C;XX; 3;;') 
   oLst:AddCol('DtEmis;cr_dt_emis;D;99.99.9999;10;;')
   oLst:AddCol('Valor;cr_valor;N;@E 999,999.99;10,2;;;Direita;Some;Imprima;cr_valor;')
   oLst:AddCol('CodVend;CR_zona;C;XX; 7;;') 
   oLst:AddCol('Cliente;sccrcli->cr_nome;P;@s40;40;;;Esquerda;NaoSome;Imprima;;')
   oLst:AddCol('Vendedor;sf_vend->nome;P;@s10;10;;;Esquerda;NaoSome;Imprima;;')
   // oLst:AddCol('Usuario;LOWER(CR_usuario);C;@s8; 8;;') 

   BLOCO_TXT zCmdsDurante
      sccrcli->(DbGoto(SCCRDUP->cr-cod_cli))
      sf_vend->(DbGoto(Val(SCCRDUP->CR_zona)))
      Z_VALTOT+=cr_valor
   FIM_BLOCO_TXT

   oLst:DbEval( zCmdsDurante, {||cr_dt_emis>=z_de.and.cr_dt_emis<=z_ate.and.cr_tip_dup=z_tpd} )

   oLst:AddRodape( '_LINHA_FINA_', "", {|| "Pagina "+Str(++pag,4)+" / ####"} )

   oLst:PrtD( '_LINHA_FINA_' )
   olst:PrtD( {"style"=>"font:Courier-BoldOblique#size:12"},    eval_line("Total das Vendas: [z_valtot @e 9999,999.99]") )

#FIM_TEXTO_FONTE
COMANDO DEPOIS DBGOTO(ZREC0)