OCOR;Solicitacoes que me pediram Esclarecimentos;sys_tbbrow;15;0;23;79;x;;eval(z_blgoto,nrow)+Oc_Ocor->(OcOcor("EXIB_OCOR",StrZero(fnumped,6)+"NAO_APAGAR_DADOS_OC"));;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL z_blGoto = {|xnrow|oc_ocor->(DbGoto(v_ped[xnrow])),""}
VARIAVEL Z_blkfun = {|x|fp_ptfun->(DbSeek(x)),Alltrim(fp_ptfun->fnomeguerr)+", "+alltrim(fp_ptfun->ffuncao)}
COMANDO ANTES ABRA("0",r_siga, "fp_ptfun", "fp_ptfun", "fp_ptfun", "FNUMERO")
COMANDO ANTES DBSELECTAREA("OC_OCOR")
COMANDO DEPOIS fp_ptfun->(DbCloseArea())
// 13;slped(nrow,"SP_MOVF");Enter-Altera ;
// Fornecedor;v_ped[1,nrow];C;@s20; 20;;
//Detalhes;memoline(Cr_OBs,50,1);C;@s50;50;;
//Para;Set_Fech;C;@S8; 8;;
//Encarr;Matr_Fech;N;9999; 4;;
//Tp;TL;C;!!;2;;
//Data Hora Fech;Left(Ctod(DATAfech),5)+" "+left(horafech,5);@s11;;11;;
:TBMT
13;OcOcor("OCOR_RD","",D_oB,,nrow);Enter-Presta_Esclarecimento ;
:TBFI
*;eval(z_blgoto,nrow)+oc_ocor->cr_situaca;C;!;1;;;
Data/Hora;oc_ocor->(Left(dtoc(DATAOPEN),5)+" "+left(horaopen,5));C;@s11;11;;
Lj Login;oc_ocor->(Str(Floja,2)+"-"+Usu_Open);C;@s11;11;;
Usuario;oc_ocor->(eval(z_blkfun,Matr_Open));C;@s12;12;;
Resumo;Oc_Ocor->RESUMO;C;@S22;25;;
Usu_Desp;Oc_Ocor->Usu_Desp;C;@S8; 8;;
