alias HELP
COMANDO ANTES #TEXTO_FONTE
   Private oQbe, m_fCli, pag:=0, lFgOk_AbrePrt:=.f.
   DbCloseAll()
   ABRA("0NOIDX", r_siga, "sccrcli", "sccrcli")
   ABRA("0NOIDX", r_siga, "sccrlqd", "sccrlqd")
   
   oQbe:=oQbe():New('_lqd')
   oQbe:AddFiltro("2;3;Periodo das Quitacoes..:", {||cr_dt_lqd}  ,,,{'DeAte',Ctod(''),Ctod('')})
   oQbe:AddFiltro("3;3;So Quitacoes do Cliente:", {||cr_cod_cli} ,,,{'psq_brow','psq_brow();sccrcli;psccrcli;N;N;3;35;cr_nome;@s20;',0,'999999',""} ,,, 'm_fCli')
   oQbe:AddFiltro("4;2;Tipos de Quitacoes:", { ;
                      {'&1. Lista Todas as Quitacoes        ', {||.t.} } ,;
                      {'&2. Somente as Quitacoes Totais     ', {||cr_tip_dup="QT".and.cr_val_lqd>0} } ,;
                      {'&3. So Quitacoes Totais c/ Prejuizo ', {||cr_tip_dup="QT".and.cr_val_lqd=0} } ,;
                      {'&4. Somente as Quitacoes por Cupons ', {||cr_tip_dup="QC"} } ,;
                      {'&5. Somente as Quitacoes Parciais   ', {||cr_tip_dup="QP"} }  ;
                      } )
   if .not. oQbe:QuickDialog("Qbe_LstSccrLqd", "56;10;Quitacoes Totais/Parciais", /*aFieldsDaTela*/, {||lFgOk_AbrePrt:=ABRE_PRT("12",.T.),.t.}/*bDestroy*/) .or. !lFgOk_AbrePrt
      DbCloseAll()
      Return .f.
   endif

   oLst:cAlias_DataCols := '_lqd'
   oLst:cAliasMaster := '_lqd'
   oLst:lPortrait := .t.
   oLst:lOutputPdf := .t.
   // oLst:lOutputFr3 := .t.

   oLst:Cab1( "Quitacoes Totais/Parciais de um Periodo")
   oLst:Cab4('_LINHA_FINA_',"Impressao em "+Dtoc(s_datual)+" as "+time())
   se !empty(oQbe:ExpressaoDeFiltragemParaImprimir) entao (oLst:AddCab( "" ) , oLst:Cab4( oQbe:ExpressaoDeFiltragemParaImprimir ))
  
   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

   oLst:AddCol('Qt;cr_num_ped;C;@S10;10;;')
   oLst:AddCol('Data;cr_DATA;D;;8;;')
   oLst:AddCol('Hora;cr_HORA;C;xx:xx;5;;')
   oLst:AddCol('Situacao;if(cr_tip_dup="QC","QCupom  ",if(cr_tip_dup="QT",if(cr_val_lqd=0,"QtPrejuizo","QTotal  "),"QParcial"));P;@S10;10;;;Direita;NaoSome;')
   oLst:AddCol('CodCli;CR_COD_CLI;N;999999;6;;;Direita;NaoSome;')
   oLst:AddCol('Cliente;(sccrcli->(DbGoTo(sccrlqd->CR_COD_CLI),cr_nome));P;@S25;25;;;Esquerda;NaoSome;')
   
   oLst:AddCol('Debito\nNa Data;cr_valor;N;@E 99999,999.99;12;;;Direita;Some;')
   oLst:AddCol('Valor\nQuitado;cr_val_lqd;N;@E 99999,999.99;12;;;Direita;Some;')
   oLst:AddCol('Saldo\nApos Quit;if(cr_tip_dup="QT",0,if(cr_valor>cr_val_lqd,cr_valor-cr_val_lqd,0));P;@E 99999,999.99;12;;;Direita;Some;')

   oLst:AddCol('Usuario;cr_usuario;C;@S8;8;;')
   oLst:AddCol('Obs;cr_usuario;C;@S15;15;;')

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

   SccrLqd->(dbGoTop(), oLst:dbEval(,{||oQbe:Filtro_Ok()}))

   oLst:PrtD( '_LINHA_GROSSA_' )
   oLst:lFecharGruposAbertos := .t.
   oLst:SetFormatSomaCol(6, {||"** TOTAIS GERAIS "}, .t. /*Alterar Descricao do Totalizador Global*/)
   oLst:EvalLineBlocks('DETALHE', {"style"=>"font:Courier-BoldOblique"}, '_SOMACOLS_GLOBAL_' )

   oLst:Run()
   oLst:End()
   DbCloseAll()

#FIM_TEXTO_FONTE