alias HELP
COMANDO ANTES #TEXTO_FONTE
   Private lFgOk, wFgPrt, znOs:=0, aFieldsDaTela:={}, oQbe, wOptAbertas:=1, vOptAbertas:={ ;
            {'&1. O.S. Abertas          ',1} ,;
            {'&2. O.S. Fechadas         ',2} ,;
            {'&3. C/Pedido de Fechamento',3} }

Conc;Reg_Sel;C;!!;4;;
Trn;if(day(datatrn)>0,"Sim","Nao");C;@s11;3;N;


   DbCloseAll()
   ABRA("0NOIDX", r_siga, "HC_RETDI", "HC_RETDI")

   oQbe:=oQbe():New('retdi')
   aAdd( aFieldsDaTela, {"1;2;Selecao de OS:","@wOptAbertas", @wOptAbertas,  "9", "", "RADIOGROUP vOptAbertas" } )
   oQbe:AddFiltro( "6;3;Datas da Solicitacao.:", {||data}    ,,,{'DeAte',Ctod(''),Ctod('')})
   oQbe:AddFiltro(" 7;3;Previsao de Resolucao:", {||dataret} ,,,{'DeAte',Ctod(''),Ctod('')})
   oQbe:AddFiltro(" 8;3;Atendidas por........:", {||fvendedor}    ,, 'sf_vend;qbe_psfvend', {'Todos','Alguns'})
   oQbe:AddFiltro(" 9;3;Aos Cuidados de......:", {||fVendRetor} ,, 'sf_vend;qbe_psfvend', {'Todos','Alguns'})
   oQbe:AddFiltro("10;3;Situacoes  a Listar..:", {||situacao} ,, 'si_sitdp;qbe_psisitdp', {'Todas','Algumas'})
   oQbe:AddFiltro("11;3;Clientes  a Listar...:", {||cr_cod_cli}     ,, 'sccrcli;qbe_psccrcli', {'Todos','Alguns'})
   lFgOk := oQbe:QuickDialog("Qbe_SngpcSa", "79;12;Relatorio de OS",aFieldsDaTela,{||wFgPrt:=ABRE_PRT("12",.T.),.t.}) 
   if !lFgOk .or. !wFgPrt
      DbCloseAll()
      Return .t.
   endif

   DbCloseAll()
   ABRA("0NOIDX", r_siga, "SCCRCLI", "SCCRCLI")
   ABRA("0NOIDX", r_siga, "HC_RETDI", "HC_RETDI", "HCRETCDC", "STR(cr_cod_cli,6) + Str(999999999-Val(Dtos(data)))")   
   
   oLst:cAlias_DataCols := '_retdi'
   oLst:cAliasMaster := '_retdi'
   oLst:lPortrait := .t.
   oLst:lOutputPdf := .t.
   // oLst:lOutputFr3 := .t.

   oLst:Cab1( "Solicitacoes ou Pendencias com Clientes")
   oLst:Cab4( "Impressao em "+Dtoc(s_datual)+" as "+time())
  
   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

   oLst:AddCol('Numero;idos;N;999999;6;;')
   oLst:AddCol('Data;DATA;D;;8;;')
   oLst:AddCol('Hora;HORA;C;xx:xx;5;;')
   oLst:AddCol('Situacao;if(situacao=1,"Aberta",if(situacao=2,"Fechada","SolicFecha"));P;@S10;10;;;Direita;NaoSome;')
   oLst:AddCol('CodCli;CR_COD_CLI;N;999999;6;;;Direita;NaoSome;')
   oLst:AddCol('Cliente;(sccrcli->(DbGoTo(hc_retdi->CR_COD_CLI),cr_nome));P;@S25;25;;;Esquerda;NaoSome;')
   oLst:AddCol('Quem Falou no Cliente;CR_NOME;C;@s25; 25;;;Esquerda;NaoSome;')
   oLst:AddCol('Assunto/Motivo;Assunto;C;@S30;29;;;Esquerda;NaoSome;')
   oLst:AddCol('DataFech;DATARET;D;;8;;;Direita;NaoSome;')
   oLst:AddCol('HoraFech;HORARET;C;xx:xx;5;;;Direita;NaoSome;')
   oLst:AddCol('Providencia;solucao;C;@S30;30;;;Esquerda;NaoSome;')
   oLst:AddCol('Atend;fvendedor;N;999;5;;;Esquerda;NaoSome;')
   oLst:AddCol('Encarregado;fvendretor;N;999;5;;;Esquerda;NaoSome;')



   oLst:AddCol('Cod;PCOD;N;999999;  6;;')
   oLst:AddCol('Apresentacao;Pdesc;C;@s25;26;N;')
   
   oLst:AddCol('*;SngpcFgControl(pCod,.t.,.t.);C;x;1;;')
   oLst:AddCol('Conc;Reg_Sel;C;!!;4;;')
   oLst:AddCol('Trn;if(day(datatrn)>0,"Sim","Nao");C;@s11;3;N;')
   
   oLst:AddCol('Quant;MQUANT;N;999999;  6;;')
   oLst:AddCol('Lote;PLOTE;C;@S10; 10;;')
   oLst:AddCol('DataVenda;MDATA;D;; 10;;')
   oLst:AddCol('Dt_Transm;DataTrn;D;; 10;;')
   oLst:AddCol('DataReceita;MDATARECEI;D;; 10;;')
   
   oLst:AddCol('TipReceita;tipRECEITA;N;9; 1;;')
   oLst:AddCol('NumeroReceita;numRECEITA;C;@S10; 10;;')
   
   oLst:AddCol('CRM;CRM;C;@S10; 10;;')
   oLst:AddCol('Prescritor;medico;C;@!30;30;;')
   oLst:AddCol('CRM_UF;UF;C;xx;  2;;')
   oLst:AddCol('CRM_Conselho;CRM_CRO;C;!!!!; 4;;')
   oLst:AddCol('UsoMed;USOMEDIC;N;9;  1;;')
   
   oLst:AddCol('Comprador;COMPRADOR;C;@S30; 30;;')
   oLst:AddCol('TpDoc;TIPOID;N;99;2;;')
   oLst:AddCol('Identidade;NUMERODOC;C;@!7; 7;;')
   oLst:AddCol('Orgao;ORGAOEXPED;C;@S10; 10;;')
   oLst:AddCol('Uf;UFEXPED;C;xx;  2;;')
   
   oLst:AddCol('RegistroMs;PREGMS;C;@S18; 18;;')
   oLst:AddCol('Hora_Trn;horatrn;C;;  8;;')
   oLst:AddCol('COO;fNumCoo;C;;6;;')
   
   
   oLst:AddRodape( '_LINHA_FINA_', "", {|| "Pagina "+Str(++pag,4)+" / ####"} )
   debugalert('1')

   oLst:DbEval({||++znOs} ) 
   oLst:PrtD( '_LINHA_GROSSA_' )
   oLst:PrtD( 'Solicitacoes Listadas: '+Transform(znOs,'@E 999,999') )

   debugalert('3')

#FIM_TEXTO_FONTE   