Standard Jet DBnb` Ugr@?~1y0̝cßFNi7v֜(8$`{6߱\fC=3y['|*| ? :{f_Љ$g'DeFx -bT4.0dv  @@@fȌȌbT`VctLLS@LLlmHeHVPVVV$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lHVVVV@`lHMSysAccounts EH YS  Y   Y Y  Y Y  Y  DY  Y   Y  Y  Y a Y d Y 2Y  Y   Y  jY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeniYYIdParentIdName        Root Entryc,VBAccVBAProject ccVBAccdir__SRP_0 __SRP_1$__SRP_2 (V  !"#%&')*+,-./012345789;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqstuvw{|}~Բ0* pHd Conversor 8@ = t  S>( J< DAO>BDAO *\G{00025E01-0C  0046}#5.0#0#C:\ARCHIVOS DE PROGRAMACOMUNES\MICROSOFT SH`ARED\A350.DLL#Microsoft 3.51 Object LibraryNZstdole>lstdolecf\c043a\ -c2cWINDOWS\SYSTEM\12.tlb#OLE Automation/VBI DE> VBIDEC€CE15F7C5.3ScSrchivos de prog@rama\Acomunes\KShared\VBA6E6E@XT.OLBUVisual Ba sic fApplic3s Extensibility "."b@Formb_HG A`r@m_C@nDvcrsB @ @ XVVLQFKYOEXEZ_WRPNPW_PNZS@CLC28AV@LQFKYOSXZ@WRPNW@AZSLAH@1¾B,0b"5B(B+B4K*mrU~~~~~~l  ~,    1Q I Conversor Form_Conversor FKC:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLOY:SY Y Y  Y 2ACMFInheritableObjectIdSID  AtYObjectIdesccReportsccScriptsccPropDataDatabasescc0ccBlob ijMSysDbDirDataCustomGroupsccDataAccessPages cca formato todos los campos con formato moneda de todas las tablas, formularios e informes y dividir por 166,386 todos los valores con formato moneda? No podr deshacer los cambios en este fichero .MDB, as que asegrese de tener una copia del mismo.$ Seguro que desea convertir a ?$. 0 2B@4 2B@6 8.   !:!<   %:!>!< Por ahora, no trata aquellos campos de tablas que teniendo tipo "numrico" tienen en su propiedad formato 'moneda' o como '*pt*'MTampoco aquellos que teniendo tipo "moneda" tienen nula su propiedad 'format'USe da por supuesto que en configuracin regional tenemos simb decimal=, y sep miles=.   %:%>!l@x   %:%>!D"nulo$B**#,##0 ;-#,##0 ;0   %:%>!D)   %:%>!D)F  %:!'(   %:%>!'*UPDATE [ (] SET [ *]= [ * ]/166.386;', , 2B@Hk8k0(   "5J "!forms & "!L!< & "%L! P R 2B@N  T!<  $T!V!< '   $T%V!D!<   $T%V%D!format'yk   $T%V!D"*Pt*  $T%V!D"Currency#,##0 ;-#,##0 ;0  $T%V!D)  $T%V!D)Fkk X & "%L! 2B@B &k " "5J "!reports &  YSY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute rJet\\TRUST-1\trust-12d2hbcgh MS Sans Serifzbcij MS Sans Serif`Detalleh 1U`ab`chComando0 Convertir...ޡConvierte a formato todos los campos con formato moneda de todas las tablas, formulario e informes y divide por 166,386 todos los valores con formato moneda.[Event Procedure]Convierte a formato todos los campos con formato moneda de todas las tablas, formulario e informes y divide por 166,386 todos los valores con formato moneda.d5U`ta bs#cd Etiqueta2 PASOS A SEGUIR... 1) Imprima si lo desea este formulario tal cual est y cirrelo. 2) Realice una copia del fichero .MDB que desea pasar a formato por si desea volver a como lo tena justo antes de ejecutar este conversor. 3) En el fichero que elija convertir (ya sea la copia o el original), copie este formulario. El modo de hacerlo puede ser o bien simplemente arrastrndolo con los dos ficheros abiertos o con el Comando Archivo/Obtener Datos externos/Importar... 4) Una vez copiado, abra este formulario en el fichero .MDB en cuestin y haga clic en el botn Convertir... Se ejecuta el proceso que convierte a formato todos los campos con formato moneda de todas las tablas, formularios e informes y divide por 166,386 todos los valores con formato moneda. 5) Si el resultado no es el deseado, recupere la copia y renombre adecuadamente. NOTA IMPORTANTE: Si el fichero en cuestin posee tablas vinculadas con origen en otro fichero .MDB que tambin se quiere convertir, se recomienda eliminar estos vnculos (luego los repondra) y convertir los 2 ficheros independientemente; de no ser as podra dividir por 166, 386 los valores con formato moneda 2 veces (una ahora y otra al convertir el fichero origen de estos vnculos). Arial Narrowd5U78`ab&cdedd Etiqueta3@CONVERSOR PTAS=>UROS DE FICHEROS .MDB (Access 97 o superior) Agency FBz1U`aabcjkVer Pasos a seguir0Ver Pasos a seguir[Event Procedure]Ver_Pasos_a_seguirh1U`%amb@c@iComando6Comando6[Event Procedure](ڭ0ڭ030 ڠ30 3 ڠ30 D30 DD30 DDD30 DD3 D0 ڠ ڭHCerrar formularioͬU,Detalleh Comando0d Etiqueta2d Etiqueta3z Ver_Pasos_a_seguirVer Pasos a  -YSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationship p l(not 2B@Bvp|ht` x!zA@.vHo@8Attribute VB_Name = "Form_Conversor "  Bas0{E2C8E58D-55C6-11D5-A4B8-0010B5A5B02C} |GlobalSpacAIFalse dCreatablTru PredeclaId"Expose_Templat@eDerivCustomizD$Option Comp@ DT  ob<$enSfi 7acin reg Hal emQsimb@cimal=,Qsep ? les=.bbdb.)(j).Typ5 =On Err@+Go`5auHrol"es" N@ot Nz( P'erties!B[aat],-loKLike "**" C"#,##0 |;-`DeB$Plls] 2 =JS$ƀ!CRA(!UPDA[" &  & "] SET C A=/.;ckRunSQL " End Ic Nex` ` WithhEach In m@8e.a*Ps2u "vDocum`z qCOpen=.Z() c@Yign, acHiddF16BJA)Ti=UJH +Hπd2(HS "3<6sExit 'C $1Yls{ 5 4Pt5OrAms9rm9! YcyH7 .O8r ![7o-S%VC]nc,&s& q!F>m` 2$a22re}t/2 /2/2r!2RRO2meA20View2wMini 22r 23w'$}2l(23323 32`/3$3Rb"M3o3b3ON333S33t3Z3cafA4fhC$%CQqS ("7qfinalda.v"ʅn "!P F :7: Resi q '1Y .m_8(CanceäB 8Max6IVer_Pasos_Ha_sirGEti`ta2.V(isi#[ p@]r `޽Q6+m8SQXA1Pr o D.Hcrirk PROJECTwmx5AcessVBADatayForms cc0ccForm_Conversor Form_Conversor 02=Bb c)e ghij0ko n @[Event Procedure]Arial8)hHP LaserJet@g ,,A4: 210 x 297 mm@MSUDHP LaserJetd @winspoolYv1b N  : k & W  C t/ m Z G fȜȜbTVctLLS@LLlmHeHVVV0V$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lHVVV@V@`lHMSysAccounts EH @@}   @ MdbqQikdi5OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO:;  !"# ~,`FIx. AccessUFormat VBAWin16~Win32MacVBA6# Conversor 0 DAO Form_Conversor h _EvaluateComando0_Clickwftb;_TableDefmi`jaH_EXISTEu]db\ctrBucle" Containera ctrntabVncamejsqlkMsgBoxRvbYesa?DoCmdƧ SetWarnings Hourglassb CurrentDbS TableDefs%iCount0vFields7ControlErroresqNzu^ Properties+ DecimalPlaces[RunSQL Containers DocumentsOpenFormacDesign֡acHiddenFormsControlsKacForm OpenReport acViewDesignBmMinimizeoReportsacReport% Form_Open-CancelMaximizeFyVer_Pasos_a_seguir_Clickˮ Etiqueta25Visiblever pasos a seguir)cComando6_ClickErr_Comando6_Click<Exit_Comando6_ClickErro Description (stdole`(VBIDEAFormDetalleLComando0 Etiqueta36Ver_Pasos_a_seguirComando6ClickT |  ~ ID="{BC1E068A-7E0C-11D6-A4BD-0010B5A5B02C}" DocClass=Form_Conversor /&H00000000 Name="Conversor " HelpContextID="0" VersionCompatible32="393222000" CMG="2B29CA21F125F125F125F125" DPB="5654B71EC962F563F563F5" GC="818360656165619A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_Conversor =0, 0, 0, 0, C 8CbbT ~,U, ~,x ~, ~,ME PSLS S<?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqstuvw{|}~Բ0* pHd Conversor 8@ = t  S>( J< DAO>BDAO *\G{00025E01-0C  0046}#5.0#0#C:\ARCHIVOS DE PROGRAMACOMUNES\MICROSOFT SH`ARED\A350.DLL#Microsoft 3.51 Object LibraryNZstdole>lstdolecf\c043a\ -c2cWINDOWS\SYSTEM\12.tlb#OLE Automation/VBI DE> VBIDEC€CE15F7C5.3ScSrchivos de prog@rama\Acomunes\KShared\VBA6E6E@XT.OLBUVisual Ba sic fApplic3s Extensibility "."b@Formb_HG A`r@m_C@nDvcrsB @ @ XVVLQFKYOEXEZ_WRPNPW_PNZS@CLC28AV@LQFKYOSXZ@WRPNW@AZSLAH@1¾B,0b"5B(B+B4K*mrU~~~~~~l  ~,    1Q I Conversor Form_Conversor FKC:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  A`J_N?=c:\Archivos de programa\Microsoft O  @ @ @ @ @ @ @    $% & ' (0123-./456789)*+,  !"#~u  A  (  8 qHCancel]rU 0@4AaiI@8ppp@ <rrr @@ 1ttt@D Qvvv@Hqxxx@ LzzzgW<4HL@rU X$` (A`0__SRP_36_VBA_PROJECT : XVVLQFKYOEXEZ_WRPNPW_PNZSCLC:EPROJECT ry&$` $` nam  2*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications"*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#c:\Archivos de programa\Microsoft Office 2K\Office\msacc9.olb#Microsoft Access 9.0 Object Library4*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\DAO\DAO350.DLL#Microsoft DAO 3.51 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automationp*\G{0002E1  " (08@HPX`h Fp     * 8 T \$x<8$  H `J  0*P&0008@H PT`4  ( 0 P` h x   &80@0p T4(  `              " @ H P X ` " h  p  "   "          xp]@]`]x]]]]]]]0]H Desea convertir a formato todos los campos con formato moneda de todas las tablas, formularios e informes y dividir por 166,386 todos los valores con formato moneda? No podr deshacer los cambios en este fichero .MDB, as que asegrese de tener una copia del mismo.$ Seguro que desea convertir a ?$. 0 2B@4 2B@6 8.   !:!<   %:!>!< Por ahora, no trata aquellos campos de tablas que teniendo tipo "numrico" tienen en su propiedad formato 'moneda' o como '*pt*'MTampoco aquellos que teniendo tipo "moneda" tienen nula su propiedad 'format'USe da por supuesto que en configuracin regional tenemos simb decimal=, y sep miles=.   %:%>!l@x   %:%>!D"nulo$B**#,##0 ;-#,##0 ;0   %:%>!D)   %:%>!D)F  %:!'(   %:%>!'*UPDATE [ (] SET [ *]= [ * ]/166.386;', , 2B@Hk8k0(   "5J "!forms & "!L!< & "%L! P R 2B@N  T!<  $T!V!< '   $T%V!D!<   $T%V%D!format'yk   $T%V!D"*Pt*  $T%V!D"Currency#,##0 ;-#,##0 ;0  $T%V!D)  $T%V!D)Fkk X & "%L! 2B@B &k " "5J "!reports &   " (08@HPX`h Fp     * 8 T \$x<8$  H `J  0*P&0008@H PT`4  ( 0 P` h x   &80@0p T4(  `              " @ H P X ` " h  p  "   "          xp]@]`]x]]]]]]]0]H Desea convertir a formato todos los campos con formato moneda de todas las tablas, formularios e informes y dividir por 166,386 todos los valores con formato moneda? No podr deshacer los cambios en este fichero .MDB, as que asegrese de tener una copia del mismo.$ Seguro que desea convertir a ?$. 0 2B@4 2B@6 8.   !:!<   %:!>!< Por ahora, no trata aquellos campos de tablas que teniendo tipo "numrico" tienen en su propiedad formato 'moneda' o como '*pt*'MTampoco aquellos que teniendo tipo "moneda" tienen nula su propiedad 'format'USe da por supuesto que en configuracin regional tenemos simb decimal=, y sep miles=.   %:%>!l@x   %:%>!D"nulo$B**#,##0 ;-#,##0 ;0   %:%>!D)   %:%>!D)F  %:!'(   %:%>!'*UPDATE [ (] SET [ *]= [ * ]/166.386;', , 2B@Hk8k0(   "5J "!forms & "!L!< & "%L! P R 2B@N  T!<  $T!V!< '   $T%V!D!<   $T%V%D!format'yk   $T%V!D"*Pt*  $T%V!D"Currency#,##0 ;-#,##0 ;0  $T%V!D)  $T%V!D)Fkk X & "%L! 2B@B &k " "5J "!reports &  S>b8XVVLQFKYOEXEZ_WRPNPW_PNZSCLC023e538df9 Form_Conversor b  ~,`FIx. AccessUFormat VBAWin16~Win32MacVBA6# Conversor 0 DAO Form_Conversor h _EvaluateComando0_Clickwftb;_TableDefmi`jaH_EXISTEu]db\ctrBucle" Containera ctrntabVncamejsqlkMsgBoxRvbYesa?DoCmdƧ SetWarnings Hourglassb CurrentDbS TableDefs%iCount0vFields7ControlErroresqNzu^ Properties+ DecimalPlaces[RunSQL Containers DocumentsOpenFormacDesign֡acHiddenFormsControlsKacForm OpenReport acViewDesignBmMinimizeoReportsacReport% Form_Open-CancelMaximizeFyVer_Pasos_a_seguir_Clickˮ Etiqueta25Visiblever pasos a seguir)cComando6_ClickErr_Comando6_Click<Exit_Comando6_ClickErro Description (stdole`(VBIDEAFormDetalleLComando0 Etiqueta36Ver_Pasos_a_seguirComando6ClickT |  ~ ID="{BC1E068A-7E0C-11D6-A4BD-0010B5A5B02C}" DocClass=Form_Conversor /&H00000000 Name="Conversor " HelpContextID="0" VersionCompatible32="393222000" CMG="2B29CA21F125F125F125F125" DPB="5654B71EC962F563F563F5" GC="818360656165619A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_Conversor =0, 0, 0, 0, C 8CbbT ~,U, ~,x ~, ~,ME PSLS S<ob<$enSfi 7acin reg Hal emQsimb@cimal=,Qsep ? les=.bbdb.)(j).Typ5 =On Err@+Go`5auHrol"es" N@ot Nz( P'erties!B[aat],-loKLike "**" C"#,##0 |;-`DeB$Plls] 2 =JS$ƀ!CRA(!UPDA[" &  & "] SET C A=/.;ckRunSQL " End Ic Nex` ` WithhEach In m@8e.a*Ps2u "vDocum`z qCOpen=.Z() c@Yign, acHiddF16BJA)Ti=UJH +Hπd2(HS "3<6sExit 'C $1Yls{ 5 4Pt5OrAms9rm9! YcyH7 .O8r ![7o-S%VC]nc,&s& q!F>m` 2$a22re}t/2 /2/2r!2RRO2meA20View2wMini 22r 23w'$}2l(23323 32`/3$3Rb"M3o3b3ON333S33t3Z3cafA4fhC$%CQqS ("7qfinalda.v"ʅn "!P F :7: Resi q '1Y .m_8(CanceäB 8Max6IVer_Pasos_Ha_sirGEti`ta2.V(isi#[ p@]r `޽Q6+m8SQXA1Pr o D.Hcrirk PROJECTwmx5AcessVBADatayForms <<0<<Form_Conversor Form_Conversor 02=Bb c)e ghij0ko n @[Event Procedure]Arial8)hHP LaserJet@g ,,A4: 210 x 297 mm@MSUDHP LaserJetd @winspool? d _ Z g  ~ ) s dffice 2K\Office\msacc9.olbAccess I qp0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole iWFNc:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE a1 ~, ~,U, ~,31?FormSC7?DetalleEC7?Comando0AC7? Etiqueta2 Etiqueta3OC7?Ver_Pasos_a_seguirComando6Comando0_Click Form_OpenVer_Pasos_a_seguir_ClickComando6_Click XerU~~~~~u  A  (  8 qHCancel]rU 0@4AaiI@8ppp@ <rrr @@ 1ttt@D Qvvv@Hqxxx@ LzzzgW<4HL@rU X$` (A`0__SRP_36_VBA_PROJECTZЎrE@-ErE@MSysAccessObjectsDDDDDDDDDDB  d.Q@ rE@Conversor 88888888886  Q@Q@UserDefined88888888886  Q@Q@SummaryInfo@DDD88888886 @ pQ@rE@AccessLayout4MR2KeepLocal T@zz:::::::8 @율Q@율Q@SysRel.........., 율Q@율Q@Scripts0000000000. 율Q@율Q@Reports0000000000. 율Q@율Q@Modules0000000000. 율Q@율Q@Forms,,,,,,,,,,* B{ rE@B{ rE@DataAccessPages@@@@@@@@@@> ಓQ@ಓQ@MSysRelationshipsDDDDDDDDDDB ಓQ@ಓQ@MSysQueries88888888886 ಓQ@ಓQ@MSysACEs22222222220 ಓQ@ಓQ@MSysObjects88888888886 ಓQ@rE@MSysDb@:::......., @ಓQ@ಓQ@Relationships<<<<<<<<<<: ಓQ@ಓQ@Databases44444444442 ಓQ@ಓQ@Tables..........,  YNY Y VDataIDI0VYAOIndex    $% & ' (0123-./456789,:;<=  !"###^H' q M/f>/f6t=7>Q{~rd(Riyer@NJ6<Uk8 pxJVpVS_R4M^H' q Mhs,4P%er@NJ6<Uk8 (ZiE3E7% IR4M^H' q M/f6t=7>Q{~rd(Riyer@NJ6<Uk8 pxJVpVS_R4M^H' q M/f6t=7>Q{~rd(Riyer@NJ6<Uk8 pxJVpVS_R4M^H' q M/f6t=7>Q{~rd(Riyer@NJ6<Uk8 pxJVpVS_R4M^H' q M/f6t=7>Q{~rd(Riyer@NJ6<Uk8 pxJVpVS_R4M^H' q Mhs,4P%er@NJ6<Uk8 (ZiE3E7% IR4M^H' q Mhs,4P%er@NJ6<Uk8 (ZiE3E7% IR4M^H' q Mhs,4P%er@NJ6<Uk8 (ZiE3E7% IR4M^H' q Mhs,4P%er@LJYrE@C@\rE@TempMSysAccessObjects LLLLLLLLLLJ  B{ rE@B{ rE@DataAccessPages @@@@@@@@@@> d.Q@ rE@Conversor 88888888886  Q@Q@UserDefined 88888888886  Q@Q@SummaryInfo @%DDD88888886 @ pQ@DrE@AccessLayout 4MR2KeepLocal T@$zz:::::::8 @율Q@율Q@SysRel .........., 율Q@율Q@Scripts 0000000000. 율Q@율Q@Reports 0000000000. 율Q@율Q@Modules 0000000000. 율Q@율Q@Forms ,,,,,,,,,,* ಓQ@ಓQ@MSysRelationships DDDDDDDDDDB ಓQ@ಓQ@MSysQueries 88888888886 ಓQ@ಓQ@MSysACEs 22222222220 ಓQ@ಓQ@MSysObjects 88888888886 ಓQ@rE@MSysDb @%:::......., @ಓQ@ಓQ@Relv1 @# ############ #!#"###$ #: #; #< #=#-#.#/#>#%#&#?#0#1#2#3#4#5#B#C#6#7#8#9###### # # # ###K[  @@@fȜȜbTVctLLS@LLlmHeHVVV0V$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lH$lHVVV@V@`lHMSysAccounts EHK[Yࡱ>  ' $ % !"#&(.)*+,-0/1Root Entry<,VBA<<VBAProject <<VBA<<dir__SRP_0 __SRP_1$__SRP_2 (V  !"#%&')*+,-./012345789;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqstuvw{|}~Բ0* pHd Conversor 8@ = t  S>( J< DAO>BDAO *\G{00025E01-0C  0046}#5.0#0#C:\ARCHIVOS DE PROGRAMACOMUNES\MICROSOFT SH`ARED\A350.DLL#Microsoft 3.51 Object LibraryNZstdole>lstdolecf\c043a\ -c2cWINDOWS\SYSTEM\12.tlb#OLE Automation/VBI DE> VBIDEC€CE15F7C5.3ScSrchivos de prog@rama\Acomunes\KShared\VBA6E6E@XT.OLBUVisual Ba sic fApplic3s Extensibility "."b@Formb_HG A`r@m_C@nDvcrsB @ @ XVVLQFKYOEXEZ_WRPNPW_PNZS@CLC28AV@LQFKYOSXZ@WRPNW@AZSLAH@1¾B,0b"5B(B+B4K*mrU~~~~~~l  ~,    1Q I Conversor Form_Conversor FKC:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  A`J_N?=c:\Archivos de programa\Microsoft OK[v1$ ffice 2K\Office\msacc9.olbAccess I qp0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole iWFNc:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE a1 ~, ~,U, ~,31?FormSC7?DetalleEC7?Comando0AC7? Etiqueta2 Etiqueta3OC7?Ver_Pasos_a_seguirComando6Comando0_Click Form_OpenVer_Pasos_a_seguir_ClickComando6_Click XerU~~~~~u  A  (  8 qHCancel]rU 0@4AaiI@8ppp@ <rrr @@ 1ttt@D Qvvv@Hqxxx@ LzzzgW<4HL@rU X$` (A`0__SRP_36_VBA_PROJECT : XVVLQFKYOEXEZ_WRPNPW_PNZSCLC:EPROJECT ry&$` $` nam  2*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications"*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#c:\Archivos de programa\Microsoft Office 2K\Office\msacc9.olb#Microsoft Access 9.0 Object Library4*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\DAO\DAO350.DLL#Microsoft DAO 3.51 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automationp*\G{0002E1K[57-0000-0000-C000-000000000046}#5.3#0#c:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 S>b8XVVLQFKYOEXEZ_WRPNPW_PNZSCLC023e538df9 Form_Conversor b  ~,`FIx. AccessUFormat VBAWin16~Win32MacVBA6# Conversor 0 DAO Form_Conversor h _EvaluateComando0_Clickwftb;_TableDefmi`jaH_EXISTEu]db\ctrBucle" Containera ctrntabVncamejsqlkMsgBoxRvbYesa?DoCmdƧ SetWarnings Hourglassb CurrentDbS TableDefs%iCount0vFields7ControlErroresqNzu^ Properties+ DecimalPlaces[RunSQL Containers DocumentsOpenFormacDesign֡acHiddenFormsControlsKacForm OpenReport acViewDesignBmMinimizeoReportsacReport% Form_Open-CancelMaximizeFyVer_Pasos_a_seguir_Clickˮ Etiqueta25Visiblever pasos a seguir)cComando6_ClickErr_Comando6_Click<Exit_Comando6_ClickErro Description (stdole`(VBIDEAFormDetalleLComando0 Etiqueta36Ver_Pasos_a_seguirComando6ClickT |  ~ ID="{BC1E068A-7E0C-11D6-A4BD-0010B5A5B02C}" DocClass=Form_Conversor /&H00000000 Name="Conversor " HelpContextID="0" VersionCompatible32="393222000" CMG="2B29CA21F125F125F125F125" DPB="5654B71EC962F563F563F5" GC="818360656165619A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_Conversor =0, 0, 0, 0, C 8CbbT ~,U, ~,x ~, ~,ME PSLS S<$*\Rffff*023e538df94p8r<t@vDxHzL " (08@HPX`h Fp     * 8 T \$x<8$  H `J  0*P&0008@H PT`4  ( 0 P` h x   &80@0p T4(  `              " @ H P X ` " h  p  "   "          xp]@]`]x]]]]]]]0]H Desea convertir a formato todos los campos con formato moneda de todas las tablas, formularios e informes y dividir por 166,386 todos los valores con formato moneda? No podr deshacer los cambios en este fichero .MDB, as que asegrese de tener una copia del mismo.$ Seguro que desea convertir a ?$. 0 2B@4 2B@6 8.   !:!<   %:!>!< Por ahora, no trata aquellos campos de tablas que teniendo tipo "numrico" tienen en su propiedad formato 'moneda' o como '*pt*'MTampoco aquellos que teniendo tipo "moneda" tienen nula su propiedad 'format'USe da por supuesto que en configuracin regional tenemos simb decimal=, y sep miles=.   %:%>!l@x   %:%>!D"nulo$B**#,##0 ;-#,##0 ;0   %:%>!D)   %:%>!D)F  %:!'(   %:%>!'*UPDATE [ (] SET [ *]= [ * ]/166.386;', , 2B@Hk8k0(   "5J "!forms & "!L!< & "%L! P R 2B@N  T!<  $T!V!< '   $T%V!D!<   $T%V%D!format'yk   $T%V!D"*Pt*  $T%V!D"Currency#,##0 ;-#,##0 ;0  $T%V!D)  $T%V!D)Fkk X & "%L! 2B@B &k " "5J "!reports & K[v1"!L!< & "%L! \ 2B@Z 2B@^  `!<  $`!V!< '   $`%V!D!<   $`%V%D!format'yk   $`%V!D"*Pt*  $`%V!D"Currency#,##0 ;-#,##0 ;0  $`%V!D)  $`%V!D)Fkk b & "%L! 2B@B &kh "qP.  2B@6 2B@4Conversin finalizada.A@.k|@o` 2B@ho p l(not 2B@Bvp|ht` x!zA@.vHo@8Attribute VB_Name = "Form_Conversor "  Bas0{E2C8E58D-55C6-11D5-A4B8-0010B5A5B02C} |GlobalSpacAIFalse dCreatablTru PredeclaId"Expose_Templat@eDerivCustomizD$Option Comp@ DT  ob<$enSfi 7acin reg Hal emQsimb@cimal=,Qsep ? les=.bbdb.)(j).Typ5 =On Err@+Go`5auHrol"es" N@ot Nz( P'erties!B[aat],-loKLike "**" C"#,##0 |;-`DeB$Plls] 2 =JS$ƀ!CRA(!UPDA[" &  & "] SET C A=/.;ckRunSQL " End Ic Nex` ` WithhEach In m@8e.a*Ps2u "vDocum`z qCOpen=.Z() c@Yign, acHiddF16BJA)Ti=UJH +Hπd2(HS "3<6sExit 'C $1Yls{ 5 4Pt5OrAms9rm9! YcyH7 .O8r ![7o-S%VC]nc,&s& q!F>m` 2$a22re}t/2 /2/2r!2RRO2meA20View2wMini 22r 23w'$}2l(23323 32`/3$3Rb"M3o3b3ON333S33t3Z3cafA4fhC$%CQqS ("7qfinalda.v"ʅn "!P F :7: Resi q '1Y .m_8(CanceäB 8Max6IVer_Pasos_Ha_sirGEti`ta2.V(isi#[ p@]r `޽Q6+m8SQXA1Pr o D.Hcrirk PROJECTwmx5AcessVBADatayForms <<0<<Form_Conversor Form_Conversor 02=Bb c)e ghij0ko n @[Event Procedure]Arial8)hHP LaserJet@g ,,A4: 210 x 297 mm@MSUDHP LaserJetd @winspoolK[v1 HP LaseBlob z PropDataTypeInfoDirData rJet\\TRUST-1\trust-12d2hbcgh MS Sans Serifzbcij MS Sans Serif`Detalleh 1U`ab`chComando0 Convertir...ޡConvierte a formato todos los campos con formato moneda de todas las tablas, formulario e informes y divide por 166,386 todos los valores con formato moneda.[Event Procedure]Convierte a formato todos los campos con formato moneda de todas las tablas, formulario e informes y divide por 166,386 todos los valores con formato moneda.d5U`ta bs#cd Etiqueta2 PASOS A SEGUIR... 1) Imprima si lo desea este formulario tal cual est y cirrelo. 2) Realice una copia del fichero .MDB que desea pasar a formato por si desea volver a como lo tena justo antes de ejecutar este conversor. 3) En el fichero que elija convertir (ya sea la copia o el original), copie este formulario. El modo de hacerlo puede ser o bien simplemente arrastrndolo con los dos ficheros abiertos o con el Comando Archivo/Obtener Datos externos/Importar... 4) Una vez copiado, abra este formulario en el fichero .MDB en cuestin y haga clic en el botn Convertir... Se ejecuta el proceso que convierte a formato todos los campos con formato moneda de todas las tablas, formularios e informes y divide por 166,386 todos los valores con formato moneda. 5) Si el resultado no es el deseado, recupere la copia y renombre adecuadamente. NOTA IMPORTANTE: Si el fichero en cuestin posee tablas vinculadas con origen en otro fichero .MDB que tambin se quiere convertir, se recomienda eliminar estos vnculos (luego los repondra) y convertir los 2 ficheros independientemente; de no ser as podra dividir por 166, 386 los valores con formato moneda 2 veces (una ahora y otra al convertir el fichero origen de estos vnculos). Arial Narrowd5U78`ab&cdedd Etiqueta3@CONVERSOR PTAS=>UROS DE FICHEROS .MDB (Access 97 o superior) Agency FBz1U`aabcjkVer Pasos a seguir0Ver Pasos a seguir[Event Procedure]Ver_Pasos_a_seguirh1U`%amb@c@iComando6Comando6[Event Procedure](ڭ0ڭ030 ڠ30 3 ڠ30 D30 DD30 DDD30 DD3 D0 ڠ ڭHCerrar formularioͬU,Detalleh Comando0d Etiqueta2d Etiqueta3z Ver_Pasos_a_seguirVer Pasos a K[ @seguirh Comando6Conversor Cmdbars<<Modules<<Reports<<Scripts<<PropDataDatabases<<0<<Blob ijMSysDbDirDataCustomGroups<<DataAccessPages <<a formato todos los campos con formato moneda de todas las tablas, formularios e informes y dividir por 166,386 todos los valores con formato moneda? No podr deshacer los cambios en este fichero .MDB, as que asegrese de tener una copia del mismo.$ Seguro que desea convertir a ?$. 0 2B@4 2B@6 8.   !:!<   %:!>!< Por ahora, no trata aquellos campos de tablas que teniendo tipo "numrico" tienen en su propiedad formato 'moneda' o como '*pt*'MTampoco aquellos que teniendo tipo "moneda" tienen nula su propiedad 'format'USe da por supuesto que en configuracin regional tenemos simb decimal=, y sep miles=.   %:%>!l@x   %:%>!D"nulo$B**#,##0 ;-#,##0 ;0   %:%>!D)   %:%>!D)F  %:!'(   %:%>!'*UPDATE [ (] SET [ *]= [ * ]/166.386;', , 2B@Hk8k0(   "5J "!forms & "!L!< & "%L! P R 2B@N  T!<  $T!V!< '   $T%V!D!<   $T%V%D!format'yk   $T%V!D"*Pt*  $T%V!D"Currency#,##0 ;-#,##0 ;0  $T%V!D)  $T%V!D)Fkk X & "%L! 2B@B &k " "5J "!reports &   @teCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeniYYIdParentIdName        e rE@ֺrE@MSysModules288888888888 HrE@rE@MSysModules66666666666 HrE@HrE@Conversor 66666666666  HrE@HrE@UserDefined66666666666  HrE@HrE@SummaryInfo66666666666  ԲrE@ ԲrE@AccessLayout88888888888ʾConversor ʾConversor (:vcP=*z @ -  } j C 0  m Z G pon[ZG4taIDYAOIndex       $ % !"#&(.)*+,-0/1Root Entry x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp   x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp  @f-:Jт'XL84\K>`!->"jð៨pth}b1%V9dY|0oCy*`1sp  Tx|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp  Tf-:Jт'XL84\K>`!->"jð៨pth}b1%V9dY|0oCy*`1sp Tx|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp  f-:Jт'XL84\K>`!->"jð៨pth}b1%V9dY|0oCy*`1sp  x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp     x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp     x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp    x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp     x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp    x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp    x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp   x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp     x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp    x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp     f-:Jт'XL84\K>`!->"jð៨pth}b1%V9dY|0oCy*`1sp  ,LVAL> @ @ @ @ʾConversor ^3ʾConversor ^3 LVAL\ cP=*z @ -  } j C 0  m Z G pon[ZG4      !")zm{ tz^xeL`f[Mm3\;6d Ue@tJz} Ú4P7`3`t& p   )zm{ tz^xeL`f[Mm3\;6d Ue@tJz} Ú4P7`3`t& p  @76tz^xe1Y˛lh bMm3\;6do?(v"` "6Az} Ú4P7`3`t& p  T)zm{ tz^xeL`f[Mm3\;6d Ue@tJz} Ú4P7`3`t& p  T76tz^xe1Y˛lh bMm3\;6do?(v"` "6Az} Ú4P7`3`t& p T)zm{ tz^xeL`f[M     x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp     x|6`:Jт#1y1EY`!->"jð៨p{0zmWq%V9dY|0oCy*`1sp  MR20 Title AuthorCompany` Conversor (  VELASCO HARO PSI PSIMR2jAccessVersion BuildAppTitleStartUpForm&StartUpShowDBWindow(StartUpShowStatusBarStartUpMenuBar$AllowShortcutMenusAllowFullMenus(AllowBuiltInToolbars&AllowToolbarChanges$AllowBreakIntoCode AllowSpecialKeysAppIcon,StartupShortcutMenuBar6Track Name AutoCorrect Info0Perform Name AutoCorrectCpgConversion6 08.50   Conversor  Conversor            d \C:\Mis documentos\Mis imgenes\Iconos\euro.ico