//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 3; 5;22;79;Solicitacao/Cadastro de O.S.  ;;;;;
:SKEL
VARIAVEL zRecnoOs := 0
VARIAVEL Zcrnome := sccrcli->cr_nome
COMANDO ANTES zIdOs := if(x_operacao=1,(DbGoBottom(),IdOs+1),IdOs)
COMANDO ANTES znil := if(select("HC_MOTLG")=0,(Abra_Arq("HC_MOTLG"),DbSelectArea("HC_RETDI")),"")
COMANDO ANTES M_CR_COD_CLI := SCCRCLI->(RECNO())
COMANDO ANTES M_CR_NOME := PAD(SCCRCLI->CR_CONTATO, LEN(M_CR_NOME))
COMANDO ANTES M_DATA := date()
COMANDO ANTES M_hora := time()
COMANDO ANTES m_idoperador := sys_usuario
COMANDO DEPOIS #TEXTO_FONTE
   REGLOCK()
   PUT_VAR("idos",zIdOs)
   PUT_VAR("DATA",date())
   PUT_VAR("HORA",time())
   PUT_VAR("SITUACAO",1)
   DBCOMMIT()
   Alert("OS Gravada com Numero "+Str(zIdOs),,"B/W")
#FIM_TEXTO_FONTE

COMANDO SAIDA znil = If( Select("HC_MOTLG")>0, HC_MOTLG->(DBCLOSEAREA()) ,"")
: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; 1;55;;C;8;idOperador;@s8;.f.;

 1; 2; 2;Cliente....:;N; 6;CR_COD_CLI;999999;.f.;
 1; 2;25;(zcrnome);C;30;
 1; 3; 2;Quem Falou no Cliente:;C;30;CR_nome;@s30;;

 1; 5; 2;Cod.Assunto:;N; 3;codassunto;999;;psq_brow;hc_motlg;phcmotlg;N;N;5;34;Assunto;@s30;
 1; 6; 2;Assunto....:;C;60;Assunto;@S45;(m_assunto:=if(empty(m_assunto),hc_motlg->Assunto,m_assunto),RefreshGetList());;;;N;; 0; 0;;;

 1; 7; 2;Cod.Suporte:;N; 3;fvendedor;999;;psq_brow;sf_vend;psfvend;N;N;7;27;nome;@s30;
 1; 9; 2;Solicitacao:;M;10;CR_OBS;9Memo];;Editor(@m_cr_obs,"DESCRICAO DA SOLICITACAO",3,0,22,79);;;N;;0;0;;;
