CXA_MOV;Tecle Enter sobre Recibo a Imprimir;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
:TBMT
13;(zIdRecibo:=Recno,MyKeyb(27));Enter-Imprime ;
80;tb_pesq(D_OB);P-Pesquisa ;
67;tb_locate(D_OB);C-Continua Busca;
84;tb_locate(D_OB);T-Busca_Trecho ;
76;tb_locate(D_OB);L-Busca_Iniciais ;
79;tb_index(D_OB);O-Ordena ;
:TBFI
Data;FDATAEMI;D;;  8;;
Hora;FHORA;C;@S5;  5;;
Lj;FLOJA;N;999;  3;;
NumFech;SI_NUMFECH;N;999999;  6;;
Cx;SI_CAIXA;N;99;  2;;
Valor;CR_VALOR;N;9999999.99;10;;
Obs;CR_OBS;C;@S20; 20;;
Usuario;SubStr(FOBS,9);P;@S10;10;N;
fp;CR_TIP_DUP;C;xx;  2;;
Controle;CR_NUM_PED;C;@S10; 10;;
