UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

ulukai2


Buenas, 

Una vez mas acudo a ustedes porque en el proceso de automatizar mi formato, me encontre con la que considero la parte mas dificil de todo, y es la contabilización de los defectos, como podran notar en el boton "Añadir Defectos" se desplega un Userform con la opcion añadir defectos, item, cantidad y dia, al agregar un defecto y seleccionar la cantidad y el item, este agrega una nueva entrada en la lista defectos junto con la concatenacion de Item vs Cantidad y lo deposita en el rango C32:Z36 dependiendo del dia, el problema radica que ahora necesito contabilizar todos los defectos que voy almacenando en la lista de abajo, pero de verdad que no logro visualizarlo, dos de los problemas que voy encontrando es que si el defecto se encuentra repetido el seguira almacenandolo en la lista y no lo contabilizaria como unico, osea que le sume la frecuencia al mismo defecto y lo otro que me dieran una sugerencia para poder contabilizar lo que se va almacenando en C32:z36 

GRacias por su ayuda
Archivos
FRC Nuevo formato3.zip
No tienes los permisos para descargar los archivos.
(51 KB)

ulukai2


De momento ya logre detener la accion cuando se producen los resgistros repetidos , aunque no de la manera que esperaba , lo ideal es que al conseguir un registro repetido este le sume el valor de la frecuencia a ese mismo registro, por ahora solo deteniene el codigo con un msgbox, pero aun no consigo la forma de poder contabilizar los defectos que voy agregando, solo falta eso para culminar la automatización de este formato. seguire investigando, acepto sugerencias. 

Gracias por compartir su sabiduria.
Archivos
FRC Nuevo formato3.zip
No tienes los permisos para descargar los archivos.
(51 KB)

adolfo castro


Hola buenas noches, no lo he probado, pero prueba con esto, o quizás tan solo te oriente sobre lo que precisas,

