Posada Don Vasco Don Vasco Gustavo Lomazzi 28 Posada en Termas de Guaviyu GenericPhone False 320 480 False False False False WebApp False G:\Mi unidad\VisualNeo\VisualNeo Web\Proyectos\Don_Vasco_Apart_Hotel\Archivos\Logoo.png .card-view-title{ display:none!important; } #Menu_Principal_a{ width:1280px; height:800px; } #Comodidades_a{ width:1280px; height:800px; } #Precios_a{ width:1280px; height:800px; } #Reservar_a{ width:1280px; height:800px; } #Reservar_Ver_a{ width:1280px; height:800px; } #MasterPage1{ width:1280px; height:800px; } #Ajustes_Ingreso_a{ width:1280px; height:800px; } #Ajustes_Menu_a{ width:1280px; height:800px; } #Ajustes_Principal_Vendedores_a{ width:1280px; height:800px; } #Ajustes_Principal_Vendedores_Ingreso_a{ width:1280px; height:800px; } #Ajustes_Principal_Vendedores_Datos_a{ width:1280px; height:800px; } #Ajustes_Principal_Vendedores_Borrar_a{ width:1280px; height:800px; } #Ajustes_Principal_Vendedores_Pagar_a{ width:1280px; height:800px; } #Donde_Estamos_a{ width:1280px; height:800px; } #Ajustes_Precios_a{ width:1280px; height:800px; } #Actividades_a{ width:1280px; height:800px; } #Fotos_a{ width:1280px; height:800px; } #Ajustes_Visitas_a{ width:1280px; height:800px; } #Ajustes_Fotos_a{ width:1280px; height:800px; } #Fotos_Menu_a{ width:1280px; height:800px; } #Reservas_Menu_a{ width:1280px; height:800px; } #Reservas_Verificar_a{ width:1280px; height:800px; } #Reservas_Verificar_Ver_a{ width:1280px; height:800px; } es True standalone Offline page #000000 / [AndroidOS,iOS,WindowsPhoneOS] normal True True False True True False False True False OL_PORTRAITONLY False SetResponsivePages "Menu_Principal_a" "Menu_Principal_a" "Menu_Principal" "Menu_Principal"

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]

SetVar [Precio1] [miobj(0)('Precio1')]
ToNumber "[Precio1]" [Precio1]
SetVar [Precio2] [miobj(0)('Precio2')]
ToNumber "[Precio2]" [Precio2]
SetVar [Precio3] [miobj(0)('Precio3')]
ToNumber "[Precio3]" [Precio3]
SetVar [Precio4] [miobj(0)('Precio4')]
ToNumber "[Precio4]" [Precio4]



GotoPage "[Pagina]"

[data]|STRING| Return "$[valor]" [valor]|STRING|

CreateEmptyArray [tableData]
SetVar [tableData] [data]
ArrayLen [tableData] [totalRecords]

If [totalRecords] != 0
   If [totalRecords] < 2
      SetVar [Whatapp] "Si"
      Math "2-[totalRecords]" -1 [Disponibles]
      SetVar [Texto] "Queda [Disponibles] Apartamento disponible"
      GotoPage "[Pagina]"
   else
      SetVar [Whatapp] "No"
      SetVar [Texto] "No quedan Apartamentos disponibles"
      GotoPage "[Pagina]"
   endif
else
  SetVar [Whatapp] "Si"
  SetVar [Texto] "Quedan 2 Apartamentos disponibles"
  GotoPage "[Pagina]"
endif

[data]|STRING|

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]

GotoPage "[Pagina]"

[data]|STRING|

If [neoTableEvent] == "click"
   SetVar [Id] [neoTableRow.Id]
   SetVar [Nombre] [neoTableRow.Nombre]
   SetVar [Ganancia] [neoTableRow.Ganancia]
   GotoPage "[Pagina]"
endif

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]

GotoPage "Ajustes_Principal_Vendedores_Pagos"

[data]|STRING| Return "$[Valor]" [valor]|STRING|

StrParse "[valor]" "-" [dat]
SetVar [Fecha] "[dat(2)]/[dat(1)]/[dat(0)]"

