ALIAS CR_RECFX

VARIAVEL #TEXTO_FONTE
   Private zCli, zbFor, zFg, vOpcoes, wOpt:=1, zaLines:={}, zCodVnd, zCodPrep, z_rot:=0, zQtdCli:=0, z_totrec:=0, zoProgressBar, zCmdsDurante, zCmdsDepois, zVndNome, zPrepNome

   vOpcoes := { {'&1. Lista TODOS os aditivos',1},{'&2. So os DIGITALIZADOS',2},{'&3. So os NAO DIGITALIZADOS',3} }
   aAdd( zaLines, {"1;2;Aditivos a Listar:","@wOpt", @wOpt,  "9", "", "RADIOGROUP vOpcoes" } )

   if .not. QuickDialog("cr_recfx_ged", "41;5;Posicao dos Adigitos", zaLines)
      sccrcli->(DbCloseArea())
      Return .f.
   endif

zbFor:={||cr_valor>0.and.(zCli:=cr_cod_cli,sccrcli->( DbGoto(zCli),zFg:=Ged_Files("locacao","ADITIVO",Cr_Cgc,Cr_RecFx->fNum),.t.)).and.(wOpt=1.or.(wOpt=2.and.zFg).or.(wOpt=3.and.!zFg))}

   oLst:cAlias_DataCols := 'cr_recfx'
   oLst:lPortrait  := .t.

   oLst:Cab1( "POSICAO DA DIGITALIZACAO DE ADITIVOS" )
   oLst:Cab4( "Filtro: "+Substr(vOpcoes[wOpt,1],5), "Listagem em "+Dtoc(s_datual)+" as "+time() )
  
   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

   // oLst:AddCol('St;sccrcli->cr_situaca;P;X;2;;')
   oLst:AddCol('Cli;Cr_Cod_Cli;N;999999;6;;')
   oLst:AddCol('Raz.Social;sccrcli->Cr_Nome;P;@s35;35;;') 
   oLst:AddCol('Fantasia;sccrcli->Cr_fantasi;P;@s20;20;;') 
   oLst:AddCol('CNPJ;FormataCnpjCpf(sccrcli->CR_CGC);P;@s18;18;;') 

   oLst:AddCol('Valor;cr_valor;N;@e 99,999.99;9;;;Direita;Some;')
   oLst:AddCol('DtRetorno;Cr_dataini;N;99.99.9999;10;;')
   oLst:AddCol('Digitalizado;if(zFg,"Sim","Nao");P;XXX;12;;')

   BLOCO_TXT zCmdsDurante
      (zCli:=Cr_Cod_Cli , zCodVnd:=Val(cr_zona), zCodPrep:=Preposto, z_totrec+=cr_valor, ++zQtdCli)
   FIM_BLOCO_TXT

   debugalert('2')

   cr_recfx->( DbGoTop(), oLst:DbEval(zCmdsDurante, zbFor) )

   debugalert('3')

   oLst:lFecharGruposAbertos := .t.
   oLst:SetFormatSomaCol(2, {||"** Receitas Cadastradas:"+Str(zQtdCli,4)}, .t.)
   oLst:EvalLineBlocks('DETALHE', '_LINHA_GROSSA_')
   oLst:EvalLineBlocks('DETALHE', {"style"=>"font:Courier-BoldOblique"}, '_SOMACOLS_GLOBAL_' )

   debugalert('4')
 
#FIM_TEXTO_FONTE