API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 30th, 2018
197
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 4.64 KB | None | 0 0
raw download clone embed print report
  1. *--------------------------------------------------------------------------
  2. * FUNCTION Num2Let(tnNumero)
  3. *--------------------------------------------------------------------------
  4. * Devuelve un número en letras con centavos
  5. * USO: ? Num2Let(15.11) -> QUINCE CON ONCE CENTAVOS
  6. * RETORNA: Caracter
  7. * AUTOR: LMG
  8. *--------------------------------------------------------------------------
  9. Function Num2Let(tnNumero)
  10. Local lnEntero, lnFraccion
  11. *-- Elegir si se REDONDEA o TRUNCA
  12. * tnNumero = ROUND(tnNumero, 2)  && Redondeo a 2 decimales
  13. tnNumero = Int(tnNumero*100)/100 && Trunco a dos decimales
  14. lnEntero = Int(tnNumero)
  15. lnFraccion = Int((tnNumero - lnEntero) * 100)
  16. Return N2L(lnEntero, 0) + 'CON ' + ;
  17.     N2L(lnFraccion, 1) + 'CENTAVOS.'
  18. Endfunc
  19.  
  20. *--------------------------------------------------------------------------
  21. * FUNCTION N2L(tnNro, tnFlag)
  22. *--------------------------------------------------------------------------
  23. * Devuelve un número entero en letras
  24. * Usada por Let2Num (deben estar ambas)
  25. * USO: ? N2L(32) -> TREINTA Y DOS
  26. * RETORNA: Caracter
  27. * AUTOR: LMG
  28. *--------------------------------------------------------------------------
  29. Function N2L(tnNro, tnFlag)
  30. If Empty(tnFlag)
  31.     tnFlag = 0
  32. Endif
  33. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  34.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  35. lnEntero = Int(tnNro)
  36. lcRetorno = ''
  37. lnTerna = 1
  38. Do While lnEntero > 0
  39.     lcCadena = ''
  40.     lnUnidades = Mod(lnEntero, 10)
  41.     lnEntero = Int(lnEntero / 10)
  42.     lnDecenas = Mod(lnEntero, 10)
  43.     lnEntero = Int(lnEntero / 10)
  44.     lnCentenas = Mod(lnEntero, 10)
  45.     lnEntero = Int(lnEntero / 10)
  46.  
  47. *--- Analizo la terna
  48.     Do Case
  49.     Case lnTerna = 1
  50.         lcMiles = ''
  51.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  52.         lcMiles = 'MIL '
  53.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  54.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  55.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  56.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  57.         lcMiles = 'MIL MILLONES '
  58.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  59.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  60.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  61.     Case lnTerna > 5
  62.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  63.         Exit
  64.     Endcase
  65.  
  66. *--- Analizo las unidades
  67.     Do Case
  68.     Case lnUnidades = 1
  69.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  70.     Case lnUnidades = 2
  71.         lcCadena = 'DOS '
  72.     Case lnUnidades = 3
  73.         lcCadena = 'TRES '
  74.     Case lnUnidades = 4
  75.         lcCadena = 'CUATRO '
  76.     Case lnUnidades = 5
  77.         lcCadena = 'CINCO '
  78.     Case lnUnidades = 6
  79.         lcCadena = 'SEIS '
  80.     Case lnUnidades = 7
  81.         lcCadena = 'SIETE '
  82.     Case lnUnidades = 8
  83.         lcCadena = 'OCHO '
  84.     Case lnUnidades = 9
  85.         lcCadena = 'NUEVE '
  86.     Endcase
  87.  
  88. *--- Analizo las decenas
  89.     Do Case
  90.     Case lnDecenas = 1
  91.         Do Case
  92.         Case lnUnidades = 0
  93.             lcCadena = 'DIEZ '
  94.         Case lnUnidades = 1
  95.             lcCadena = 'ONCE '
  96.         Case lnUnidades = 2
  97.             lcCadena = 'DOCE '
  98.         Case lnUnidades = 3
  99.             lcCadena = 'TRECE '
  100.         Case lnUnidades = 4
  101.             lcCadena = 'CATORCE '
  102.         Case lnUnidades = 5
  103.             lcCadena = 'QUINCE '
  104.         Other
  105.             lcCadena = 'DIECI' + lcCadena
  106.         Endcase
  107.     Case lnDecenas = 2
  108.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  109.     Case lnDecenas = 3
  110.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  111.     Case lnDecenas = 4
  112.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  113.     Case lnDecenas = 5
  114.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  115.     Case lnDecenas = 6
  116.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  117.     Case lnDecenas = 7
  118.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  119.     Case lnDecenas = 8
  120.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  121.     Case lnDecenas = 9
  122.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  123.     Endcase
  124.  
  125. *--- Analizo las centenas
  126.     Do Case
  127.     Case lnCentenas = 1
  128.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  129.             'CIEN ', 'CIENTO ') + lcCadena
  130.     Case lnCentenas = 2
  131.         lcCadena = 'DOSCIENTOS ' + lcCadena
  132.     Case lnCentenas = 3
  133.         lcCadena = 'TRESCIENTOS ' + lcCadena
  134.     Case lnCentenas = 4
  135.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  136.     Case lnCentenas = 5
  137.         lcCadena = 'QUINIENTOS ' + lcCadena
  138.     Case lnCentenas = 6
  139.         lcCadena = 'SEISCIENTOS ' + lcCadena
  140.     Case lnCentenas = 7
  141.         lcCadena = 'SETECIENTOS ' + lcCadena
  142.     Case lnCentenas = 8
  143.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  144.     Case lnCentenas = 9
  145.         lcCadena = 'NOVECIENTOS ' + lcCadena
  146.     Endcase
  147.  
  148. *--- Armo el retorno terna a terna
  149.     lcRetorno = lcCadena + lcMiles + lcRetorno
  150.     lnTerna = lnTerna + 1
  151. Enddo
  152. If lnTerna = 1
  153.     lcRetorno = 'CERO '
  154. Endif
  155. Return lcRetorno
  156. Endfu
  157. * FUNCTION Num2Let(tnNumero)
  158. *--------------------------------------------------------------------------
  159. * Devuelve un número en letras con centavos
  160. * USO: ? Num2Let(15.11) -> QUINCE CON ONCE CENTAVOS
  161. * RETORNA: Caracter
  162. * AUTOR: LMG
  163. *--------------------------------------------------------------------------
  164. Function Num2Let(tnNumero)
  165. Local lnEntero, lnFraccion
  166. *-- Elegir si se REDONDEA o TRUNCA
  167. * tnNumero = ROUND(tnNumero, 2)  && Redondeo a 2 decimales
  168. tnNumero = Int(tnNumero*100)/100 && Trunco a dos decimales
  169. lnEntero = Int(tnNumero)
  170. lnFraccion = Int((tnNumero - lnEntero) * 100)
  171. Return N2L(lnEntero, 0) + 'CON ' + ;
  172.     N2L(lnFraccion, 1) + 'CENTAVOS.'
  173. Endfunc
  174.  
  175. *--------------------------------------------------------------------------
  176. * FUNCTION N2L(tnNro, tnFlag)
  177. *--------------------------------------------------------------------------
  178. * Devuelve un número entero en letras
  179. * Usada por Let2Num (deben estar ambas)
  180. * USO: ? N2L(32) -> TREINTA Y DOS
  181. * RETORNA: Caracter
  182. * AUTOR: LMG
  183. *--------------------------------------------------------------------------
  184. Function N2L(tnNro, tnFlag)
  185. If Empty(tnFlag)
  186.     tnFlag = 0
  187. Endif
  188. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  189.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  190. lnEntero = Int(tnNro)
  191. lcRetorno = ''
  192. lnTerna = 1
  193. Do While lnEntero > 0
  194.     lcCadena = ''
  195.     lnUnidades = Mod(lnEntero, 10)
  196.     lnEntero = Int(lnEntero / 10)
  197.     lnDecenas = Mod(lnEntero, 10)
  198.     lnEntero = Int(lnEntero / 10)
  199.     lnCentenas = Mod(lnEntero, 10)
  200.     lnEntero = Int(lnEntero / 10)
  201.  
  202. *--- Analizo la terna
  203.     Do Case
  204.     Case lnTerna = 1
  205.         lcMiles = ''
  206.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  207.         lcMiles = 'MIL '
  208.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  209.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  210.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  211.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  212.         lcMiles = 'MIL MILLONES '
  213.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  214.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  215.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  216.     Case lnTerna > 5
  217.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  218.         Exit
  219.     Endcase
  220.  
  221. *--- Analizo las unidades
  222.     Do Case
  223.     Case lnUnidades = 1
  224.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  225.     Case lnUnidades = 2
  226.         lcCadena = 'DOS '
  227.     Case lnUnidades = 3
  228.         lcCadena = 'TRES '
  229.     Case lnUnidades = 4
  230.         lcCadena = 'CUATRO '
  231.     Case lnUnidades = 5
  232.         lcCadena = 'CINCO '
  233.     Case lnUnidades = 6
  234.         lcCadena = 'SEIS '
  235.     Case lnUnidades = 7
  236.         lcCadena = 'SIETE '
  237.     Case lnUnidades = 8
  238.         lcCadena = 'OCHO '
  239.     Case lnUnidades = 9
  240.         lcCadena = 'NUEVE '
  241.     Endcase
  242.  
  243. *--- Analizo las decenas
  244.     Do Case
  245.     Case lnDecenas = 1
  246.         Do Case
  247.         Case lnUnidades = 0
  248.             lcCadena = 'DIEZ '
  249.         Case lnUnidades = 1
  250.             lcCadena = 'ONCE '
  251.         Case lnUnidades = 2
  252.             lcCadena = 'DOCE '
  253.         Case lnUnidades = 3
  254.             lcCadena = 'TRECE '
  255.         Case lnUnidades = 4
  256.             lcCadena = 'CATORCE '
  257.         Case lnUnidades = 5
  258.             lcCadena = 'QUINCE '
  259.         Other
  260.             lcCadena = 'DIECI' + lcCadena
  261.         Endcase
  262.     Case lnDecenas = 2
  263.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  264.     Case lnDecenas = 3
  265.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  266.     Case lnDecenas = 4
  267.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  268.     Case lnDecenas = 5
  269.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  270.     Case lnDecenas = 6
  271.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  272.     Case lnDecenas = 7
  273.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  274.     Case lnDecenas = 8
  275.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  276.     Case lnDecenas = 9
  277.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  278.     Endcase
  279.  
  280. *--- Analizo las centenas
  281.     Do Case
  282.     Case lnCentenas = 1
  283.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  284.             'CIEN ', 'CIENTO ') + lcCadena
  285.     Case lnCentenas = 2
  286.         lcCadena = 'DOSCIENTOS ' + lcCadena
  287.     Case lnCentenas = 3
  288.         lcCadena = 'TRESCIENTOS ' + lcCadena
  289.     Case lnCentenas = 4
  290.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  291.     Case lnCentenas = 5
  292.         lcCadena = 'QUINIENTOS ' + lcCadena
  293.     Case lnCentenas = 6
  294.         lcCadena = 'SEISCIENTOS ' + lcCadena
  295.     Case lnCentenas = 7
  296.         lcCadena = 'SETECIENTOS ' + lcCadena
  297.     Case lnCentenas = 8
  298.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  299.     Case lnCentenas = 9
  300.         lcCadena = 'NOVECIENTOS ' + lcCadena
  301.     Endcase
  302.  
  303. *--- Armo el retorno terna a terna
  304.     lcRetorno = lcCadena + lcMiles + lcRetorno
  305.     lnTerna = lnTerna + 1
  306. Enddo
  307. If lnTerna = 1
  308.     lcRetorno = 'CERO '
  309. Endif
  310. Return lcRetorno
  311. Endfu
  312. *--------------------------------------------------------------------------
  313. * Devuelve un número en letras con centavos
  314. * USO: ? Num2Let(15.11) -> QUINCE CON ONCE CENTAVOS
  315. * RETORNA: Caracter
  316. * AUTOR: LMG
  317. *--------------------------------------------------------------------------
  318. Function Num2Let(tnNumero)
  319. Local lnEntero, lnFraccion
  320. *-- Elegir si se REDONDEA o TRUNCA
  321. * tnNumero = ROUND(tnNumero, 2)  && Redondeo a 2 decimales
  322. tnNumero = Int(tnNumero*100)/100 && Trunco a dos decimales
  323. lnEntero = Int(tnNumero)
  324. lnFraccion = Int((tnNumero - lnEntero) * 100)
  325. Return N2L(lnEntero, 0) + 'CON ' + ;
  326.     N2L(lnFraccion, 1) + 'CENTAVOS.'
  327. Endfunc
  328.  
  329. *--------------------------------------------------------------------------
  330. * FUNCTION N2L(tnNro, tnFlag)
  331. *--------------------------------------------------------------------------
  332. * Devuelve un número entero en letras
  333. * Usada por Let2Num (deben estar ambas)
  334. * USO: ? N2L(32) -> TREINTA Y DOS
  335. * RETORNA: Caracter
  336. * AUTOR: LMG
  337. *--------------------------------------------------------------------------
  338. Function N2L(tnNro, tnFlag)
  339. If Empty(tnFlag)
  340.     tnFlag = 0
  341. Endif
  342. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  343.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  344. lnEntero = Int(tnNro)
  345. lcRetorno = ''
  346. lnTerna = 1
  347. Do While lnEntero > 0
  348.     lcCadena = ''
  349.     lnUnidades = Mod(lnEntero, 10)
  350.     lnEntero = Int(lnEntero / 10)
  351.     lnDecenas = Mod(lnEntero, 10)
  352.     lnEntero = Int(lnEntero / 10)
  353.     lnCentenas = Mod(lnEntero, 10)
  354.     lnEntero = Int(lnEntero / 10)
  355.  
  356. *--- Analizo la terna
  357.     Do Case
  358.     Case lnTerna = 1
  359.         lcMiles = ''
  360.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  361.         lcMiles = 'MIL '
  362.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  363.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  364.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  365.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  366.         lcMiles = 'MIL MILLONES '
  367.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  368.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  369.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  370.     Case lnTerna > 5
  371.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  372.         Exit
  373.     Endcase
  374.  
  375. *--- Analizo las unidades
  376.     Do Case
  377.     Case lnUnidades = 1
  378.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  379.     Case lnUnidades = 2
  380.         lcCadena = 'DOS '
  381.     Case lnUnidades = 3
  382.         lcCadena = 'TRES '
  383.     Case lnUnidades = 4
  384.         lcCadena = 'CUATRO '
  385.     Case lnUnidades = 5
  386.         lcCadena = 'CINCO '
  387.     Case lnUnidades = 6
  388.         lcCadena = 'SEIS '
  389.     Case lnUnidades = 7
  390.         lcCadena = 'SIETE '
  391.     Case lnUnidades = 8
  392.         lcCadena = 'OCHO '
  393.     Case lnUnidades = 9
  394.         lcCadena = 'NUEVE '
  395.     Endcase
  396.  
  397. *--- Analizo las decenas
  398.     Do Case
  399.     Case lnDecenas = 1
  400.         Do Case
  401.         Case lnUnidades = 0
  402.             lcCadena = 'DIEZ '
  403.         Case lnUnidades = 1
  404.             lcCadena = 'ONCE '
  405.         Case lnUnidades = 2
  406.             lcCadena = 'DOCE '
  407.         Case lnUnidades = 3
  408.             lcCadena = 'TRECE '
  409.         Case lnUnidades = 4
  410.             lcCadena = 'CATORCE '
  411.         Case lnUnidades = 5
  412.             lcCadena = 'QUINCE '
  413.         Other
  414.             lcCadena = 'DIECI' + lcCadena
  415.         Endcase
  416.     Case lnDecenas = 2
  417.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  418.     Case lnDecenas = 3
  419.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  420.     Case lnDecenas = 4
  421.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  422.     Case lnDecenas = 5
  423.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  424.     Case lnDecenas = 6
  425.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  426.     Case lnDecenas = 7
  427.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  428.     Case lnDecenas = 8
  429.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  430.     Case lnDecenas = 9
  431.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  432.     Endcase
  433.  
  434. *--- Analizo las centenas
  435.     Do Case
  436.     Case lnCentenas = 1
  437.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  438.             'CIEN ', 'CIENTO ') + lcCadena
  439.     Case lnCentenas = 2
  440.         lcCadena = 'DOSCIENTOS ' + lcCadena
  441.     Case lnCentenas = 3
  442.         lcCadena = 'TRESCIENTOS ' + lcCadena
  443.     Case lnCentenas = 4
  444.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  445.     Case lnCentenas = 5
  446.         lcCadena = 'QUINIENTOS ' + lcCadena
  447.     Case lnCentenas = 6
  448.         lcCadena = 'SEISCIENTOS ' + lcCadena
  449.     Case lnCentenas = 7
  450.         lcCadena = 'SETECIENTOS ' + lcCadena
  451.     Case lnCentenas = 8
  452.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  453.     Case lnCentenas = 9
  454.         lcCadena = 'NOVECIENTOS ' + lcCadena
  455.     Endcase
  456.  
  457. *--- Armo el retorno terna a terna
  458.     lcRetorno = lcCadena + lcMiles + lcRetorno
  459.     lnTerna = lnTerna + 1
  460. Enddo
  461. If lnTerna = 1
  462.     lcRetorno = 'CERO '
  463. Endif
  464. Return lcRetorno
  465. Endfu
  466. * Devuelve un número en letras con centavos
  467. * USO: ? Num2Let(15.11) -> QUINCE CON ONCE CENTAVOS
  468. * RETORNA: Caracter
  469. * AUTOR: LMG
  470. *--------------------------------------------------------------------------
  471. Function Num2Let(tnNumero)
  472. Local lnEntero, lnFraccion
  473. *-- Elegir si se REDONDEA o TRUNCA
  474. * tnNumero = ROUND(tnNumero, 2)  && Redondeo a 2 decimales
  475. tnNumero = Int(tnNumero*100)/100 && Trunco a dos decimales
  476. lnEntero = Int(tnNumero)
  477. lnFraccion = Int((tnNumero - lnEntero) * 100)
  478. Return N2L(lnEntero, 0) + 'CON ' + ;
  479.     N2L(lnFraccion, 1) + 'CENTAVOS.'
  480. Endfunc
  481.  
  482. *--------------------------------------------------------------------------
  483. * FUNCTION N2L(tnNro, tnFlag)
  484. *--------------------------------------------------------------------------
  485. * Devuelve un número entero en letras
  486. * Usada por Let2Num (deben estar ambas)
  487. * USO: ? N2L(32) -> TREINTA Y DOS
  488. * RETORNA: Caracter
  489. * AUTOR: LMG
  490. *--------------------------------------------------------------------------
  491. Function N2L(tnNro, tnFlag)
  492. If Empty(tnFlag)
  493.     tnFlag = 0
  494. Endif
  495. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  496.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  497. lnEntero = Int(tnNro)
  498. lcRetorno = ''
  499. lnTerna = 1
  500. Do While lnEntero > 0
  501.     lcCadena = ''
  502.     lnUnidades = Mod(lnEntero, 10)
  503.     lnEntero = Int(lnEntero / 10)
  504.     lnDecenas = Mod(lnEntero, 10)
  505.     lnEntero = Int(lnEntero / 10)
  506.     lnCentenas = Mod(lnEntero, 10)
  507.     lnEntero = Int(lnEntero / 10)
  508.  
  509. *--- Analizo la terna
  510.     Do Case
  511.     Case lnTerna = 1
  512.         lcMiles = ''
  513.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  514.         lcMiles = 'MIL '
  515.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  516.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  517.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  518.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  519.         lcMiles = 'MIL MILLONES '
  520.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  521.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  522.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  523.     Case lnTerna > 5
  524.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  525.         Exit
  526.     Endcase
  527.  
  528. *--- Analizo las unidades
  529.     Do Case
  530.     Case lnUnidades = 1
  531.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  532.     Case lnUnidades = 2
  533.         lcCadena = 'DOS '
  534.     Case lnUnidades = 3
  535.         lcCadena = 'TRES '
  536.     Case lnUnidades = 4
  537.         lcCadena = 'CUATRO '
  538.     Case lnUnidades = 5
  539.         lcCadena = 'CINCO '
  540.     Case lnUnidades = 6
  541.         lcCadena = 'SEIS '
  542.     Case lnUnidades = 7
  543.         lcCadena = 'SIETE '
  544.     Case lnUnidades = 8
  545.         lcCadena = 'OCHO '
  546.     Case lnUnidades = 9
  547.         lcCadena = 'NUEVE '
  548.     Endcase
  549.  
  550. *--- Analizo las decenas
  551.     Do Case
  552.     Case lnDecenas = 1
  553.         Do Case
  554.         Case lnUnidades = 0
  555.             lcCadena = 'DIEZ '
  556.         Case lnUnidades = 1
  557.             lcCadena = 'ONCE '
  558.         Case lnUnidades = 2
  559.             lcCadena = 'DOCE '
  560.         Case lnUnidades = 3
  561.             lcCadena = 'TRECE '
  562.         Case lnUnidades = 4
  563.             lcCadena = 'CATORCE '
  564.         Case lnUnidades = 5
  565.             lcCadena = 'QUINCE '
  566.         Other
  567.             lcCadena = 'DIECI' + lcCadena
  568.         Endcase
  569.     Case lnDecenas = 2
  570.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  571.     Case lnDecenas = 3
  572.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  573.     Case lnDecenas = 4
  574.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  575.     Case lnDecenas = 5
  576.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  577.     Case lnDecenas = 6
  578.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  579.     Case lnDecenas = 7
  580.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  581.     Case lnDecenas = 8
  582.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  583.     Case lnDecenas = 9
  584.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  585.     Endcase
  586.  
  587. *--- Analizo las centenas
  588.     Do Case
  589.     Case lnCentenas = 1
  590.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  591.             'CIEN ', 'CIENTO ') + lcCadena
  592.     Case lnCentenas = 2
  593.         lcCadena = 'DOSCIENTOS ' + lcCadena
  594.     Case lnCentenas = 3
  595.         lcCadena = 'TRESCIENTOS ' + lcCadena
  596.     Case lnCentenas = 4
  597.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  598.     Case lnCentenas = 5
  599.         lcCadena = 'QUINIENTOS ' + lcCadena
  600.     Case lnCentenas = 6
  601.         lcCadena = 'SEISCIENTOS ' + lcCadena
  602.     Case lnCentenas = 7
  603.         lcCadena = 'SETECIENTOS ' + lcCadena
  604.     Case lnCentenas = 8
  605.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  606.     Case lnCentenas = 9
  607.         lcCadena = 'NOVECIENTOS ' + lcCadena
  608.     Endcase
  609.  
  610. *--- Armo el retorno terna a terna
  611.     lcRetorno = lcCadena + lcMiles + lcRetorno
  612.     lnTerna = lnTerna + 1
  613. Enddo
  614. If lnTerna = 1
  615.     lcRetorno = 'CERO '
  616. Endif
  617. Return lcRetorno
  618. Endfu
  619. * USO: ? Num2Let(15.11) -> QUINCE CON ONCE CENTAVOS
  620. * RETORNA: Caracter
  621. * AUTOR: LMG
  622. *--------------------------------------------------------------------------
  623. Function Num2Let(tnNumero)
  624. Local lnEntero, lnFraccion
  625. *-- Elegir si se REDONDEA o TRUNCA
  626. * tnNumero = ROUND(tnNumero, 2)  && Redondeo a 2 decimales
  627. tnNumero = Int(tnNumero*100)/100 && Trunco a dos decimales
  628. lnEntero = Int(tnNumero)
  629. lnFraccion = Int((tnNumero - lnEntero) * 100)
  630. Return N2L(lnEntero, 0) + 'CON ' + ;
  631.     N2L(lnFraccion, 1) + 'CENTAVOS.'
  632. Endfunc
  633.  
  634. *--------------------------------------------------------------------------
  635. * FUNCTION N2L(tnNro, tnFlag)
  636. *--------------------------------------------------------------------------
  637. * Devuelve un número entero en letras
  638. * Usada por Let2Num (deben estar ambas)
  639. * USO: ? N2L(32) -> TREINTA Y DOS
  640. * RETORNA: Caracter
  641. * AUTOR: LMG
  642. *--------------------------------------------------------------------------
  643. Function N2L(tnNro, tnFlag)
  644. If Empty(tnFlag)
  645.     tnFlag = 0
  646. Endif
  647. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  648.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  649. lnEntero = Int(tnNro)
  650. lcRetorno = ''
  651. lnTerna = 1
  652. Do While lnEntero > 0
  653.     lcCadena = ''
  654.     lnUnidades = Mod(lnEntero, 10)
  655.     lnEntero = Int(lnEntero / 10)
  656.     lnDecenas = Mod(lnEntero, 10)
  657.     lnEntero = Int(lnEntero / 10)
  658.     lnCentenas = Mod(lnEntero, 10)
  659.     lnEntero = Int(lnEntero / 10)
  660.  
  661. *--- Analizo la terna
  662.     Do Case
  663.     Case lnTerna = 1
  664.         lcMiles = ''
  665.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  666.         lcMiles = 'MIL '
  667.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  668.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  669.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  670.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  671.         lcMiles = 'MIL MILLONES '
  672.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  673.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  674.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  675.     Case lnTerna > 5
  676.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  677.         Exit
  678.     Endcase
  679.  
  680. *--- Analizo las unidades
  681.     Do Case
  682.     Case lnUnidades = 1
  683.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  684.     Case lnUnidades = 2
  685.         lcCadena = 'DOS '
  686.     Case lnUnidades = 3
  687.         lcCadena = 'TRES '
  688.     Case lnUnidades = 4
  689.         lcCadena = 'CUATRO '
  690.     Case lnUnidades = 5
  691.         lcCadena = 'CINCO '
  692.     Case lnUnidades = 6
  693.         lcCadena = 'SEIS '
  694.     Case lnUnidades = 7
  695.         lcCadena = 'SIETE '
  696.     Case lnUnidades = 8
  697.         lcCadena = 'OCHO '
  698.     Case lnUnidades = 9
  699.         lcCadena = 'NUEVE '
  700.     Endcase
  701.  
  702. *--- Analizo las decenas
  703.     Do Case
  704.     Case lnDecenas = 1
  705.         Do Case
  706.         Case lnUnidades = 0
  707.             lcCadena = 'DIEZ '
  708.         Case lnUnidades = 1
  709.             lcCadena = 'ONCE '
  710.         Case lnUnidades = 2
  711.             lcCadena = 'DOCE '
  712.         Case lnUnidades = 3
  713.             lcCadena = 'TRECE '
  714.         Case lnUnidades = 4
  715.             lcCadena = 'CATORCE '
  716.         Case lnUnidades = 5
  717.             lcCadena = 'QUINCE '
  718.         Other
  719.             lcCadena = 'DIECI' + lcCadena
  720.         Endcase
  721.     Case lnDecenas = 2
  722.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  723.     Case lnDecenas = 3
  724.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  725.     Case lnDecenas = 4
  726.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  727.     Case lnDecenas = 5
  728.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  729.     Case lnDecenas = 6
  730.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  731.     Case lnDecenas = 7
  732.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  733.     Case lnDecenas = 8
  734.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  735.     Case lnDecenas = 9
  736.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  737.     Endcase
  738.  
  739. *--- Analizo las centenas
  740.     Do Case
  741.     Case lnCentenas = 1
  742.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  743.             'CIEN ', 'CIENTO ') + lcCadena
  744.     Case lnCentenas = 2
  745.         lcCadena = 'DOSCIENTOS ' + lcCadena
  746.     Case lnCentenas = 3
  747.         lcCadena = 'TRESCIENTOS ' + lcCadena
  748.     Case lnCentenas = 4
  749.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  750.     Case lnCentenas = 5
  751.         lcCadena = 'QUINIENTOS ' + lcCadena
  752.     Case lnCentenas = 6
  753.         lcCadena = 'SEISCIENTOS ' + lcCadena
  754.     Case lnCentenas = 7
  755.         lcCadena = 'SETECIENTOS ' + lcCadena
  756.     Case lnCentenas = 8
  757.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  758.     Case lnCentenas = 9
  759.         lcCadena = 'NOVECIENTOS ' + lcCadena
  760.     Endcase
  761.  
  762. *--- Armo el retorno terna a terna
  763.     lcRetorno = lcCadena + lcMiles + lcRetorno
  764.     lnTerna = lnTerna + 1
  765. Enddo
  766. If lnTerna = 1
  767.     lcRetorno = 'CERO '
  768. Endif
  769. Return lcRetorno
  770. Endfu
  771. * RETORNA: Caracter
  772. * AUTOR: LMG
  773. *--------------------------------------------------------------------------
  774. Function Num2Let(tnNumero)
  775. Local lnEntero, lnFraccion
  776. *-- Elegir si se REDONDEA o TRUNCA
  777. * tnNumero = ROUND(tnNumero, 2)  && Redondeo a 2 decimales
  778. tnNumero = Int(tnNumero*100)/100 && Trunco a dos decimales
  779. lnEntero = Int(tnNumero)
  780. lnFraccion = Int((tnNumero - lnEntero) * 100)
  781. Return N2L(lnEntero, 0) + 'CON ' + ;
  782.     N2L(lnFraccion, 1) + 'CENTAVOS.'
  783. Endfunc
  784.  
  785. *--------------------------------------------------------------------------
  786. * FUNCTION N2L(tnNro, tnFlag)
  787. *--------------------------------------------------------------------------
  788. * Devuelve un número entero en letras
  789. * Usada por Let2Num (deben estar ambas)
  790. * USO: ? N2L(32) -> TREINTA Y DOS
  791. * RETORNA: Caracter
  792. * AUTOR: LMG
  793. *--------------------------------------------------------------------------
  794. Function N2L(tnNro, tnFlag)
  795. If Empty(tnFlag)
  796.     tnFlag = 0
  797. Endif
  798. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  799.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  800. lnEntero = Int(tnNro)
  801. lcRetorno = ''
  802. lnTerna = 1
  803. Do While lnEntero > 0
  804.     lcCadena = ''
  805.     lnUnidades = Mod(lnEntero, 10)
  806.     lnEntero = Int(lnEntero / 10)
  807.     lnDecenas = Mod(lnEntero, 10)
  808.     lnEntero = Int(lnEntero / 10)
  809.     lnCentenas = Mod(lnEntero, 10)
  810.     lnEntero = Int(lnEntero / 10)
  811.  
  812. *--- Analizo la terna
  813.     Do Case
  814.     Case lnTerna = 1
  815.         lcMiles = ''
  816.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  817.         lcMiles = 'MIL '
  818.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  819.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  820.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  821.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  822.         lcMiles = 'MIL MILLONES '
  823.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  824.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  825.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  826.     Case lnTerna > 5
  827.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  828.         Exit
  829.     Endcase
  830.  
  831. *--- Analizo las unidades
  832.     Do Case
  833.     Case lnUnidades = 1
  834.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  835.     Case lnUnidades = 2
  836.         lcCadena = 'DOS '
  837.     Case lnUnidades = 3
  838.         lcCadena = 'TRES '
  839.     Case lnUnidades = 4
  840.         lcCadena = 'CUATRO '
  841.     Case lnUnidades = 5
  842.         lcCadena = 'CINCO '
  843.     Case lnUnidades = 6
  844.         lcCadena = 'SEIS '
  845.     Case lnUnidades = 7
  846.         lcCadena = 'SIETE '
  847.     Case lnUnidades = 8
  848.         lcCadena = 'OCHO '
  849.     Case lnUnidades = 9
  850.         lcCadena = 'NUEVE '
  851.     Endcase
  852.  
  853. *--- Analizo las decenas
  854.     Do Case
  855.     Case lnDecenas = 1
  856.         Do Case
  857.         Case lnUnidades = 0
  858.             lcCadena = 'DIEZ '
  859.         Case lnUnidades = 1
  860.             lcCadena = 'ONCE '
  861.         Case lnUnidades = 2
  862.             lcCadena = 'DOCE '
  863.         Case lnUnidades = 3
  864.             lcCadena = 'TRECE '
  865.         Case lnUnidades = 4
  866.             lcCadena = 'CATORCE '
  867.         Case lnUnidades = 5
  868.             lcCadena = 'QUINCE '
  869.         Other
  870.             lcCadena = 'DIECI' + lcCadena
  871.         Endcase
  872.     Case lnDecenas = 2
  873.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  874.     Case lnDecenas = 3
  875.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  876.     Case lnDecenas = 4
  877.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  878.     Case lnDecenas = 5
  879.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  880.     Case lnDecenas = 6
  881.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  882.     Case lnDecenas = 7
  883.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  884.     Case lnDecenas = 8
  885.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  886.     Case lnDecenas = 9
  887.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  888.     Endcase
  889.  
  890. *--- Analizo las centenas
  891.     Do Case
  892.     Case lnCentenas = 1
  893.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  894.             'CIEN ', 'CIENTO ') + lcCadena
  895.     Case lnCentenas = 2
  896.         lcCadena = 'DOSCIENTOS ' + lcCadena
  897.     Case lnCentenas = 3
  898.         lcCadena = 'TRESCIENTOS ' + lcCadena
  899.     Case lnCentenas = 4
  900.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  901.     Case lnCentenas = 5
  902.         lcCadena = 'QUINIENTOS ' + lcCadena
  903.     Case lnCentenas = 6
  904.         lcCadena = 'SEISCIENTOS ' + lcCadena
  905.     Case lnCentenas = 7
  906.         lcCadena = 'SETECIENTOS ' + lcCadena
  907.     Case lnCentenas = 8
  908.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  909.     Case lnCentenas = 9
  910.         lcCadena = 'NOVECIENTOS ' + lcCadena
  911.     Endcase
  912.  
  913. *--- Armo el retorno terna a terna
  914.     lcRetorno = lcCadena + lcMiles + lcRetorno
  915.     lnTerna = lnTerna + 1
  916. Enddo
  917. If lnTerna = 1
  918.     lcRetorno = 'CERO '
  919. Endif
  920. Return lcRetorno
  921. Endfu
  922. * AUTOR: LMG
  923. *--------------------------------------------------------------------------
  924. Function Num2Let(tnNumero)
  925. Local lnEntero, lnFraccion
  926. *-- Elegir si se REDONDEA o TRUNCA
  927. * tnNumero = ROUND(tnNumero, 2)  && Redondeo a 2 decimales
  928. tnNumero = Int(tnNumero*100)/100 && Trunco a dos decimales
  929. lnEntero = Int(tnNumero)
  930. lnFraccion = Int((tnNumero - lnEntero) * 100)
  931. Return N2L(lnEntero, 0) + 'CON ' + ;
  932.     N2L(lnFraccion, 1) + 'CENTAVOS.'
  933. Endfunc
  934.  
  935. *--------------------------------------------------------------------------
  936. * FUNCTION N2L(tnNro, tnFlag)
  937. *--------------------------------------------------------------------------
  938. * Devuelve un número entero en letras
  939. * Usada por Let2Num (deben estar ambas)
  940. * USO: ? N2L(32) -> TREINTA Y DOS
  941. * RETORNA: Caracter
  942. * AUTOR: LMG
  943. *--------------------------------------------------------------------------
  944. Function N2L(tnNro, tnFlag)
  945. If Empty(tnFlag)
  946.     tnFlag = 0
  947. Endif
  948. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  949.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  950. lnEntero = Int(tnNro)
  951. lcRetorno = ''
  952. lnTerna = 1
  953. Do While lnEntero > 0
  954.     lcCadena = ''
  955.     lnUnidades = Mod(lnEntero, 10)
  956.     lnEntero = Int(lnEntero / 10)
  957.     lnDecenas = Mod(lnEntero, 10)
  958.     lnEntero = Int(lnEntero / 10)
  959.     lnCentenas = Mod(lnEntero, 10)
  960.     lnEntero = Int(lnEntero / 10)
  961.  
  962. *--- Analizo la terna
  963.     Do Case
  964.     Case lnTerna = 1
  965.         lcMiles = ''
  966.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  967.         lcMiles = 'MIL '
  968.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  969.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  970.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  971.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  972.         lcMiles = 'MIL MILLONES '
  973.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  974.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  975.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  976.     Case lnTerna > 5
  977.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  978.         Exit
  979.     Endcase
  980.  
  981. *--- Analizo las unidades
  982.     Do Case
  983.     Case lnUnidades = 1
  984.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  985.     Case lnUnidades = 2
  986.         lcCadena = 'DOS '
  987.     Case lnUnidades = 3
  988.         lcCadena = 'TRES '
  989.     Case lnUnidades = 4
  990.         lcCadena = 'CUATRO '
  991.     Case lnUnidades = 5
  992.         lcCadena = 'CINCO '
  993.     Case lnUnidades = 6
  994.         lcCadena = 'SEIS '
  995.     Case lnUnidades = 7
  996.         lcCadena = 'SIETE '
  997.     Case lnUnidades = 8
  998.         lcCadena = 'OCHO '
  999.     Case lnUnidades = 9
  1000.         lcCadena = 'NUEVE '
  1001.     Endcase
  1002.  
  1003. *--- Analizo las decenas
  1004.     Do Case
  1005.     Case lnDecenas = 1
  1006.         Do Case
  1007.         Case lnUnidades = 0
  1008.             lcCadena = 'DIEZ '
  1009.         Case lnUnidades = 1
  1010.             lcCadena = 'ONCE '
  1011.         Case lnUnidades = 2
  1012.             lcCadena = 'DOCE '
  1013.         Case lnUnidades = 3
  1014.             lcCadena = 'TRECE '
  1015.         Case lnUnidades = 4
  1016.             lcCadena = 'CATORCE '
  1017.         Case lnUnidades = 5
  1018.             lcCadena = 'QUINCE '
  1019.         Other
  1020.             lcCadena = 'DIECI' + lcCadena
  1021.         Endcase
  1022.     Case lnDecenas = 2
  1023.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  1024.     Case lnDecenas = 3
  1025.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1026.     Case lnDecenas = 4
  1027.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1028.     Case lnDecenas = 5
  1029.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1030.     Case lnDecenas = 6
  1031.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1032.     Case lnDecenas = 7
  1033.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1034.     Case lnDecenas = 8
  1035.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1036.     Case lnDecenas = 9
  1037.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1038.     Endcase
  1039.  
  1040. *--- Analizo las centenas
  1041.     Do Case
  1042.     Case lnCentenas = 1
  1043.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  1044.             'CIEN ', 'CIENTO ') + lcCadena
  1045.     Case lnCentenas = 2
  1046.         lcCadena = 'DOSCIENTOS ' + lcCadena
  1047.     Case lnCentenas = 3
  1048.         lcCadena = 'TRESCIENTOS ' + lcCadena
  1049.     Case lnCentenas = 4
  1050.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  1051.     Case lnCentenas = 5
  1052.         lcCadena = 'QUINIENTOS ' + lcCadena
  1053.     Case lnCentenas = 6
  1054.         lcCadena = 'SEISCIENTOS ' + lcCadena
  1055.     Case lnCentenas = 7
  1056.         lcCadena = 'SETECIENTOS ' + lcCadena
  1057.     Case lnCentenas = 8
  1058.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  1059.     Case lnCentenas = 9
  1060.         lcCadena = 'NOVECIENTOS ' + lcCadena
  1061.     Endcase
  1062.  
  1063. *--- Armo el retorno terna a terna
  1064.     lcRetorno = lcCadena + lcMiles + lcRetorno
  1065.     lnTerna = lnTerna + 1
  1066. Enddo
  1067. If lnTerna = 1
  1068.     lcRetorno = 'CERO '
  1069. Endif
  1070. Return lcRetorno
  1071. Endfu
  1072. *--------------------------------------------------------------------------
  1073. Function Num2Let(tnNumero)
  1074. Local lnEntero, lnFraccion
  1075. *-- Elegir si se REDONDEA o TRUNCA
  1076. * tnNumero = ROUND(tnNumero, 2)  && Redondeo a 2 decimales
  1077. tnNumero = Int(tnNumero*100)/100 && Trunco a dos decimales
  1078. lnEntero = Int(tnNumero)
  1079. lnFraccion = Int((tnNumero - lnEntero) * 100)
  1080. Return N2L(lnEntero, 0) + 'CON ' + ;
  1081.     N2L(lnFraccion, 1) + 'CENTAVOS.'
  1082. Endfunc
  1083.  
  1084. *--------------------------------------------------------------------------
  1085. * FUNCTION N2L(tnNro, tnFlag)
  1086. *--------------------------------------------------------------------------
  1087. * Devuelve un número entero en letras
  1088. * Usada por Let2Num (deben estar ambas)
  1089. * USO: ? N2L(32) -> TREINTA Y DOS
  1090. * RETORNA: Caracter
  1091. * AUTOR: LMG
  1092. *--------------------------------------------------------------------------
  1093. Function N2L(tnNro, tnFlag)
  1094. If Empty(tnFlag)
  1095.     tnFlag = 0
  1096. Endif
  1097. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  1098.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  1099. lnEntero = Int(tnNro)
  1100. lcRetorno = ''
  1101. lnTerna = 1
  1102. Do While lnEntero > 0
  1103.     lcCadena = ''
  1104.     lnUnidades = Mod(lnEntero, 10)
  1105.     lnEntero = Int(lnEntero / 10)
  1106.     lnDecenas = Mod(lnEntero, 10)
  1107.     lnEntero = Int(lnEntero / 10)
  1108.     lnCentenas = Mod(lnEntero, 10)
  1109.     lnEntero = Int(lnEntero / 10)
  1110.  
  1111. *--- Analizo la terna
  1112.     Do Case
  1113.     Case lnTerna = 1
  1114.         lcMiles = ''
  1115.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1116.         lcMiles = 'MIL '
  1117.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1118.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1119.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  1120.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1121.         lcMiles = 'MIL MILLONES '
  1122.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1123.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1124.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  1125.     Case lnTerna > 5
  1126.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  1127.         Exit
  1128.     Endcase
  1129.  
  1130. *--- Analizo las unidades
  1131.     Do Case
  1132.     Case lnUnidades = 1
  1133.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  1134.     Case lnUnidades = 2
  1135.         lcCadena = 'DOS '
  1136.     Case lnUnidades = 3
  1137.         lcCadena = 'TRES '
  1138.     Case lnUnidades = 4
  1139.         lcCadena = 'CUATRO '
  1140.     Case lnUnidades = 5
  1141.         lcCadena = 'CINCO '
  1142.     Case lnUnidades = 6
  1143.         lcCadena = 'SEIS '
  1144.     Case lnUnidades = 7
  1145.         lcCadena = 'SIETE '
  1146.     Case lnUnidades = 8
  1147.         lcCadena = 'OCHO '
  1148.     Case lnUnidades = 9
  1149.         lcCadena = 'NUEVE '
  1150.     Endcase
  1151.  
  1152. *--- Analizo las decenas
  1153.     Do Case
  1154.     Case lnDecenas = 1
  1155.         Do Case
  1156.         Case lnUnidades = 0
  1157.             lcCadena = 'DIEZ '
  1158.         Case lnUnidades = 1
  1159.             lcCadena = 'ONCE '
  1160.         Case lnUnidades = 2
  1161.             lcCadena = 'DOCE '
  1162.         Case lnUnidades = 3
  1163.             lcCadena = 'TRECE '
  1164.         Case lnUnidades = 4
  1165.             lcCadena = 'CATORCE '
  1166.         Case lnUnidades = 5
  1167.             lcCadena = 'QUINCE '
  1168.         Other
  1169.             lcCadena = 'DIECI' + lcCadena
  1170.         Endcase
  1171.     Case lnDecenas = 2
  1172.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  1173.     Case lnDecenas = 3
  1174.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1175.     Case lnDecenas = 4
  1176.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1177.     Case lnDecenas = 5
  1178.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1179.     Case lnDecenas = 6
  1180.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1181.     Case lnDecenas = 7
  1182.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1183.     Case lnDecenas = 8
  1184.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1185.     Case lnDecenas = 9
  1186.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1187.     Endcase
  1188.  
  1189. *--- Analizo las centenas
  1190.     Do Case
  1191.     Case lnCentenas = 1
  1192.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  1193.             'CIEN ', 'CIENTO ') + lcCadena
  1194.     Case lnCentenas = 2
  1195.         lcCadena = 'DOSCIENTOS ' + lcCadena
  1196.     Case lnCentenas = 3
  1197.         lcCadena = 'TRESCIENTOS ' + lcCadena
  1198.     Case lnCentenas = 4
  1199.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  1200.     Case lnCentenas = 5
  1201.         lcCadena = 'QUINIENTOS ' + lcCadena
  1202.     Case lnCentenas = 6
  1203.         lcCadena = 'SEISCIENTOS ' + lcCadena
  1204.     Case lnCentenas = 7
  1205.         lcCadena = 'SETECIENTOS ' + lcCadena
  1206.     Case lnCentenas = 8
  1207.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  1208.     Case lnCentenas = 9
  1209.         lcCadena = 'NOVECIENTOS ' + lcCadena
  1210.     Endcase
  1211.  
  1212. *--- Armo el retorno terna a terna
  1213.     lcRetorno = lcCadena + lcMiles + lcRetorno
  1214.     lnTerna = lnTerna + 1
  1215. Enddo
  1216. If lnTerna = 1
  1217.     lcRetorno = 'CERO '
  1218. Endif
  1219. Return lcRetorno
  1220. Endfu
  1221. *-- Elegir si se REDONDEA o TRUNCA
  1222. * tnNumero = ROUND(tnNumero, 2)  && Redondeo a 2 decimales
  1223. tnNumero = Int(tnNumero*100)/100 && Trunco a dos decimales
  1224. lnEntero = Int(tnNumero)
  1225. lnFraccion = Int((tnNumero - lnEntero) * 100)
  1226. Return N2L(lnEntero, 0) + 'CON ' + ;
  1227.     N2L(lnFraccion, 1) + 'CENTAVOS.'
  1228. Endfunc
  1229.  
  1230. *--------------------------------------------------------------------------
  1231. * FUNCTION N2L(tnNro, tnFlag)
  1232. *--------------------------------------------------------------------------
  1233. * Devuelve un número entero en letras
  1234. * Usada por Let2Num (deben estar ambas)
  1235. * USO: ? N2L(32) -> TREINTA Y DOS
  1236. * RETORNA: Caracter
  1237. * AUTOR: LMG
  1238. *--------------------------------------------------------------------------
  1239. Function N2L(tnNro, tnFlag)
  1240. If Empty(tnFlag)
  1241.     tnFlag = 0
  1242. Endif
  1243. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  1244.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  1245. lnEntero = Int(tnNro)
  1246. lcRetorno = ''
  1247. lnTerna = 1
  1248. Do While lnEntero > 0
  1249.     lcCadena = ''
  1250.     lnUnidades = Mod(lnEntero, 10)
  1251.     lnEntero = Int(lnEntero / 10)
  1252.     lnDecenas = Mod(lnEntero, 10)
  1253.     lnEntero = Int(lnEntero / 10)
  1254.     lnCentenas = Mod(lnEntero, 10)
  1255.     lnEntero = Int(lnEntero / 10)
  1256.  
  1257. *--- Analizo la terna
  1258.     Do Case
  1259.     Case lnTerna = 1
  1260.         lcMiles = ''
  1261.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1262.         lcMiles = 'MIL '
  1263.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1264.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1265.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  1266.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1267.         lcMiles = 'MIL MILLONES '
  1268.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1269.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1270.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  1271.     Case lnTerna > 5
  1272.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  1273.         Exit
  1274.     Endcase
  1275.  
  1276. *--- Analizo las unidades
  1277.     Do Case
  1278.     Case lnUnidades = 1
  1279.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  1280.     Case lnUnidades = 2
  1281.         lcCadena = 'DOS '
  1282.     Case lnUnidades = 3
  1283.         lcCadena = 'TRES '
  1284.     Case lnUnidades = 4
  1285.         lcCadena = 'CUATRO '
  1286.     Case lnUnidades = 5
  1287.         lcCadena = 'CINCO '
  1288.     Case lnUnidades = 6
  1289.         lcCadena = 'SEIS '
  1290.     Case lnUnidades = 7
  1291.         lcCadena = 'SIETE '
  1292.     Case lnUnidades = 8
  1293.         lcCadena = 'OCHO '
  1294.     Case lnUnidades = 9
  1295.         lcCadena = 'NUEVE '
  1296.     Endcase
  1297.  
  1298. *--- Analizo las decenas
  1299.     Do Case
  1300.     Case lnDecenas = 1
  1301.         Do Case
  1302.         Case lnUnidades = 0
  1303.             lcCadena = 'DIEZ '
  1304.         Case lnUnidades = 1
  1305.             lcCadena = 'ONCE '
  1306.         Case lnUnidades = 2
  1307.             lcCadena = 'DOCE '
  1308.         Case lnUnidades = 3
  1309.             lcCadena = 'TRECE '
  1310.         Case lnUnidades = 4
  1311.             lcCadena = 'CATORCE '
  1312.         Case lnUnidades = 5
  1313.             lcCadena = 'QUINCE '
  1314.         Other
  1315.             lcCadena = 'DIECI' + lcCadena
  1316.         Endcase
  1317.     Case lnDecenas = 2
  1318.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  1319.     Case lnDecenas = 3
  1320.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1321.     Case lnDecenas = 4
  1322.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1323.     Case lnDecenas = 5
  1324.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1325.     Case lnDecenas = 6
  1326.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1327.     Case lnDecenas = 7
  1328.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1329.     Case lnDecenas = 8
  1330.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1331.     Case lnDecenas = 9
  1332.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1333.     Endcase
  1334.  
  1335. *--- Analizo las centenas
  1336.     Do Case
  1337.     Case lnCentenas = 1
  1338.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  1339.             'CIEN ', 'CIENTO ') + lcCadena
  1340.     Case lnCentenas = 2
  1341.         lcCadena = 'DOSCIENTOS ' + lcCadena
  1342.     Case lnCentenas = 3
  1343.         lcCadena = 'TRESCIENTOS ' + lcCadena
  1344.     Case lnCentenas = 4
  1345.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  1346.     Case lnCentenas = 5
  1347.         lcCadena = 'QUINIENTOS ' + lcCadena
  1348.     Case lnCentenas = 6
  1349.         lcCadena = 'SEISCIENTOS ' + lcCadena
  1350.     Case lnCentenas = 7
  1351.         lcCadena = 'SETECIENTOS ' + lcCadena
  1352.     Case lnCentenas = 8
  1353.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  1354.     Case lnCentenas = 9
  1355.         lcCadena = 'NOVECIENTOS ' + lcCadena
  1356.     Endcase
  1357.  
  1358. *--- Armo el retorno terna a terna
  1359.     lcRetorno = lcCadena + lcMiles + lcRetorno
  1360.     lnTerna = lnTerna + 1
  1361. Enddo
  1362. If lnTerna = 1
  1363.     lcRetorno = 'CERO '
  1364. Endif
  1365. Return lcRetorno
  1366. Endfu
  1367. * tnNumero = ROUND(tnNumero, 2)  && Redondeo a 2 decimales
  1368. tnNumero = Int(tnNumero*100)/100 && Trunco a dos decimales
  1369. lnEntero = Int(tnNumero)
  1370. lnFraccion = Int((tnNumero - lnEntero) * 100)
  1371. Return N2L(lnEntero, 0) + 'CON ' + ;
  1372.     N2L(lnFraccion, 1) + 'CENTAVOS.'
  1373. Endfunc
  1375. *--------------------------------------------------------------------------
  1376. * FUNCTION N2L(tnNro, tnFlag)
  1377. *--------------------------------------------------------------------------
  1378. * Devuelve un número entero en letras
  1379. * Usada por Let2Num (deben estar ambas)
  1380. * USO: ? N2L(32) -> TREINTA Y DOS
  1381. * RETORNA: Caracter
  1382. * AUTOR: LMG
  1383. *--------------------------------------------------------------------------
  1384. Function N2L(tnNro, tnFlag)
  1385. If Empty(tnFlag)
  1386.     tnFlag = 0
  1387. Endif
  1388. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  1389.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  1390. lnEntero = Int(tnNro)
  1391. lcRetorno = ''
  1392. lnTerna = 1
  1393. Do While lnEntero > 0
  1394.     lcCadena = ''
  1395.     lnUnidades = Mod(lnEntero, 10)
  1396.     lnEntero = Int(lnEntero / 10)
  1397.     lnDecenas = Mod(lnEntero, 10)
  1398.     lnEntero = Int(lnEntero / 10)
  1399.     lnCentenas = Mod(lnEntero, 10)
  1400.     lnEntero = Int(lnEntero / 10)
  1401.  
  1402. *--- Analizo la terna
  1403.     Do Case
  1404.     Case lnTerna = 1
  1405.         lcMiles = ''
  1406.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1407.         lcMiles = 'MIL '
  1408.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1409.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1410.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  1411.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1412.         lcMiles = 'MIL MILLONES '
  1413.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1414.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1415.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  1416.     Case lnTerna > 5
  1417.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  1418.         Exit
  1419.     Endcase
  1420.  
  1421. *--- Analizo las unidades
  1422.     Do Case
  1423.     Case lnUnidades = 1
  1424.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  1425.     Case lnUnidades = 2
  1426.         lcCadena = 'DOS '
  1427.     Case lnUnidades = 3
  1428.         lcCadena = 'TRES '
  1429.     Case lnUnidades = 4
  1430.         lcCadena = 'CUATRO '
  1431.     Case lnUnidades = 5
  1432.         lcCadena = 'CINCO '
  1433.     Case lnUnidades = 6
  1434.         lcCadena = 'SEIS '
  1435.     Case lnUnidades = 7
  1436.         lcCadena = 'SIETE '
  1437.     Case lnUnidades = 8
  1438.         lcCadena = 'OCHO '
  1439.     Case lnUnidades = 9
  1440.         lcCadena = 'NUEVE '
  1441.     Endcase
  1442.  
  1443. *--- Analizo las decenas
  1444.     Do Case
  1445.     Case lnDecenas = 1
  1446.         Do Case
  1447.         Case lnUnidades = 0
  1448.             lcCadena = 'DIEZ '
  1449.         Case lnUnidades = 1
  1450.             lcCadena = 'ONCE '
  1451.         Case lnUnidades = 2
  1452.             lcCadena = 'DOCE '
  1453.         Case lnUnidades = 3
  1454.             lcCadena = 'TRECE '
  1455.         Case lnUnidades = 4
  1456.             lcCadena = 'CATORCE '
  1457.         Case lnUnidades = 5
  1458.             lcCadena = 'QUINCE '
  1459.         Other
  1460.             lcCadena = 'DIECI' + lcCadena
  1461.         Endcase
  1462.     Case lnDecenas = 2
  1463.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  1464.     Case lnDecenas = 3
  1465.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1466.     Case lnDecenas = 4
  1467.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1468.     Case lnDecenas = 5
  1469.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1470.     Case lnDecenas = 6
  1471.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1472.     Case lnDecenas = 7
  1473.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1474.     Case lnDecenas = 8
  1475.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1476.     Case lnDecenas = 9
  1477.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1478.     Endcase
  1479.  
  1480. *--- Analizo las centenas
  1481.     Do Case
  1482.     Case lnCentenas = 1
  1483.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  1484.             'CIEN ', 'CIENTO ') + lcCadena
  1485.     Case lnCentenas = 2
  1486.         lcCadena = 'DOSCIENTOS ' + lcCadena
  1487.     Case lnCentenas = 3
  1488.         lcCadena = 'TRESCIENTOS ' + lcCadena
  1489.     Case lnCentenas = 4
  1490.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  1491.     Case lnCentenas = 5
  1492.         lcCadena = 'QUINIENTOS ' + lcCadena
  1493.     Case lnCentenas = 6
  1494.         lcCadena = 'SEISCIENTOS ' + lcCadena
  1495.     Case lnCentenas = 7
  1496.         lcCadena = 'SETECIENTOS ' + lcCadena
  1497.     Case lnCentenas = 8
  1498.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  1499.     Case lnCentenas = 9
  1500.         lcCadena = 'NOVECIENTOS ' + lcCadena
  1501.     Endcase
  1502.  
  1503. *--- Armo el retorno terna a terna
  1504.     lcRetorno = lcCadena + lcMiles + lcRetorno
  1505.     lnTerna = lnTerna + 1
  1506. Enddo
  1507. If lnTerna = 1
  1508.     lcRetorno = 'CERO '
  1509. Endif
  1510. Return lcRetorno
  1511. Endfu
  1512. *--------------------------------------------------------------------------
  1513. * FUNCTION N2L(tnNro, tnFlag)
  1514. *--------------------------------------------------------------------------
  1515. * Devuelve un número entero en letras
  1516. * Usada por Let2Num (deben estar ambas)
  1517. * USO: ? N2L(32) -> TREINTA Y DOS
  1518. * RETORNA: Caracter
  1519. * AUTOR: LMG
  1520. *--------------------------------------------------------------------------
  1521. Function N2L(tnNro, tnFlag)
  1522. If Empty(tnFlag)
  1523.     tnFlag = 0
  1524. Endif
  1525. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  1526.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  1527. lnEntero = Int(tnNro)
  1528. lcRetorno = ''
  1529. lnTerna = 1
  1530. Do While lnEntero > 0
  1531.     lcCadena = ''
  1532.     lnUnidades = Mod(lnEntero, 10)
  1533.     lnEntero = Int(lnEntero / 10)
  1534.     lnDecenas = Mod(lnEntero, 10)
  1535.     lnEntero = Int(lnEntero / 10)
  1536.     lnCentenas = Mod(lnEntero, 10)
  1537.     lnEntero = Int(lnEntero / 10)
  1538.  
  1539. *--- Analizo la terna
  1540.     Do Case
  1541.     Case lnTerna = 1
  1542.         lcMiles = ''
  1543.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1544.         lcMiles = 'MIL '
  1545.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1546.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1547.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  1548.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1549.         lcMiles = 'MIL MILLONES '
  1550.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1551.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1552.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  1553.     Case lnTerna > 5
  1554.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  1555.         Exit
  1556.     Endcase
  1557.  
  1558. *--- Analizo las unidades
  1559.     Do Case
  1560.     Case lnUnidades = 1
  1561.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  1562.     Case lnUnidades = 2
  1563.         lcCadena = 'DOS '
  1564.     Case lnUnidades = 3
  1565.         lcCadena = 'TRES '
  1566.     Case lnUnidades = 4
  1567.         lcCadena = 'CUATRO '
  1568.     Case lnUnidades = 5
  1569.         lcCadena = 'CINCO '
  1570.     Case lnUnidades = 6
  1571.         lcCadena = 'SEIS '
  1572.     Case lnUnidades = 7
  1573.         lcCadena = 'SIETE '
  1574.     Case lnUnidades = 8
  1575.         lcCadena = 'OCHO '
  1576.     Case lnUnidades = 9
  1577.         lcCadena = 'NUEVE '
  1578.     Endcase
  1579.  
  1580. *--- Analizo las decenas
  1581.     Do Case
  1582.     Case lnDecenas = 1
  1583.         Do Case
  1584.         Case lnUnidades = 0
  1585.             lcCadena = 'DIEZ '
  1586.         Case lnUnidades = 1
  1587.             lcCadena = 'ONCE '
  1588.         Case lnUnidades = 2
  1589.             lcCadena = 'DOCE '
  1590.         Case lnUnidades = 3
  1591.             lcCadena = 'TRECE '
  1592.         Case lnUnidades = 4
  1593.             lcCadena = 'CATORCE '
  1594.         Case lnUnidades = 5
  1595.             lcCadena = 'QUINCE '
  1596.         Other
  1597.             lcCadena = 'DIECI' + lcCadena
  1598.         Endcase
  1599.     Case lnDecenas = 2
  1600.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  1601.     Case lnDecenas = 3
  1602.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1603.     Case lnDecenas = 4
  1604.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1605.     Case lnDecenas = 5
  1606.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1607.     Case lnDecenas = 6
  1608.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1609.     Case lnDecenas = 7
  1610.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1611.     Case lnDecenas = 8
  1612.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1613.     Case lnDecenas = 9
  1614.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1615.     Endcase
  1616.  
  1617. *--- Analizo las centenas
  1618.     Do Case
  1619.     Case lnCentenas = 1
  1620.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  1621.             'CIEN ', 'CIENTO ') + lcCadena
  1622.     Case lnCentenas = 2
  1623.         lcCadena = 'DOSCIENTOS ' + lcCadena
  1624.     Case lnCentenas = 3
  1625.         lcCadena = 'TRESCIENTOS ' + lcCadena
  1626.     Case lnCentenas = 4
  1627.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  1628.     Case lnCentenas = 5
  1629.         lcCadena = 'QUINIENTOS ' + lcCadena
  1630.     Case lnCentenas = 6
  1631.         lcCadena = 'SEISCIENTOS ' + lcCadena
  1632.     Case lnCentenas = 7
  1633.         lcCadena = 'SETECIENTOS ' + lcCadena
  1634.     Case lnCentenas = 8
  1635.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  1636.     Case lnCentenas = 9
  1637.         lcCadena = 'NOVECIENTOS ' + lcCadena
  1638.     Endcase
  1639.  
  1640. *--- Armo el retorno terna a terna
  1641.     lcRetorno = lcCadena + lcMiles + lcRetorno
  1642.     lnTerna = lnTerna + 1
  1643. Enddo
  1644. If lnTerna = 1
  1645.     lcRetorno = 'CERO '
  1646. Endif
  1647. Return lcRetorno
  1648. Endfu
  1649. * FUNCTION N2L(tnNro, tnFlag)
  1650. *--------------------------------------------------------------------------
  1651. * Devuelve un número entero en letras
  1652. * Usada por Let2Num (deben estar ambas)
  1653. * USO: ? N2L(32) -> TREINTA Y DOS
  1654. * RETORNA: Caracter
  1655. * AUTOR: LMG
  1656. *--------------------------------------------------------------------------
  1657. Function N2L(tnNro, tnFlag)
  1658. If Empty(tnFlag)
  1659.     tnFlag = 0
  1660. Endif
  1661. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  1662.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  1663. lnEntero = Int(tnNro)
  1664. lcRetorno = ''
  1665. lnTerna = 1
  1666. Do While lnEntero > 0
  1667.     lcCadena = ''
  1668.     lnUnidades = Mod(lnEntero, 10)
  1669.     lnEntero = Int(lnEntero / 10)
  1670.     lnDecenas = Mod(lnEntero, 10)
  1671.     lnEntero = Int(lnEntero / 10)
  1672.     lnCentenas = Mod(lnEntero, 10)
  1673.     lnEntero = Int(lnEntero / 10)
  1674.  
  1675. *--- Analizo la terna
  1676.     Do Case
  1677.     Case lnTerna = 1
  1678.         lcMiles = ''
  1679.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1680.         lcMiles = 'MIL '
  1681.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1682.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1683.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  1684.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1685.         lcMiles = 'MIL MILLONES '
  1686.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1687.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1688.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  1689.     Case lnTerna > 5
  1690.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  1691.         Exit
  1692.     Endcase
  1693.  
  1694. *--- Analizo las unidades
  1695.     Do Case
  1696.     Case lnUnidades = 1
  1697.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  1698.     Case lnUnidades = 2
  1699.         lcCadena = 'DOS '
  1700.     Case lnUnidades = 3
  1701.         lcCadena = 'TRES '
  1702.     Case lnUnidades = 4
  1703.         lcCadena = 'CUATRO '
  1704.     Case lnUnidades = 5
  1705.         lcCadena = 'CINCO '
  1706.     Case lnUnidades = 6
  1707.         lcCadena = 'SEIS '
  1708.     Case lnUnidades = 7
  1709.         lcCadena = 'SIETE '
  1710.     Case lnUnidades = 8
  1711.         lcCadena = 'OCHO '
  1712.     Case lnUnidades = 9
  1713.         lcCadena = 'NUEVE '
  1714.     Endcase
  1715.  
  1716. *--- Analizo las decenas
  1717.     Do Case
  1718.     Case lnDecenas = 1
  1719.         Do Case
  1720.         Case lnUnidades = 0
  1721.             lcCadena = 'DIEZ '
  1722.         Case lnUnidades = 1
  1723.             lcCadena = 'ONCE '
  1724.         Case lnUnidades = 2
  1725.             lcCadena = 'DOCE '
  1726.         Case lnUnidades = 3
  1727.             lcCadena = 'TRECE '
  1728.         Case lnUnidades = 4
  1729.             lcCadena = 'CATORCE '
  1730.         Case lnUnidades = 5
  1731.             lcCadena = 'QUINCE '
  1732.         Other
  1733.             lcCadena = 'DIECI' + lcCadena
  1734.         Endcase
  1735.     Case lnDecenas = 2
  1736.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  1737.     Case lnDecenas = 3
  1738.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1739.     Case lnDecenas = 4
  1740.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1741.     Case lnDecenas = 5
  1742.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1743.     Case lnDecenas = 6
  1744.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1745.     Case lnDecenas = 7
  1746.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1747.     Case lnDecenas = 8
  1748.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1749.     Case lnDecenas = 9
  1750.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1751.     Endcase
  1752.  
  1753. *--- Analizo las centenas
  1754.     Do Case
  1755.     Case lnCentenas = 1
  1756.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  1757.             'CIEN ', 'CIENTO ') + lcCadena
  1758.     Case lnCentenas = 2
  1759.         lcCadena = 'DOSCIENTOS ' + lcCadena
  1760.     Case lnCentenas = 3
  1761.         lcCadena = 'TRESCIENTOS ' + lcCadena
  1762.     Case lnCentenas = 4
  1763.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  1764.     Case lnCentenas = 5
  1765.         lcCadena = 'QUINIENTOS ' + lcCadena
  1766.     Case lnCentenas = 6
  1767.         lcCadena = 'SEISCIENTOS ' + lcCadena
  1768.     Case lnCentenas = 7
  1769.         lcCadena = 'SETECIENTOS ' + lcCadena
  1770.     Case lnCentenas = 8
  1771.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  1772.     Case lnCentenas = 9
  1773.         lcCadena = 'NOVECIENTOS ' + lcCadena
  1774.     Endcase
  1775.  
  1776. *--- Armo el retorno terna a terna
  1777.     lcRetorno = lcCadena + lcMiles + lcRetorno
  1778.     lnTerna = lnTerna + 1
  1779. Enddo
  1780. If lnTerna = 1
  1781.     lcRetorno = 'CERO '
  1782. Endif
  1783. Return lcRetorno
  1784. Endfu
  1785. *--------------------------------------------------------------------------
  1786. * Devuelve un número entero en letras
  1787. * Usada por Let2Num (deben estar ambas)
  1788. * USO: ? N2L(32) -> TREINTA Y DOS
  1789. * RETORNA: Caracter
  1790. * AUTOR: LMG
  1791. *--------------------------------------------------------------------------
  1792. Function N2L(tnNro, tnFlag)
  1793. If Empty(tnFlag)
  1794.     tnFlag = 0
  1795. Endif
  1796. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  1797.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  1798. lnEntero = Int(tnNro)
  1799. lcRetorno = ''
  1800. lnTerna = 1
  1801. Do While lnEntero > 0
  1802.     lcCadena = ''
  1803.     lnUnidades = Mod(lnEntero, 10)
  1804.     lnEntero = Int(lnEntero / 10)
  1805.     lnDecenas = Mod(lnEntero, 10)
  1806.     lnEntero = Int(lnEntero / 10)
  1807.     lnCentenas = Mod(lnEntero, 10)
  1808.     lnEntero = Int(lnEntero / 10)
  1809.  
  1810. *--- Analizo la terna
  1811.     Do Case
  1812.     Case lnTerna = 1
  1813.         lcMiles = ''
  1814.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1815.         lcMiles = 'MIL '
  1816.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1817.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1818.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  1819.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1820.         lcMiles = 'MIL MILLONES '
  1821.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1822.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1823.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  1824.     Case lnTerna > 5
  1825.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  1826.         Exit
  1827.     Endcase
  1828.  
  1829. *--- Analizo las unidades
  1830.     Do Case
  1831.     Case lnUnidades = 1
  1832.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  1833.     Case lnUnidades = 2
  1834.         lcCadena = 'DOS '
  1835.     Case lnUnidades = 3
  1836.         lcCadena = 'TRES '
  1837.     Case lnUnidades = 4
  1838.         lcCadena = 'CUATRO '
  1839.     Case lnUnidades = 5
  1840.         lcCadena = 'CINCO '
  1841.     Case lnUnidades = 6
  1842.         lcCadena = 'SEIS '
  1843.     Case lnUnidades = 7
  1844.         lcCadena = 'SIETE '
  1845.     Case lnUnidades = 8
  1846.         lcCadena = 'OCHO '
  1847.     Case lnUnidades = 9
  1848.         lcCadena = 'NUEVE '
  1849.     Endcase
  1850.  
  1851. *--- Analizo las decenas
  1852.     Do Case
  1853.     Case lnDecenas = 1
  1854.         Do Case
  1855.         Case lnUnidades = 0
  1856.             lcCadena = 'DIEZ '
  1857.         Case lnUnidades = 1
  1858.             lcCadena = 'ONCE '
  1859.         Case lnUnidades = 2
  1860.             lcCadena = 'DOCE '
  1861.         Case lnUnidades = 3
  1862.             lcCadena = 'TRECE '
  1863.         Case lnUnidades = 4
  1864.             lcCadena = 'CATORCE '
  1865.         Case lnUnidades = 5
  1866.             lcCadena = 'QUINCE '
  1867.         Other
  1868.             lcCadena = 'DIECI' + lcCadena
  1869.         Endcase
  1870.     Case lnDecenas = 2
  1871.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  1872.     Case lnDecenas = 3
  1873.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1874.     Case lnDecenas = 4
  1875.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1876.     Case lnDecenas = 5
  1877.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1878.     Case lnDecenas = 6
  1879.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1880.     Case lnDecenas = 7
  1881.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1882.     Case lnDecenas = 8
  1883.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1884.     Case lnDecenas = 9
  1885.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  1886.     Endcase
  1887.  
  1888. *--- Analizo las centenas
  1889.     Do Case
  1890.     Case lnCentenas = 1
  1891.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  1892.             'CIEN ', 'CIENTO ') + lcCadena
  1893.     Case lnCentenas = 2
  1894.         lcCadena = 'DOSCIENTOS ' + lcCadena
  1895.     Case lnCentenas = 3
  1896.         lcCadena = 'TRESCIENTOS ' + lcCadena
  1897.     Case lnCentenas = 4
  1898.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  1899.     Case lnCentenas = 5
  1900.         lcCadena = 'QUINIENTOS ' + lcCadena
  1901.     Case lnCentenas = 6
  1902.         lcCadena = 'SEISCIENTOS ' + lcCadena
  1903.     Case lnCentenas = 7
  1904.         lcCadena = 'SETECIENTOS ' + lcCadena
  1905.     Case lnCentenas = 8
  1906.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  1907.     Case lnCentenas = 9
  1908.         lcCadena = 'NOVECIENTOS ' + lcCadena
  1909.     Endcase
  1910.  
  1911. *--- Armo el retorno terna a terna
  1912.     lcRetorno = lcCadena + lcMiles + lcRetorno
  1913.     lnTerna = lnTerna + 1
  1914. Enddo
  1915. If lnTerna = 1
  1916.     lcRetorno = 'CERO '
  1917. Endif
  1918. Return lcRetorno
  1919. Endfu
  1920. * Devuelve un número entero en letras
  1921. * Usada por Let2Num (deben estar ambas)
  1922. * USO: ? N2L(32) -> TREINTA Y DOS
  1923. * RETORNA: Caracter
  1924. * AUTOR: LMG
  1925. *--------------------------------------------------------------------------
  1926. Function N2L(tnNro, tnFlag)
  1927. If Empty(tnFlag)
  1928.     tnFlag = 0
  1929. Endif
  1930. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  1931.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  1932. lnEntero = Int(tnNro)
  1933. lcRetorno = ''
  1934. lnTerna = 1
  1935. Do While lnEntero > 0
  1936.     lcCadena = ''
  1937.     lnUnidades = Mod(lnEntero, 10)
  1938.     lnEntero = Int(lnEntero / 10)
  1939.     lnDecenas = Mod(lnEntero, 10)
  1940.     lnEntero = Int(lnEntero / 10)
  1941.     lnCentenas = Mod(lnEntero, 10)
  1942.     lnEntero = Int(lnEntero / 10)
  1943.  
  1944. *--- Analizo la terna
  1945.     Do Case
  1946.     Case lnTerna = 1
  1947.         lcMiles = ''
  1948.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1949.         lcMiles = 'MIL '
  1950.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1951.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1952.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  1953.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1954.         lcMiles = 'MIL MILLONES '
  1955.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  1956.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  1957.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  1958.     Case lnTerna > 5
  1959.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  1960.         Exit
  1961.     Endcase
  1962.  
  1963. *--- Analizo las unidades
  1964.     Do Case
  1965.     Case lnUnidades = 1
  1966.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  1967.     Case lnUnidades = 2
  1968.         lcCadena = 'DOS '
  1969.     Case lnUnidades = 3
  1970.         lcCadena = 'TRES '
  1971.     Case lnUnidades = 4
  1972.         lcCadena = 'CUATRO '
  1973.     Case lnUnidades = 5
  1974.         lcCadena = 'CINCO '
  1975.     Case lnUnidades = 6
  1976.         lcCadena = 'SEIS '
  1977.     Case lnUnidades = 7
  1978.         lcCadena = 'SIETE '
  1979.     Case lnUnidades = 8
  1980.         lcCadena = 'OCHO '
  1981.     Case lnUnidades = 9
  1982.         lcCadena = 'NUEVE '
  1983.     Endcase
  1984.  
  1985. *--- Analizo las decenas
  1986.     Do Case
  1987.     Case lnDecenas = 1
  1988.         Do Case
  1989.         Case lnUnidades = 0
  1990.             lcCadena = 'DIEZ '
  1991.         Case lnUnidades = 1
  1992.             lcCadena = 'ONCE '
  1993.         Case lnUnidades = 2
  1994.             lcCadena = 'DOCE '
  1995.         Case lnUnidades = 3
  1996.             lcCadena = 'TRECE '
  1997.         Case lnUnidades = 4
  1998.             lcCadena = 'CATORCE '
  1999.         Case lnUnidades = 5
  2000.             lcCadena = 'QUINCE '
  2001.         Other
  2002.             lcCadena = 'DIECI' + lcCadena
  2003.         Endcase
  2004.     Case lnDecenas = 2
  2005.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  2006.     Case lnDecenas = 3
  2007.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2008.     Case lnDecenas = 4
  2009.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2010.     Case lnDecenas = 5
  2011.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2012.     Case lnDecenas = 6
  2013.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2014.     Case lnDecenas = 7
  2015.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2016.     Case lnDecenas = 8
  2017.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2018.     Case lnDecenas = 9
  2019.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2020.     Endcase
  2021.  
  2022. *--- Analizo las centenas
  2023.     Do Case
  2024.     Case lnCentenas = 1
  2025.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  2026.             'CIEN ', 'CIENTO ') + lcCadena
  2027.     Case lnCentenas = 2
  2028.         lcCadena = 'DOSCIENTOS ' + lcCadena
  2029.     Case lnCentenas = 3
  2030.         lcCadena = 'TRESCIENTOS ' + lcCadena
  2031.     Case lnCentenas = 4
  2032.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  2033.     Case lnCentenas = 5
  2034.         lcCadena = 'QUINIENTOS ' + lcCadena
  2035.     Case lnCentenas = 6
  2036.         lcCadena = 'SEISCIENTOS ' + lcCadena
  2037.     Case lnCentenas = 7
  2038.         lcCadena = 'SETECIENTOS ' + lcCadena
  2039.     Case lnCentenas = 8
  2040.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  2041.     Case lnCentenas = 9
  2042.         lcCadena = 'NOVECIENTOS ' + lcCadena
  2043.     Endcase
  2044.  
  2045. *--- Armo el retorno terna a terna
  2046.     lcRetorno = lcCadena + lcMiles + lcRetorno
  2047.     lnTerna = lnTerna + 1
  2048. Enddo
  2049. If lnTerna = 1
  2050.     lcRetorno = 'CERO '
  2051. Endif
  2052. Return lcRetorno
  2053. Endfu
  2054. * Usada por Let2Num (deben estar ambas)
  2055. * USO: ? N2L(32) -> TREINTA Y DOS
  2056. * RETORNA: Caracter
  2057. * AUTOR: LMG
  2058. *--------------------------------------------------------------------------
  2059. Function N2L(tnNro, tnFlag)
  2060. If Empty(tnFlag)
  2061.     tnFlag = 0
  2062. Endif
  2063. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  2064.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  2065. lnEntero = Int(tnNro)
  2066. lcRetorno = ''
  2067. lnTerna = 1
  2068. Do While lnEntero > 0
  2069.     lcCadena = ''
  2070.     lnUnidades = Mod(lnEntero, 10)
  2071.     lnEntero = Int(lnEntero / 10)
  2072.     lnDecenas = Mod(lnEntero, 10)
  2073.     lnEntero = Int(lnEntero / 10)
  2074.     lnCentenas = Mod(lnEntero, 10)
  2075.     lnEntero = Int(lnEntero / 10)
  2076.  
  2077. *--- Analizo la terna
  2078.     Do Case
  2079.     Case lnTerna = 1
  2080.         lcMiles = ''
  2081.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2082.         lcMiles = 'MIL '
  2083.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2084.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2085.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  2086.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2087.         lcMiles = 'MIL MILLONES '
  2088.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2089.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2090.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  2091.     Case lnTerna > 5
  2092.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  2093.         Exit
  2094.     Endcase
  2095.  
  2096. *--- Analizo las unidades
  2097.     Do Case
  2098.     Case lnUnidades = 1
  2099.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  2100.     Case lnUnidades = 2
  2101.         lcCadena = 'DOS '
  2102.     Case lnUnidades = 3
  2103.         lcCadena = 'TRES '
  2104.     Case lnUnidades = 4
  2105.         lcCadena = 'CUATRO '
  2106.     Case lnUnidades = 5
  2107.         lcCadena = 'CINCO '
  2108.     Case lnUnidades = 6
  2109.         lcCadena = 'SEIS '
  2110.     Case lnUnidades = 7
  2111.         lcCadena = 'SIETE '
  2112.     Case lnUnidades = 8
  2113.         lcCadena = 'OCHO '
  2114.     Case lnUnidades = 9
  2115.         lcCadena = 'NUEVE '
  2116.     Endcase
  2117.  
  2118. *--- Analizo las decenas
  2119.     Do Case
  2120.     Case lnDecenas = 1
  2121.         Do Case
  2122.         Case lnUnidades = 0
  2123.             lcCadena = 'DIEZ '
  2124.         Case lnUnidades = 1
  2125.             lcCadena = 'ONCE '
  2126.         Case lnUnidades = 2
  2127.             lcCadena = 'DOCE '
  2128.         Case lnUnidades = 3
  2129.             lcCadena = 'TRECE '
  2130.         Case lnUnidades = 4
  2131.             lcCadena = 'CATORCE '
  2132.         Case lnUnidades = 5
  2133.             lcCadena = 'QUINCE '
  2134.         Other
  2135.             lcCadena = 'DIECI' + lcCadena
  2136.         Endcase
  2137.     Case lnDecenas = 2
  2138.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  2139.     Case lnDecenas = 3
  2140.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2141.     Case lnDecenas = 4
  2142.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2143.     Case lnDecenas = 5
  2144.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2145.     Case lnDecenas = 6
  2146.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2147.     Case lnDecenas = 7
  2148.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2149.     Case lnDecenas = 8
  2150.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2151.     Case lnDecenas = 9
  2152.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2153.     Endcase
  2154.  
  2155. *--- Analizo las centenas
  2156.     Do Case
  2157.     Case lnCentenas = 1
  2158.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  2159.             'CIEN ', 'CIENTO ') + lcCadena
  2160.     Case lnCentenas = 2
  2161.         lcCadena = 'DOSCIENTOS ' + lcCadena
  2162.     Case lnCentenas = 3
  2163.         lcCadena = 'TRESCIENTOS ' + lcCadena
  2164.     Case lnCentenas = 4
  2165.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  2166.     Case lnCentenas = 5
  2167.         lcCadena = 'QUINIENTOS ' + lcCadena
  2168.     Case lnCentenas = 6
  2169.         lcCadena = 'SEISCIENTOS ' + lcCadena
  2170.     Case lnCentenas = 7
  2171.         lcCadena = 'SETECIENTOS ' + lcCadena
  2172.     Case lnCentenas = 8
  2173.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  2174.     Case lnCentenas = 9
  2175.         lcCadena = 'NOVECIENTOS ' + lcCadena
  2176.     Endcase
  2177.  
  2178. *--- Armo el retorno terna a terna
  2179.     lcRetorno = lcCadena + lcMiles + lcRetorno
  2180.     lnTerna = lnTerna + 1
  2181. Enddo
  2182. If lnTerna = 1
  2183.     lcRetorno = 'CERO '
  2184. Endif
  2185. Return lcRetorno
  2186. Endfu
  2187. * USO: ? N2L(32) -> TREINTA Y DOS
  2188. * RETORNA: Caracter
  2189. * AUTOR: LMG
  2190. *--------------------------------------------------------------------------
  2191. Function N2L(tnNro, tnFlag)
  2192. If Empty(tnFlag)
  2193.     tnFlag = 0
  2194. Endif
  2195. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  2196.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  2197. lnEntero = Int(tnNro)
  2198. lcRetorno = ''
  2199. lnTerna = 1
  2200. Do While lnEntero > 0
  2201.     lcCadena = ''
  2202.     lnUnidades = Mod(lnEntero, 10)
  2203.     lnEntero = Int(lnEntero / 10)
  2204.     lnDecenas = Mod(lnEntero, 10)
  2205.     lnEntero = Int(lnEntero / 10)
  2206.     lnCentenas = Mod(lnEntero, 10)
  2207.     lnEntero = Int(lnEntero / 10)
  2208.  
  2209. *--- Analizo la terna
  2210.     Do Case
  2211.     Case lnTerna = 1
  2212.         lcMiles = ''
  2213.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2214.         lcMiles = 'MIL '
  2215.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2216.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2217.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  2218.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2219.         lcMiles = 'MIL MILLONES '
  2220.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2221.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2222.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  2223.     Case lnTerna > 5
  2224.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  2225.         Exit
  2226.     Endcase
  2227.  
  2228. *--- Analizo las unidades
  2229.     Do Case
  2230.     Case lnUnidades = 1
  2231.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  2232.     Case lnUnidades = 2
  2233.         lcCadena = 'DOS '
  2234.     Case lnUnidades = 3
  2235.         lcCadena = 'TRES '
  2236.     Case lnUnidades = 4
  2237.         lcCadena = 'CUATRO '
  2238.     Case lnUnidades = 5
  2239.         lcCadena = 'CINCO '
  2240.     Case lnUnidades = 6
  2241.         lcCadena = 'SEIS '
  2242.     Case lnUnidades = 7
  2243.         lcCadena = 'SIETE '
  2244.     Case lnUnidades = 8
  2245.         lcCadena = 'OCHO '
  2246.     Case lnUnidades = 9
  2247.         lcCadena = 'NUEVE '
  2248.     Endcase
  2249.  
  2250. *--- Analizo las decenas
  2251.     Do Case
  2252.     Case lnDecenas = 1
  2253.         Do Case
  2254.         Case lnUnidades = 0
  2255.             lcCadena = 'DIEZ '
  2256.         Case lnUnidades = 1
  2257.             lcCadena = 'ONCE '
  2258.         Case lnUnidades = 2
  2259.             lcCadena = 'DOCE '
  2260.         Case lnUnidades = 3
  2261.             lcCadena = 'TRECE '
  2262.         Case lnUnidades = 4
  2263.             lcCadena = 'CATORCE '
  2264.         Case lnUnidades = 5
  2265.             lcCadena = 'QUINCE '
  2266.         Other
  2267.             lcCadena = 'DIECI' + lcCadena
  2268.         Endcase
  2269.     Case lnDecenas = 2
  2270.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  2271.     Case lnDecenas = 3
  2272.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2273.     Case lnDecenas = 4
  2274.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2275.     Case lnDecenas = 5
  2276.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2277.     Case lnDecenas = 6
  2278.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2279.     Case lnDecenas = 7
  2280.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2281.     Case lnDecenas = 8
  2282.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2283.     Case lnDecenas = 9
  2284.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2285.     Endcase
  2286.  
  2287. *--- Analizo las centenas
  2288.     Do Case
  2289.     Case lnCentenas = 1
  2290.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  2291.             'CIEN ', 'CIENTO ') + lcCadena
  2292.     Case lnCentenas = 2
  2293.         lcCadena = 'DOSCIENTOS ' + lcCadena
  2294.     Case lnCentenas = 3
  2295.         lcCadena = 'TRESCIENTOS ' + lcCadena
  2296.     Case lnCentenas = 4
  2297.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  2298.     Case lnCentenas = 5
  2299.         lcCadena = 'QUINIENTOS ' + lcCadena
  2300.     Case lnCentenas = 6
  2301.         lcCadena = 'SEISCIENTOS ' + lcCadena
  2302.     Case lnCentenas = 7
  2303.         lcCadena = 'SETECIENTOS ' + lcCadena
  2304.     Case lnCentenas = 8
  2305.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  2306.     Case lnCentenas = 9
  2307.         lcCadena = 'NOVECIENTOS ' + lcCadena
  2308.     Endcase
  2309.  
  2310. *--- Armo el retorno terna a terna
  2311.     lcRetorno = lcCadena + lcMiles + lcRetorno
  2312.     lnTerna = lnTerna + 1
  2313. Enddo
  2314. If lnTerna = 1
  2315.     lcRetorno = 'CERO '
  2316. Endif
  2317. Return lcRetorno
  2318. Endfu
  2319. * RETORNA: Caracter
  2320. * AUTOR: LMG
  2321. *--------------------------------------------------------------------------
  2322. Function N2L(tnNro, tnFlag)
  2323. If Empty(tnFlag)
  2324.     tnFlag = 0
  2325. Endif
  2326. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  2327.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  2328. lnEntero = Int(tnNro)
  2329. lcRetorno = ''
  2330. lnTerna = 1
  2331. Do While lnEntero > 0
  2332.     lcCadena = ''
  2333.     lnUnidades = Mod(lnEntero, 10)
  2334.     lnEntero = Int(lnEntero / 10)
  2335.     lnDecenas = Mod(lnEntero, 10)
  2336.     lnEntero = Int(lnEntero / 10)
  2337.     lnCentenas = Mod(lnEntero, 10)
  2338.     lnEntero = Int(lnEntero / 10)
  2339.  
  2340. *--- Analizo la terna
  2341.     Do Case
  2342.     Case lnTerna = 1
  2343.         lcMiles = ''
  2344.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2345.         lcMiles = 'MIL '
  2346.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2347.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2348.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  2349.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2350.         lcMiles = 'MIL MILLONES '
  2351.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2352.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2353.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  2354.     Case lnTerna > 5
  2355.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  2356.         Exit
  2357.     Endcase
  2358.  
  2359. *--- Analizo las unidades
  2360.     Do Case
  2361.     Case lnUnidades = 1
  2362.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  2363.     Case lnUnidades = 2
  2364.         lcCadena = 'DOS '
  2365.     Case lnUnidades = 3
  2366.         lcCadena = 'TRES '
  2367.     Case lnUnidades = 4
  2368.         lcCadena = 'CUATRO '
  2369.     Case lnUnidades = 5
  2370.         lcCadena = 'CINCO '
  2371.     Case lnUnidades = 6
  2372.         lcCadena = 'SEIS '
  2373.     Case lnUnidades = 7
  2374.         lcCadena = 'SIETE '
  2375.     Case lnUnidades = 8
  2376.         lcCadena = 'OCHO '
  2377.     Case lnUnidades = 9
  2378.         lcCadena = 'NUEVE '
  2379.     Endcase
  2380.  
  2381. *--- Analizo las decenas
  2382.     Do Case
  2383.     Case lnDecenas = 1
  2384.         Do Case
  2385.         Case lnUnidades = 0
  2386.             lcCadena = 'DIEZ '
  2387.         Case lnUnidades = 1
  2388.             lcCadena = 'ONCE '
  2389.         Case lnUnidades = 2
  2390.             lcCadena = 'DOCE '
  2391.         Case lnUnidades = 3
  2392.             lcCadena = 'TRECE '
  2393.         Case lnUnidades = 4
  2394.             lcCadena = 'CATORCE '
  2395.         Case lnUnidades = 5
  2396.             lcCadena = 'QUINCE '
  2397.         Other
  2398.             lcCadena = 'DIECI' + lcCadena
  2399.         Endcase
  2400.     Case lnDecenas = 2
  2401.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  2402.     Case lnDecenas = 3
  2403.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2404.     Case lnDecenas = 4
  2405.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2406.     Case lnDecenas = 5
  2407.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2408.     Case lnDecenas = 6
  2409.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2410.     Case lnDecenas = 7
  2411.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2412.     Case lnDecenas = 8
  2413.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2414.     Case lnDecenas = 9
  2415.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2416.     Endcase
  2417.  
  2418. *--- Analizo las centenas
  2419.     Do Case
  2420.     Case lnCentenas = 1
  2421.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  2422.             'CIEN ', 'CIENTO ') + lcCadena
  2423.     Case lnCentenas = 2
  2424.         lcCadena = 'DOSCIENTOS ' + lcCadena
  2425.     Case lnCentenas = 3
  2426.         lcCadena = 'TRESCIENTOS ' + lcCadena
  2427.     Case lnCentenas = 4
  2428.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  2429.     Case lnCentenas = 5
  2430.         lcCadena = 'QUINIENTOS ' + lcCadena
  2431.     Case lnCentenas = 6
  2432.         lcCadena = 'SEISCIENTOS ' + lcCadena
  2433.     Case lnCentenas = 7
  2434.         lcCadena = 'SETECIENTOS ' + lcCadena
  2435.     Case lnCentenas = 8
  2436.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  2437.     Case lnCentenas = 9
  2438.         lcCadena = 'NOVECIENTOS ' + lcCadena
  2439.     Endcase
  2440.  
  2441. *--- Armo el retorno terna a terna
  2442.     lcRetorno = lcCadena + lcMiles + lcRetorno
  2443.     lnTerna = lnTerna + 1
  2444. Enddo
  2445. If lnTerna = 1
  2446.     lcRetorno = 'CERO '
  2447. Endif
  2448. Return lcRetorno
  2449. Endfu
  2450. * AUTOR: LMG
  2451. *--------------------------------------------------------------------------
  2452. Function N2L(tnNro, tnFlag)
  2453. If Empty(tnFlag)
  2454.     tnFlag = 0
  2455. Endif
  2456. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  2457.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  2458. lnEntero = Int(tnNro)
  2459. lcRetorno = ''
  2460. lnTerna = 1
  2461. Do While lnEntero > 0
  2462.     lcCadena = ''
  2463.     lnUnidades = Mod(lnEntero, 10)
  2464.     lnEntero = Int(lnEntero / 10)
  2465.     lnDecenas = Mod(lnEntero, 10)
  2466.     lnEntero = Int(lnEntero / 10)
  2467.     lnCentenas = Mod(lnEntero, 10)
  2468.     lnEntero = Int(lnEntero / 10)
  2469.  
  2470. *--- Analizo la terna
  2471.     Do Case
  2472.     Case lnTerna = 1
  2473.         lcMiles = ''
  2474.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2475.         lcMiles = 'MIL '
  2476.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2477.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2478.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  2479.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2480.         lcMiles = 'MIL MILLONES '
  2481.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2482.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2483.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  2484.     Case lnTerna > 5
  2485.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  2486.         Exit
  2487.     Endcase
  2488.  
  2489. *--- Analizo las unidades
  2490.     Do Case
  2491.     Case lnUnidades = 1
  2492.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  2493.     Case lnUnidades = 2
  2494.         lcCadena = 'DOS '
  2495.     Case lnUnidades = 3
  2496.         lcCadena = 'TRES '
  2497.     Case lnUnidades = 4
  2498.         lcCadena = 'CUATRO '
  2499.     Case lnUnidades = 5
  2500.         lcCadena = 'CINCO '
  2501.     Case lnUnidades = 6
  2502.         lcCadena = 'SEIS '
  2503.     Case lnUnidades = 7
  2504.         lcCadena = 'SIETE '
  2505.     Case lnUnidades = 8
  2506.         lcCadena = 'OCHO '
  2507.     Case lnUnidades = 9
  2508.         lcCadena = 'NUEVE '
  2509.     Endcase
  2510.  
  2511. *--- Analizo las decenas
  2512.     Do Case
  2513.     Case lnDecenas = 1
  2514.         Do Case
  2515.         Case lnUnidades = 0
  2516.             lcCadena = 'DIEZ '
  2517.         Case lnUnidades = 1
  2518.             lcCadena = 'ONCE '
  2519.         Case lnUnidades = 2
  2520.             lcCadena = 'DOCE '
  2521.         Case lnUnidades = 3
  2522.             lcCadena = 'TRECE '
  2523.         Case lnUnidades = 4
  2524.             lcCadena = 'CATORCE '
  2525.         Case lnUnidades = 5
  2526.             lcCadena = 'QUINCE '
  2527.         Other
  2528.             lcCadena = 'DIECI' + lcCadena
  2529.         Endcase
  2530.     Case lnDecenas = 2
  2531.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  2532.     Case lnDecenas = 3
  2533.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2534.     Case lnDecenas = 4
  2535.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2536.     Case lnDecenas = 5
  2537.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2538.     Case lnDecenas = 6
  2539.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2540.     Case lnDecenas = 7
  2541.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2542.     Case lnDecenas = 8
  2543.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2544.     Case lnDecenas = 9
  2545.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2546.     Endcase
  2547.  
  2548. *--- Analizo las centenas
  2549.     Do Case
  2550.     Case lnCentenas = 1
  2551.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  2552.             'CIEN ', 'CIENTO ') + lcCadena
  2553.     Case lnCentenas = 2
  2554.         lcCadena = 'DOSCIENTOS ' + lcCadena
  2555.     Case lnCentenas = 3
  2556.         lcCadena = 'TRESCIENTOS ' + lcCadena
  2557.     Case lnCentenas = 4
  2558.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  2559.     Case lnCentenas = 5
  2560.         lcCadena = 'QUINIENTOS ' + lcCadena
  2561.     Case lnCentenas = 6
  2562.         lcCadena = 'SEISCIENTOS ' + lcCadena
  2563.     Case lnCentenas = 7
  2564.         lcCadena = 'SETECIENTOS ' + lcCadena
  2565.     Case lnCentenas = 8
  2566.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  2567.     Case lnCentenas = 9
  2568.         lcCadena = 'NOVECIENTOS ' + lcCadena
  2569.     Endcase
  2570.  
  2571. *--- Armo el retorno terna a terna
  2572.     lcRetorno = lcCadena + lcMiles + lcRetorno
  2573.     lnTerna = lnTerna + 1
  2574. Enddo
  2575. If lnTerna = 1
  2576.     lcRetorno = 'CERO '
  2577. Endif
  2578. Return lcRetorno
  2579. Endfu
  2580. *--------------------------------------------------------------------------
  2581. Function N2L(tnNro, tnFlag)
  2582. If Empty(tnFlag)
  2583.     tnFlag = 0
  2584. Endif
  2585. Local lnEntero, lcRetorno, lnTerna, lcMiles, ;
  2586.     lcCadena, lnUnidades, lnDecenas, lnCentenas
  2587. lnEntero = Int(tnNro)
  2588. lcRetorno = ''
  2589. lnTerna = 1
  2590. Do While lnEntero > 0
  2591.     lcCadena = ''
  2592.     lnUnidades = Mod(lnEntero, 10)
  2593.     lnEntero = Int(lnEntero / 10)
  2594.     lnDecenas = Mod(lnEntero, 10)
  2595.     lnEntero = Int(lnEntero / 10)
  2596.     lnCentenas = Mod(lnEntero, 10)
  2597.     lnEntero = Int(lnEntero / 10)
  2599. *--- Analizo la terna
  2600.     Do Case
  2601.     Case lnTerna = 1
  2602.         lcMiles = ''
  2603.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2604.         lcMiles = 'MIL '
  2605.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2606.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2607.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  2608.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2609.         lcMiles = 'MIL MILLONES '
  2610.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2611.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2612.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  2613.     Case lnTerna > 5
  2614.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  2615.         Exit
  2616.     Endcase
  2617.  
  2618. *--- Analizo las unidades
  2619.     Do Case
  2620.     Case lnUnidades = 1
  2621.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  2622.     Case lnUnidades = 2
  2623.         lcCadena = 'DOS '
  2624.     Case lnUnidades = 3
  2625.         lcCadena = 'TRES '
  2626.     Case lnUnidades = 4
  2627.         lcCadena = 'CUATRO '
  2628.     Case lnUnidades = 5
  2629.         lcCadena = 'CINCO '
  2630.     Case lnUnidades = 6
  2631.         lcCadena = 'SEIS '
  2632.     Case lnUnidades = 7
  2633.         lcCadena = 'SIETE '
  2634.     Case lnUnidades = 8
  2635.         lcCadena = 'OCHO '
  2636.     Case lnUnidades = 9
  2637.         lcCadena = 'NUEVE '
  2638.     Endcase
  2639.  
  2640. *--- Analizo las decenas
  2641.     Do Case
  2642.     Case lnDecenas = 1
  2643.         Do Case
  2644.         Case lnUnidades = 0
  2645.             lcCadena = 'DIEZ '
  2646.         Case lnUnidades = 1
  2647.             lcCadena = 'ONCE '
  2648.         Case lnUnidades = 2
  2649.             lcCadena = 'DOCE '
  2650.         Case lnUnidades = 3
  2651.             lcCadena = 'TRECE '
  2652.         Case lnUnidades = 4
  2653.             lcCadena = 'CATORCE '
  2654.         Case lnUnidades = 5
  2655.             lcCadena = 'QUINCE '
  2656.         Other
  2657.             lcCadena = 'DIECI' + lcCadena
  2658.         Endcase
  2659.     Case lnDecenas = 2
  2660.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  2661.     Case lnDecenas = 3
  2662.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2663.     Case lnDecenas = 4
  2664.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2665.     Case lnDecenas = 5
  2666.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2667.     Case lnDecenas = 6
  2668.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2669.     Case lnDecenas = 7
  2670.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2671.     Case lnDecenas = 8
  2672.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2673.     Case lnDecenas = 9
  2674.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2675.     Endcase
  2676.  
  2677. *--- Analizo las centenas
  2678.     Do Case
  2679.     Case lnCentenas = 1
  2680.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  2681.             'CIEN ', 'CIENTO ') + lcCadena
  2682.     Case lnCentenas = 2
  2683.         lcCadena = 'DOSCIENTOS ' + lcCadena
  2684.     Case lnCentenas = 3
  2685.         lcCadena = 'TRESCIENTOS ' + lcCadena
  2686.     Case lnCentenas = 4
  2687.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  2688.     Case lnCentenas = 5
  2689.         lcCadena = 'QUINIENTOS ' + lcCadena
  2690.     Case lnCentenas = 6
  2691.         lcCadena = 'SEISCIENTOS ' + lcCadena
  2692.     Case lnCentenas = 7
  2693.         lcCadena = 'SETECIENTOS ' + lcCadena
  2694.     Case lnCentenas = 8
  2695.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  2696.     Case lnCentenas = 9
  2697.         lcCadena = 'NOVECIENTOS ' + lcCadena
  2698.     Endcase
  2699.  
  2700. *--- Armo el retorno terna a terna
  2701.     lcRetorno = lcCadena + lcMiles + lcRetorno
  2702.     lnTerna = lnTerna + 1
  2703. Enddo
  2704. If lnTerna = 1
  2705.     lcRetorno = 'CERO '
  2706. Endif
  2707. Return lcRetorno
  2708. Endfu
  2709. *--- Analizo la terna
  2710.     Do Case
  2711.     Case lnTerna = 1
  2712.         lcMiles = ''
  2713.     Case lnTerna = 2 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2714.         lcMiles = 'MIL '
  2715.     Case lnTerna = 3 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2716.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2717.             lnCentenas = 0, 'MILLON ', 'MILLONES ')
  2718.     Case lnTerna = 4 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2719.         lcMiles = 'MIL MILLONES '
  2720.     Case lnTerna = 5 And (lnUnidades + lnDecenas + lnCentenas # 0)
  2721.         lcMiles = Iif(lnUnidades = 1 And lnDecenas = 0 And ;
  2722.             lnCentenas = 0, 'BILLON ', 'BILLONES ')
  2723.     Case lnTerna > 5
  2724.         lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
  2725.         Exit
  2726.     Endcase
  2728. *--- Analizo las unidades
  2729.     Do Case
  2730.     Case lnUnidades = 1
  2731.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  2732.     Case lnUnidades = 2
  2733.         lcCadena = 'DOS '
  2734.     Case lnUnidades = 3
  2735.         lcCadena = 'TRES '
  2736.     Case lnUnidades = 4
  2737.         lcCadena = 'CUATRO '
  2738.     Case lnUnidades = 5
  2739.         lcCadena = 'CINCO '
  2740.     Case lnUnidades = 6
  2741.         lcCadena = 'SEIS '
  2742.     Case lnUnidades = 7
  2743.         lcCadena = 'SIETE '
  2744.     Case lnUnidades = 8
  2745.         lcCadena = 'OCHO '
  2746.     Case lnUnidades = 9
  2747.         lcCadena = 'NUEVE '
  2748.     Endcase
  2749.  
  2750. *--- Analizo las decenas
  2751.     Do Case
  2752.     Case lnDecenas = 1
  2753.         Do Case
  2754.         Case lnUnidades = 0
  2755.             lcCadena = 'DIEZ '
  2756.         Case lnUnidades = 1
  2757.             lcCadena = 'ONCE '
  2758.         Case lnUnidades = 2
  2759.             lcCadena = 'DOCE '
  2760.         Case lnUnidades = 3
  2761.             lcCadena = 'TRECE '
  2762.         Case lnUnidades = 4
  2763.             lcCadena = 'CATORCE '
  2764.         Case lnUnidades = 5
  2765.             lcCadena = 'QUINCE '
  2766.         Other
  2767.             lcCadena = 'DIECI' + lcCadena
  2768.         Endcase
  2769.     Case lnDecenas = 2
  2770.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  2771.     Case lnDecenas = 3
  2772.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2773.     Case lnDecenas = 4
  2774.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2775.     Case lnDecenas = 5
  2776.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2777.     Case lnDecenas = 6
  2778.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2779.     Case lnDecenas = 7
  2780.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2781.     Case lnDecenas = 8
  2782.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2783.     Case lnDecenas = 9
  2784.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2785.     Endcase
  2786.  
  2787. *--- Analizo las centenas
  2788.     Do Case
  2789.     Case lnCentenas = 1
  2790.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  2791.             'CIEN ', 'CIENTO ') + lcCadena
  2792.     Case lnCentenas = 2
  2793.         lcCadena = 'DOSCIENTOS ' + lcCadena
  2794.     Case lnCentenas = 3
  2795.         lcCadena = 'TRESCIENTOS ' + lcCadena
  2796.     Case lnCentenas = 4
  2797.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  2798.     Case lnCentenas = 5
  2799.         lcCadena = 'QUINIENTOS ' + lcCadena
  2800.     Case lnCentenas = 6
  2801.         lcCadena = 'SEISCIENTOS ' + lcCadena
  2802.     Case lnCentenas = 7
  2803.         lcCadena = 'SETECIENTOS ' + lcCadena
  2804.     Case lnCentenas = 8
  2805.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  2806.     Case lnCentenas = 9
  2807.         lcCadena = 'NOVECIENTOS ' + lcCadena
  2808.     Endcase
  2809.  
  2810. *--- Armo el retorno terna a terna
  2811.     lcRetorno = lcCadena + lcMiles + lcRetorno
  2812.     lnTerna = lnTerna + 1
  2813. Enddo
  2814. If lnTerna = 1
  2815.     lcRetorno = 'CERO '
  2816. Endif
  2817. Return lcRetorno
  2818. Endfu
  2819. *--- Analizo las unidades
  2820.     Do Case
  2821.     Case lnUnidades = 1
  2822.         lcCadena = Iif(lnTerna = 1 And tnFlag = 0, 'UNO ', 'UN ')
  2823.     Case lnUnidades = 2
  2824.         lcCadena = 'DOS '
  2825.     Case lnUnidades = 3
  2826.         lcCadena = 'TRES '
  2827.     Case lnUnidades = 4
  2828.         lcCadena = 'CUATRO '
  2829.     Case lnUnidades = 5
  2830.         lcCadena = 'CINCO '
  2831.     Case lnUnidades = 6
  2832.         lcCadena = 'SEIS '
  2833.     Case lnUnidades = 7
  2834.         lcCadena = 'SIETE '
  2835.     Case lnUnidades = 8
  2836.         lcCadena = 'OCHO '
  2837.     Case lnUnidades = 9
  2838.         lcCadena = 'NUEVE '
  2839.     Endcase
  2841. *--- Analizo las decenas
  2842.     Do Case
  2843.     Case lnDecenas = 1
  2844.         Do Case
  2845.         Case lnUnidades = 0
  2846.             lcCadena = 'DIEZ '
  2847.         Case lnUnidades = 1
  2848.             lcCadena = 'ONCE '
  2849.         Case lnUnidades = 2
  2850.             lcCadena = 'DOCE '
  2851.         Case lnUnidades = 3
  2852.             lcCadena = 'TRECE '
  2853.         Case lnUnidades = 4
  2854.             lcCadena = 'CATORCE '
  2855.         Case lnUnidades = 5
  2856.             lcCadena = 'QUINCE '
  2857.         Other
  2858.             lcCadena = 'DIECI' + lcCadena
  2859.         Endcase
  2860.     Case lnDecenas = 2
  2861.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  2862.     Case lnDecenas = 3
  2863.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2864.     Case lnDecenas = 4
  2865.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2866.     Case lnDecenas = 5
  2867.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2868.     Case lnDecenas = 6
  2869.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2870.     Case lnDecenas = 7
  2871.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2872.     Case lnDecenas = 8
  2873.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2874.     Case lnDecenas = 9
  2875.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2876.     Endcase
  2877.  
  2878. *--- Analizo las centenas
  2879.     Do Case
  2880.     Case lnCentenas = 1
  2881.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  2882.             'CIEN ', 'CIENTO ') + lcCadena
  2883.     Case lnCentenas = 2
  2884.         lcCadena = 'DOSCIENTOS ' + lcCadena
  2885.     Case lnCentenas = 3
  2886.         lcCadena = 'TRESCIENTOS ' + lcCadena
  2887.     Case lnCentenas = 4
  2888.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  2889.     Case lnCentenas = 5
  2890.         lcCadena = 'QUINIENTOS ' + lcCadena
  2891.     Case lnCentenas = 6
  2892.         lcCadena = 'SEISCIENTOS ' + lcCadena
  2893.     Case lnCentenas = 7
  2894.         lcCadena = 'SETECIENTOS ' + lcCadena
  2895.     Case lnCentenas = 8
  2896.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  2897.     Case lnCentenas = 9
  2898.         lcCadena = 'NOVECIENTOS ' + lcCadena
  2899.     Endcase
  2900.  
  2901. *--- Armo el retorno terna a terna
  2902.     lcRetorno = lcCadena + lcMiles + lcRetorno
  2903.     lnTerna = lnTerna + 1
  2904. Enddo
  2905. If lnTerna = 1
  2906.     lcRetorno = 'CERO '
  2907. Endif
  2908. Return lcRetorno
  2909. Endfu
  2910. *--- Analizo las decenas
  2911.     Do Case
  2912.     Case lnDecenas = 1
  2913.         Do Case
  2914.         Case lnUnidades = 0
  2915.             lcCadena = 'DIEZ '
  2916.         Case lnUnidades = 1
  2917.             lcCadena = 'ONCE '
  2918.         Case lnUnidades = 2
  2919.             lcCadena = 'DOCE '
  2920.         Case lnUnidades = 3
  2921.             lcCadena = 'TRECE '
  2922.         Case lnUnidades = 4
  2923.             lcCadena = 'CATORCE '
  2924.         Case lnUnidades = 5
  2925.             lcCadena = 'QUINCE '
  2926.         Other
  2927.             lcCadena = 'DIECI' + lcCadena
  2928.         Endcase
  2929.     Case lnDecenas = 2
  2930.         lcCadena = Iif(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
  2931.     Case lnDecenas = 3
  2932.         lcCadena = 'TREINTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2933.     Case lnDecenas = 4
  2934.         lcCadena = 'CUARENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2935.     Case lnDecenas = 5
  2936.         lcCadena = 'CINCUENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2937.     Case lnDecenas = 6
  2938.         lcCadena = 'SESENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2939.     Case lnDecenas = 7
  2940.         lcCadena = 'SETENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2941.     Case lnDecenas = 8
  2942.         lcCadena = 'OCHENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2943.     Case lnDecenas = 9
  2944.         lcCadena = 'NOVENTA ' + Iif(lnUnidades = 0, '', 'Y ') + lcCadena
  2945.     Endcase
  2947. *--- Analizo las centenas
  2948.     Do Case
  2949.     Case lnCentenas = 1
  2950.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  2951.             'CIEN ', 'CIENTO ') + lcCadena
  2952.     Case lnCentenas = 2
  2953.         lcCadena = 'DOSCIENTOS ' + lcCadena
  2954.     Case lnCentenas = 3
  2955.         lcCadena = 'TRESCIENTOS ' + lcCadena
  2956.     Case lnCentenas = 4
  2957.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  2958.     Case lnCentenas = 5
  2959.         lcCadena = 'QUINIENTOS ' + lcCadena
  2960.     Case lnCentenas = 6
  2961.         lcCadena = 'SEISCIENTOS ' + lcCadena
  2962.     Case lnCentenas = 7
  2963.         lcCadena = 'SETECIENTOS ' + lcCadena
  2964.     Case lnCentenas = 8
  2965.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  2966.     Case lnCentenas = 9
  2967.         lcCadena = 'NOVECIENTOS ' + lcCadena
  2968.     Endcase
  2969.  
  2970. *--- Armo el retorno terna a terna
  2971.     lcRetorno = lcCadena + lcMiles + lcRetorno
  2972.     lnTerna = lnTerna + 1
  2973. Enddo
  2974. If lnTerna = 1
  2975.     lcRetorno = 'CERO '
  2976. Endif
  2977. Return lcRetorno
  2978. Endfu
  2979. *--- Analizo las centenas
  2980.     Do Case
  2981.     Case lnCentenas = 1
  2982.         lcCadena = Iif(lnUnidades = 0 And lnDecenas = 0, ;
  2983.             'CIEN ', 'CIENTO ') + lcCadena
  2984.     Case lnCentenas = 2
  2985.         lcCadena = 'DOSCIENTOS ' + lcCadena
  2986.     Case lnCentenas = 3
  2987.         lcCadena = 'TRESCIENTOS ' + lcCadena
  2988.     Case lnCentenas = 4
  2989.         lcCadena = 'CUATROCIENTOS ' + lcCadena
  2990.     Case lnCentenas = 5
  2991.         lcCadena = 'QUINIENTOS ' + lcCadena
  2992.     Case lnCentenas = 6
  2993.         lcCadena = 'SEISCIENTOS ' + lcCadena
  2994.     Case lnCentenas = 7
  2995.         lcCadena = 'SETECIENTOS ' + lcCadena
  2996.     Case lnCentenas = 8
  2997.         lcCadena = 'OCHOCIENTOS ' + lcCadena
  2998.     Case lnCentenas = 9
  2999.         lcCadena = 'NOVECIENTOS ' + lcCadena
  3000.     Endcase
  3002. *--- Armo el retorno terna a terna
  3003.     lcRetorno = lcCadena + lcMiles + lcRetorno
  3004.     lnTerna = lnTerna + 1
  3005. Enddo
  3006. If lnTerna = 1
  3007.     lcRetorno = 'CERO '
  3008. Endif
  3009. Return lcRetorno
  3010. Endfu
  3011. *--- Armo el retorno terna a terna
  3012.     lcRetorno = lcCadena + lcMiles + lcRetorno
  3013.     lnTerna = lnTerna + 1
  3014. Enddo
  3015. If lnTerna = 1
  3016.     lcRetorno = 'CERO '
  3017. Endif
  3018. Return lcRetorno
  3019. Endfunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!