Control de Reservas
MyApp
Gustavo LOmazzi
1.0
GenericTablet
False
1024
768
True
True
True
WebApp
False
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Compilaciones
C:\Users\gusta\Documents\VisualNeoWeb\Libraries\img\default-icon.png
es
#000000
[AndroidOS,iOS,WindowsPhoneOS]
normal
True
True
False
True
True
False
False
True
False
False
CreateEmptyArray [tableData]
SetVar [tableData] [data]
ArrayLen [tableData] [totalRecords]
If [totalRecords] == 1
SetVar [UsuarioRemoto] [tableData(0)('Nombre')]
neoPhpExecSql "db1" "casas" "[UsuarioRemoto]" "CasasMostrar"
else
SetVar [Nombre] ""
SetVar [Telefono1] ""
SetVar [Telefono2] ""
SetVar [Email] ""
FocusObject "TextInput2"
GotoPage "NuevoUsuario"
endif
[data]|STRING|Verificando Usuario
CreateEmptyArray [tableData]
SetVar [tableData] [data]
ArrayLen [tableData] [totalRecords]
If [totalRecords] > 0
.Ocultando botones de casas
Loop 1 10 [xx]
HideObject "Ca[xx]" "" 0
If [xx] == 0
exitloop
endif
endloop
SetVar [Casa1] "[tableData(0)('Nombre1')]"
SetVar [Casa2] "[tableData(0)('Nombre2')]"
SetVar [Casa3] "[tableData(0)('Nombre3')]"
SetVar [Casa4] "[tableData(0)('Nombre4')]"
SetVar [Casa5] "[tableData(0)('Nombre5')]"
SetVar [Casa6] "[tableData(0)('Nombre6')]"
SetVar [Casa7] "[tableData(0)('Nombre7')]"
SetVar [Casa8] "[tableData(0)('Nombre8')]"
SetVar [Casa9] "[tableData(0)('Nombre9')]"
SetVar [Casa10] "[tableData(0)('Nombre10')]"
If [Casa1] > " "
ShowObject "Ca1" "" 0
endif
If [Casa2] > " "
ShowObject "Ca2" "" 0
endif
If [Casa3] > " "
ShowObject "Ca3" "" 0
endif
If [Casa4] > " "
ShowObject "Ca4" "" 0
endif
If [Casa5] > " "
ShowObject "Ca5" "" 0
endif
If [Casa6] > " "
ShowObject "Ca6" "" 0
endif
If [Casa7] > " "
ShowObject "Ca7" "" 0
endif
If [Casa8] > " "
ShowObject "Ca8" "" 0
endif
If [Casa9] > " "
ShowObject "Ca9" "" 0
endif
If [Casa10] > " "
ShowObject "Ca10" "" 0
endif
RemoveClass "Ca1" "btn-default"
SetObjectStyle "Ca1" "background" "#0000FF"
SetObjectStyle "Ca1" "color" "#FFFFFF"
GotoPage "MenuPrincipal"
else
endif
[data]|STRING|
.SetVar [Texto] "Realizando consulta"
GotoPage "Mensaje"
CreateEmptyArray [tableData]
SetVar [tableData] [data]
ArrayLen [tableData] [totalRecords]
.Ocultando botones de dias del mes y pintando de verde los mismos
Loop 1 31 [xx]
RemoveClass "d[xx]" "btn-default"
SetObjectStyle "d[xx]" "background" "#00FF00"
SetObjectStyle "d[xx]" "color" "#000000"
HideObject "d[xx]" "" 0
SetCompVar [Cliente[xx]] ""
If [xx] == 0
exitloop
endif
endloop
.Mostrando dias del mes
Loop 1 [CantDias] [xx]
If [MesNumero] == [NAB.MonthNum]
If [xx] >= [NAB.DayNum]
ShowObject "d[xx]" "" 0
endif
else
ShowObject "d[xx]" "" 0
endif
If [xx] == 0
exitloop
endif
endloop
If [PrimeraVez] == 0
Loop 1 31 [xxx]
RemoveClass "Ca[xxx]" "btn-default"
SetObjectStyle "Ca[xxx]" "background" "#0392CE"
SetObjectStyle "Ca[xxx]" "color" "#000000"
endloop
RemoveClass "Ca1" "btn-default"
SetObjectStyle "Ca1" "background" "#0000FF"
SetObjectStyle "Ca1" "color" "#FFFFFF"
SetVar [PrimeraVez] 1
endif
.Mostrando nombres de la reserva
If [totalRecords] > 0
Loop 0 [totalRecords] [x]
SetVar [Fecha] "[tableData([x])('Fecha')]"
StrParse "[Fecha]" "-" [Fe]
SetVar [Dia] [Fe(2)]
If [Dia] < 10
StrDel "[Dia]" 0 1 [Dia]
endif
SetCompVar [Cliente[Dia]] "[tableData([x])('Nombre')]"
If [x] == 0
GotoPage "ReservasVer"
endif
endloop
else
GotoPage "ReservasVer"
endif
[data]|STRING|Carga de Reservas mes determinado
CreateEmptyArray [tableData]
SetVar [tableData] [data]
ArrayLen [tableData] [totalRecords]
.Ocultando botones de casas
Loop 1 10 [xx]
HideObject "Ca[xx]" "" 0
If [xx] == 0
exitloop
endif
endloop
If [totalRecords] == 1
SetVar [Casa1] "[tableData(0)('Nombre1')]"
SetVar [Casa2] "[tableData(0)('Nombre2')]"
SetVar [Casa3] "[tableData(0)('Nombre3')]"
SetVar [Casa4] "[tableData(0)('Nombre4')]"
SetVar [Casa5] "[tableData(0)('Nombre5')]"
SetVar [Casa6] "[tableData(0)('Nombre6')]"
SetVar [Casa7] "[tableData(0)('Nombre7')]"
SetVar [Casa8] "[tableData(0)('Nombre8')]"
SetVar [Casa9] "[tableData(0)('Nombre9')]"
SetVar [Casa10] "[tableData(0)('Nombre10')]"
If [Casa1] > " "
ShowObject "Ca1" "" 0
endif
If [Casa2] > " "
ShowObject "Ca2" "" 0
endif
If [Casa3] > " "
ShowObject "Ca3" "" 0
endif
If [Casa4] > " "
ShowObject "Ca4" "" 0
endif
If [Casa5] > " "
ShowObject "Ca5" "" 0
endif
If [Casa6] > " "
ShowObject "Ca6" "" 0
endif
If [Casa7] > " "
ShowObject "Ca7" "" 0
endif
If [Casa8] > " "
ShowObject "Ca8" "" 0
endif
If [Casa9] > " "
ShowObject "Ca9" "" 0
endif
If [Casa10] > " "
ShowObject "Ca10" "" 0
endif
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
[data]|STRING|Recibe casas del propietario
CreateEmptyArray [tableData]
SetVar [tableData] [data]
ArrayLen [tableData] [totalRecords]
CreateEmptyObject [miobjsuma]
SetVar [miobjsuma] [tableData]
SetVar [total] [miobjsuma(0)('total')]
.Agregando punto de miles a resultado
StrLen "[total]" [Largo]
If [Largo] == 4
StrIns "." "[total]" 1 [total]
endif
If [Largo] == 5
StrIns "." "[total]" 2 [total]
endif
If [Largo] == 6
StrIns "." "[total]" 3 [total]
endif
neoPhpExecSql "db1" "consultareservasver" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasVerConsultas"
[data]|STRING|
CreateEmptyArray [tableData]
SetVar [tableData] [data]
ArrayLen [tableData] [totalRecords]
SetVar [CantidadReservas] [totalRecords]
.AlertBox "" "[tableData]" ""
CreateEmptyArray [Lista]
Math "[totalRecords]-1" 1 [Cantidad]
Loop 0 [Cantidad] [x]
DeleteVar "[Nombre]"
SetCompVar "[Nombre]" "[tableData([x])('Nombre')]"
ArrayAddItem "[Lista]" "[Nombre]"
.DeleteVar "[DiaIngreso]"
.SetCompVar "[DiaIngreso]" "[tableData([x])('Fecha')]"
.StrParse "[DiaIngreso]" "-" [Dat]
.jsAlert "(Dat3)"
.SetCompVar "[Dia]" [Dat3]
.ArrayAddItem "[Lista]" "Ingresa el [Dia]"
.DeleteVar "[Casa]"
.SetCompVar "[Casa]" "[tableData([x])('Casa')]"
.ArrayAddItem "[Lista]" "[Casa]"
.DeleteVar "[Precio]"
.SetCompVar "[Precio]" "[tableData([x])('Precio')]"
.ArrayAddItem "[Lista]" "$[Precio] por dia"
.DeleteVar "[TotalReserva]"
.SetCompVar "[TotalReserva]" "[tableData([x])('Total')]"
.ArrayAddItem "[Lista]" "$[TotalReserva] es el total"
.DeleteVar "[Dias]"
.SetCompVar "[Dias]" "[tableData([x])('Dias')]"
.If [Dias] > 1
.ArrayAddItem "[Lista]" "Se queda [Dias] dias"
.else
.ArrayAddItem "[Lista]" "Se queda [Dias] dia"
.endif
ArrayAddItem "[Lista]" "--------------------------------"
endloop
.AlertBox "" "aca" ""
GotoPage "ConsultasVer"
[data]|STRING|
fadeIn
fadeOut
SetVar [User] ""
SetVar [Pass] ""
FocusObject "TextInput1"
224px
318px
568px
90px
[Clave]
472px
416px
320px
80px
<strong>INGRESAR</strong>
glyphicon-log-in
primary
neoPhpExecSql "db1" "usuarios" "[Clave]" "Usuarios"
224px
272px
568px
48px
INGRESE CLAVE DE ACCESO
0px
0px
1024px
144px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126.png
0px
656px
1024px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126a.png
400px
24px
608px
56px
CONTROL DE RESERVAS
bounceIn
bounceOut
FocusObject "TextInput2"
424px
176px
584px
90px
[Nombre]
0px
0px
1024px
144px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126.png
0px
656px
1024px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126a.png
400px
24px
608px
56px
INGRESO NUEVO USUARIO
8px
176px
416px
90px
0
14px
199px
408px
48px
NOMBRE Y APELLIDO
424px
272px
584px
90px
[Telefono1]
8px
272px
416px
90px
0
14px
295px
408px
48px
TELEFONO 1
424px
368px
584px
90px
[Telefono2]
8px
368px
416px
90px
0
14px
391px
408px
48px
TELEFONO 2
424px
464px
584px
90px
[Email]
8px
464px
416px
90px
0
14px
487px
408px
48px
EMAIL
688px
664px
320px
80px
<strong>INGRESAR</strong>
glyphicon-log-in
primary
IsVarEmpty [Nombre] [EstadoNombre]
If [EstadoNombre] == false
StrUpper "[Nombre]" [Nombre]
StrLower "[Email]" "[Email]"
neoPhpExecSql "db1" "usuarioingreso" "[Nombre]::[Clave]::[Telefono1]::[Telefono2]::[Email]" ""
SetVar [Ca1] ""
SetVar [Ca2] ""
SetVar [Ca3] ""
SetVar [Ca4] ""
SetVar [Ca5] ""
SetVar [Ca6] ""
SetVar [Ca7] ""
SetVar [Ca8] ""
SetVar [Ca9] ""
SetVar [Ca10] ""
GotoPage "NuevoUsuario2"
else
SetVar [Texto] "DEBE INGRESAR NOMBRE Y APELLIDO, ES OBLIGATORIO"
SetVar [Pagina] "NuevoUsuario"
GotoPage "Mensaje2"
endif
bounceIn
bounceOut
FocusObject "TextInput6"
0px
0px
1024px
144px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126.png
0px
656px
1024px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126a.png
272px
24px
736px
56px
INGRESO CASAS NUEVO USUARIO
680px
672px
320px
80px
<strong>INGRESAR</strong>
glyphicon-log-in
primary
IsVarEmpty [Ca1] [EstadoCa]
If [EstadoCa] == false
StrUpper "[Ca1]" [Ca1]
StrUpper "[Ca2]" [Ca2]
StrUpper "[Ca3]" [Ca3]
StrUpper "[Ca4]" [Ca4]
StrUpper "[Ca5]" [Ca5]
StrUpper "[Ca6]" [Ca6]
StrUpper "[Ca7]" [Ca7]
StrUpper "[Ca8]" [Ca8]
StrUpper "[Ca9]" [Ca9]
StrUpper "[Ca10]" [Ca10]
neoPhpExecSql "db1" "casaingreso" "[Nombre]::[Ca1]::[Ca2]::[Ca3]::[Ca4]::[Ca5]::[Ca6]::[Ca7]::[Ca8]::[Ca9]::[Ca10]" ""
GotoPage "NuevoUsuario3"
else
SetVar [Texto] "DEBE INGRESAR COMO MINIMO LA CASA NRO 1, PARA CONTINUAR"
SetVar [Pagina] "NuevoUsuario2"
GotoPage "Mensaje2"
endif
48px
230px
280px
58px
[Ca1]
48px
184px
280px
48px
CASA 1
336px
230px
280px
58px
[Ca2]
336px
184px
280px
48px
CASA 2
624px
230px
280px
58px
[Ca3]
624px
184px
280px
48px
CASA 3
48px
342px
280px
58px
[Ca4]
48px
296px
280px
48px
CASA 4
336px
342px
280px
58px
[Ca5]
336px
296px
280px
48px
CASA 5
624px
342px
280px
58px
[Ca6]
624px
296px
280px
48px
CASA 6
48px
454px
280px
58px
[Ca7]
48px
408px
280px
48px
CASA 7
336px
454px
280px
58px
[Ca8]
336px
408px
280px
48px
CASA 8
624px
454px
280px
58px
[Ca9]
624px
408px
280px
48px
CASA 9
48px
566px
280px
58px
[Ca10]
48px
520px
280px
48px
CASA 10
bounceIn
bounceOut
FocusObject "TextInput6"
0px
0px
1024px
144px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126.png
0px
656px
1024px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126a.png
272px
24px
736px
56px
INGRESO DE PRECIOS
680px
672px
320px
80px
<strong>INGRESAR</strong>
glyphicon-log-in
primary
IsVarEmpty [Ca1] [EstadoCa]
If [EstadoCa] == false
StrUpper "[Ca1]" [Ca1]
StrUpper "[Ca2]" [Ca2]
StrUpper "[Ca3]" [Ca3]
StrUpper "[Ca4]" [Ca4]
StrUpper "[Ca5]" [Ca5]
StrUpper "[Ca6]" [Ca6]
StrUpper "[Ca7]" [Ca7]
StrUpper "[Ca8]" [Ca8]
StrUpper "[Ca9]" [Ca9]
StrUpper "[Ca10]" [Ca10]
neoPhpExecSql "db1" "casaingreso" "[Nombre]::[Ca1]::[Ca2]::[Ca3]::[Ca4]::[Ca5]::[Ca6]::[Ca7]::[Ca8]::[Ca9]::[Ca10]" ""
neoPhpExecSql "db1" "usuarios" "[Clave]" "Usuarios"
else
SetVar [Texto] "DEBE INGRESAR COMO MINIMO LA CASA NRO 1, PARA CONTINUAR"
SetVar [Pagina] "NuevoUsuario2"
GotoPage "Mensaje2"
endif
40px
230px
184px
58px
[Precio1]
40px
184px
184px
48px
PRECIO 1
232px
230px
184px
58px
[Precio2]
232px
184px
184px
48px
PRECIO 2
376px
582px
280px
58px
[Ca4]
376px
536px
280px
48px
CASA 4
336px
342px
280px
58px
[Ca5]
336px
296px
280px
48px
CASA 5
624px
342px
280px
58px
[Ca6]
624px
296px
280px
48px
CASA 6
40px
342px
184px
42px
[Ca7]
40px
296px
184px
48px
DETALLE 1
336px
454px
280px
58px
[Ca8]
336px
408px
280px
48px
CASA 8
624px
454px
280px
58px
[Ca9]
624px
408px
280px
48px
CASA 9
48px
566px
280px
58px
[Ca10]
48px
520px
280px
48px
CASA 10
424px
230px
184px
58px
[Precio3]
424px
184px
184px
48px
PRECIO 3
616px
230px
184px
58px
[Precio4]
616px
184px
184px
48px
PRECIO 4
808px
230px
184px
58px
[Precio5]
808px
184px
184px
48px
PRECIO 5
fadeIn
fadeOut
If [UsuarioRemoto] > ""
else
SetVar [Pass] ""
SetVar [User] ""
GotoPage "Ingreso"
endif
200px
192px
304px
192px
[A1]
primary
SetVar [Ano] [A1]
GotoPage "ReservasSeleccionMes"
528px
192px
304px
192px
[A2]
primary
SetVar [Ano] [A2]
GotoPage "ReservasSeleccionMes"
200px
400px
304px
192px
[A3]
primary
SetVar [Ano] [A3]
GotoPage "ReservasSeleccionMes"
528px
400px
304px
192px
[A4]
primary
SetVar [Ano] [A4]
GotoPage "ReservasSeleccionMes"
0px
0px
1024px
144px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126.png
616px
24px
392px
56px
SELECCIONE ANO
0px
656px
1024px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126a.png
896px
640px
112px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\1146194_thumb.png
GotoPage "[Pagina]"
fadeIn
fadeOut
If [UsuarioRemoto] > ""
else
SetVar [Pass] ""
SetVar [User] ""
GotoPage "Ingreso"
endif
72px
264px
216px
72px
ENERO
primary
SetVar [MesNumero] 01
SetVar [MesNombre] "Enero"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
DeleteVar [Fecha1]
DeleteVar [Fecha2]
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "consultareservasver" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
296px
264px
216px
72px
FEBRERO
primary
SetVar [MesNumero] 02
SetVar [MesNombre] "Febrero"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
520px
264px
216px
72px
MARZO
primary
SetVar [MesNumero] 03
SetVar [MesNombre] "Marzo"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
744px
264px
216px
72px
ABRIL
primary
SetVar [MesNumero] 04
SetVar [MesNombre] "Abril"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
72px
344px
216px
72px
MAYO
primary
SetVar [MesNumero] 05
SetVar [MesNombre] "Mayo"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
296px
344px
216px
72px
JUNIO
primary
SetVar [MesNumero] 06
SetVar [MesNombre] "Junio"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
520px
344px
216px
72px
JULIO
primary
SetVar [MesNumero] 07
SetVar [MesNombre] "Julio"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
744px
344px
216px
72px
AGOSTO
primary
SetVar [MesNumero] 08
SetVar [MesNombre] "Agosto"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
72px
424px
216px
80px
SEPTIEMBRE
primary
SetVar [MesNumero] 09
SetVar [MesNombre] "Septiembre"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
296px
424px
216px
80px
OCTUBRE
primary
SetVar [MesNumero] 10
SetVar [MesNombre] "Octubre"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
520px
424px
216px
80px
NOVIEMBRE
primary
SetVar [MesNumero] 11
SetVar [MesNombre] "Noviembre"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
744px
424px
216px
80px
DICIEMBRE
primary
SetVar [MesNumero] 12
SetVar [MesNombre] "Diciembre"
If [Opcion] == "ReservasVer"
.Definiendo cuantos dias tiene el mes
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
SetVar [CasaBusqueda] "[Casa1]"
.Busqueda de Reservas de ese mes determinado
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
endif
If [Opcion] == "ReservasMesDeterminado"
If [MesNumero] == 01
SetVar [CantDias] 31
endif
If [MesNumero] == 02
SetVar [CantDias] 28
endif
If [MesNumero] == 03
SetVar [CantDias] 31
endif
If [MesNumero] == 04
SetVar [CantDias] 30
endif
If [MesNumero] == 05
SetVar [CantDias] 31
endif
If [MesNumero] == 06
SetVar [CantDias] 30
endif
If [MesNumero] == 07
SetVar [CantDias] 31
endif
If [MesNumero] == 08
SetVar [CantDias] 31
endif
If [MesNumero] == 09
SetVar [CantDias] 30
endif
If [MesNumero] == 10
SetVar [CantDias] 31
endif
If [MesNumero] == 11
SetVar [CantDias] 30
endif
If [MesNumero] == 12
SetVar [CantDias] 31
endif
DeleteVar [Fecha1]
DeleteVar [Fecha2]
SetCompVar "[Fecha1]" "[Ano]-[MesNumero]-01"
SetCompVar "[Fecha2]" "[Ano]-[MesNumero]-[CantDias]"
neoPhpExecSql "db1" "totalmes" "[Fecha1]::[Fecha2]::[UsuarioRemoto]" "ReservasMesDeterminado"
endif
408px
104px
152px
48px
[Ano]
0px
0px
1024px
144px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126.png
312px
24px
696px
56px
MES DEL ANO [Ano]
0px
656px
1024px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126a.png
896px
640px
112px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\1146194_thumb.png
GotoPage "[Pagina]"
fadeIn
fadeOut
If "[Cliente1]" > " "
RemoveClass "d1" "btn-default"
SetObjectStyle "d1" "background" "#FF0000"
SetObjectStyle "d1" "color" "#FFFFFF"
endif
If "[Cliente2]" > " "
RemoveClass "d2" "btn-default"
SetObjectStyle "d2" "background" "#FF0000"
SetObjectStyle "d2" "color" "#FFFFFF"
endif
If "[Cliente3]" > " "
RemoveClass "d3" "btn-default"
SetObjectStyle "d3" "background" "#FF0000"
SetObjectStyle "d3" "color" "#FFFFFF"
endif
If "[Cliente4]" > " "
RemoveClass "d4" "btn-default"
SetObjectStyle "d4" "background" "#FF0000"
SetObjectStyle "d4" "color" "#FFFFFF"
endif
If "[Cliente5]" > " "
RemoveClass "d5" "btn-default"
SetObjectStyle "d5" "background" "#FF0000"
SetObjectStyle "d5" "color" "#FFFFFF"
endif
If "[Cliente6]" > " "
RemoveClass "d6" "btn-default"
SetObjectStyle "d6" "background" "#FF0000"
SetObjectStyle "d6" "color" "#FFFFFF"
endif
If "[Cliente7]" > " "
RemoveClass "d7" "btn-default"
SetObjectStyle "d7" "background" "#FF0000"
SetObjectStyle "d7" "color" "#FFFFFF"
endif
If "[Cliente8]" > " "
RemoveClass "d8" "btn-default"
SetObjectStyle "d8" "background" "#FF0000"
SetObjectStyle "d8" "color" "#FFFFFF"
endif
If "[Cliente9]" > " "
RemoveClass "d9" "btn-default"
SetObjectStyle "d9" "background" "#FF0000"
SetObjectStyle "d9" "color" "#FFFFFF"
endif
If "[Cliente10]" > " "
RemoveClass "d10" "btn-default"
SetObjectStyle "d10" "background" "#FF0000"
SetObjectStyle "d10" "color" "#FFFFFF"
endif
If "[Cliente11]" > " "
RemoveClass "d11" "btn-default"
SetObjectStyle "d11" "background" "#FF0000"
SetObjectStyle "d11" "color" "#FFFFFF"
endif
If "[Cliente12]" > " "
RemoveClass "d12" "btn-default"
SetObjectStyle "d12" "background" "#FF0000"
SetObjectStyle "d12" "color" "#FFFFFF"
endif
If "[Cliente13]" > " "
RemoveClass "d13" "btn-default"
SetObjectStyle "d13" "background" "#FF0000"
SetObjectStyle "d13" "color" "#FFFFFF"
endif
If "[Cliente14]" > " "
RemoveClass "d14" "btn-default"
SetObjectStyle "d14" "background" "#FF0000"
SetObjectStyle "d14" "color" "#FFFFFF"
endif
If "[Cliente15]" > " "
RemoveClass "d15" "btn-default"
SetObjectStyle "d15" "background" "#FF0000"
SetObjectStyle "d15" "color" "#FFFFFF"
endif
If "[Cliente16]" > " "
RemoveClass "d16" "btn-default"
SetObjectStyle "d16" "background" "#FF0000"
SetObjectStyle "d16" "color" "#FFFFFF"
endif
If "[Cliente17]" > " "
RemoveClass "d17" "btn-default"
SetObjectStyle "d17" "background" "#FF0000"
SetObjectStyle "d17" "color" "#FFFFFF"
endif
If "[Cliente18]" > " "
RemoveClass "d18" "btn-default"
SetObjectStyle "d18" "background" "#FF0000"
SetObjectStyle "d18" "color" "#FFFFFF"
endif
If "[Cliente19]" > " "
RemoveClass "d19" "btn-default"
SetObjectStyle "d19" "background" "#FF0000"
SetObjectStyle "d19" "color" "#FFFFFF"
endif
If "[Cliente20]" > " "
RemoveClass "d20" "btn-default"
SetObjectStyle "d20" "background" "#FF0000"
SetObjectStyle "d20" "color" "#FFFFFF"
endif
If "[Cliente21]" > " "
RemoveClass "d21" "btn-default"
SetObjectStyle "d21" "background" "#FF0000"
SetObjectStyle "d21" "color" "#FFFFFF"
endif
If "[Cliente22]" > " "
RemoveClass "d22" "btn-default"
SetObjectStyle "d22" "background" "#FF0000"
SetObjectStyle "d22" "color" "#FFFFFF"
endif
If "[Cliente23]" > " "
RemoveClass "d23" "btn-default"
SetObjectStyle "d23" "background" "#FF0000"
SetObjectStyle "d23" "color" "#FFFFFF"
endif
If "[Cliente24]" > " "
RemoveClass "d24" "btn-default"
SetObjectStyle "d24" "background" "#FF0000"
SetObjectStyle "d24" "color" "#FFFFFF"
endif
If "[Cliente25]" > " "
RemoveClass "d25" "btn-default"
SetObjectStyle "d25" "background" "#FF0000"
SetObjectStyle "d25" "color" "#FFFFFF"
endif
If "[Cliente26]" > " "
RemoveClass "d26" "btn-default"
SetObjectStyle "d26" "background" "#FF0000"
SetObjectStyle "d26" "color" "#FFFFFF"
endif
If "[Cliente27]" > " "
RemoveClass "d27" "btn-default"
SetObjectStyle "d27" "background" "#FF0000"
SetObjectStyle "d27" "color" "#FFFFFF"
endif
If "[Cliente28]" > " "
RemoveClass "d28" "btn-default"
SetObjectStyle "d28" "background" "#FF0000"
SetObjectStyle "d28" "color" "#FFFFFF"
endif
If "[Cliente29]" > " "
RemoveClass "d29" "btn-default"
SetObjectStyle "d29" "background" "#FF0000"
SetObjectStyle "d29" "color" "#FFFFFF"
endif
If "[Cliente30]" > " "
RemoveClass "d30" "btn-default"
SetObjectStyle "d30" "background" "#FF0000"
SetObjectStyle "d30" "color" "#FFFFFF"
endif
If "[Cliente31]" > " "
RemoveClass "d31" "btn-default"
SetObjectStyle "d31" "background" "#FF0000"
SetObjectStyle "d31" "color" "#FFFFFF"
endif
If [UsuarioRemoto] > ""
else
SetVar [Pass] ""
SetVar [User] ""
GotoPage "Ingreso"
endif
8px
288px
136px
72px
1<br>[Cliente1]
success
8px
192px
160px
48px
[Casa1]
info
SetVar [CasaBusqueda] "[Casa1]"
SetVar [NumeroCasa] 1
.Pintando Casa seleccionada
Loop 1 10 [x]
If [x] != [NumeroCasa]
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0392CE"
SetObjectStyle "Ca[x]" "color" "#000000"
else
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0000FF"
SetObjectStyle "Ca[x]" "color" "#FFFFFF"
endif
If [x] == 0
exitloop
endif
endloop
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
176px
192px
160px
48px
[Casa2]
info
SetVar [CasaBusqueda] "[Casa2]"
SetVar [NumeroCasa] 2
.Pintando Casa seleccionada
Loop 1 10 [x]
If [x] != [NumeroCasa]
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0392CE"
SetObjectStyle "Ca[x]" "color" "#000000"
else
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0000FF"
SetObjectStyle "Ca[x]" "color" "#FFFFFF"
endif
If [x] == 0
exitloop
endif
endloop
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
344px
192px
160px
48px
[Casa3]
info
SetVar [CasaBusqueda] "[Casa3]"
SetVar [NumeroCasa] 3
.Pintando Casa seleccionada
Loop 1 10 [x]
If [x] != [NumeroCasa]
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0392CE"
SetObjectStyle "Ca[x]" "color" "#000000"
else
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0000FF"
SetObjectStyle "Ca[x]" "color" "#FFFFFF"
endif
If [x] == 0
exitloop
endif
endloop
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
512px
192px
160px
48px
[Casa4]
info
SetVar [CasaBusqueda] "[Casa4]"
SetVar [NumeroCasa] 4
.Pintando Casa seleccionada
Loop 1 10 [x]
If [x] != [NumeroCasa]
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0392CE"
SetObjectStyle "Ca[x]" "color" "#000000"
else
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0000FF"
SetObjectStyle "Ca[x]" "color" "#FFFFFF"
endif
If [x] == 0
exitloop
endif
endloop
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
680px
192px
160px
48px
[Casa5]
info
SetVar [CasaBusqueda] "[Casa5]"
SetVar [NumeroCasa] 5
.Pintando Casa seleccionada
Loop 1 10 [x]
If [x] != [NumeroCasa]
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0392CE"
SetObjectStyle "Ca[x]" "color" "#000000"
else
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0000FF"
SetObjectStyle "Ca[x]" "color" "#FFFFFF"
endif
If [x] == 0
exitloop
endif
endloop
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
152px
288px
136px
72px
2<br>[Cliente2]
success
296px
288px
136px
72px
3<br>[Cliente3]
success
440px
288px
136px
72px
4<br>[Cliente4]
success
584px
288px
136px
72px
5<br>[Cliente05]
success
728px
288px
136px
72px
6<br>[Cliente06]
success
872px
288px
136px
72px
7<br>[Cliente07]
success
8px
368px
136px
72px
8<br>[Cliente08]
success
152px
368px
136px
72px
9<br>[Cliente09]
success
296px
368px
136px
72px
10<br>[Cliente10]
success
440px
368px
136px
72px
11<br>[Cliente11]
success
584px
368px
136px
72px
12<br>[Cliente12]
success
728px
368px
136px
72px
13<br>[Cliente13]
success
872px
368px
136px
72px
14<br>[Cliente14]
success
8px
448px
136px
72px
15<br>[Cliente15]
success
152px
448px
136px
72px
16<br>[Cliente16]
success
296px
448px
136px
72px
17<br>[Cliente17]
success
440px
448px
136px
72px
18<br>[Cliente18]
success
584px
448px
136px
72px
19<br>[Cliente19]
success
728px
448px
136px
72px
20<br>[Cliente20]
success
872px
448px
136px
72px
21<br>[Cliente21]
success
8px
528px
136px
72px
22<br>[Cliente22]
success
152px
528px
136px
72px
23<br>[Cliente23]
success
296px
528px
136px
72px
24<br>[Cliente24]
success
440px
528px
136px
72px
25<br>[Cliente25]
success
584px
528px
136px
72px
26<br>[Cliente26]
success
728px
528px
136px
72px
27<br>[Cliente27]
success
872px
528px
136px
72px
28<br>[Cliente28]
success
8px
608px
136px
72px
29<br>[Cliente29]
success
152px
608px
136px
72px
30<br>[Cliente30]
success
296px
608px
136px
72px
31<br>[Cliente31]
success
0px
0px
1024px
144px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126.png
312px
24px
696px
56px
[MesNombre] del [Ano]
0px
656px
1024px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126a.png
896px
640px
112px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\1146194_thumb.png
GotoPage "MenuPrincipal"
848px
192px
160px
48px
[Casa6]
info
SetVar [CasaBusqueda] "[Casa6]"
SetVar [NumeroCasa] 6
.Pintando Casa seleccionada
Loop 1 10 [x]
If [x] != [NumeroCasa]
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0392CE"
SetObjectStyle "Ca[x]" "color" "#000000"
else
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0000FF"
SetObjectStyle "Ca[x]" "color" "#FFFFFF"
endif
If [x] == 0
exitloop
endif
endloop
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
848px
136px
160px
48px
[Casa7]
info
SetVar [CasaBusqueda] "[Casa7]"
SetVar [NumeroCasa] 7
.Pintando Casa seleccionada
Loop 1 10 [x]
If [x] != [NumeroCasa]
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0392CE"
SetObjectStyle "Ca[x]" "color" "#000000"
else
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0000FF"
SetObjectStyle "Ca[x]" "color" "#FFFFFF"
endif
If [x] == 0
exitloop
endif
endloop
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
680px
136px
160px
48px
[Casa8]
info
SetVar [CasaBusqueda] "[Casa8]"
SetVar [NumeroCasa] 8
.Pintando Casa seleccionada
Loop 1 10 [x]
If [x] != [NumeroCasa]
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0392CE"
SetObjectStyle "Ca[x]" "color" "#000000"
else
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0000FF"
SetObjectStyle "Ca[x]" "color" "#FFFFFF"
endif
If [x] == 0
exitloop
endif
endloop
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
512px
136px
160px
48px
[Casa9]
info
SetVar [CasaBusqueda] "[Casa9]"
SetVar [NumeroCasa] 9
.Pintando Casa seleccionada
Loop 1 10 [x]
If [x] != [NumeroCasa]
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0392CE"
SetObjectStyle "Ca[x]" "color" "#000000"
else
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0000FF"
SetObjectStyle "Ca[x]" "color" "#FFFFFF"
endif
If [x] == 0
exitloop
endif
endloop
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
344px
136px
160px
48px
[Casa10]
info
SetVar [CasaBusqueda] "[Casa10]"
SetVar [NumeroCasa] 10
.Pintando Casa seleccionada
Loop 1 10 [x]
If [x] != [NumeroCasa]
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0392CE"
SetObjectStyle "Ca[x]" "color" "#000000"
else
RemoveClass "Ca[x]" "btn-default"
SetObjectStyle "Ca[x]" "background" "#0000FF"
SetObjectStyle "Ca[x]" "color" "#FFFFFF"
endif
If [x] == 0
exitloop
endif
endloop
neoPhpExecSql "db1" "reservas" "[Fecha1]::[Fecha2]::[CasaBusqueda]::[UsuarioRemoto]" "BusquedaReservas"
fadeIn
fadeOut
If [UsuarioRemoto] > ""
else
SetVar [Pass] ""
SetVar [User] ""
GotoPage "Ingreso"
endif
0px
0px
1024px
144px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126.png
160px
272px
720px
104px
RESERVAS MES DETERMINADO
glyphicon-list
primary
.Calculando años
Math "[NAB.Year]+1" 0 [A2]
Math "[NAB.Year]+2" 0 [A3]
Math "[NAB.Year]+3" 0 [A4]
SetVar [A1] [NAB.Year]
SetVar [Pagina] "Consultas"
SetVar [Opcion] "ReservasMesDeterminado"
GotoPage "ReservasSeleccionAno"
160px
400px
720px
104px
RESERVAS ELIMINADAS
glyphicon-trash
primary
624px
24px
384px
56px
CONSULTAS
0px
656px
1024px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126a.png
856px
624px
136px
104px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\atras.png
GotoPage "MenuPrincipal"
fadeIn
fadeOut
If [UsuarioRemoto] > ""
else
SetVar [Pass] ""
SetVar [User] ""
GotoPage "Ingreso"
endif
717px
87px
289px
86px
0
0px
0px
1024px
144px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126.png
83px
19px
925px
56px
[CantidadReservas] Reservas en [MesNombre] del [Ano]
0px
656px
1024px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126a.png
856px
624px
136px
104px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\atras.png
GotoPage "MenuPrincipal"
722px
118px
276px
56px
$[total]
720px
624px
104px
104px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Pdf.png
SetVar [Pos] 10
neoPdfInit "Reservas" "A4" "portrait"
neoPdfDisplayMode "Reservas" "continuous" "FullScreen"
neoPdfFont "Reservas" "helvetica"
neoPdfFontStyle "Reservas" "bold"
neoPdfFontSize "Reservas" "28"
neoPdfSimpleText "Reservas" "Reservas [MesNombre] del [Ano]" 10 [Pos] "left"
Math "[Pos]+10" 0 [Pos]
neoPdfSimpleText "Reservas" "$[Total] " 10 [Pos] "left"
Math "[Pos]+10" 0 [Pos]
neoPdfSimpleText "Reservas" "" 10 [Pos] "left"
Math "[Pos]+10" 0 [Pos]
neoPdfFont "Reservas" "helvetica"
neoPdfFontStyle "Reservas" "bold"
neoPdfFontSize "Reservas" "12"
ListBoxSize "Listbox1" [LargoLista]
Loop 0 [LargoLista] [x]
ListBoxGetItem "Listbox1" [x] [Dato]
neoPdfSimpleText "Reservas" "[Dato]" 10 [Pos] "left"
Math "[Pos]+5" 0 [Pos]
If [x] == 50
neoPdfAddPage "Reservas" "portrait" "A4"
SetVar [Pos] 10
endloop
If [x] == 100
neoPdfAddPage "Reservas" "portrait" "A4"
SetVar [Pos] 10
endloop
If [x] == 150
neoPdfAddPage "Reservas" "portrait" "A4"
SetVar [Pos] 10
endloop
endloop
neoPdfRender "Reservas" "IFrame1"
neoPdfDownload "Reservas"
12px
184px
994px
425px
[Lista]
[Seleccion]
False
bounceIn
bounceOut
0px
0px
1024px
144px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126.png
8px
352px
1000px
56px
[Texto]
0px
656px
1024px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126a.png
bounceIn
bounceOut
Delay 3000
GotoPage "[Pagina]"
0px
0px
1024px
144px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126.png
8px
352px
1000px
56px
[Texto]
0px
656px
1024px
112px
C:\Google Drive\VisualNeo\VisualNeo Web\Proyectos\Reservas\Archivos\Banner126a.png
0px
0px
1024px
768px
False