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

6.02.18

Browse Source 
Se agrega para que no puedan cargar dos rutas sin antes dar fin dia
Se modifica para que no pida codigo a mayoreo
This commit is contained in:
cvaldes1201
2026-03-10 20:34:00 -06:00
parent 2f3449e347
commit 33c43419f2
4 changed files with 133 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
B4A/C_Cliente.bas
View File

@@ -966,7 +966,7 @@ Sub checacredito
limite_credito = 0 limite_credito = 0
If CREDITO = 1 And x1.GetString("CAT_CL_LIMITECREDITO") <> 0 Then '''' se debe de cambiar a si acepta o no credito, aparte de tener la bandera a credito If CREDITO = 1 And x1.GetString("CAT_CL_LIMITECREDITO") <> 0 Then '''' se debe de cambiar a si acepta o no credito, aparte de tener la bandera a credito
If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 94 Or Subs.traeAlmacen = 6 Then If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 6 Then
Dim c4 As Cursor = Starter.skmt.ExecQuery("SELECT IFNULL(CAT_CL_VCREDITO,0) AS CAT_CL_VCREDITO, IFNULL(CAT_CL_VCODIGO,0) AS CAT_CL_VCODIGO FROM kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") Dim c4 As Cursor = Starter.skmt.ExecQuery("SELECT IFNULL(CAT_CL_VCREDITO,0) AS CAT_CL_VCREDITO, IFNULL(CAT_CL_VCODIGO,0) AS CAT_CL_VCODIGO FROM kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
@@ -1034,6 +1034,18 @@ Sub checacredito
banderaimp = 1 banderaimp = 1
End If End If
Else If Subs.traeAlmacen = 94 Then
' p_codigo.Visible= False
' et_codigo.Text = ""
Log(12)
escreditoono = 1
limite_credito = x1.GetString("CAT_CL_LIMITECREDITO")
If l_total.Text <> ".00" Then
esPagoACreditoGuardamosPagare
End If
Else Else

198
B4A/C_Principal.bas
View File

@@ -1178,62 +1178,67 @@ Sub cargar_Click
pedidodiaanterior = True pedidodiaanterior = True
End If End If
End If End If
If Not (pedidodiaanterior) Then
' P_carga.Visible = True
P_carga.Width = Root.Width
P_carga.Height = Root.Height
l_carga2.Text = "CARGANDO"
L_carga.Text = "CARGANDO"
PB_carga2.Progress = 0
PB_carga.Progress = 0
Log("CUMPLE")
EJECUTANDO = 1
reqs.Initialize
TOPE = 0
LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
reqManager.Initialize(Me, B4XPages.MainPage.server)
Dim cmd As DBCommand
cmd.Initialize If Not (pedidodiaanterior) Then
cmd.Name = "insert_drop_rep_GUNA_VN2"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",0,0,0,0,0,0,0,0)
reqManager.ExecuteCommand(cmd , "inst_drop")
' P_carga.Visible = True
P_carga.Width = Root.Width
P_carga.Height = Root.Height
l_carga2.Text = "CARGANDO"
L_carga.Text = "CARGANDO"
PB_carga2.Progress = 0
PB_carga.Progress = 0
Log("CUMPLE")
EJECUTANDO = 1
reqs.Initialize
TOPE = 0
LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
reqManager.Initialize(Me, B4XPages.MainPage.server)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_drop_rep_GUNA_VN2"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",0,0,0,0,0,0,0,0)
reqManager.ExecuteCommand(cmd , "inst_drop")
' reqs.Add("inst_noventa") ' reqs.Add("inst_noventa")
Starter.skmt.ExecNonQuery("delete from kmt_info") Starter.skmt.ExecNonQuery("delete from kmt_info")
Starter.skmt.ExecNonQuery("delete from cod_result") Starter.skmt.ExecNonQuery("delete from cod_result")
Starter.skmt.ExecNonQuery("delete from hist_gest") Starter.skmt.ExecNonQuery("delete from hist_gest")
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
Starter.skmt.ExecNonQuery("delete from telefonos") Starter.skmt.ExecNonQuery("delete from telefonos")
' Starter.skmt.ExecNonQuery("delete from VENTAS") ' Starter.skmt.ExecNonQuery("delete from VENTAS")
Starter.skmt.ExecNonQuery("delete from PUNTEO_GPS") Starter.skmt.ExecNonQuery("delete from PUNTEO_GPS")
If l_ruta.Text = "0" Then ' If l_ruta.Text = "0" Then '
Log("********************* No hay ruta, BORRAMOS TODO") Log("********************* No hay ruta, BORRAMOS TODO")
Starter.skmt.ExecNonQuery("delete from cat_gunaprod") Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
Starter.skmt.ExecNonQuery("delete from cat_gunaprod3") Starter.skmt.ExecNonQuery("delete from cat_gunaprod3")
Starter.skmt.ExecNonQuery("delete from REPARTO") Starter.skmt.ExecNonQuery("delete from REPARTO")
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS") Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS2") Starter.skmt.ExecNonQuery("delete from HIST_VENTAS2")
Starter.skmt.ExecNonQuery("delete from NOVENTA") Starter.skmt.ExecNonQuery("delete from NOVENTA")
Starter.skmt.ExecNonQuery("DELETE FROM ABONOSP") Starter.skmt.ExecNonQuery("DELETE FROM ABONOSP")
Else Else
Log("********************* Hay ruta, NO BORRAMOS TODO") Log("********************* Hay ruta, NO BORRAMOS TODO")
End If End If
' NUEVOS CLIENTES ' NUEVOS CLIENTES
c=Starter.skmt.ExecQuery("select usuario from usuarioa") c=Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0 c.Position = 0
usuario = c.GetString("USUARIO") usuario = c.GetString("USUARIO")
cargaGeneral ' Cargamos los datos del almacen principal. cargaGeneral ' Cargamos los datos del almacen principal.
If multiAlmacen Then If multiAlmacen Then
Sleep(100) Sleep(100)
Log(multiAlmacen) Log(multiAlmacen)
Log("==================== CARGAMOS SEGUNDO ALMACEN ======================") Log("==================== CARGAMOS SEGUNDO ALMACEN ======================")
cargaAlmacen2 ' Cargamos los datos del segundo almacen. cargaAlmacen2 ' Cargamos los datos del segundo almacen.
End If End If
@@ -1262,7 +1267,7 @@ Sub cargar_Click
' End If ' End If
' c.Close ' c.Close
' NOVENTA ' NOVENTA
' c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE, NV_FECHA, NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") ' c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE, NV_FECHA, NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
' If c.RowCount > 0 Then ' If c.RowCount > 0 Then
' For i=0 To c.RowCount -1 ' For i=0 To c.RowCount -1
@@ -1276,18 +1281,19 @@ Sub cargar_Click
' reqs.Add("inst_noventa") ' reqs.Add("inst_noventa")
' Next ' Next
' End If ' End If
'' c.Close '' c.Close
D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
d.Position=0 d.Position=0
cuantos_noventa = D.GetString("CUANTOS_NOVENTA") cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
d.Close d.Close
cargar.Visible = False cargar.Visible = False
Subir.Visible = False Subir.Visible = False
connecta.Visible = True connecta.Visible = True
inv.Visible = False inv.Visible = False
ToastMessageShow("Se actualizarán los datos, este proceso podria tardar hasta un minuto, gracias" , True) ToastMessageShow("Se actualizarán los datos, este proceso podria tardar hasta un minuto, gracias" , True)
ProgressDialogShow2("Descargando rutas, espere un momento.", False) ProgressDialogShow2("Descargando rutas, espere un momento.", False)
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión") If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión")
Else Else
Log("XXXX") Log("XXXX")
MsgboxAsync("Para poder cargar día no puedes tener venta del día anterior. Por favor haz FIN DIA e intenta nuevamente.","Atención") MsgboxAsync("Para poder cargar día no puedes tener venta del día anterior. Por favor haz FIN DIA e intenta nuevamente.","Atención")
@@ -1473,27 +1479,57 @@ Sub JobDone(Job As HttpJob)
If HVD_IMPRESO_RECHAZO = 0 Then If HVD_IMPRESO_RECHAZO = 0 Then
LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
If e_ruta.Text <> "" Then
imei = "" 'p.GetDeviceId Dim checaruta As Boolean
conn = "1" Dim cr As Cursor = Starter.skmt.ExecQuery("select RUTAA from RUTAA")
ime.HideKeyboard If cr.RowCount > 0 Then
cr.Position=0
Dim cmd As DBCommand If cr.GetString("RUTAA") = e_ruta.Text Then
cmd.Initialize checaruta = True
cmd.Name = "select_ruta_re_REPG_GUNA_VN" Else
cmd.Parameters = Array As Object() checaruta = False
End If
reqManager.ExecuteQuery(cmd , 0, "ruta") Else
ToastMessageShow("Validando Conexión." , True) checaruta = True
Starter.skmt.ExecNonQuery("DELETE FROM RUTAA") End If
Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT)) c.Close
B4XPages.MainPage.rutaPreventa = e_ruta.TEXT Log(checaruta)
cmd.Name = "selectAgrupadorAlmacen" If e_ruta.Text <> "FIN DIA" Then
cmd.Parameters = Array As Object(ALMACEN)
Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen")
If checaruta Then
If e_ruta.Text <> "" Then
imei = "" 'p.GetDeviceId
conn = "1"
ime.HideKeyboard
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_re_REPG_GUNA_VN"
cmd.Parameters = Array As Object()
reqManager.ExecuteQuery(cmd , 0, "ruta")
ToastMessageShow("Validando Conexión." , True)
Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
cmd.Name = "selectAgrupadorAlmacen"
cmd.Parameters = Array As Object(ALMACEN)
Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen")
End If
Else
Log("XXXX")
MsgboxAsync("Para poder cargar día con una ruta diferente primero haz FIN DIA e intenta nuevamente.","Atención")
End If
Else
Log("XXXX")
MsgboxAsync("No se puede realizar esta accion, intenta nuevamente.","Atención")
End If End If
Else Else
MsgboxAsync("No se puede realizar ninguna modificación","Rechazo confirmado") MsgboxAsync("No se puede realizar ninguna modificación","Rechazo confirmado")

