EN_SNGPC;Entradas e Saidas SNGPC;sys_tbbrow; 6; 0;20;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
//Trn;if(day(datatrn)>0,"Sim","Nao");C;@s11;3;N;
:TBMT
-1;xSngpc_Mnt(d_ob,"MOVADD","1");F2-Venda ;1-Add_Saida;sembitmap;;;Lucida Bright;-12;&1-Nova Venda;
-2;xSngpc_Mnt(d_ob,"MOVADD","2");F3-Compra ;2-Add_Entrada;sembitmap;;;Lucida Bright;-12;&2-Nova Compra;
-3;xSngpc_Mnt(d_ob,"MOVADD","3");F4-Perda ;3-Add_Perda;sembitmap;;;Lucida Bright;-12;&3-Nova Perda;
-4;xSngpc_Mnt(d_ob,"MOVADD","4");f5-Transf ;4-Add_Transf;sembitmap;;;Lucida Bright;-12;&4-Nova Transferencia;
13;xSngpc_Mnt(d_ob,"MOVUPD");Enter-Altera ;Enter-Altera;;
 7;xSngpc_Mnt(d_ob,"MOVDEL");DEL-DELeta ;DEL-Deleta;;
80;tb_pesq(D_OB);P-Pesquisa ;P-Pesquisa;;
84;tb_locate(D_OB);T-Trecho ;T-Acha Trecho;;
79;tb_index(D_OB);O-Ordena ;O-Ordena;;
73;lst_alias(D_OB);I-Imprime ;I-Imprime;;
32;xSngpc_Mnt(d_ob, "MOVCONCILIA");Barra-Concilia ;Barra - Concilia;;
:TBFI
Sit;if(REG_SEL="T","Trns",if(REG_SEL="S","Ok","Nao"));P;@s3;3;N;
Lanc;if(mfges="1","Saida",if(mfges="2","Entrada",if(mfges="3","Perda","Transferencia")));P;@s4;4;N;
*;pFgControl;C;X;1;;
Medicamento;pdesc;C;@s15;15;N;
Lote;PLOTE;C;@S9;9;;
Quant;MQUANT;N;99999;5;;
Documento;numerodoc;C;@S13;13;;
Historico;cr_nome;C;@S15;15;;
Data;mData;D;;5;;
