documentos

*introduccion




SET TALK OFF
SET STATUS bar OFF
SET BELL on
CLEAR PROGRA
CLEAR MEMORY
CLEAR
SET COLOR TO W+/N

*variables
op=0
f=DATE()
STORE SPACE(7) TO pass*PASSWORD
*formato
@2,2,30,100 box
@5,22,8,78 box
@4,19,9,81 box
@15,30,25,70 box

*datos
@6,43 say "PASSWORD" FONT "ARIAL BLACK",15
@28,10 SAY F
SET CLOCK TO 28,85
@18,48 GET passREAD

*if
IF pass="P52013" OR pass="p52013" then
WAIT windows "Acceso Aprobado"
CLEAR
ELSE
WAIT WINDOW "Acceso Denegado"
Cancel
Endif


*OPCIONES
*formato
@1,1,30,100 box
@3,20,3,80box
@2,75,4,75 box
@10,25,10,75 box
@9,26,11,26 box
@9,74,11,74 box
@22,26,22,75 box
@21,27,23,27 box
@21,74,23,74 box
*datos
@1.5,40 say "Pago Personal" font "Arial Black",12
@24,35 say"Hoy:"
@26,35 say "A Hora:"
@24,45 say F
SET CLOCK TO 26,45
*prom
@12,45 prom "A) Ingresos"
@14,45 prom " Actualizar"
@16,45 prom "C) Consultas"
@18,45 prom "D) Acerca de"
@20,45 prom "E) Salir"Menu to op
*do case*
DO case
CASE op=1
DO Ingresos
CASE op=2
DO Actualizar
CASE op=3
DO Consultas
CASE op=4
DO Acerca
CASE op=5
WAIT WINDOW "presiones una tecla para salir"ENDCASE
*procedure Ingresos*
procedure Ingresos
*introduccion
CLEAR
*formato
@2,2,40,100 box
@10,10,10,90 box
@20,10,20,90 box
@23,45,33,45 box
@36.5,40,39,70 box
*datos
@4,43 say"INGRESOS" FONT "Arial Black",14
@9,10 say "Datos:"
@22,15 say "INGRESOS"
@22,60 SAY "EGRESOS"
@37,42 say "LIQUIDO:"
SET CLOCK TO @38,90

USE Ingresos
APPEND BLANK
*datos*
@12,10say "Id:" Get Id
@14,10 say "Nombre:" get Nombre
@16,10 say "Horas Extras:" get hrs_extras
@18,10 say "Días Auscentes:" get Dias_au
@12,60 say "Puesto:" get puesto
@14,60 say "Hrs extras 2:" gethrs_extra2
@16,60 say "Sem_Ausentes:" get Sem_Au

*ingresos
@24,10 say "Sueldo Base:" get s_base
@26,10 say "Bonificacion" get bonifica
@28,10 say "Insentivo:" get Insentivo
@30,10 say "Pago...