 descripciu8c3b3n detecta queu800 control presiona yu800 dependiendo deu800 ello ejecuta elu800 calculo au800 travu8c3a9s delu800 proc actualizapreciostabular composiciu8c3b3n composiciu8c3b3n composiciu8c3b3n cu8c3b3digo function recalculaprecios oevent asu800 boolean dimu800 sqlstatement asu800 object dimu800 strsqlsearch asu800 string dimu800 strqrysearch asu800 string dimu800 oconnection asu800 object dimu800 oform asu800 object dimu800 textomensaje asu800 string dimu800 obotonseleccionado asu800 string dimu800 otextovariable asu800 string dimu800 oaccion asu800 string dimu800 ofiltro asu800 string dimu800 vproductoidorg vproductoiddst asu800 string recalculaprecios false oform oeventu82esourceu82emodelu82eparent obotonseleccionado oeventu82esourceu82emodelu82ename select case obotonseleccionado case botonopcionatp001 otextovariable precios enu800 base alu800 costo oaccion 1u800 case botonopcionatp002 otextovariable costo enu800 base au800 precio 1u800 oaccion 2u800 case botonopcionatp003 otextovariable costo enu800 base au800 precio 2u800 oaccion 3u800 case botonopcionatp004 otextovariable costo enu800 base au800 precio 3u800 oaccion 4u800 endu800 select textomensaje u8c2bfestu8c3a1 seguro deu800 modificar losu800 valores deu800 & otextovariable & enu800 base alu800 filtro seleccionado select case msgbox textomensaje 1u800 atenciu8c3b3n case 1u800 oconnection oeventu82esourceu82emodelu82egetparent .activeconnection ofiltro oformu82efilter ifu800 oformu82efilter then ofiltro reemplazastr ofiltro productoid inu800 precios . productoid inu800 endu800 ifu800 'msgbox ofiltro sqlstatement oconnectionu82epreparestatement call actualizapreciostabular sqlstatementu82esetstring 1u800 ofiltro sqlstatementu82esetstring 2u800 oaccion sqlstatementu82eexecute sqlstatementu82eclose recalculaprecios true case 2u800 recalculaprecios false endu800 select oformu82ereload endu800 function bitu8c3a1cora bitu8c3a1cora bitu8c3a1cora 20120907 u8c3baltima actualizaciu8c3b3n usou800 usou800 usou800 form preciostabularxprocesos 