 category macro descripciu8c3b3n descripciu8c3b3n descripciu8c3b3n rutina deu800 control deu800 lau800 botonera deu800 componentes dentro deu800 form presupuesto biblioteca biblioteca biblioteca libr spanexb composiciu8c3b3n composiciu8c3b3n composiciu8c3b3n cu8c3b3digo subu800 botoneditarcomponentes oevent asu800 object dimu800 oselect asu800 string dimu800 oform asu800 object dimu800 osubform asu800 object dimu800 omensaje asu800 string dimu800 ocondicion asu800 string oselect oeventu82esourceu82emodelu82ename oform thiscomponentu82edrawpageu82eformsu82egetbyname cabecera osubform oformu82egetbyname productos osubformgrid osubformu82egetbyname productosgrid ocliente oformu82egetbyname txtvidquotecliente .currentvalue oquoteid osubformgridu82egetbyname fmtvidquoteid .currentvalue oquoteitem osubformgridu82egetbyname fmtvidquoteitem .currentvalue ocantidad osubformgridu82egetbyname fmtvidquoteprodcantidad .currentvalue oproductoid osubformgridu82egetbyname txtvidquoteprodid .currentvalue ifu800 osubformu82egetbyname txtvidquotequick .currentvalue 0u800 then oquick 2u800 else oquick 1u800 endu800 ifu800 oancho osubformgridu82egetbyname fmtvidquoteancho .currentvalue oalto osubformgridu82egetbyname fmtvidquotealto .currentvalue omensaje 'msgbox test select case oselect case btneditar omensaje omensaje omensaje & seu800 procederu8c3a1 au800 actualizar elu800 esquema delu800 producto omensaje omensaje & incluyendo susu800 precios. u8c2bfdesea continuar ifu800 msgbox splitmsg omensaje 40u800 mb_yesno mb_iconexclamation atenciu8c3b3n idyes then olistaprecio oformu82egetbyname datacliente .getbyname fmtlistaprecio .currentvalue ocoeficientecl oformu82egetbyname datacliente .getbyname fmtcoeficienteac .currentvalue ocoeficienteac oformu82egetbyname dataagente .getbyname fmtcoeficienteac .currentvalue ocoeficientemu ocoeficientecl ocoeficienteac oconnection oeventu82esourceu82emodelu82eparentu82eactiveconnection sqlstatement oconnectionu82epreparestatement call altaitempresupuestotmp sqlstatementu82esetint 1u800 oquoteid sqlstatementu82esetint 2u800 olistaprecio sqlstatementu82esetint 3u800 oquoteitem sqlstatementu82esetstring 4u800 oproductoid sqlstatementu82esetstring 5u800 ocantidad sqlstatementu82esetint 6u800 oancho sqlstatementu82esetint 7u800 oalto sqlstatementu82esetfloat 8u800 ocoeficientecl ocoeficienteac sqlstatementu82esetint 9u800 oquick sqlstatementu82eexecute sqlstatementu82eclose osubformu82egetbyname componentessimple .reload osubformu82egetbyname componentessimple .getbyname componentessimplegrid .setpropertyvalue enablevisible true osubformu82egetbyname componentesdisplay .getbyname componentesdisplaygrid .setpropertyvalue enablevisible false osubformu82egetbyname componentesdisplay .reload osubformu82egetbyname componentessimple .getbyname subtotalproducto .getbyname total .setpropertyvalue enablevisible true endu800 ifu800 case btnaplicar omensaje omensaje omensaje & seu800 procederu8c3a1 au800 grabar elu800 nuevo esquema delu800 producto. & chru800 13u800 omensaje omensaje & u8c2bfdesea continuar ifu800 msgbox omensaje mb_yesno mb_iconexclamation atenciu8c3b3n idyes then textostatusbar aguarde unu800 momento... osubtotproducto osubformu82egetbyname componentessimple .getbyname subtotalproducto .getbyname total .currentvalue osubformgridu82egetbyname fmtvidquoteprecio .boundfieldu82eupdatedouble osubtotproducto osubformu82eupdaterow 'save data inu800 vidquoten3 oconnection oeventu82esourceu82emodelu82eparentu82eactiveconnection sqlstatement oconnectionu82epreparestatement call grabaitempresupuestotmp sqlstatementu82esetint 1u800 oquoteid sqlstatementu82esetint 2u800 oquoteitem sqlstatementu82eexecute sqlstatementu82eclose textostatusbar endu800 ifu800 osubformu82egetbyname componentesdisplay .reload osubformu82egetbyname componentesdisplay .getbyname componentesdisplaygrid .setpropertyvalue enablevisible true osubformu82egetbyname componentessimple .getbyname componentessimplegrid .setpropertyvalue enablevisible false osubformu82egetbyname componentessimple .reload osubformu82egetbyname componentessimple .getbyname subtotalproducto .getbyname total .setpropertyvalue enablevisible false osubformu82egetbyname totallistaproductos .reload case btnreset textostatusbar aguarde unu800 momento... 'ocondicion clienteid ' & ocliente & ' oconnection oeventu82esourceu82emodelu82eparentu82eactiveconnection sqlstatement oconnectionu82epreparestatement call resetedicionitemtmp sqlstatementu82esetint 1u800 oquoteid sqlstatementu82esetint 2u800 oquoteitem sqlstatementu82eexecute sqlstatementu82eclose osubformu82egetbyname componentesdisplay .reload osubformu82egetbyname componentesdisplay .getbyname componentesdisplaygrid .setpropertyvalue enablevisible true osubformu82egetbyname componentessimple .getbyname componentessimplegrid .setpropertyvalue enablevisible false osubformu82egetbyname componentessimple .reload osubformu82egetbyname componentessimple .getbyname subtotalproducto .getbyname total .setpropertyvalue enablevisible false textostatusbar endu800 select endu800 subu800 bitu8c3a1cora bitu8c3a1cora bitu8c3a1cora usou800 form presupuesto 