procedure TfrPVP.pg1Change(Sender: TObject);
begin
if (pg1.ActivePage = TbFoto) and (DmPrix.IBDtsPVPFOTOPRODUCTO.AsString <>'' )then
begin
try
fotoproducto.Picture.LoadFromFile('\\servidor\xx\datosfb\fotos\'+DmPrix.IBDtsPVPFOTOPRODUCTO.AsStrin g+'.jpg');
except
ShowMessage('Atención:La imagen no existe o no pudo cargarse.');
end;
end
else
fotoproducto.Picture.LoadFromFile('\\servidor\xx\datosfb\fotos\Nohay.jpg');
end;