//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 4; 3;21;78;Solicitacao de Servico;;;;;
:SKEL
VARIAVEL z_blkfun  = {||abra_arq("fp_ptfun"),dbseek(m_fnumero),DevPos(4+4,30),DevOut(Alltrim(Fnome)),DbCloseArea(),DbSelectArea("oc_ocor"),.f.}
VARIAVEL z_blkmais = {||m_cr_obs:=alltrim(z_det1)+" "+alltrim(z_det2)+" "+alltrim(z_det3)+" "+alltrim(z_det4)+" "+alltrim(z_det5),if(z_maisdet<>"N",Editor(@m_cr_obs,"Observacoes",12,18,21,79),.t.),.t.}
VARIAVEL z_det1    = spac(50)
VARIAVEL z_det2    = spac(50)
VARIAVEL z_det3    = spac(50)
VARIAVEL z_det4    = spac(50)
VARIAVEL z_det5    = spac(50)
VARIAVEL z_maisdet = "N"
VARIAVEL m_cr_obs  = ""
COMANDO SAIDA m_cr_obs = if(!empty(z_det1).and.empty(m_cr_obs),eval(z_blkjunta),m_cr_obs)

// 1; 4; 2;Mt.Solicitante:;N; 5;FNUMERO;99999;.f.;M_FNUMERO>0.AND.PSQ_BROW;FP_PTFUN;PFPFUN;N;S;4;30;FNOME;@S40;
// 1; 8; 2;Detalhes......:;M;10;cr_obs;9Memo];;Editor(@m_cr_obs,"",12,18,21,79);;;N;; 0; 0;;;
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Setor Origem..:;C; 8;SET_OPEN;@S8;;psq_brow;OC_GRUPO;POCGRUPO;N;S;0;0;;;
 1; 3; 2;Loja de Origem:;N; 8;floja;99;.f.;;;;N;; 0; 0;;;
 1; 4; 2;Mt.Solicitante:;N; 5;FNUMERO;99999;eval(z_blkfun);;;;;
 1; 2;50;Hora Cad:;C; 8;horaopen;;.f.;;;;N;; 0; 0;;;
 1; 3;50;Data Cad:;D; 8;DATAopen;;.f.;;;;N;; 0; 0;;;

 1; 6; 2;Setor Destino.:;C; 8;SET_fech;@S8;;psq_brow;OC_GRUPO;POCGRUPO;N;S;0;0;;; 
 1; 7; 2;Resumo........:;C;80;RESUMO;@S50;;!empty(m_RESUMO);;;N;; 0; 0;;;
 1; 8; 2;Detalhes......:;P;50;z_det1;@S50;;;;;N;; 0; 0;;; 
 1; 9;16;:;P;50;z_det2;@S50;;;;;N;; 0; 0;;;
 1;10;16;:;P;50;z_det3;@S50;;;;;N;; 0; 0;;;
 1;11;16;:;P;50;z_det4;@S50;;;;;N;; 0; 0;;; 
 1;12;16;:;P;50;z_det5;@S50;;;
 1;13; 2;Mais Detalhes ?;P;1;z_maisdet;!;;eval(z_blkmais);;;N;; 0; 0;;; 
