ࡱ> #!I bjbj &FQ]jjjjT>txxxxnu  ULLLLLL$_Sfp9 " p) jjxxm) ) ) j8xxUjjjj U) ,) UUx UNm.  FORMTEXTO       MINUTA DE HONORARIOS Visado Colegial n.: FORMTEXTO      Colegiado n.:  FORMTEXTO     N.I.F.:  FORMTEXTO      Cliente:  FORMTEXTO      D.  FORMTEXTO      N.I.F.:  FORMTEXTO      Domicilio:  FORMTEXTO      Domicilio:  FORMTEXTO      Localidad:  FORMTEXTO      Localidad:  FORMTEXTO      Provincia:  FORMTEXTO      Provincia:  FORMTEXTO       Valladolid, a FORMTEXTO   de FORMTEXTO      de 20 FORMTEXTO    FECHA DE DEVENGOC O N C E P T OIMPORTE FORMTEXTO       FORMTEXTO       FORMTEXTO       FORMTEXTO       FORMTEXTO       FORMTEXTO       FORMTEXTO       FORMTEXTO       FORMTEXTO       FORMTEXTO       FORMTEXTO       FORMTEXTO      Total Base Imponible.............................. FORMTEXTO      Retencin ( FORMTEXTO 18% s/B.I.) ............... FORMTEXTO      I.V.A. ( FORMTEXTO 16% s/B.I.) ....................... FORMTEXTO      Total Factura .............................................. FORMTEXTO       Importe Total (Euros):  FORMTEXTO       FORMTEXTO       RECIBI:  FORMTEXTO       EL  FORMLISTA  INDUSTRIAL   &(*468Z,˺ժգ㑆xkc\QjCJOJQJU CJ OJQJ5CJ OJQJjCJOJQJUmHjCJOJQJUjCJOJQJU5CJOJQJ5>*CJ OJQJ CJOJQJjCJOJQJUehmH!jCJOJQJUehCJOJQJehjCJOJQJUeh CJOJQJ5CJOJQJjCJOJQJUmH8:<RT$$$$#$$F40Y#k$$$$*48:<RT,.08:<>@BDFHJL^  2468BDFHJLNPRTlnp b<>@xod $ $$$A$$Frz$  7 $$A$$Fr$ 7 ,.08:BDL^`vxzûһҋviûҋ[j<CJOJQJUjCJOJQJUmHjnCJOJQJU CJOJQJjCJOJQJUjOJQJUmHjOJQJUOJQJjOJQJU5CJOJQJ CJ OJQJ5CJ OJQJ CJOJQJjCJOJQJUmHjCJOJQJUj@CJOJQJU#@BDFHJL^z$$7$$F4\z$  7$$$$7$$F4\S$. 7  Fvmm$$A$$Frz$  7 $$B$$F4r$S7  468BDFHJNPTln&÷Ȭ٤٤sj2CJOJQJUjzCJOJQJUjCJOJQJU CJ OJQJ5CJ OJQJjOJQJUmHjOJQJUOJQJjOJQJU5CJOJQJ CJOJQJ CJOJQJjCJOJQJUjCJOJQJUmH-FHJLNPRTlxoo$$A$$Frz$  7 $$A$$FrV $+7S &(*,DFHZ\^`jlnprtvxz|">BFLhrv  8 b  b*,Dnxoo$$A$$Frz$  7 $$A$$Fr$J 7  &(*,DF\^`jlnprvx|"$:<>BDL滴摆xkjCJOJQJUmHjCJOJQJUjCJOJQJU CJOJQJjCJOJQJUjpCJOJQJU CJ OJQJ5CJ OJQJjCJOJQJUmHjCJOJQJU5CJOJQJ CJOJQJ CJOJQJjCJOJQJU*nprtvxz|xoo$$A$$Frz$  7 $$A$$Fr$J 7  "FLvYO$$F4ֈn :  uB$$$$$$$$A$$Fr$J 7  LNdfhrt  & ( * 4 6 8 : P R T ^ ` b d |vh|[|vRjOJQJUj5OJQJUmHj 5OJQJU 5OJQJj5OJQJUjCJOJQJUmHj0 CJOJQJUjCJOJQJU5CJOJQJ5CJOJQJ CJOJQJj CJOJQJUjCJOJQJUmHj0 CJOJQJU CJOJQJjCJOJQJU   8 b r<$$F4     F7$ $H$H$:$$F*     F7$ $$$ d z | ~    & ( * 4 6 8 : P Իɮԣvhɮԣj|CJOJQJUj"OJQJUj5OJQJUmHj 5OJQJU 5OJQJj5OJQJUjCJOJQJUmHj CJOJQJUjCJOJQJU CJOJQJjOJQJUmHjOJQJUj| OJQJUOJQJ&  8 b   : x z   . 0 2 < > @ B D V r v z f h ~  "$&`bdfh V  8 b   : x ,$ $$$$H$H$$$<$$F4     F7$  P R T ^ ` b d z | ~   8 : x z ƺ˯ƨth˯ƨԨjDOJQJUj5OJQJUjCJOJQJUmHjCJOJQJUjCJOJQJU CJOJQJjOJQJUmHjOJQJUOJQJjOJQJU 5OJQJj5OJQJUmHj5OJQJUj05OJQJU(   . 0 2 < > @ D T V X n p r v x z f h ~ Ӵ«ڟӑ«څyjfOJQJUjOJQJUjCJOJQJUj<OJQJUCJOJQJmHjbCJOJQJUjCJOJQJU 5OJQJ CJOJQJOJQJjOJQJUmHjOJQJUjOJQJU/  @ B D V <RPP$$F4     r7$ 3$H$$$$ $$$C$$F     \7$ }3 V z f P]8$$F     F7$  $$$P$$F4     r7+ $ $H$$$$  "$&68NPRϲ£Ϝϑ}ph[hK[j5CJOJQJUj5CJOJQJU5CJOJQJj5OJQJUmHj5OJQJU 5OJQJj5OJQJU CJOJQJj5CJOJQJUmHj,5CJOJQJUj5CJOJQJU5CJOJQJ5CJOJQJ CJOJQJOJQJjOJQJUjOJQJUmH "$&`bdf\}xxxx$%$$F0$k t $$F4$' $8$$F     F7$  $$ R\^`hnp jdUj@5CJOJQJU 5OJQJ5CJOJQJj5CJOJQJUj5CJOJQJUmH fh$$. A!"#n$7%D Texto1Nmero de factura.ocultarDTexto2Nmero de visado.xDTexto30DTexto4 Nmero de identificacin fiscal.D2Texto9 Maysculas"Nombre o denominacin del cliente.D#Texto5 MaysculasNombre del colegiado.DTexto10 Maysculas"Identificacin fiscal del cliente.D Texto6 MaysculasDomicilio del colegiado.D!Texto11 MaysculasDomicilio del cliente.D Texto7 Maysculas Localidad.D!Texto12 Maysculas Localidad.D Texto8 Maysculas Provincia.D!Texto13 Maysculas Provincia.D Texto140Da.D Texto15Mes.DTexto16Ao.D Texto37d/M/aaFecha de devengo (da-mes-ao).DTexto17 Concepto.ZD Importe1#.##0,00hImporte (SEPARAR DECIMALES CON UNA COMA ","). Acepta DOS decimales, el tercer decimal no es redondeado.D Texto37d/M/aaFecha de devengo (da-mes-ao).DTexto19 Concepto.ZD Importe2#.##0,00hImporte (SEPARAR DECIMALES CON UNA COMA ","). Acepta DOS decimales, el tercer decimal no es redondeado.D d/M/aaFecha de devengo (da-mes-ao).|D Concepto.ZD Importe3#.##0,00hImporte (SEPARAR DECIMALES CON UNA COMA ","). Acepta DOS decimales, el tercer decimal no es redondeado.D Texto37d/M/aaFecha de devengo (da-mes-ao).|D Concepto.ZD Importe4#.##0,00hImporte (SEPARAR DECIMALES CON UNA COMA ","). Acepta DOS decimales, el tercer decimal no es redondeado.D TotalBI#.##0,00Total base imponible. TotalBaseD PorcentajeRetencion180"% de retencin. (Por defecto 18%).D TotalRetencion#.##0,00 Retencin. RetencionD  PorcentajeIva160&% de iva a aplicar (por defecto: 16%).D TotalIva#.##0,00IVA.IvaD TotalFactura#.##0,00Total factura. TotalFacturaD ImporteTotal#.##0,00Total importe factura.DImporteTotalTexto traduceatextoD2Texto36Nombre receptor del importe.$Df Titulacion8Seleccionar Titulacin (por defecto: Ingeniero Tcnico):INGENIERO TCNICOPERITODdxH<  C Abx6RF4u{Jt7TnL6RF4u{Jt7PNG  IHDRx:gAMAPLTEٟ pHYs y:IDATxkVg|NU{[و=4vcrH&scv]`61J.\ q4Kw'9RX;M[,z/:[e9 Bd ,*1:vA}Ô6v݌f2sn9+,yUiul=sČqc|N%RwTy%RțcbE^s3s*p-o͛o1CxԳ\2G9Y+/Zf |BSjp?:<*y O1:+GS?ӛŘ+}O+ѮJwuB.őC_LCeR`1<2)FωoI/rR%7"EGGSMx[$}ڿu xCg+acP-+:TT>4mh*hAb贁9PS <[1g!4=&Xh'Rw L8@ |ݵv i鐮o7|\'P*:=iCڡl\1Du3z=j6vo.+KVnm?\ Ѷ'Iٞ۾-u@yZ6=TiufKVlT|[oB_[~қ|=v}X~`KsIn}Tvzpw }e5h `?B v͠AᚅpP TÐ py|,,FOI1st/t X~(SI`4jиdff?w'9uaƝU>.B_u{ߒ6opv'JA1Xhh+X}ё=N}EI:oB9]?3E=G @YagWMA>cïN1`zHA-e&uc}c&sff,oY+s|haǖ}'?Y>uf%U"ӭd*WTq;:x^3rA N5sn)+ qPی[];v]qpfP>&#Ǖ?i|rg8e k#~;pd Vi{eF"\7dw ;:rv?oŐIENDB` [0@0 Normal_HmH sH tH FF Ttulo 1$<@&5CJKHOJQJFA@F Fuente de prrafo predeter.z z ndice 1C$ S" 8$d%d&d'd1$^`8a$CJKHmH sH uVVF V,&Ld P R !@Fn V f  "  [hn!6CIXek!&39ANQ)/1>DGTZ\ioq~ +8;_lr (.7DVFFFFFFFFFFFFFFFFtFFTFFFTFFFTFFFTFFFFFFFFFFS l,b${hnI%Ac0?@(  V  #  "B S  ?VFZt!Texto1Texto2Texto3Texto4Texto9Texto5Texto10Texto6Texto11Texto7Texto12Texto8Texto13Texto14Texto15Texto16Texto37Texto17Importe1Texto19Importe2Importe3Importe4TotalBIPorcentajeRetencionTotalRetencion PorcentajeIvaTotalIva TotalFactura ImporteTotalImporteTotalTextoTexto36 Titulacion\7Y'B2r ,`8W  o"Jl":RE<s/EWEE[o"6JXl"&:AR01EG[\pq +<_s/7EPQTWColegio de IngenierosColegio de IngenierosColegio de IngenierosColegio de IngenierosColegio de IngenierosPedroColegio de IngenierosColegio de IngenierosColegio de IngenierosCOPITILC:\Archivos de programa\Microsoft Office\Plantillas\Factura_honorarios_2.dotV&D&FV&D&FV&D&FV&D&FV &D&FV &D&FV&D&F TemplateProject.NewMacros.Iva!TemplateProject.NewMacros.ocultar)TemplateProject.NewMacros.PruebaConvertir#TemplateProject.NewMacros.Retencion#TemplateProject.NewMacros.TotalBase&TemplateProject.NewMacros.TotalFactura'TemplateProject.NewMacros.traduceatextoTEMPLATEPROJECT.NEWMACROS.IVA!TEMPLATEPROJECT.NEWMACROS.OCULTAR#TEMPLATEPROJECT.NEWMACROS.RETENCION#TEMPLATEPROJECT.NEWMACROS.TOTALBASE&TEMPLATEPROJECT.NEWMACROS.TOTALFACTURA'TEMPLATEPROJECT.NEWMACROS.TRADUCEATEXTO)TEMPLATEPROJECT.NEWMACROS.PRUEBACONVERTIR@\4V@@@ @GTimes New Roman5Symbol3& Arial"1[dd*Yfa n "0d`4՝NmColegio de IngenierosCOPITI Oh+'0  8 D P \hpxNmmColegio de Ingenieros8oleFactura_honorarios_2.dot0COPITI_17IMicrosoft Word 8.02@ @+5@ȬX@a ՜.+,D՜.+,T px  Colegio de Ingenieros1t ` Nm Ttulo 6> _PID_GUIDAN{86613DDA-51F7-11D6-9F93-00105AF117F9}  !"#%&'()*+,-./012345789:;<=>?@ACDEFGHIKLMNOPQTUXY[\]p_`abcdefghijklmnoZqrstuvwxyz{|}~Root EntryDHJ *%B.@ @ F좛C`"WDataH Macro4 Macroh&e4 Macro gra  por Colegio de Ingenieros&eh&e$l"^1Table&e X!bB@d&e X!b!fB@d&eg&e X!f&eg&e O 5f(f9h l6WordDocument9t9vn |z X!b`Z   &F&eSummaryInformation'&e  (fp miercoles MacB4 MDocumentSummaryInformation8 ActiveWindow.ActivePane.View.ShowAlJActiMacrosePane.View. ' ShowAll&e(d&e !d&e!''VBAImporte1 %"!$FImporte1 %" !hImporte2ThisDocument __SRP_4__SRP_5 @NewMacros^ !"#$%&'()*+-./02456789;<զK֗j FTI% `OC%x)x8#TI% `OC%x)զK֗j4(SLSS6"N0{00020906-0000-0000-C000-000000000046}/m;$*\Rffff*323bb73da9($H0h,@ $ $ $p@8MExAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2rU X!&I&q& 4&&crU @prU , 0H P "X  '0 @ H P "X   ` h p x FFFF` ""  R@ ` "h p  0_  [ ^8_ .cx`  "   _ [ R_ 8 (c X "` h  [ &[  [  ,c`,c` " H ,` ( ,  ,    ( p8 4 L <0  p  \x  \ 8  JH7  T 2 @ (` :   B  "| H  ,P " J@ B $` b 4 @.( tX B L <h b >%P.hF @0p: " 0*8 NhP BBPBJH0JxJJx=#Y#ip@> LL*LLLLLLLLLLLLLLLLLLLLw1>1 82.H2 x22 *22 823 *3083<h33 33:%3 D 4$X4&*4 4&*4 4.34 5 5 D (5$p5(:5 5(:5 556 666" 6 2H666 66N*6 7* 787%@7.3`770E777 (7 8458TT@8RT889 D9 :`99  99 &9 9(9 4A9 6D0: :Dh: @D: @D: "(; @DH; DD; BD; BD< `< Dh<,:<<< <(=0=  8=<5@=>8=<8=>  > D(>p>@#>> > >>? (? @? H?D"X? ?  ? ? &? ? ?>8@@8@@@8@@8@A AA $C0AXA`A D"hA BA*A(B *0B`B#hBB .B<BCBC XC hCxC CCBC C CC>D@DPD#XDpDxDD .DLDL EpELxEE<E F 6(F `FxF F >F#FF#F GGG .8GXhGXGHL HXpHH!H  II 0IHI PI XI2#hII4#I III 2J HJ XJpJ >xJ J BJ K KB,(K pKxK 0KK$K(KL#L(L0L8L$@L(hLL#LL LL"L 0L M$8M$`M(M*M(M(N(0N(XNN LN LN (O P*0O OOD,O OO 2O0P&8P(`PP#PPPP&P(PQ#Q0Q 8Q@Q HQ 2hQXQXQPR> XR RD"R R  S &S 0S @SB8HSD8SD8SD8 ThT@pTBT*TN(UxU *U UU UUUVV < V`VhV pVxV>"VVV &,VWXWH!pWD,W XX 2XHX&PX(xXX#XXXX&X(Y(Y#0YHY PYXY"`Y YY Y B Y ,Y Y@Z HZ  hZxZ(Z Z 0Z .Z[  [ [ ([ 0[ B 8[n@[ [@[ \  (\8\(P\ h\ 0x\ .\\  \$;\ 0]<c8]x] ]]R] ] ] ^^ ^  ^ "(^0^8^ ``"V@^ 8` h^ H`:vp^^<v^__a AddOurToolbar Macro3 Macro creada el 30/08/01 por Colegio de Ingenieros(Z NumeroCol %"!$>Debe rellenar el campo. El campo no puede tener un valor nulo.@Mensaje de advertencia$&'File$*.( ((, 2n 64 *%0..aFile$*.( ((,hhFile$*.( ((,l( Barra Macro4 Macro grabada el 31/08/01 por Colegio de Ingenieros7 El siguiente ejemplo oculta la barra de mens activa ya{ la reemplaza por una barra de mens temporal acoplada al lado derecho de la ventana de aplicacin y protegida del usuario.e *!>.<nuevaBarraMen FDHJ *%B.@ @9L P9Nnx A Macro4 Macro grabada el 31/08/01 por Colegio de IngenierosStandard$*(L *!>.<nuevaBarraMen FDHJ *%B.@ @9L P9Nn @ 2n45TB@B9LnH Macro4 Macroh&e4 Macro grabada el 07/04/99 por Colegio de Ingenieros&eh&e `^ X!ZB@\&e X!bB@d&e X!b!fB@d&eg&e X!bg&e^p9f&eg&e O 5f(f9h l9j99n9p9r9t9vn |z X!bB@x&el`Z   '&e '&eHf&e  '&e  '&e  ' '~fp miercoles Macro&e4 Macro grabada el 05/09/01 por Colegio de Ingenieros&ee&e[ ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. ' ShowAll&e(d&e !d&e9nplh'''''Importe1 %"!$FImporte1 %"!$U'gImporte2 %"!$FImporte2 %"!$U'gImporte3 %"!$FImporte3 %"!$U'gImporte4 %"!$FImporte4 %"!$U'g0Z     F 'g F   'g F   'g F   'g TotalBI %"($lhxZTotalBI %"!$U'  {Gz?' $~TotalIva %"($lZ@XpTotalBI %"!$U'  {Gz?' LalZTotalBI %"!$U'TotalRetencion %"!$U'TotalIva %"!$U'    ' l(BProcedimiento para probar la funcin de convertir cifras a letras.Zh(Indicar la cifra a convertir.JZ(Indicar el tipo de moneda.Z(Indicar el formato del texto.t&****** Indicar aqu el tipo de moneda.euro'peso'SEa****** Indicar aqu si queremos que empiece el texto con' Maysculas = 0, ninguna mayscula.. 1, Primera letra mayscula.n F 2, Todas Primeras Letras De Palabras En Maysculas.5 3, TODAS LAS LETRAS EN MAYSCULAS.S.'V****** Para ver el resultado, pulsar la flecha, o F5 o Ejecutar -> Iniciar o ContinuarPU****** Indicar aqu la cifra en letras. (En cdigo VBA, la coma decimal es un punto.)(͵@'DCon esta lnea activada, muestra un mensaje en un cuadro de dilogo.   $A@&MCon estas lneas activadas, muestra el resultado en la ventana de depuracin.+Ventana depuracin: Ver/Ventana... o Ctrl+s Dim x As Double" For x = 0.01 To 0.99 Step 0.014 Debug.Print Convertir(x, Moneda, Maysculas) Next xl(oDevuelve una conversin a cadena de texto de una cifra numrica. Seleccionaautomticamente el texto de los decimales segn el texto de la moneda.Para actualizar monedas no incluidas en el formulario, buscar 'Select Case strMoneda'COMO UTILIZAR ESTA FUNCIN.mDesde un formulario o informe y en un Control del tipo Cuadro de Texto Propiedad: Origen del control.ASINTAXIS =Convertir(varCifra;"strMoneda";bytMayusculas)r Ejemplo =Convertir("5.000,25";"peseta";1) Devuelve Cinco mil pesetas con veinticinco cntimos t( Ejemplo =Convertir([txtCifra];"peseta";1) En este caso, el parmetro varCifra hace referencia a otro cuadro de texto que se llama Cifra, puede ser en un Form o Report. Devuelve Cinco mil pesetas con veinticinco cntimosCOMO UTILIZAR ESTA FUNCIN.Desde cdigo VBA y desde un Control del tipo Cuadro de Texto Nombre Control: txtCifra Evento: Despues de actualizarDSINTAXIS Me.txtTexto = Convertir(Me.txtCifra, "peseta", 1)u El cuadro de texto txtTexto es donde va a alojar el resultado de la conversin.;La sintaxis de la funcin Convertir tiene estos parmetros: Parte Descripcin\--------------------------------------------------------------------------------------------- varCifra: Cifra en formato numrico.r}K strMoneda: Indicar el tipo de moneda. "euro", "peseta", "franco", "lira", "dolar" OBSERVACIONES, - Esta preparado para las terminaciones o, a y r. que sirve para determinar el genero de la moneda, masculino o femenino. - Indicar todos los carcteres en minuscula, ya se encarga otro parmetro de esta propiedad. - En caso de poner en plural, "euros", la funcin elimina la s.f bytMayusculas Indicar el formato del texto.' 0, todas las letras en minsculas.; 1, Primera letra mayscula de la cadena.F 2, Todas Primeras Letras De Palabras En Maysculas.5 3, TODAS LAS LETRAS EN MAYSCULAS.\********************************* INICIO FUNCIN *******************************************8Comprobar si la cifra tiene valor o excede de 9 dgitos. $ %No estn permitidos los valores nulos'h  999999999,99 b=No hay conversin en texto para cifras superiores a 9 dgitos'hDeclarar variables.ZDP,/Para saber la longitud de la cifra introducida.Zh, Temporal.Z, Contador.Z,+Para saber el Gnero del Tipo de la Moneda.,Femenino: Peseta, Lira,)Masculino: Euro, Dolar, Franco, MarcoZ,Saber el Tipo de decimales.ZD >Para saber la cifra que corresponde a las Decenas de DecimalesZD ?Para saber la cifra que corresponde a las Unidades de DecimalesZD 2Para saber la cifra que corresponde a las UnidadesZD 1Para saber la cifra que corresponde a las DecenasZD( 2Para saber la cifra que corresponde a las CentenasZD@ 9Para saber la cifra que corresponde a las Unidades de MilZDX 8Para saber la cifra que corresponde a las Decenas de MilZDp 9Para saber la cifra que corresponde a las Centenas de MilZ<Para saber la cifra que corresponde a las Unidades de MillnZ;Para saber la cifra que corresponde a las Decenas de MillnZ9Para saber la cifra que corresponde a las Centenas MillnZ1Sirven para almacenar temporalmente otra variableZ1Sirven para almacenar temporalmente otra variableZ 1Sirven para almacenar temporalmente otra variableZ 1Sirven para almacenar temporalmente otra variableZ0  Coma decimalZDH 6Para ir conociendo el texto que corresponde a UnidadesZD` 5Para ir conociendo el texto que corresponde a DecenasZDx 6Para ir conociendo el texto que corresponde a CentenasZD =Para ir conociendo el texto que corresponde a Unidades de MilZD <Para ir conociendo el texto que corresponde a Decenas de MilZD =Para ir conociendo el texto que corresponde a Centenas de MilZ @Para ir conociendo el texto que corresponde a Unidades de MillnZ ?Para ir conociendo el texto que corresponde a Decenas de MillnZ @Para ir conociendo el texto que corresponde a Centenas de MillnAsignar valor. '(!Conocemos la longitud de la cifraQuitar el plural. $s   $'h>Conocer el Gnero de la moneda. True=Masculino, False=Femenino $HQ$'En el caso de no querer tipo de moneda.'aHQ'oHQ'rHQ'P'k{Conocer el Tipo de decimales segn sea la moneda. Se indica en singular, ya se asignarla s del plural segn sea necesario. pesetaHQcntimo'euroHQcntimo'pesoHQcentavo'dlarHQcentavo'Pcntimo'klPara conocer el lugar donde esta situada la coma decimal y sabremos tambin la cantidadde decimales que hay.      $' , HQ  $'    'HQ  $'   $'    'F EjemplosLQ:varCifra es *,*** o ms decimales. 413,5167 413,5147     $'D = 5 = 5     $'D = 1 = 1     $'D = 6 = 4    $'D = ",5167" = ",5147" dU d'< = ,52 = ,51 'B = 413 = 413   'B = 413,52 = 413,51 '1*Conocemos la nueva longitud de la varCifra    $,D varCifra = 413,5  $'  '6-Dejamos la longitud de varCifra sin decimalesah   $,HvarCifra = 413,52  $'H DecDec = 2   $'H UniDec = 5  ':-Dejamos la longitud de varCifra sin decimaleshhxhpkh.Ya sabemos los decimales y nos vamos al resto.h(   F   $'gECentenas de Milln F   $'gEDecenas de Milln F   $'gEUnidades de Milln F   $'gECentenas de Mil F   $'gEDecenas de Mil F   $'gEUnidades de Mil F   $'gECentenas F   $'gEDecenas F  $'gEUnidades6Dependiendo la longitud, se realizara un procedimiento  Fg1 555.555.555 Fg1 55.555.555 Fg1 5.555.555 Fg1555.555 Fg155.555 Fg15.555 F g1555 F g155 Fg15Asignar el valor final unHQ   'unaHQ   'P 3Consultar si no tiene la cadena del tipo de moneda. $   s'h0 k( Subrutinas de trabajo.   a   h h +Convertir el tipo de letra segn seleccin. HQPrimera letra mayscula. $$ $  $'HQ0Todas Primeras Letras De Palabras En Maysculas. $'HQTODAS LAS LETRAS EN MAYSCULAS. $'Px #En otros casos, todo en minusculas.k@ 1Salir de la funcin al terminar el procedimiento. #***********************************&Asignar valor a las Decenas de Decimal )En este caso no hay unidades de decimales 'E ' '8 $cero2Las Decenas de Decimal = 0 una'-Cambiamos de genero al ser cntimos masculinoun''y ademas es singular    de  ' unb    de  'a   s de  'ha una'-Cambiamos de genero al ser cntimos masculinoun''y ademas es singular  con    'a@  con    'hha 'hFin de Decenas de Decimal'Asignar valor a las Unidades de Decimal 'E ' 'E ' ' H $una(-Cambiamos de genero al ser cntimos masculino '   $'h $cero   s de  'ap  con    s'h80Asignar valor de los Unidades HQEcero'E HQEdos'HQEtres'E HQEcuatro'E<HQEcinco'HQEseis'E HQEsiete'E<HQEocho' HQEnueve'P =En caso de ser 1, asignar comprobando el Gnero de la moneda. ununa$'k 'Fin de Unidades Asignar valor de las Decenas    HQEdiez'E0 HQEonce' HQEdoce'E0 HQEtrece'HQEcatorce'E0HQEquince'HQE diecisis'E0HQE diecisiete'HQE dieciocho'E0HQE diecinueve'HQEveinte'EHQE veintids'E0HQE veintitrs'HQE veinticuatro'E0HQE veinticinco'HQE veintisis'E0HQE veintisiete'HQE veintiocho'E0HQE veintinueve'P>En caso de ser 21, asignar comprobando el Gnero de la moneda. veintin veintiuna$'k  '-Asignamos el texto correspondiente a la CIFRAa HQEtreinta'E0HQEcuarenta'HQE cincuenta'E0HQEsesenta'HQEsetenta'E0HQEochenta' HQEnoventa'k?  ,%Si CIFRA > 31 y unidades distinto a 0,Nos vamos a Unidades  y  '6"Asignamos el texto correspondientea0? 'h ?h Fin de Dec < 3Fin de Decenas Asignar valor de las Centenas HQE   0Si el valor es 100 justos.cien' 'H>aSi el valor es superior a 100ciento'h>HQEdoscient'E*HQE trescient'HQE cuatrocient'E*HQEquinient'HQE seiscient'E*HQE setecient'HQE ochocient'E* HQE novecient'k=  ciento  osas$'h<h<   F 'E/g7El valor es 200,300, etc.  $#El valor es 101, 308, 405, 909, etc$ Nos vamos a asignar las unidadesa; $Nos vamos a asignar las decenash;   'Fin de Centenas$Asignar valor de las Unidades de mil 'E '$!Saber el valor de Unidades de mil: 'E'$'Devolvemos el valor y reseteamos a nulo mil'a:  mil 'hh:    $$El valor es 2.000, 3.000, 4.000, etc 'a: : $+Si Centenas es cero, no aadimos el espacio   'a9   'h9h9Fin de Unidades de Mil#Asignar valor de las Decenas de Mil 'E '(1Como las unidades y decenas de miles son como las 'E '(2uni y dec normales,utilizamos la subrutina Decenas 8 'E '(2Devolvemos cada valor a su variable correspondien. 'E ''E'("Reseteamos a valor nulo los textos '    $El valor es 2.000, 3.000  mil 'a7 7 $+Si Centenas es cero, no aadimos el espacio  mil  'a 7  mil  'h6h6Fin de Decenas de Mil$Asignar valor de las Centenas de Mil 'E 'E '41Como las unidades y decenas de miles son como las 'E 'E$ '42uni y dec normales,utilizamos la subrutina Decenas 5  unaE'g/(En caso de ser *.001.*** se anula el una 'E 'E '42Devolvemos cada valor a su variable correspondien.'E'E'4"Reseteamos a valor nulo los textos '      mil 'a4 4   mil  ':se ha quitado "mil_"a`4  mil  '?se ha quitado "mil_"h 4h4Fin de Decenas de Mil'Asignar valor de las Unidades de Milln  un milln'a3 'E '+$Saber el valor de Unidades de millnH3 'E','Devolvemos el valor y reseteamos a nulo  millones 'h2       <Cifra es 1.000.000 'a2    4Cifra es *.000.*** P2 4Cifra es *.***.0**   '6Se ha quitado "mil_"a1   'h1a11 4Cifra es *.0**.***   ':Se ha quitado "mil_"ap1   'hP1hH1h@1Fin de Unidades de Milln&Asignar valor de las Decenas de Milln  HQEveintin milln'HQEtreintin milln')HQEcuarenta y un milln'3HQEcincuenta y un milln'=HQEsesenta y un milln'GHQEsetenta y un milln'QHQEochenta y un milln'[HQEnoventa y un milln'P/ 'E '+1Como las unidades y decenas de miles son como las 'E '+2uni y dec normales,utilizamos la subrutina Decenas . 'E 'E'E'ADevolmemos valor y reseteamos  millones 'kh.       <Cifra es **.000.000 'a.    4Cifra es **.000.*** - 4Cifra es **.***.0**   '6Se ha quitado "mil_"ax-   'hX-aP-H- 4Cifra es **.0**.***   ':Se ha quitado "mil_"a,   'h,h,h,Fin de Decenas de Milln'Asignar valor de las Centenas de Milln 'E 'E '31Como las unidades y decenas de miles son como las 'E 'E$ '32uni y dec normales,utilizamos la subrutina Decenas + 1Hay que modificar los terminos a gnero masculinoHQE   0Si el valor es 100.***.***cien' 'aSi el valor es superior a 100ciento'h*HQE doscientos'E,HQE trescientos'HQE cuatrocientos'E,HQE quinientos'HQE seiscientos'E,HQE setecientos'HQE ochocientos'E, HQE novecientos'k)   E 'g,El valor es 200,300, etc.  $#El valor es 101, 308, 405, 909, etc$ Nos vamos a asignar las unidades Eun'g*+Modificamos a masculino el uno, 201.***.***a( $Nos vamos a asignar las decenas   once'a(  ventin'a'  y un '<"Asignamos el texto correspondienteh'h'h'h'   -Cifra es 1**.***.***   millones 'a '   millones 'h& 'E 'E '32Devolvemos cada valor a su variable correspondien.'E'E'3"Reseteamos a valor nulo los textos       <Cifra es ***.000.000 'a%    4Cifra es ***.000.*** % 4Cifra es ***.***.0**   '6Se ha quitado "mil_"a`%   'h@%a8%0% 4Cifra es ***.0**.***   ':Se ha quitado "mil_"a$   'h$h$h$Fin de Centenas de Millnx$sSalir de la funcin.fP$ &Convertir todo el texto en maysculas.Z (ContadorZD (/Para saber la longitud de la cifra introducida.Z (Variable temporal. '    $'" "  )Asignar la letra convertida a mayusculas.  "$ $'a"  'h""f" `Convertir todos los carcteres de inicio de palabra a Maysculas, dejando el resto enminusculas.Z( (ContadorZD@ (/Para saber la longitud de la cifra introducida.ZX (Variable temporal. '    $'"  )Asignar la letra convertida a mayusculas.  "$ $'a8! "    $y)Asignar la letra convertida a mayusculas.     $$ $'a  y'hp  '>Sumamos una para que sea el caracter siguiente al espacio " ".a  "'hhfp Z Z ImporteTotal %"!$'&  &euro$ImporteTotalTexto %"($ptas.HQ &peseta$ImporteTotalTexto %"($kl8`'PorcentajeRetencion %"!$FPorcentajeRetencion %"!$U'g_' PorcentajeIva %"!$F PorcentajeIva %"!$U'g(`4 moneda = ActiveDocument.FormFields("Moneda").Result`euroHQ`euro'` $~TotalRetencion %"($ $~ TotalFactura %"($ $~ ImporteTotal %"($`޶Attribute VB_Name = "NewMacros"  Function redondear(cantidad As Double, numdec"Integer):Dim aux ( = P* (10 ^ (N+ 1)) )Fix(3 1C+ 5 &/ 10: /dc%nYEnd ~Sub ocxult .Descrip grabada el 05/09/01 por Colegio de Ingenie,ProcData2Invoke_Normal..m$c.ဝWith AveWindow .View .ShowAllFalseC?A sC` ACTotalBaseF(Dxvim@6tA1, A2z34 E hA1234)If.D[ment.F=Fie@lds("I1@").Res@h <> "" Then CDblF(C?c) 22G3MGc+4sA4BB'`+1404v$G`>A12&+L#3?3#4?4N E^rIG"= cd  RetenceTBI, Porc`Yaje %a@=.)c_ =o  v>*! * 0.0@}0=E , 2)3Iva1111&007L !v0O0rmEWr  `ptFactur;, , cOa("bB:4e6P@ qq2 - +FmS./3drx*L3aLPruebaCon@vertir3'edi0nto para probar la fУin!cU cifras a let.SAC1Vari9'Indicqmone`iciPonuar/*{1'+d0 ( cdigoA,3coma3ci es un p6.H 2= 5581.1sA `: t`6nea Viv`, mu\es7Ks Pcuadrb0@dilog+MsgBox t?b;6,xa s l>sp2w1Pv@'@d4epacCd'V: Ver/t...Ctrl+sS- q@Z,9 xTQ f 0.99 StepqV.Debug@.Printx N5 x2PPicvaNrCEN, MQPK, byt=p,uHbDe@vuelvea=sWade St?una cifra numrica. Seleccio_ a@utomtdmente el texto de loscimales segn >a monLedPaactualizar4s no incluidas eAformulario, b(usc-'t Case strMX' 'COMO UTILIZAR ESTA FUNCIN.Deshun U re y9Controlgpipo@ CuadrsT w` Propiid: OrigZdc!9:SINTAX,IS=1vertir(varC;"e";b`ytMayw}s)lEjemplo ""5.000,25";"peseta";1) TDevuelveC@o mil s X vein@wcmos[txtB0]E@uscas@tJparme\ EB hace referencia a oca5Cqu@A@lama &, pue~ser xF@@~Repo8rt.IIcdigo VBA deNombre : E^0Evo@G@>A G*ФMe. #\=a T)Kh, 1R'-0E "9,99_o|yZM`b=0upeP_}A End IfDecIp1 iab0Di"mLonPud@ As V a,nt:'sab(l5`q)0eroduc`M1'To{:txq :' ortblnG naM Boolean_ pt4=TC Mg'FTSfPB, Lb#Y'MXEg, Df, Frag, Marco|  nPS tring'SB`deȰ !By~ 8qgcor( W`aP:s `J…# Unia%d PO rCO qZR 60 C_ ?t` M29 ep? ??*@ //a_‹$5:l ; # l@[3ooeo Decenas de Milln Dim Cenp As Byte 'Para saber la cif8que correspona4:s|tAlma1 'Si@rven p\a ar temp$oren~otjvariablje K2HK3%a4Ł%VXnt qrPComaT& ' cimalUniT؅: irnociendo elaxto dadesCBxA(•C,?=->>/@ CBl F! YK!V!b 'Asignvalor. Longitud = Len( CA)\f`k`eemosalE E Quitc plu If Right(strMoned a, 1) "s" The 5f() -) EndH IfCoar!-Gneroa5m . True=Masculino, False=Femen Selec@t Caseq f ""Ar'DEncasnBr`tip" Abln=B a"B oarE #/3a.%.Tdees segn! %1Se indica @singular, ye acS` _ 7alV H n so`K 7Cpese>ti)n@= "cntim(c= 3-q' "d 06*,*** o m"P/PB5ODMDA/i ]P2 'DejaRAfUyn52";b gIY'@ Dec = Mid(varCifra, HLongitu`d, 1)'12 H UnBi - 1'=,5T - 3 jamos la l de sincimalesiEnd If  Select#GoTo TR ABAJO'Ya sabeY[deM y nvfal resto.$4Next x (2:If ۀ9 Then CenpMillc8c@ tenasO! n L>= 8@y7A7 6 dade,6CCCeC5 ' CQB5CB4 HBQ4CA\3DA352c Uf 2  } } 1  F ?!`@Lpend i`o , seializara un procedim@toN= DgGoSub'hBb!Rn '555.dcd`:\W%DYC%0U#(E'%R A.N$ K HAsignar ellor final C CaIConv`ertirb"un"a &@Yg& " & strMonedaaElseB'sult sRi` t]ebc)nal0po=^mdf Not Right( 7= "": sh5m#qEs 'p7rutR]trabajap#| ot  > 0\ ! 3  ?1 #  G$t2isle HgnP cin`%bytMayu`scula%17'PrimeL3may"H'= Chr(Axsc(1v!)q32)``Len())b2Tod`T s Ls PalabrEn ː c s ir2&/%W3 ODPAS L1ES EN MAYSCU@7G>|5P otr0casos, todo pminD, 'Sgr6Q fun t|erFji F2i`'* W)d*::'MvaMP D3=g1=5Xe AEhaytiv3Almacen1 0 6@&'8w Left"̵Y @4)`"cero#K'L?@p>0q QunaE'Cambic"0genser cntiama8in9|"'y Yp g@fgP V0CRVq"F\[-!   {5U/ @s "?Zah s !la 1conWQ Convertir = varp1 & " con& T"lstrDecimales  End If& Else2 o=e"GoTo UnidadespVReturn  'Fin de 8enasC  +:!'Asignarlor a l#Almacen16% 2 [mGoSubh)If Right(, 3)+"una" Then 'Ca@mbiamogenero al ser cntiAmascuplino6@#LongitudhLen)G LJ=0 LefJ"I- ~1D I/ @ 1, 40c*0ׇAs"mMonedaKwÃD JZ lkECSelect CxaseB0z:T~M@2dos"L 3tres"4@cuatro! c5hincom 6seig 7ieteC c 8g(ochN 9nu8eveMK9)En casoA?\`Jazcomprobando el Ga!.a m=C.$@ 0*II f(bln= True, "un"a"[#5K =`XAPV M1pSi# > 31 y u distp 0Ob F'Nva!eK`0$+y0+(%% _$+wlty LatCtCot? / "$1:1 00a= 0S&'0@:vaes 100 justos. Bucien2ya?]=1q5]superi 1t!iEA tPC#2C5hC~t"0C%)`Bt`#]B5g_ pBqB !BS0#No enρ#%T <> "o& f True, "os"Pas") End If< ,DIf Dec + Uni = 0 Then Convertir$CenT:Return 'El valor es 200,3 etc.R XRA^>= 1_N E101, 308, 405, 9809,PI{GoSubdaduC'NosHma asignar las u ni#Elseχ ,en) *dec"c" "  38Fin (de t0 c`Mil'~Au@Cil_@_@q_@z  P@'~ln@_@MS&unAN_8 %1kl`D_`"UP5ڏ|PZ1E^lonesC+`0N`6sP@0 D 'CifrEs 1v1'.lh_+O9GaN0aN{w 19 T.0**ql6g 'S|e <A5 Convertir = UniMillT +$ "+ p End If.lse*zGoSub Centenash&If#0 Then z'Cifra es *.0**.***H6 'Se ha quitado @"mil_"(EoR9 `Retur?'@Fin dedadln DecD_ : 'Asignar valorlas D  Select Case <= 2 A@p1R 21: T"veintin ]@$H^ 3 tr 4 cuara y u5 incu 6 ses V7 t&8 ocÛ 9 novC&oZAlmaD1 4@9: 2A 'Como CuniLyC"KD`9Nson c j` # FPa =H ' 6dec normales,utilizamos subr naY # OCbQ@:fR"BC 'Devolmeccy r>tek?!'\on|esD\AychǞ+$! ` CEȡ00.000'%?= DZ+Í A/ E* a/ q% O#g `*@ `K(As64g 5_s2_s}/oirqUq99_sUsACQLi @s8[sOsqQyGp#` qq1'Hay`e modificpl\@termina gnero mascul01:.P1;P0'Si el0i1R?AD0 ^cienHa-Q5superia 1nŌ6Gsei> 79te8W W97э!|u!+}v!L 'Eh"200,30 etc. ']&>= 1101, 308, 405, 909,3:ӓSc'N0va a$ɖg@ 0` sk "un" '6M6a5Q1uno, 201!kZ G q=`Л 1 Ss= yc"once411 qp c6o {#A"ZsMtPextorpond:  End If| 8 L ,If Cen >= 1 ADec = 0Uni ThB'Cifra es 1*8*.*{DMillT0 T + ConvertDir " mones"2Else D" "JfXAlmace0n1: f2: u= 3 'Devolvemos cada valor a suriable correspondien.Xs3t""1|= ""ą'Re`setea32n ulo l*A Q;@L 'Se ha quitado "_GIL)ɬWP 8s'74G ,6xia_)K )X^*a*ieReturn!o'Fin deUafn :#/Exit FunctioaI 'Sal` lHa fi  A PrivategstrMAYSCULAS(T! As String)G 'g0to`X(el  @maysculasĕ#Dim xa0LongonEabrGvaritud By'Pasaber @l b# cintroducidaDEG e'Vadtemporal= Len%*)Fx@1 |ToaE = Mid, xx, 1`jg " !G '@Asignac et@"ca `2uj2aa@ >& Chr(Asc1) - 32 ?5?% & E1N'**tr0merasMay v "+}+s"pcarcte`v6iniciopalab,a $-,ja&n#/to!/_ minC /A;4//X/g//7B=///`8//nb //31o.o.G11". *o/o/:pp.:cNot]?01?P "y/>3???ZB:JU nAA=ry_ Cq$x 'Sumүuna pb@que selra? Tu0ealpaa@005   8;. RQ S0`_Pne`}0(0ZHC`|Dou AmЀaPCRKp+euros veDo(cum.p>mFields("IaqteTotal").`ult ` Rem o:rM"P elect Case$" A_ y_ al@.v( , C, %mptЋ&pqa"aS __SRP_2P6__SRP_3 _VBA_PROJECTvdir Ch&Ch  fT(͵@l7fhl  1''$'4>FD 6D4$lh,lh D4$  %l 8 X:h]/H(\7Cx Y X:h]pH\YCx  hH*lMh@H  H:X ]/(5H\'JlMh@H ! H`'5HlMh@H  H  :h]/X\pU :h"]/X\pU :h#]/X\0pU :h$]/X\LpUp5 C l0z%C l0%C l&0'C l(0'C%C/(hH"dy,((lihH"l  )5(:h*]/H\mlql'(H"l ( )(6H(lihHfl '(H"l ( )(6H(0(((hH"l  )6(lihHflf8((lihH"l  )6(8((lihH"l  )6(8((lihH"l  )6(,((lihH"l  )5((hdHFdkX hHb  hHb  hH(h]VH\d7(((hH"l  ):8*]/6(\'(H"l ( )(6H((hHb7(((hH"l  ):8*]/6(\`'(H"l ( )(6H(0(((hH"l  )6((hHy f(h ]/H\0(((hH"l  )6((h]VH\0(((hH"l  )6((h]VH\?0(((hH"l  )6((h]VH\0(((hH"l  )6((h]VH\0(((hH"l  )6((h]VH\0(((hH"l  )6((h]VH\G0(((hH"l  )6((h]VH\0(((hH"l  )6((h]VH\'(H"l ( )(6H((h ]/H\ (h]/H\ (h]/H\  $(h]/H\" (h]/H\: (h]/H\R (h]/H\j (h]/H\ (h]/H\ S lxC l+0lx,*#*1x/A l-0lx,*#*1x/A .lMh@H  H:X]/(5H\? !lx,*#*# *1x2/]  N u s     w(HxMh@( )(`# .pk  /lxJixM8@ )`1x/6 H(G  ' x 01xG  E x 11xG   lxFh S %H ! H:h2]/(5H\] lx-0 +Cx*lx,*#l*#3*#*1x2X lx+0# *lx,*#l*#3*#*1x2X 3lx,*#l*# *#3*#*rU~}  ! a 9 1 Y Q A y  Y  !I q1aAYy iAa 1Y 1Y I)i1q)a 9iAy)a )Ii A y !!!!Q""#q## $Q$$$%Q%%%%&'X ϳtl oltl oltl ol tlol ϶tlmlrt X$ D'tx"$ 8x Qtpx p D p D(pxt, ($l ($\ ($L ($<t4Y:$ N   "$ 4  8 ll=/) 5 [:$ N   "$ 4  8 ll3k\/) 5 Y:$N   "$ 4  8 ll=/) 5 [:$N   "$ 4  8 ll3kL/) 5 Y:$N   "$ 4  8 ll=/) 5 R[:$N   "$ 4  8 ll3klL l<($]< \`l< l o4lo4k$ lRl:$N   "$ 4  8 p/) 5 m4\L<l    (D\[$(:DN,,<@"$ 4@ < 8( ll$3kl/$)@<(5,Y$(:DN,,<@"$ 4@ < 8( ll$=/$)@<(5,[$(:DN,,<@"$ 4@ < 8( ll$3k\/$)@<(5, l\,D{Gz?BtTc+T to#$(:D N,,<@"$ 4@ < 8( p/$)@<(5, ,\l$$@<(, (D\[$(:DN,,<@"$ 4@ < 8( ll$3kl/$)@<(5,Y$(:DN,,<@"$ 4@ < 8( ll$=/$)@<(5,[$(:DN,,<@"$ 4@ < 8( ll$3k\/$)@<(5, l\,D{Gz?BtTc+T to#$(:D N,,<@"$ 4@ < 8( p/$)@<(5,,\l$$@<(,L[:,N<@"$ 4@ < 8 ll3kl/)@<5[:, N<@"$ 4@ < 8 ll3k\/)@<5[:, N<@"$ 4@ < 8 ll3kL/)@<5l\LBtD5c+D to#:, N<@"$ 4@ < 8 p/)@<5c+D to#:, N<@"$ 4@ < 8 p/)@<50L\l$@<h1x2  lx-0 +Cx::h4HlxFX(:8,lF`1x6H( ::h4HlxFX(:8,lF`1x6H(  lxFh  lxFh *xMh@H  H:X-]/(5H\ lxJih*(hH"xMX@( ! (`1x5(%H ! H:h2]/(5H\ 3lx,*#l*# *#3*#*1x2M E:h4HlxFX(:8,lF: `1x6 H(  y :h2  :h5  :h6  :h7  :h8  :h9 ! :h: = :h; Y :h<::8-N:X+N((kH =6H( 1x(#*##*12l #0/ :h>l #0/ :h?l #0/A :h@l #0/c :hAl#0/ :hBl#0/ :hCl#0/ :hDl#0/ :hEl#0/  :hFl#0// :hGl#0/Q :hHl#0/s :hIl#0/ :hJl#0/ :hKl#0/ :hLl#0/ :hMl#0/ :hNl#0/? :hOl#0/a :hP::8QN:XRN((kH =6H(/ 1x   :hS  :hT  :hU / :hV K :hW g :hX  :hY S #:hZHlxFX(`1x6H( 1x  B"0 :h[ 1x= :h\ ^ :h] z :h^  :h_  :h`  :ha  :hb  :hc  :hd:h]/H(\:h\] #$D:(NHHhl"$ 4l h 8D p2@$)lhD5Hq l<0qv :C@@tMX@  1 > #$D:(NHHhl"$ 4l h 8D p2@$)lhD5H/<\|,q<p(@$ lhDH  9`a +&$` $`$`$!`$I`$q`0` Ii/0%(`0( `0$ `pDecMill9CenMillK7Almacen1Almacen2Almacen3almacen4ComaDecTZUniTDecTNCenTUniMilT"DecMilT9CenMilTS7UniMillTƎDecMillTCenMillTpRight TRABAJOpCentenasMilln  DecenasMilln UnidadesMillnD CentenasMil DecenasMil UnidadesMilvCentenas2Decenas%UnidadesR DecimalesDecenasDecimalRhUnidadesDecimalChrK~Asc!ustrPrimerasMayusculas strMAYSCULASIIfzstrTexto8 strTexto1 (traduceatextow.valorKDocumentjItemz _B_var_Right9 _B_var_LeftQ _B_var_Midp _B_var_Chr\;_B_var_?euro\k _B_var_euro`  $@@Ʋ0* pHdTemplateProjectQH@  = | /m; J< 9stdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\SYSTEM32\STDOLE2.TLB# Automation#/MSForms>!SFErms/z pFF8C1BC42-073E-11D4-9F93F105AF 117F9 FDOWSG\3.TWD#MicrosPoft = ` Ob Library90r?54D7DD-D8C7-40FC-93E9-92A40760E974? P\VBE@EXg .E .`M ApOfficpOmficp+,2DF8D04C-5BFA-101B-BDE5LAAo 42,Archivos de programa\GK\MSO97.DLLSP 8.0TDŸThisDocumentN23Th8sDcuenEHB1BB,B("B+B NewMab2ARwPMaUrsBOiM!@CrU~}  cantidadnumdec 3Macro grabada el 05/09/01 por Colegio de IngenierosNormal.NewMacros.miercolesvarCifra strMoneda bytMayusculas__SRP_0 __SRP_1,/PROJECTwm1GPROJECT3S a^ ,*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA332.dll#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.0#409#C:\Archivos de programa\Microsoft Office\Office\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\SYSTEM32\STDOLE2.TLB#OLE Automation*\G{F8C1BC42-073E-11D4-9F93-00105AF117F9}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{54D9F9DD-D8C7-40FC-93E9-92A40760E974}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\Archivos de programa\Microsoft Office\Office\MSO97.DLL#Microsoft Office 8.0 Object Library/m;ThisDocument 323bb73da9*DNewMacros 13bb73b83*Di8)ONoč)ONoH;Rem Wordk VBAWin16~Win32MacFactura_honorarios formulario( stdole`MSFormsC ThisDocument< _Evaluate Officeu TemplateProjectEMdulo1 NewMacrosjverificarCamposD respuestaWActiveDocument\ FormFields-|ResulturMsgBoxRBarra8 CommandBars Enabled۪boton( FindControl mmsoControlButtonnID]printIdXarchivo OcultaBarra+ barraAntiguaّ ActiveMenuBarr barraNueva]AddrPosition msoBarRightMenuBar߫ temporaryVisible Protection msoBarNoMove>AXControlsKTabla} SelectionZRowsU ConvertToText, Separator^wdSeparateByParagraphs FindnClearFormatting) ReplacementForwardWrapWy wdFindAskt MatchCaseMatchWholeWordXMatchWildcardsMatchSoundsLike0MatchAllWordFormsExecuteYReplacef wdReplaceAllu# (redondearcantidad޾numdecF8auxu(ocultarjh ActiveWindow+ViewIShowAllI (TotalBase?$vimporte+A1k\A2l\A3m\A4n\A5o\A6p\ (Retencion6TBIM Porcentaje(IvaV (TotalFactura+TotalU(PruebaConvertirv5Ciframoneda Maysculase' (Convertir9varCifrac strMoneda- bytMayusculasIsNullFinw varLongitud varConvertir10xo blnGneroo strDecimalesDecDec&~UniDec*UnibDec&Cen}UniMilDecMilCenMilvUniMillstrTexto &BThisDocumentThisDocumentNewMacrosNewMacrosID="{29EB8DC5-A2B5-11D5-9708-004F4E006FB6}" Document=ThisDocument/&H00000000 Module=NewMacros Name="TemplateProject" HelpContextID="0" CMG="8A885CD4E2D8E2D8E2D8E2D8" DPB="1416C266C6F1C7F1C7F1" GC="9E9C48F85808E309E3091C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=110, 110, 585, 476, I NewMacros=110, 110, 389, 476, Z   FDocumento Microsoft Word MSWordDocWord.Document.89qCompObj:k];v]qpfP>&#Ǖ?i|rg8e k#~;pd Vi{eF"\7dw ;:rv?oŐIENDB`D TotalBI#.##0,00Total base imponible. TotalBaseD TotalRetencion#.##0,00 Retencin. RetencionD TotalIva#.##0,00IVA.IvaD TotalFactura#.##0,00Total factura. TotalFacturaD ImporteTotal#.##0,00Total importe factura.K)^rU~~~~~~~~~~~~~~~~~~M SZ  a &a  Ii 1Qy   ThisDocument NewMacrosTemplateProjectFHC:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA332.dllVBA  A( F;C:\Archivos de programa\Microsoft Office\Office\MSWORD8.OLBWord I q80FC:\WINNT\SYSTEM32\STDOLE2.TLBstdole aHOOR3gC:\WINDOWS\SYSTEM\MSForms.TWDMSForms aAX.E .`M T@钤`tC:\WINDOWS\TEMP\VBE\MSForms.EXD iAhL-[DR9C:\Archivos de programa\Microsoft Office\Office\MSO97.DLLOffice 1Yx redondearocultar TotalBase RetencionIva TotalFacturaPruebaConvertir Convertir strMAYSCULASstrPrimerasMayusculas traduceatexto  F F9 b F F TotalBIk F) F( F TotalRetencion TotalIva TotalFactura ImporteTotal Importe1  Importe2 Importe3 Importe4 PorcentajeRetencion PorcentajeIva Moneda  euro ImporteTotalTexto ptas. peseta VBA332.DLL y0  %No estn permitidos los valores nulos 999999999,99 =No hay conversin en texto para cifras superiores a 9 dgitos yk  s yi  a o r cntimo peso centavo dlar yx  , un   una diecisis y  y` ( cero  de   con  dos tres cuatro cinco seis siete ocho nueve y @ diez once doce trece catorce quince diecisiete dieciocho diecinueve veinte veintids veintitrs veinticuatro veinticinco veintisis veintisiete veintiocho veintinueve veintiuna veintin treinta cuarenta cincuenta sesenta setenta ochenta noventa  y  cien ciento doscient trescient cuatrocient quinient seiscient setecient ochocient novecient as os mil  mil  mil   una un milln millones veintin milln treintin milln cuarenta y un milln cincuenta y un milln sesenta y un milln setenta y un milln ochenta y un milln noventa y un milln doscientos trescientos cuatrocientos quinientos seiscientos setecientos ochocientos novecientos ventin  y un y  yզK֗j FTI% `OC%x) FDocument @ yDImporteTotalTexto traduceatexto$Df Titulacion8Seleccionar Titulacin (por defecto: Ingeniero Tcnico):INGENIERO TCNICOPERITOМCUМOМPKМRTEМN Oh+'0  8 D P \hpxNmmColegio de Ingenieros8oleFactura_honorarios_2.dot0COPITI_18IMicrosoft Word 8.02@L@+5@ȬX@{Ib ՜.+,D՜.+,T px  Colegio de Ingenieros1t a Nm Ttulo 6> _PID_GUIDAN{86613DDA-51F7-11D6-9F93-00105AF117F9}$. A!"#n$7%                                                                                                                                          18     16                          @GBGLGPGRG\G^GhGjGtGvGGGGG跨~nf5CJOJQJj&5CJOJQJUj5CJOJQJUmHj5OJQJUmHj&5OJQJUj5CJOJQJUmHjJ%5CJOJQJUj$OJQJUj#OJQJUCJOJQJmHjOJQJUmHj0#OJQJUR\^`hnp0F:FBFLF`FjFFFFFFFFFFGGG&G0G2GDGTZ\ioq~ +8;_lr (.7DVFFFFFFFFFFFFFFFFtFFTFFFTFFFTFFFTFFFFFFFFFFS l,b${hnI%Ac0?@(  V  #  "B S  ?VFZt!Texto1Texto2Texto3Texto4Texto9Texto5Texto10Texto6Texto11Texto7Texto12Texto8Texto13Texto14Texto15Texto16Texto37Texto17Importe1Texto19Importe2Importe3Importe4TotalBIPorcentajeRetencionTotalRetencion PorcentajeIvaTotalIva TotalFactura ImporteTotalImporteTotalTextoTexto36 Titulacion\7Y'B2r ,`8W  o"Jl":RE<s/EW"6JXl"&:AR01EG[\pq +<_s/7EPQTWColegio de IngenierosColegio de IngenierosColegio de IngenierosColegio de IngenierosPedroColegio de IngenierosColegio de IngenierosColegio de IngenierosCOPITILC:\Archivos de programa\Microsoft Office\Plantillas\Factura_honorarios_2.dotCOPITIJC:\WINDOWS\TEMP\Guardado con Autorrecuperacin de Factura_honorarios_2.asdV&F&FV&F&FV&F&FV&F&FV &F&FV &F&FV&F&F TemplateProject.NewMacros.Iva!TemplateProject.NewMacros.ocultar)TemplateProject.NewMacros.PruebaConvertir#TemplateProject.NewMacros.Retencion#TemplateProject.NewMacros.TotalBase&TemplateProject.NewMacros.TotalFactura'TemplateProject.NewMacros.traduceatextoTEMPLATEPROJECT.NEWMACROS.IVA!TEMPLATEPROJECT.NEWMACROS.OCULTAR#TEMPLATEPROJECT.NEWMACROS.RETENCION#TEMPLATEPROJECT.NEWMACROS.TOTALBASE&TEMPLATEPROJECT.NEWMACROS.TOTALFACTURA'TEMPLATEPROJECT.NEWMACROS.TRADUCEATEXTO)TEMPLATEPROJECT.NEWMACROS.PRUEBACONVERTIR@\ #v#v #v#vk #v#v#v#v#v#v#v#vx#v#v0,Fintz!$*DIfknt!49OQ*/?DUZjo9;klmr  ).CDPQTUV@A&F@4@A0F@@@A:F@8@B@LABF@ALF@@@AVF@A`F@B@H@T AjF@ AtF@ @@ A~F@& AF@j @p@| AF@ AFA @ @AF@BAF@rAF@AF@4 AF@^ AF@ AF@ AF@ AF@ AF@4 AF@^ AG@ AG@ AG@ A&G@ A0GA A2G@ A?@AXY[\]p_`abcdefghijklmnoZqrstuvwxyz{|}~CompObj:k0Table,& %SummaryInformation'&e  (fp miercoles MacD4 MDocumentSummaryInformation8 ActiveWindow.ActivePane.View.ShowAl<ActiMacrosePane.View. ' ShowAll&e(d&e !d&e!''VBAImporte1 %"!$FImporte1 %" !hImporte2 !"#$%&'()*+-./02456789;=>?@ABCEFGHIJ Nm Ttulo 6> _PID_GUIDAN{86613DDA-51F7-11D6-9F93-00105AF117F9} Oh+'0  8 D P \hpxNmmColegio de Ingenieros8 [Workspace] ThisDocument=110, 110, 585, 476, I NewMacros=110, 110, 389, 476, Z   FDocumento Microsoft Word MSWordDocWord.Document.89q ՜.+,D՜.+,T px  Colegio de Ingenieros1t aoleFactura_honorarios_2.dot0COPITI_18IMicrosoft Word 8.02@L@+5@ȬX@{Ib