Dim myModal As ABMModalSheet
myModal.Initialize(page, "editarclientes", True, False, "")
myModal.Size = ABM.MODALSHEET_SIZE_LARGE
myModal.Content.UseTheme("modalcontent")
myModal.Footer.UseTheme("modalfooter")
myModal.IsDismissible = False
myModal.Content.AddRows(1,True, "").AddCells12(1,"centre")
myModal.Content.AddRows(1,True, "").AddCells12(1,"centre")
myModal.Content.AddRows(1,True, "").AddCellsOS(1,0,0,0,9,9,9,"").AddCellsOS(1,9,9,9,3,3,3,"")
'myModal.Content.AddRows(1,True, "").AddCells12(1,"centre")
myModal.Content.AddRows(4,True, "").AddCellsOS(2,0,0,0,6,6,6,"")
'myModal.Content.AddRows(5,True, "").AddCells12(1,"")
myModal.Content.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
' create the grid for the footer
' we add a row without the default 20px padding so we need to use AddRowsM().
myModal.Footer.AddRowsM(1,True,0,0, "").AddCellsOS(1,6,6,6,3,3,3,"").AddCellsOS(1,0,0,0,3,3,3, "")
myModal.Footer.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
' create the input fields for the content
Dim txtnombre As ABMInput
txtnombre.Initialize(page, "txtnombre", ABM.INPUT_TEXT, "Cliente", False, "input")
'page.Msgbox("",ABMShared.editar_repartidor.get("nombre"),"MIERDA","Aceptar",False,"","")
'txtnombre.Text = nombre
'txtnombre.Text = ABMShared.editar_repartidor.Get("nombre")
'page.Msgbox("",ABMShared.editar_repartidor.get("nombre"),"MIERDA","Aceptar",False,"","")
'page.Msgbox("",ABMShared.editar_repartidor.get("nombre"),"Editar cliente","Aceptar",False,"","")
myModal.Content.Cell(1,1).AddComponent(txtnombre)
Dim txtruc As ABMInput
txtruc.Initialize(page, "txtruc", ABM.INPUT_TEXT, "RUC", False, "input")
myModal.Content.Cell(5,1).AddComponent(txtruc)
' Dim txtnombre_contacto As ABMInput
' txtnombre_contacto.Initialize(page, "txtnombre_contacto", ABM.INPUT_TEXT, "Contacto", False, "input")
' myModal.Content.Cell(4,2).AddComponent(txtnombre_contacto)
Dim txtcelular As ABMInput
txtcelular.Initialize(page, "txtcelular", ABM.INPUT_TEXT, "Celular", False, "input")
myModal.Content.Cell(5,2).AddComponent(txtcelular)
Dim txtdireccion As ABMInput
txtdireccion.Initialize(page, "txtdireccion", ABM.INPUT_TEXT, "Direccion", False, "input")
myModal.Content.Cell(2,1).AddComponent(txtdireccion)
Dim txtdireccion_google As ABMInput
txtdireccion_google.Initialize(page, "txtdireccion_google", ABM.INPUT_TEXT, "Direccion Google", False, "input")
myModal.Content.Cell(3,1).AddComponent(txtdireccion_google)
Dim btnmapa As ABMButton
btnmapa.InitializeRaised(page,"btnmapa","",ABM.BUTTONSIZE_LARGE,"Mapa","")
myModal.Content.Cell(3,2).AddComponent(btnmapa)
Dim txtusuario As ABMInput
txtusuario.Initialize(page, "txtusuario", ABM.INPUT_TEXT,"Idusuario", False, "input")
myModal.Content.Cell(4,1).AddComponent(txtusuario)
Dim txtestado As ABMCombo
txtestado.Initialize(page, "txtestado","Estado", 400,"")
'Dim l As ABMLabel
'l.Initialize(page,"l","","",False,"")
txtestado.AddItem("A","ACTIVO",BuildSimpleItemCombo("A","ACTIVO") )
txtestado.AddItem("I","INACTIVO", BuildSimpleItemCombo("I","INACTIVO"))
myModal.Content.Cell(4,2).AddComponent(txtestado)
Dim txtmonto_hora As ABMInput
txtmonto_hora.Initialize(page, "txtmonto_hora", ABM.INPUT_TEXT, "Monto Hora", False, "input")
'txtmonto_hora.InputMask = "'alias': 'integer'"
myModal.Content.Cell(6,1).AddComponent(txtmonto_hora)
Dim txtmonto_pedido As ABMInput
txtmonto_pedido.Initialize(page, "txtmonto_pedido", ABM.INPUT_TEXT, "Monto Pedido", False, "input")
'txtmonto_pedido.InputMask = "'alias': 'integer'"
'"'alias':'decimal', 'digits': 2"
myModal.Content.Cell(6,2).AddComponent(txtmonto_pedido)
' Dim txtestado As ABMInput
' txtestado.Initialize(page, "txtestado", ABM.INPUT_TEXT, "Estado", False, "input")
' myModal.Content.Cell(5,1).AddComponent(txtestado)
' create the buttons for the footer
Dim msbtn3 As ABMButton
msbtn3.InitializeFlat(page, "btn_cancelar_editar", "", "", "Cancelar", "transparent")
msbtn3.Tag = "editar"
Dim btn_guardar As ABMButton
btn_guardar.InitializeFlat(page, "btn_guardar_editar", "", "", "Guardar", "transparent")
myModal.Footer.Cell(1,2).AddComponent(msbtn3)
myModal.Footer.Cell(1,1).AddComponent(btn_guardar)
Return myModal
End Sub