 category macro descripciu8c3b3n descripciu8c3b3n descripciu8c3b3n control deu800 registro deu800 tabla vidquoten1 yu800 suu800 cascada. despliegue deu800 datos deu800 acuerdo au800 condiciones propias deu800 losu800 atributos delu800 registro. composiciu8c3b3n composiciu8c3b3n composiciu8c3b3n form presupuesto cu8c3b3digo cu8c3b3digo cu8c3b3digo subu800 controlformpresupuesto oevent asu800 object dimu800 oestado asu800 boolean oform oeventu82esource ifu800 notu800 oformu82eisnew then oestado oformu82egetbyname txtvidquoteestado .currentvalue 'bloquea formcabecera oformu82egetbyname txtvidquoteclientedsc .setpropertyvalue enabled notu800 oestado oformu82egetbyname txtvidquotecliente .setpropertyvalue enabled notu800 oestado oformu82egetbyname datvidquotefecha .setpropertyvalue enabled notu800 oestado oformu82egetbyname txtvidquoteacom .setpropertyvalue enabled notu800 oestado oformu82egetbyname fmtvidquoteobra .setpropertyvalue enabled notu800 oestado oformu82egetbyname txtvidquoteestado .setpropertyvalue enabled notu800 oestado oformu82egetbyname txtvidquoteacomdsc .setpropertyvalue enabled notu800 oestado oformu82egetbyname btncontactoexpress .setpropertyvalue enabled notu800 oestado oformu82egetbyname btnactualizar .setpropertyvalue enabled notu800 oestado 'bloquea formproductos osubform oformu82egetbyname productos osubformu82egetbyname fmtvidquoteprodcantidad .setpropertyvalue enabled notu800 oestado osubformu82egetbyname txtvidquotequick .setpropertyvalue enabled notu800 oestado osubformu82egetbyname txtvidquoteprodid .setpropertyvalue enabled notu800 oestado osubformu82egetbyname txtvidquoteproddsc .setpropertyvalue enabled notu800 oestado osubformu82egetbyname fmtvidquoteancho .setpropertyvalue enabled notu800 oestado osubformu82egetbyname fmtvidquotealto .setpropertyvalue enabled notu800 oestado 'bloquea formcomponentesdisplay ossubform osubformu82egetbyname componentesdisplay ossubformu82egetbyname btneditar .setpropertyvalue enabled notu800 oestado ossubformu82egetbyname btnaplicar .setpropertyvalue enabled notu800 oestado ossubformu82egetbyname btnreset .setpropertyvalue enabled notu800 oestado 'despliega estado expirado ocontactoid oformu82egetbyname txtvidquotecliente .currentvalue ofecha cdatefromiso oformu82egetbyname datvidquotefecha .currentvalue ocondicion ocondicion & contactoid &chru800 39u800 & ocontactoid &chru800 39u800 ovigencia valu800 querysimple vigenciadocs contactos ocondicion integer odiferencia datediff du800 ofecha date ostatus iifu800 odiferencia ovigencia expirado vigente oformu82egetbyname expirado .setstring iifu800 odiferencia ovigencia expirado vigente endu800 ifu800 'msgbox test endu800 subu800 bitu8c3a1cora bitu8c3a1cora bitu8c3a1cora 20120910 alta deu800 macro usou800 usou800 usou800 form presupuesto 