Return "[Fecha]"

[valor]|STRING|

CreateEmptyArray [tableData]
SetVar [tableData] [data]
ArrayLen [tableData] [totalRecords]

If [totalRecords] == 0
  neoPhpExecSql "db1" "vendedores_ingreso" "[Nombre]::[Cedula]::[Codigo]::0" ""
  Wait 500
    neoPhpExecSql "db1" "vendedores" "" "Vendedores"
  endwait
else
  SetVar [Codigo] ""
  CuadroDialogOK "ATENCION" "El Codigo Elegido ya existe en el sistema para otro Usuario"
endif

[data]|STRING|

CreateEmptyArray [tableData]
SetVar [tableData] [data]
ArrayLen [tableData] [totalRecords]

If [totalRecords] == 1
   .SetVar [Usuario] [tableData(0)('Nombre')]
  SetVar [Ganancia] [tableData(0)('Ganancia')]
  SetVar [Vendedor] [tableData(0)('Nombre')]
  SetVar [Id] [tableData(0)('Id')]
  Math "[Ganancia]+100" -1 [Nueva_Ganancia]
  neoPhpExecSql "db1" "vendedores_actualizar_ganancia" "[Nueva_Ganancia]::[Id]" ""
  neoPhpExecSql "db1" "cupon_ingresar" "[Vendedor]::[NAB.Year]-[NAB.MonthNum]-[NAB.DayNum]::[NAB.Hour24]:[NAB.Minute]" ""
  GotoPage "Ajustes_Principal_Cupon_Detalle"
else
  CuadroDialogOK "ATENCION" "NO existe en el Sistema un CUPON DE DESCUENTO con el Numero ingresado"
endif

[data]|STRING|

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]

GotoPage "Ajustes_Principal_Vendedores_Cupones"

[data]|STRING|

CreateEmptyArray [tableData]
SetVar [tableData] [data]
ArrayLen [tableData] [totalRecords]

If [totalRecords] == 1
  SetVar [Nombre] [tableData(0)('Nombre')]
  SetVar [Ganancia] [tableData(0)('Ganancia')]
  GotoPage "Ajustes_Usuarios"
else
  CuadroDialogOK "ATENCION" "Usted no esta Autorizado a Ingresar al Sistema"
  SetVar [Clave] ""
endif

[data]|STRING|

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]

GotoPage "[Pagina]"

[data]|STRING|

SetVar [valor] "<img src='[valor]' width='30' height='30'>"
Return [valor]

[valor]|STRING|

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]

If [totalRows] > 0
   SetVar [Primera_Vez] 1
   SetVar [Foto1] [miobj(0)('Imagen1')]
   SetVar [Foto2] [miobj(0)('Imagen2')]
   SetVar [Foto3] [miobj(0)('Imagen3')]
   SetVar [Foto4] [miobj(0)('Imagen4')]
   setVar [Foto5] [miobj(0)('Imagen5')]
   setVar [Foto6] [miobj(0)('Imagen6')]
else
   SetVar [Primera_Vez] 0
endif

GotoPage "[Pagina]"

[data]|STRING|

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]

If [totalRows] > 0
   SetVar [Primera_Vez] 1
   SetVar [Foto1] [miobj(0)('Imagen1')]
   SetVar [Foto2] [miobj(0)('Imagen2')]
   SetVar [Foto3] [miobj(0)('Imagen3')]
   SetVar [Foto4] [miobj(0)('Imagen4')]
   setVar [Foto5] [miobj(0)('Imagen5')]
   setVar [Foto6] [miobj(0)('Imagen6')]
else
   SetVar [Primera_Vez] 0
endif

GotoPage "[Pagina]"

[data]|STRING|

If [Opcion] == "Foto1"
  SetObjectAttribute "Image56" "src" [Imagen]
  SetVar [Foto_Numero] 1
endif

If [Opcion] == "Foto2"
  SetObjectAttribute "Image57" "src" [Imagen]
  SetVar [Foto_Numero] 2
endif

If [Opcion] == "Foto3"
  SetObjectAttribute "Image58" "src" [Imagen]
  SetVar [Foto_Numero] 3
endif

