SE_ACERT;("Acertos do Produto "+Alltrim(Se_Prod->Pdesc));skip_blk(x); 5; 0;20;79;x;;
:SKEL
VARIAVEL w_mensagem = "Sem mais Acertos do Prod "+Str(Se_Prod->Pcod,5)
VARIAVEL w_chave    = Se_Prod->Pcod
VARIAVEL w_block    = {|| w_chave <> Pcod }
:TBMT
 80;tb_pesq(D_OB);P-Pesquisa ;
 73;lst_alias(D_OB);I-Imprime ;
 79;tb_index(D_OB);O-Ordena ;
:TBFI
Cod;PCOD;N;99999;5;N;
Data_Bal;PDATABAL;D;;8;N;
Hora_Bal;MHORA;C;@S8;8;N;
Acerto;MQUANT;N;9999999;7;N;
*;MFGES;C;x;1;N;
Val_Acerto;MVALOR;N;999999.99;9;N;
Est_Ori;PEATUAL;N;9999999;7;N;
Est_Inf;PEAT_INF;N;9999999;7;N;
Eid_Bal;PEID_BAL;N;9999999;7;N;
se-ss(no dia);SALDO_DIA;N;9999999;13;N;
