SE_LOTES;Inventario de Lotes de Medicamentos;sys_tbbrow;5;0;20;79;padrao;;
:SKEL
VARIAVEL zNil = SeLotesChecaSeAdicionaCampos()
VARIAVEL zFgControl = " "
VARIAVEL zzOper = "CADASTRO"
VARIAVEL zNil = __SetCentury("on")
VARIAVEL zzPcod = 0
VARIAVEL zzPlote = spac(10)
VARIAVEL zzData_Venc = date()
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
COMANDO ANTES DbSetFilter({||pFgControl<>" "},"pFgControl<>' '")
COMANDO ANTES DbGoBottom()
COMANDO ANTES DbSkip(-8)
// UltTrn_Dt;UltTrn_Dt;D;;10;N;
// UltTrn_Hr;UltTrn_Hr;C;;8;N;
// UltTrn_Sld;UltTrn_Sld;N;999999;9;N;
// Site_DtCons;Site_DtCon;D;;10;N;
// Site_HrCons;Site_HrCon;C;;8;N;
// Site_Saldo;Site_Saldo;N;999999;9;N;
:TBMT
 22;Sngpc_Mnt(d_ob, "ADD");Ins-Inclui ;
 65;Sngpc_Mnt(d_ob, "UPD");A-Altera ;
  7;Sngpc_Mnt(d_ob, "DEL");DEL-DELeta ;
 13;doget(D_ob);Enter-Edita ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 47;Sngpc_Mnt(d_ob, "FECHABAL");/-Fecha_Inventario ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao;
 85;SeLotesUpdateDesc();U-Atualiza Descricoes;
:TBFI
Apresentacao;pDesc;C;@s25;22;N;
*;pFgControl;C;X;1;N;
Sit;cr_situaca;C;x;3;;
Lote;PLOTE;C;@S10; 10;;
Balanco;pdatabal;D;;10;N;
QtdBal;peatbal;N;999999;6;N;
Entradas;Mquant;N;999999;6;N;
Saidas;Mqatend;N;999999;6;N;
Saldo;peatbal+Mquant-Mqatend;N;999999;6;N;
Vencto;Substr(Dtoc(DATA_VENC),4,3)+Str(Year(Data_Venc),4);C;@S8;7;;
Prod;PCOD;N;999999;6;N;