X;("Associar Cod.Barra:"+Str(Sp_Ean->Pdic6,13)+" a um produto");sys_tbbrow; 0;10;23;79;SEPRODDI;;
:SKEL
* Voce esta no Se_Prod
VARIAVEL Z_NIL = __KEYBOARD()
VARIAVEL Z_NIL = DBGOTOP()
VARIAVEL w_colsep   = " "+chr(179)
VARIAVEL Z_BlkAcao = "zFg:=if(pdic6==0,.t.,(Alert('Produto Ja tem Codigo de Barras! Confirma Substituicao ?',{'1.Sim','2.Nao'},'R/W')==1)),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "if(zFg,Se_Prod->(RegLock()),''),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "if(zFg,Se_Prod->(Put_Var('pdic6',Sp_Ean->Pdic6)),''),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "if(zFg,Sp_Ean->(RegLock()),''),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "if(zFg,Sp_Ean->(Put_Var('pcod',Se_Prod->Pcod)),''),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "if(zFg,Sp_Ean->(Put_Var('pdesc',Se_Prod->Pdesc)),''),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "if(zFg,DbCommitAll(),''),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "if(zFg,DbUnlockAll(),''),"
VARIAVEL Z_BlkAcao = Z_BlkAcao + "if(zFg,__Keyboard( Chr(27)+chr(3)+chr(18)),'')"
VARIAVEL Z_BlkAcao = _CreateBlock( Z_BlkAcao )
: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;@S35;35;N;
Cod;PCOD;N;99999;5;N;
Cod_Barras;Pdic6;N;9999999999999;13;N;
Frac;pitens;N;9999;4;N;
