HMGforum.com

Code: Select all

/*
 * HMG - Harbour Win32 GUI library
 * Copyright 2002-2008 Roberto Lopez <mail.box.hmg@gmail.com>
 * http://www.hmgforum.com//
*/

#include "hmg.ch"

Function Main()

	set century on
	REQUEST DBFCDX
	RddSetDefault( "DBFCDX" )

	CreaBase()                          //CREA LA BASE DE DATOS DBF 

   DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 200 ;
      HEIGHT 200 ;
      MAIN;
      TITLE 'Button Test'

      DEFINE MAIN MENU
              POPUP 'Test'
                ITEM 'Disable button' ACTION Form_1.Button_1.Enabled := .f.
                ITEM 'Enable button'  ACTION Form_1.Button_1.Enabled := .t.
              END POPUP
      END MENU

      @ 30,70 BUTTON Button_1 CAPTION "OK" WIDTH 50 HEIGHT 50 ACTION MeteDatosaDBF()
 

   END WINDOW

   CENTER WINDOW Form_1

   ACTIVATE WINDOW Form_1

Return
*-------------------------------------------------------------------------------------------------------------------------------------------------------------
PROCEDURE CreaBase()
LOCAL nAreaSala := SELECT('Salarios1')
LOCAL aMidb := {}

IF nAreaSala == 0

   IF ! FILE('Salarios1.DBF' )

      aMidb:= {{ "CodSala"   , "N", 010, 0}, ; 
               { "Fecha"     , "D", 008, 0}, ; 
               { "De"        , "N", 010, 2}, ; 
               { "Hasta"     , "N", 010, 2}, ; 
               { "Subsidio"  , "N", 010, 2}} 

      DBCREATE('Salarios1.DBF', aMidb )

      USE Salarios1 ALIAS Salarios1 NEW SHARED

      IF ! FILE( 'Salarios1.CDX' )
         INDEX ON STR(CodSala, 10) TAG ICodSala
         INDEX ON DTOS(Fecha) TAG IFecha
         INDEX ON STR(De, 10) TAG IDe
         INDEX ON STR(Hasta, 10) TAG IHasta
         INDEX ON STR(Subsidio, 10) TAG ISubsidio
      ENDIF

      Salarios1->(ORDSETFOCUS('ICodSala'))
      Salarios1->(ORDSETFOCUS('IFecha'))
      Salarios1->(ORDSETFOCUS('IDe'))
      Salarios1->(ORDSETFOCUS('IHasta'))
      Salarios1->(ORDSETFOCUS('ISubsidio'))
      Salarios1->(DBCLOSEAREA())

   ENDIF
ENDIF

   USE Salarios1 ALIAS Salarios1 NEW EXCLUSIVE

      IF ! FILE( 'Salarios1.CDX' )
         INDEX ON STR(CodSala, 10) TAG ICodSala
         INDEX ON DTOS(Fecha) TAG IFecha
         INDEX ON STR(De, 10) TAG IDe
         INDEX ON STR(Hasta, 10) TAG IHasta
         INDEX ON STR(Subsidio, 10) TAG ISubsidio
      ENDIF

      Salarios1->(ORDSETFOCUS('ICodSala'))
      Salarios1->(ORDSETFOCUS('IFecha'))
      Salarios1->(ORDSETFOCUS('IDe'))
      Salarios1->(ORDSETFOCUS('IHasta'))
      Salarios1->(ORDSETFOCUS('ISubsidio'))

RETURN NIL
*------------------------------------------------------------------------------------------------------------------------------------------------------------
PROCEDURE MeteDatosaDBF()
LOCAL cSueldo:= ""
LOCAL nSueldo:= 0
LOCAL nSubsidio:=0
LOCAL cSubsidio:= ""


DBSELECTAREA("Salarios1") 	//SELECCIONA LA BASE DE DATOS A UTILIZAR
ZAP                       	//BORRA TODO LO QUE HAY EN LA DBF 

Salarios1->(dbAppend())   	// AGREGA UN REGISTRO EN BLANCO
Salarios1->CodSala  := 1  	//EMPIEZA A INGRESAR LOS DATOS EN LOS CAMPOS DE LA DBF 
Salarios1->Fecha    := Date()
Salarios1->De       := .01
Salarios1->Hasta    := 1768.96
Salarios1->Subsidio := 407.02

Salarios1->(dbAppend())
Salarios1->CodSala  := 2
Salarios1->Fecha    := Date()
Salarios1->De       := 1768.97
Salarios1->Hasta    := 2653.38
Salarios1->Subsidio := 406.83

Salarios1->(dbAppend())
Salarios1->CodSala  := 3
Salarios1->Fecha    := Date()
Salarios1->De       := 2653.39
Salarios1->Hasta    := 3472.84
Salarios1->Subsidio := 406.62

Salarios1->(dbAppend())
Salarios1->CodSala  := 4
Salarios1->Fecha    := Date()
Salarios1->De       := 3472.85 
Salarios1->Hasta    := 3537.87
Salarios1->Subsidio := 392.77

Salarios1->(dbAppend())
Salarios1->CodSala  := 5
Salarios1->Fecha    := Date()
Salarios1->De       := 3537.88
Salarios1->Hasta    := 4446.15
Salarios1->Subsidio := 382.46

Salarios1->(dbAppend())
Salarios1->CodSala  := 6
Salarios1->Fecha    := Date()
Salarios1->De       := 4446.16
Salarios1->Hasta    := 4717.18
Salarios1->Subsidio := 354.23

Salarios1->(dbAppend())
Salarios1->CodSala  := 7
Salarios1->Fecha    := Date()
Salarios1->De       := 4717.19
Salarios1->Hasta    := 5335.42
Salarios1->Subsidio := 324.87

Salarios1->(dbAppend())
Salarios1->CodSala  := 8
Salarios1->Fecha    := Date()
Salarios1->De       := 5335.43
Salarios1->Hasta    := 6224.67
Salarios1->Subsidio := 294.63

Salarios1->(dbAppend())
Salarios1->CodSala  := 9
Salarios1->Fecha    := Date()
Salarios1->De       := 6224.68
Salarios1->Hasta    := 7113.90
Salarios1->Subsidio := 253.54

Salarios1->(dbAppend())
Salarios1->CodSala  := 10
Salarios1->Fecha    := Date()
Salarios1->De       := 7113.91
Salarios1->Hasta    := 7382.33
Salarios1->Subsidio := 217.61

Salarios1->(dbAppend())
Salarios1->CodSala  := 11
Salarios1->Fecha    := Date()
Salarios1->De       := 7382.34
Salarios1->Hasta    := 9999999.99
Salarios1->Subsidio := 0

cSueldo := InputBox ( 'Ingrese sueldo' , 'InputBox Demo' , 'Default Value'  )   // TE PREGUNTA QUE SUELDO TIENES?

MsgBox(cSueldo)

nSueldo := Val(cSueldo)

MsgBox("El sueldo es: "+STR(nSueldo))
*CHECA QUE SUBSIDIO TIENES:

n:= 1
Salarios1->(dbGoTop())
DO WHILE !EOF()																	// AQUI HACE LA COMPARACION Y BUSCA EL "SUBSIDIO" EN LA DBF 
	IF (( nSueldo >= Salarios1->De ) .AND. ( nSueldo <= Salarios1->Hasta ))
		nSubsidio := Salarios1->Subsidio
		EXIT
	ENDIF
	dbSkip()
	n:= n + 1
END DO

cSubsidio := Str(nSubsidio,15,2)

MsgBox("El subsidio es de: " + cSubsidio)

RETURN NIL