For registro = 38 To 52
If ActiveSheet.Cells(registro, columna) = datos Then
dato1 = ActiveSheet.Cells(registro, columna + Cool.Value
datofinal = dato1 + TextBox3
'MsgBox datofinal

    MsgBox ("Defecto ya existe")
    Exit Sub
    End If
Next registro



debes registrar la variable dato1,dato final

saludos Adolfo castro


pd, tan solo contesto, pues lo intentas y aportas, asi es como voy a actuar a partir de ahora, eso si ruego en el momento que se solucionen los problemas se marque como resuelta. Muchisimas gracias.

4RESUELTO Excelente Trabajo el 21/10/15, 10:07 am

ulukai2


Gracias amigo Adolfo, esa es la idea, aprender y compartir, valoro tu constancia porque estoy seguro que toda esa ayuda que brindas es sin fines de lucro, muchas personas vienen a foros a que les hagan el trabajo como si el esfuerzo de plantearse un codigo fuera sencillo, requiere mucha creatividad y dedicación para tomar el camino correcto, gracias a tu respuesta me abriste una puerta para visualizar el camino de lo que necesitaba, modifique un poquito el codigo que me diste para adaptarlo al objetivo y si, era por ahi el camino, adjunto el archivo modificado para que puedas notar los cambios, ahora cuando agrego un defecto repetido suelta el msgbox y tambien contabiliza ese mismo defecto sin repetirlo nuevamente y cuando son defectos nuevos, obviamente lo agrega a la lista, como te dije en anterior oportunidad, tengo como dos meses y medio en estos de las macros y es un mundo fascinante, aunque se que me falta mucho por aprender espero seguir contando con tu ayuda para proximos retos que se que vienen, nuevamente gracias por tu tiempo y sigue brindado esa ayuda ,

Saludos desde Venezuela
Archivos
FRC Nuevo formato4.zip
No tienes los permisos para descargar los archivos.
(52 KB)

ulukai2


Creo que hable antes de tiempo, porfa echale un vistazo al archivo a ver que estoy haciendo mal, no entiendo hace un momento me funcionaba, y cerre para mandar el archivo por aqui y ahora no funciona sigue repitiendo los defectos y no los contabiliza en uno solo , gracias

ulukai2


Por lo que veo solo sirve bien para el item 1, pero desde el 2 en adelante no me funciona, seguire tratando de hacerlo funcionar, se que mi error esta en el primer Exit for, pero si lo quito el For Next hace otra iteración y no cae en la celda que deberia caer, espero sea una tonteria odiaria hacer una modificación laboriosa teniendo tan cerca el objetivo, gracias nuevamente. te aviso cualquier cosa.

7RESUELTO Excelente el 21/10/15, 12:14 pm

ulukai2


Ok aplicando un poco de creatividad, pude resolver el problema , ya esta todo listo creo que ahora si funciona, si puedes revisa el codigo y si lo ves bien o me das alguna sugerencia para mejorar estare atento , todo lo que sea para aprendizaje es bueno.

Saludos,
Archivos
FRC Nuevo formato4.zip
No tienes los permisos para descargar los archivos.
(52 KB)

adolfo castro


Estaba revisándolo cuando he visto el mensaje, te comento
[img]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAVsAAAD/CAYAAABfNXWhAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAGffSURBVHhe7X0JgGRVdfapXma6p2dlmIEhiIhBGWBYBgYkKKJIFKJGVKImUdyN4soWkEVBBRdcMOIaF+KSP0GRaFAx4BIFAwiyDYsswrAMMwPIDjO91H++79zz6tbrqu6q7upZ4HzV5917zz333OW9971Tr15XVbZ+xrOrUpGEimV1Y2kqc1tlTqopLaGitiljaWpp1pp3dS3TEty6ca8KH5YlhjRGbouKOot6cHjWUzF8RTGnUWjkv4xaRZMlSxirskH/rqprVrXimP1kyOeY0lF9FcWSflzkgxirbWZXZFucgJrVLEf7SavRObi7VpdC7ccbw6hjS4t+DBIpW6dritE2td45GM8l1CuKsTIpjXzsg7fOtpWR1hs1n5351a39WT4lyNWWb7QH1DUftldo3+WxlHyW65ftuUTmzttMFixcKLNmzZGBWbNkYGCW9PX3y7Rp06VXxdJp0tPTI909vdLV1S1d3cnfg48+0XBYqZpbQ9PRZ1aay5toob5VXWXHwb5qmwL1C58XMJ50ralfWaKBqkWY37ag5lVt5l2i9Vjdt0Lg7Y2g1nOVA0kDylDzl3IwsdwkgP5SFmA+V2AMWsaQTMHapK0BJrnSjTuCup5KMMJoSq7ZeBoPySoa1lHfuFVzuL11XDeq5oVaaRxyLROSo5ke6J/WI29+2YvlrPPOT5pNB4f9zYvlm/99vnzlG2fJ5z77WVk3NCJ/tc+essWiRSTeWbPnyIxEuNOn9ynZ9knv9OlKtr3S29ujRAvpFulSnvmfK+6wU6o6UqwTKBLZUcsGmwQsLm00wwOiCwpcHbqY0gNSLXP/QU+gVYJnff/W9nhKG9gm0KeKHeRaqQqqoEMGNSPQWeqglRe1GUcPYmEReU3hDmXOh2b5hkDObVIumdRsDKkzJliPvOzQUaGcVfkYyuAe0E3VJomWab4soMKSVGZKX1bwMsE9T42MaD4fG/bfSHKMPn18SOGLS4q+NHU774NIa8cy++Mgir4xft8vzCeBQ59bBanao0m+rMiaq9Rec15tKdq5zo5lIjmplbNEN/DHCw3acxzQW94KAK2YwxFdwXGv4FySP6YsJh9QpTqPaNGOOd0wh780ZjvuqGAdm0CQYHz8s9Q2zJid9mddpr5ZtpfnUVGkmlBLnfrQc9xUWkb/ZkDYkNBJV5GvpSZaoo6pJbLrMxbIUa99qZx+2iflsRW3CQI9s6EnriPGoJTENlxXLSOvRxp4ivnUpIakMLvGgB5izKVclMouw8kz6s0m6XUzsM22cuSxx8hnzz5P7rjvUVk0b4b8+IfflxOPP15ecOABJNx5m80n4fbNmCl9INu+fk37pWdaLwm3p1ej226dpe5vJd1uzXRJF0NeDX3JxD1SgWgZuoragJ2Npd3GyhUNk008D7KF85Tqi6E0OkM/Raq6CgR5Faao8/ou6S7KKrp3aOOiOkygu2iHFGPSdhC07+nWvArSJD1a7kHaa2l3j7bzNireN4V9Wj+4iPgBhf58jlxEzAN52qCd1ZkP1GFcaWycc9IVgjXVNBfoMzuuLco4PDGerL9irVWqmscFDmVe6CBVHL41vR103VanqR7OqsdBZ7Yoj+Ag1PoRLUNXHQH54uBMxJxSy1ubalV9ul/WJV9Ii3xFD+S8HQ50tedYzAYp+4ZwfCrqm2NJNlbfw7q6ueka6cHMtErp0TWpiS6uplZH28Iu2RY6O+4rqb109Rbt7VhPPjlfbaO2hU+MSe1csO8wJrQR+EU79qH6OsE8VK/2nA/mqevD9eCcUYfU5kt64pyTDuvj+bRGxbqkMo4h+MGxwtSPHe0Tx62vHcZox3E2Zx170YY6s/dj0+uMB7SM9WOd7nNlshGNCmVoSIYHh2Rk3ZBUVUYG11JkcJ1UIUPr1G6d2g1SKkPDUh3Wo04F6UhKKahTGUlpI5GUwk+F/ga1nGRQ+9A+fQwoj6hgfBgnxotx68Tk4SdG5KZ7HpEXHHyIfORjH5NLLrlC1j7ysPTpudivHDKrt0vm9PXKZv29Mm9GjyyYOV22mDNDpV+22myWbDN/jlR+fe0aPezB5nol8beOmtrpZNAlJWjjV0BrRDCPjQtOJOhwwnprM0piScoRdFXrMgN7s2wZyd4SG5eDF2QVatOYaxdpy9R5xXigTsqirihbhiawZanIKAqNbgplY6C6GEuClssqwCMO1CLFHFjWDcgPV3785XUjLCOXoNki+sz6dovCp9bl/pHCj/lTsCvVsA7RbWFkSeHb5g8brpsVCzsHh6QbvJhSAV2y0zKbcqP0ASXydGlHqNVbO7dFHfMoasZqUz1Ty/lugie9lphejUH/XgNFbVzuqb4/h1XjPKqpmaoeVbhIOiwKdFtuzDZteGFHjqlXWpkpHTKrsHov5tE54LPRK2ZK8Wf1lro6ZTKdwQpF3zZoprj425+NWTf4szyNRXbZZq6875Uvls989OPyyG038/KIWjADOV9T6tJ+rKvXDPIYA8pjAbODrdkbbMZ2rGA5UEYeQQOAtUKe9VqZVoi6mdtuLx844Z/lX879H7nu7ofVC2Ypsv2WA/L8ffeWJx57SOYvWCjTNZrFfdpeDVhxn9bEAyULutCw8tsb/2y8qMCQ6gYLg6QDsDOQt4MPUkay1BWqtYIT5C2tP3AsTcyMTErL3jN9YVuPwoIHEFKWatCyqcoVjtqIbawpmw7Y2mAdVi603qS2KYADD17qtTUUI8oybo/uKVpitRZ4wFCnogXsDydBECBStGUebZCHXcqjnik27ASZWj1JnAVrjzwFdVppOmytDyiogyLlfc7YsAuffKontG1dPjVIrtVHzdiPKHtrazqAuyX5ZqIbU2GrbUp1jrrjUAUuvT/U1UZmOszXzDO9gjp0kuaSXDLjeaTuz/stxpUascjUCrVUJRnXj7l0TLmNdVP0VzNKF0dmkaroTrGjyYqW1OZpqqwn+0vjSWUVUhDebeGlCr7zg462IkueNkve/fIXyukf+bg8dusNRppslyTlgZxoTVfE9QX+ffkK+fXt96aSyPOfvrm8bqdtmuoxQ5ulzQR5pE64Xl/YaSXSGdvtIEeecKyc+eNfyvUrH7cZ6YRmTe+R313wA/n8GZ+Xffb/G5kzf4HMmj1P+mfMlOn9M6SvbwbTadP7ZPp0I+Ke3mlSueTmR/T41YVVJ4hakbdlg2ObuA0tpczqqY2s398BmEn1WGE2ttaW1+XyHUJVSoEio6DflC9D7eqqskLDJskRt5nT3NYP9gLIFwZ1lkWSm9fmCFjeNX6SAOyGZfOJ4dRK9SjPn0Xd4D4S6nAa4ORHHgcFdaw3XSGsSzq3S77gw1HTKXRQRfuko6QMUt/rTubQYR15oKJcbDRRf6hLRYWtCVsmQ/q2nOmQoJ2pixTwE5Bwm9yAOlNga7sA9n7cmT5lU9k06B85LxlQwhgxKBU45IC93lQom6W3T2kyq2hYblmrxbZGooC1rI3X6nMLJClXB7cqkNn52tZoVcepOh9NYaDIc2xPO0XyhzxSjgsD5R9uG6QUZY4Z9d6uIjtvPUP+6aDnymcR2d60HGrCotkasboA3WkMNV1tdIdfeJ18/z++kkoir37NO2S/refK/975wCj9mQfsqDl7r8JzRcXu01o5FyxFEfGqzNx+JzlCyfbLP7tIbrhnLecDYE7P2mKa7LVsmfzV818sc5VsZ8/ZTGbMnC19SrLTlWz7+gcY8eIerj+pUPn9nx4n2RY7VjfYGU669oeu0+7REdmBN6ID1CGmMIiDxYZWNirc86EX+GYonfJYYaBIVeg8S5tgnGqizoaF+laYCbt0dTGMlMEckbpeCyinomaKa73B5+FAUdkin57B2rFjKuvbsc6RCkgouiFxIq9rzvXW9ohYbRdU7e0Q8og+NaWNZlCPvmz3eNlQZNEuZT0PH4DvVhS9L69n6vXo18t1W1tZ9wcUWc1kakUqZcp8ebGC9IW8632tsaMysFo3bgYbjMTLAHVQaFM74s0HbWivegzcMpZPNo6iTfJTyxhQQpkp6wyeMz2zhQ7ITAuklbRCAfWdjPMtE+yTbDzM5TvCfbkqNa1DYZ71g0Q3fCGF4BRXakQdy3CmfzttNV3e9sI9eRvhwWuvYiSL5iBR8AxSkKtHuKgDEQMe6eLoRQr855/ul9+uenQUsZbLz91iQA59xmbwzCk4kfI8UcFxjeMZnu3csXMEdVii2TvvpmT7z/Kvv7xcblw1qFrARrH706bLTrsulb322V/JdqHMnqtkO2Bk2zdjgGSL/DSNbPGUAsn2D3es477AJM2PTR46gAunqR9kPNEow3pyKd2O6DALHU0MuvJcbu4BvLXATsBVUMuMcGlkzrnxhgaW6lUcyyi9ORplWyrWQUc62sD9AGM1BrSeY9ENm8GdZmouMO+UHeUYZeuA61XA7Ira1Aw2fnIY0dlBYh9AGXH6vSaPfHkAqQLtWA/7ZONjhS4VDSmD9nV1urF2XLXCP/N4WYY6FIo+kCKbMsW+q1sPh82a9d5QVbT0cgL8mDXSWqV7gI5ab29Zy/s7q1RRO+bTfgSQ0UEntRWR94kgVSUuLEVfCvpSuG+OJeX9GlBbA7jwnCEnS9pZNxnMHlvq6wxMay5qKdT5GFMX2tQ1ZdT0MM2taivk87JyQbRaxPkNwuS5jzJemlm8qEfeut9ucvpHPyEPXH0FCRTrBal0GYn2oKwZ3ydOtvgIEvVAcS1VxfdXPCAXrX68jmAdINp9F86QQ7eZa8ejAk2dbIewUQXqcNyijPrqCD58TXqVubsslSOVbL/xm6vkxtXuybDbX/TIzrvuIbsv+yuZp2Q7S8l2YOYcI1slWtxS8CgXj4LhkbCu4lN4pEqEPV34BD/lU2qf9qvowplwviq6UNhxuJ2AsxkEXB3Sok6LJAyd2WCn8yqmDU3MZzdTLdf5hx46t83z1m7UmIq8jsvbJCmX0SeedMifdqDOJdOPEq3HQ8r2JETyyXyqQ55jTeWs31rZD85cbG2wsJhryrIOPnHQ2hhwQOOpBitzrGk89AtbCHQ+QDoxfRXlmne+mOdF0YRPNXhZ+ys+ucYnzrjpXzwtgU+oVZc+hcan6GaLSMLe1aiCYpdwCPozG+/LbFKeOzr1lfrjUwFJUGY/GBdTiH1KzvhIU45dryi4IKUjjzqOAXU4lWGn7fDUAZ76QH/wlefpMytToFM/2A/2NAHGDf9pDVMf9k6u5gPjLnyx3vwVT5vQj+nytad4Oa0fiQGpZZiHXiek27S+yPm6cq1qftAXnzQoCdoVeaY+LpRTH5hL8m/+XG/t3b/7YFlfCMr4NMHgOhkuCXRl4ZMJyK8bLARPC1C/bp28assZsu/86STWBx98sBAS7ebT5VWLZjT025ZgvOAxzk9nkc4hCFTQoX54eEiG8ZQFRPPeblilFowqD157t8ZD2Yn+mwt/Ku/4+5dpwXDQy18tZ3zte7pDnVQ1ekFEC6d0ZuRKXtW6737rq5qpyD+86Z906dPC8+TUVA8kPGrlO88OBnTs4JGDP+b9YCJgqskOi6bLuRf+XnbYaRdWeWua0d4beFMvm2WdfQYM4wNv/3s55LWHyfNe+JJkkKzQqK5B8pKSI96h7V7zBtnvgINMUQc1wiXZ2zNrc7vxuqvllS/aU875n8vk2Tvtmgx0H/ziZ/JP//hyWX63HlhatqZ2cllU6XnuFXusJtUVUugs2rRI13wxRXibxg+QmDKV20LhbUyhvpDFRqF7vtj3/ABGO+W4NGtNrBGeD+U7Ae+glmGfyYp/KcetW9UymkWeDYxm0Bn7Yd86mGK9zSvACxWORYwBxyK1Nh5cpKyU4Bn1xSw2nJP2p3m7XZJ8Q5dKMOMxnfKYLyjeCpbYBna6yXUq2WwVWolFTODnIygydT1skg/OD/MxZzaMmkeM0HQZ0Lakq/k2eL2rUc7znmKmICEbQ8qjf00Xb9Elhzxjrpz+wQ/LnT//EYaqdSZ6adEAz1JIl+67Hq1npAvf2hfo3bqqH9vPpi+Sy3s2lzM/f0rSiBz+3pNkj6H75KB1K5PGWoEycchCEMkOqRLnx7D2gnu4OIeGNHUbzHHrF79cjvzYh+Xc2x6UP95b3/euW3VpZLunLNHolrcRinu2GtUOzJR+3EZItxPwQRkElzguEPDtr5xBov3ttXfxHsUfVw9qmPwc3gzGAYVhY2fYB2NKuNmtBMtDrB6RrdvBBqNH9EZg51iXXETbWSaA9eUpBAe95wHLuz2AetpQ6bYmR7zjH+R/L/xZqjehPfpNUoPXZfWqzW3LAuCwRpaS1VFSHWCnpcmzF+8s1971hDxrxyW2ZrpG965amYh2rdlhr+v6cW259tDhhIO9VbtvL9s+MMEBlZdTN6rXOtV7an6ht3oCgwcDq+SRCkWPG5jxIXsFm2tjfEjHi7EKr+x6FA8PDcsQ84gCoFcbTSm0y8eXxkiv6Fr9qxQv9K0p9hLHkfJoww8IMQY+H4m+VLTvQjCGNDa7IFjKdYAgr964HhCUvZ72uLCpf23P4z6NfyiVOS/oIbBPOvrCXLBNE/OLHednGatAXpFH5VZWob/kP60tIyice1xX9ItjA2OFaJm9WqfFfFiXyhxzTWpt0cpsoUcD+tM+kFKQ9/GkstfTHzxoO/at46wiQNOodFijVEp6rrUmiCgtioUdBTrm19Z0Kj/t2YJE+7lPnyiD2sYF5ct75stPehbW2Y8nww1kRCNVvkvH+H1NkqQlZd4j2WJtkKa5m86MccHX/VuR+9asltNOOlL+65d/kIULtlAVDm2RN7/jfRrdvkp+fcHP1AmcY1NbVOxoOwDSTk+DGYaNCg40jAwvR3FYaYaS8gazVydJjB04AZSJVOe2qcx69ImX59MBBMK2hfAyUtPpxqQRaIp6Kxq0kC4cxbABTiTX2Roa4CMJD170bakuXiqPyH33rpJf/+E25m3OttYmdmvG18KFJ0mal80n2SSxE8lORuwjkAMPDrWzE9ROjNqJqi58yL6TFJwNiJeVNb0B7bN+cACCZPWAhfhbrCG85YKA/EAQ2YFqkuaRdotBSUf7cmJizIS81qfYk+PFGhjJWp9D2sfgkJ6EKhzDoNalsQyBiFOfth42blsvCNZH/XGMJmwDwkjjduE8VYeTDjbmS88F95XWRf+Y57pivPq2nxnMBfPjXLL5Qaf1aMP9jBS+uZapf5QxHoyXOvRneuxP69fF2mMgPj87znDeYt/7/nd9EvjJynah9L6tX7zTtTFZXWGLdjorzovTw60SRL4mtdskmG/KU49bLynP+3IQXQ+V8weeJldMXyif+vixBcm+/8iPFHnor5i2UH6mdoWPUWK3dYp+tY8KROs8sOB4ddx2PNYLUKwVXtma+XqjrBtYsqxe4U6UbFchK4v17TkVWKLkbPc995Zz/t+/sfEH3vEGOetrZ8qu224u3/76l7nT9trh6bLX4m1l7x2fIVdfeXnq3Bb6mPe/VXbbfnPZZbt5csQ730Cfa1avlGdvOV2+9ZXPy/YLeym/vuCnNrAk3v6G5VfJ4r+YQfmARqgEJqx1q++5W3ZQP5RFfRq9/lT12p4TtYP+iH/6Bzn/v8+Rf3r9IbKj+uAc3v4PsnirftkxyZpVd1OvHcutN90oixdNL2TNatRVte+/p38tUD7wNi/bkLBkkLN0Ts/eold2oPTIDdddreSE8eI2xeu0v+k6jj4566uf135X8rGY1ZpiJ/3vL34mrzxwL3n+7tvKzn/RT/84cDG+3baZId/+2hmy+zZ9svTpffLbX/ykOMFs5+JAxwGvgjxPOBALiEajCD1BBweVZPRgHBpaVxyYQ6pjmk5g+OKFUtcY64+BpymTkDFJTNn+uSW9NG8nrp10kKFh62dIIxPIuiQsa9QwyDGgjHHoGECAHEPtnpfNy/yzUyZ4GZhqHT4Y5Li5BiB4TTkv7UMjosG1a2Ud0kFIWg9NXUaKNbKxcK0wHtoib2M1f2qj5XWogz/MxedEG/hIKXxiLZJP7i+MV8dKMtL15bQwL5+UwufFz0PSbIt9jLlhv3I/J7+pH66Zzt8uZCnFPGADe0paH+Q5b+wr17mkfZCJ+zHR+cIn5g0fXItaH35Rgi/8Fxb3H+65T+uRyoxe6errlUr/NOlW6ZoxXaR/upb7VWZo3QyRaSp9/VJFvq+PUlWbasqDSE/76FHFeI4+9uOydOR+pq5D/RW9C7SNtaNMV5+QXu1rmvmi7z59567SNb1XRKWi45N+TacpGeu4ccTx2HLRefE49J2mCfKUpD/nrDPkzttuqrMj2eIEWn3PXRrBHmqMoXUpcFNU5RnPfBZUPEC0pXzylOPl5/93tbzusLfIce97l7zvn4+Xi5ffIj/61e/kFz//CU9KDOd7Z31Nluy+p1xx02q56tb76e1/f/Fz+gL+8PvfyU2rB+Vf//3H8ta/f7nq7eVX3HvvWSmH/PU+8oPzL5ZrVzwkrzjUyJYHqZ6E++32DDn3f/5Prr/rUfnfK26VdyihrtE2Vg8ZltPP/Jb89d8cIl/81vflmtsfou7TXzxL/T0sy+94WF780lfKeef+p9nrwD7x4WPk1+pr+Z2Psu5jJxxp/jCmRPK+eIB/nwDXR+Wwd7yXt2Agx51yunzps6dSD6LddY+95do7H5Nr7nhUXv+Ww3kCAYhEblh+tbzrDYfIhZfdLFfd/rCmN8m7DnulXK8XG+xg4KrLL5HLbnlIPvv1H8j733SIHcw44dLJZydGOiHWqegJ4AcfTn6SCUhhrb5NAhmAOCA8WdKJp8KTGmTL3a2jt786oFyx6xNtLNoxQnA/FPQD3+iXYsS3TgmQRJhkSMcEWxKAz4X7REVfPCa8Y/ZZZFlAPQlX22EtGNEqGazTPtmfpmuZWt+mq5FlTdKYsra1sUOs/ZCma1M9ZO3gE8nW2sLW61hO6wHS8gsJ141z4Sw4J8wDs8IWdcyrrlhjtNUURIqI2kkNZEn/XDsVnT9JWAVvh3HxISHymDBy9PGYHdY/kafqau8I6sXWCGmaF+eGdt4+F/WtxyYmxn/77+mT7hkzKT39A0qsM1UGpFula8YMqQz0SWVmn3SpyAxNB5SIB5QcVS9az/yMftm960E57oTTC1mq5b+e9pCmD5X0er6n9pCumepPyR1pBaL+u9Qf+4fomHpm6HhUkFZ6tB4fvuqOsHVKa6WBBHYQ91vaN5ZPOs0c8vr3yFbbPBM7sICRLeqVZH/6o7Otgb+SM8huS/cystHXv3z932WzzeZrxLVKLvzZeXLA37yUBDtv883l3cd8MLmsyuc+cbJ89rQPydLtF8qu220m55/3Q7n1lhtZD5zw0c/otio7LrEPhxDpsU8ciNrX8muvVKJ8hWz/7MWqH5F9n38A7XBAgoSAVxz4HI16B2S/pduxfK++DeeBrILIDAcnxo/2JBE9MH+tEeTO28ySnZ42i1Ev+vSD/0tn/UDmb76A5be95yjWs059m11aF5axYdageZAmIlvIaScdRTUi+Z/9+Ady8Mtfzbb0k0gEwFgvufhXctSJp8pmqe958xfIkSd8TC696Fc8qYAjP/gxjv8vd9iJ5TV6geTbVhKMnmx6kg3pW2U7sbOTRU8MOxn05OfJAXLAyeJiJxD/Zx0+cCLrWhXz1ZdH50YGNm0Xg9Yr+fpbVYuGfExpLNoPCCwnWRLg2ieszLEZCdjbcYj1y54wBusJClOlMuywbuwX+xk+SApOek/IWiXJtdoXUka7KLN/GxdTFR+TkzLa2MUh6ejDxuw2uIAVBEsbSNLpGOxCgnnpCauhuI0Xo9fjgLcL0pwUUNu8VJDPMjhu+FY9Hct2gTXhenP98tsnSLGuRoCWYl/b/rA19+PEdBAnlyLCh+hcKDieNEVb+kh5L5u9ERPGg7l1d2lEq8Q3bc5c6Z6phKvSO1tJd84sStdsTWfNke6BOZqfLd1zZovMmi09alOZpfaadmuK8sFz1srx81YnWSMHzVmndQOaQr9GToBstkYOnruW+opKj0p15iz1M0vLs3Us2sfMOZqHzvz3qP+uAc0PDEjvHK1Tgu9WsuWapzXzi5adx8YLNdSXALOzfWdkq1i8ZHem1ytZENzB+qd7/pz/+LZsu91f8mCmXlNrj4IdHH6AAEgtZhP59rk/l0tvukeuuPVeufr2B+QNb3t30Q6WaRwEoxedgEcpOGlR6feIkNIOeT3YgGtufzDJA/QPYuZJl9oz1ZfpLII8/I2HygWXXC9XarR9lBKaEzHGAzs/iPGhA4A8xmFjM/EFLFJ94XbAK164h5x74eVywz2D8pXv/pjtYQJwjWBbjM3mYBEL+oakkwcpy3ZyAbi3yLd7KgCiWkY3PMGS6FWXBwTfxltEi7fG69YOMhJDGfl1GtGS+Hiy4OTQVIlgUP2hf3vLZPPkK80BCQRvgGyDMl46HhAHxsu52TryJOaYtD+MBX2qkMRIUjWi5UmKg1rHYfNH/2kMWDvrjjCdiq4R61jWPrF/0C9JHmJ9Ys4kR/YPAvU8yBBEinIi0GKNQJjQ69qRYG3cGGuxfiAwvDtAXv2QtJnHuqc82iTiwdtqzs2PIzvETTAvmx7LKDDRAo4dv72D2zU4Jmpva0HgKiO6djwOLCVZcg0SKfoaY2zDmqed7Rs/dnz93a52q8BSu2iandVDYI9+jewt+oM/GwPGP3f2gAz3z5b+zbcg4fZClFR7lPB6lWSnzVaZm0TzPUq2kG4lvZ65c6VL9d2admvapW1rgrLWpRR2FC+num71CaKFoD+Qaa/67wWhzwTxakpyV/3sudI3f0sZ7pul457J8XO+WB8cy5r3Yw9Yccv18rXTj5PPffhwuev2W6g75s0vkZuuvYJ54Bfn/T8jWzRZsGCRvu39tPztC3bXCPOeghje945/lJ/++Bx53v4HZge2iubxJQzAhT/5b6a/+82v5QufPJV5tZT3HHuSvP4Vf808DxjLWYcKUIjXEcmvk+TmC7eQn//kv+SG667hCXzUu99EM9Rt/yz8G57Iv/3rF1iufRKMAxMHMsrwBf/qN5VX3XO3vOigv5XN5m9O+9M/ejz1Riwih7/pUGuv5a9+4XQ56viP0dcuuy+TH579XerxZINHxGgDIL3v3tXMP3unXdjmh//vLM5p/oIt5MUvfZWc9qGjbFwQnGTaL4D+93zOvvKZjx1fzHX1PffIZ089QZbuvS/HA0CPkwtjAIaGdNwkFj3hcJAzDxsc/EZ0jHDSyUECADEg1ZPHIg87eEjienKACCxyMqJjT7phmiaLhFkr2i0nNUBqeqyL+lEh+eKkg2+cmCCAun7TeFCGjc4BfVv/cMgumLjY7OsBW1yTsKZs7+ugPv0E4b1h7Yv3W1O/JBEQJ8ag9axLxMl62uGdAfKJeLjWSdK6YR/gQlXMz9sngiMpwZ4Eifml4zLNyqJbZqkxJBvqrILHcVIigR8TrLOmOBaKsUEwXhwLGFsiw2Lc6dgpCBvrBrtkQ4GNzQ/lEa5lrY6Ci777QB9uq3noMebdlu4t1+m72vk77SoDC7eS6UqcPRpp9qlM1+hymhLdNI02oetVQZQLHYiwR6PgaYiEVXo08uydqZFnSXo8r1FpTyYoI1LtTn4RzcIHZNoA+tX+lVD74FulT0l4YOEi2XzHXeT6P/2R7+ix0B7wcY64NcJ9U5WVd9wqq1feIYe950Pyvg+fKVttsx31OX790+/LrTdeI5Xl9+DL7vRE0Y3ubiWSn8jb8+dsX/Yq+cwX/42LireYRyrhveyVfyfPed7+utOHZfWae+Tl++mAEg4/5oPqqyJ/d9hbBM81PnfxtqnG8P3zL5YFC7eU5+++nfzmqttk4RaLZPXqe+R5uzxdfn3FLfY2Widm0eaI/PaX/yPvfdvr2PaID35EPnPqifLv//0refYOO8tNNyyX17z0+axz/OGW+9OBaYuB9I9q97qXv4D1v79xlXz3rK8qkZ3IMgC///Dmd8o/v/ctLF+gBA+86OC/lY9//hsM4ECkf/2cxdQf+DeHqK4ir3jN62W/F75EjnznP/I52+cdcJA9I/sPL6cd8OKXvVo+/WWQ9LDs8rQZSat9KokfePAhctC+O8p5v7lWLywL5aL/vVCOSHMFPvOV78nez32hrFmzSl6x/67yw19eJXM3Xyj3rl4jhx6wi/zHBVfL3Plb6H6wqBcnIQk4nXiDPBEsb49kpZTrghlwpwv/UaK7V/DVmd34hnnmu6WC7+PkM9LpU1sCR4ki+cEa84Tk7QsjFhIniI2kYwco9om2UDLEYcpuzQ9Gob7x3Z/+jUn4lnv78mV964lUBf3zgXIfB+dg/eM4YdTGqHMtiQ23SnAfEhcXvAPAJ8z2jxjwYw/145934A91nBXydI2RwTdU1gfKdns+5dUWeg4HKmuoG8Dq+dKU/0DTO03ngy8kwdym8Vuh+PWf+jYV4yBS/wZdKBAyXjo/kDzmA/LEekOHfuyC7f2iPybptk+6LHFcUFoRKHpiouNlNtMVc0HWfHnKA46m3h/W1tbS/vFG19nnpvNcOKdfZnY9Jie++kA5+BWHyNJl+8jm/dP0oF1HN3qkmTtdhu7KiPrRflDEGFRsONCgfxhy0zrgRp2gVVoR+hnG0yD4ujcF/6sMFrpv7n1inVx1xWXyk3PPlVPO/pk8Xh2Q+x5Za31jo03222kL2XHJbjK89hHZafd95C932FVm6AUC/zWG/x778HsOlfeccIYsWfY8efvfLpUTP/M9qVybkS0fwEZeU04OOxSLrKlHHCRdXMX0hYgL0YvW0p47JPnw/1BBisXv4ffg6omkO4Dfg5sOLNigBXyyD/jAVUT7csKFb9gXQFv6ZyGlBvauG44Df5gHhPDRAWkHA3AAn1bgn+1cB/pArT2TbCe99o8DzB8VScjH6S7gi1d4rCMF89SxYG6QYlQ2BpR8/IxakiMc48gyVUuk2HskWRIq9k8iXl3DITVAtMLHkpDnerrvNM5EPPye4kRyRrzQgfwS2So4Op0fD1iMP4mRnUY/idwYDZJoodMUg+KYsW+ZpR9LbG1JtDg++HMiOg4lWvvyZSWmdLygjT8TDi/eP9aQb9UZRWoUijQRv5HUkJEA9hnmVcGcUjn1X7h1qF+OFHpklQD4gaAxLoEqq046jAWrgwuZVtCvvvAffiBYfg1fmhe/v5gXNpCSjgPt0yBI/PhL5xPPB3+LjwhZLx42d+1L9yte1g4b9AjQAe2YV3ANHZp1S8BzNIE5LzLIs8C+TKxfnxvbIZ+OI6ZJ/Duasf/mDfTIlrN75CcnvEuuu/ZKWfXIo2ipTdFO29OH+bNzO+loZSjOMlfa0Hx6RTHX8VhVcJVUVxwzXFstY/20bIGDWW+hEfJijcAP+si/yOqHBkV5tmhvGyXbnRcq2e4uK/90nbzgb17TJtnShV1FmHrnSHVARhZKEinvJEtyRF7tmMdzCDoeLKAfzDhZeSKp8ATm821GyN4z3x7rSYk+jXTRL8jBxqCOaAd/lsI3M4XOAXPMAakdbLUy0hrKbVGGBXRobFpCKzje1J+TLE5apGaafKXmDu7MND9ePDAvrFWRqnHym8MPDPuibT1weGIZueKhdxwa2lzLRrCIYIdgP6QEqzp7u2p62z/uw9p7n5wHIy27INqXqeOimPL+PCKQ0trYVEDoJFglVxIciA5vPTW6ZWSJeWsbdMnGKvSDvpHV/kn2OEZ0HCCjRPwWadfIluOlD+sfL5K9km3tviSiW/RvkSD6x77DcWikYHPmya2ilACPcA/HNjzdcLzaBzq0OkAzuugo1nQK7Ecm2CYygmgJffLCodKbvsEfUV9Xj64tokAIyC3ZY24EfHKeug/51h0XDoieJ9oHjh814gFg62PNAGTRFvXMU4cxaYbI8in16wj0vrbkASjTODi95LPYJ8jzfIBPOyc4JxKuXVBAugvm9Mm2m0+3NmjrPhqAY2efKjpPWwcT9N8WYJ51M7pPL9f7XXHv43Lfwxp9qz1r0DfGoNn9dlwgizWynb/ZPHnisUdl3xf9Lf+TrBHZ/t8vz5MVt94glatW1sgWLq1b65Q/kaHOoec9C0xaBQRBwQ73lCfUEE8+O9h08fHSgSKSsLemOHn1IMNBr3q8NMPujIzUE/1oir5BDKkvs1Zb8B1e2LkcZI2wDTZ2gENJZS4R/pIOPpDlunNjfg1IbVFpQ9Et7DBuCPu3A8vbu2UNyYfOA/Pi2mkKEtQMI00/kLBeAPw6vC1T3RTk6mWKka/9Z5PJiJOurqdmbS01tV9bQGvNc2tjJ/mk/QJyxeMu3E8gPpISFt3mnRqyTx78+sL+8g+jGMmCdF1wj0vJge31hYMNKcC9QL96UhZkb6lFfS5G9myFMQCpf6SYk98bJeGmt9tV9M/7iSMWPaoU0Rf88UKJvZh8Ksy96uE6sQ9U3i3rCn1aDIXtp1TW8bg5+tEFLS4ivI2AcwHjUR2iXq57skdDtHXStjniYobzIxEu3ynofqToH/rjAOELTgAtoy3Gil2O4xTa5N/nWQCmWdHaItEUM+N4kFNn+sf+YK/C9dOy70tewHgB0XI6pvDOlhdUroPVaaWO19o5kENPFpjYsVPkNbV31nZbCLbamn0zgQNC94yOm/sjjZ+j5PhqQkvmbYlgVvOhYMHq6Yb+LN13h/mMbHddukzuXXW3XPYb+321N7//FNnmmYvryBZftXjBf31XKn+4O5GteoNTjoGdmmMfsJGC7XySBl4sW0qiBVHi7gd2jDryncC3bYlseSLpyaxTQCcKjQrpE4uIhVWCQF/qiW+fMEsIWmDHoEnaoSx5WgKbEGiPP1Nw63UcgrdloQ7mAxu10roaOZhg7CRbti01VqA9tFwnnZNF7zY/Veh8TbwPv+8FX2yrWfu3TfPFAwKEqRosMXVajzVC2e/LMo+UeaRuqxu4gEdjvWweWFNN9WRAyp/vSToKmmJc9KBQX3xpyqg63TLgByRI9aQYItnaRYaT0X6sT/VnGYpHQvYdGiDbWuo6cgh90AXn4/3j2LEPgkC2ltqxpMck+te1po/UD05+6x8uVacvejb3CXY+AIUa9qnELTbaP+yw1mjDgSFVoJrHir7snQN+ignHP8aivWIdlGxBvMmjwr6nxI573VNMdR+SaHReIBvcA0/9eD3ngb6SANhbsCrKSFRhRdhZWgOsrd79QmVeFMzjYDIb+k0+an1gHDovTXk8cc3tuLIoHqRrehwHPua6YSi4Txl8JcLl/qyl2sjaYrGw/9wFMopifXS/4OXj8nZIfcyppSKtlxXMJhsY/ahf2Oyz/WzZcZelsstue8qcefjy8Ll1txEoA/jmL/teW3yJeOXyuzyyVUd0WQN1cI5Fxo5HNzxxdRFQ4sEAQrRFgVSRagPOBx45KVtki2xVdNGtL+/ZDiYQD4kcKf1qDfPqjzvH7Hmy0q8tsjnDBgNF3pBlrVBUY6v9sl0NhRvbsN+ijU1I/2wceOmgUv/JHjoHxq4J1g/nIQ8ezA1rxouIzxVWmJ/6wkHD8w755FMTvuVXGVHGI/nCN8qo1416Qnfqy05SRrM4yJDSiY2BKcr5ONMCsn/0ixOjKNuJgrHYv8paS3Nl80OK/eWfUA8x9QjEPpnmHNU3D/LMN17Qa4UdE+gbdqhH3lPYpP4BjAi92/7B3Kx//icYoz87ITGuShVkq+vLE9zetteOG644rwGOLGs2mCRGSnvki6RI04pgKJZqv+QANMLUNUuCwYWDgQdOeJ8fzKxXXNCsCY4k+El+eZzYejrZ4PyAb2y8K64pfCJFFbb8g6HNodBbY9qaTaFK1ZiPKwDkoUOifVqH1o7tmSv6LsYBwT4sSXGs0U2av7kgME/ngoJkOXfTeZDDNPWDMl3oxsaJo93G7GOBrfZKG7bDi40MPmP3Y4kdbwQS1e/1jBlKtnvIkl2Xtk62l92he1Qb247WTfLJAWQ6W3gbOPK2s3Hy4mRLUa0Trupt8hgXJoMDDKJXNf7gHT5wQY1ZgCBwwmhjRn/sC4vMfmyaXCz6MtFNSrHj1ABGDQBXtarMiE6RsVGUUVim9jRP9pZwNK6s2QOpjaeYgZ0gNk8cMHahwtphBfEpbLqPjQMxHUg4LJzk6CORrvnUJUr+mepGr/dUsIx1S+cjDjlskIfQIzbw5wXOR8ETAUUt8yRAyprUFnnbJ9xPPid++QvIFkSL48BOCkQnsPOTC85JnjxJVAd/3IeaY9/Wr5VreQftFRwB+kee/eBE9OMQJ6qNy8doXxUKXypI0RCkRw/mE9uiK01x6Du0WQFkUUVbZNQ/lxKpFrHYPk73g7lYFGfz8YiOc0umXBJzpC5xXKQBcC3TnNL80ITnIKD9erRO31w3c2opasxXUhdgUTewqEc6YFTNNayDlvWv6MMc1Dwgz3kitbF4mWSLxeR62FrwxfU1D7DDPsX8GDRwznY8QVTB9YR9rR91gNS0Ojwbo64YzGlfG4uJ9WUtAJsmNwpzZjVlVGWPbfDl4XvIzrvs3jrZ/t8Kj2wN+U5h57rjE99yU0vTxDVni5KIFgeFNTSfdI4Fsfs1IFo7xPNecWLgQMLCYJlqJ4mV1ZLm+UJB1K/vJPaZ8qhi0drWISno07KZTWqboF1ngC+rrG0zY4WbIy165jzgK80Pc9L14rxUoKcnPQg5PxJCivx1g7nCopge8rrlyusGKSqps66Y4qRlHaBls7N6A3LZ+DkI7DN0qnltz3XmWhuYQxl+MCAVjgP7P0UcvFXC/ahljCvNmTsK/jFP7H/kIewPZai8nKUUdJyQCnaMMWPjQH9Z39DZqpjYiY3jxU5ygJ540hZu61CoNJNGZKLG5tvKGItr2AbnDPUoQ48+UQGADHWLebGBzc/ascgh2/ySYC5cx3Tc4JEOgDbW1sjHyMzWEcq8X9hpIZWtnllPrG/A+/d69G9ZhfdZvwbos3CkQL35w3hQb3m/EEDsNkCqRzWNrB36x3wxR3v3l44pzl9XFG3QPgkU7gMvjo0+oMQe0Fr07S+2YQO2MZsyRmtgB5dLt+4h2e60ZLfWyfZ3t+nok88613U6myB7ISyDkwlZRhAkW7v62ikIaGv+6QuLivs1PNHsYAfgH97gnwuJReUiwXcS2mCBkNO2cIGWaWFZYWbmUOFFz9TKmks2RFEBYCfVI3Vv43HfjD5qbmDCoVqRsDkUhVSG6AEDFQ4glFMru0KrR10nvJhHD+ls8Z0En8izFf2h7PpaCni5DuoGOnirr+JKqs76QQINbaiyem/E9UCKl+ZJBjon+9DPdHo0kPlpi/2PBtz36kvnx31a5KFOfWDLPytZkucBbWFDsP6LE9OOH6/XGtqgDzzvynWGkzrXtQJyXgSyLIG6ss77AljHjensOV30aCOpJz/Uw8zqofCmtiI+ek15AUlz4/wctscwv5qkcnJIn0DKeLnQK3Ib5NkDNlmkldsUyIaCPi2TmTCPkik9ore8HefFmGkP67RaqV+I8Qp0lua21i81ltc/WyeqFJqhjdWbfdHCMwVKxYbg99nutqfsuPOurZPtxSBbhXfg46vrEAVOsgZOOU2IV9wkfrCzPSaWUjjBgY4F9rfGOdDGFtTyybHRtmYLP/xzf1SaHoAPy9XBdXSboSimdvBLXaqoM3ffqSuisFOl5mHhffhIWEadt0eKsqmtrAnf5tA55qVCcqrNzR8L0tWVCj4kM3XyUUsB26MGz3p9sVSWGLRgZfTNTH09ek4KJGZSs+DckvCWAqowSYVdkFXoOAnyvGDZetvM3GNtDDWMUqjKrAHrqjYGRGJJwxTwteTJjnKxSUB1yjpYrjeppbrJy96j922+7Tzw8QFsA0UiMRsXqxRqn/IW9WI+qMZMYA/xQEaBurQOPh8eNSlvSeE8wcYEsMqamy4zRWv0WTRP8ypMCn1KgaTL3CjSeJArUgu2sC+gxBgtbzY2Cxiac849TdvWQTO0S21QgYYJpjc7mNbsYVazY98pbRVuucuiika2INtdWifbi/5UrW49x74tvTGwc8qD4ZQT8km5vlaL4dW31hIUMPGKzDz3DNR7KmO0pr51PWp1o61cUwxpLEeKojqz82zelPncWcoi8WUAcBDArLbfNeOFrE0NhWGBss9GqKvzBmNhDGf1VVqyP8unJOUyWIfQ21jHG0A7GN1bGdZb1meD7puOKFU0rc/6dxtquGOtMLpt/ZjH8003yV8z2/wYYraJYdP2KUWPo23qx9sKamOoefOiESNVTfOjBuLrmZR51ZgoDFtuIUNK8nc9lAoZdtmywsgWX0nbMtne/udq9Wfn/Uh+9qtLk5uE0niaD88XX1NmvVyGeqCTmifPNWvRCHWta4VNBxnxluddTKeNK+1GhTS3MY4Aw1TPr+nCbuLgvBqv8SZ/7DTDGHPOUT9rlJpZa10bS/Ti5+8lBx388lGEu/OWKu2S7V0PjlTffdSJ8s1PHZ3cBAKBQAB46zGfkn/51EdkxUM1hkZux4UiS5Rs8VuIrZJt05sHgUAg8FQH3ihA8A/5IEsXEG67byKCbAOBQKAJnCDxFAm+vwLCDyUT0c6eLjKvX2T+gMgClS1mimw5S2SrOSJbqzxtrsjT56lsFmQbCAQCTZFHr4xmIUmXVbWEINtAIBAYB06sTriGsT6yG40g20AgEGgGf8JGUz5HrgTLR+/aJFogyDYQCASawP9Bx/7d3gTfqAeuNdKtx9o1d8qtZ58pN33nMzJ4/6qkNQTZBgKBQBMwmlVOHR7GPzgo0Q6bGAfXk+3aR++TlRefL9suGJAtponc+l/fSDWGINtAIBBoAgaxSqpGtEq4w/gid3xPhd9OMKx99AF5eOUlIkv+Wh4dFFm1TmTl8ptSrSHINhAIBJqAtw6UU/FDqiDaQSXadfgy84xs1z3+oDyy+iLZeut+2WbGb+UyGZBVN9wiz37je1jvCLINBAKBJrDI1iJa/FT9IH5FehDf2Q0iVt3aR+T+ey6SRYvmyX333SkrVtwr5517nuz4vuNk0c67Jy+GINtAIBBoAv+6UHx9LH/qCTI0RAZGdPvgqktlm60WygN/Xin3r3pc/vXsG+SDJ54omy3YOnmoIcg2EAgEmsBvF/hPPeH37QYHB6nDdwwv2nJLefCh1fLnNY/Lv537Rzni6KNl/pbPTK3rMSmynTt3bp20inZsW0Wnfbbrb6L9N2o3FesTCAQmAj5ZS2KtKtFW+aObmuJVHZG16x6RB+9bK2f/7FZ575FHy2YLt03tRmPCZAtCeOCBB+pkUyGJjWmcWLccvq6BQGAjgEaw+Bp1++HQYS3j18MHqUd0e/89j8hPfr1C3vpP75JZc7ZIjRojbiNsZAiiDQQ2JuDHO/HlM0NKlkNKuoPSpWIEPCIXXnK7bLPkldLTvzl/1ZoyYoInxIaUnwf5yJiSbbtfptAqEKHlEaSXcx3QSO/5sr4Mry/bNNPnyOua2TfSN7Ipo1E7oJG+nG9WX9YHAoGpB77hC8TaLcPSo4TbXRmWri6NbFUHIp625d6yYvUq+fJ3Lxb8TByJNiNcJ2AQ75RGth6lgSSQd3GU9TmZ5HWNSGYiPnPkbZrZN9OPh0btxhvXWPV5XbldIBCYOuB7bEG2Pd0jKlWZpum0Lo12NUqFHLDdcjngaRfJoTteILf+4ii5+ReHyxXnvFEuPefV8rtvP48RLWWqybYVgDxccoBYJopmPpuhXfvx0Iq/duY3mbUIBAITBwi1S1kSv8zc3S38rcbe3orpVbacs4h2ixdtx3TfRdswPfBpW8jNK2tR7UZBth6xuXQC7fgEIbZq2wo67S8QCGw48LtrdQOy7enuku7ebqamxlZk562UYIdEnrP11vL44GPygm0XiKwTefiRWlRbu2eL2w8bAcaKBCeKqfDpmIzvqRxXIBDoEJRQGcX2dEtXd49Gtj0a4U5TvcapKpfeeJP85Mqb5AeXXyff/r+b5HuXrJAzf3WbfPrXt7L5ULp/i7Sy8sGR6ruOPFG+eXr7P/hYJow8kkNduZzD63J9rhvLl6Mdn2XkPhv5aeYb8Dq3y1OgWdtcn+tarQfK5UAgMHV44wdOkS9+5lRZce8jUh3R8LQ6JNXhYdlluy1k8c67yJLd/0rmbmY/+DiQ/+DjgP3oI37wsa+/X6bh13XveWik+s4jTlCyPSa5DwQCgQBwmJLtlz5zmtx+32Mk20pVQ1Ql3CVPny+Ll+wqO+/2nDZ+XReNN5b7CIFAILARoVq1+7L8eKvSLVVKr5ah7+LjXviymrrHvVz8SQSVQS3bnV4SbiAQCARy4CsWEYySdBPxIm/aiiiHkmxzIdFqyvu1LiBbhMV4BQKBQKAe+LYv3jnQ1H8WBySLyNb0sEkEmwmeQGCKqDaJxsbaAtaBQCAQqIN9KDZi6cgQGbQ6rCl4U9n27nsfkttX3i+33Hmv/PH2VXLdravkmpvvlqtuvEsuv+4OuWz57XLJNbfJxVfdamTLL1gIBAKBQB1GlFj9G7+QHxkZ1LJ9ny2+9Wt+ZbVs0XW3bFVZIVtX/iRP77pZntH1R3lm1/XyrO7l8uyuq2Vx15WyU9cViWzB2oFAIBCog0WxiGw1xbd9uaTIds2aNXL33XfLHXfcIbfddpvceuutctNNN8kNN9wgy5cvl2uvvVauvvpqufLKK6Wy6oEnqm9599HynS98hM5bwbnnnptygUBgsjjssMPkwQcfTKWJYc6cOSkXGAvvete75LTTTkul8XHom98v3/zy5+TWu/5sDyCAZBW7P+sv5Fk7LpGXvGBfWbBggXzyk5+UM888U2bMmCEzZ86UQw89VH7zm9/IwMCA9Pf3y+LFi0G2j1fffPiR8t0zT6WTVgCyveSSS1IpEAhMFB/84Adl66237gjZ3nnnnakUaIQLL7yQvNUO2b76je+Rb33l8/Knu+9LGsNuz95anrV4iay8/SY55phj+M9G2AeHH364nH322SRcyPOe9zy5/vrrSbhKto9V3/TOI+V7X2p9AE62X/ziF5MmEAhMBCDITpLtrFmzkiZQhvNWO2T7qsMOl3/76r/In1aWyPZZT5PtlWxf8sLnthzZ8rsRcKM3EAgEAvXgQ174IpqS8DsTtO6b3/wm7U491e4MvOlNb2L605/+lOnSpUuZ4n5uF3PpPsRkgAGVZbKYCn+BQCDQKroS93R3dUk3vvVLpae7O5FwjVxxOwhw8j3ooIOYXnHFFUy33XZb+uoI+GuTeMq3lG8XZUJ0X5CJkiXaBdEGAoF2UVGS7cLXK/b0SG+Snl4lW/CJSluRrdKQZp/cRDQZ8g8EnsrIv4nuqQhEsl1KuNOmgWSVbHt7lXB7wbPKmpX2IlsPk6caHl3mfbWSHwvub7J+AoHA+semQOQgWohHtj093Uq4uI1Qzzv4AOzLX/6ynHHGGfKJT3xC9t57bzn22GPl/e9/Px83e9GLXqSRLb7MZopJCf7buR2QR6GwdSnr2/EZCATag3938lM5uiXZKrfg1xlItCq4Z6uEgz+54IIL5JxzzpHtnvlMOfilh8jr3/g2ecvb3y2Hv/doOeLoE+TYEz4iJ538CTnl1M/AjzZSh1MNJ8ycFJ0kITmR5miXUFvxGQgEJgcQsEuORvpcl+uBZnaOcnl9w7mEH5Bpivu3EGOiikyfPl322Xc/2WrbZ8sTI12y+oFHZNWfH5aV9z8od933oNy55gFZsebPsmL1/XbPtmOfko2BnDSDBAOBjRsgOP9FkHJ063UuXtdMD4yld7Ris75hZIsIV3ky3b+FkG1VFu+4RAbFIl3T5Wm9kGfXR2SbAxPw1MnXdZPFVPgMBALNkZMhSNKlXUym7VQCPEKyRZok1chwJd2/RQl1nlLw6Fjt8TF+QMYbt1MIJz4XlJuhTJLN2rXjMxAItI+JkF8enbYTkaKPibSbapBEVcCR5EqQrkrGUMkoaZhmgjKyuiFJdzKybUZ60Ls4xsu7vUsZjeqa5YFyORAIjEaZ+FyakW67+k0JYAxwJCNUEK0WSJrGoHVwTZ7mou0sMgwEAoFW4MTrgvJYeqCR3u3zvMvGBPBjQbQe2Tplaoo4ly9yKexNPON1DGkrU3wbIRAIbDrISTJHrkfeJcdE9I7cxvV5/cYI3l5IH5qZdEtXd7d0J8FjYt3p+dwU2QbZBgKBQDNYRMtbARSAW0awJsaltUgWcuUfLpcrLr8UlemLaDTTCRSdJZks2vWxofsPBAKjsbFHp+NCaQBMoKySUgPv51K8JpWZrcjg4Dq56Le/kt/8+kJZt26tf+uXN584QEz+YZXLhiCrTvSPdkG0gUAAKCgWfxTjBt+azvQuGgjLfWtWy85LdpVddl0qq+9ZCbJFE2vWaYDwNkU4WQcCgQD5gKlLjRtAstjUiDaRrrLtLbfcJM961mJ55l9uLzfecJ10PYbfLpsiss1RG0ytr7KuXA+UbRzN9GOhUZtm+UAgEAAefmytrFj1gNyhsmL1g3LHmodlcGhECUMrVQrWYNkU+OWN5cuvli223FIWLfoL+cMVv5fKXQ+OVN9/9InytU8ebQ1aQKOfxQFRNYsGy3VezvWN8q20A3J9jkY2jka+mtkEAlOFTv4szllnnZVKgWZo92dx3nj4MfLZT50mN95xH/kAgg/I9lq8tSzZdXfZbbddZe68zWT2nLkyMHOW9M+YIf39M+See+6WRx97TJ7/ghdJX1+//OLCnz/5yLaRvpwHynVAXg+U2wQCnUanyPa4445LucB4aJdsP/PJ0+SGFWuUZLvICZC9d3qa7LLbUtlt111k7mbzZfbsOTJz1izpU6KdMWNAvvudb/KRr+5uSDcfCQuyTXkgrwfKbQKBTqNTZBuYGhjZnirX3w6yxS0CI9x9dgbZ7sHIdl4psn30kUfk/PPPk/cdcSyj3L6+Pt7zndIHbJ3ENmY4oUI2hfEGAoH1D8RcHnbZx2UGMgZJ2LgErzvvvEP2e/4LrQwD3fT193eObJ2scvGosFzn+lbQqN1Y/prpx2oTCAQCzQCuwC+Qj6S0OqLckdEH+ZRsa4WleyyTxTvuTJ7RTcE5HY1sbVA1ydFIP17e7V1yNNLnulzvaFTXLA+Uy4FA4KkHsACoAHwAnq1DIlTjWiNV5kGwrE5kq6+uoJNAIBAYAyRai2g9wnWQUCkg1VqeuUSyTrhTes82EAgENnUoxTKqJceOik4TsRJOtXjVcv7qImvTMBAIBAKjkDiyKhrdIrId0dRqLJqlgE4tRcajWasz6VhkW3Nek8mi0/6ATvkJBDYm4J8aQsaXCT2PDMpIkW3j6DYBdo0E0LRyxwMj1Q8cc6L86ySfs3WAzCbzwVLevuyrE76ByfgIBDqJTv4HGXwFmuPCCy+c0H+Qfeq0j8q1t6wEgRiHqOy/+zNl16V7yh5Ld5d5m23O52zxTw14zhb/1DBjYKYMDAzwnxz6+/plel+fRbZBPYHAkwOz9IQPaSyTQTVFqAzUSoT59S99TmZNG5E506syV2VeX1U26xuR+f1VWTCjKgfvv6csHKjaPdv1AVwRXByt5MeC+2vFD/IR0QYCgfZRleoIt6RL3LvN8b73vS/lGuOyyy5jyke/ppqDnOhcchJshJwUYetS1rfjMxAIBCYCYx3wDDOaGte0yzjr7dGvnDQdTpKQnEhztEuojXyO5T8QCATGA/lDxdLa0wjtwMh2PRARBpnL+oYTsOcDgcBo5L9wuz5/5XZj+0XdUUiUYdSBTfsc1kXymxBPTxw56Tn5dooAG/n0MsTLgUCgHiC8/NdtIRs9Ca4HgC4o+hrBvdsJ8oeR7RSTD/yD+FzG6s9tHc3ateMzEAhMDJv8jzV2CGAX3KsF4VqU235waGQLuu4QmpEe+0niGC/v9i5lNKprlnc00gUCgfHhtxbyaNfzZT3gulb1jkb1Y9lPPZQzwDOkXEnfjdA+j3RJdVjbqQQCgcAYaHZ7AfmyPte1os/RrB7lDQNEtIYiVsu49owzzki5sdFVHRmWkZGhVAwEAoHGAPG55GiFBHObZn4c49Wvfxiz2rtivJNmscB4z9k6lGxHNLANsg0EAs0B4vNoc7IRZu6n7KuT/XQK4Fbcoa1gq4X279Yauqq4haDR7WSRf1jlMll00l+n/AQCTyV0Krps5mfjiV7HgBIsvjScv9Sgxfz7bFvBsmXLZMmSJSBbPMsw+Q/IEGL7h095vl2UydB9QSZKlGjXCT+BwJMZiCRBfrl4dFmuGw9l+2Z+XO9ot5/1B+UNTyfAH9dccw0+ICNXm+ZJChBsIBAYHyC7XHI0qmtk4yjbOhrpy/myTV6/IQAKsd8g0zT7Ptt2wP8gWx9xHq4GLo5W8mPB/U3WTyAQCIwFJ1fGbRPkFfsp9CkmJfhv5218HonC1qWsb8cn0MhPIBAIjAmliwp4hpRrfDMRdIGiWuCpScOJLidFJ8mxCBB6l7xtM4zlsx0/gUAgUINyCv+DbDRafs6WTtYD+TjRuQQCgcCmALCVP4mATZm/Wn7OFpv1Hec5uXv0CekU4Tfy2SnfgUDgqQ0wiYanVmgDePSrcstd91eP+ufj5Jtf+ERSj4+J/AZZTnhen9s2yudtgLLfdn06yn4CgQ2FTv4G2VlnnZVKgWaYyG+QnfrRk+WKG+5SDqnxyEv2WSxL91gmS5fuLk/bcj7Xf/bs2TJjxgz+9hhk5syZLPf390tfX1/nyTYQCLSOTpHthH419imK9sn2FCXbO0i0jGo1fck+OwTZBgKbEjpFtoGpgUe2l19/JyNbbPA66K/Wc2R76W5BtoHAZHDuwUG2GzOcbH/PyLZL8AEZItyDJ0C29rM4gUAgEGgIfsSDx77sJ3apmMjnPvx13dpHRxPH798+WiaLTvkr+5mMr0Ag8NQEbh9UK+kRsAzjPWd7wQUXyPnnn9+5yHbPr5qU8+2iTITuCzIZksz9QAKBQKBVIJLFN38Z6um2ledsr7zyykS2vPMbCAQCgUYAvYJwcfegOsF7Aevtnm2jt/Ct5MeC+2vFTyPbQCAQGB9kWFKsEW59ZNsq1ktkC4LL38KPR3j52/ycJMv6dn22ahsIBAI1KD9WEuFOgitJtlNLtQYnzJzonPggyDdCuyTZyKengUAg0C78fi2+xbaqmQkGtuvvNoITpksgEAhsWsDTCCk7Aaw3ss3hEapHn5BWotZW0Mhnp3wHAoGnHhDIMqJFDn8TvWdLR5afMjjxuaDcDGXibdZuIj5bsQ0EAoFR0IgWHEvCRYRrWqL177Olh87RbTMig97FMV7e7V3KaFQ3Vr5sGwgEAuNC+dGiWbtfC8LN7ya0/H22naPZQCAQeJLCuJYkC5kIb1b+eMe91WOPO16+Ed/6FQisd8S3fm3cwBfRnHLyh+SS5SvIsvzOr0pF/vZ5O8uey/Zq6YtoLrroIlm+fPmG+YAsEAgENh1YLIvfIJvMvyR07AOydh/2naz9ZB4uDgQCgZbBe7bgyREZwRd/8f5t+9jkIluQbBBtIBBYn8BHYlU+ZFv+eKx1dHUkrF2PwFVloleWQCAQmBDSV36RevC9thPAevl3XY9GyxFpu/pAIBDYIFAqshgP/0VWz0utP2e7HuDRKCQn0EZ6pI30gUAgsKGQ4lqTUmDb8nO2DGunmNBAmC6toF37QCAQmCqAYo2JEAhawci3PUz5PVsQZh6ptoLcvtU2gUAgMFXALVtlI9IlvidhItDIVml6I44gI7oNBAIbGk5DFQR/E+SkLvB1p+gsf/vvJInItKxz5HqPYMv2EdkGAoENDdAQmAhPf1XxsO0E0LHbCCDFsjga6RvpHI30jWwCgYAB/y4aMr4cd9xxacXag7KRbjT4Q2iqQWC7OPzww6Vyw4p7q8efcKJ8/fOnJfX4iO9GCAQ6g059NwKIBL4CzXHhhReSt047rXWuw3cjfPhDH5KLr72N5QpuBlSq8uoX7CLLlu3d0ncjLFiwQPr7+9ESrB0IBJ4MmDVrVkgTmSgYyCpJVoobrqDNWnQ73nO2ixcvlocfftjIVt+TMwkEAoFADfkNA6NJbOr5crznbC+77DKmRrYdQv7BFmRjh49xYxj3huo3EAiMjSIW1VOU92wL0m0PXfygqQORLcjCP9Ry2ZQIpN1x5zaTmSfabkrrFAg8leDMOJLxg/5NCB2NbMvAwAJjw3dgIDDVmDt3bsrVo5l+Y4CPbcOOEfGsnqf+ZTSg4AmcsuvtAzKP4PIorqxrtx4o2wCeL+sB15X1zdCovWOsvIvD82V9IBBojgceeCDlNgw8GBpWoh0ZGZbhYchI4sz2mHO9/AYZyMUHDcnJJtdNpr6sb2Sf6yA5UOdSrmuG3M7z5T5QduR1uT4QWF8oR4gbc1S7MQDn6ogS7dDQEEl2eHhIRlQY3LZGEwWm9DbC+gBIyyUHFqkdOAlOJRG2O6ZAYEMABOziGIukm9nn5Rzj2ZfzDtfnOqCZvhMYGcGvM4zIusFBk3VDsm5oULnWXu2AZLupxlggxZwkA4HA2MDbciclpOW36a5zGY/AxrJHuRFasW/Udqx2jfSdAKJakO3g4DoZXKcyuFYJV8kWfJMoZ7znbJctW8a0ayqJdqoixA2FJ9t8AoFWkRMZUpQdKLu0gnbtx0On/eXw+7Tr1q5TkoUo2a5dWxfgtfecbQdIBB2DjHLxwZTrXD9ZlP2Oh7Hsc30+vrxNI32zfKM2gcDGACfOnDAnA/jJZSx4v63YtoJO+ysDj3wNM7LF7YMhGRoclqGhYZ7XE7qN0ClwAJnkaKQfL9+qbS6uy5GXc1vXN9LlyPV5/Vh5F0eeB8YrBwIbG0Bm45H0VESXGxTpPAbhjuADMt7DHU6V7WGj/z7bQCDQeTQjTCdUl/Gixcnat4O8nfczGX+tAvTY1dWlou9WNfV3se1ik/6ALBAItI5mRFjWo+xSRjNd2b6RnSO3d7vcvlHebV1yjFU3WZBkK13S09Mt3So93T2a9pCB8WoHm/yjX4FAIDBVINl2d8u0adNk+rTpMm16L1NSbZtRase+PLzd0Hoy9si7BAKBwFQBZNvd3SW9vdNUepn29PYo92hlm/yjkW21U3y7XgCCxQ1rlyDcQCAwVbB7tRrZgmh7ID0kXQZ76TbCeM/ZOuw2gpLWpoL41D4QCKwvgFS7VHCftkulG/dsVUi0Kc4b7zlbx3r7bgSXHO3qA4FAYH2CPNSlZNvdzQ/JcP+2W6Nd49r2+Kly3W1rqieccIJ84wufSKrx0eg3yDCoVqJOtyvbT0QP5LpAYFNDJ3+D7KyzzkqlQDNM5DfIPnTSSfLbq2/nL+v6PdfXvmhX2Wuv1n6DDL8/1tfXt37I1onR0Yw8XV9GI3tHM30gsCmgU2Q70V+NfSqiHbJ9E8j2Qx+S3171JyWbLiVc5Sflm9ccsMvEyPZ4JdtvThHZlvVeblXvaFcfCGwK6BTZBqYGjGwzsnVMhGz5NMLGDJBpjnI5EAgE1gtSUDdRxuzSWDJlJw8QYS6AR6u5zpHrPTot25ej1vHqA4FAoKMgxYC7NAP+QXECYFzcCboF6ZXF0UjfSOdopC/ny/WBQCAwJUgEqeGdZUpo+TnbThBtIBAIPJmBsE7Du1SoD/Jafs6WW307HggEAoHmqJIulSsnyJe1j9cCgUAgMAZSbDvB25eV625fUz3hxJPkG59v/dmzyfxTg6MT9vEBWWBTR6ce/TrqqKNSLjAeTj/99JQbH3j068N49Ovq25RoLaLF9u8m9Jytku2JSrZf38TIFmUgyDawKaOTZPu1r30tlQKN8K53vUsGBwfbJls+Z6tka1Ae0u1rg2wDgU0LnSZb+AuMxoUXXkjOmhzZJs5R7nntC5dM5J8aph4gRpcc7eod0AfJBgKNMWvWrJCSTBqkG+OcygS5h2Q71bQFYnTJCbSR3om0rA8EAoENAlAQeShxUZ5XjPec7QUXXCDnn3++ki2YVkltKgHCdGkFY9lDBxIOBAKB9YGK0g2pyOmI/FPjoFaes73yyiun/vtsnRxdWkFu36hNTsSNCDkQCIxGs1+fnapfpW0H7Y5hvY4ZfIOEL+ec9nmniwzdIgluCJTJtEzCjcg4EAg8udHpX9EdG8o3Sq7YMp0g53TsBx8BjzhdAAysrHPk+pw8G+kDgcDkUY4IN4aodmOHMpFyEciyIvyRhuyrFttBxz4gAymWxdFI30jnaKQv2wCNdIFAYHIAAbs4xiLpZvZ5OUcje6AdfTlfru84wLb6B8qZKO/YbYRAIPCUAN5+OykhLb8dd53LeAQ2lj3KjTCWfTt6YKz+OwYQrWUo+E2yiaCj32cbCASenMiJzAnOgbJLK5hq+45D49EKfoAMf6DLCcanjGyDbgOBpw6cOHPCnAzgJ5ex4P22Ygu0az8V4B0EZcou3nXVAiLbjDRb/j7blE4a+DCrHUzU3j84yyUQCEw9QHbjkfQGiz6nEBbIVqTKB271jzduqSSe1N9n6x+euQQCgfbQjDCdUF3GiyYna58j17ufseyBdvufCBDQIZhFZIsnEipdup0AZXYssg0EAhs3mhFRWY+ySxnNdGX7RnaO3N7tGukcY9UBY9V1BAzqNPF/JZtgfLdeIttmb/nb1TvGqw8EAoGOIXEN41qlnAk/jQCWnmrKyt/y5wTZSI+0kT7HePWBQODJjSmLYhsBXKM0o1sLaica2abmUwoQoksrGMseBBsIBALrDQUPKSchYWTbGpfl6Oi/6zYCCDOPRFtBbt9qm0AgEJgSOAele7ZIJhLeVq6+5Z7qh08+ecp+g6ys9/JE9c3qA4FNEZ3+pYazzjoraQJlTPSXGk455RT53fI7tKRcQ21FXrXfYlm2bBl/qeGc//iOnHTSSU1/qeGiiy6S5cuXK9nevNLI9l8+TjetoBnZluEkWK5z0sxRJlBH7qORv7xdILCpoZNk29vbm0qBZpgQ2Z58ilx8HcgWUO5RynnV83csyHa8n8Vxsu3Yo18gvbI4Gukb6RyN9OV8uT4QeKoDRBIytkwIyq8W3qUgr/QfZK2ictVNd1dPRmT7hU8k1fhoFNkGAoH20anINjA18Mj2d8vvJMF6ePeq/TZgZBsIBAJPSiCQZTCLJ6SQZ6Ft8NGveDMeCAQCTaAECY4kU1bTZ0cTIM2ORbblD7zGw2TskXcJBAKBKUVBM5bhLzW0ST2HH374pncbAQSbf0AWhBsIBKYUFtb6RpP2IttXvOIVsmjRIiPbTZmu4omEQCAwpVCCxL/rFkxZCvDG+z7bxYsXy8MPP7x+Ittmb/vb1QcCgcB6RxHPZZFthvG+z/ayyy5jamQ7xaTW7G1/Iz3SRvoc0LkEAoHAlEJpBkyjjGMpeGcC1LNBI9tmGM9+PDIOBAKBjkEDWcSyI7odQVF5pxbttg4lW7D01BEWyDAnx1aQ27faJhAIBKYEoEgmCACN06hoExP8srD1h4hcA4HABkUKZDX00+BPI1xsJhADdvQ2AogxFwCRaVnnyPUewZbty5HtePWBQCDQURS0lTLKOxOKbFM6aYD0yuJopG+kczTSl/Pl+kAgEJgSgGZINYlvwDsToJ6uwk8gEAgERgOBLIPZxpHteM/Z4gtrAI1swdJBt4FAINAQoEgmiSdLkW17z9kGAoFAoDFSIIvIlumGvmcbCAQCT0ogkGUwa7EtPyvKIttWYWQbtxECgUCgMRDIMpjtQGQbVBsIBAJNkALZzkS2gUAgEGiMIopNmbhnGwgEAlOA4jZrSicT2U6ApAOBQOCpAY1kwZG2tXJOmm08Z6tA40AgEAiMhkay/vJyHtm2/JxtwdaBQCAQGI1yMBr3bAOBQGAKUESy2CA/ksrtwe7Zxm2EQCAQaAzlRwtmUzrRyDZoNhAIBMYA79kimNUXAtvSPdtWUbn65pXVk085Rb7++dOSanyce+65csABB6RSIBCYDLbeemt58MEHUymwMeGNhx8jJ598ivxu+R2McAlNX7XfYlm25zJZunR3edqW82XOnDkye/ZsmTFjhgwMDFBmzpzJcn9/v/T19U2MbOE4EAh0DkG2GyeMbE9Wsr0z3Towwn3Vfjvyka62yfYUJdt/bYNsA4FA4KkAj2wv1siWT26BaxHZPk8j20S25/zHd+Skk05qSrb77befXHPNNfE0QiAQCIwNu0Fb95xthvg+20AgEOgI7L8R+DSC8mx8n20gEAhMCWpPI4wgHdFSfXDbEoJsA4FAYAwwovUUQW1EtoFAINB58PlaTzUz0sZztvkvgAfZBgKBwJjwMDaliGybICfXHNAH2QYCgcCY8Eg2EWkTQh0PQbaBQCAwBop7tU0i2/a+zzYQCAQCDZHfszWFR7aW5s/ZNvpSLzxnC32QbSAQCIwJJ9BmaXPk5BtkGwgEAmMCTyHkwqdtU6Q7mnBBsI0i3CDbQCAQGAt2D0ElI1zXJzi5NiJZR5BtIBAINIERa1WGR4YpIyMjFGfbnFsbEa1HuZRLr7+z+ssLzpcr/nCl9PT0SHd3t3R1dRUN+Qmc/eWb+voMRvbO/LpNVwEM2lSWjvLv5ZTW+WAyYm3pzyZLC6tGQxsJ27sP06HZiLYfGdEWWCz48DLz5sRbwUcX/KV18PUoUhXrZ+Io1q1VN2melvikFVyP0aDb2qZAs36LYnleaW2AUf0khSWNRtEM3kcrbXTEas4WaWy1Y4S1ngkE6pEdXjhLWOTxrHlSiL7S+T8yDDJVTvBUZVjzey1bJvsfcKBcdv2d1j7hdQfuxu+z3WuvZTJvs/kye848GeC3fA3IjAGVGZofmCF9/Sp9/TIdX7H444tuqC7afLYM9E+THiXa7u4ekgoOXj+Q84O70NufKYjaUGxS+pdOVE7IcpwrW6C9+uULKf1RSSlskCaYH/NER3mKdilFztUwB7mO4Ko0rAvIhcQVynzZVQrG3hnIFG66dB0Swap0sWzC9XDztK3BOy4MFGWbkmZ0dWO4awXXAWUdu6mzSoWtpeW4zfKlpG3U95SQhjOqtmyMTgvdaNtck495zDXPi6NdsrqkLmHs2jKKY2tDgH23MABbvDr4ehY1qjDVaFtHw5rm5hsWuiwNVyatGb7SACnPmBLZglgLslUxrhiWRx9fKyvuuV9WrHoAjekLbt5w0J58pGv/5+4jm222mcyZM1dmzppFsvWvWCTpKtni+2ynTZ8ula/+16XVbo1o8eW2EDBwr5YZ1alTI0IICvjzMnNMOQciy6VJ5NEjyypoUSMw+KgRGcvJryZFqo3pXuNbFFjEBj6BYkxpPIxgh41MB4cGZe0Ta+WJtU8wXTu4VoYGhyiDw0Nc4KJ/HQvWo7cX0qtroaL5nmnTZFrKox5DIjA+Qnu1oRA2bowHwy+sa6DK9A1qa4CPlM3BtzOYv6a+Bt497PP1KHzkvqBHwq3CDGrlFlBMF+MopTma6hI4fii0cx4nmsW7B+wL3QiORF7kIGqD48XHWW00YLpLPgHYjC7W4ONuEb7e7aLWDpNI2UYYxz9rG9jAP/d3gufz1LJ5msTUpivnG6FpxWi0YToh1K2EFoqyrofn8eUxDLqgw7taJVO+20Wq59C6detk7dq1RQp5AukTyhma0g99V2XhvFnyxMrlcsKxR8ncuXNlmnIDuAJ3BfzugKe5VL76o8uqyBjZTley7W9ItijkZdtBqQ7QBDRqI8KEbKL1ZKvEYJcXtuvqRvtuO7FwUuEk4kkFd+a78E/AR5FL/ViZdvjTFH3xyjRk91mwgI8//rg8/tjj8tjjj3HxBgcHSbbrNMWid4NkuShGttN6lVynKbmCZLN8r+Z71KYMjINDSQOq8CKShIpiU6C+lCG1sTl5+1qKPki2iWhxALF361ptYJaIyQqpooZRmnI/bcDnbfs8G4ciy9IvbICavmTPfFWPDRwXOBZwnOh+0bxfjHWTjREX18wBUOeydoyMjVbtavC5tIO6Ng32SwGaje2/lf55DDVJkcXerj/ObON2GEOqaYwxqhwtmEwadSuhBVs+02KLtXIuKkg2I9u1TrYgWJXHlWSfAGckccDXwfvuLK875GDZYftnyE9+8hP58Ic/zF9qwJeFv+1tb5Mf/ehHRXT7nOc8R2666Sbya4ls6yNbHNdcaNsrdTuHkvKEpjY1BUiVqU3OryrMqwBoV0S18EWSBeGajv25f+jcH1vrln/1/twOOhDt4JBGrxq5rtNo9pHHHpXHHn1UHn3kUXniicdlHep0gdetU7LVxcaVqKdHT2pNEc1On67EOk0vPpriyuWEiwi3p6ubfQPsn+PCWFJZYfNQwRwxKoxvDBS1aQ5YD+RBK2wKfaoDOEcQLt7ysE/r15Bsszawp5UNEiZmhwQ5tUOBGuSh43Y06nuDPySYfxKrGA1W1LUsSvieULREnxhLVzcig3QBxLGR0m5de6wpxsg2zQapwDTpVVOa6cZ0jWB27YBr2Sbq2qR1bgiaje2/lf65XxukAPIudWUWbFOzboJxDQwtmk0KxWqkTL4+jGqLwM9vJ0JntwxAsLk8xuDsMXkMogGa+azIHoufLnf98fdy2sc/Kfvts6dss802JNrjjz9evvGNb/CXGUC6L33pS+XSSy9lGbcRnvnMZxrZgmSmTx8d2doxjWViRrf2NqW2UywlmCTCLZNt3URtAdyHEy1SRCxWpufUh9kCPLG0uXlApuZPjdIQKuxrWCNW3D4A4eKtwCNKso888rDKI3qlekIj23UyqES7TlO8Fe8p3TLoU6KdpkSLdSkiXK1HHpEW56LtODfmVfSFqyWGxgsHqBLjsuEbvODjJlSXxo9qrgvWIgnXA/W8CJldfkMfFws2NE+WmqOizEgY+yXtByJrY/b4s77GQz56zKW4mLr/5KLwxIyNh211g/XyQjFeiM65B2Srx6V/jkDiVaL1dx9oVhunX+htW4Duk250FVGMh8DYU7YFFOvYJurbYd4pWwbNmvdRq25uA/g6NUqZQ+qSykyKDZDqymiobIw2TCeMYiU0k68z8sMqSHHe1pGt5nl7MSPbR0GyCM5SumjhPFm247Zy+UW/kJNOPEH2329f2W677eTTn/60fOpTnyLBIpJ9wxveID/96U+LyHaPPfaQW2+91SLbNQ88Sg5zwkNa7Iz6TR0KTbJtCEwsZYmsbG5rbctlgEU0GNVH8qJJ7t+toOOiFqKLm94u8Oa3pnk9gC7srbcddPlFoCA7vDTVjfVS9A8/zCiSkoOxEdm2MbxZzTy1SXlLUgpYhTbUPlNfdT6agNYwZDtDnb11NKaPZnB/vghFOWFUP5lB3Vh8bgrfDyaox8bKrFdBW29R7nNjhx93nIFPohEKu87A168ZxqvflFFb81qeW82j7LzAKDjxhcmwfP/s/5QzPvc5eUIDtOfssYv88Ic/5O+OgURBtO9973vle9/7HiNZkOyBBx4of/jDH1iGzdOf/nSpbLv9jlU/qIsPIfCqW3M7IEbvhrJdDTaJYlMgzbFBu2Z9GKxdzVe5nAN1WLSaGMma2ALy/rHXaxuSqksiWa5HKuu2Vq+D1GboqUi5tQJLzeYxNsw3c8xY2fIJmkfJx50GMCZqYzVpiOSXyPsDiiZj99XUd4HklxNAJrMv+q/NuZkYYMS/QGBc+DngyM9VVKJs774T4RZEa4IjbeWKm2EtRxxxBAkWcswxx8iXvvQlkirk0EMPlV/+8pckXNw+WLJkidxxxx36Dnm6VHbeeefqPvvsU5AROioGklJ8kYJ/c81kMRW+Wk2/853vyD/+4z+ybSt5YPXq1fLzn/+8Tuco2wKuK9c16wP5HM3alDGW/0Zo1M94PpqVy3oAujIa2eblcptmdoFAJ4H7sCBGfEjeCCDHe++9V/bee2/59re/nbQ1fPCDH5RTTz1VTj/99OJnyt/ylrfIueeeW5Duc5/7XLn++utZB6LdaqutpLLnnntWEfKCaIeGhhqS7ZMF430VmiP/Fp8777xTfvCDHzT8BU34K+tdV67Ly63YAOVyjk7Yjuej1XZAIx3Qqo/xyoFAp/Dwww/LrFmzeG+2EW655RZZtWqVvPCFL2QZ73DxWQEe78KH5SBPl8MPP5yBAUgXcvDBB8sll1xCwgXRbr/99vSFdl1oMG/ePD4v5ikEn7C5/O53v6srT0Y2pC8A91kgY+XzNnirUNa5NNK7ztOyPs97WtY3K+dSrsPYQVC5zqVs62VPy/rxyp42qnPxsZT1Xva0rG9WDgnplMyePbuh3gVECXJEPudCELR/EOYRLYjWo1fIxRdfzLb2dFOP3HXXXSRq3pLcf//9q695zWsY1SK69XsU5ei2dq9s08XRRx+dcmMDny46cJX78pe/XKdzwF9Zn+vy/nK7ZjbAeG1z5H4crfgDoC+3H89f2dbRqI9c16yP3B5o1iYQ6CQeeOABkmj+/GyO5cuXy4oVK+SVr3wleQ9E6dGtk2g5ygX5IgXxeh4CG/5zlErlRS96UfX1r3/9mGR79tlny9/93d+xPFnAF24idwKT8YWHkRHyjwc8kPy5z31OzjzzzKSZPPDWoxP+OuVnY8OTdV6BjQPjke3VV18tf/rTn+S1r33tuGSbE66TrZMsUidatKm85CUvqeLmrn9A5mQLgGghT4aotgzczN5hhx1SaWx8/OMfl29961upNDm88Y1v7JgvoNP+NjSebPMJbHy4//77+X0G+KCsEa644go+G3vYYYexnJOtE66TqJNqnuYCG29XednLXlZ95zvfWUe0Htl6dIv/jHjzm9/M/GSxsfhCVPyf//mfqTQ+YB8IBDZ93HfffTJ//vymZIv//Lr55pv5r7d5ZJtHt062uZRJFuJES7I95JBDqu9///vriBYCeBoIBAJPFuCxrs0337wp2eJDrhtvvFHe8573sJyTLcRvJTjpNiJfJ2UnWrSrHHroodVjjz22iGwRzXrqkS3uWYKQO4GN1VcgEHhqYM2aNbJgwQL+634j/OY3v5HrrrtOjjrqqCKy9dSJ04nUSbcsTrJuTx+ve93rqieeeCLJthHRevpku2/71a9+NeWa4+1vf3vKBQKBJwvwj0oLFy5sSrb4D7Brr71WjjvuOPJeTrhOnjmZQpxgPXWbgmjh5/Wvf3315JNPHkW0Odl+7GMfkxNOOIHlyeKjH/3oRuHrC1/4grz73e9OpdFAPeSGG25ImkAg8GTAPffcI1tuuSX/uaERLrjgAj6R8KEPfagg20aE64RaJte8HlL4OOyww6r41zMnWgB5h+tgvKlj2223TbmxcdtttxX/wYQ2KG+s2NjGt7GvVyAwHtni3/PxJTII5gAQJuCEm0uZWF3ctiBayJvf/ObqJz/5yYJgPap1kgUQPXrHk8WG9LVo0SJZuXJlS3mkObw+R97O0UhXRqs2jma2uZ/cHmjUxm3yunI7oFl92WezPqFv1H8gsDEAxyaO0WZki69IxONfeOQzJ0ugEZE6wbq4Pheg8ta3vrWK72QEcsJ9MgLP1rUCPIfnuOiii+RlL3tZnc4Bf2V9I127KPto5jPXt9IGOmA8X46xfDayd4xVFwhsaNx99938YpiHHnooaepx3nnnyeWXX84vmgGcLEGk5bRMqq4DXGcQ+f8DouvSIx1XxwAAAABJRU5ErkJggg==[/img]

pulsa con el derecho sobre el formulario, y dale orden a los objetos, asi cuando introduzcas el texto y pulses enter se va al siguiente según el orden, en segundo lugar,
TextBox1 = Empty
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
ComboBox1.ListIndex = -1
TextBox1.SetFocus

te limpia todos los textbox y te anula el índice del combobox

vas mejorando, aunque quizás podrias simplificar un poco mas el código pero no esta mal.


saludos Adolfo castro

ulukai2


excelente sugerencia, disculpa Adolfo, me estaba disponiendo ya a llenar datos y comenzar a llenar el formato cuando me consegui con un problema aunque bastante tonto no logro entenderlo, y es que al momento de darle al bonton "Actualizar FRC" y coloco 1ra Vuelta=12, 2da Vuelta=0 Inspeccionadas=20 los porcentajes de Ok1ra y OkDptal quedan en 100% cuando por logica deberia dividir el 12/20 para que me de 0,6 y llevarlo a 60%, pero extrañamente me da 100% y estoy revisando y no se que ocurre.

ulukai2


Jeje definitivamente un error tonto, ya lo solucione, pensaba que cuando una declara una variable de tipo entero (integer) este tomaba los decimales que se encontraban desde -32768 a 32767 , lo solucione declarando las variable de tipo (Double) que me permite dos decimales, todos los dias se aprende algo nuevo.lol!

adolfo castro


Hola buenas noches, me gustaría revisaras este código que te busca en el rango que necesitas, no es muy largo y quizás te abrevie un poco el que tienes, te busca en las dos columnas que tienes datos, si lo encuentra te lo selecciona, si no te da un mensaje quizás puedas usarlo para lo que precisas.

saludos Adolfo castro

Sub BuscarVs()
dato = "Defecto4" 'celda donde está el dato a buscar
RangoBusq = "d37:p52" 'Rango donde debe efectuarse la búsqueda

aBuscar = dato
Hoja1.Select
Range("d37").Select
With Hoja1.Range(RangoBusq)
Set c = .Find(aBuscar, LookIn:=xlValues)
If Not c Is Nothing Then
PrimCoinc = c.Address
Do
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> PrimCoinc
Range(PrimCoinc).Select
Else
MsgBox "El valor " & aBuscar & " NO fue encontrado en el rango indicado", vbInformation, "NOSTÁ!"
End If
End With
End Sub


pd y perdona pero no tengo mucho tiempo en estos momentos, por eso tardo mas en contestar

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.