 category macro descripciu8c3b3n descripciu8c3b3n descripciu8c3b3n chequea losu800 campos deu800 dimensiones dentro delu800 form presupuesto biblioteca biblioteca biblioteca libr spanexb composiciu8c3b3n composiciu8c3b3n composiciu8c3b3n cu8c3b3digo function checkvalidmeasure optional oevent asu800 object 'test oevent checkvalidmeasure true ocontroller thiscomponentu82ecurrentcontroller ifu800 ismissing oevent then oformcabecera thiscomponentu82edrawpageu82eforms 0u800 oformproductos oformcabecerau82egetbyname productos oformproductosgrid oformproductosu82egetbyname productosgrid ocampoancho oformproductosgridu82egetbyname fmtvidquoteancho ocampoalto oformproductosgridu82egetbyname fmtvidquotealto ocamponame checkvalidmeasure omagnitud oformproductosgridu82egetbyname txtvidquotemagnitud .currentvalue else oevento oevent ocampo oeventou82esourceu82emodel ocamponame oeventou82esourceu82emodelu82ename oformproductosgrid oeventou82esourceu82emodelu82eparent omagnitud oformproductosgridu82egetbyname txtvidquotemagnitud .currentvalue endu800 ifu800 'msgbox test select case ocamponame case fmtvidquoteancho select case omagnitud case m2u800 mgu800 pru800 anu800 mlu800 ifu800 ocampou82ecurrentvalue 25u800 then omensaje lau800 magnitud definida delu800 producto requiere completar este campo conu800 valores vu8c3a1lidos msgbox splitmsg omensaje 40u800 mb_ok mb_iconexclamation u8c2a1error ogridview ocontrolleru82egetcontrol oformproductosgrid ocampoview ogridviewu82egetbyindex 3u800 ogridviewu82esetfocus ogridviewu82esetcurrentcolumnposition 3u800 checkvalidmeasure false 'test ogridview endu800 ifu800 case unu800 endu800 select case fmtvidquotealto select case omagnitud case m2u800 mgu800 pru800 alu800 ifu800 ocampou82ecurrentvalue 25u800 then omensaje lau800 magnitud definida delu800 producto requiere completar este campo conu800 valores vu8c3a1lidos msgbox splitmsg omensaje 40u800 mb_ok mb_iconexclamation u8c2a1error ogridview ocontrolleru82egetcontrol oformproductosgrid ocampoview ogridviewu82egetbyindex 4u800 ogridviewu82esetfocus ogridviewu82esetcurrentcolumnposition 4u800 checkvalidmeasure false 'test ogridview endu800 ifu800 case mlu800 anu800 unu800 endu800 select case checkvalidmeasure ocampo ocampoancho select case omagnitud case m2u800 mgu800 pru800 anu800 mlu800 ifu800 ocampou82ecurrentvalue 25u800 then omensaje lau800 magnitud definida delu800 producto requiere completar este campo ancho lrgu800 conu800 valores vu8c3a1lidos msgbox splitmsg omensaje 40u800 mb_ok mb_iconexclamation u8c2a1error ogridview ocontrolleru82egetcontrol oformproductosgrid ocampoview ogridviewu82egetbyindex 4u800 ogridviewu82esetfocus checkvalidmeasure false endu800 ifu800 case unu800 endu800 select ifu800 checkvalidmeasure then ocampo ocampoalto select case omagnitud case m2u800 mgu800 pru800 alu800 ifu800 ocampou82ecurrentvalue 25u800 then omensaje lau800 magnitud definida delu800 producto requiere completar este campo alto conu800 valores vu8c3a1lidos msgbox splitmsg omensaje 40u800 mb_ok mb_iconexclamation u8c2a1error ogridview ocontrolleru82egetcontrol oformproductosgrid ocampoview ogridviewu82egetbyindex 4u800 ogridviewu82esetfocus checkvalidmeasure false endu800 ifu800 case mlu800 anu800 unu800 endu800 select endu800 ifu800 endu800 select endu800 function bitu8c3a1cora bitu8c3a1cora bitu8c3a1cora 20121203 cambio deu800 valores tope deu800 100u800 au800 25u800 10cm au800 25cm ocampou82ecurrentvalue 100u800 20121115 alta function checkvalidmeasure optional oevent asu800 object 'test oevent checkvalidmeasure true ocontroller thiscomponentu82ecurrentcontroller ifu800 ismissing oevent then oformcabecera thiscomponentu82edrawpageu82eforms 0u800 oformproductos oformcabecerau82egetbyname productos oformproductosgrid oformproductosu82egetbyname productosgrid ocampoancho oformproductosgridu82egetbyname fmtvidquoteancho ocampoalto oformproductosgridu82egetbyname fmtvidquotealto ocamponame checkvalidmeasure omagnitud oformproductosgridu82egetbyname txtvidquotemagnitud .currentvalue else oevento oevent ocampo oeventou82esourceu82emodel ocamponame oeventou82esourceu82emodelu82ename oformproductosgrid oeventou82esourceu82emodelu82eparent omagnitud oformproductosgridu82egetbyname txtvidquotemagnitud .currentvalue endu800 ifu800 'msgbox test select case ocamponame case fmtvidquoteancho select case omagnitud case m2u800 mgu800 pru800 anu800 mlu800 ifu800 ocampou82ecurrentvalue 100u800 then omensaje lau800 magnitud definida delu800 producto requiere completar este campo msgbox splitmsg omensaje 40u800 mb_ok mb_iconexclamation u8c2a1error ogridview ocontrolleru82egetcontrol oformproductosgrid ocampoview ogridviewu82egetbyindex 3u800 ogridviewu82esetfocus ogridviewu82esetcurrentcolumnposition 3u800 checkvalidmeasure false 'test ogridview endu800 ifu800 case unu800 endu800 select case fmtvidquotealto select case omagnitud case m2u800 mgu800 pru800 alu800 ifu800 ocampou82ecurrentvalue 100u800 then omensaje lau800 magnitud definida delu800 producto requiere completar este campo msgbox splitmsg omensaje 40u800 mb_ok mb_iconexclamation u8c2a1error ogridview ocontrolleru82egetcontrol oformproductosgrid ocampoview ogridviewu82egetbyindex 4u800 ogridviewu82esetfocus ogridviewu82esetcurrentcolumnposition 4u800 checkvalidmeasure false 'test ogridview endu800 ifu800 case mlu800 anu800 unu800 endu800 select case checkvalidmeasure ocampo ocampoancho select case omagnitud case m2u800 mgu800 pru800 anu800 mlu800 ifu800 ocampou82ecurrentvalue 100u800 then omensaje lau800 magnitud definida delu800 producto requiere completar este campo ancho lrgu800 msgbox splitmsg omensaje 40u800 mb_ok mb_iconexclamation u8c2a1error ogridview ocontrolleru82egetcontrol oformproductosgrid ocampoview ogridviewu82egetbyindex 4u800 ogridviewu82esetfocus checkvalidmeasure false endu800 ifu800 case unu800 endu800 select ifu800 checkvalidmeasure then ocampo ocampoalto select case omagnitud case m2u800 mgu800 pru800 alu800 ifu800 ocampou82ecurrentvalue 100u800 then omensaje lau800 magnitud definida delu800 producto requiere completar este campo alto msgbox splitmsg omensaje 40u800 mb_ok mb_iconexclamation u8c2a1error ogridview ocontrolleru82egetcontrol oformproductosgrid ocampoview ogridviewu82egetbyindex 4u800 ogridviewu82esetfocus checkvalidmeasure false endu800 ifu800 case mlu800 anu800 unu800 endu800 select endu800 ifu800 endu800 select endu800 function usou800 usou800 usou800 