If [Opcion] == "Foto4"
  SetObjectAttribute "Image59" "src" [Imagen]
  SetVar [Foto_Numero] 4
endif

If [Opcion] == "Foto5"
  SetObjectAttribute "Image60" "src" [Imagen]
  SetVar [Foto_Numero] 5
endif

.Obteniendo extension de la imagen
StrParse "[Imagen]" ";" [text]
StrParse "[text(0)]" "/" [te]
SetVar [Extension] "[te(1)]"
If [Extension] == "jpeg"
  SetVar [Extension] "jpg"
endif

If [Sector] == "Recepcion"
   neoPhpFileWriteFromBase64 "Fotos/Cel_Recepcion_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif

If [Sector] == "Parque"
   neoPhpFileWriteFromBase64 "Fotos/Cel_Parque_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif

If [Sector] == "Apartamento1"
   neoPhpFileWriteFromBase64 "Fotos/Cel_Apartamento1_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif

If [Sector] == "Apartamento2"
   neoPhpFileWriteFromBase64 "Fotos/Cel_Apartamento2_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif

If [Sector] == "Apartamento3"
   neoPhpFileWriteFromBase64 "Fotos/Cel_Apartamento3_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif

If [Sector] == "Apartamento4"
   neoPhpFileWriteFromBase64 "Fotos/Cel_Apartamento4_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif



CancelWatch [Imagen]

If [Opcion] == "Foto1"
  SetVar [Foto_Numero] 1
  SetObjectAttribute "Image80" "src" [Imagen]
endif

If [Opcion] == "Foto2"
  SetVar [Foto_Numero] 2
  SetObjectAttribute "Image81" "src" [Imagen]
endif

If [Opcion] == "Foto3"
  SetVar [Foto_Numero] 3
  SetObjectAttribute "Image82" "src" [Imagen]
endif

If [Opcion] == "Foto4"
  SetVar [Foto_Numero] 4
  SetObjectAttribute "Image144" "src" [Imagen]
endif

If [Opcion] == "Foto5"
  SetVar [Foto_Numero] 5
  SetObjectAttribute "Image145" "src" [Imagen]
endif

.Obteniendo extension de la imagen
StrParse "[Imagen]" ";" [text]
StrParse "[text(0)]" "/" [te]
SetVar [Extension] "[te(1)]"
If [Extension] == "jpeg"
  SetVar [Extension] "jpg"
endif

If [Sector] == "Recepcion"
   neoPhpFileWriteFromBase64 "Fotos/Pc_Recepcion_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif

If [Sector] == "Parque"
   neoPhpFileWriteFromBase64 "Fotos/Pc_Parque_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif

If [Sector] == "Apartamento1"
   neoPhpFileWriteFromBase64 "Fotos/Pc_Apartamento1_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif

If [Sector] == "Apartamento2"
   neoPhpFileWriteFromBase64 "Fotos/Pc_Apartamento2_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif

If [Sector] == "Apartamento3"
   neoPhpFileWriteFromBase64 "Fotos/Pc_Apartamento3_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif

If [Sector] == "Apartamento4"
   neoPhpFileWriteFromBase64 "Fotos/Pc_Apartamento4_Foto[Foto_Numero].[Extension]" "[Imagen]" ""
endif



CancelWatch [Imagen]

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]

SetVar [Foto1] [miobj(0)('Imagen1')]
SetVar [Foto2] [miobj(0)('Imagen2')]
SetVar [Foto3] [miobj(0)('Imagen3')]
SetVar [Foto4] [miobj(0)('Imagen4')]
setVar [Foto5] [miobj(0)('Imagen5')]
setVar [Foto6] [miobj(0)('Imagen6')]




GotoPage "[Pagina]"

[data]|STRING|

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]

SetVar [Foto1] [miobj(0)('Imagen1')]
SetVar [Foto2] [miobj(0)('Imagen2')]
SetVar [Foto3] [miobj(0)('Imagen3')]
SetVar [Foto4] [miobj(0)('Imagen4')]
setVar [Foto5] [miobj(0)('Imagen5')]
setVar [Foto6] [miobj(0)('Imagen6')]




GotoPage "[Pagina]"

