 category macro descripciu8c3b3n descripciu8c3b3n descripciu8c3b3n ejecuta lasu800 operaciones alu800 marcar elu800 vidquoteestado dentro deu800 unu800 presupuesto. biblioteca biblioteca biblioteca libr spanexb composiciu8c3b3n composiciu8c3b3n composiciu8c3b3n cu8c3b3digo subu800 aprobacionpresupuesto oevent asu800 object dimu800 oestado asu800 boolean oform oeventu82esourceu82emodelu82eparent omensaje omensaje omensaje & este proceso realiza lasu800 siguientes actividades & chru800 13u800 omensaje omensaje & marca elu800 presupuesto como aprobado yu800 nou800 permite suu800 modificacion. & chru800 13u800 omensaje omensaje & genera unau800 obligacion para elu800 cliente enu800 suu800 cuenta corriente. & chru800 13u800 omensaje omensaje & genera unau800 orden deu800 trabajo otu800 para producciu8c3b3n taller. & chru800 13u800 & chru800 13u800 omensaje omensaje & u8c2bfdesea aprobar este presupuesto ifu800 msgbox omensaje mb_yesno mb_iconexclamation atenciu8c3b3n idyes andu800 notu800 oformu82eisnew then oformu82egetbyname datvidquotefechaest .boundfieldu82eupdatestring format clng cdatetoiso date 0000-00u800-00u800 oformu82eupdaterow 'oestado iiif notu800 oformu82eisnew oformu82egetbyname txtvidquoteestado .currentvalue 0u800 'osubform oformu82egetbyname productos 'osubformgrid osubformu82egetbyname productosgrid 'osubformgridu82esetpropertyvalue enabled notu800 oestado 'osubformu82egetbyname navbarlistaproductos .setpropertyvalue enabled notu800 oestado controlformpresupuesto endu800 ifu800 endu800 subu800 bitu8c3a1cora bitu8c3a1cora bitu8c3a1cora 20121030 seu800 eliminan lasu800 lu8c3adneas afectadas au800 redesplegar elu800 presupuesto deu800 acuerdo alu800 estado modificado yu800 seu800 reemplaza poru800 macro controlformpresupuesto 20121029 ultimo script subu800 aprobacionpresupuesto oevent asu800 object dimu800 oestado asu800 boolean oform oeventu82esourceu82emodelu82eparent omensaje omensaje omensaje & este proceso realiza lasu800 siguientes actividades & chru800 13u800 omensaje omensaje & marca elu800 presupuesto como aprobado yu800 nou800 permite suu800 modificacion. & chru800 13u800 omensaje omensaje & genera unau800 obligacion para elu800 cliente enu800 suu800 cuenta corriente. & chru800 13u800 omensaje omensaje & genera unau800 orden deu800 trabajo otu800 para producciu8c3b3n taller. & chru800 13u800 & chru800 13u800 omensaje omensaje & u8c2bfdesea aprobar este presupuesto ifu800 msgbox omensaje mb_yesno mb_iconexclamation atenciu8c3b3n idyes andu800 notu800 oformu82eisnew then oformu82egetbyname datvidquotefechaest .boundfieldu82eupdatestring format clng cdatetoiso date 0000-00u800-00u800 oformu82eupdaterow oestado iiif notu800 oformu82eisnew oformu82egetbyname txtvidquoteestado .currentvalue 0u800 osubform oformu82egetbyname productos osubformgrid osubformu82egetbyname productosgrid osubformgridu82esetpropertyvalue enabled notu800 oestado osubformu82egetbyname navbarlistaproductos .setpropertyvalue enabled notu800 oestado endu800 ifu800 endu800 subu800 usou800 usou800 usou800 form presupuesto form presupuestou82ecabecera evnt presupuestou82ecabecerau82etxtvidquoteestadou82eitemstatuschange 