HC_RETDI;Programacao de Ligacoes para o Dia;sys_tbbrow;6; 0;20;79;padrao;;
:SKEL
VARIAVEL Z_BLOCK = {|x_cli| sccrcli->(dbgoto(x_cli)), sccrcli->cr_nome }
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() )

*-Operador;OP_NOME;C;@S8;  8;;
*-CR_NOME;CR_NOME;C;@S30; 30;;
*-UltCmp;CR_DT_ULTI;D;;  8;;
- *;SIT_TV;C;x;  1;;
:TBFI
CodCli;CR_COD_CLI;N;99999;  5;;
NomeCli;eval(z_block,CR_COD_CLI);C;@s25; 25;;
Motivo para Ligar;OBS;C;@S30;30;;
DataLig;DATARET;D;;  8;;
HoraLig;HORARET;C;@S8;  8;;
Resultado da Ligacao;OBS_RESULT;C;@S30;30;;
cMt;COBS;N;999;  3;;
cRt;CRESULTADO;N;999;  3;;
