ALIAS CONCILIA

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 PAGAR, em "+Dtoc(s_datual)+" as "+time()  )
  
   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

   oLst:AddCol('Lj;fLoja;N;99;2;;')
   oLst:AddCol('Fantasia;fantforn(CP_COD_FOR);P;@s20;20;;') 
   oLst:AddCol('Dt.Emiss;cp_dt_emis;D;@s20;20;;') 
   oLst:AddCol('Val_Emiss;cp_valor;N;@e 999,999.99;10;;;Direita;Some;')
   oLst:AddCol('Dt.Venc;cp_dt_venc;D;99.99.9999;10;;') 
   oLst:AddCol('Dt.Lqd;cp_dt_lqd;D;99.99.9999;10;;') 
   oLst:AddCol('Val_Lqd;cp_val_lqd;N;@e 999,999.99;10;;;Direita;Some;')
   oLst:AddCol('Desc;cp_desc;C;@S20;20;;')
   oLst:AddCol('Div;cp_divisao;N;999;3;;')
   oLst:AddCol('C.Custo;cp_divis->(DbGoTo(concilia->cp_divisao),Desc);P;@S15;15;;')
   oLst:AddCol('SubDiv;cp_subdiv;C;99999;5;;')
   oLst:AddCol('Descricao;cp_subd->(if(DbSeek(concilia->cp_subdiv),Desc,"Diversos"));P;@S15;15;;')
//   oLst:AddCol('Duplic;cp_duplic;C;@S10;10;;')
//   oLst:AddCol('Pedido;cp_num_ped;C;@S10;10;;')

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

   BLOCO_TXT zCmdsDurante
      znemis   := znemis + 1 
      ZVALEMIS := ZVALEMIS + CP_VALOR 
      ZVALLQD  := ZVALLQD + IF(DAY(CP_DT_LQD)>0,CP_VAL_LQD,0) 
      znlqd  := znlqd + if(day(cp_dt_lqd)>0,1,0) 
      znlqdj := znlqdj+ if(day(cp_dt_lqd)>0.AND.CP_VAL_LQD>CP_VALOR,1,0) 
      znlqdd := znlqdd+ if(day(cp_dt_lqd)>0.AND.CP_VAL_LQD<CP_VALOR,1,0) 
      ZJUROS := ZJUROS + IF(DAY(CP_DT_LQD)>0.AND.CP_VAL_LQD>CP_VALOR, CP_VAL_LQD-CP_VALOR, 0 ) 
      ZDESCT := ZDESCT + IF(DAY(CP_DT_LQD)>0.AND.CP_VAL_LQD<CP_VALOR, CP_VALOR-CP_VAL_LQD, 0 ) 
   FIM_BLOCO_TXT

   debugalert('2')

   concilia->(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
