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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-05-16 10:40:42 -06:00
parent 047d927224
commit a2f036d7f7
7 changed files with 40 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
B4A/C_Principal.bas
View File

@@ -269,6 +269,7 @@ Sub IsConnectedToInternet As Boolean
End Sub
Sub B4XPage_Appear
checaPedido
Log(Starter.lat_gps& " "& Starter.lon_gps)
SERVER = Starter.DBReqServer
HORAINGRESO ="000000"
@@ -1926,7 +1927,7 @@ Sub JobDone(Job As HttpJob)
Subs.logJobDoneResultados(RESULT)
End If
If reqManager.reqsList.Size = 0 Then S_CP.Text = "LISTO"
' If reqManager.reqsList.Size = 0 Then S_CP.Text = "LISTO"
Job.Release
End If
@@ -2163,13 +2164,14 @@ Sub B_OK_PAS_Click
B_PROXIMA.Visible =True
Btn_UbicarR.Visible=True
checaPedido
NUEVO.Visible =True
BUSCA.Visible=True
connecta.Visible=True
Resumen.Visible= True
img2.Visible=False
B4XPage_Appear
Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
RES = Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
If RES = DialogResponse.POSITIVE Then
@@ -2332,7 +2334,7 @@ Sub Resumen_Click
Do While r.NextRow
cRes = cRes + r.GetString("PE_COSTO_TOT")
Loop
l_montoColgateResumen.Text = numberformat2(cRes, 1, 2, 2, True)
l_montoColgateResumen.Text = NumberFormat2(cRes, 1, 2, 2, True)
b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
b.Position=0
@@ -2377,7 +2379,7 @@ Sub Resumen_Click
ImageView12.Bitmap = LoadBitmap(File.DirAssets, "k.png")
c=skmt.ExecQuery2("select ifnull(sum(pe_cant), 0) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO"))
c.Position = 0
l_cambios.Text = numberformat2(c.GetString("CAMBIOS"), 1, 2, 2, True)
l_cambios.Text = NumberFormat2(c.GetString("CAMBIOS"), 1, 2, 2, True)
c.Close
c=skmt.ExecQuery("Select ifnull(sum(PE_COSTO_TOT), 0) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2' union Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2')")
c.Position = 0
@@ -2786,4 +2788,17 @@ Sub b_e_resumen_Click
' cmd.Name = "UPDATE_DURK_ACTUAL2_GPS"
' cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,Main.lat_gps,Main.lon_gps,batterystatus(0),0, 0, 0,ALMACEN,l_ruta.Text )
' reqManager.ExecuteCommand(cmd,"inst_visitas")
End Sub
'Revisa si el cliente tiene venta o No venta y si es así modifica gestion en kmt_info
Sub checaPedido
Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
End If
Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
End If
End Sub