cheveguerra/Guna_Carta_Porte
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Carta_Porte.git synced 2026-04-20 12:49:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
cvaldes1201
2024-07-22 16:27:59 -06:00
parent 17462911c3
commit 970144b626
22 changed files with 1417 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

147
B4A/C_Principal.bas
View File

@@ -39,6 +39,12 @@ Sub Class_Globals
Private et_ruta As EditText
Private l_ruta1 As Label
Private l_almacen As Label
Dim b As Cursor
Private b_check As Button
Dim reqManager As DBRequestManager
Dim cmd As DBCommand
Dim c As Cursor
Dim RES As String
End Sub
'You can add more parameters here.
@@ -55,6 +61,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub
Sub B4XPage_Appear
reqManager.Initialize(Me, Subs.traeDBReqServer)
b_check.visible = True
Subs.centraPanel(p_botones, Root.Width)
b_verCartaPorte.Enabled = False
If File.Exists(File.DirInternal,"cartaPorte.pdf") Then
@@ -66,9 +74,19 @@ Sub B4XPage_Appear
End If
End If
b_descargaCartaPorte.Enabled = False
et_ruta.Text = "131"
' et_ruta.Text = "131"
l_almacen.Text= Subs.traeAlmacen
et_ruta.RequestFocus
c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM CHECADO_CHECK")
If c.RowCount = 0 Then
b_check.Visible = False
Else
b_check.Visible = True
End If
checachek
End Sub
Sub B4XPage_CloseRequest As ResumableSub
@@ -121,6 +139,17 @@ Private Sub b_descargaCartaPorte_Click
' VALIDAR_INFO
End If
End If
cmd.Initialize
cmd.Name = "select_cat_placa_guna"
cmd.Parameters = Array As Object(Subs.traeAlmacen,et_ruta.Text)
reqManager.ExecuteQuery(cmd , 0, "placa")
' cmd.Initialize
' cmd.Name = "select_cat_kmt_info_guna"
' cmd.Parameters = Array As Object(almacen,et_ruta.Text)
' reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
End Sub
'Descarga del servidor el PDF de la carta porte del dia de hoy y la
@@ -134,7 +163,7 @@ Sub descargaCartaPorte
Private rutaX As String = et_ruta.text 'rutaPreventa
Private almacenX As String = Subs.traeAlmacen
'#################################
Private almacenX As String = "2" 'almacen
' Private almacenX As String = "2" 'almacen
'#################################
Private cartaPortePDF As String = $"CPORTE${almacenX}_${rutaX}.pdf"$
@@ -144,7 +173,8 @@ Sub descargaCartaPorte
Private pdfServer As String = "keymon.lat"
If DBReqServer.IndexOf("10.0.0.205") > -1 Then pdfServer = "10.0.0.205"
' Log(pdfServer)
pdfURL = $"https://${pdfServer}/CartaPorteKelloggs/CartaPorteMovil${DateTime.Date(DateTime.now)}/${cartaPortePDF}"$
Log(DateTime.Date(DateTime.now))
pdfURL = $"https://${pdfServer}/CartaPorteGuna/CartaPorteMovil${DateTime.Date(DateTime.now)}/${cartaPortePDF}"$
LogColor(pdfURL,Colors.Red)
' Log("Iniciamos wait for descargaCartaPorteyProgreso")
Wait For (descargaCartaPorteyProgreso(pdfURL)) Complete (Success As Boolean)
@@ -220,9 +250,13 @@ Sub descargaCartaPorteyProgreso (urlx As String) As ResumableSub
ToastMessageShow("Carta Porte descargada exitosamente!!", False)
b_verCartaPorte.Enabled = True
' AQUI VA EL CODIGO DE CARTA PORTE DSCARGADA
' AQUI VA EL CODIGO DE CARTA PORTE DESCARGADA!!!!!
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTAA")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (et_ruta.TEXT))
cmd.Initialize
cmd.Name = "insert_checkcp_GUNA"
cmd.Parameters = Array As Object(Subs.traeAlmacen,et_ruta.Text,B4XPages.MainPage.usuario)
reqManager.ExecuteCommand(cmd , $"ins_checkcpPendientes_head_${usuario}"$)
Subs.panelOculto(p_downloadPDF)
' p_progress1.Visible = False
@@ -349,4 +383,105 @@ Private Sub et_ruta_TextChanged (Old As String, New As String)
Else
b_descargaCartaPorte.Enabled = False
End If
End Sub
Sub checachek
b = B4XPages.MainPage.skmt.ExecQuery("SELECT CHECADO FROM CHECADO_CHECK")
If b.RowCount > 0 Then
b.Position = 0
If b.GetString("CHECADO") = 0 Then
b_check.Visible = True
Else If b.GetString("CHECADO") = 1 Then
b_check.Visible =False
End If
b.Close
End If
End Sub
Private Sub b_check_Click
B4XPages.ShowPage("checklist")
End Sub
Sub et_ruta_EnterPressed
If et_ruta.Text = "FIN DIA" Then
RES = Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If RES = DialogResponse.POSITIVE Then
et_ruta.Text = ""
B4XPages.MainPage.skmt.ExecNonQuery("delete from CHECADO_CHECK")
B4XPages.MainPage.skmt.ExecNonQuery("delete from CHECKLIST2")
B4XPages.MainPage.skmt.ExecNonQuery("delete from PLACAS")
' Starter.skmt.ExecNonQuery("delete from kmt_info")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTAA")
B4XPage_Appear
End If
' Starter.waypointsOrdered.Clear
End If
End Sub
Sub JobDone(Job As HttpJob)
Log("JOBDONE CLIENTE . " & Job.Success)
If Job.Success = False Then
' ToastMessageShow("Error: " & Job.ErrorMessage, True)
' LogColor("JobDone Error: '" & reqManager.HandleJob(Job).tag, Colors.red) 'Mod por CHV - 211027
Else
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "placa" Then 'query tag
B4XPages.MainPage.skmt.ExecNonQuery("delete from PLACAS")
For Each records() As Object In RESULT.Rows
Dim placa As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PLACAS(PLACA) VALUES (?)", Array As Object (placa))
B4XPage_Appear
Next
End If
End If
' If Job.JobName = "DBRequest" Then
' Dim RESULT As DBResult = reqManager.HandleJob(Job)
' If RESULT.Tag = "kmt_datos" Then 'query tag
' For Each records() As Object In RESULT.Rows
'
' Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' Dim CAT_CL_SALDODISPONIBLE As String = records(RESULT.Columns.Get("CAT_VE_PLACAS"))
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(PLACA) VALUES (?)", Array As Object (placa))
' Next
' End If
' End If
c = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM CHECADO_CHECK")
c.Position = 0
If c.GetString("CUANTOS") = 0 Then
B4XPages.MainPage.skmt.ExecNonQuery2("insert into CHECADO_CHECK (CHECADO) VALUES(?)", Array As String("0"))
Else If c.GetString("CUANTOS") = 1 Then
End If
End If
End Sub