SoloCodigo

Hola buenas tardes.
**************************  
**************************  
**************************  
*
* AMBIENTE.PRG  
* Configurar entorno en este archivo
*
*
Set Exact ON
Set SysMenu To
Set Century On
Set Deleted OFF
Set Decimal to 2
SET DATE AMERICAN
*etc
*
Set Procedure To Progs\Funciones  && Mas adelante se usara
*
Public vUsuario, vNivel As Number
Public vNomUsuario, vNomCorto, vEmpresa, vSucursal, vServerCob As Character
*
* Define parametros para el manejador de la base de datos
*
vServerCob = "Driver=SQl Server;Server=NOMBRESERVIDOR;UID=USUARIODBA;PWD=PWDDBA;Database=NOMBREDATABASE"  
*  
VUsuario  = 1
vNivel      = 1
vNomUsuario = ' Usuario de Prueba '
vNomCorto   = 'XXX'
vEmpresa    = ' NOMBRE EMPRESA '
vSucursal   = 'LASUCU'
Set Sysmenu to Default
*
**************************  
*** Fin de ambiente *********  
**************************  
**************************  
*
*
* FUNCIONES.PRG
* Esta funcion la utilizaremos mas adelante ya en los formularios
*
*
Function TraeDatos
Parameters cSQL, Base
Local Conexion,lnResult As Integer
Local Mensaje As Character
   Conexion = SQLStringConnect(vServerCob)   
   If Conexion < 0
      Local Array Errores[1]
      AError(Errores)
      Return Errores[2]+':'+Transform(Errores[5])
   EndIf
   lnResult = SQLExec(Conexion, cSQL, Base)
   If lnResult <= 0
      Local Array Errores[1]
      AError(Errores)
      Wait Errores[2]+':'+Transform(Errores[5]) Window
      lnResult = SQLDisconnect(Conexion)
      Return 'Error'
   Else
      lnResult = SQLDisconnect(Conexion)
      If lnresult < 0
         Return 'Error'
      EndIf
   Endif
Return ''
*
*
* Fin de funciones.prg  ,  entre otras mas…Actualizar, Borrar, etc.
*
**************************  
**************************  
**************************  
**************************  
*
*
* ACCESO.SCX
* Este formuilario llama a la funcion TraeDatos
* Donde busca en la base de datos la tabla USUARIOS,
* el codigo desplegado en TXTUsuario,  para validar
* la existencia del mismo
*
*
cSQL = ''
cSQL = cSQL + " Select Nombre, NomCorto, Password, Nivel "
cSQL = cSQL + "   From Usuarios "
cSQL = cSQL + "  Where Codigo = " + Alltrim(Str(Val(ThisForm.txtUsuario.Value),3))
Conexion = TraeDatos(cSQL, 'Usuario1')
*
If Len(Trim(Conexion)) > 0
   =MessageBox(Substr(Conexion,At(':',Conexion)+1),16,Substr(Conexion,1,At(':',Conexion)-1))
   Return .F.
ENDIF
*
Select Usuario1
If Reccount() = 1
   ThisForm.txtNombre.Value  = Usuario1.Nombre
   ThisForm.CMDAceptar.Default = .T.
Else
   =MessageBox('Código de Usuario no existe',16, 'Error al Teclear Usuario.')
   ThisForm.TXTUsuario.Value = ''
   ThisForm.TXTUsuario.SetFocus
ENDIF
*
*
*
Espero y le sirva, su amigo Ignacio, Tijuana Mexico, nachito7310@hotmail.com
PD : Felicidades con el foro, es la primera vez que entro.