2
B4A/guna_reparto.b4a
View File

@@ -262,7 +262,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Guna Reparto #ApplicationLabel: Guna Reparto
#VersionCode: 1 #VersionCode: 1
#VersionName: 6.02.16 #VersionName: 6.02.18
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/guna_reparto.b4a.meta
View File

@@ -97,6 +97,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=DBRequestManager,HandleJob,193,0,DBRequestManager,ImageToBytes,233,0,C_Principal,cargar_Click,1181,6,Diseñador Visual,cliente.bal,-100,6,C_Cliente,B4XPage_Appear,331,1,C_Cliente,Class_Globals,133,0,C_Principal,JobDone,1926,6,C_Cliente,B_IMP_Click,1493,0,C_Cliente,Guardado,1237,0,C_Principal,cargaGeneral,1327,1,C_Principal,envioinfo,953,6 NavigationStack=C_Principal,e_ruta_EnterPressed,2357,0,C_Principal,cargar_Click,1289,6,C_Principal,JobDone,1525,6,C_Cliente,Class_Globals,0,0,C_Cliente,gest_Click,799,0,C_Cliente,JobDone,2296,0,C_Cliente,b_aceptarFD_Click,5898,0,C_Cliente,esPagoACreditoGuardamosPagare,1090,0,C_Cliente,checacredito,941,0,Diseñador Visual,cliente.bal,-100,5
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,17,5,6,8,10,31,30,28,7,23 VisibleModules=2,17,5,6,8,10,31,30,28,7