X;("Dic Padrao: "+Str(Se_Prod->Pcod,5)+" "+Alltrim(Se_Prod->Pdesc));sys_tbbrow; 5; 0;20;79;SEPRODDI;;eval(z_blockPpo);
:SKEL
VARIAVEL Z_Xtela = SaveScreen(0,0,3,79)
VARIAVEL Z_PCOD  = SE_PROD->PCOD
VARIAVEL Z_PDESC = SE_PROD->PDESC
VARIAVEL Z_FRACAO = SE_PROD->PITENS
VARIAVEL z_blockPpo = "Z_COR:=SetColor('B/W'),"
VARIAVEL z_blockPpo = z_blockPpo + "Scroll(0,0,3,79,0),DispBox(0,0,3,79),"
VARIAVEL z_blockPpo = z_blockPpo + 'Se_Prod->(DbSeek(Se_Dic5->PcProdForn)),'
VARIAVEL z_blockPpo = z_blockPpo + 'DevPos(0,1),DevOut(Padc("Associando:"+Str(Z_Pcod,5)+" "+Z_Pdesc+" Fracoes:"+Str(Z_fRACAO,5),78)),'
VARIAVEL z_blockPpo = z_blockPpo + 'DevPos(1,1),DevOut(Padc(Alltrim(Se_Dic5->Pdesc),78)),'
VARIAVEL z_blockPpo = z_blockPpo + 'DevPos(2,1),DevOut(Padc("Fabricante: "+Alltrim(Se_Dic5->SP_FANTASI),78)),'
VARIAVEL z_blockPpo = z_blockPpo + "SetColor(Z_COR)"
VARIAVEL z_blockPpo = _CreateBlock( z_blockPpo )
COMANDO DEPOIS RestScreen(0,0,3,79,Z_Xtela)

VARIAVEL Z_BlkAcao = "Se_Prod->(DbGoto(Z_RecnPrd)),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "Se_Prod->(RegLock()),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "Se_Prod->(Put_Var('pdic5',Se_Dic5->PcProdForn)),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "Se_Prod->(DbCommitAll()),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "Se_Prod->(DbUnlock()),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "__Keyboard(Chr(27)+chr(3)+chr(18))"
* VARIAVEL Z_BlkAcao = Z_BlkAcao + "__Keyboard(Alltrim(Str(Se_Dic5->Pdic5,13)))"
VARIAVEL Z_BlkAcao = _CreateBlock( Z_BlkAcao )

* COMANDO ANTES Z_NIL = ABRA("0RO",R_SIGA,"Se_Dic5","Se_Dic5","Se_Dic5","PCPRODFORN")
* COMANDO DEPOIS Z_NIL = Se_Dic5->( DBCLOSEAREA() )
* VARIAVEL Z_blkx = { |x_pcod| Se_Dic5->( DbGoto(x_pcod) ), Str(x_pcod,5)+" "+Se_Dic5->Pdesc}
* VARIAVEL Z_ACAO = _CreateBlock("Scroll(0,0,24,79,0),SetPos(0,0),Qqout('Teste'),Inkey(0)")
*Desc_HAB;Eval(z_blk,pcprodforn);P;@S30;30;N;
*Frac;pitens;N;9999;4;S;

* VARIAVEL Z_blk = { |x_pcod| SE_PROD->(DbSeek(x_pcod)), Str(Se_Prod->pcod,5)+" "+Se_Prod->Pdesc}
VARIAVEL Z_blk = { |x_pcod| SE_PROD->(DbSeek(x_pcod)),Se_Prod->Pdesc}

:TBMT
 13;Eval(z_BlkAcao);Enter-Confirma ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
Descricao;PDESC;C;@S32;32;N;
CAbc;PcProdForn;N;9999999;7;N;
Desc_CI;Lower(Eval(z_blk,pcprodforn));P;@S30;30;N;
Fabricante;SP_FANTASI;C;@s15;15;N;
