 descripciu8c3b3n despliega cartel indicador deu800 presupuesto expirado enu800 form presupuesto . seu800 asocia au800 macro controlformpresupuesto composiciu8c3b3n composiciu8c3b3n composiciu8c3b3n tabla contactos form presupuesto cu8c3b3digo cu8c3b3digo cu8c3b3digo bitu8c3a1cora 20120911 cambio deu800 macro poru800 diseu8c3b1o deu800 form presupuesto subu800 presupuestoexpirado oevent asu800 object dimu800 oform asu800 object dimu800 ocontactoid asu800 string dimu800 oexpirado asu800 string dimu800 ovigencia asu800 integer 'dimu800 ofechapresu asu800 string oform thiscomponentu82edrawpageu82eformsu82egetbyname cabecera onombreimpcontrolador orgu800u82eopenofficeu82ecompu82esvxu800u82eformcontroller onombreimpformularios comu800u82esunu800u82estaru82ecompu82eformsu82eodatabaseform ifu800 notu800 oformu82eisnew then oexpirado ocondicion 'ocontactoid oformu82egetbyname txtvidquotecliente .currentvalue 'ofechapresu cdatefromiso oformu82egetbyname fmtvidquotefecha .currentvalue ocontactoid oformu82ecolumnsu82egetbyname vidquotecliente .getstring ofecha oformu82ecolumnsu82egetbyname vidquotefecha .getdate ofechapresu dateserial ofechau82eyear ofechau82emonth ofechau82edayu800 ocondicion ocondicion & contactoid &chru800 39u800 & ocontactoid &chru800 39u800 ovigencia valu800 querysimple vigenciadocs contactos ocondicion integer odiferencia datediff du800 ofechapresu date ifu800 odiferencia ovigencia then oformu82egetbyname expirado .setstring expirado else oformu82egetbyname expirado .setstring vigente endu800 ifu800 endu800 ifu800 endu800 subu800 usou800 usou800 usou800 form presupuesto macro controlformpresupuesto 