mirror of
https://github.com/KeymonSoft/Guna_Reparto_BAT.git
synced 2026-04-17 12:56:19 +00:00
6.02.26
This commit is contained in:
cvaldes1201
@@ -170,6 +170,9 @@ Sub Class_Globals
|
||||
Private b_aceptarFD As Button
|
||||
Private et_passFinDia As EditText
|
||||
Private teclado As IME
|
||||
|
||||
Private P_Imagengrande As Panel
|
||||
Private I_fotogrande As ImageView
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -225,6 +228,10 @@ End Sub
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
|
||||
Sub B4XPage_Appear
|
||||
|
||||
|
||||
|
||||
|
||||
iv_foto.Bitmap = LoadBitmap(File.DirAssets,"images.png")
|
||||
reimpresion = 0
|
||||
banderaimp = 0
|
||||
@@ -276,6 +283,7 @@ Sub B4XPage_Appear
|
||||
m_lon_al = latlong(0)
|
||||
|
||||
End If
|
||||
Subs.centraPanel(P_Imagengrande,Root.Width)
|
||||
|
||||
barcode.Initialize
|
||||
qr.Initialize(B4XImageView1.mBase.Width)
|
||||
@@ -336,7 +344,7 @@ Sub B4XPage_Appear
|
||||
b_noEntrega.Visible = True
|
||||
gest.Visible = True
|
||||
Else If geo.GetInt("ACTIVA") = 1 Then
|
||||
HIST.Visible = False
|
||||
HIST.Visible = True
|
||||
' b_cxc.Visible = False
|
||||
b_noEntrega.Visible = False
|
||||
gest.Visible = False
|
||||
@@ -569,6 +577,10 @@ Sub B4XPage_Appear
|
||||
b_cxc_Click
|
||||
Impimir = 0
|
||||
End If
|
||||
HIST.Visible= True
|
||||
b_cxc.Visible= False
|
||||
b_noEntrega.Visible= False
|
||||
gest.Visible= False
|
||||
End Sub
|
||||
|
||||
Sub Activity_Pause (UserClosed As Boolean)
|
||||
@@ -594,6 +606,7 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps)
|
||||
End If
|
||||
|
||||
|
||||
If LATITUD.Length < 5 Then
|
||||
|
||||
Else
|
||||
@@ -612,12 +625,14 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
Log("DISTANCIA "&distance)
|
||||
|
||||
|
||||
l_montoefec.Text = 0
|
||||
l_montoefec.Text = distance
|
||||
Dim geo As Cursor = Starter.skmt.ExecQuery("SELECT ACTIVA FROM GEOCERCA")
|
||||
If geo.RowCount > 0 Then
|
||||
geo.Position = 0
|
||||
If geo.GetInt("ACTIVA") = 1 Then
|
||||
|
||||
If (almacen = 88 Or almacen = 92) Then
|
||||
If (almacen = 81 Or almacen = 94 Or almacen = 88 Or almacen = 92) Then
|
||||
|
||||
If distance2 < 100 Then
|
||||
HIST.Visible = True
|
||||
@@ -646,7 +661,7 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
b_noEntrega.Visible = True
|
||||
gest.Visible = True
|
||||
Else
|
||||
HIST.Visible = False
|
||||
HIST.Visible = True
|
||||
b_cxc.Visible = False
|
||||
b_noEntrega.Visible = False
|
||||
gest.Visible = False
|
||||
@@ -1252,12 +1267,16 @@ Sub Guardado
|
||||
Dim entregatotaloparial As String = "ENTREGA PARCIAL"
|
||||
End If
|
||||
|
||||
Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$)
|
||||
cds.Position = 0
|
||||
' cds.GetString("HVD_RUTA")
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
' cmd.Parameters = Array As String(l_total.Text,"1", l_total.Text,B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA"))
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
' Dim cmd As DBCommand
|
||||
@@ -1279,11 +1298,15 @@ Sub Guardado
|
||||
Else
|
||||
Dim entregatotaloparial As String = "ENTREGA PARCIAL"
|
||||
End If
|
||||
|
||||
Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$)
|
||||
cds.Position = 0
|
||||
' cds.GetString("HVD_RUTA")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA"))
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
End If
|
||||
@@ -1386,7 +1409,8 @@ Sub NUEVO_Click
|
||||
End Sub
|
||||
|
||||
Sub HIST_Click
|
||||
|
||||
' If l_montoefec.Text <> 0 AND l_montoefec.Text < 100 Then
|
||||
|
||||
Dim pagacheca2 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If pagacheca2.RowCount > 0 Then
|
||||
Msgbox2Async("El pagare ya fue generdo, no se puede realizar modificación.","Atención","","","Ok",LoadBitmap(File.DirAssets,"alert2.png"),False)
|
||||
@@ -1469,7 +1493,7 @@ Sub HIST_Click
|
||||
'' B4XPages.MainPage.historico.clv_pedido.Clear
|
||||
' B4XPages.ShowPage("Historico")
|
||||
' B4XPages.MainPage.historico.clv_pedido.Clear
|
||||
|
||||
' End If
|
||||
End Sub
|
||||
|
||||
Sub B_IMP_Click
|
||||
@@ -1513,6 +1537,65 @@ Sub B_IMP_Click
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_ESTATUS = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
|
||||
|
||||
|
||||
If escreditoono = "1" Then
|
||||
|
||||
Dim g5 As Cursor = Starter.skmt.ExecQuery("SELECT SUM(HVD_COSTO_TOT) as HVD_COSTO_TOT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
g5.Position = 0
|
||||
Dim totaltotal2 As String = NumberFormat2(g5.GetString("HVD_COSTO_TOT"),0,2,2,False)
|
||||
g5.Close
|
||||
LogColor(totaltotal2,Colors.Red)
|
||||
LogColor(l_total.Text.Replace(",",""),Colors.Red)
|
||||
If totaltotal2 = l_total.Text.Replace(",","") Then
|
||||
Dim entregatotaloparial As String = "ENTREGA TOTAL"
|
||||
Else
|
||||
Dim entregatotaloparial As String = "ENTREGA PARCIAL"
|
||||
End If
|
||||
|
||||
Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$)
|
||||
cds.Position = 0
|
||||
' cds.GetString("HVD_RUTA")
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
' cmd.Parameters = Array As String(l_total.Text,"1", l_total.Text,B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
' cmd.Parameters = Array As String(l_total.Text,"fue credito", "MONTO SI FUE A CREDITO",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"RECHAZO O NO",usuario,ruta,"entrega o rechazo", "parcial o total","efectivo o credito", "mts", L_CANT.text,la_cuenta.Text,fechaprev,almacen,rutaprev)
|
||||
' reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
Else
|
||||
|
||||
Dim g5 As Cursor = Starter.skmt.ExecQuery("SELECT SUM(HVD_COSTO_TOT) as HVD_COSTO_TOT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
g5.Position = 0
|
||||
Dim totaltotal2 As String = NumberFormat2(g5.GetString("HVD_COSTO_TOT"),0,2,2,False)
|
||||
g5.Close
|
||||
LogColor(totaltotal2,Colors.Red)
|
||||
LogColor(l_total.Text.Replace(",",""),Colors.Red)
|
||||
If totaltotal2 = l_total.Text.Replace(",","") Then
|
||||
Dim entregatotaloparial As String = "ENTREGA TOTAL"
|
||||
Else
|
||||
Dim entregatotaloparial As String = "ENTREGA PARCIAL"
|
||||
End If
|
||||
|
||||
Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$)
|
||||
cds.Position = 0
|
||||
' cds.GetString("HVD_RUTA")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
End If
|
||||
|
||||
' DateTime.DateFormat = "MM/dd/yyyy"
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
@@ -2114,7 +2197,7 @@ Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("Subtotal: $" & NumberFormat2(totaltotal,0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Total Articulos: " & (L_CANT.Text.Replace(",","") -restacobranza) & CRLF)
|
||||
Printer1.WriteString("Descuento: %" & NumberFormat2((100-((l_total.Text.Replace(",","")*100)/totaltotal)),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: %" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: $" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
|
||||
Printer1.WriteString("Total: $" & l_total.Text)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
@@ -5217,7 +5300,7 @@ Private Sub b_imprimesegun_Click
|
||||
Printer1.WriteString("Subtotal: $" & NumberFormat2(totaltotal,0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Total Articulos: " & (L_CANT.Text.Replace(",","") -restacobranza) & CRLF)
|
||||
Printer1.WriteString("Descuento: %" & NumberFormat2((100-((l_total.Text.Replace(",","")*100)/totaltotal)),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: %" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: $" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Total: $" & l_total.Text)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
@@ -6994,7 +7077,7 @@ Sub imp
|
||||
Printer1.WriteString("Subtotal: $" & NumberFormat2(totaltotal,0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Total Articulos: " & (L_CANT.Text.Replace(",","") -restacobranza) & CRLF)
|
||||
Printer1.WriteString("Descuento: %" & NumberFormat2((100-((l_total.Text.Replace(",","")*100)/totaltotal)),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: %" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: $" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Total: $" & l_total.Text)
|
||||
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
@@ -7773,4 +7856,28 @@ Sub imprime_abonopagare3
|
||||
|
||||
' mandaAbonosPANUEPendientes
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub iv_foto_Click
|
||||
Private fotomostrar As Cursor = Starter.skmt.ExecQuery("SELECT FOTO FROM FOTOS where CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If fotomostrar.RowCount > 0 Then
|
||||
|
||||
fotomostrar.Position = 0
|
||||
Private fotomostrarfinal() As Byte = fotomostrar.GetBlob("FOTO")
|
||||
Dim InputStream1 As InputStream
|
||||
InputStream1.InitializeFromBytesArray(fotomostrarfinal, 0, fotomostrarfinal.Length)
|
||||
Dim Bitmap1 As Bitmap
|
||||
Bitmap1.Initialize2(InputStream1)
|
||||
InputStream1.Close
|
||||
I_fotogrande.Bitmap = Bitmap1
|
||||
Log("aqui si hay foto")
|
||||
Else
|
||||
I_fotogrande.Bitmap = LoadBitmap(File.DirAssets,"images.png")
|
||||
Log("aqui no hay foto")
|
||||
End If
|
||||
P_Imagengrande.Visible = True
|
||||
End Sub
|
||||
|
||||
Sub P_Imagengrande_click
|
||||
P_Imagengrande.Visible = False
|
||||
End Sub
|
||||
@@ -219,7 +219,9 @@ Sub GUARDA_Click
|
||||
Dim g5 As Cursor = Starter.skmt.ExecQuery("SELECT SUM(HVD_COSTO_TOT) AS HVD_COSTO_TOT, SUM(HVD_CANT) AS HVD_CANT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
g5.Position = 0
|
||||
|
||||
|
||||
Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${cuenta}' "$)
|
||||
cds.Position = 0
|
||||
' cds.GetString("HVD_RUTA")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
@@ -229,7 +231,7 @@ Sub GUARDA_Click
|
||||
Log(g5.GetString("HVD_COSTO_TOT"))
|
||||
Log(g5.GetString("HVD_CANT"))
|
||||
|
||||
cmd.Parameters = Array As String(g5.GetString("HVD_COSTO_TOT"),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,1,motivo,usuario,ruta,"RECHAZO", "RECHAZO TOTAL","", B4XPages.MainPage.cliente.distance, g5.GetString("HVD_CANT"),cuenta,fechaprev,B4XPages.MainPage.almacen,Subs.traerUTAPREV)
|
||||
cmd.Parameters = Array As String(g5.GetString("HVD_COSTO_TOT"),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,1,motivo,usuario,ruta,"RECHAZO", "RECHAZO TOTAL","", B4XPages.MainPage.cliente.distance, g5.GetString("HVD_CANT"),cuenta,fechaprev,B4XPages.MainPage.almacen,cds.GetString("HVD_RUTA"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(g5.GetString("HVD_COSTO_TOT"),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,1,motivo,usuario,ruta,"RECHAZO", "RECHAZO TOTAL","", B4XPages.MainPage.cliente.distance, g5.GetString("HVD_CANT"),cuenta,fechaprev,B4XPages.MainPage.almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
g5.Close
|
||||
|
||||
@@ -223,6 +223,10 @@ Sub B4XPage_Appear
|
||||
reqManager.Initialize(Me, B4XPages.MainPage.server)
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM ABONOS where a_abono is null or a_abono = ''")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA where NV_CLIENTE is null or NV_CLIENTE = ''")
|
||||
' Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA where NV_CLIENTE is null or NV_CLIENTE = '0050371272'")
|
||||
' Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 0 WHERE CAT_CL_CODIGO = '0050371272'")
|
||||
' Starter.skmt.ExecNonQuery("DELETE FROM CODIGO_CREDITO where CLIENTE = '0050392381'")
|
||||
' Starter.skmt.ExecNonQuery("update kmt_info set gestion = 0 where CAT_CL_CODIGO = '0050392381' ")
|
||||
p_principal.Width = Root.Width
|
||||
p_principal.Height = Root.Height *.80
|
||||
Private c As Cursor = Starter.skmt.ExecQuery("SELECT * FROM NOVENTA")
|
||||
@@ -845,21 +849,52 @@ Sub trabajar_Click
|
||||
End Sub
|
||||
|
||||
Sub Subir_Click
|
||||
ime.HideKeyboard
|
||||
Dim pedidodiaanterior As Boolean = False
|
||||
Dim cp As Cursor = Starter.skmt.ExecQuery("select * from NOVENTA")
|
||||
If cp.RowCount > 0 Then
|
||||
cp.Position = 0
|
||||
Private fecha As String = cp.GetString("NV_FECHA")
|
||||
Log(cp.GetString("NV_FECHA"))
|
||||
Dim fecha2() As String = Regex.Split(" ",fecha)
|
||||
Log(fecha2(0))
|
||||
Dim fecha3() As String = Regex.Split("/",fecha2(0))
|
||||
DateTime.DateFormat = "yyyyMMdd"
|
||||
DateTime.TimeFormat = ""
|
||||
If fecha3(2).Length > 4 Then
|
||||
Dim dia As String = fecha3(2).SubString2(0,5)&fecha3(0)&fecha3(1)
|
||||
Else
|
||||
Dim dia As String = fecha3(2)&fecha3(0)&fecha3(1)
|
||||
End If
|
||||
Log(dia)
|
||||
Dim dia2 As String = DateTime.Date(DateTime.Now)
|
||||
Log(dia & " , " & dia2)
|
||||
If dia < dia2 Then
|
||||
pedidodiaanterior = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If e_ruta.Text = "FIN DIA" Then
|
||||
MsgboxAsync("Para enviar escribe tu ruta y envia informacion, pon atención, el sistema no es estupido, el estupido es el que tiene el telefono en las manos.","Atención")
|
||||
Else
|
||||
|
||||
If Not (pedidodiaanterior) Then
|
||||
If e_ruta.Text = "FIN DIA" Then
|
||||
MsgboxAsync("Para enviar escribe tu ruta y envia informacion, pon atención, el sistema no es estupido, el estupido es el que tiene el telefono en las manos.","Atención")
|
||||
Else
|
||||
|
||||
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
|
||||
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
|
||||
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
|
||||
P_ENVIO.Visible = True
|
||||
envioinfo
|
||||
tenvio.Initialize("tenvio",60000)
|
||||
tenvio.Enabled = True
|
||||
P_ENVIO.Visible = True
|
||||
envioinfo
|
||||
tenvio.Initialize("tenvio",60000)
|
||||
tenvio.Enabled = True
|
||||
End If
|
||||
|
||||
Else
|
||||
Log("XXXX")
|
||||
MsgboxAsync("No se puede hacer envio de informadion de un día anterior. Por favor haz FIN DIA y carga ruta..","Atención")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -889,268 +924,272 @@ Sub envioinfo
|
||||
recibidos = 0
|
||||
l_envio.Text = "ENVIANDO"
|
||||
' 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")
|
||||
cuantosenvio = cuantosenvio + c.RowCount
|
||||
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 fotoenvio() As Byte = C.GetBlob("NV_FOTO2")
|
||||
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, C.GetString("NV_REPROGRAMAR"),fotoenvio)
|
||||
reqManager.ExecuteCommand(cmd , "envio_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_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"),NumberFormat2(pa.GetString("PA_MONTO"),0,2,2,False),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),Subs.traeRutaReparto,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"),Subs.traeRutaReparto,fechareal,pa.GetString("PA_USUARIO"),"")
|
||||
End If
|
||||
reqManager.ExecuteCommand(cmd , "ins_pagares")
|
||||
Next
|
||||
End If
|
||||
pa.Close
|
||||
' 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")
|
||||
' cuantosenvio = cuantosenvio + c.RowCount
|
||||
' 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 fotoenvio() As Byte = C.GetBlob("NV_FOTO2")
|
||||
' 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, C.GetString("NV_REPROGRAMAR"),fotoenvio)
|
||||
' reqManager.ExecuteCommand(cmd , "envio_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_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"),NumberFormat2(pa.GetString("PA_MONTO"),0,2,2,False),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),Subs.traeRutaReparto,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"),Subs.traeRutaReparto,fechareal,pa.GetString("PA_USUARIO"),"")
|
||||
' End If
|
||||
' reqManager.ExecuteCommand(cmd , "ins_pagares")
|
||||
' Next
|
||||
' End If
|
||||
' pa.Close
|
||||
|
||||
Dim ca As Cursor = Starter.skmt.ExecQuery($"SELECT * FROM HIST_REPARTO_GEO "$)
|
||||
If ca.RowCount > 0 Then
|
||||
For JQANKSN = 0 To ca.rowcount -1
|
||||
ca.Position = JQANKSN
|
||||
Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${ca.GetString("HIST_RG_CLIENTE")}' "$)
|
||||
cds.Position = 0
|
||||
cds.GetString("HVD_RUTA")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
' cmd.Parameters = Array As String(l_total.Text,"1", l_total.Text,B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
cmd.Parameters = Array As String(ca.GetString("HIST_RG_MONTO"),ca.GetString("HIST_RG_CREDITO"),ca.GetString("HIST_RG_MONTO_CREDITO"),ca.GetString("HIST_RG_LAT"),ca.GetString("HIST_RG_LONG"),ca.GetString("HIST_RG_RECHAZO"),ca.GetString("HIST_RG_MOTIVO"),ca.GetString("HIST_RG_USUARIO_ENTREGO"),ca.GetString("HIST_RG_RUTA_REP"),ca.GetString("HIST_RG_ESTATUS_ENTREGA"),ca.GetString("HIST_RG_COMENTARIO_ENTREGA"),ca.GetString("HIST_RG_FORMA_PAGO"),ca.GetString("HIST_RG_GEOCERCA_MTS"),ca.GetString("HIST_RG_NO_ART"),ca.GetString("HIST_RG_CLIENTE"),ca.GetString("HIST_RG_FECHA"),ca.GetString("HIST_RG_ALMACEN"),ca.GetString("HIST_RG_RUTA_PRE"))
|
||||
cmd.Parameters = Array As String(ca.GetString("HIST_RG_MONTO"),ca.GetString("HIST_RG_CREDITO"),ca.GetString("HIST_RG_MONTO_CREDITO"),ca.GetString("HIST_RG_LAT"),ca.GetString("HIST_RG_LONG"),ca.GetString("HIST_RG_RECHAZO"),ca.GetString("HIST_RG_MOTIVO"),ca.GetString("HIST_RG_USUARIO_ENTREGO"),ca.GetString("HIST_RG_RUTA_REP"),ca.GetString("HIST_RG_ESTATUS_ENTREGA"),ca.GetString("HIST_RG_COMENTARIO_ENTREGA"),ca.GetString("HIST_RG_FORMA_PAGO"),ca.GetString("HIST_RG_GEOCERCA_MTS"),ca.GetString("HIST_RG_NO_ART"),ca.GetString("HIST_RG_CLIENTE"),ca.GetString("HIST_RG_FECHA"),ca.GetString("HIST_RG_ALMACEN"),cds.GetString("HVD_RUTA"))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'ABONOS
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
d.Position = 0
|
||||
Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NULL"$)
|
||||
Log(ab.RowCount)
|
||||
If ab.RowCount > 0 Then
|
||||
For i=0 To ab.RowCount -1
|
||||
ab.Position = i
|
||||
' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$)
|
||||
Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$)
|
||||
ab1.Position = 0
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_abono_REP_GUNA_VN2"
|
||||
cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), NumberFormat2(ab.GetString("a_abono"),0,2,2,False), ab.GetString("a_fecha"),ALMACEN,"REPARTO",d.GetString("RUTAA"), "", ab.GetString("TIPO_PAGO"),ab.GetString("a_ticket"),ab.GetString("a_numpago"))
|
||||
reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
ab1.Close
|
||||
Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
Next
|
||||
End If
|
||||
ab.Close
|
||||
d.Close
|
||||
|
||||
|
||||
c=Starter.skmt.ExecQuery("SELECT RUTA_PREV, RUTA_REP, FECHA_PREV, FECHA, ALMACEN, NUM_TICKET, MONTO, METODO_PAGO, USUARIO, CLIENTE, NUM_PAGO FROM CONTADOS")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_CONTADO_GUNA_VN"
|
||||
cmd.Parameters = Array As Object(c.GetString("RUTA_PREV"), c.GetString("RUTA_REP"), c.GetString("FECHA_PREV"), c.GetString("ALMACEN"), c.GetString("NUM_TICKET"),NumberFormat2(c.GetString("MONTO").Replace(",",""),0,2,2,False) , c.GetString("METODO_PAGO"), c.GetString("USUARIO"), c.GetString("CLIENTE"), c.GetString("NUM_PAGO"))
|
||||
reqManager.ExecuteCommand(cmd , "ins_CONTADOS")
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
'ABONOS NUEVOS
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
d.Position = 0
|
||||
Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NOT NULL"$)
|
||||
Log(ab.RowCount)
|
||||
If ab.RowCount > 0 Then
|
||||
For i=0 To ab.RowCount -1
|
||||
ab.Position = i
|
||||
' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$)
|
||||
Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$)
|
||||
ab1.Position = 0
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_abono_REP_GUNA_VN2"
|
||||
cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), NumberFormat2(ab.GetString("a_abono"),0,2,2,False), ab.GetString("a_fecha"),ALMACEN,"REPARTO",d.GetString("RUTAA"), "1", ab.GetString("TIPO_PAGO"),ab.GetString("a_ticket"),ab.GetString("a_numpago") )
|
||||
reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
ab1.Close
|
||||
Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
Next
|
||||
End If
|
||||
ab.Close
|
||||
d.Close
|
||||
|
||||
' pedido
|
||||
c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO")
|
||||
cuantosenvio = cuantosenvio + c.RowCount
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_pedido_REP_GUNA_VN"
|
||||
cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), c.GetString("PE_COSTO_TOT"), c.GetString("PE_COSTOU"), c.GetString("PE_CANT"), c.GetString("PE_PRONOMBRE"), c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), c.GetString("PE_FECHA"), c.GetString("PE_USUARIO"), c.GetString("PE_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO"))
|
||||
reqManager.ExecuteCommand(cmd , "envio_ins_pedido")
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
'TABULADOR
|
||||
c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS")
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
|
||||
f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
|
||||
d.Position = 0
|
||||
b.Position = 0
|
||||
f.Position = 0
|
||||
cuantosenvio = cuantosenvio + c.RowCount
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
|
||||
|
||||
Dim fechatabulador3 As String = fechatabulador(0)
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_tabulador_monedas_GUNA_VN"
|
||||
cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),fechatabulador3)
|
||||
reqManager.ExecuteCommand(cmd , "envio_ins_tabulador_mon")
|
||||
Next
|
||||
c.Close
|
||||
d.Close
|
||||
b.Close
|
||||
f.Close
|
||||
End If
|
||||
c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES")
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
|
||||
f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
|
||||
d.Position = 0
|
||||
b.Position = 0
|
||||
f.Position = 0
|
||||
cuantosenvio = cuantosenvio + c.RowCount
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
|
||||
Dim fechatabulador3 As String = fechatabulador(0)
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_tabulador_billetes_GUNA_VN"
|
||||
cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),fechatabulador3)
|
||||
reqManager.ExecuteCommand(cmd , "envio_ins_tabulador_bill")
|
||||
Next
|
||||
c.Close
|
||||
d.Close
|
||||
b.Close
|
||||
f.Close
|
||||
End If
|
||||
'FIN TABULADOR
|
||||
|
||||
|
||||
|
||||
c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_RUTA, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS where HVD_PRONOMBRE <> 'Cobranza Pendiente'")
|
||||
|
||||
If c.RowCount > 0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position = i
|
||||
' Log(c.GetString("HVD_CLIENTE"))
|
||||
Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$)
|
||||
d4.Position = 0
|
||||
' Log(d4.GetString("CAT_CL_RUTA"))
|
||||
Private d5 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$)
|
||||
d5.Position = 0
|
||||
Private restacant As String = d5.GetString("PE_CANT")
|
||||
d5.Close
|
||||
|
||||
Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
|
||||
|
||||
Dim fecha3 As String = fecha1(0)
|
||||
' Log(fecha3)
|
||||
Dim hora() As String = Regex.Split("\.", fecha1(1))
|
||||
' Log(hora(0))
|
||||
|
||||
Dim sDate, sTime As String
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
If c.GetString("HVD_RECHAZOCANT") <> "0" Then
|
||||
' Log((c.GetString("HVD_RECHAZOCANT")-restacant))
|
||||
cmd.Initialize
|
||||
|
||||
cmd.Name = "update_HVD_GUNA_VN2"
|
||||
' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), c.GetString("HVD_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
reqManager.ExecuteCommand(cmd, "update_hvd")
|
||||
' Log("ENVIE RECHAZO")
|
||||
Else
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_HVD_GUNA_VN2"
|
||||
' Log( c.GetString("CANTC")& c.GetString("HVD_CLIENTE")& c.GetString("HVD_PROID")&fecha3&" "&hora(0)& d4.GetString("CAT_CL_RUTA")&ALMACEN&l_ruta.Text&c.GetString("HVD_CODPROMO")&c.GetString("HVD_NUM_TICKET")& c.GetString("HVD_CANT"))
|
||||
cmd.Parameters = Array As String("","","0",Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
reqManager.ExecuteCommand(cmd, "update_hvd")
|
||||
End If
|
||||
d4.Close
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
Dim ab2 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS"$)
|
||||
Dim ab3 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NULL"$)
|
||||
Dim ab3_1 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(SUM(a_abono),0) AS SUMABO from ABONOS where a_tipoabono IS NULL"$)
|
||||
ab3_1.Position = 0
|
||||
|
||||
Dim ab4 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NOT NULL"$)
|
||||
Dim ab4_1 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(SUM(a_abono),0) AS SUMABO from ABONOS where a_tipoabono IS NOT NULL"$)
|
||||
ab4_1.Position = 0
|
||||
|
||||
Dim pa2 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")
|
||||
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, "ENVIO",l_pagaresnuevos.Text, pa2.RowCount, l_pagarescobrados.Text,ab2.RowCount,NumberFormat2( ab3_1.GetDouble("SUMABO"),0,2,2,False), ab3.RowCount, NumberFormat2( ab4_1.GetDouble("SUMABO"),0,2,2,False), ab4.RowCount )
|
||||
reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
|
||||
' 'ABONOS
|
||||
' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
' d.Position = 0
|
||||
' Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NULL"$)
|
||||
' Log(ab.RowCount)
|
||||
' If ab.RowCount > 0 Then
|
||||
' For i=0 To ab.RowCount -1
|
||||
' ab.Position = i
|
||||
'' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$)
|
||||
' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$)
|
||||
' ab1.Position = 0
|
||||
'
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_abono_REP_GUNA_VN2"
|
||||
' cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), NumberFormat2(ab.GetString("a_abono"),0,2,2,False), ab.GetString("a_fecha"),ALMACEN,"REPARTO",d.GetString("RUTAA"), "", ab.GetString("TIPO_PAGO"),ab.GetString("a_ticket"),ab.GetString("a_numpago"))
|
||||
' reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
' ab1.Close
|
||||
' Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
' Next
|
||||
' End If
|
||||
' ab.Close
|
||||
' d.Close
|
||||
'
|
||||
'
|
||||
' c=Starter.skmt.ExecQuery("SELECT RUTA_PREV, RUTA_REP, FECHA_PREV, FECHA, ALMACEN, NUM_TICKET, MONTO, METODO_PAGO, USUARIO, CLIENTE, NUM_PAGO FROM CONTADOS")
|
||||
' If c.RowCount>0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
' c.Position=i
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_CONTADO_GUNA_VN"
|
||||
' cmd.Parameters = Array As Object(c.GetString("RUTA_PREV"), c.GetString("RUTA_REP"), c.GetString("FECHA_PREV"), c.GetString("ALMACEN"), c.GetString("NUM_TICKET"),NumberFormat2(c.GetString("MONTO").Replace(",",""),0,2,2,False) , c.GetString("METODO_PAGO"), c.GetString("USUARIO"), c.GetString("CLIENTE"), c.GetString("NUM_PAGO"))
|
||||
' reqManager.ExecuteCommand(cmd , "ins_CONTADOS")
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
'
|
||||
' 'ABONOS NUEVOS
|
||||
' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
' d.Position = 0
|
||||
' Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NOT NULL"$)
|
||||
' Log(ab.RowCount)
|
||||
' If ab.RowCount > 0 Then
|
||||
' For i=0 To ab.RowCount -1
|
||||
' ab.Position = i
|
||||
'' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$)
|
||||
' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$)
|
||||
' ab1.Position = 0
|
||||
'
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_abono_REP_GUNA_VN2"
|
||||
' cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), NumberFormat2(ab.GetString("a_abono"),0,2,2,False), ab.GetString("a_fecha"),ALMACEN,"REPARTO",d.GetString("RUTAA"), "1", ab.GetString("TIPO_PAGO"),ab.GetString("a_ticket"),ab.GetString("a_numpago") )
|
||||
' reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
' ab1.Close
|
||||
' Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
' Next
|
||||
' End If
|
||||
' ab.Close
|
||||
' d.Close
|
||||
'
|
||||
'' pedido
|
||||
' c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO")
|
||||
' cuantosenvio = cuantosenvio + c.RowCount
|
||||
' If c.RowCount>0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
' c.Position=i
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_pedido_REP_GUNA_VN"
|
||||
' cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), c.GetString("PE_COSTO_TOT"), c.GetString("PE_COSTOU"), c.GetString("PE_CANT"), c.GetString("PE_PRONOMBRE"), c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), c.GetString("PE_FECHA"), c.GetString("PE_USUARIO"), c.GetString("PE_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO"))
|
||||
' reqManager.ExecuteCommand(cmd , "envio_ins_pedido")
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
'
|
||||
' 'TABULADOR
|
||||
' c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS")
|
||||
' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
' b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
|
||||
' f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
|
||||
' d.Position = 0
|
||||
' b.Position = 0
|
||||
' f.Position = 0
|
||||
' cuantosenvio = cuantosenvio + c.RowCount
|
||||
' If c.RowCount > 0 Then
|
||||
' For i = 0 To c.RowCount - 1
|
||||
' c.Position=i
|
||||
' Dim cmd As DBCommand
|
||||
' Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
|
||||
'
|
||||
' Dim fechatabulador3 As String = fechatabulador(0)
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_tabulador_monedas_GUNA_VN"
|
||||
' cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),fechatabulador3)
|
||||
' reqManager.ExecuteCommand(cmd , "envio_ins_tabulador_mon")
|
||||
' Next
|
||||
' c.Close
|
||||
' d.Close
|
||||
' b.Close
|
||||
' f.Close
|
||||
' End If
|
||||
' c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES")
|
||||
' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
' b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
|
||||
' f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
|
||||
' d.Position = 0
|
||||
' b.Position = 0
|
||||
' f.Position = 0
|
||||
' cuantosenvio = cuantosenvio + c.RowCount
|
||||
' If c.RowCount > 0 Then
|
||||
' For i = 0 To c.RowCount - 1
|
||||
' c.Position=i
|
||||
' Dim cmd As DBCommand
|
||||
' Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
|
||||
' Dim fechatabulador3 As String = fechatabulador(0)
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_tabulador_billetes_GUNA_VN"
|
||||
' cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),fechatabulador3)
|
||||
' reqManager.ExecuteCommand(cmd , "envio_ins_tabulador_bill")
|
||||
' Next
|
||||
' c.Close
|
||||
' d.Close
|
||||
' b.Close
|
||||
' f.Close
|
||||
' End If
|
||||
' 'FIN TABULADOR
|
||||
'
|
||||
'
|
||||
'
|
||||
' c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_RUTA, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS where HVD_PRONOMBRE <> 'Cobranza Pendiente'")
|
||||
'
|
||||
' If c.RowCount > 0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
' c.Position = i
|
||||
'' Log(c.GetString("HVD_CLIENTE"))
|
||||
' Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$)
|
||||
' d4.Position = 0
|
||||
'' Log(d4.GetString("CAT_CL_RUTA"))
|
||||
' Private d5 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$)
|
||||
' d5.Position = 0
|
||||
' Private restacant As String = d5.GetString("PE_CANT")
|
||||
' d5.Close
|
||||
'
|
||||
' Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
|
||||
'
|
||||
' Dim fecha3 As String = fecha1(0)
|
||||
'' Log(fecha3)
|
||||
' Dim hora() As String = Regex.Split("\.", fecha1(1))
|
||||
'' Log(hora(0))
|
||||
'
|
||||
' Dim sDate, sTime As String
|
||||
' DateTime.DateFormat = "dd/MM/yyyy"
|
||||
' DateTime.TimeFormat = "HH:mm:ss"
|
||||
' sDate = DateTime.Date(DateTime.Now)
|
||||
' sTime = DateTime.Time(DateTime.Now)
|
||||
' If c.GetString("HVD_RECHAZOCANT") <> "0" Then
|
||||
'' Log((c.GetString("HVD_RECHAZOCANT")-restacant))
|
||||
' cmd.Initialize
|
||||
'
|
||||
' cmd.Name = "update_HVD_GUNA_VN2"
|
||||
'' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), c.GetString("HVD_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
' reqManager.ExecuteCommand(cmd, "update_hvd")
|
||||
'' Log("ENVIE RECHAZO")
|
||||
' Else
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "update_HVD_GUNA_VN2"
|
||||
'' Log( c.GetString("CANTC")& c.GetString("HVD_CLIENTE")& c.GetString("HVD_PROID")&fecha3&" "&hora(0)& d4.GetString("CAT_CL_RUTA")&ALMACEN&l_ruta.Text&c.GetString("HVD_CODPROMO")&c.GetString("HVD_NUM_TICKET")& c.GetString("HVD_CANT"))
|
||||
' cmd.Parameters = Array As String("","","0",Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
' reqManager.ExecuteCommand(cmd, "update_hvd")
|
||||
' End If
|
||||
' d4.Close
|
||||
' Next
|
||||
' End If
|
||||
' c.Close
|
||||
'
|
||||
' Dim ab2 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS"$)
|
||||
' Dim ab3 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NULL"$)
|
||||
' Dim ab3_1 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(SUM(a_abono),0) AS SUMABO from ABONOS where a_tipoabono IS NULL"$)
|
||||
' ab3_1.Position = 0
|
||||
'
|
||||
' Dim ab4 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NOT NULL"$)
|
||||
' Dim ab4_1 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(SUM(a_abono),0) AS SUMABO from ABONOS where a_tipoabono IS NOT NULL"$)
|
||||
' ab4_1.Position = 0
|
||||
'
|
||||
' Dim pa2 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")
|
||||
' 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, "ENVIO",l_pagaresnuevos.Text, pa2.RowCount, l_pagarescobrados.Text,ab2.RowCount,NumberFormat2( ab3_1.GetDouble("SUMABO"),0,2,2,False), ab3.RowCount, NumberFormat2( ab4_1.GetDouble("SUMABO"),0,2,2,False), ab4.RowCount )
|
||||
' reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
'
|
||||
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
|
||||
End Sub
|
||||
|
||||
@@ -1476,7 +1515,7 @@ Sub JobDone(Job As HttpJob)
|
||||
For Each records() As Object In result.Rows
|
||||
Dim HVD_IMPRESO_RECHAZO As String = records(result.Columns.Get("HVD_IMPRESO_RECHAZO"))
|
||||
Log(HVD_IMPRESO_RECHAZO)
|
||||
' HVD_IMPRESO_RECHAZO=0
|
||||
HVD_IMPRESO_RECHAZO=0
|
||||
If HVD_IMPRESO_RECHAZO = 0 Then
|
||||
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")
|
||||
@@ -1549,7 +1588,7 @@ Sub JobDone(Job As HttpJob)
|
||||
For Each records() As Object In result.Rows
|
||||
Dim HVD_IMPRESO_RECHAZO As String = records(result.Columns.Get("HVD_IMPRESO_RECHAZO"))
|
||||
Log(HVD_IMPRESO_RECHAZO)
|
||||
' HVD_IMPRESO_RECHAZO=0
|
||||
HVD_IMPRESO_RECHAZO=0
|
||||
If HVD_IMPRESO_RECHAZO = 0 Then
|
||||
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")
|
||||
@@ -1572,7 +1611,7 @@ Sub JobDone(Job As HttpJob)
|
||||
For Each records() As Object In result.Rows
|
||||
Dim HVD_IMPRESO_RECHAZO As String = records(result.Columns.Get("HVD_IMPRESO_RECHAZO"))
|
||||
Log(HVD_IMPRESO_RECHAZO)
|
||||
' HVD_IMPRESO_RECHAZO=0
|
||||
HVD_IMPRESO_RECHAZO=0
|
||||
If HVD_IMPRESO_RECHAZO = 0 Then
|
||||
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")
|
||||
@@ -1603,7 +1642,7 @@ Sub JobDone(Job As HttpJob)
|
||||
For Each records() As Object In result.Rows
|
||||
Dim HVD_IMPRESO_RECHAZO As String = records(result.Columns.Get("HVD_IMPRESO_RECHAZO"))
|
||||
Log(HVD_IMPRESO_RECHAZO)
|
||||
' HVD_IMPRESO_RECHAZO=0
|
||||
HVD_IMPRESO_RECHAZO=0
|
||||
If HVD_IMPRESO_RECHAZO = 0 Then
|
||||
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")
|
||||
@@ -1627,7 +1666,7 @@ Sub JobDone(Job As HttpJob)
|
||||
For Each records() As Object In result.Rows
|
||||
Dim HVD_IMPRESO_RECHAZO As String = records(result.Columns.Get("HVD_IMPRESO_RECHAZO"))
|
||||
Log(HVD_IMPRESO_RECHAZO)
|
||||
' HVD_IMPRESO_RECHAZO=0
|
||||
HVD_IMPRESO_RECHAZO=0
|
||||
If HVD_IMPRESO_RECHAZO = 0 Then
|
||||
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")
|
||||
@@ -3787,6 +3826,53 @@ Sub imp_LIQUIDACION
|
||||
End Sub
|
||||
|
||||
Private Sub connecta_LongClick
|
||||
'
|
||||
' c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_RUTA, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS where HVD_PRONOMBRE <> 'Cobranza Pendiente'")
|
||||
'
|
||||
' If c.RowCount > 0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
' c.Position = i
|
||||
'' Log(c.GetString("HVD_CLIENTE"))
|
||||
' Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$)
|
||||
' d4.Position = 0
|
||||
'' Log(d4.GetString("CAT_CL_RUTA"))
|
||||
' Private d5 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$)
|
||||
' d5.Position = 0
|
||||
' Private restacant As String = d5.GetString("PE_CANT")
|
||||
' d5.Close
|
||||
'
|
||||
' Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
|
||||
'
|
||||
' Dim fecha3 As String = fecha1(0)
|
||||
'' Log(fecha3)
|
||||
' Dim hora() As String = Regex.Split("\.", fecha1(1))
|
||||
'' Log(hora(0))
|
||||
'
|
||||
' Dim sDate, sTime As String
|
||||
' DateTime.DateFormat = "dd/MM/yyyy"
|
||||
' DateTime.TimeFormat = "HH:mm:ss"
|
||||
' sDate = DateTime.Date(DateTime.Now)
|
||||
' sTime = DateTime.Time(DateTime.Now)
|
||||
' If c.GetString("HVD_RECHAZOCANT") <> "0" Then
|
||||
'' Log((c.GetString("HVD_RECHAZOCANT")-restacant))
|
||||
' cmd.Initialize
|
||||
'
|
||||
' cmd.Name = "update_HVD_GUNA_VN2"
|
||||
'' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), c.GetString("HVD_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
' reqManager.ExecuteCommand(cmd, "update_hvd")
|
||||
'' Log("ENVIE RECHAZO")
|
||||
' Else
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "update_HVD_GUNA_VN2"
|
||||
'' Log( c.GetString("CANTC")& c.GetString("HVD_CLIENTE")& c.GetString("HVD_PROID")&fecha3&" "&hora(0)& d4.GetString("CAT_CL_RUTA")&ALMACEN&l_ruta.Text&c.GetString("HVD_CODPROMO")&c.GetString("HVD_NUM_TICKET")& c.GetString("HVD_CANT"))
|
||||
' cmd.Parameters = Array As String("","","0",Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
' reqManager.ExecuteCommand(cmd, "update_hvd")
|
||||
' End If
|
||||
' d4.Close
|
||||
' Next
|
||||
' End If
|
||||
' c.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")
|
||||
|
||||
Binary file not shown.
@@ -262,7 +262,7 @@ Version=12.8
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Guna Reparto
|
||||
#VersionCode: 1
|
||||
#VersionName: 6.02.20
|
||||
#VersionName: 6.02.26
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -97,6 +97,6 @@ ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=B4XMainPage,JobDone,1555,0,B4XMainPage,Class_Globals,1281,0,B4XMainPage,B4XPage_Created,1299,1,B4XMainPage,Initialize,1298,0,C_Principal,B_carga_Click,2277,0,C_Principal,e_ruta_EnterPressed,2397,0,C_Principal,envioinfo,1116,2,Subs,traeRuta,800,0,C_Principal,trabajar_Click,827,0,C_Principal,JobDone,1472,0
|
||||
NavigationStack=C_Cliente,imp,5942,1,C_Cliente,B_IMP_Click,1557,1,C_Cliente,Guardado,1302,0,Main,Activity_Create,32,0,C_Principal,JobDone,1660,0,Main,Activity_ActionBarHomeClick,37,0,MAPA_RUTAS,MapFragment1_Ready,146,0,C_Principal,envioinfo,992,0,C_Principal,Class_Globals,7,0,C_Principal,B4XPage_Appear,215,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=2,17,5,6,8,10,31,30,28,7
|
||||
|
||||
Reference in New Issue
Block a user