 category macro descripciu8c3b3n descripciu8c3b3n descripciu8c3b3n sugiere unu800 cu8c3b3digo deu800 contacto deu800 acuerdo alu800 tipo deu800 contacto referido alu800 momento cliente proveedor agente comercial otros biblioteca biblioteca biblioteca spanexb composiciu8c3b3n composiciu8c3b3n composiciu8c3b3n cu8c3b3digo subu800 sugerenciacontactoid dimu800 oform asu800 object dimu800 ocontactoid asu800 string dimu800 vcontactoid asu800 double dimu800 orelleno asu800 string dimu800 oprefijo asu800 string oform thiscomponentu82edrawpageu82eformsu82egetbyname mainform oformname instr thiscomponentu82etitle auxu800 000002 ifu800 oformu82eisnew oru800 oformname 0u800 then osugiere false ifu800 oformname 0u800 then osugiere true else omensaje omensaje omensaje & elu800 cu8c3b3digo sugerido estaru8c3a1 asociado alu800 tipo deu800 contacto indicado. corroboru8c3b3 yau800 elu800 tipo deu800 contacto ifu800 msgbox splitmsg omensaje 40u800 mb_yesno mb_iconexclamation atenciu8c3b3n idyes then osugiere true endif endif ifu800 osugiere then ocondicion select case true case oformu82egetbyname txtclientetag .currentvalue 1u800 ocondicion ocondicion & clientetag 1u800 oprefijo 0u800 case oformu82egetbyname txtproveedortag .currentvalue 1u800 ocondicion ocondicion & proveedortag 1u800 oprefijo 3u800 case oformu82egetbyname txtacomercialtag .currentvalue 1u800 ocondicion ocondicion & acomercialtag 1u800 oprefijo 8u800 case oformu82egetbyname txtotrostag .currentvalue 1u800 ocondicion ocondicion & otrostag 1u800 oprefijo 5u800 endu800 select orelleno 00000000 ocontacto querysimple maxu800 contactoid ultimocontacto contactos ocondicion string vcontactoid valu800 ocontacto vcontactoid vcontactoid 1u800 ifu800 ocontacto then ocontactoid oprefijo & right orelleno & rtrim ltrim stru800 vcontactoid 7u800 else ocontactoid right orelleno & rtrim ltrim stru800 vcontactoid 8u800 endu800 ifu800 oformu82egetbyname txtcontactoid .setstring ocontactoid endu800 ifu800 endu800 ifu800 endu800 subu800 bitu8c3a1cora bitu8c3a1cora bitu8c3a1cora 20121017 ultima modificaciu8c3b3n usou800 usou800 usou800 form presupuesto form auxu800 000002 form contactos 