Build1=Default,soporte.keymon.lat File1=cat.gif File2=conf.ini File3=ew.gif File4=kelloggs.bal File5=layout1.bal File6=logo_Keymon.png FileGroup1=Default Group FileGroup2=Default Group FileGroup3=Default Group FileGroup4=Default Group FileGroup5=Default Group FileGroup6=Default Group Group=Default Group Library1=bitmapcreator Library10=wobblemenu Library11=b4xgifview Library2=byteconverter Library3=clipboard Library4=core Library5=ime Library6=okhttputils2 Library7=phone Library8=randomaccessfile Library9=runtimepermissions ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~~\n~)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.DarkTheme)~\n~'End of default text.~\n~SetActivityAttribute(main, android:windowSoftInputMode, adjustPan|stateHidden) Module1=DBRequestManager Module2=DBRequestManagerV2 Module3=Starter Module4=Subs NumberOfFiles=6 NumberOfLibraries=11 NumberOfModules=4 Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Soporte Keymonsoft #VersionName: 5.08.28 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger: True '########################################################################################################### '###################### PULL ############################################################# 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull '########################################################################################################### '###################### PUSH ############################################################# 'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\ '########################################################################################################### '###################### PUSH TORTOISE GIT ######################################################### 'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../"&Args=/closeonend:2 '########################################################################################################### #End Region 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\ 'Ver 3.01.23 - Se agregó el nombre del producto al query cuando se borra el producto de un ticket, para evitar que borre cambios y no cambios por igual. 'Ver 3.08.27 - Se implementó el borrar venta de todas las empresas desde una misma pantalla. #Region Activity Attributes #FullScreen: False #IncludeTitle: false #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. ' Dim DBRS_1782 As String = "http://keymon.lat:1782" ' Dim DBRS_1781 As String = "http://keymon.lat:1781" ' Dim DBRS_9000 As String = "http://keymon.lat:9000" Dim DBRS_1782 As String = "http://192.99.93.204:1782" Dim DBRS_1781 As String = "http://192.99.93.204:1781" Dim DBRS_9000 As String = "http://192.99.93.204:9000" ' Dim DBRS_1782 As String = "http://11.0.0.231:1783" 'Para pruebas locales ' Dim DBRS_1782 As String = "http://187.189.244.154:1782" 'Para pruebas locales Dim conexionDBRS As String = "externa" Dim DBRChecked As Boolean = False Dim atrasPresionado As Boolean = False Dim pruebaPaso As Int = 0 Dim pass1, usrDesbloqueo As String Dim versionOk As Boolean = False Dim prodsList As List ' Dim buscarDonde As String = "Usuario" ' Dim buscarQue As String = "" Type DBResult (Tag As Object, Columns As Map, Rows As List) Type DBCommand (Name As String, Parameters() As Object) End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim reqManager, reqManager1781 As DBRequestManager Dim cmd As DBCommand Dim kb As IME Private WobbleMenu1 As WobbleMenu Private Panel1 As Panel Private PanelKelloggs As Panel Private Panel3 As Panel Private Panel4 As Panel Private Panel5 As Panel Private b_desbloquea As Button Private l_almacen As Label Private s_almacen1 As Spinner Private et_ruta1 As EditText Private s_almacen3 As Spinner Private et_ruta3 As EditText Private b_borrarVenta1 As Button Private b_borrarVenta3 As Button Private s_almacen4 As Spinner Private et_ruta4 As EditText Private b_borrarVenta4 As Button Private b_forzarVenta1 As Button Private b_forzarVenta3 As Button Private b_forzarVenta4 As Button Private s_almacen2 As Spinner Private et_ruta2 As EditText Private b_borrarVenta2 As Button Private b_forzarVenta2 As Button Private s_tipoVenta As Spinner Private et_usuario As EditText Dim empresasMap As Map Dim spinnerGunaMap, spinnerKelloggsMap, spinnerKelloggs2Map, spinnerSalmaMap, spinnerDanvitMap, spinnerDurakeloMap, spinnerMardsMap, spinnerIntmexMap, spinnerEmpresaMap As Map Dim almacenGuna, almacenKelloggs, almacenKelloggs2, almacenSalma, almacenDanvit, almacenDurakelo, almacenDeRuta, almacenMards, almacenEmpresa As String Dim tipoVentaKelloggs As String = "VENTA" Private l_version As Label Private l_cita As Label Private l_copyright As Label Private l_copyright1 As Label Private p_login As Panel Private et_login As EditText Private p_backLogin As Panel Private l_toast As Label Private p_toast As Panel Private cb_usrMayusc As CheckBox Private p_opcDesbloqueo As Panel Private p_copyright As Panel Private p_buscar As Panel Private et_usr As EditText Private et_almacen As EditText Private et_ruta As EditText Private b_buscarUsr As Button Private lv_resultadosBusqueda As ListView Private b_revisaVenta As Button Private b_revisaVenta2 As Button Private p_botones1 As Panel Private p_botones2 As Panel Private p_botones3 As Panel Private p_botones4 As Panel Private s_usrEmpresa As Spinner Private usrEmpresa As String = "GUNA" Private b_login As Button Private s_almacen2_2 As Spinner Private et_cliente As EditText Private b_borrarTicket As Button Private p_botones_k2 As Panel Private b_revisaTicket As Button Private lv_ticket As ListView Private sv_kelloggs As ScrollView Private et_referencia As EditText Private et_folio As EditText Private et_monto As EditText Private b_borrarPagare As Button ' Private Panel2 As Panel Private Panel16 As Panel Private PanelFacturacion As Panel Private b_libBanderaFactura As Button Private b_libBanderaCargaForanea As Button Private gv_gato As B4XGifView Private gv_bicho As B4XGifView Dim timerBicho As Timer Private p_ticket As Panel Private b_cerrarTicket As Button Private Panel2 As Panel Private l_SinProductos As Label Dim liquidada As Boolean = False Private p_Mards As Panel Private b_forzarVentaMards As Button Private b_borrarVentaMards As Button Private b_revisaVentaMards As Button Private p_botonesMards As Panel Private s_almacenMards As Spinner Private et_rutaMards As EditText Private p_borrarVenta As Panel Private s_empresaBV As Spinner Private s_almacenBV As Spinner Private et_rutaBV As EditText Private s_tipoVentaBV As Spinner Private b_revisarVentaBV As Button Private b_borrarVentaBV As Button Private b_forzarVentaBV As Button Dim laEmpresa As String = "" Dim laRuta As String = "" Private l_tipoVentaBV As Label Private p_tipoVentaBV As Panel Dim elTipoDeVenta As String Private b_pasarInfoMovilKellogs As Button Private b_pasarInfoMovilDurakelo As Button Private b_pasarInfoMovilDurakeloRep As Button Private b_pasarInfoMovilIntmex As Button Private l_resVentaTitulo As Label Private l_resVentaTotal As Label Private l_resArqueo As Label Private l_resLiquidacion As Label Private b_cerrar As Button Private p_resVenta As Panel Private p_resVentaTransparente As Panel Private l_version1 As Label Private b_resDuplicadosKell As Button Private s_empresaAA As Spinner Private s_almacenAA As Spinner Private et_rutaAA As EditText Private b_abrirAvion As Button Dim empresaAA, almacenAA As String Dim cuantosAbrirAvion As Int = 0 Private p_botonesAA As Panel Dim reqManagerT As DBRequestManagerV2 End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("Layout1") If FirstTime Then DateTime.DateFormat = "yyyy" l_copyright1.Text = $"KeymonSoft ${DateTime.Date(DateTime.Now)}."$ End If prodsList.Initialize ' sv_kelloggs.Panel.LoadLayout("Kelloggs") p_login.BringToFront Subs.panelVisible(p_login, 0, 0, Activity) Subs.centraETEnPanel(et_login, p_login) Subs.centraPanelEnPanel(p_backLogin, p_login) l_version.text = "Version " & Application.VersionName ProgressDialogShow("Descargando información") Log("DBServer: " & DBRS_1782) reqManager.Initialize(Me, DBRS_1782) ' ToastMessageShow("Probando: " & DBRS_1782, False) cmd.Initialize cmd.Name = "select_soporte" 'Intentamos conectarnos al servido publico y si no responde cambiamos al interno. reqManager.ExecuteQuery(cmd , 0, "pruebaConexion", 750) 'request con timeout corto en ms. DBRChecked = False Do While Not(DBRChecked) ' Esperamos a que termine la prueba de conexion. Sleep(20) Loop et_usuario.InputType = Bit.Or(et_usuario.InputType, 4096) 'Esta linea es para que cuando se escriba en el campo, sea con mayusculas, para mas tipos vaya a: https://developer.android.com/reference/android/text/InputType.html#TYPE_TEXT_FLAG_CAP_CHARACTERS et_usr.InputType = Bit.Or(et_usuario.InputType, 4096) 'Esta linea es para que cuando se escriba en el campo, sea con mayusculas, para mas tipos vaya a: https://developer.android.com/reference/android/text/InputType.html#TYPE_TEXT_FLAG_CAP_CHARACTERS et_almacen.InputType = Bit.Or(et_usuario.InputType, 4096) 'Esta linea es para que cuando se escriba en el campo, sea con mayusculas, para mas tipos vaya a: https://developer.android.com/reference/android/text/InputType.html#TYPE_TEXT_FLAG_CAP_CHARACTERS et_ruta.InputType = Bit.Or(et_usuario.InputType, 4096) 'Esta linea es para que cuando se escriba en el campo, sea con mayusculas, para mas tipos vaya a: https://developer.android.com/reference/android/text/InputType.html#TYPE_TEXT_FLAG_CAP_CHARACTERS WobbleMenu1.SetTabTextIcon(1,"Guna", Chr(0xF0C0), Typeface.FONTAWESOME) WobbleMenu1.SetTabTextIcon(2,"Kellogg's", Chr(0xF007), Typeface.FONTAWESOME) WobbleMenu1.SetTabTextIcon(3,"Salma", Chr(0xF2BE), Typeface.FONTAWESOME) WobbleMenu1.SetTabTextIcon(4,"Danvit", Chr(0xF21B), Typeface.FONTAWESOME) WobbleMenu1.SetTabTextIcon(5,"Borrar Venta", Chr(0xF29D), Typeface.FONTAWESOME) WobbleMenu1.SetTabTextIcon(6,"Facturacion", Chr(0xF2D9), Typeface.FONTAWESOME) WobbleMenu1.SetTabTextIcon(7,"Otro", Chr(0xF2D9), Typeface.FONTAWESOME) ' WobbleMenu1.SetBadge(4,5,Colors.White,Colors.Blue) Subs.panelVisible(Panel1, 0, 0, Activity) ' Subs.centraBotonEnPanel(b_borrarVenta1, Panel1) ' Subs.centraBotonEnPanel(b_forzarVenta1, Panel1) s_tipoVenta.AddAll(Array As String("VENTA", "ABORDO")) s_usrEmpresa.AddAll(Array As String("GUNA", "KELLOGGS", "SALMA", "DANVIT")) ' s_buscarD.AddAll(Array As String("Usuario", "Nombre", "Almacen", "Ruta")) empresasMap.Initialize spinnerGunaMap.Initialize spinnerKelloggsMap.Initialize spinnerKelloggs2Map.Initialize spinnerSalmaMap.Initialize spinnerDanvitMap.Initialize spinnerDurakeloMap.Initialize spinnerMardsMap.Initialize spinnerIntmexMap.Initialize spinnerEmpresaMap.Initialize s_empresaBV.Clear s_empresaBV.AddAll(Array As String("-= Seleccione =-", "Danvit", "Durakelo", "Guna", "Kelloggs", "Mards", "Salma")) s_empresaAA.AddAll(Array As String("-= Seleccione =-", "Danvit", "Durakelo", "Guna", "Intmex", "Kelloggs", "Mards", "Salma")) s_tipoVentaBV.AddAll(Array As String("VENTA", "ABORDO")) s_tipoVentaBV.SelectedIndex = 0 reqManager.Initialize(Me, DBRS_1782) 'Traemos los almacenes de Guna cmd.Initialize cmd.Name = "select_almacenes_GUNA" reqManager.ExecuteQuery(cmd , 0, "almacenesGuna", 0) 'Traemos los almacenes de Danvit ' cmd.Initialize cmd.Name = "select_almacenes_DANVIT" reqManager.ExecuteQuery(cmd , 0, "almacenesDanvit", 0) reqManager.Initialize(Me, DBRS_1781) cmd.Name = "select_almacenes_DURAKELO" reqManager.ExecuteQuery(cmd , 0, "almacenesDurakelo", 0) 'Traemos los almacenes de Kelloggs ' cmd.Initialize cmd.Name = "select_almacenes_KELL" reqManager.ExecuteQuery(cmd , 0, "almacenesKelloggs", 0) 'Traemos los almacenes de Salma ' cmd.Initialize cmd.Name = "select_almacenes_SALMA" reqManager.ExecuteQuery(cmd , 0, "almacenesSalma", 0) 'Traemos los almacenes de Mards reqManager.Initialize(Me, DBRS_1781) cmd.Name = "select_almacenes_Mards" reqManager.ExecuteQuery(cmd , 0, "almacenesMards", 0) cmd.Name = "select_almacenes_Intmex" reqManager.ExecuteQuery(cmd , 0, "almacenesIntmex", 0) kb.Initialize("kb") gv_gato.SetGif(File.DirAssets, "cat.gif") gv_bicho.SetGif(File.DirAssets, "ew.gif") timerBicho.Initialize("timerBicho", 5000) timerBicho.Enabled = True reqManager.Initialize(Me, DBRS_1782) Subs.centraEtiquetaEnPanel(l_version1, p_login) l_version1.Top = Activity.Height * 0.85 l_version1.text = "Version " & Application.VersionName End Sub Sub Activity_Resume ' reqManager.Initialize(Me, DBRS_1782) ' If Starter.mayusculasDesbloqueo = "1" Then cb_usrMayusc.Checked = True Dim label1 As Label = lv_resultadosBusqueda.TwoLinesLayout.Label label1.TextSize = 13 label1.TextColor = Colors.Black Dim label2 As Label = lv_resultadosBusqueda.TwoLinesLayout.SecondLabel label2.TextSize = 13 label2.TextColor = Colors.Black Dim label12 As Label = lv_ticket.TwoLinesLayout.Label label12.TextSize = 13 label12.TextColor = Colors.Black ' label12.Height = 12dip Dim label22 As Label = lv_ticket.TwoLinesLayout.SecondLabel label22.TextSize = 13 label22.TextColor = Colors.Black ' label22.Height = 12dip lv_ticket.TwoLinesLayout.ItemHeight = 50dip b_login.Height = Activity.Height b_login.Width = Activity.Width b_login.Top = 0 : b_login.left = 0 Subs.SetElevation(et_login, 10) End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub timerBicho_Tick Private rand As Int = Rnd(1,3) If rand = 1 Then gv_bicho.mBase.Visible = True Else gv_bicho.mBase.Visible = False ' Log("Bicho visible = " & rand) End Sub Sub WobbleMenu1_Tab1Click 'Guna reqManager.Initialize(Me, DBRS_1782) ' Log("Tab 1") ' sv_kelloggs.Visible = False WobbleMenu1.RemoveBadge(4) Subs.panelVisible(Panel1, 0, 0, Activity) ' Subs.panelOculto(PanelKelloggs) ' sv_kelloggs.Visible = False Subs.panelOculto(Panel2) Subs.panelOculto(Panel3) Subs.panelOculto(Panel4) Subs.panelOculto(p_borrarVenta) Subs.panelOculto(PanelFacturacion) Subs.panelOculto(Panel5) ' Subs.centraBotonEnPanel(b_borrarVenta1, Panel1) ' Subs.centraBotonEnPanel(b_forzarVenta1, Panel1) Subs.centraPanelEnPanel(p_botones1, Panel1) End Sub Sub WobbleMenu1_Tab2Click 'Kelloggs ' Log("Tab 2") reqManager.Initialize(Me, DBRS_1781) WobbleMenu1.RemoveBadge(4) ' sv_kelloggs.Top = 0 ' sv_kelloggs.Left = 0 ' sv_kelloggs.Width = Activity.Width ' sv_kelloggs.Height = Activity.Height - 50 ' sv_kelloggs.Visible = True ' PanelKelloggs.Height = Activity.Height lv_ticket.Width = Activity.Width * 0.9 lv_ticket.Left = (Activity.Width/2) - (lv_ticket.Width/2) ' Subs.panelVisible(PanelKelloggs, 0, 0, Activity) ' PanelKelloggs.Visible = True ' PanelKelloggs.Width = Activity.Width Subs.panelVisible(Panel2, 0, 0, Activity) Panel2.Width = Activity.Width Subs.panelOculto(Panel1) Subs.panelOculto(Panel3) Subs.panelOculto(Panel4) Subs.panelOculto(p_borrarVenta) Subs.panelOculto(PanelFacturacion) Subs.panelOculto(Panel5) ' Subs.centraPanelEnPanel(p_botones2, PanelKelloggs) ' Subs.centraPanelEnPanel(p_botones_k2, PanelKelloggs) ' Subs.centraBotonEnPanel(b_borrarPagare, PanelKelloggs) End Sub Sub WobbleMenu1_Tab3Click 'Salma reqManager.Initialize(Me, DBRS_1781) WobbleMenu1.RemoveBadge(4) Subs.panelVisible(Panel3, 0, 0, Activity) Subs.panelOculto(Panel1) Subs.panelOculto(Panel2) ' Subs.panelOculto(PanelKelloggs) ' sv_kelloggs.Visible = False Subs.panelOculto(Panel4) Subs.panelOculto(p_borrarVenta) Subs.panelOculto(PanelFacturacion) Subs.panelOculto(Panel5) ' Log("Tab 3") ' Subs.centraBotonEnPanel(b_borrarVenta3, Panel3) ' Subs.centraBotonEnPanel(b_forzarVenta3, Panel3) Subs.centraPanelEnPanel(p_botones3, Panel3) End Sub Sub WobbleMenu1_Tab4Click 'Danvit reqManager.Initialize(Me, DBRS_1782) WobbleMenu1.RemoveBadge(4) Subs.panelVisible(Panel4, 0, 0, Activity) 'Danvit Subs.panelOculto(Panel1) ' Subs.panelOculto(PanelKelloggs) ' sv_kelloggs.Visible = False Subs.panelOculto(Panel2) Subs.panelOculto(Panel3) Subs.panelOculto(p_borrarVenta) Subs.panelOculto(PanelFacturacion) Subs.panelOculto(Panel5) ' Log("Tab 4") ' Subs.centraBotonEnPanel(b_borrarVenta4, Panel4) ' Subs.centraBotonEnPanel(b_forzarVenta4, Panel4) Subs.centraPanelEnPanel(p_botones4, Panel4) End Sub Sub WobbleMenu1_Tab5Click 'Borrar Venta ' WobbleMenu1.RemoveBadge(4) reqManager.Initialize(Me, DBRS_1781) Subs.panelVisible(p_borrarVenta, 0, 0, Activity) Subs.panelOculto(Panel1) Subs.panelOculto(Panel2) ' Subs.panelOculto(PanelKelloggs) ' sv_kelloggs.Visible = False Subs.panelOculto(Panel3) Subs.panelOculto(Panel4) Subs.panelOculto(PanelFacturacion) Subs.panelOculto(Panel5) ' Log("Tab 3") ' Subs.centraBotonEnPanel(b_borrarVenta3, Panel3) ' Subs.centraBotonEnPanel(b_forzarVenta3, Panel3) Subs.centraPanelEnPanel(p_botonesMards, p_borrarVenta) ' Subs.centraBotonEnPanel(b_abrirAvion, p_borrarVenta) Subs.centraPanelEnPanel(p_botonesAA, p_borrarVenta) s_empresaBV.SelectedIndex = 0 s_almacenBV.SelectedIndex = 0 End Sub 'Sub WobbleMenu1_Tab5Click '(Antes usuarios) ' Subs.panelVisible(p_buscar, 0, 0, Activity) ' gv_bicho.mBase.Visible = True '' Subs.panelOculto(PanelKelloggs) '' sv_kelloggs.Visible = False ' Subs.panelOculto(Panel1) ' Subs.panelOculto(Panel2) ' Subs.panelOculto(Panel3) ' Subs.panelOculto(Panel4) ' Subs.panelOculto(PanelFacturacion) ' Subs.panelOculto(Panel5) ' Subs.centraBotonEnPanel(b_buscarUsr, p_buscar) ' lv_resultadosBusqueda.Left = (p_buscar.Width/2)-(lv_resultadosBusqueda.Width/2) ' lv_resultadosBusqueda.Height = Activity.Height - lv_resultadosBusqueda.Top - 200 'End Sub Sub WobbleMenu1_Tab6Click 'Facturacion ' Log("Tab Facturacion") reqManager.Initialize(Me, DBRS_1781) l_cita.Text = Subs.dameCita(Starter.citas) Subs.panelVisible(PanelFacturacion, 0, 0, Activity) ' Subs.panelOculto(PanelKelloggs) Subs.panelOculto(Panel1) ' sv_kelloggs.Visible = False Subs.panelOculto(Panel2) Subs.panelOculto(Panel3) Subs.panelOculto(Panel4) Subs.panelOculto(Panel5) Subs.panelOculto(p_borrarVenta) Subs.centraBotonEnPanel(b_borrarPagare, PanelFacturacion) ' Subs.centraPanelEnPanel(Panel16, PanelFacturacion) Subs.centraBotonEnPanel(b_libBanderaFactura, PanelFacturacion) Subs.centraBotonEnPanel(b_libBanderaCargaForanea, PanelFacturacion) Subs.centraBotonEnPanel(b_pasarInfoMovilKellogs, PanelFacturacion) Subs.centraBotonEnPanel(b_pasarInfoMovilDurakelo, PanelFacturacion) Subs.centraBotonEnPanel(b_pasarInfoMovilDurakeloRep, PanelFacturacion) Subs.centraBotonEnPanel(b_pasarInfoMovilIntmex, PanelFacturacion) End Sub Sub WobbleMenu1_Tab7Click 'About ' Log("Tab Otro") ' reqManager.Initialize(Me, DBRS_1782) ' WobbleMenu1.RemoveBadge(4) l_cita.Text = Subs.dameCita(Starter.citas) Subs.panelVisible(Panel5, 0, 0, Activity) gv_bicho.mBase.Visible = False Subs.panelOculto(Panel1) ' Subs.panelOculto(PanelKelloggs) ' sv_kelloggs.Visible = False Subs.panelOculto(Panel2) Subs.panelOculto(Panel3) Subs.panelOculto(Panel4) Subs.panelOculto(PanelFacturacion) Subs.panelOculto(p_borrarVenta) Subs.centraEtiquetaEnPanel(l_version, Panel5) Subs.centraEtiquetaEnPanel(l_cita, Panel5) Subs.centraPanelEnPanel (p_copyright, Panel5) End Sub 'Desbloquea el usuario de Guna especificado en "et_usuario". Private Sub b_desbloquea_Click If et_usuario.Text <> "" Then cmd.Initialize cmd.Name = "update_usuario_guna" Dim tempUsr As String = et_usuario.Text tempUsr = tempUsr.Trim 'Quitamos espacios de antes y despues. ' If Starter.mayusculasDesbloqueo = "1" Then tempUsr = tempUsr.ToUpperCase 'Mandamos el usuario en mayusculas. cmd.Parameters = Array As Object(tempUsr) Log("Mandamos DBRequest desbloqueo: " & tempUsr) usrDesbloqueo = tempUsr reqManager.ExecuteCommand(cmd , "desbloqueaUsuario") Else Toast("Por favor ingrese el usuario a desbloquear. 🙄", 650) End If kb.HideKeyboard End Sub 'Desbloquea el usuario de Intmex especificado en "et_usuario". Private Sub b_desbloqueaIntmex_Click If et_usuario.Text <> "" Then reqManager1781.Initialize(Me, DBRS_1781) cmd.Initialize cmd.Name = "desbloqueaUsuarioIntmex" Dim tempUsr As String = et_usuario.Text tempUsr = tempUsr.Trim 'Quitamos espacios de antes y despues. ' If Starter.mayusculasDesbloqueo = "1" Then tempUsr = tempUsr.ToUpperCase 'Mandamos el usuario en mayusculas. cmd.Parameters = Array As Object(tempUsr) Log("Mandamos DBRequest desbloqueo: " & tempUsr) usrDesbloqueo = tempUsr reqManager1781.ExecuteCommand(cmd , "desbloqueaUsuario") Else Toast("Por favor ingrese el usuario a desbloquear. 🙄", 650) End If kb.HideKeyboard End Sub Sub s_almacen1_ItemClick (Position As Int, Value As Object) almacenGuna = spinnerGunaMap.Get(Value) almacenDeRuta = Value Log(Value) Log($"Almacén ${almacenGuna} de Guna seleccionado"$ ) End Sub Sub s_almacen2_ItemClick (Position As Int, Value As Object) almacenKelloggs = spinnerKelloggsMap.Get(Value) almacenDeRuta = Value Log($"Almacén ${almacenKelloggs} de Kelloggs seleccionado"$ ) End Sub Private Sub s_tipoVenta_ItemClick (Position As Int, Value As Object) tipoVentaKelloggs = Value End Sub Sub s_almacen3_ItemClick (Position As Int, Value As Object) almacenSalma = spinnerSalmaMap.Get(Value) almacenDeRuta = Value Log($"Almacén ${almacenSalma} de Salma seleccionado"$ ) End Sub Sub s_almacen4_ItemClick (Position As Int, Value As Object) almacenDanvit = spinnerDanvitMap.Get(Value) almacenDeRuta = Value Log($"Almacén ${almacenDanvit} de Danvit seleccionado"$ ) End Sub 'Sub s_almacen5_ItemClick (Position As Int, Value As Object) ' almacenDurakelo = spinnerDurakeloMap.Get(Value) ' almacenDeRuta = Value ' Log($"Almacén ${almacenDurakelo} de Danvit seleccionado"$ ) 'End Sub Private Sub s_almacenMards_ItemClick (Position As Int, Value As Object) almacenMards = spinnerMardsMap.Get(Value) almacenDeRuta = Value Log($"Almacén ${almacenMards} de Mards seleccionado"$ ) End Sub 'Revisa si la venta de Guna se puede borrar, y si SI se puede, la borra. Private Sub b_borrarVenta1_Click kb.HideKeyboard Log(et_ruta1.Text & "|" & almacenGuna) If et_ruta1.Text.Trim <> "" And almacenGuna <> "" Then cmd.Initialize cmd.Name = "revisa_liquidada_Guna" 'Primero revisamos que no este liquidada o con descuento. cmd.Parameters = Array As Object(almacenGuna, et_ruta1.Text.Trim) Log($"Revisamos venta liquidada Guna: almacen: ${almacenGuna}, ruta: ${et_ruta1.Text} "$) reqManager.ExecuteQuery(cmd , 0, "revisa_liquidada_Guna", 0) Else Toast("Por favor ingrese ruta y almacén 🤦🏽‍♂️", 600) End If End Sub 'Forzamos borrar venta de Guna en clic Private Sub b_forzarVenta1_Click borrarVentaForzadaGuna End Sub 'Revisa si la venta de Kelloggs se puede borrar, y si SI se puede, la borra. Private Sub b_borrarVenta2_Click kb.HideKeyboard If et_ruta2.Text.Trim <> "" And almacenKelloggs <> "" Then cmd.Initialize cmd.Name = "revisa_liquidada_Kell" 'Primero revisamos que no este liquidada o con descuento. cmd.Parameters = Array As Object(almacenKelloggs, et_ruta2.Text.Trim, tipoVentaKelloggs) Log($"Revisamos venta liquidada Kelloggs: almacen: ${almacenKelloggs}, ruta: ${et_ruta2.Text}"$) reqManager.ExecuteQuery(cmd , 0, "revisa_liquidada_Kell", 0) Else Toast("Por favor ingrese ruta y almacén 🤦🏽‍♂️", 600) End If End Sub 'Forzamos borrar venta de Kelloggs en clic Private Sub b_forzarVenta2_Click borrarVentaForzadaKelloggs End Sub 'Forzamos el borrado de la venta de Kelloggs Sub borrarVentaForzadaKelloggs Private rutaVenta As Int If p_borrarVenta.Visible Then rutaVenta = et_rutaBV.Text.trim almacenKelloggs = spinnerEmpresaMap.Get(s_almacenBV.SelectedItem) tipoVentaKelloggs = s_tipoVentaBV.SelectedItem Else rutaVenta = et_ruta2.Text.Trim End If Private usrSoporte As String = "appSoporte" ' Private tipoVenta As String = tipoVentaKelloggs Private bandera As Int = 1 cmd.Initialize 'Se borra la venta forzada cmd.Name = "proc_QUITAR_VENTA_KELL" cmd.Parameters = Array As Object(almacenKelloggs, rutaVenta, usrSoporte, tipoVentaKelloggs, bandera) Log("Madamos borrar venta Kellogs: " & almacenKelloggs&"|"& rutaVenta&"|"&usrSoporte&"|"&tipoVentaKelloggs&"|"&bandera) reqManager.ExecuteCommand(cmd , "borrarVentaKelloggs") End Sub 'Forzamos el borrado de la venta de Kelloggs Sub borrarVentaForzadaDurakelo Private rutaVenta As Int tipoVentaKelloggs = s_tipoVentaBV.SelectedItem almacenEmpresa = spinnerEmpresaMap.Get(s_almacenBV.SelectedItem) If p_borrarVenta.Visible Then rutaVenta = et_rutaBV.Text.trim Else rutaVenta = et_ruta2.Text.Trim End If Private usrSoporte As String = "appSoporte" ' Private tipoVenta As String = tipoVentaKelloggs Private bandera As Int = 1 cmd.Initialize 'Se borra la venta forzada cmd.Name = "proc_QUITAR_VENTA_DURAKELO" cmd.Parameters = Array As Object(almacenEmpresa, rutaVenta, usrSoporte, tipoVentaKelloggs) Log("Madamos borrar venta Kellogs: " & almacenEmpresa&"|"& rutaVenta&"|"&usrSoporte&"|"&tipoVentaKelloggs&"|"&bandera) reqManager.ExecuteCommand(cmd , "borrarVentaKelloggs") End Sub 'Forzamos el borrado de la venta de Guna Sub borrarVentaForzadaGuna Private rutaVenta As Int If p_borrarVenta.Visible Then rutaVenta = et_rutaBV.Text.trim almacenGuna = spinnerEmpresaMap.Get(s_almacenBV.SelectedItem) Else rutaVenta = et_ruta1.Text.Trim End If Private usrSoporte As String = "appSoporte" Private bandera As Int = 1 Log("Llamamos proc_QUITAR_VENTA_GUNA") cmd.Initialize 'Se borra la venta forzada cmd.Name = "proc_QUITAR_VENTA_GUNA" cmd.Parameters = Array As Object(almacenGuna, rutaVenta, usrSoporte, bandera) Log("Madamos borrar venta Guna: " & almacenGuna&"|"& rutaVenta&"|"&usrSoporte&"|"&bandera) reqManager.ExecuteCommand(cmd , "borrarVentaGuna") End Sub 'Borramos la venta de Salma Private Sub b_borrarVenta3_Click If et_ruta3.text <> "" And almacenSalma <> "" Then kb.HideKeyboard Private rutaVenta As Int = et_ruta3.Text.Trim Private usrSoporte As String = "appSoporte" cmd.Initialize cmd.Name = "proc_QUITAR_VENTA_SALMA" cmd.Parameters = Array As Object(almacenSalma, rutaVenta, usrSoporte) Log($"Mandamos borrar venta de Salma, almacen: ${almacenSalma}, ruta: ${rutaVenta}, usuario: '${usrSoporte}'"$) reqManager.ExecuteCommand(cmd , "borrarVentaSalma") Else Toast("Por favor ingrese ruta y almacén 🙄", 600) End If End Sub 'Borramos venta de Danvit Private Sub b_borrarVenta4_Click If et_ruta4.text <> "" And almacenDanvit <> "" Then kb.HideKeyboard Private rutaVenta As Int = et_ruta4.Text.Trim Private usrSoporte As String = "appSoporte" cmd.Initialize cmd.Name = "proc_QUITAR_VENTA_DANVIT" cmd.Parameters = Array As Object(almacenDanvit, rutaVenta, usrSoporte) Log($"Madamos borrar venta Danvit, almacen: ${almacenDanvit}, ruta: ${rutaVenta}, usuario: '${usrSoporte}'"$) reqManager.ExecuteCommand(cmd , "borrarVentaDanvit") Else Toast("Por favor ingrese ruta y almacén 🤦🏽‍♂️", 600) End If End Sub Private Sub et_ruta2_TextChanged (Old As String, New As String) b_forzarVenta2.Visible = False End Sub 'Detectamos clics en actividad para poner en 'False' la variable 'atrasPresionado' y para ocultar el panel de opciones de desbloqueo. Sub activity_Click If atrasPresionado Then atrasPresionado = False ' If p_opcDesbloqueo.Visible Then p_opcDesbloqueo.Visible = False End Sub Sub Activity_KeyPress (key As Int) As Boolean ' BACK key pressed If key=KeyCodes.KEYCODE_BACK Then If atrasPresionado Then ExitApplication 'Solo salimos de la aplicación si se presiona 'Atras' 2 veces seguidas. ToastMessageShow("Presiona 'Atras' nuevamente para salir de la aplicación.", True) atrasPresionado = True ' Log("atrasPresionado: True") ' I want to capture the key here so I return True Return True End If ' Returning 'False' signals the system to handle the key Return False End Sub Sub JobDone(Job As HttpJob) LogColor("jobDone: " & Job.Tag, Colors.Magenta) If Job.Success = False Then LogColor("***** jobDone Error *****", Colors.Red) If Job.Tag = "borrarVentaKelloggs" Then Toast("Venta Eliminada.", 0) 'El request de eliminar venta (Stored Procedure) siempre regresa error, asi que asumimos que SI se borro la venta. b_forzarVenta2.Visible = False else If Job.Tag = "borrarVentaGuna" Then Toast("Venta Eliminada.", 0) 'El request de eliminar venta (Stored Procedure) siempre regresa error, asi que asumimos que SI se borro la venta. b_forzarVenta1.Visible = False ' else If Job.Tag = "borrarVentaSalma" Or Job.Tag = "borrarVentaDanvit" Then ' ToastMessageShow("Venta Eliminada.", False) 'El request de eliminar venta (Stored Procedure) siempre regresa error, asi que asumimos que SI se borro la venta. '/////////////////// Si hay error de conexion con keymon.lat nos cambiamos a 10.0.0.205 /////////////////////// else If Job.Tag = "pruebaConexion" And Job.ErrorMessage.IndexOf("Failed to connect to keymon.lat") = -1 Then DBRS_1782 = "http://keymon.net:1782" Dim DBRS_1781 As String = "http://keymon.net:1782" ' DBRS_1782 = "http://11.0.0.231:1783" 'Para pruebas locales reqManager.Initialize(Me, DBRS_1782) conexionDBRS = "interna" pruebaPaso = pruebaPaso + 1 Toast("Cambiando a servidor interno. 🕵🏼", 0) ' ToastMessageShow("Cambiando a servidor interno. 🕵🏼", False) LogColor("Cambiando a servidor interno.", Colors.RGB(255,123,0)) If pruebaPaso < 2 Then Log("Reintentamos conexión con servidor nuevo.") cmd.Initialize cmd.Name = "select_soporte" 'Reintentamos conexión. reqManager.ExecuteQuery(cmd , 0, "pruebaConexion", 0) End If else If Job.Tag = "pasarInfoMovilKell" Then ' Subs.logJobDoneResultados(result) b_pasarInfoMovilKellogs.Enabled = True DateTime.DateFormat = "HH:mm:ss" b_pasarInfoMovilKellogs.Text = $"PasarInfoMovil Kelloggs"$ else If Job.Tag = "pasarInfoMovilDur" Then ' Subs.logJobDoneResultados(result) b_pasarInfoMovilDurakelo.Enabled = True DateTime.DateFormat = "HH:mm:ss" b_pasarInfoMovilDurakelo.Text = $"PasarInfoMovil Durakelo"$ else If Job.Tag = "pasarInfoMovilDurRep" Then ' Subs.logJobDoneResultados(result) b_pasarInfoMovilDurakeloRep.Enabled = True DateTime.DateFormat = "HH:mm:ss" b_pasarInfoMovilDurakeloRep.Text = $"PasarInfoMovil Durakelo Rep"$ else If Job.Tag = "pasarInfoMovilIntmex" Then ' Subs.logJobDoneResultados(result) b_pasarInfoMovilIntmex.Enabled = True DateTime.DateFormat = "HH:mm:ss" b_pasarInfoMovilIntmex.Text = $"PasarInfoMovil Intmex"$ Else LogColor("JobDone Error: " & Job.ErrorMessage, Colors.red) Toast("Error: " & Job.ErrorMessage, 0) End If DBRChecked = True 'Prueba de conexión finalizada. '//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Else DBRChecked = True 'Prueba de conexión finalizada. Log(1) If Job.Tag <> "testTraeConexion" Then Log(2) LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027 If Job.JobName = "DBRequest" Then 'Para desbloquear un usuario Guna. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "desbloqueaUsuario" Then 'query tag For Each records() As Object In result.Rows et_usuario.Text = "" Private pp As BClipboard pp.setText($"${Subs.generaSaludo}usuario *${usrDesbloqueo}* desbloqueado, por favor *cerrar* navegadores por completo y reingresar."$) 'Copiamos el texto al portapapeles. ' ToastMessageShow("Mensaje copiado al portapapeles.", False) Log("Usuario desbloqueado! 🔓") Toast("Usuario desbloqueado 🔓", 0) Next End If End If Log(2) If Job.JobName = "DBRequest" Then 'Traemos info de soporte. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "pruebaConexion" Then 'query tag Log($"Conectado a ${DBRS_1782} - ${conexionDBRS}"$) For Each records() As Object In result.Rows ' For Each k As String In result.Columns.Keys ' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) ' Next pass1 = records(result.Columns.Get("CONTRASENA")) Next 'Si la version de la aplicacion es menor que la autorizada, salimos de la aplicación. If Subs.comparaVersiones(Application.VersionName, records(result.Columns.Get("VERSIONAUTORIZADA"))) = -1 Then versionOk = False Msgbox("Disculpe las molestias que estas obras le ocasionan, estamos trabajando para mejorar. 🤹🏽‍♂️", "VERSION EN MANTENIMIENTO") 'ignore ExitApplication End If versionOk = True p_backLogin.Visible = True et_login.Visible = True ProgressDialogHide End If End If ' If Job.JobName = "DBRequest" Then 'Para borrar venta de Guna. ' Dim result As DBResult = reqManager.HandleJob(Job) 'El procedimiento de borrar venta, aunque SI borra la venta, siempre regresa error, así que este IF en realidad no se usa!! ' If result.Tag = "borrarVentaGuna" Then 'query tag ' For Each records() As Object In result.Rows ' For Each k As String In result.Columns.Keys ' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) ' Next ' Log("Rows - " & result.Rows.Size) ' Toast("Venta Eliminada.", 0) ' Next ' End If ' End If If Job.JobName = "DBRequest" Then 'Traemos los almacenes de Guna. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "almacenesGuna" Then 'query tag s_almacen1.Add("-= Selecciona =-") For Each records() As Object In result.Rows s_almacen1.Add(records(result.Columns.Get("CAT_AG_NOMBRE"))) spinnerGunaMap.Put(records(result.Columns.Get("CAT_AG_NOMBRE")), records(result.Columns.Get("CAT_AG_ID"))) empresasMap.Put("Guna", spinnerGunaMap) ' Log(spinnerGunaMap) Next End If End If If Job.JobName = "DBRequest" Then 'Traemos los almacenes de Kelloggs. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "almacenesKelloggs" Then 'query tag s_almacen2.Add("-= Selecciona =-") s_almacen2_2.Add("-= Selecciona =-") For Each records() As Object In result.Rows s_almacen2.Add(records(result.Columns.Get("CAT_AG_NOMBRE"))) s_almacen2_2.Add(records(result.Columns.Get("CAT_AG_NOMBRE"))) spinnerKelloggsMap.Put(records(result.Columns.Get("CAT_AG_NOMBRE")), records(result.Columns.Get("CAT_AG_ID"))) spinnerKelloggs2Map.Put(records(result.Columns.Get("CAT_AG_NOMBRE")), records(result.Columns.Get("CAT_AG_ID"))) empresasMap.Put("Kelloggs", spinnerKelloggsMap) ' Log(spinnerKelloggsMap) Next End If End If If Job.JobName = "DBRequest" Then 'Traemos los almacenes de Salma. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "almacenesSalma" Then 'query tag s_almacen3.Add("-= Selecciona =-") For Each records() As Object In result.Rows s_almacen3.Add(records(result.Columns.Get("CAT_AG_NOMBRE"))) spinnerSalmaMap.Put(records(result.Columns.Get("CAT_AG_NOMBRE")), records(result.Columns.Get("CAT_AG_ID"))) empresasMap.Put("Salma", spinnerSalmaMap) ' Log(spinnerSalmaMap) Next End If If result.Tag = "almacenesMards" Then 'query tag s_almacenMards.Add("-= Selecciona =-") For Each records() As Object In result.Rows s_almacenMards.Add(records(result.Columns.Get("CAT_AG_NOMBRE"))) spinnerMardsMap.Put(records(result.Columns.Get("CAT_AG_NOMBRE")), records(result.Columns.Get("CAT_AG_ID"))) empresasMap.Put("Mards", spinnerMardsMap) ' Log(spinnerMardsMap) Next End If If result.Tag = "almacenesIntmex" Then 'query tag s_almacenAA.Add("-= Selecciona =-") For Each records() As Object In result.Rows ' s_almacenAA.Add(records(result.Columns.Get("CAT_AG_NOMBRE"))) spinnerIntmexMap.Put(records(result.Columns.Get("CAT_AG_NOMBRE")), records(result.Columns.Get("CAT_AG_ID"))) empresasMap.Put("Intmex", spinnerIntmexMap) ' Log(spinnerMardsMap) Next End If End If If Job.JobName = "DBRequest" Then 'Traemos los almacenes de Danvit. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "almacenesDanvit" Then 'query tag s_almacen4.Add("-= Selecciona =-") For Each records() As Object In result.Rows s_almacen4.Add(records(result.Columns.Get("CAT_AG_NOMBRE"))) spinnerDanvitMap.Put(records(result.Columns.Get("CAT_AG_NOMBRE")), records(result.Columns.Get("CAT_AG_ID"))) empresasMap.Put("Danvit", spinnerDanvitMap) ' Log(spinnerDanvitMap) Next End If If result.Tag = "almacenesDurakelo" Then 'query tag ' s_almacen4.Add("-= Selecciona =-") For Each records() As Object In result.Rows ' s_almacen4.Add(records(result.Columns.Get("CAT_AG_NOMBRE"))) spinnerDurakeloMap.Put(records(result.Columns.Get("CAT_AG_NOMBRE")), records(result.Columns.Get("CAT_AG_ID"))) empresasMap.Put("Durakelo", spinnerDurakeloMap) ' Log(spinnerDanvitMap) Next End If End If If Job.JobName = "DBRequest" Then 'Regresamos validación de si la venta esta liquidada (Kellogg's). Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "revisa_liquidada_Kell" Or result.Tag = "revisa_liquidada_Durakelo" Then 'query tag For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Log(records(result.Columns.Get("LIQUIDADA"))) If records(result.Columns.Get("LIQUIDADA")) > 0 Then Log("La venta ya esta impresa, forzar el borrado??") ' ToastMessageShow("La ruta ya esta impresa!", True) Msgbox("La venta ya esta impresa, no es posible borrarla!", "VENTA IMPRESA") 'ignore If p_borrarVenta.Visible Then b_forzarVentaBV.Visible = True Else b_forzarVenta2.Visible = True End If Else If result.Tag = "revisa_liquidada_Kell" Then borrarVentaForzadaKelloggs If result.Tag = "revisa_liquidada_Durakelo" Then borrarVentaForzadaDurakelo End If Next End If End If If Job.JobName = "DBRequest" Then 'Regresamos validación de si la venta esta liquidada (Guna). Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "revisa_liquidada_Guna" Then 'query tag For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next If records(result.Columns.Get("LIQUIDADA")) > 0 Then Log("La venta ya esta impresa, forzar el borrado??") ' ToastMessageShow("La ruta ya esta impresa!", True) Msgbox("La venta ya esta impresa, no es posible borrarla!", "VENTA IMPRESA") 'ignore b_forzarVenta1.Visible = True Else borrarVentaForzadaGuna End If Next End If End If ' If Job.JobName = "DBRequest" Then 'Borramos la venta de Salma o Danvit. ' Dim result As DBResult = reqManager.HandleJob(Job) ' If result.Tag = "borrarVentaSalma" Or result.Tag = "borrarVentaDanvit" Then 'query tag ' For Each records() As Object In result.Rows ' For Each k As String In result.Columns.Keys ' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) ' Next ' Toast("Venta Eliminada.", 0) ' Next ' End If ' End If If Job.JobName = "DBRequest" Then 'Borramos la venta de Guna, Kelloggs, Danvit, Salma o Mards. Dim result As DBResult = reqManager.HandleJob(Job) Private rutaBorrada As String = "" If result.Tag = "borrarVentaGuna" Or _ result.Tag = "borrarVentaKelloggs" Or _ result.Tag = "borrarVentaSalma" Or _ result.Tag = "borrarVentaMards" Or _ result.Tag = "borrarVentaDanvit" Then 'query tag For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Log("ProcSuccess - Rows: " & result.Rows.Size) Toast("Venta Eliminada.", 0) If result.Tag = "borrarVentaGuna" Then rutaBorrada = et_ruta1.Text If result.Tag = "borrarVentaKelloggs" Then rutaBorrada = et_ruta2.Text If result.Tag = "borrarVentaSalma" Then rutaBorrada = et_ruta3.Text If result.Tag = "borrarVentaMards" Then rutaBorrada = et_rutaMards.Text If result.Tag = "borrarVentaDanvit" Then rutaBorrada = et_ruta4.Text Log(spinnerGunaMap.Keys) Private pp As BClipboard pp.setText($"${Subs.generaSaludo}venta de la ruta *${rutaBorrada}*, del almacén *${almacenDeRuta}* eliminada!"$) 'Copiamos el texto al portapapeles. et_ruta1.Text = "" et_ruta2.Text = "" et_ruta3.Text = "" et_ruta4.Text = "" et_rutaMards.Text = "" et_rutaBV.Text = "" s_almacen1.SelectedIndex = 0 s_almacen2.SelectedIndex = 0 s_almacen3.SelectedIndex = 0 s_almacen4.SelectedIndex = 0 s_almacenMards.SelectedIndex = 0 s_almacenBV.SelectedIndex = 0 s_tipoVentaBV.SelectedIndex = 0 b_forzarVenta1.Visible = False 'Escondemos el boton de forzar borrado de Guna. b_forzarVenta2.Visible = False 'Escondemos el boton de forzar borrado de Kelloggs. b_forzarVentaBV.Visible = False 'Escondemos el boton de forzar borrado de Global. Next End If End If If Job.JobName = "DBRequest" Then 'Buscams datos de usuario. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "select_todos_soporte" Then 'query tag Dim cs, cs2 As CSBuilder lv_resultadosBusqueda.Clear For Each records() As Object In result.Rows cs.Initialize cs2.Initialize For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next lv_resultadosBusqueda.AddTwoLines(cs.Color(Colors.RGB(255,0,0)).Append("U: ").Pop.Append(records(result.Columns.Get("CAT_LO_USUARIO"))).Color(Colors.RGB(255,0,0)).Append(" N: ").Pop.Append(records(result.Columns.Get("CAT_LO_NOMBRE"))).PopAll, _ cs2.Color(Colors.RGB(255,0,0)).Append("A: ").Pop.Append(records(result.Columns.Get("CAT_AG_NOMBRE"))).Color(Colors.RGB(255,0,0)).Append(" R: ").Pop.Append(records(result.Columns.Get("CAT_RU_RUTA"))).Color(Colors.RGB(255,0,0)).Append(" E: ").Pop.Append(records(result.Columns.Get("CAT_LO_ESTATUS"))).Color(Colors.RGB(255,0,0)).Append(" C: ").Pop.Append(records(result.Columns.Get("CAT_LO_CONTRASENA"))).PopAll) Next If result.Rows.Size > 19 Then Toast("Solo se muestran los primeros 20 resultados.", 600) End If End If If Job.JobName = "DBRequest" Then 'Buscamos si existe la venta. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "select_ventaXrutaGuna_soporte" Then 'query tag ' Log(reqManager.HandleJob(Job).Rows.Size) ' Log(result.Rows.Size) For Each records() As Object In result.Rows ' For Each k As String In result.Columns.Keys ' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) ' Next Toast($"Ruta ${records(result.Columns.Get("HVD_RUTA"))}${CRLF}$$1.2{records(result.Columns.Get("MONTO"))}, ${records(result.Columns.Get("HVD_TIPOVENTA"))}"$, 0) Next Subs.logJobDoneResultados(result) If result.Rows.Size = 0 Then Toast("NO HAY VENTA", 0) End If End If If Job.JobName = "DBRequest" Then 'Buscamos si existe la venta. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "select_ventaXrutaKelloggs_soporte" Then 'query tag b_revisaVenta2.text = "Revisar Venta" Log(reqManager.HandleJob(Job).Rows.Size) Log(result.Rows.Size) Log(456) For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Toast($"Ruta ${records(result.Columns.Get("HVD_RUTA"))}${CRLF}$$1.2{records(result.Columns.Get("MONTO"))}, ${records(result.Columns.Get("HVD_TIPOVENTA"))}"$, 0) Log(123) l_resVentaTitulo.Text = $"Ruta ${records(result.Columns.Get("HVD_RUTA"))}"$ l_resVentaTotal.Text = $"$$1.2{records(result.Columns.Get("MONTO"))}, ${records(result.Columns.Get("HVD_TIPOVENTA"))}"$ p_resVentaTransparente.Left = 0 : p_resVentaTransparente.top = 0 p_resVentaTransparente.Width = Activity.Width : p_resVentaTransparente.height = Activity.height Subs.centraPanelEnPanel(p_resVenta, p_resVentaTransparente) p_resVentaTransparente.BringToFront p_resVentaTransparente.Visible = True Next If result.Rows.Size = 0 Then Toast("NO HAY VENTA", 0) End If If result.Tag = "select_ventaXrutaDurakelo_soporte" Then 'query tag b_revisaVenta2.text = "Revisar Venta" Log(reqManager.HandleJob(Job).Rows.Size) Log(result.Rows.Size) Log(456) For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Toast($"Ruta ${records(result.Columns.Get("HVD_RUTA"))}${CRLF}$$1.2{records(result.Columns.Get("MONTO"))}, ${records(result.Columns.Get("HVD_TIPOVENTA"))}"$, 0) Log(123) l_resVentaTitulo.Text = $"Ruta ${records(result.Columns.Get("HVD_RUTA"))}"$ l_resVentaTotal.Text = $"$$1.2{records(result.Columns.Get("MONTO"))}, ${records(result.Columns.Get("HVD_TIPOVENTA"))}"$ p_resVentaTransparente.Left = 0 : p_resVentaTransparente.top = 0 p_resVentaTransparente.Width = Activity.Width : p_resVentaTransparente.height = Activity.height Subs.centraPanelEnPanel(p_resVenta, p_resVentaTransparente) p_resVentaTransparente.BringToFront p_resVentaTransparente.Visible = True Next If result.Rows.Size = 0 Then Toast("NO HAY VENTA", 0) End If End If If Job.JobName = "DBRequest" Then 'Buscamos si existe la venta. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "select_ventaXrutaSalma_soporte" Then 'query tag ' Log(reqManager.HandleJob(Job).Rows.Size) ' Log(result.Rows.Size) For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Toast($"Ruta ${records(result.Columns.Get("HVD_RUTA"))}${CRLF}$$1.2{records(result.Columns.Get("MONTO"))}"$, 0) Next If result.Rows.Size = 0 Then Toast("NO HAY VENTA", 0) End If If result.Tag = "select_ventaXrutaMards_soporte" Then 'query tag ' Log(reqManager.HandleJob(Job).Rows.Size) ' Log(result.Rows.Size) Subs.logJobDoneResultados(result) For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Toast($"Ruta ${records(result.Columns.Get("HVD_RUTA"))}${CRLF}$$1.2{records(result.Columns.Get("MONTO"))}"$, 0) Next If result.Rows.Size = 0 Then Toast("NO HAY VENTA", 0) End If End If If Job.JobName = "DBRequest" Then 'Buscamos si existe la venta. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "select_ventaXrutaDanvit_soporte" Then 'query tag ' Log(reqManager.HandleJob(Job).Rows.Size) ' Log(result.Rows.Size) For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Toast($"Ruta ${records(result.Columns.Get("HVD_RUTA"))}${CRLF}$$1.2{records(result.Columns.Get("MONTO"))}"$, 0) Next If result.Rows.Size = 0 Then Toast("NO HAY VENTA", 0) End If End If If Job.JobName = "DBRequest" Then 'Borramos el ticket de Kelloggs. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "revisaTicketLiquidadoKelloggs" Then 'query tag For Each records() As Object In result.Rows ' For Each k As String In result.Columns.Keys ' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) ' Next If records(result.Columns.Get("ESTATUS")) = "Liquidado" Then Toast("Ticket LIQUIDADO, no se puede borrar", 600) Else cmd.Name = "proc_QUITAR_TICKET_KELLOGGS" cmd.Parameters = Array As Object(records(result.Columns.Get("HVD_CEDIS")), records(result.Columns.Get("CLIENTE")), "appSoporte") Log($"Mandamos borrar: almacen=${records(result.Columns.Get("HVD_CEDIS"))}, cliente=${records(result.Columns.Get("CLIENTE"))}"$) reqManager.ExecuteCommand(cmd, "borrarTicketKelloggs") End If Log("Success - Rows: " & result.Rows.Size) Next End If End If If Job.JobName = "DBRequest" Then 'Borramos el ticket de Kelloggs. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "borrarTicketKelloggs" Then 'query tag For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Log("ProcSuccess - Rows: " & result.Rows.Size) Toast("Ticket Eliminado.", 0) et_cliente.Text = "" s_almacen2_2.SelectedIndex = 0 Next End If End If If Job.JobName = "DBRequest" Then 'Revisamos el ticket de Kelloggs. Dim result As DBResult = reqManager.HandleJob(Job) Private costoTotal As Float = 0 liquidada = False If result.Tag = "revisaTicketKelloggs" Then 'query tag Dim cs, cs2 As CSBuilder lv_ticket.Clear prodsList.Initialize If result.Rows.Size > 0 Then p_ticket.Visible = True For Each records() As Object In result.Rows cs.Initialize cs2.Initialize ' For Each k As String In result.Columns.Keys ' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) ' Next Private esteStatus As String = records(result.Columns.Get("ESTATUS")) If esteStatus = "Liquidado" Then liquidada = True prodsList.Add(CreateMap("id":records(result.Columns.Get("PRODUCTO_ID")), "P":records(result.Columns.Get("NOMBRE_PRODUCTO")), "cant":records(result.Columns.Get("CANTIDAD")), "almacen":records(result.Columns.Get("HVD_CEDIS")), "tipo":records(result.Columns.Get("TIPOVENTA")))) lv_ticket.AddTwoLines(cs.Color(Colors.RGB(255,0,0)).Append("ID:").Pop.Append(records(result.Columns.Get("PRODUCTO_ID"))).Color(Colors.RGB(255,0,0)).Append(" P: ").Pop.Append(records(result.Columns.Get("NOMBRE_PRODUCTO"))).PopAll, _ cs2.Color(Colors.RGB(255,0,0)).Append("Cant: ").Pop.Append(records(result.Columns.Get("CANTIDAD"))).Color(Colors.RGB(255,0,0)).Append(" Costo Total: ").Pop.Append($"$$1.2{records(result.Columns.Get("COSTO_TOTAL"))}"$).Color(Colors.RGB(255,0,0)).Append(" Almacen: ").Pop.Append(records(result.Columns.Get("HVD_CEDIS"))).Color(Colors.RGB(255,0,0)).Append(" " & esteStatus.ToUpperCase ).PopAll) If records(result.Columns.Get("COSTO_TOTAL")) <> "" Then costoTotal = costoTotal + records(result.Columns.Get("COSTO_TOTAL")) ' Log($"|${records(result.Columns.Get("COSTO_TOTAL"))}| - |${costoTotal}|"$) Next ' For i=0 To 10 ' cs.Initialize ' cs2.Initialize ' prodsList.Add(CreateMap("id":i, "P":i, "cant":i, "almacen":i)) '' lv_ticket. ' lv_ticket.AddTwoLines(cs.Color(Colors.RGB(255,0,0)).Append("ID:").Pop.Append(i).Color(Colors.RGB(255,0,0)).Append(" P: ").Pop.Append(i).PopAll, _ ' cs2.Color(Colors.RGB(255,0,0)).Append("Cant: ").Pop.Append(i).Color(Colors.RGB(255,0,0)).Append(" Costo Total: ").Pop.Append($"$$1.2{i}"$).Color(Colors.RGB(255,0,0)).Append(" Almacen: ").Pop.Append(i).Color(Colors.RGB(255,0,0)).Append(" " & esteStatus.ToUpperCase ).PopAll) ' Next Toast("Productos: " & result.Rows.Size & " Total $" & $"$1.2{costoTotal}"$, 350) If result.Rows.Size = 0 Then l_SinProductos.Visible = True Else l_SinProductos.Visible = False If liquidada Then MsgboxAsync("Ya no se pueden borrar productos de este ticket.", "Ticket Liquidado") End If End If End If If Job.JobName = "DBRequest" Then 'Borramos pago duplicado de pagare de Kelloggs. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "borrarPagoPagareDuplicado" Then 'query tag For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Log("ProcSuccess - Rows: " & result.Rows.Size) Toast("Pago duplicado Eliminado.", 0) et_cliente.Text = "" s_almacen2_2.SelectedIndex = 0 Next End If End If If Job.JobName = "DBRequest" Then 'Liberamos la bandera de facturación de Kelloggs. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "liberaBanderaFacturacion" Then 'query tag For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Log("ProcSuccess - Rows: " & result.Rows.Size) Toast("Bandera de Facturacion LIBERADA.", 0) Next End If End If If Job.JobName = "DBRequest" Then 'Liberamos la bandera de carga foranea de Kelloggs. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "liberaBanderaCargaForanea" Then 'query tag For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Log("ProcSuccess - Rows: " & result.Rows.Size) Toast("Bandera de Carga Foranea LIBERADA.", 0) Next End If End If If Job.JobName = "DBRequest" Then 'Liberamos la bandera de carga foranea de Kelloggs. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "borraProductoTicket" Then 'query tag For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next ' Log("ProcSuccess - Rows: " & result.Rows.Size) ' Toast("Bandera de Carga Foranea LIBERADA.", 0) Next End If End If If Job.JobName = "DBRequest" Then 'Liberamos la bandera de carga foranea de Kelloggs. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "copiaProdHVD2" Then 'query tag For Each records() As Object In result.Rows For Each k As String In result.Columns.Keys Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Log("Producto copiado a hist_ventas_detalle_2") ' Toast("Bandera de Carga Foranea LIBERADA.", 0) Next End If If result.Tag = "borrarVentaGlobal" Then Subs.logJobDoneResultados(result) s_almacenBV.SelectedIndex = 0 et_rutaBV.Text = "" s_tipoVentaBV.SelectedIndex = 0 Toast("Venta Eliminada.", 0) End If If result.Tag = "pasarInfoMovilKell" Then Subs.logJobDoneResultados(result) ' s_almacenBV.SelectedIndex = 0 ' et_rutaBV.Text = "" ' s_tipoVentaBV.SelectedIndex = 0 b_pasarInfoMovilKellogs.Enabled = True DateTime.DateFormat = "HH:mm:ss" b_pasarInfoMovilKellogs.Text = $"PasarInfoMovil Kelloggs"$ Toast("Corriendo PasarInfoMovil Kelloggs.", 0) End If If result.Tag = "revisaArqueoYLiquidacion_Kelloggs" Or result.Tag = "revisaArqueoYLiquidacion_Durakelo" Then b_revisaVenta2.text = "Revisar Venta" Subs.logJobDoneResultados(result) For Each records() As Object In result.Rows Private arqueo As String = records(result.Columns.Get("ARQUEO")) If arqueo = "null" Then arqueo = "ABIERTO" Private liquidado As String = records(result.Columns.Get("LIQUIDADO")) If liquidado <> "NO" Then liquidado = records(result.Columns.Get("HVD_DTECIERRE")) l_resArqueo.Text = $"ARQUEO: ${arqueo}"$ l_resLiquidacion.Text = $"LIQUIDADA: ${liquidado}"$ Next ' Log(9999) ' p_resVentaTransparente.BringToFront ' p_resVentaTransparente.Visible = True End If If result.Tag = "revisaDuplicados_Kelloggs" Or result.Tag = "revisaDuplicados_Durakelo" Then ' Subs.logJobDoneResultados(result) If result.Rows.Size > 0 Then Log("=====> Hay Duplicados <======") b_resDuplicadosKell.Enabled = True b_resDuplicadosKell.Text = "HAY DUPLICADOS"& CRLF &"=> QUITARLOS <=" Else Log("=====> NO Hay Duplicados <======") b_resDuplicadosKell.Enabled = False b_resDuplicadosKell.Text = "Sin duplicados" End If End If If result.Tag = "quitarDuplicados_Kelloggs" Then Subs.logJobDoneResultados(result) b_resDuplicadosKell.Enabled = False b_resDuplicadosKell.Text = "¡Listo!" & CRLF & "Duplicados Borrados" End If If result.Tag = "quitarDuplicados_Durakelo" Then Subs.logJobDoneResultados(result) b_resDuplicadosKell.Enabled = False b_resDuplicadosKell.Text = "¡Listo!" & CRLF & "Duplicados Borrados" End If If result.Tag.As(String).Contains("abrirAvion") Then Subs.logJobDoneResultados(result) cuantosAbrirAvion = cuantosAbrirAvion + 1 If cuantosAbrirAvion = 2 Then Log("¡Listo avión abierto!") Toast("¡Listo avión abierto!", 0) End If End If If result.Tag.As(String).Contains("revisaAvion_") Then Subs.logJobDoneResultados(result) If result.Rows.Size > 0 Then For Each records() As Object In result.Rows Private fecha As String = records(result.Columns.Get("HVD_CIERREAVION")) Private hora As String = Regex.Split(" ", fecha)(1) hora = hora.SubString2(0, hora.IndexOf(".")) Toast($"Cerrado a las ${hora}"$, 600) Next Else Toast("¡Avión abierto!", 0) End If ' cuantosAbrirAvion = cuantosAbrirAvion + 1 ' If cuantosAbrirAvion = 2 Then ' Log("¡Listo avión abierto!") ' Toast("¡Listo avión abierto!", 0) ' End If End If End If Job.Release Else Log("VERSION2") LogColor("JobDone: '" & reqManagerT.HandleJob(Job).tag & "' - Registros: " & reqManagerT.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027 If Job.JobName = "DBRequest" Then 'Para desbloquear un usuario Guna. Dim resultado As DBResult = reqManagerT.HandleJob(Job) If resultado.Tag = "testTraeConexion" Then 'query tag Private n, r As String For Each records() As Object In resultado.Rows LogColor($"====== ${resultado.Tag} - REGISTROS = ${resultado.Rows.Size}"$, Colors.RGB(215,37,0)) For Each k As String In resultado.Columns.Keys LogColor(k & " = " & records(resultado.Columns.Get(k)), Colors.RGB(215,37,0)) If k = "CONEXION" Then n = "CONEXION" r = records(resultado.Columns.Get(k)) End If Next Next Toast($"${n}: ${r}"$, 0) End If End If End If End If End Sub 'Revisamos que la contraseña ingresada sea la correcta para el día y hora. Private Sub et_login_TextChanged (Old As String, New As String) Private contrasenaHoy As String = pass1 & DateTime.GetDayOfMonth(DateTime.Now) & DateTime.GetHour(DateTime.now) Log($"${contrasenaHoy}"$) Log(New) If New = contrasenaHoy Then p_login.Visible = False Sleep(80) et_usuario.Text = "" If Not(versionOk) Then ExitApplication 'Si la version no es correcta, salimos de la aplicacion. kb.HideKeyboard End If End Sub 'Muestra un toast con texto y ancho dados, si el ancho es 0, entonces se queda el default. Sub Toast(texto As String, ancho As Int) p_toast.BringToFront If ancho <> 0 Then p_toast.Width = ancho p_toast.left = (Activity.Width/2)-(p_toast.Width/2) 'Centramos el panel en la actividad. l_toast.Width = p_toast.Width p_toast.top = (Activity.Height * 0.8) 'Ponemos el toast a 3/4 de la pantalla. l_toast.Text = texto p_toast.SetVisibleAnimated(1000, True) Sleep(2000) p_toast.SetVisibleAnimated(1000, False) End Sub 'Mostramos u ocultamos el panel de opciones de desbloqueo. Sub b_desbloquea_longClick ' If p_opcDesbloqueo.Visible Then ' p_opcDesbloqueo.Visible = False ' Else ' p_opcDesbloqueo.Visible = True ' End If End Sub 'Si se modifica el checkbox de "Forzar mayusculas" de las opciones de desbloqueo, guardamos la configuración. Private Sub cb_usrMayusc_CheckedChange(Checked As Boolean) ' p_opcDesbloqueo.Visible = False ' Private cb As String = "0" ' If cb_usrMayusc.Checked Then cb = "1" '' Starter.mayusculasDesbloqueo = cb ' Starter.confMap.Put("mayusculasDesbloqueo", cb) ' Subs.escribreConf End Sub Private Sub et_usr_TextChanged (Old As String, New As String) If New.Length > 2 Then buscaUsuario End Sub Private Sub et_almacen_TextChanged (Old As String, New As String) If New.Length > 2 Then buscaUsuario End Sub Private Sub et_ruta_TextChanged (Old As String, New As String) If New.Length > 1 Then buscaUsuario End Sub Private Sub b_buscarUsr_Click buscaUsuario kb.HideKeyboard End Sub Sub buscaUsuario Private usr As String = et_usr.text.Trim Private alm As String = et_almacen.text.Trim Private rut As String = et_ruta.text.Trim cmd.Initialize cmd.Name = $"select_todos${usrEmpresa}_soporte"$ cmd.Parameters = Array As Object(usr, usr, alm, rut) Log($"Buscar: ${usrEmpresa}, ${alm}, ${usr}, ${rut}"$) reqManager.ExecuteQuery(cmd, 0 , $"select_todos_soporte"$, 0) End Sub Private Sub b_revisaVenta_Click kb.HideKeyboard Private rut As String = et_ruta1.text.Trim cmd.Name = "select_ventaXrutaGuna_soporte" cmd.Parameters = Array As Object(rut, almacenGuna) Log($"mandamos: ruta=${rut}, almacen=${almacenGuna}"$) reqManager.ExecuteQuery(cmd, 0 , "select_ventaXrutaGuna_soporte", 0) End Sub Private Sub b_revisaVenta2_Click laEmpresa = "Kelloggs" laRuta = et_ruta2.Text.trim almacenEmpresa = almacenKelloggs kb.HideKeyboard b_revisaVenta2.text = "Revisando ..." Private rut As String = et_ruta2.text.Trim cmd.Name = "select_ventaXrutaKelloggs_soporte" cmd.Parameters = Array As Object(rut, almacenKelloggs, tipoVentaKelloggs) Log($"mandamos: ruta=${rut}, almacen=${almacenKelloggs}"$) reqManager.ExecuteQuery(cmd, 0 , "select_ventaXrutaKelloggs_soporte", 0) reqManager.Initialize(Me, DBRS_1781) cmd.Name = "revisaDuplicados_Kelloggs" cmd.Parameters = Array As Object(almacenKelloggs, rut) b_resDuplicadosKell.Enabled = False b_resDuplicadosKell.Text = "Buscando duplicados ..." Log($"mandamos: ruta=${rut}, almacen=${almacenKelloggs}"$) reqManager.ExecuteQuery(cmd, 0 , "revisaDuplicados_Kelloggs", 0) Log($"################ REVISAMOS DUPLICADOS ${almacenKelloggs}, ${rut} ########################"$) reqManager.Initialize(Me, DBRS_1781) cmd.Name = "revisaArqueoYLiquidacion_Kelloggs" cmd.Parameters = Array As Object(almacenKelloggs, rut, almacenKelloggs, rut) Log($"mandamos: ruta=${rut}, almacen=${almacenKelloggs}"$) reqManager.ExecuteQuery(cmd, 0 , "revisaArqueoYLiquidacion_Kelloggs", 0) Sleep(500) reqManager.Initialize(Me, DBRS_1781) End Sub Private Sub b_revisaVenta3_Click kb.HideKeyboard Private rut As String = et_ruta3.text.Trim cmd.Name = "select_ventaXrutaSalma_soporte" cmd.Parameters = Array As Object(rut, almacenSalma) Log($"mandamos: ruta=${rut}, almacen=${almacenSalma}"$) reqManager.ExecuteQuery(cmd, 0 , "select_ventaXrutaSalma_soporte", 0) End Sub Private Sub b_revisaVenta4_Click kb.HideKeyboard Private rut As String = et_ruta4.text.Trim cmd.Name = "select_ventaXrutaDanvit_soporte" cmd.Parameters = Array As Object(rut, almacenDanvit) Log($"mandamos: ruta=${rut}, almacen=${almacenDanvit}"$) reqManager.ExecuteQuery(cmd, 0 , "select_ventaXrutaDanvit_soporte", 0) End Sub Private Sub s_usrEmpresa_ItemClick (Position As Int, Value As Object) usrEmpresa = Value End Sub Private Sub s_almacen2_2_ItemClick (Position As Int, Value As Object) almacenKelloggs2 = spinnerKelloggs2Map.Get(Value) Log($"Almacén ${almacenKelloggs2} de Kelloggs 2 seleccionado"$ ) End Sub Private Sub b_borrarTicket_Click kb.HideKeyboard cmd.Name = "select_prodsTicket_Kelloggs" cmd.Parameters = Array As Object(almacenKelloggs2, et_cliente.Text.Trim) Log($"Mandamos: almacen=${almacenKelloggs2}, cliente=${et_cliente.Text}"$) reqManager.ExecuteQuery(cmd, 1, "revisaTicketLiquidadoKelloggs", 0) End Sub Private Sub b_revisaTicket_Click Log("revisando") kb.HideKeyboard p_ticket.Width = Activity.Width * 0.95 p_ticket.Left = (Activity.Width/2) - (p_ticket.Width/2) Subs.centraEtiquetaEnPanel(l_SinProductos, p_ticket) Subs.centraBotonEnPanel(b_cerrarTicket, p_ticket) p_ticket.BringToFront ' p_ticket.Visible = True lv_ticket.Clear cmd.Name = "select_prodsTicket_Kelloggs" cmd.Parameters = Array As Object(almacenKelloggs2, et_cliente.Text.Trim) Log($"Mandamos: almacen=${almacenKelloggs2}, cliente=${et_cliente.Text}"$) reqManager.ExecuteQuery(cmd, 0, "revisaTicketKelloggs", 0) End Sub Private Sub b_borrarPagare_Click kb.HideKeyboard reqManager.Initialize(Me, DBRS_1781) cmd.Name = "proc_QUITAR_PAGOPAGARE_KELLOGGS" cmd.Parameters = Array As Object(et_referencia.text.Trim, et_folio.Text.Trim, et_monto.Text.Trim) Log($"Mandamos: ref:${et_referencia.text}, folio:${et_folio.Text}, monto:${et_monto.Text}"$) reqManager.ExecuteCommand(cmd, "borrarPagoPagareDuplicado") End Sub Private Sub b_libBanderaFactura_Click kb.HideKeyboard reqManager.Initialize(Me, DBRS_1781) ' reqManager.Initialize(Me, "http://keymon.lat:9001") 'DBReqSrver de pruebas cmd.Name = "proc_LIBERA_BANDERA_FACTURACION_KELLOGGS" ' cmd.Parameters = Array As Object(et_referencia.text, et_folio.Text, et_monto.Text) ' Log($"Mandamos: ref:${et_referencia.text}, folio:${et_folio.Text}, monto:${et_monto.Text}"$) Log("Llamamos procedimiento liberar bandera facturacion") reqManager.ExecuteCommand(cmd, "liberaBanderaFacturacion") End Sub Private Sub b_libBanderaCargaForanea_Click reqManager.Initialize(Me, DBRS_1781) kb.HideKeyboard cmd.Name = "proc_LIBERA_BANDERA_CARGAFORANEA_KELLOGGS" cmd.Parameters = Array As Object("101", "") Log("Llamamos procedimiento liberar carga foranea") reqManager.ExecuteCommand(cmd, "liberaBanderaCargaForanea") End Sub Private Sub b_cerrarTicket_Click p_ticket.Visible = False l_SinProductos.Visible = False End Sub Private Sub p_ticket_Click End Sub Private Sub lv_ticket_ItemClick (Position As Int, Value As Object) Log(prodsList.get(Position)) ' SUR 9120761 If Not(liquidada) And prodsList.Size > 1 Then Msgbox2Async($"Deseas borrar el producto ${prodsList.Get(Position).As(Map).Get("id")}"$, "Borrar Producto", "Borrar", "Cancelar", "", Null, True) Wait For Msgbox_Result (Result As Int) If Result = DialogResponse.POSITIVE Then ' borrarProducto Log("Borramos producto " & prodsList.Get(Position).As(Map).Get("id")) Private m As Map = prodsList.get(Position) Log(m) lv_ticket.RemoveAt(Position) prodsList.RemoveAt(Position) cmd.Name = "insertIntoHVD2" cmd.Parameters = Array As Object(et_cliente.Text, m.Get("id"), m.Get("cant"), m.Get("tipo"), m.Get("almacen")) Log($"Mandamos ${et_cliente.Text}, ${m.Get("id")}, ${m.Get("cant")}, ${m.Get("tipo")}, ${m.Get("almacen")}"$) reqManager.ExecuteCommand(cmd, "copiaProdHVD2") cmd.Name = "delete_ProdTicket" cmd.Parameters = Array As Object(et_cliente.Text, m.Get("id"), m.Get("cant"), m.Get("tipo"), m.Get("almacen"), m.Get("P")) Log($"Mandamos ${et_cliente.Text}, ${m.Get("id")}, ${m.Get("cant")}, ${m.Get("tipo")}, ${m.Get("almacen")}, ${m.Get("P")}"$) reqManager.ExecuteCommand(cmd, "borraProductoTicket") End If Log(prodsList) End If End Sub Private Sub b_revisaVentaMards_Click kb.HideKeyboard Private rut As String = et_rutaMards.text.Trim cmd.Name = "select_ventaXrutaMards_soporte" cmd.Parameters = Array As Object(rut, almacenMards) Log($"mandamos: ruta=${rut}, almacen=${almacenMards}"$) reqManager.ExecuteQuery(cmd, 0 , "select_ventaXrutaMards_soporte", 0) End Sub Private Sub b_borrarVentaMards_Click If et_rutaMards.text <> "" And almacenMards <> "" Then kb.HideKeyboard Private rutaVenta As Int = et_rutaMards.Text.Trim Private usrSoporte As String = "appSoporte" cmd.Initialize cmd.Name = "proc_QUITAR_VENTA_MARDS" cmd.Parameters = Array As Object(almacenMards, rutaVenta, usrSoporte) Log($"Mandamos borrar venta de Mards, almacen: ${almacenMards}, ruta: ${rutaVenta}, usuario: '${usrSoporte}'"$) reqManager.ExecuteCommand(cmd , "borrarVentaMards") Else Toast("Por favor ingrese ruta y almacén 🙄", 600) End If End Sub Private Sub b_forzarVentaBV_Click Private rutaVenta As Int rutaVenta = et_rutaBV.Text.trim almacenEmpresa = spinnerEmpresaMap.Get(s_almacenBV.SelectedItem) Private usrSoporte As String = "appSoporte" ' Private tipoVenta As String = tipoVentaKelloggs Private bandera As Int = 1 cmd.Initialize 'Se borra la venta forzada If laEmpresa = "Kelloggs" Then cmd.Name = "proc_QUITAR_VENTA_KELL" cmd.Parameters = Array As Object(almacenEmpresa, rutaVenta, usrSoporte, tipoVentaKelloggs, bandera) End If If laEmpresa = "Durakelo" Then cmd.Name = "proc_QUITAR_VENTA_DURAKELO" cmd.Parameters = Array As Object(almacenEmpresa, rutaVenta, usrSoporte, tipoVentaKelloggs) End If Log($"Madamos borrar venta ${laEmpresa}: "$ & almacenEmpresa&"|"& rutaVenta&"|"&usrSoporte&"|"&tipoVentaKelloggs&"|"&bandera) reqManager.ExecuteCommand(cmd , "borrarVentaKelloggs") End Sub Private Sub b_borrarVentaBV_Click laEmpresa = s_empresaBV.SelectedItem almacenEmpresa = s_almacenBV.SelectedItem almacenEmpresa = spinnerEmpresaMap.Get(s_almacenBV.SelectedItem) b_forzarVentaBV.Visible = False If et_rutaBV.text <> "" And almacenEmpresa <> "" Then kb.HideKeyboard Private rutaVenta As Int = et_rutaBV.Text.Trim Private usrSoporte As String = "appSoporte" elTipoDeVenta = s_tipoVentaBV.SelectedItem cmd.Initialize Private laEmp As String = laEmpresa.ToUpperCase If laEmp = "KELLOGGS" Then cmd.Name = "revisa_liquidada_Kell" 'Primero revisamos que no este liquidada o con descuento. cmd.Parameters = Array As Object(almacenEmpresa, rutaVenta, elTipoDeVenta) Log($"Revisamos venta liquidada Kelloggs: almacen: ${almacenEmpresa}, ruta: ${rutaVenta}, tipoVenta:${elTipoDeVenta}"$) reqManager.ExecuteQuery(cmd , 0, "revisa_liquidada_Kell", 0) else if laEmp = "GUNA" Then cmd.Name = "revisa_liquidada_Guna" 'Primero revisamos que no este liquidada o con descuento. cmd.Parameters = Array As Object(almacenEmpresa, rutaVenta) Log($"Revisamos venta liquidada Guna: almacen: ${almacenEmpresa}, ruta: ${rutaVenta} "$) reqManager.ExecuteQuery(cmd , 0, "revisa_liquidada_Guna", 0) else if laEmp = "SALMA" Then cmd.Name = "proc_QUITAR_VENTA_SALMA" cmd.Parameters = Array As Object(almacenEmpresa, rutaVenta, usrSoporte) Log($"Mandamos borrar venta de Salma, almacen: ${almacenEmpresa}, ruta: ${rutaVenta}, usuario: '${usrSoporte}'"$) reqManager.ExecuteCommand(cmd , "borrarVentaSalma") else if laEmp = "MARDS" Then cmd.Name = "proc_QUITAR_VENTA_MARDS" cmd.Parameters = Array As Object(almacenEmpresa, rutaVenta, usrSoporte) Log($"Mandamos borrar venta de Mards, almacen: ${almacenEmpresa}, ruta: ${rutaVenta}, usuario: '${usrSoporte}'"$) reqManager.ExecuteCommand(cmd , "borrarVentaMards") else if laEmp = "DURAKELO" Then cmd.Name = "revisa_liquidada_Durakelo" cmd.Parameters = Array As Object(almacenEmpresa, rutaVenta, elTipoDeVenta) Log($"Revisamos venta liquidada Durakelo: almacen: ${almacenEmpresa}, ruta: ${rutaVenta}, tipoVenta:${elTipoDeVenta}"$) reqManager.ExecuteQuery(cmd , 0, "revisa_liquidada_Durakelo", 0) Else If laEmpresa = "Kelloggs" Then laEmp = "KELL" cmd.Name = $"proc_QUITAR_VENTA_${laEmp}"$ Log($"proc_QUITAR_VENTA_${laEmp}"$) cmd.Parameters = Array As Object(almacenEmpresa, rutaVenta, usrSoporte) Log($"Mandamos borrar venta de Mards, almacen: ${almacenEmpresa}, ruta: ${rutaVenta}, usuario: '${usrSoporte}'"$) reqManager.ExecuteCommand(cmd , "borrarVentaGlobal") End If Else Toast("Por favor ingrese ruta y almacén 🙄", 600) End If End Sub Private Sub b_revisarVentaBV_Click kb.HideKeyboard b_forzarVentaBV.Visible = False laEmpresa = s_empresaBV.SelectedItem tipoVentaKelloggs = s_tipoVentaBV.SelectedItem ' Log("============================= " & CRLF & spinnerEmpresaMap) almacenEmpresa = spinnerEmpresaMap.Get(s_almacenBV.SelectedItem) Private rut As String = et_rutaBV.text.Trim laRuta = rut cmd.Name = $"select_ventaXruta${laEmpresa}_soporte"$ cmd.Parameters = Array As Object(rut, almacenEmpresa) If laEmpresa = "Kelloggs" Or laEmpresa = "Durakelo" Then cmd.Parameters = Array As Object(rut, almacenEmpresa, tipoVentaKelloggs) Log($"mandamos: ruta=${rut}, almacen=${almacenEmpresa}, ${tipoVentaKelloggs}, select_ventaXruta${laEmpresa}_soporte"$) End If Log($"mandamos: ruta=${rut}, almacen=${almacenEmpresa}, select_ventaXruta${laEmpresa}_soporte"$) reqManager.ExecuteQuery(cmd, 0 , $"select_ventaXruta${laEmpresa}_soporte"$, 0) If laEmpresa = "Kelloggs" Or laEmpresa = "Durakelo" Then reqManager.Initialize(Me, DBRS_1781) cmd.Name = $"revisaDuplicados_${laEmpresa}"$ cmd.Parameters = Array As Object(almacenEmpresa, rut) b_resDuplicadosKell.Enabled = False b_resDuplicadosKell.Text = "Buscando duplicados ..." Log($"Duplicados mandamos: ruta=${rut}, almacen=${almacenEmpresa}"$) reqManager.ExecuteQuery(cmd, 0 , $"revisaDuplicados_${laEmpresa}"$, 0) Log($"################ REVISAMOS DUPLICADOS ${almacenEmpresa}, ${rut} ########################"$) cmd.Name = $"revisaArqueoYLiquidacion_${laEmpresa}"$ cmd.Parameters = Array As Object(almacenEmpresa, rut, almacenEmpresa, rut) Log($"revisaArqueoYLiquidacion mandamos: ruta=${rut}, almacen=${almacenEmpresa}"$) reqManager.ExecuteQuery(cmd, 0 , $"revisaArqueoYLiquidacion_${laEmpresa}"$, 0) Sleep(500) End If End Sub Private Sub s_tipoVentaBV_ItemClick (Position As Int, Value As Object) elTipoDeVenta = Value End Sub Private Sub et_rutaBV_TextChanged (Old As String, New As String) End Sub Private Sub s_almacenBV_ItemClick (Position As Int, Value As Object) almacenEmpresa = spinnerEmpresaMap.Get(Value) almacenDeRuta = Value Log(Value) Log($"Almacén ${almacenEmpresa} de ${laEmpresa} seleccionado"$ ) End Sub Private Sub s_empresaBV_ItemClick (Position As Int, Value As Object) laEmpresa = Value If laEmpresa = "Kelloggs" Or laEmpresa = "Durakelo" Then l_tipoVentaBV.Visible = True s_tipoVentaBV.Visible = True p_tipoVentaBV.Visible = True Else l_tipoVentaBV.Visible = False s_tipoVentaBV.Visible = False p_tipoVentaBV.Visible = False End If If laEmpresa = "Mards" Or laEmpresa = "Kelloggs" Or laEmpresa = "Durakelo" Or laEmpresa = "Salma" Or laEmpresa = "Intmex" Then reqManager.Initialize(Me, DBRS_1781) Log("Mards o Kelloggs") Else reqManager.Initialize(Me, DBRS_1782) End If spinnerEmpresaMap = empresasMap.Get(Value) ' Log(empresasMap & "|" & Value) ' Log($"${spinnerEmpresaMap}"$) s_almacenBV.Clear s_almacenBV.Add("-= Seleccione =-") For Each e In empresasMap.Get(Value).As(Map).Keys ' Log(e) s_almacenBV.Add(e) Next s_almacenBV.SelectedIndex = 0 Log($"Empresa seleccionada: ${Value}"$ ) End Sub Private Sub b_pasarInfoMovilKellogs_Click b_pasarInfoMovilKellogs.Enabled = False DateTime.DateFormat = "HH:mm:ss" b_pasarInfoMovilKellogs.Text = $"pimKell - Inicio a las ${DateTime.Date(DateTime.Now)}"$ Toast("Corriendo PasarInfoMovil Kelloggs.", 0) ' reqManager.Initialize(Me, "http://keymon.lat:9001") reqManager.Initialize(Me, DBRS_1781) cmd.Initialize cmd.Name = "sp_pasarInfo_Kelloggs" reqManager.ExecuteQuery(cmd , 0, "pasarInfoMovilKell", 180000) 'request con timeout largo en ms. End Sub Private Sub b_pasarInfoMovilDurakelo_Click b_pasarInfoMovilDurakelo.Enabled = False DateTime.DateFormat = "HH:mm:ss" b_pasarInfoMovilDurakelo.Text = $"pimDur - Inicio a las ${DateTime.Date(DateTime.Now)}"$ Toast("Corriendo PasarInfoMovil Durakelo.", 0) ' reqManager.Initialize(Me, "http://keymon.lat:9001") reqManager.Initialize(Me, DBRS_1781) cmd.Initialize cmd.Name = "sp_pasarInfo_Durakelo" reqManager.ExecuteQuery(cmd , 0, "pasarInfoMovilDur", 180000) 'request con timeout largo en ms. End Sub Private Sub b_pasarInfoMovilDurakeloRep_Click b_pasarInfoMovilDurakeloRep.Enabled = False DateTime.DateFormat = "HH:mm:ss" b_pasarInfoMovilDurakeloRep.Text = $"pimDurRep - Inicio a las ${DateTime.Date(DateTime.Now)}"$ Toast("Corriendo PasarInfoMovil Durakelo Rep.", 0) ' reqManager.Initialize(Me, "http://keymon.lat:9001") reqManager.Initialize(Me, DBRS_1781) cmd.Initialize cmd.Name = "sp_pasarInfo_DurakeloRep" reqManager.ExecuteQuery(cmd , 0, "pasarInfoMovilDurRep", 180000) 'request con timeout largo en ms. End Sub Private Sub b_pasarInfoMovilIntmex_Click b_pasarInfoMovilIntmex.Enabled = False DateTime.DateFormat = "HH:mm:ss" b_pasarInfoMovilIntmex.Text = $"pimIntmex - Inicio a las ${DateTime.Date(DateTime.Now)}"$ Toast("Corriendo PasarInfoMovil Intmex.", 0) ' reqManager.Initialize(Me, "http://keymon.lat:9001") reqManager.Initialize(Me, DBRS_1781) cmd.Initialize cmd.Name = "sp_pasarInfo_Intmex" reqManager.ExecuteQuery(cmd , 0, "pasarInfoMovilIntmex", 180000) 'request con timeout largo en ms. End Sub Private Sub b_cerrar_Click p_resVentaTransparente.Visible = False End Sub Private Sub p_resVentaTransparente_Click p_resVentaTransparente.Visible = False End Sub Private Sub b_resDuplicadosKell_Click reqManager.Initialize(Me, DBRS_1781) cmd.Name = $"quitarDuplicados_${laEmpresa}"$ cmd.Parameters = Array As Object(almacenEmpresa, laRuta, "appSoporte") Log($"mandamos QUITAR duplicados: ruta=${laRuta}, almacen=${almacenEmpresa}"$) reqManager.ExecuteCommand(cmd, $"quitarDuplicados_${laEmpresa}"$) Log($"################ QUITAMOS DUPLICADOS ${laEmpresa}, ${almacenEmpresa}, ${laRuta} ########################"$) End Sub Private Sub s_empresaAA_ItemClick (Position As Int, Value As Object) laEmpresa = Value ' If laEmpresa = "Kelloggs" Or laEmpresa = "Durakelo" Then ' l_tipoVentaBV.Visible = True ' s_tipoVentaBV.Visible = True ' p_tipoVentaBV.Visible = True ' Else ' l_tipoVentaBV.Visible = False ' s_tipoVentaBV.Visible = False ' p_tipoVentaBV.Visible = False ' End If If laEmpresa = "Mards" Or laEmpresa = "Kelloggs" Or laEmpresa = "Durakelo" Or laEmpresa = "Salma" Or laEmpresa = "Intmex" Then reqManager.Initialize(Me, DBRS_1781) Log("Mards o Kelloggs") Else reqManager.Initialize(Me, DBRS_1782) End If spinnerEmpresaMap = empresasMap.Get(Value) ' Log(empresasMap & "|" & Value) ' Log($"${spinnerEmpresaMap}"$) s_almacenAA.Clear s_almacenAA.Add("-= Seleccione =-") For Each e In empresasMap.Get(Value).As(Map).Keys ' Log(e) s_almacenAA.Add(e) Next empresaAA = Value s_almacenAA.SelectedIndex = 0 Log($"Empresa seleccionada: ${Value}"$ ) End Sub Private Sub s_almacenAA_ItemClick (Position As Int, Value As Object) almacenEmpresa = spinnerEmpresaMap.Get(Value) almacenDeRuta = Value Log(Value) almacenAA = almacenEmpresa Log($"Almacén ${almacenEmpresa} de ${laEmpresa} seleccionado"$ ) End Sub Private Sub b_abrirAvion_Click ' Log(empresaAA) ' Log(almacenAA) ' Log(et_rutaAA.text) cuantosAbrirAvion = 0 reqManager.Initialize(Me, DBRS_1781) cmd.Name = $"abrirAvion1_${empresaAA}"$ cmd.Parameters = Array As Object(almacenAA, et_rutaAA.text) reqManager.ExecuteCommand(cmd, $"abrirAvion1_${empresaAA}"$) cmd.Name = $"abrirAvion2_${empresaAA}"$ cmd.Parameters = Array As Object(et_rutaAA.text, almacenAA) reqManager.ExecuteCommand(cmd, $"abrirAvion2_${empresaAA}"$) End Sub Private Sub b_revisaAA_Click cmd.Name = $"revisaAvion_${empresaAA}"$ cmd.Parameters = Array As Object(almacenAA, et_rutaAA.text) reqManager.ExecuteQuery(cmd, 0, $"revisaAvion_${empresaAA}"$, 0) End Sub Private Sub Label1_LongClick Log("Clicked Global") ' Private reqManagerT As DBRequestManagerV2 Private cmd2 As DBCommand cmd2.Initialize ' reqManagerT.Initialize(Me, "http://192.168.100.20:9000") reqManagerT.Initialize(Me, "http://keymon.net:9010/DB2") cmd2.Name = "traeConexion" reqManagerT.ExecuteQuery(cmd2 , 0, "testTraeConexion", 0) End Sub