ALIAS SCCRDUP

VARIAVEL zvalemis = 0 
VARIAVEL zvallqd = 0 
VARIAVEL zjuros = 0 
VARIAVEL zdesct = 0 
VARIAVEL znemis = 0 
VARIAVEL znlqd = 0 
VARIAVEL znlqdj = 0 
VARIAVEL znlqdd = 0 
VARIAVEL zCmdsDurante = ""

VARIAVEL #TEXTO_FONTE
   
   oLst:lOutputPDF := .t.

   oLst:cAlias_DataCols := 'concilia'
   oLst:Cab1( "SELECAO DE TITULOS A RECEBER, em "+Dtoc(s_datual)+" as "+time()  )
  
   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

   oLst:AddCol('*;CP_Status;C;x;1;S;')
   oLst:AddCol('Cli;CR_COD_CLI;N;999999;6;N;')
   oLst:AddCol('NomeCli;eVal(zbCli,CR_COD_CLI);P;@S25;25;N;;')
   oLst:AddCol('TipoDoc;SxNomeFormaPag(CR_TIP_DUP);C;@S8;8;N;')
   oLst:AddCol('Val Emis;CR_VALOR;N;9999999.99;10;;;Direita;Some;')
   oLst:AddCol('Dt Emis;CR_DT_EMIS;D;99/99/9999; 10;N;')
   oLst:AddCol('Dt Venc;CR_DT_VENC;D;99/99/9999; 10;S;')
   oLst:AddCol('Dt Lqd;CR_DT_LQD;D;99/99/9999; 10;N;')
   oLst:AddCol('Val Lqd;CR_VAL_LQD;N;9999999.99; 10;;;Direita;Some;')
   oLst:AddCol('Obs;CR_OBS;C;@S15; 15;S;')
   oLst:AddCol('Controle;CR_NUM_PED;C;@S9;9;N;')
   oLst:AddCol('Td;CR_TIP_DUP;C;!!;  2;N;')
   oLst:AddCol('CFOP;CR_CFOP;C;XXXXX;5;N;')
   oLst:AddCol('L;CR_TIP_LQD;C;x;  1;N;')
   oLst:AddCol('J;CR_HA_JURO;C;x;  1;N;')
   oLst:AddCol('Vd;CR_ZONA;C;xx;  2;N;')
   oLst:AddCol('S;CR_SITUAC;C;x;  1;N;')
   oLst:AddCol('Pr;CR_LOCAL;C;xx;  2;N;')
   // oLst:AddCol('ChqCrt;CR_NUM_DOC;N;999999;  6;S;')
   // oLst:AddCol('Dt Chq;CR_DT_DOC;D;99/99/9999; 10;S;')
   // oLst:AddCol('CtoBco;banco;N;999999;  6;S;')
   // oLst:AddCol('NumFec;Si_NumFech;N;999999;6;N;')
   // oLst:AddCol('Cxa;Si_Caixa;N;999;3;N;')
   // oLst:AddCol('Descont;CR_DESCONT;N;9999999.99; 10;N;')
   // oLst:AddCol('Dt Ger;CR_DATA;D;;  8;N;')
   // oLst:AddCol('Hora Ger;CR_HORA;C;@S8;  8;N;')
   // oLst:AddCol('Us;CR_USUARIO;N;9;  1;N;')

   //   oLst:AddCol('Duplic;CR_duplic;C;@S10;10;;')
   //   oLst:AddCol('Pedido;CR_num_ped;C;@S10;10;;')

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

   BLOCO_TXT zCmdsDurante
      znemis   := znemis + 1 
      ZVALEMIS := ZVALEMIS + CR_VALOR 
      ZVALLQD  := ZVALLQD + IF(DAY(CR_DT_LQD)>0,CR_VAL_LQD,0) 
      znlqd  := znlqd + if(day(CR_dt_lqd)>0,1,0) 
      znlqdj := znlqdj+ if(day(CR_dt_lqd)>0.AND.CR_VAL_LQD>CR_VALOR,1,0) 
      znlqdd := znlqdd+ if(day(CR_dt_lqd)>0.AND.CR_VAL_LQD<CR_VALOR,1,0) 
      ZJUROS := ZJUROS + IF(DAY(CR_DT_LQD)>0.AND.CR_VAL_LQD>CR_VALOR, CR_VAL_LQD-CR_VALOR, 0 ) 
      ZDESCT := ZDESCT + IF(DAY(CR_DT_LQD)>0.AND.CR_VAL_LQD<CR_VALOR, CR_VALOR-CR_VAL_LQD, 0 ) 
   FIM_BLOCO_TXT

   debugalert('2')

   SCCRDUP->(DbGoTop(), oLst:DbEval(zCmdsDurante) )

   debugalert('3')

   oLst:lFecharGruposAbertos := .t.
   oLst:SetFormatSomaCol(2, {||"*Totais da Selecao"}, .t.)
   oLst:PrtD('_LINHA_GROSSA_')
   oLst:PrtD({"style"=>"font:Courier-BoldOblique"}, '_SOMACOLS_GLOBAL_' )
   oLst:PrtD('_LINHA_FINA_')
   oLst:PrtD('')
   
   debugalert('4')
   
   oLst:PrtD('Valor das Emissoes :      '+Transform(zvalemis,'@e 999,999,999.99')+'   (Ref a '+Str(znemis,4)+' titulos) ' )
   oLst:PrtD('Valor das Liquidacoes :   '+Transform(zvallqd, '@e 999,999,999.99')+'   (Ref a '+Str(znlqd,4)+' titulos) ' )
   oLst:PrtD('Valor em Aberto :         '+Transform(zvalemis-zvallqd, '@e 999,999,999.99')+'   (Ref a '+Str(znemis-znlqd,4)+' titulos) ' )
   oLst:PrtD('')
   oLst:PrtD('Juros Pagos :             '+Transform(zjuros , '@e 999,999,999.99')+'   (Ref a '+Str(znlqdj,4)+' titulos) ' )
   oLst:PrtD('Descontos Obtidos :       '+Transform(zdesct , '@e 999,999,999.99')+'   (Ref a '+Str(znlqdd,4)+' titulos) ' )

   debugalert('5')
 
#FIM_TEXTO_FONTE
