HC_RETDI;Agenda Diaria/Solicitacoes de Clientes;sys_tbbrow;6; 0;20;79;padrao;;eval(z_blkPpo);
:SKEL
VARIAVEL w_colsep := chr(179)
VARIAVEL w_headsep := chr(196)
VARIAVEL zrecn := 1
VARIAVEL zbCli = {|x_cli| sccrcli->(dbgoto(x_cli)), sccrcli->cr_nome }
VARIAVEL Z_XTELA = SAVESCREEN(0,0,5,79)
VARIAVEL z_blkPpo = #TEXTO_FONTE
    Private Z_COR:=SetColor('R/W'),zcli:=cr_cod_cli
    ( dbselectarea('sccrcli'), DbGoto(zcli), Scroll(0,0,5,79,0), DispBox(0,0,5,79) )
    ( DevPos(0,2), DevOut("Nome: "+cr_nome), DevPos(0,61), DevOut("Dt Aniv:"+dtoc(cr_dt_ani)) )
    ( DevPos(1,2), DevOut("End.: "+cr_rua),  DevPos(1,50), DevOut(alltrim(CR_CEP)) )
    ( DevPos(2,2), DevOut("Fone:"+trim(CR_FONE)+" "+trim(cr_bairro)+" (P.Ref:"+trim(cr_pontore)+")") )
    ( dbselectarea("hc_retdi"), DevPos(3,2), DevOut("Motivo:"+OBS), DevPos(4,2), DevOut("Retorno:"+OBS_RETORN) )
    SetColor(Z_COR)
#FIM_TEXTO_FONTE
VARIAVEL zbOpenAll = #TEXTO_FONTE
   DbCloseAll()
   ABRA("0NOIDX",r_siga,"sccrcli","sccrcli")
   ABRA("0NOIDX",r_siga,"HC_RETDI","HC_RETDI") 
#FIM_TEXTO_FONTE
variavel zbAction:={|bFunction| zrecn:=Recno(), eVal(bFunction), eVal(zbOpenAll), DbGoTo(zrecn), DobRefresh() }
variavel znil:=(eVal(zbOpenAll),DbGoBottom(),DbSkip(-8))
variavel #TEXTO_FONTE
   //ONINIT
      hwg_TbFi(@D_oB, 'Numero;idos;N;999999;6;;')
      hwg_TbFi(@D_oB, 'Data;DATA;D;;8;;')
      hwg_TbFi(@D_oB, 'Hora;HORA;C;xx:xx;5;;')
      hwg_TbFi(@D_oB, 'Situacao;if(situacao=1,"Aberta",if(situacao=2,"Fechada","SolicFecha"));P;@S10;10;;')
      hwg_TbFi(@D_oB, 'CodCli;CR_COD_CLI;N;999999;  6;;')
      hwg_TbFi(@D_oB, 'Solicitante;CR_NOME;C;@s25; 25;;')
      hwg_TbFi(@D_oB, 'Assunto/Motivo;Assunto;C;@S30;29;;')
      hwg_TbFi(@D_oB, 'DataFech;DATARET;D;;8;;')
      hwg_TbFi(@D_oB, 'HoraFech;HORARET;C;xx:xx;5;;')
      hwg_TbFi(@D_oB, 'Providencias;solucao;C;@S30;30;;')
      hwg_TbFi(@D_oB, 'Atend;fvendedor;N;999;3;;')
      hwg_TbFi(@D_oB, 'Retorn;fvendretor;N;999;3;;')
   //ENDONINIT
   //ONDLGINIT
         oDlg:Maximize()
   //ENDDLGINIT
#FIM_TEXTO_FONTE
variavel zbPrtOs:={|| Relat('lst_exec("HC_OS0")',"nb",,"X") }
variavel zbPrtLista:={|| Relat('lst_exec("HC_RETDI")',"nb",,"X") }
COMANDO saida RESTSCREEN(0,0,5,79,Z_XTELA)
comando saida if(select('sccrcli')>0, sccrcli->(DbCloseArea()), NIL)
:TBMT
22;eval(zbAction,{||tb_insert(D_oB)});Ins-Inclui ;
13;eval(zbAction,{||doget(D_ob)});Enter-Edita ;
 7;eval(zbAction,{||tb_del(d_ob)});Del-Apaga ;
65;eval(zbAction,{||tb_update(D_OB)});A-Altera ;
73;eval(zbAction,zbPrtOs);I-ImprimeOs ;I-Imprime OS resumida ou Detalhada;impressora.ico;;;;;&I-ImprimeOS;;;
73;eval(zbAction,zbPrtLista);I-Imprime ;
80;tb_pesq(D_OB);P-Pesquisa Chave;
70;tb_filter(d_ob);F-Filtra ;
84;tb_locate(D_oB);T-Busca_Trecho ;
76;tb_locate(D_oB);L-Busca_Iniciais ;
67;tb_locate(D_oB);C-Repete_Busca ;
82;doget(D_ob,,.t.);R-Repete_Edicao ;
79;tb_index(D_OB);O-Ordena ;
61;doget(D_ob,,.t.);=-Repete_Edicao ;