FiveTech Software tech support forums

... echo $(BCDIR)\lib\psdk\shell32.lib, >> b32.bc Las comas bien, el signo '+' mal. Por cierto he conseguido compilar y ejecutar... Aparece en PESETAS!!!! Que bueno!!! Y creo que me valdrá. Gracias de nuevo.

... especifico el valor por defecto en la funcion, el programa se queda esperando sin hacer nada. El codigo es este, es una funcion de conversion de pesetas a Euros y viceversa que realice en su dia en clipper. Y ahora como estoy mirando de volver a Xbase con Harbour, jaja, ya he visto a mas de uno ...

Manu, interesante ejemplo, sobre el cual me permito hacer alguna observación: Tu controlador tiene cosas como AllTrim( str( cantidad ) ) + " pesetas son: " + AllTrim( str( ::modelo:monedaAEuros( cantidad ) ) ) + " euros" , que es parte de la VISTA. Se demuestra si tratamos de ...

... TOleAuto():New( "Excel.Application" ) oHoja := oExcel:Get( "ActiveSheet" ) DEFINE XLS FORMAT nFormat1 PICTURE '#,##0' // para pesetas DEFINE XLS FORMAT nFormat2 PICTURE '#,##0.00' // para euros DEFINE XLS FONT nFont1 NAME "Arial" HEIGHT 14 ITALIC BOLD DEFINE XLS FONT ...

Me parece bien. También puse un control para que una vez que la cantidad está en euros no la vuelva a convertir a euros y lo mismo si ya está en pesetas.

Alvaro

... molesté en buscar una copia pirata del programa Contaplus (Sp Editores, en ese tiempo), era tan barato que lo compré en una ¡ Librería ! I(5.000 pesetas de entonces = 30,00 euros actuales) Esa es otra manera de evitar el pirateo y de expander un producto. Y donde lo instalé lo actualizaron con ...

... TOleAuto():New( "Excel.Application" ) oHoja := oExcel:Get( "ActiveSheet" ) DEFINE XLS FORMAT nFormat1 PICTURE '#,##0' // para pesetas DEFINE XLS FORMAT nFormat2 PICTURE '#,##0.00' // para euros DEFINE XLS FONT nFont1 NAME "Arial" HEIGHT 14 ITALIC BOLD DEFINE XLS FONT ...

... // c‚ntimos en letras ENDI ELSE cCenLet := ALLTRIM(STR(nCentimos,2,0)) + "/100" ENDI ENDI IF lFemenino // si los importes son en femeninos, p.e. pesetas o libras cEntLet := STRTRAN(cEntLet, "un", "una", 1) cEntLet := STRTRAN(cEntLet, "ciento","cienta") cCenLet := STRTRAN(cCenLet,"un","una", 1) ...

la verdad esta muy buena, hare una version para venezuela que en vez de euros y pesetas, tenga bolivares y bolivares fuertes, si el autor no tiene objeciones, solo una cosita que vi y me enredo, en la cinta, cuando subo con la barra de desplazamiento, despues no ...

... para que mis usuarios se conecten y agregen información. Se requiere poder consultar la información. Solución: xbscript + xharbour + IIS. Cero pesetas y usando el código xbase que ya conoces. El siguiente link muestra el ejemplo que tomé del foro de xharbour funcionando en mi pc. http://sicredit.no-ip.info/ ...