topic-19550

Board index FiveWin para Harbour/xHarbour Facturar por impresiones !!

Posts: 46

Joined: Tue Oct 11, 2005 02:23 PM

Facturar por impresiones !!
Posted: Tue Aug 10, 2010 12:23 AM

Hola Foro: La pregunta es la siguiente:
Estoy generando una aplicacion, la cual le debo cobrar al cliente por su uso, o sea que no se la vendo, es como si fuera un alquiler. La pregunta es la siguiente:
como hacer para llevar un contador de impresiones que haga el cliente, pero que este contador no este en una .DBF, ni que tenga que reenviarle el aplicativo con el tope de copias dentro del programa. Existe algo para realizar esto ????

Desde ya muchas gracias ....

Carlos Gustavo Marucco

Rio Gallegos - Santa Cruz

PATAGONIA ARGENTINA

FWH 10.08 - Eagle1 Ver 6.0 - xHarbour 1.2.1 Rev 6717

xMate Ver 1.15 - Workshop Ver 4.5 - Windows 7

cuatecatl82

Posts: 625

Joined: Wed Mar 14, 2007 06:49 PM

Re: Facturar por impresiones !!
Posted: Tue Aug 10, 2010 12:48 AM

Que tal Carlos buenas tardes...

Se me ocurre trabajar con archivos .ini que son textos planos que puedes abrir y modificar con notepad:

Code (fw): Select all Collapse

[Reportes]
Actual=27        --> Cantidad de Reportes Impresos
Maximo = 50   --> Maximo de Reportes Permitidos

lo puedes manipular cambiandole la extención para que este "disfrazado" dentro de la carpeta "C:\Windows\System32\" ya que como muchos decimos casi nadie se mete a buscar que encuentra ahí, o mejor aùn una base de datos tambien con extención diferente para camuflagear (cambialo de .dbf a .sys por ejemplo) y tener estos mismos campos y encriptarlos y desencriptarlos para comparar la cantidad de reportes, puedes tambien jugar con cambiar la fecha y la hora de cuando modifiques este archivo para que si tu quieres despistes a alguien que piense que con la fecha y hora puede encontrarlo y manipularlo.

Yo lo hago asì..

Code (fw): Select all Collapse

LOCAL cDBFFile:= GetSysDir()+"\xpnthaf7.msi"

USE cDBFFile "DEMO" exclusive
         GOTO TOP
         REPLACE (1)->UltimoUso  WITH encrypt(date(),"miclavepara esconder")    // para protegerlo
                                                     //decrypt((1)->UltimoUso,"miclavepara esconder") para desprotegerlo
USE

FechArch(cDBFFile, "21:50:43", "03/07/1999")

//--------------------------------------------------------

FUNCTION FechArch(cFile,cHora,cFecha)   //para cambiar fecha y hora de archivos candados y despistar al enemigo.. jejeje :)

LOCAL hFile:= FOPEN( cFile, FO_READWRITE )
 
   SetFTime(hFile, cHora, FixYear(CTOD(cFecha)))
   FCLOSE( hFile )

RETURN nil

Espero haberte ayudado o darte una pista..
Saludos..

Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: Facturar por impresiones !!
Posted: Tue Aug 10, 2010 01:53 AM

Carlos,

Si lo quieres hacer sin coste, una opcion seria la que comenta Victor o cualquier otra ocultando/disfrazando/encriptando el valor, otra seria que mandaras via internet el valor para incrementar tu contador.
Si no, existenten unas llaves usb 20-30 dls que tienen una poca memoria, suficiente para controlar el contador y otras cosillas mas que se te ocurran.

La interface no es muy complicado via api, yo uso las aladdin y son muy practicas.

Saludos

FWH 10.6 + xHarbour + Borland 582

FiveTech Support Forums

Continue the discussion