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)
VARIAVEL z0BlkOrdena= {|| DbClearFilter(), tb_index(D_OB), if(zFgControl="*",eval(z1BlkFilter),eval(z0BlkFilterTodos)) }
VARIAVEL z0BlkFilterTodos = {|| zFgControl:=" ", DbClearFilter(), d_ob:RefreshAll() }
VARIAVEL z1BlkFilter = {|| zFgControl:="*", DbSetFilter({||pFgControl<>" "},"pFgControl<>zFgControl"), DbGoBottom(), DbSkip(-8), d_ob:RefreshAll() }
comando antes znil=Abra("0",r_siga,se_prod,"SE_PROD",seip_c,"pcod")
comando antes znil=dbselectarea("SE_LOTES")
COMANDO ANTES DbSetFilter({||pFgControl<>" "},"pFgControl<>zFgControl")
COMANDO ANTES DbGoBottom()
COMANDO ANTES DbSkip(-8)
COMANDO DEPOIS znil=se_prod->(DbCloseArea())
// 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;eVal(z0BlkOrdena);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 47;Sngpc_Mnt(d_ob, "FECHABAL");/-Fecha_Inventario ;
 62;eVal(z0BlkFilterTodos);>-Todos_os_Lotes ;
 60;eVal(z1BlkFilter);<-So_Lotes_Sngpc ;
 85;SeLotesUpdateDesc(,.f.,@d_ob);U-Atualiza Descricoes;
:TBFI
*;pFgControl;C;X;1;N;
Apresentacao;pDesc;C;@s25;22;N;
Sit;cr_situaca;C;xxx;3;;
Lote;PLOTE;C;@S10; 10;;
Balanco;pdatabal;D;;10;N;
QtdBal;peatbal;N;999999;6;S;
Entradas;Mquant;N;999999;6;S;
Saidas;Mqatend;N;999999;6;S;
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;