[data]|STRING|

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]



SetVar [Visitas_Contador] [miobj(0)('Visitas')]
Math "[Visitas_Contador]+1" -1 [Visitas_Contador_2]

neoPhpExecSql "db1" "ajustes_aumentar_visitas" "[Visitas_Contador_2]" ""

[data]|STRING|

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]



SetVar [Visitas] [miobj(0)('Visitas')]

GotoPage "[Pagina]"

[data]|STRING|

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]
Math "[totalRows]-1" -1 [totalRows_2]

SetVar [Dias_Reserva] [miobj(0)('Dias')]
SetVar [Cliente] [miobj(0)('Nombre')]
SetVar [Celular] [miobj(0)('Telefono')]

SetVar [Fecha_Ingreso_2] [miobj(0)('Fecha')]
StrParse "[Fecha_Ingreso_2]" "-" [dat]
SetVar [Fecha_Ingreso] "[dat(2)]/[dat(1)]/[dat(0)]"

SetVar [Fecha_Salida_2] [miobj([totalRows_2])('Fecha')]
StrParse "[Fecha_Salida_2]" "-" [dat]
Math "[dat(2)]+1" -1 [dat(2)]
SetVar [Fecha_Salida] "[dat(2)]/[dat(1)]/[dat(0)]"

SetVar [Apartamento] [miobj(0)('Casa')]
SetVar [Precio_Por_Dia] [miobj(0)('Precio')]
SetVar [Precio_Total] [miobj(0)('Total')]
SetVar [Entregas] [miobj(0)('EntregaMonto')]
Math "[Precio_Total]-[Entregas]" -1 [Saldo]


GotoPage "[Pagina]"

[data]|STRING|

CreateEmptyObject [miobj]
SetVar [miobj] [data]
ArrayLen [miobj] [totalRows]
Math "[totalRows]-1" -1 [totalRows_2]


If [totalRows] == 0
  jsAlert "Tenemos 4 Apartamentos disponibles / [totalRows]"
else
  SetVar [Apartamento1] 0
  SetVar [Apartamento2] 0
  SetVar [Apartamento3] 0
  SetVar [Apartamento4] 0

  Loop 0 [totalRows_2] [x]
     If [miobj([x])('Casa')] == "Apartamento 1"
       If [Apartamento1] == 0
          SetVar [Apartamento1] 1
       endif
     endif

     If [miobj([x])('Casa')] == "Apartamento 2"
       If [Apartamento2] == 0
          SetVar [Apartamento2] 1
       endif
     endif

     If [miobj([x])('Casa')] == "Apartamento 3"
       If [Apartamento3] == 0
          SetVar [Apartamento3] 1
       endif
     endif

     If [miobj([x])('Casa')] == "Apartamento 4"
       If [Apartamento4] == 0
          SetVar [Apartamento4] 1
       endif
     endif

     If [x] == 0
       jsAlert "Apartamento 1:[Apartamento1]-------Apartamento 2:[Apartamento2]----------Apartamento 3:[Apartamento3]----------Apartamento 4:[Apartamento4]"
     endif
  endloop
endif

[data]|STRING| slScaleAppDeform "320" "480" 264px 432px 40px 32px 104px 152px 112px 32px file1 .LocalBinaryFileToBase64Var "FileInput1" [Imagen] fnone image/* 104px 224px 112px 32px file2 .LocalBinaryFileToBase64Var "FileInput1" [Imagen] fuser image/* fuser 104px 288px 112px 32px file3 .LocalBinaryFileToBase64Var "FileInput1" [Imagen] fenvironment image/* fenvironment 0px 0px 320px 480px ATENCION True primary 8px 176px 296px 128px Usted puede pagar con tarjeta su alojamiento 248px 416px 56px 48px svgWindowClose preserve 0px 0px 320px 480px False custom 0px 0px 320px 480px 8px 157px 304px 24px CARGANDO DATOS 8px 304px 304px 24px ESPERE POR FAVOR 112px 200px 96px 80px G:\Mi unidad\VisualNeo\VisualNeo Web\Proyectos\Don_Vasco_Apart_Hotel\Archivos\throbber_13.gif