 category macro descripciu8c3b3n descripciu8c3b3n descripciu8c3b3n ejecuta lau800 llamada alu800 proc actualizapreciospresupuesto conu800 losu800 paru8c3a1metros delu800 presupuesto indicado. biblioteca biblioteca biblioteca composiciu8c3b3n proc actualizapreciospresupuesto form presupuesto cu8c3b3digo cu8c3b3digo cu8c3b3digo subu800 botonactualizarpresupuesto oevent asu800 object dimu800 omensaje asu800 string dimu800 oform asu800 object dimu800 strsqlsearch asu800 string dimu800 sqlstatement asu800 object dimu800 oestado asu800 boolean dimu800 ovidquoteid asu800 integer dimu800 ovidquotelpre asu800 integer dimu800 ovidquotecoefcl asu800 double dimu800 ovidquotecoefac asu800 double oform thiscomponentu82edrawpageu82eformsu82egetbyname cabecera ifu800 oformu82eisnew then msgbox nou800 esu800 posible ejecutar esta operacion mb_ok mb_iconexclamation u8c2a1atencion else ifu800 oformu82egetbyname txtvidquoteestado .currentvalue 0u800 then omensaje u8c2bfestu8c3a1 seguro deu800 actualizar este presupuesto conu800 losu800 precios vigentes ifu800 msgbox splitmsg omensaje 40u800 mb_yesno mb_iconexclamation atenciu8c3b3n idyes then ovidquoteid oformu82egetbyname fmtvidquoteid .currentvalue ovidquotelpre oformu82egetbyname datacliente .getbyname fmtlistaprecio .currentvalue ovidquotecoefcl oformu82egetbyname datacliente .getbyname fmtcoeficienteac .currentvalue ovidquotecoefac oformu82egetbyname dataagente .getbyname fmtcoeficienteac .currentvalue oconnection oformu82eactiveconnection sqlstatement oconnectionu82ecreatestatement sqlstatement oconnectionu82epreparestatement call actualizapreciospresupuesto sqlstatementu82esetint 1u800 ovidquoteid sqlstatementu82esetint 2u800 ovidquotelpre sqlstatementu82esetdouble 3u800 ovidquotecoefcl ovidquotecoefac 'sqlstatementu82eexecute oformu82egetbyname productos .reload oformu82egetbyname productos .getbyname componentesdisplay .reload endu800 ifu800 else omensaje este presupuesto seu800 encuentra enu800 estado aprobado msgbox splitmsg omensaje 40u800 mb_ok mb_iconexclamation atenciu8c3b3n endu800 ifu800 endif endu800 subu800 bitu8c3a1cora bitu8c3a1cora bitu8c3a1cora 20120920 cambio debido alu800 nuevo proc actualizapreciospresupuesto subu800 botonactualizarpresupuesto oevent asu800 object dimu800 omensaje asu800 string dimu800 oform asu800 object dimu800 osubform asu800 object dimu800 strsqlsearch asu800 string dimu800 sqlstatement asu800 object dimu800 ovidquoteid asu800 string oform thiscomponentu82edrawpageu82eformsu82egetbyname cabecera osubform oformu82egetbyname cabeceraampliada .getbyname detallepresupuesto ifu800 oformu82eisnew then msgbox nou800 esu800 posible ejecutar esta operacion 1u800 u8c2a1atencion else select case msgbox u8c2bfestu8c3a1 seguro deu800 actualizar este presupuesto conu800 losu800 precios actuales 1u800 atenciu8c3b3n case 1u800 ovidquoteid oformu82egetbyname fmtvidquoteid .currentvalue  strsqlsearch  strsqlsearch strsqlsearch & update vidquoten3 asu800 t3u800 setu800  strsqlsearch strsqlsearch & t3u800u82evidquoteprecio calculapreciobase t3u800u82evidquoteprodid t3u800u82evidquoteelementoid t3u800u82evidquoteancho t3u800u82evidquotealto t3u800u82evidquotelpre  strsqlsearch strsqlsearch & t3u800u82evidquotepreciop calculapreciobase t3u800u82evidquoteprodid t3u800u82evidquoteelementoid t3u800u82evidquoteancho t3u800u82evidquotealto t3u800u82evidquotelpre vidquoteprodcantidad  strsqlsearch strsqlsearch & where  strsqlsearch strsqlsearch & vidquoteid & cstr intu800 ovidquoteid  oconnection oeventu82esourceu82emodelu82eparentu82eactiveconnection 'event from button  sqlstatement oconnectionu82ecreatestatement  sqlstatementu82eexecuteupdate strsqlsearch  sqlstatementu82eclose oconnection oformu82eactiveconnection sqlstatement oconnectionu82ecreatestatement sqlstatement oconnectionu82epreparestatement call actualizapreciospresupuesto sqlstatementu82esetint 1u800 ovidquoteid sqlstatementu82eexecute osubformu82ereload case 2u800 false endu800 select endif endu800 subu800 usou800 usou800 usou800 