ALIAS SCCRCLI
INDEX SCCRNOM CR_NOME
VARIAVEL #TEXTO_FONTE
   Private zMeses:=12, zFgListaEnderecos:=.f., zFgEmails:=.f., zbFor, zDe:=Ctod('01.'+SubStr(Dtoc(S_DATUAL),4)), pag:=0, zQtd:=0, ztEmi:=0,ztVc:=0,ztAv:=0,ztAvHoje:=0,zdtUltima:=Ctod('')
   if .not. QuickDialog("CliSemRecompra", "50;7;Informe Parametros", {;
            {"2;5;Numero de Meses sem Recompra:", "@zMeses", @zMeses, "9999", "", "(zDe:=S_DATUAL-zMeses*30,RefreshGetlist())"},;
            {"3;5;ou Sem Recompra desde a Data:", "@zDe", @zDe, "99.99.9999", "", ""},;
            {"5;5;CHECKBOX 'Lista Enderecos ?'", "@zFgListaEnderecos", @zFgListaEnderecos, "9", "", ""},;
            {"6;5;CHECKBOX 'Lista Emails    ?'", "@zFgEmails", @zFgEmails, "9", "", ""} })
      Return
   endif
   // zbFor := {|| DebCli(sccrcli->(if(cr_cod_cli=0,Recno(),cr_cod_cli)),.f.,.f.,@ztEmi,@ztVc,@ztAv,@ztAvHoje,,,,,,,,@zdtUltima), zdtUltima<=zDe}
   sccrcli->( ABRA("0NOIDX", r_siga, "SCCRDUP", "SCCRDUP", "SCCRDUP", "STRZERO(CR_COD_CLI,6) + DTOS(CR_DT_EMIS)"))
   // zbFor := {|| zdtUltima:=Ctod(''), DebCli(sccrcli->(Recno()),.f.,.f.,@ztEmi,@ztVc,@ztAv,@ztAvHoje,,,,,,,,@zdtUltima), zdtUltima<=zDe}
   zbFor := {|| zdtUltima:=Ctod(''), DebCli(sccrcli->(Recno()),.f.,.f.,@ztEmi,@ztVc,@ztAv,@ztAvHoje,,,,,,,,@zdtUltima), zdtUltima:=if(zdtUltima>sccrcli->cr_dt_ulti,zdtUltima,sccrcli->cr_dt_ulti), Day(zdtUltima)>0.and.zdtUltima<=zDe}
   
   // oLst:AddCol('Ord;++zQtd;P;9999;4;N;')
   oLst:AddCol('CodCli;Cr_Cod_Cli;N;999999;6;N;')
   oLst:AddCol('Nome;Cr_nome;C;@s35;35;N;')

   oLst:AddCol('DtUltima;zdtUltima;P;@S10;10;N;;')

   oLst:AddCol('Compras;ztEmi;P;999999.99;9;N;;')
   oLst:AddCol('Vencidas;ztVc;P;999999.99;9;N;;')
   oLst:AddCol('A_Vencer;ztAv;P;999999.99;9;N;;')

   oLst:AddCol('Aniv;LEFT(DTOC(cR_DT_ANI),5);P;XXXXX;5;N;')
   oLst:AddCol('Apelido;Cr_Fantasi;C;@s20;20;N;')
   oLst:AddCol('Fones;Cr_fone;C;@s30;30;N;')
   se zFgEmails entao oLst:AddCol('Email;Cr_eMail;C;@s40;40;N;')
   if zFgListaEnderecos
      oLst:AddCol('Rua;Cr_rua;C;@s25;20;N;')
      oLst:AddCol('Cidade;Cr_cidade;C;@s20;25;N;')
      oLst:AddCol('Bairro;Cr_bairro;C;@s12;12;S;')
      oLst:AddCol('CEP;Cr_CEP;C;@s9;9;N;')
      oLst:AddCol('UF;Cr_UF;C;xx;2;N;')
   endif

   oLst:Cab1( "CLIENTES SEM RECOMPRA DESDE "+dtoc(zDe)+" - "+lTrim(Str(S_DATUAL-zDe,10))+" dias" )
   oLst:Cab4( "Impressao em "+dtoc(date())+" as "+time()  )

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

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

   SccrCli->( DbGoTop(), oLst:DbEval(,zbFor) )
   SccrDup->( DbCloseArea() )

   oLst:Run()
   oLst:End()

#FIM_TEXTO_FONTE

//https://www.youtube.com/watch?v=AiGcBkGy1lU		aoe ii
//https://www.youtube.com/watch?v=lfLlu4fg4Q4		aoe iii
