ALIAS SF_NFS
variavel pag := 1
COMANDO ANTES #TEXTO_FONTE
   Private lFgOk, wFgPrt, znOs:=0, aFieldsDaTela:={}, oQbe, wOptAbertas:=1, vOptAbertas:={ ;
            {'&1. TODAS as Faturas          ',1} ,;
            {'&2. Somente dos Adimplentes   ',2} ,;
            {'&3. Somente dos Inadimplentes ',3} }

   oQbe:=oQbe():New('nfs')
   aAdd( aFieldsDaTela, {"1;2;Selecao de NFS:","@wOptAbertas", @wOptAbertas,  "9", "", "RADIOGROUP vOptAbertas" } )
   oQbe:AddFiltro("6;3;Datas de Emissao:", {||fdataemi}    ,,,{'DeAte',Ctod(''),Ctod('')})
   oQbe:AddFiltro("7;3;Clientes  a Listar...:", {||cr_cod_cli}     ,, 'sccrcli;qbe_psccrcli', {'Todos','Alguns'})
   lFgOk := oQbe:QuickDialog("Qbe_Os", "79;12;Relatorio de NFS",aFieldsDaTela,{||wFgPrt:=ABRE_PRT("12",.T.),.t.}) 
   if !lFgOk .or. !wFgPrt
      Return .t.
   endif

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

   oLst:Cab1( "Relacao de NFs do Periodo")
   oLst:Cab4( "Impressao em "+Dtoc(s_datual)+" as "+time())
  
   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

   oLst:AddCol('CodCli;FCLI;N;999999;  6;;')
   oLst:AddCol('Nome_Cli;eval(zBlkCli,fcli);P;@s30;30;N;')
   oLst:AddCol('Emissao;FDATAEMI;D;;8;;')
   oLst:AddCol('Vencto;Cr_DT_VENC;D;;8;;')
   oLst:AddCol('Valor;FVAL;N;9999999.99;10;;')
   oLst:AddCol('Oper;Cr_Cfop;C;X.XXX;5;S;')
   //oLst:AddCol('Rem;FgRemessa;L;;3;N;')
   //oLst:AddCol('Fat;FgFatura;L;;3;N;')
   //oLst:AddCol('Bol;FgBoleto;L;;3;N;')
   //oLst:AddCol('Ret;FgRetorno;L;;3;;')
   //oLst:AddCol('Email;FgEmail;L;;5;N;')
   oLst:AddCol('Fatura;FNUMS;N;99999999;8;;')
   oLst:AddCol('Obra;fObra;N;999999;6;S;')
   oLst:AddCol('iObra;fObraNoCli;N;999;7;S;')
   oLst:AddCol('NomeObra;eVal(zbObra);P;@S25;25;S;')
   oLst:AddCol('Fantasia;eval(zBlkClif,fcli);P;@s30;20;N;')
   
   oLst:AddRodape( '_LINHA_FINA_', "", {|| "Pagina "+Str(++pag,4)+" / ####"} )
   debugalert('1')

   oLst:DbEval({||++znOs}, {||wOptAbertas=1 .or. (wOptAbertas=2.and.ztVc=0) .or. (wOptAbertas=3.and.ztVc>0) } ) 
   oLst:PrtD( '_LINHA_GROSSA_' )
   oLst:PrtD( 'Faturas Listadas: '+Transform(znOs,'@E 999,999') )

   debugalert('3')

#FIM_TEXTO_FONTE   
