HC_RETDI;Programacao de Ligacoes para o Dia;sys_tbbrow;6; 0;20;79;padrao;;eval(z_blkPpo);
:SKEL
VARIAVEL Z_BLOCK = {|x_cli| sccrcli->(dbgoto(x_cli)), sccrcli->cr_nome }
COMANDO ANTES Z_NIL = DbSetFilter( _CreateBlock("day(dataret)>0"), "day(dataret)>0")
COMANDO ANTES DbGoBottom()
COMANDO ANTES DbSkip(-8)
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"sccrcli","sccrcli")
COMANDO ANTES DBSELECTAREA("HC_RETDI")
COMANDO DEPOIS sccrcli->( DbCloseArea() )

VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)

VARIAVEL Z_XTELA = SAVESCREEN(0,0,5,79)
VARIAVEL z_blkPpo = "Z_COR := SetColor('R/W'),zcli:=cr_cod_cli,dbselectarea('sccrcli'),DbGoto(zcli),"
VARIAVEL z_blkPpo = z_blkPpo + "Scroll(0,0,5,79,0),DispBox(0,0,5,79),"
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(0,2), DevOut("Nome: "+cr_nome),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(0,61), DevOut("Dt Aniv:"+dtoc(cr_dt_ani)),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(1,2), DevOut("End.: "+cr_rua),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(1,50), DevOut(alltrim(CR_CEP)),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(2,2), DevOut("Fone:"+trim(CR_FONE)+" "+trim(cr_bairro)+" (P.Ref:"+trim(cr_pontore)+")"),'
VARIAVEL z_blkPpo = z_blkPpo + 'dbselectarea("hc_retdi"),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(3,2), DevOut("Motivo:"+OBS),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(4,2), DevOut("Retorno:"+OBS_RETORN),'
VARIAVEL z_blkPpo = z_blkPpo + "SetColor(Z_COR)"
VARIAVEL z_blkPpo = _CreateBlock( z_blkPpo )
COMANDO DEPOIS Z_NIL = RESTSCREEN(0,0,5,79,Z_XTELA)
:TBFI
Rec;fvendedor;N;999;3;;
CodCli;CR_COD_CLI;N;99999;  5;;
Reclamante;CR_NOME;C;@s25; 25;;
Motivo para Ligar;OBS;C;@S30;29;;
Ret;fvendretor;N;999;3;;
DataLig;DATARET;D;;8;;
HoraLig;HORARET;C;xx:xx;5;;
Resultado da Ligacao;OBS_RETORN;C;@S30;30;;
cMt;COBS;N;999;  3;;
cRt;CRESULTADO;N;999;  3;;
