//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 8;20;79;Dados do Retorno;;;;;
:SKEL
COMANDO ANTES zIdOs := if(x_operacao=1,(DbGoBottom(),IdOs+1),IdOs)
COMANDO ANTES znil = if(select("SF_VEND")=0,ABRA_ARQ("SF_VEND"),"")
COMANDO ANTES znil = if(select("HC_MOTLG")=0,ABRA_ARQ("HC_MOTLG"),"")
COMANDO ANTES DBSELECTAREA("HC_RETDI")
COMANDO ANTES sccrcli->(DbGoto(m_cr_cod_cli))
COMANDO ANTES Zcrnome = sccrcli->cr_nome
COMANDO ANTES sf_vend->(DbGoto(m_fvendedor))
COMANDO ANTES Zvndnome = sf_vend->nome
COMANDO ANTES M_dataret = date()
COMANDO ANTES M_horaret = time()
COMANDO DEPOIS REGLOCK()
COMANDO DEPOIS PUT_VAR("DATARET",M_DATARET)
COMANDO DEPOIS PUT_VAR("HORARET",M_HORARET)
COMANDO DEPOIS DBCOMMIT()
COMANDO SAIDA SF_VEND->(DBCLOSEAREA())
COMANDO SAIDA HC_MOTLG->(DBCLOSEAREA())
COMANDO ANTES M_DT_PREVIST = s_datual
COMANDO ANTES M_HR_PREVIST = TIME()
COMANDO ANTES M_SITUACAO = 00
//
//  1	IDOS	            int(11)		   IDOS
//	 2	IDCLIENTE	      int(11)			CR_COD_CLI  
//	 3	NOME_SOLICITANTE	               CR_NOME    varchar(35)	latin1_swedish_ci		Sim 	NULL		Alterar Alterar	Eliminar Eliminar	
//  4	IDCATEGORIA	      int(11)			codassunto       
//	 5	ASSUNTO_CATEGORIA	varchar(60)	   assunto
//	 6	DATA_ABERTURA	   datetime			DATA e HORA
//  7	DESCRICAO	      varchar(1000)	cr_obs
//	 8	IDGRUPO	         int(11)			         
//	 9	IDOPERADOR	      char(8)	      IDOPERADOR contem sys_usuario
// 10	IDUSUARIO	      char(8)	            
//	11	IDSTATUS	         smallint(6)		SITUACAO
//	12	DATA_FECHAMENTO	datetime			campos dataret + horaret
//	13	DATA_STATUS	      datetime		   dt_previst + hr_previst ???
//
//    fvendedor      
//    fvendretor     
//
// Campos antigos ignorados: 
// cObs        N 3  => codassunto      codigo do assunto  
// cResultado  N 3  => SITUACAO        codigo da situacao
// Obs         C 60 => assunto         
// Obs_Retorn  C 60 => 
// sit_tv      C 1  => 
//
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 1; 2;("OS N:"+str(zIdOs,6)+"   Dt/Hora: "+dtoc(M_DATA)+" "+M_hora );;
 1; 2; 2;Codigo do Cliente:;N; 5;CR_COD_CLI;99999;.f.;
    1; 2;34;(zcrnome);C;30;
 1; 3; 2;Nome Reclamante..:;C;30;CR_nome;@s30;.f.;
 1; 5; 2;Quem Recebeu Recl:;N; 3;fvendedor;999;.f.;
    1; 5;34;(zvndnome);C;30;
 
 1; 6; 2;("Data/Hora Retorno:");;
    1; 6;21;(m_DATARET);;
    1; 6;34;(m_HORARET);;

 1; 8; 2;Quem Resolveu Recl:;N; 3;fvendretor;999;;psq_brow;vb_cobra;pvbcobra;N;N; 8;34;nome;@s30;
 1; 9; 2;Situacao..........:;N; 2;situacao;99;;lastkey()=5 .or. psq_brow;sit_obs;psit_obs;N;N; 99;34;descricao;@s10;
 1;10; 2;Data Prevista.....:;D; 8;DT_PREVIST;99.99.99;;
 1;11; 2;Hora Prevista.....:;C; 8;HR_PREVIST;XX:XX:XX;;

 1;13; 2;Descrever Solucao.:;M;10;SOLUCAO;9Memo];;Editor(@m_SOLUCAO,"DESCRICAO DA SOLUCAO",3,0,22,79);;;