Basecamp

BaseCamp és un senzill programa per la gestió d'un càmping d'unes 100 parcel.les, evidentment aquest programa està fet per les necessitats d'aquest petit càmping, però tot i això es pot adaptar a les necessitats d'altres.
També cal dir que aquest programa està fet en Access (Access97) això permet que si tens coneixements d'Access el puguis modificar al teu gust. La potència d'Access permet fer moltes coses.

Les característiques bàsiques de Basecamp són:
- Adreces de clients, treballadors i personals.
- Facturació, càrrecs, dipòsits.
- Etiquetes.
- Reserves (no controla l'ocupació).
- Moneda estrangera, compra, venda.
- Control de pàrking caravanes/embarcacions.
- Resums de facturacio, etc...
- Llistats variats.

Basecamp és totalment gratuït, i l'autor en, Josep Esteve Brujats, no es vol fer responsable de cap perjudici que Basecamp pogués arribar a causar.

Com a contrapartida demano que ningú utilitzi Basecamp per vendre'l a altres usuaris i que respecti la procedència de l'autor.

Download Basecamp.zip (500 Kb) versio2007 El Download del Basecamp és gratuït, l'únic que demano és un e-mail explicant-me per a què l'usaràs i/o que n'opines a: ridater@yahoo.com

Càmping Ridaura

Exemples de VBA

'Mira si un formulari està carregat'
Function EstaCarregat(ByVal txtNombreFormulario As String) As Boolean
'mira si un formulari està carregat'

Const conObjetoEstaCerrado = 0
Const conModoDiseño = 0

If SysCmd(acSysCmdGetObjectState, acForm, txtNombreFormulario) <> conObjetoEstaCerrado Then If Forms(txtNombreFormulario).CurrentView <> conModoDiseño Then EstaCarregat = True
End If
End If

End Function

Function lletra_dni(dni)
'calcula la lletra del dni
Const DNILET = "TRWAGMYFPDXBNJZSQVHLCKE"
lletra_dni = Mid(DNILET, 1 + (dni Mod 23), 1)
End Function