//SEGUNDA PARTE
Left(Umillar,1) <> "0" then
resultado:=resultado+"Y ";
if Left(Umillar,1)="9" and Left(Dmilllar,1)<>"1" then
resultado:=resultado+"NUEVE ";
if Left(Umillar,1)="8" and Left(Dmilllar,1)<>"1" then
resultado:=resultado+"OCHO ";
if Left(Umillar,1)="7" and Left(Dmilllar,1)<>"1" then
resultado:=resultado+"SIETE ";
if Left(Umillar,1)="6" and Left(Dmilllar,1)<>"1" then
resultado:=resultado+"SEIS ";
if Left(Umillar,1)="5" and Left(Dmilllar,1)<>"1" then
resultado:=resultado+"CINCO ";
if Left(Umillar,1)="4" and Left(Dmilllar,1)<>"1" then
resultado:=resultado+"CUATRO ";
if Left(Umillar,1)="3" and Left(Dmilllar,1)<>"1" then
resultado:=resultado+"TRES ";
if Left(Umillar,1)="2" and Left(Dmilllar,1)<>"1" then
resultado:=resultado+"DOS ";
if Left(Umillar,1)="1" and Left(Dmilllar,1)<>"1" then
resultado:=resultado+"UN ";
if abs(Sum ({V.MONTO_TOTAL}, {V.RECURSO})) >= 1000 and valor <> "N"then
resultado:=resultado+"MIL "; valor:="N";
if Left(Centenas,1)="9" then
resultado:=resultado+"NOVECIENTOS ";
if Left(Centenas,1)="8" then
resultado:=resultado+"OCHOCIENTOS ";
if Left(Centenas,1)="7" then
resultado:=resultado+"SETECIENTOS ";
if Left(Centenas,1)="6" then
resultado:=resultado+"SEISCIENTOS ";
if Left(Centenas,1)="5" then
resultado:=resultado+"QUINIENTOS ";
if Left(Centenas,1)="4" then
resultado:=resultado+"CUATROCIENTOS ";
if Left(Centenas,1)="3" then
resultado:=resultado+"TRESCIENTOS ";
if Left(Centenas,1)="2" then
resultado:=resultado+"DOSCIENTOS ";
if Left(Centenas,1)="1" and Left(Decenas,1)="0" and Left(Unidades,1)="0" then
resultado:=resultado+"CIEN ";
if (Left(Centenas,1)="1" and Left(Decenas,1)<>"0") or (Left(Centenas,1)="1" and Left(Unidades,1)<>"0") then
resultado:=resultado+"CIENTO ";
if Left(decenas,1)="9" then
resultado:=resultado+"NOVENTA ";
if Left(decenas,1)="8" then
resultado:=resultado+"OCHENTA ";
if Left(decenas,1)="7" then
resultado:=resultado+"SETENTA ";
if Left(decenas,1)="6" then
resultado:=resultado+"SESENTA ";
if Left(decenas,1)="5" then
resultado:=resultado+"CINCUENTA ";
if Left(decenas,1)="4" then
resultado:=resultado+"CUARENTA ";
if Left(decenas,1)="3" then
resultado:=resultado+"TREINTA ";
if Left(decenas,1)="2" and Left(unidades,1) = "0" then
resultado:=resultado+"VEINTE ";
if Left(decenas,1)="2" and Left(unidades,1) <> "0" then
resultado:=resultado+"VEINTI";
if Left(decenas,1)="1" and Left(unidades,1) = "0" then
resultado:=resultado+"DIEZ ";
if Left(decenas,1)="1" and Left(unidades,1) = "1" then
resultado:=resultado+"ONCE ";
if Left(decenas,1)="1" and Left(unidades,1) = "2" then
resultado:=resultado+"DOCE ";
if Left(decenas,1)="1" and Left(unidades,1) = "3" then
resultado:=resultado+"TRECE ";
if Left(decenas,1)="1" and Left(unidades,1) = "4" then
resultado:=resultado+"CATORCE ";
if Left(decenas,1)="1" and Left(unidades,1) = "5" then
resultado:=resultado+"QUINCE ";
if Left(decenas,1)="1" and Left(unidades,1) = "6" then
resultado:=resultado+"DIECISEIS ";
if Left(decenas,1)="1" and Left(unidades,1) = "7" then
resultado:=resultado+"DIECISIETE ";
if Left(decenas,1)="1" and Left(unidades,1) = "8" then
resultado:=resultado+"DIECIOCHO ";
if Left(decenas,1)="1" and Left(unidades,1) = "9" then
resultado:=resultado+"DIECINUEVE ";
if Left(decenas,1) <> "1" and Left(decenas,1) <> "2" and Left(decenas,1) <> "0" and Left(unidades,1) <> "0" then
resultado:=resultado+"Y ";
if Left(Unidades,1)="9" and Left(Decenas,1)<>"1" then
resultado:=resultado+"NUEVE ";
if Left(Unidades,1)="8" and Left(Decenas,1)<>"1" then
resultado:=resultado+"OCHO ";
if Left(Unidades,1)="7" and Left(Decenas,1)<>"1" then
resultado:=resultado+"SIETE ";
if Left(Unidades,1)="6" and Left(Decenas,1)<>"1" then
resultado:=resultado+"SEIS ";
if Left(Unidades,1)="5" and Left(Decenas,1)<>"1" then
resultado:=resultado+"CINCO ";
if Left(Unidades,1)="4" and Left(Decenas,1)<>"1" then
resultado:=resultado+"CUATRO ";
if Left(Unidades,1)="3" and Left(Decenas,1)<>"1" then
resultado:=resultado+"TRES ";
if Left(Unidades,1)="2" and Left(Decenas,1)<>"1" then
resultado:=resultado+"DOS ";
if Left(Unidades,1)="1" and Left(Decenas,1)<>"1" then
resultado:=resultado+"UNO ";
if Left(decimales,1) <> "0" OR Right(decimales,1) <> "0" and abs(Sum ({V.MONTO_TOTAL}, {V.RECURSO})) >= 1 then
resultado:=resultado+"CON ";
if Left(decimales,1)="9" then
resultado:=resultado+"NOVENTA ";
if Left(decimales,1)="8" then
resultado:=resultado+"OCHENTA ";
if Left(decimales,1)="7" then
resultado:=resultado+"SETENTA ";
if Left(decimales,1)="6" then
resultado:=resultado+"SESENTA ";
if Left(decimales,1)="5" then
resultado:=resultado+"CINCUENTA ";
if Left(decimales,1)="4" then
resultado:=resultado+"CUARENTA ";
if Left(decimales,1)="3" then
resultado:=resultado+"TREINTA ";
if Left(decimales,1)="2" and Right(decimales,1) = "0" then
resultado:=resultado+"VEINTE ";
if Left(decimales,1)="2" and Right(decimales,1) <> "0" then
resultado:=resultado+"VEINTI";
if Left(decimales,1)="1" and Right(decimales,1) = "0" then
resultado:=resultado+"DIEZ ";
if Left(decimales,1)="1" and Right(decimales,1) = "1" then
resultado:=resultado+"ONCE ";
if Left(decimales,1)="1" and Right(decimales,2) = "2" then
resultado:=resultado+"DOCE ";
if Left(decimales,1)="1" and Right(decimales,1) = "3" then
resultado:=resultado+"TRECE ";
if Left(decimales,1)="1" and Right(decimales,1) = "4" then
resultado:=resultado+"CATORCE ";
if Left(decimales,1)="1" and Right(decimales,1) = "5" then
resultado:=resultado+"QUINCE ";
if Left(decimales,1)="1" and Right(decimales,1) = "6" then
resultado:=resultado+"DIECISEIS ";
if Left(decimales,1)="1" and Right(decimales,1) = "7" then
resultado:=resultado+"DIECISIETE ";
if Left(decimales,1)="1" and Right(decimales,1) = "8" then
resultado:=resultado+"DIECIOCHO ";
if Left(decimales,1)="1" and Right(decimales,1) = "9" then
resultado:=resultado+"DIECINUEVE ";
if Left(decimales,1) <> "1" and Left(decimales,1) <> "2" and Left(decimales,1) <> "0" and Right(decimales,1) <> "0" then
resultado:=resultado+"Y ";
if Right(decimales,1)="9" and Left(Decimales,1)<>"1" then
resultado:=resultado+"NUEVE ";
if Right(decimales,1)="8" and Left(Decimales,1)<>"1" then
resultado:=resultado+"OCHO ";
if Right(decimales,1)="7" and Left(Decimales,1)<>"1" then
resultado:=resultado+"SIETE ";
if Right(decimales,1)="6" and Left(Decimales,1)<>"1" then
resultado:=resultado+"SEIS ";
if Right(decimales,1)="5" and Left(Decimales,1)<>"1" then
resultado:=resultado+"CINCO ";
if Right(decimales,1)="4" and Left(Decimales,1)<>"1" then
resultado:=resultado+"CUATRO ";
if Right(decimales,1)="3" and Left(Decimales,1)<>"1" then
resultado:=resultado+"TRES ";
if Right(decimales,1)="2" and Left(Decimales,1)<>"1" then
resultado:=resultado+"DOS ";
if Right(decimales,1)="1" and Left(Decimales,1)<>"1" then
resultado:=resultado+"UN ";
if abs(Sum ({V.MONTO_TOTAL}, {V.RECURSO})) < 100000 and abs(Sum ({V.MONTO_TOTAL}, {V.RECURSO})) > 1000 and valor <> "N" then
resultado:=resultado+"MIL ";
if Left(decimales,1) <> "0" OR Right(decimales,1) <> "0" then
resultado:=resultado+"CENTAVOS";
'SON PESOS ' + Resultado
//fin segunda parte