cheveguerra/Guna_Reparto_Imp
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Reparto_Imp.git synced 2026-04-17 21:06:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

6.01.07

Browse Source
This commit is contained in:
Javier
2026-01-19 11:31:30 -06:00
parent 86c0d1f273
commit 4f07b6d3d3
3 changed files with 60 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
B4A/C_Principal.bas
View File

@@ -896,7 +896,12 @@ Sub envioinfo
Dim fechacap() As String
fechacap = Regex.Split("/",pa.GetString("PA_CAPTURA"))
Dim fechacapano As String = fechacap(2).SubString(2)
Dim fechacapreal As String = fechacap(0)&"/"&fechacap(1)&"/"&fechacapano
' Dim mes As Int = DateTime.GetMonth(DateTime.Now)
If DateTime.GetMonth(DateTime.Now) = fechacap(1) Then
Dim fechacapreal As String = fechacap(0)&"/"&fechacap(1)&"/"&fechacapano
Else
Dim fechacapreal As String = fechacap(1)&"/"&fechacap(0)&"/"&fechacapano
End If
If pa.GetString("PA_CANCELADO") = "2" Then
cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO"),2)
Else
@@ -2014,6 +2019,7 @@ Sub e_ruta_EnterPressed
e_ruta.Text = ""
Starter.skmt.ExecNonQuery("delete from PICK_CIEGO")
Starter.skmt.ExecNonQuery("delete from HIST_REPARTO_GEO")
Starter.skmt.ExecNonQuery("delete from REPARTO_GEO")
Starter.skmt.ExecNonQuery("delete from pedido_cliente")
Starter.skmt.ExecNonQuery("delete from PAGARES")
Starter.skmt.ExecNonQuery("DELETE FROM GEOCERCA")
@@ -2897,25 +2903,61 @@ Sub StartPrinter
End Sub
Private Sub ImageView1_LongClick
' NOVENTA
c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO,NV_FOTO2, NV_REPROGRAMAR FROM NOVENTA")
D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim fotoenvia() As Byte = c.GetBlob("NV_FOTO")
' ' NOVENTA
' c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO,NV_FOTO2, NV_REPROGRAMAR FROM NOVENTA")
' D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
'
' Dim fotoenvia() As Byte = c.GetBlob("NV_FOTO")
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "insert_reparto_REPG_GUNA_VN2"
' cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text,fotoenvia)
' reqManager.ExecuteCommand(cmd , "inst_noventa_")
' Next
' c.Close
' End If
' d.Position=0
' cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
' d.Close
'PAGARES.
Dim pa As Cursor =Starter.skmt.ExecQuery("select PA_ALMACEN,PA_RUTA_REP,PA_RUTAPREV,PA_FECHA_PREV,PA_CAPTURA,PA_MONTO,PA_USUARIO,PA_CLIENTE,IFNULL(PA_CANCELADO,0) AS PA_CANCELADO from PAGARES")
If pa.RowCount > 0 Then
For pag = 0 To pa.RowCount - 1
pa.Position = pag
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_REPG_GUNA_VN2"
cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text,fotoenvia)
reqManager.ExecuteCommand(cmd , "inst_noventa_")
cmd.Name = "insert_reparto_PAGARES_GUNA_VN"
Dim fechaenvio() As String
fechaenvio = Regex.Split(" ",pa.GetString("PA_FECHA_PREV"))
' Log(fechaenvio(0))
Dim fechaenvio1() As String
fechaenvio1 = Regex.Split("/",fechaenvio(0))
Dim fechaano As String = fechaenvio1(2).SubString(2)
Dim fechareal As String = fechaenvio1(0)&"/"&fechaenvio1(1)&"/"&fechaano
' Log(fechareal)
Dim fechacap() As String
fechacap = Regex.Split("/",pa.GetString("PA_CAPTURA"))
Dim fechacapano As String = fechacap(2).SubString(2)
' Dim mes As Int = DateTime.GetMonth(DateTime.Now)
If DateTime.GetMonth(DateTime.Now) = fechacap(1) Then
Dim fechacapreal As String = fechacap(0)&"/"&fechacap(1)&"/"&fechacapano
Else
Dim fechacapreal As String = fechacap(1)&"/"&fechacap(0)&"/"&fechacapano
End If
If pa.GetString("PA_CANCELADO") = "2" Then
cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO"),2)
Else
cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO"),"")
End If
reqManager.ExecuteCommand(cmd , "ins_pagares")
Next
c.Close
End If
d.Position=0
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
d.Close
pa.Close
End Sub
Private Sub b_impresion_rec_Click

2
B4A/guna_reparto.b4a
View File

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

2
B4A/guna_reparto.b4a.meta
View File

@@ -97,6 +97,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Cliente,HIST_Click,1059,0,C_Cliente,B4XPage_Appear,234,6,C_Cliente,ListView1_ItemLongClick,720,0,C_Cliente,checacredito,802,6,C_Cliente,gest_Click,785,6,C_Principal,cargar_Click,1086,5,C_Principal,envioinfo,1063,0,C_Principal,JobDone,1574,0,C_DetalleVenta,CreateListItem2,502,0,C_DetalleVenta,b_prodMenos_Click,598,3,C_Cliente,B_IMP_Click,1480,6
NavigationStack=C_NoVenta,GPS_LocationChanged,103,0,C_Cliente,GPS_LocationChanged,620,0,C_Cliente,Guardado,997,0,C_Cliente,esPagoACreditoGuardamosPagare,985,0,C_Cliente,b_acred_Click,2021,0,C_Cliente,b_cancel_pagare_Click,3894,0,Diseñador Visual,cliente.bal,-100,1,C_Principal,envioinfo,873,6,Diseñador Visual,principal.bal,-100,2,C_Principal,ImageView1_LongClick,2909,0
SelectedBuild=0
VisibleModules=2,17,5,6,7,8,10,31,30,28