mirror of
https://github.com/KeymonSoft/Guna_Reparto_Imp.git
synced 2026-04-19 21:59:31 +00:00
Se puede entrar a pagares desde el boton y manda al cliente
Se actualiza el tiempo real Se actualiza el tiempo real por cliente Vista cxc
This commit is contained in:
cvaldes1201
@@ -108,6 +108,12 @@ Sub Class_Globals
|
||||
Private b_confirmar As Button
|
||||
Dim NOTA As String
|
||||
Private p_qr As Panel
|
||||
|
||||
Dim tipo_abonox As String
|
||||
|
||||
Dim escreditoono As String
|
||||
Dim m_lat, m_lon As String
|
||||
Dim distance As Long
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -161,6 +167,7 @@ End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
banderaimp = 0
|
||||
escreditoono = 0
|
||||
Tipoentrega = "CONTADO"
|
||||
' Subs.centraPanel(p_principal, Root.Width)
|
||||
Starter.skmt.Initialize(Starter.ruta,"kmt.db", True)
|
||||
@@ -349,23 +356,68 @@ Sub B4XPage_Appear
|
||||
Else
|
||||
b_cancel_pagare.Visible = False
|
||||
End If
|
||||
|
||||
CallSubDelayed(Tracker, "Track")
|
||||
CallSubDelayed(Tracker, "StartFLPSmall")
|
||||
If Tracker.FLP.IsInitialized And Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Si tenemos "UltimaUbicaccionConocida" la usamos.
|
||||
B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
|
||||
B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
|
||||
' Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$)
|
||||
GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Activity_Pause (UserClosed As Boolean)
|
||||
|
||||
End Sub
|
||||
|
||||
'Sub GPS_LocationChanged (Location1 As Location)
|
||||
'' lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
|
||||
'' lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
|
||||
' Dim sDate,sTime As String
|
||||
' DateTime.DateFormat = "MM/dd/yyyy"
|
||||
' sDate=DateTime.Date(DateTime.Now)
|
||||
' sTime=DateTime.Time(DateTime.Now)
|
||||
' Starter.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
'End Sub
|
||||
|
||||
Sub GPS_LocationChanged (Location1 As Location)
|
||||
' lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
|
||||
' lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
|
||||
' LogColor($"Entrando a Cliente.GPS_LocationChanged"$, Colors.red)
|
||||
If Tracker.FLP.GetLastKnownLocation.IsInitialized And Tracker.FLP.GetLastKnownLocation.Latitude <> 0 Then
|
||||
B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
|
||||
B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
|
||||
Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps)
|
||||
End If
|
||||
|
||||
If LATITUD.Length < 5 Then
|
||||
|
||||
Else
|
||||
|
||||
|
||||
Dim l1, l2 As Location
|
||||
l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
|
||||
Log($"Coordenadas de la tienda - lat:${LATITUD}, lon:${LONGITUD}"$)
|
||||
l2.Initialize2(LATITUD, LONGITUD)
|
||||
|
||||
|
||||
|
||||
'now we need the distance between our location and the target location
|
||||
distance = l1.DistanceTo(l2) 'the result is in meter
|
||||
|
||||
Log("DISTANCIA "&distance)
|
||||
End If
|
||||
|
||||
Dim sDate,sTime As String
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
CallSubDelayed(Tracker, "CreateLocationRequest")
|
||||
End Sub
|
||||
|
||||
|
||||
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
||||
|
||||
End Sub
|
||||
@@ -408,12 +460,17 @@ Sub gest_Click
|
||||
End Sub
|
||||
|
||||
Sub checacredito
|
||||
Dim x1 As Cursor =Starter.skmt.ExecQuery("SELECT IFNULL(CAT_CL_LIMITECREDITO,0) AS CAT_CL_LIMITECREDITO FROM kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
x1.Position = 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
|
||||
Msgbox2Async("EL CLIENTE TIENE CREDITO DISPONIBLE, UNA VEZ SELECCIONADA UNA OPCION NO SE PODRA MODIFICAR!!!!!","Forma de pago","","Credito","Efectivo",LoadBitmap(File.DirAssets,"alert2.png"),False)
|
||||
Wait For Msgbox_Result (Result As Int)
|
||||
If Result= DialogResponse.POSITIVE Then
|
||||
If l_total.Text = ".00" And L_CANT.Text = 1 Then
|
||||
Guardado
|
||||
Else
|
||||
|
||||
|
||||
Dim x1 As Cursor =Starter.skmt.ExecQuery("SELECT IFNULL(CAT_CL_LIMITECREDITO,0) AS CAT_CL_LIMITECREDITO FROM kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
x1.Position = 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
|
||||
Msgbox2Async("EL CLIENTE TIENE CREDITO DISPONIBLE, UNA VEZ SELECCIONADA UNA OPCION NO SE PODRA MODIFICAR!!!!!","Forma de pago","","Credito","Efectivo",LoadBitmap(File.DirAssets,"alert2.png"),False)
|
||||
Wait For Msgbox_Result (Result As Int)
|
||||
If Result= DialogResponse.POSITIVE Then
|
||||
' Log(1)
|
||||
' p_credito.Visible = True
|
||||
' 'monto
|
||||
@@ -422,84 +479,88 @@ Sub checacredito
|
||||
' montopagare = c.GetString("MONTO")
|
||||
' c.Close
|
||||
' l_limite.Text = "Monto de la venta: $" & l_total.Text
|
||||
Else If Result = DialogResponse.NEGATIVE Then
|
||||
Log(2)
|
||||
Tipoentrega = "CONTADO"
|
||||
B_IMP_Click
|
||||
banderaimp = 1
|
||||
Else If Result = DialogResponse.CANCEL Then
|
||||
If l_total.Text.Replace(",","") <= NumberFormat2( x1.GetString("CAT_CL_LIMITECREDITO").Replace(",",""),0,2,2,False) Then
|
||||
Private cliente As String = Subs.traeCliente
|
||||
c = Starter.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info where cat_cl_codigo = '${cliente}'"$)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
Private RUTA_PREVENTA = c.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
c = Starter.skmt.ExecQuery($"select distinct hvd_num_ticket from hist_ventas where hvd_cliente = '${cliente}'"$)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
NOTA = c.GetString("HVD_NUM_TICKET")
|
||||
End If
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
ProgressDialogShow("Un momento por favor!!")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insertaPagareGunaRep"
|
||||
cmd.Parameters = Array As Object(Subs.traeAlmacen, RUTA_PREVENTA, Subs.traeRutaReparto, cliente, l_total.Text.Replace(",",""), NOTA, sDate & " " & sTime)
|
||||
reqManager.ExecuteCommand(cmd, $"insertaPagare_${NOTA}"$)
|
||||
Else
|
||||
MsgboxAsync("El cliente debe de dar un pago de "& (l_total.Text.Replace(",","") - x1.GetString("CAT_CL_LIMITECREDITO")) &"","Atención")
|
||||
Log(3)
|
||||
Tipoentrega = "CREDITO"
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
'cliente
|
||||
c=Starter.skmt.ExecQuery("select CUENTA from cuentaa")
|
||||
c.Position = 0
|
||||
cuenta = c.GetString("CUENTA")
|
||||
c.Close
|
||||
'usuario
|
||||
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
'Almacen
|
||||
c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
c.Position = 0
|
||||
almacen = c.GetString("ID_ALMACEN")
|
||||
c.Close
|
||||
'FECHA PREVENTA
|
||||
c=Starter.skmt.ExecQuery("select HVD_FECHA from HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
c.Position = 0
|
||||
fechaprev = c.GetString("HVD_FECHA")
|
||||
c.Close
|
||||
'RUTAPREVENTA
|
||||
c=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
c.Position = 0
|
||||
rutaprev = c.GetString("CAT_CL_RUTA")
|
||||
c.Close
|
||||
'RUTA rep
|
||||
c=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
|
||||
c.Position = 0
|
||||
rutarep = c.GetString("RUTAA")
|
||||
c.Close
|
||||
'monto
|
||||
c=Starter.skmt.ExecQuery("select sum(HVD_COSTO_TOT) AS MONTO from HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND HVD_RECHAZO = 0 AND HVD_PARCIAL = 0")
|
||||
c.Position = 0
|
||||
montopagare = c.GetString("MONTO")
|
||||
c.Close
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA_REP, PA_RUTAPREV, PA_FECHA_PREV, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (almacen,rutarep,rutaprev,fechaprev,(sDate),l_total.Text,usuario,cuenta))
|
||||
Else If Result = DialogResponse.NEGATIVE Then
|
||||
escreditoono = 0
|
||||
Log(2)
|
||||
Tipoentrega = "CONTADO"
|
||||
B_IMP_Click
|
||||
banderaimp = 1
|
||||
Else If Result = DialogResponse.CANCEL Then
|
||||
escreditoono = 1
|
||||
If l_total.Text.Replace(",","") <= NumberFormat2( x1.GetString("CAT_CL_LIMITECREDITO").Replace(",",""),0,2,2,False) Then
|
||||
Private cliente As String = Subs.traeCliente
|
||||
c = Starter.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info where cat_cl_codigo = '${cliente}'"$)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
Private RUTA_PREVENTA = c.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
c = Starter.skmt.ExecQuery($"select distinct hvd_num_ticket from hist_ventas where hvd_cliente = '${cliente}'"$)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
NOTA = c.GetString("HVD_NUM_TICKET")
|
||||
End If
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
ProgressDialogShow("Un momento por favor!!")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insertaPagareGunaRep"
|
||||
cmd.Parameters = Array As Object(Subs.traeAlmacen, RUTA_PREVENTA, Subs.traeRutaReparto, cliente, l_total.Text.Replace(",",""), NOTA, sDate & " " & sTime)
|
||||
reqManager.ExecuteCommand(cmd, $"insertaPagare_${NOTA}"$)
|
||||
' Else
|
||||
' MsgboxAsync("El cliente debe de dar un pago de "& (l_total.Text.Replace(",","") - x1.GetString("CAT_CL_LIMITECREDITO")) &"","Atención")
|
||||
' Log(3)
|
||||
' Tipoentrega = "CREDITO"
|
||||
' DateTime.DateFormat = "dd/MM/yyyy"
|
||||
' DateTime.TimeFormat = "HH:mm:ss"
|
||||
' sDate=DateTime.Date(DateTime.Now)
|
||||
' sTime=DateTime.Time(DateTime.Now)
|
||||
' 'cliente
|
||||
' c=Starter.skmt.ExecQuery("select CUENTA from cuentaa")
|
||||
' c.Position = 0
|
||||
' cuenta = c.GetString("CUENTA")
|
||||
' c.Close
|
||||
' 'usuario
|
||||
' c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
' c.Position = 0
|
||||
' usuario = c.GetString("USUARIO")
|
||||
' c.Close
|
||||
' 'Almacen
|
||||
' c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
' c.Position = 0
|
||||
' almacen = c.GetString("ID_ALMACEN")
|
||||
' c.Close
|
||||
' 'FECHA PREVENTA
|
||||
' c=Starter.skmt.ExecQuery("select HVD_FECHA from HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' c.Position = 0
|
||||
' fechaprev = c.GetString("HVD_FECHA")
|
||||
' c.Close
|
||||
' 'RUTAPREVENTA
|
||||
' c=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' c.Position = 0
|
||||
' rutaprev = c.GetString("CAT_CL_RUTA")
|
||||
' c.Close
|
||||
' 'RUTA rep
|
||||
' c=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
|
||||
' c.Position = 0
|
||||
' rutarep = c.GetString("RUTAA")
|
||||
' c.Close
|
||||
' 'monto
|
||||
' c=Starter.skmt.ExecQuery("select sum(HVD_COSTO_TOT) AS MONTO from HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND HVD_RECHAZO = 0 AND HVD_PARCIAL = 0")
|
||||
' c.Position = 0
|
||||
' montopagare = c.GetString("MONTO")
|
||||
' c.Close
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA_REP, PA_RUTAPREV, PA_FECHA_PREV, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (almacen,rutarep,rutaprev,fechaprev,(sDate),l_total.Text,usuario,cuenta))
|
||||
' B_IMP_Click
|
||||
' banderaimp = 1
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
escreditoono = 0
|
||||
B_IMP_Click
|
||||
banderaimp = 1
|
||||
End If
|
||||
Else
|
||||
B_IMP_Click
|
||||
banderaimp = 1
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -543,12 +604,20 @@ Sub esPagoACreditoGuardamosPagare
|
||||
c.Position = 0
|
||||
montopagare = c.GetString("MONTO")
|
||||
c.Close
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA_REP, PA_RUTAPREV, PA_FECHA_PREV, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (almacen,rutarep,rutaprev,fechaprev,(sDate),montopagare,usuario,cuenta))
|
||||
|
||||
c = Starter.skmt.ExecQuery($"select distinct hvd_num_ticket from hist_ventas where hvd_cliente = '${la_cuenta.Text}'"$)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
NOTA = c.GetString("HVD_NUM_TICKET")
|
||||
End If
|
||||
c.Close
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA_REP, PA_RUTAPREV, PA_FECHA_PREV, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE,PA_TICKET) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object (almacen,rutarep,rutaprev,fechaprev,(sDate),l_total.Text.Replace(",",""),usuario,cuenta,NOTA))
|
||||
B_IMP_Click
|
||||
banderaimp = 1
|
||||
End Sub
|
||||
|
||||
Sub Guardado
|
||||
Log(escreditoono)
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
DateTime.TimeFormat="HHmmss"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
@@ -587,6 +656,56 @@ Sub Guardado
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 2, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}' "$)
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_ESTATUS = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
mandaPendientesreparto
|
||||
|
||||
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 totaltotal As String = NumberFormat2(g5.GetString("HVD_COSTO_TOT"),0,2,2,False)
|
||||
g5.Close
|
||||
LogColor(totaltotal,Colors.Red)
|
||||
LogColor(l_total.Text.Replace(",",""),Colors.Red)
|
||||
If totaltotal = l_total.Text.Replace(",","") Then
|
||||
Dim entregatotaloparial As String = "ENTREGA TOTAL"
|
||||
Else
|
||||
Dim entregatotaloparial As String = "ENTREGA PARCIAL"
|
||||
End If
|
||||
|
||||
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)
|
||||
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 totaltotal As String = NumberFormat2(g5.GetString("HVD_COSTO_TOT"),0,2,2,False)
|
||||
g5.Close
|
||||
LogColor(totaltotal,Colors.Red)
|
||||
LogColor(l_total.Text.Replace(",",""),Colors.Red)
|
||||
If totaltotal = l_total.Text.Replace(",","") Then
|
||||
Dim entregatotaloparial As String = "ENTREGA TOTAL"
|
||||
Else
|
||||
Dim entregatotaloparial As String = "ENTREGA PARCIAL"
|
||||
End If
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
cmd.Parameters = Array As String(l_total.Text,"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
|
||||
|
||||
Log("FECHA "& rutaprev)
|
||||
|
||||
' Dim mandamapa As Cursor = Starter.skmt.ExecQuery("SELECT * FROM kmt_info WHERE gestion = 0 and CAT_CL_CODIGO <> 63403")
|
||||
' If mandamapa.RowCount > 0 Then
|
||||
@@ -1205,6 +1324,7 @@ Private Sub p_credito_Click
|
||||
End Sub
|
||||
|
||||
Private Sub b_cxc_Click
|
||||
tipo_abonox = "cxc"
|
||||
h = Starter.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
||||
h.Position = 0
|
||||
Log(h.GetString("CUENTA"))
|
||||
@@ -1228,7 +1348,7 @@ Private Sub b_cxc_Click
|
||||
Log(total)
|
||||
Next
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ?", Array As String (f.GetString("CUENTA")))
|
||||
d = Starter.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ? and a_tipoabono is null", Array As String (f.GetString("CUENTA")))
|
||||
If d.RowCount > 0 Then
|
||||
For i = 0 To d.RowCount - 1
|
||||
d.Position = i
|
||||
@@ -1257,7 +1377,7 @@ Private Sub b_cxc_Click
|
||||
Log(total)
|
||||
Next
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ?", Array As String (f.GetString("CUENTA")))
|
||||
d = Starter.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ? and a_tipoabono is null", Array As String (f.GetString("CUENTA")))
|
||||
If d.RowCount > 0 Then
|
||||
For i = 0 To d.RowCount - 1
|
||||
d.Position = i
|
||||
@@ -1414,6 +1534,8 @@ Sub imprime_abonopagare
|
||||
telefono = c7.GetString("CAT_CL_TELEFONO")
|
||||
End If
|
||||
c7.Close
|
||||
|
||||
|
||||
|
||||
Printer1.WriteString("DISTRIBUIDORA ROCHA TULA PACHUCA" & CRLF)
|
||||
' Printer1.WriteString(sucursal & CRLF)
|
||||
@@ -1428,23 +1550,56 @@ Sub imprime_abonopagare
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Dim notaabono As String
|
||||
Dim saldopendiente As Double
|
||||
c = Starter.skmt.ExecQuery("SELECT NOTA, SUM(SALDO_PENDIENTE) AS SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
notaabono = c.GetString("NOTA")
|
||||
saldopendiente = c.GetString("SALDO_PENDIENTE")
|
||||
|
||||
If tipo_abonox = "abono" Then
|
||||
|
||||
|
||||
c = Starter.skmt.ExecQuery($"select distinct hvd_num_ticket from hist_ventas where hvd_cliente = '${la_cuenta.Text}'"$)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
notaabono = c.GetString("HVD_NUM_TICKET")
|
||||
End If
|
||||
c.Close
|
||||
|
||||
c = Starter.skmt.ExecQuery($"select iFNULL(sum(PA_MONTO),0) AS SALDO_PENDIENTE from PAGARES where PA_CLIENTE = '${la_cuenta.Text}'"$)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
saldopendiente = c.GetString("SALDO_PENDIENTE")
|
||||
Log(c.GetString("SALDO_PENDIENTE"))
|
||||
End If
|
||||
c.Close
|
||||
|
||||
|
||||
Dim saldopendiente1 As Double = 0
|
||||
Dim c4 As Cursor= Starter.skmt.ExecQuery("SELECT Ifnull(SUM(a_abono),0) AS SALDO_PENDIENTE FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA) and a_tipoabono is not null")
|
||||
If c4.RowCount > 0 Then
|
||||
c4.Position = 0
|
||||
Dim c5 As Cursor= Starter.skmt.ExecQuery("SELECT Ifnull(a_abono,0) AS SALDO_PENDIENTE FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA) and a_tipoabono is not null")
|
||||
saldopendiente1 = c4.GetString("SALDO_PENDIENTE")
|
||||
End If
|
||||
c4.Close
|
||||
|
||||
Else If tipo_abonox = "cxc" Then
|
||||
c = Starter.skmt.ExecQuery("SELECT NOTA, SUM(SALDO_PENDIENTE) AS SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
notaabono = c.GetString("NOTA")
|
||||
saldopendiente = c.GetString("SALDO_PENDIENTE")
|
||||
End If
|
||||
c.Close
|
||||
|
||||
Dim saldopendiente1 As Double = 0
|
||||
Dim c4 As Cursor= Starter.skmt.ExecQuery("SELECT Ifnull(SUM(a_abono),0) AS SALDO_PENDIENTE FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA) and a_tipoabono is null")
|
||||
If c4.RowCount > 0 Then
|
||||
c4.Position = 0
|
||||
Dim c5 As Cursor= Starter.skmt.ExecQuery("SELECT Ifnull(a_abono,0) AS SALDO_PENDIENTE FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA) and a_tipoabono is null")
|
||||
saldopendiente1 = c4.GetString("SALDO_PENDIENTE")
|
||||
End If
|
||||
c4.Close
|
||||
End If
|
||||
c.Close
|
||||
|
||||
Dim saldopendiente1 As Double = 0
|
||||
Dim c4 As Cursor= Starter.skmt.ExecQuery("SELECT Ifnull(SUM(a_abono),0) AS SALDO_PENDIENTE FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c4.RowCount > 0 Then
|
||||
c4.Position = 0
|
||||
Dim c5 As Cursor= Starter.skmt.ExecQuery("SELECT Ifnull(a_abono,0) AS SALDO_PENDIENTE FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA)")
|
||||
saldopendiente1 = c4.GetString("SALDO_PENDIENTE")
|
||||
End If
|
||||
c4.Close
|
||||
|
||||
|
||||
|
||||
|
||||
' c = Starter.skmt.ExecQuery("SELECT NOTA FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' If c.RowCount > 0 Then
|
||||
' c.Position = 0
|
||||
@@ -1479,175 +1634,146 @@ Sub imprime_abonopagare
|
||||
Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
ProgressDialogHide
|
||||
Msgbox2Async("Deseas imprimir de nuevo el ticket?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
imprime_abonopagare
|
||||
Else
|
||||
h = Starter.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
||||
h.Position = 0
|
||||
Log(h.GetString("CUENTA"))
|
||||
j = Starter.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ?", Array As String(h.GetString("CUENTA")))
|
||||
j.position = 0
|
||||
If j.RowCount = 0 Then
|
||||
p_abono.Visible = False
|
||||
Starter.skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta(Subs.traeCliente)}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}')"$)
|
||||
ToastMessageShow("Abono guardado", False)
|
||||
Dim rutaactualizar As String
|
||||
Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If rut.RowCount > 0 Then
|
||||
rut.Position = 0
|
||||
rutaactualizar = rut.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 0, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}'"$)
|
||||
Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)"$)
|
||||
Private c3 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM PEDIDO WHERE PE_CLIENTEOR IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c3.RowCount = 0 Then
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 0, HVD_RECHAZOCANT = 0, BCAJAS = BCAJAS_OR, CANTC = CANTC_OR WHERE HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
B4XPage_Appear
|
||||
Else
|
||||
MsgboxAsync("Hay productos que ya se vendieron, no se puede regresar la venta","Atención")
|
||||
End If
|
||||
Dim textedit As Double = et_abono.Text
|
||||
Dim sumaresta As Double = saldopendiente-textedit-saldopendiente1
|
||||
Log(NumberFormat2(sumaresta,0,2,2,False))
|
||||
If NumberFormat2(sumaresta,0,2,2,False) <> "-.00" Then
|
||||
If NumberFormat2(sumaresta,0,2,2,False) <> ".00" Then
|
||||
Dim rutaactualizar As String
|
||||
Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If rut.RowCount > 0 Then
|
||||
rut.Position = 0
|
||||
rutaactualizar = rut.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 3, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}'"$)
|
||||
Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON,NV_FOTO,NV_REPROGRAMAR) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object (la_cuenta.Text,sDate & sTime, usuario, "PAGO INCOMPLETO","PAGO INCOMPLETO", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,rutaactualizar,0))
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_CANT, HVD_RECHAZOCANTC = CANTC, BCAJAS = 0 , CANTC = 0 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 2, HVD_RECHAZOCANT = HVD_RECHAZOCANT WHERE HVD_PROID = HVD_CODPROMO and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
d.Position = 0
|
||||
Dim ruta As String = d.GetString("RUTAA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim rutapre As String = d.GetString("CAT_CL_RUTA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim fechaprev As String = d.GetString("HVD_FECHA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
|
||||
d.Position = 0
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO REPARTO_GEO (CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO,ENVIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0)",Array As String (cuenta, usuario, sDate &" "&sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,B4XPages.MainPage.almacen,ruta,rutapre,fechaprev, "PAGO INCOMPLETO", "PAGO INCOMPLETO","NO ENTREGADO"))
|
||||
B4XPages.ShowPage("Principal")
|
||||
End If
|
||||
End If
|
||||
|
||||
If tipo_abonox = "abono" Then
|
||||
Msgbox2Async("Deseas imprimir de nuevo el ticket?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
imprime_abonopagare
|
||||
Else
|
||||
p_abono.Visible = False
|
||||
Starter.skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha,a_tipoabono) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta(Subs.traeCliente)}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}', 1)"$)
|
||||
ToastMessageShow("Abono guardado", False)
|
||||
End If
|
||||
|
||||
Else If tipo_abonox = "cxc" Then
|
||||
Msgbox2Async("Deseas imprimir de nuevo el ticket?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
imprime_abonopagare
|
||||
p_abono.Visible = False
|
||||
Starter.skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta(Subs.traeCliente)}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}')"$)
|
||||
ToastMessageShow("Abono guardado", False)
|
||||
Dim rutaactualizar As String
|
||||
Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If rut.RowCount > 0 Then
|
||||
rut.Position = 0
|
||||
rutaactualizar = rut.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 0, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}'"$)
|
||||
Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)"$)
|
||||
Private c3 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM PEDIDO WHERE PE_CLIENTEOR IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c3.RowCount = 0 Then
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 0, HVD_RECHAZOCANT = 0, BCAJAS = BCAJAS_OR, CANTC = CANTC_OR WHERE HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
B4XPage_Appear
|
||||
Else
|
||||
MsgboxAsync("Hay productos que ya se vendieron, no se puede regresar la venta","Atención")
|
||||
End If
|
||||
Dim textedit As Double = et_abono.Text
|
||||
Dim sumaresta As Double = saldopendiente-textedit-saldopendiente1
|
||||
' Log(NumberFormat2(sumaresta,0,2,2,False))
|
||||
If NumberFormat2(sumaresta,0,2,2,False) <> "-.00" Then
|
||||
If NumberFormat2(sumaresta,0,2,2,False) <> ".00" Then
|
||||
Dim rutaactualizar As String
|
||||
Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If rut.RowCount > 0 Then
|
||||
rut.Position = 0
|
||||
rutaactualizar = rut.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 3, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}'"$)
|
||||
Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON,NV_FOTO,NV_REPROGRAMAR) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object (la_cuenta.Text,sDate & sTime, usuario, "PAGO INCOMPLETO","PAGO INCOMPLETO", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,rutaactualizar,0))
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_CANT, HVD_RECHAZOCANTC = CANTC, BCAJAS = 0 , CANTC = 0 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 2, HVD_RECHAZOCANT = HVD_RECHAZOCANT WHERE HVD_PROID = HVD_CODPROMO and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
d.Position = 0
|
||||
Dim ruta As String = d.GetString("RUTAA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim rutapre As String = d.GetString("CAT_CL_RUTA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim fechaprev As String = d.GetString("HVD_FECHA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
|
||||
d.Position = 0
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO REPARTO_GEO (CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO,ENVIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0)",Array As String (cuenta, usuario, sDate &" "&sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,B4XPages.MainPage.almacen,ruta,rutapre,fechaprev, "PAGO INCOMPLETO", "PAGO INCOMPLETO","NO ENTREGADO"))
|
||||
B4XPages.ShowPage("Principal")
|
||||
Else
|
||||
|
||||
h = Starter.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
||||
h.Position = 0
|
||||
Log(h.GetString("CUENTA"))
|
||||
j = Starter.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ?", Array As String(h.GetString("CUENTA")))
|
||||
j.position = 0
|
||||
If j.RowCount = 0 Then
|
||||
p_abono.Visible = False
|
||||
Starter.skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta(Subs.traeCliente)}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}')"$)
|
||||
ToastMessageShow("Abono guardado", False)
|
||||
Dim rutaactualizar As String
|
||||
Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If rut.RowCount > 0 Then
|
||||
rut.Position = 0
|
||||
rutaactualizar = rut.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 0, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}'"$)
|
||||
Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)"$)
|
||||
Private c3 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM PEDIDO WHERE PE_CLIENTEOR IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c3.RowCount = 0 Then
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 0, HVD_RECHAZOCANT = 0, BCAJAS = BCAJAS_OR, CANTC = CANTC_OR WHERE HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
B4XPage_Appear
|
||||
Else
|
||||
MsgboxAsync("Hay productos que ya se vendieron, no se puede regresar la venta","Atención")
|
||||
End If
|
||||
Dim textedit As Double = et_abono.Text
|
||||
Dim sumaresta As Double = saldopendiente-textedit-saldopendiente1
|
||||
Log(NumberFormat2(sumaresta,0,2,2,False))
|
||||
If NumberFormat2(sumaresta,0,2,2,False) <> "-.00" Then
|
||||
If NumberFormat2(sumaresta,0,2,2,False) <> ".00" Then
|
||||
Dim rutaactualizar As String
|
||||
Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If rut.RowCount > 0 Then
|
||||
rut.Position = 0
|
||||
rutaactualizar = rut.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 3, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}'"$)
|
||||
Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON,NV_FOTO,NV_REPROGRAMAR) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object (la_cuenta.Text,sDate & sTime, usuario, "PAGO INCOMPLETO","PAGO INCOMPLETO", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,rutaactualizar,0))
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_CANT, HVD_RECHAZOCANTC = CANTC, BCAJAS = 0 , CANTC = 0 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 2, HVD_RECHAZOCANT = HVD_RECHAZOCANT WHERE HVD_PROID = HVD_CODPROMO and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
d.Position = 0
|
||||
Dim ruta As String = d.GetString("RUTAA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim rutapre As String = d.GetString("CAT_CL_RUTA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim fechaprev As String = d.GetString("HVD_FECHA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
|
||||
d.Position = 0
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO REPARTO_GEO (CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO,ENVIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0)",Array As String (cuenta, usuario, sDate &" "&sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,B4XPages.MainPage.almacen,ruta,rutapre,fechaprev, "PAGO INCOMPLETO", "PAGO INCOMPLETO","NO ENTREGADO"))
|
||||
B4XPages.ShowPage("Principal")
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
p_abono.Visible = False
|
||||
Starter.skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta(Subs.traeCliente)}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}')"$)
|
||||
ToastMessageShow("Abono guardado", False)
|
||||
Dim rutaactualizar As String
|
||||
Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If rut.RowCount > 0 Then
|
||||
rut.Position = 0
|
||||
rutaactualizar = rut.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 0, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}'"$)
|
||||
Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)"$)
|
||||
Private c3 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM PEDIDO WHERE PE_CLIENTEOR IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c3.RowCount = 0 Then
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 0, HVD_RECHAZOCANT = 0, BCAJAS = BCAJAS_OR, CANTC = CANTC_OR WHERE HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
B4XPage_Appear
|
||||
Else
|
||||
MsgboxAsync("Hay productos que ya se vendieron, no se puede regresar la venta","Atención")
|
||||
End If
|
||||
Dim textedit As Double = et_abono.Text
|
||||
Dim sumaresta As Double = saldopendiente-textedit-saldopendiente1
|
||||
' Log(NumberFormat2(sumaresta,0,2,2,False))
|
||||
If NumberFormat2(sumaresta,0,2,2,False) <> "-.00" Then
|
||||
If NumberFormat2(sumaresta,0,2,2,False) <> ".00" Then
|
||||
Dim rutaactualizar As String
|
||||
Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If rut.RowCount > 0 Then
|
||||
rut.Position = 0
|
||||
rutaactualizar = rut.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 3, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}'"$)
|
||||
Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON,NV_FOTO,NV_REPROGRAMAR) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object (la_cuenta.Text,sDate & sTime, usuario, "PAGO INCOMPLETO","PAGO INCOMPLETO", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,rutaactualizar,0))
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_CANT, HVD_RECHAZOCANTC = CANTC, BCAJAS = 0 , CANTC = 0 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 2, HVD_RECHAZOCANT = HVD_RECHAZOCANT WHERE HVD_PROID = HVD_CODPROMO and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
d.Position = 0
|
||||
Dim ruta As String = d.GetString("RUTAA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim rutapre As String = d.GetString("CAT_CL_RUTA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim fechaprev As String = d.GetString("HVD_FECHA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
|
||||
d.Position = 0
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO REPARTO_GEO (CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO,ENVIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0)",Array As String (cuenta, usuario, sDate &" "&sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,B4XPages.MainPage.almacen,ruta,rutapre,fechaprev, "PAGO INCOMPLETO", "PAGO INCOMPLETO","NO ENTREGADO"))
|
||||
B4XPages.ShowPage("Principal")
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
' p_abono.Visible = False
|
||||
'
|
||||
'' skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta(Subs.traeCliente)}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}')"$)
|
||||
' Starter.skmt.ExecNonQuery($"UPDATE ABONOS set a_abono = '${et_abono.text}' where a_usuario = '${Subs.traeUsuarioDeBD}' and a_ruta = '${Subs.traeRuta(Subs.traeCliente)}' and a_cliente In (select cuenta from cuentaa)"$)
|
||||
' ToastMessageShow("Abono guardado", False)
|
||||
' Dim rutaactualizar As String
|
||||
' Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' If rut.RowCount > 0 Then
|
||||
' rut.Position = 0
|
||||
' rutaactualizar = rut.GetString("CAT_CL_RUTA")
|
||||
' End If
|
||||
' Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 0, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}'"$)
|
||||
' Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)"$)
|
||||
' Private c3 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM PEDIDO WHERE PE_CLIENTEOR IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' If c3.RowCount = 0 Then
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 0, HVD_RECHAZOCANT = 0, BCAJAS = BCAJAS_OR, CANTC = CANTC_OR WHERE HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
' B4XPage_Appear
|
||||
' Else
|
||||
' MsgboxAsync("Hay productos que ya se vendieron, no se puede regresar la venta","Atención")
|
||||
' End If
|
||||
' If NumberFormat(saldopendiente-et_abono.Text,0,0) <> 0 Then
|
||||
'
|
||||
' Dim rutaactualizar As String
|
||||
' Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' If rut.RowCount > 0 Then
|
||||
' rut.Position = 0
|
||||
' rutaactualizar = rut.GetString("CAT_CL_RUTA")
|
||||
' End If
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON,NV_FOTO,NV_REPROGRAMAR) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object (la_cuenta.Text,sDate & sTime, usuario, "PAGO INCOMPLETO","PAGO INCOMPLETO", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,rutaactualizar,0))
|
||||
' Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 3, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}'"$)
|
||||
' Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_CANT, HVD_RECHAZOCANTC = CANTC, BCAJAS = 0 , CANTC = 0 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 2, HVD_RECHAZOCANT = HVD_RECHAZOCANT WHERE HVD_PROID = HVD_CODPROMO and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
' Starter.skmt.ExecNonQuery("DELETE FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
' d.Position = 0
|
||||
' Dim ruta As String = d.GetString("RUTAA")
|
||||
' d.Close
|
||||
' d = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' d.Position = 0
|
||||
' Dim rutapre As String = d.GetString("CAT_CL_RUTA")
|
||||
' d.Close
|
||||
' d = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' d.Position = 0
|
||||
' Dim fechaprev As String = d.GetString("HVD_FECHA")
|
||||
' d.Close
|
||||
' d = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
|
||||
' d.Position = 0
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO REPARTO_GEO (CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO,ENVIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0)",Array As String (cuenta, usuario, sDate &" "&sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,B4XPages.MainPage.almacen,ruta,rutapre,fechaprev, "PAGO INCOMPLETO", "PAGO INCOMPLETO","NO ENTREGADO"))
|
||||
' B4XPages.ShowPage("Principal")
|
||||
' End If
|
||||
End If
|
||||
|
||||
End If
|
||||
' printer.Flush
|
||||
' printer.Close
|
||||
@@ -1912,13 +2038,111 @@ Sub imprime_pagare
|
||||
End Sub
|
||||
|
||||
Private Sub b_cancel_pagare_Click
|
||||
Msgbox2Async($"¿Seguro que quieres cancelar el pagare con monto de $${l_total.Text} para este cliente?"$,"Atención", "Aceptar","Cancelar", "", Null, True)
|
||||
tipo_abonox = "abono"
|
||||
Msgbox2Async($"¿Que deseas realizar?"$,"Atención", "Cancelar pagare","", "Abono pagare", Null, True)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
Starter.skmt.ExecNonQuery("update PAGARES SET PA_CANCELADO = 2 WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
imprime_cancelarpagare
|
||||
banderaimp = 1
|
||||
Msgbox2Async($"¿Seguro que quieres cancelar el pagare con monto de $${l_total.Text} para este cliente?"$,"Atención", "Aceptar","Cancelar", "", Null, True)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
Starter.skmt.ExecNonQuery("update PAGARES SET PA_CANCELADO = 2 WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
imprime_cancelarpagare
|
||||
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
d.Position = 0
|
||||
Dim ruta As String = d.GetString("RUTAA")
|
||||
d.Close
|
||||
|
||||
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 totaltotal As String = g5.GetString("HVD_COSTO_TOT")
|
||||
g5.Close
|
||||
If totaltotal = l_total.Text.Replace(",","") Then
|
||||
Dim entregatotaloparial As String = "ENTREGA TOTAL"
|
||||
Else
|
||||
Dim entregatotaloparial As String = "ENTREGA PARCIAL"
|
||||
End If
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
cmd.Parameters = Array As String(l_total.Text,"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,rutaprev)
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
banderaimp = 1
|
||||
End If
|
||||
Else
|
||||
|
||||
h = Starter.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
||||
h.Position = 0
|
||||
Log(h.GetString("CUENTA"))
|
||||
j = Starter.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ? and a_tipoabono is null", Array As String(h.GetString("CUENTA")))
|
||||
j.position = 0
|
||||
Log(j.RowCount)
|
||||
If j.RowCount = 0 Then
|
||||
p_abono.Visible = True
|
||||
et_abono.text = ""
|
||||
Dim total As Double = 0
|
||||
f = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
|
||||
f.Position = 0
|
||||
d = Starter.skmt.ExecQuery2("SELECT distinct PA_TICKET, PA_MONTO FROM PAGARES WHERE PA_CLIENTE = ? AND PA_CANCELADO IS NULL", Array As String (f.GetString("CUENTA")))
|
||||
clv_abonos.Clear
|
||||
For i = 0 To d.RowCount - 1
|
||||
d.Position = i
|
||||
clv_abonos.Add(CreateListItem(d.GetString("PA_TICKET"),"$ " & d.GetString("PA_MONTO")),i)
|
||||
|
||||
total = total + d.GetString("PA_MONTO")
|
||||
Log(total)
|
||||
Next
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ? and a_tipoabono is not null ", Array As String (f.GetString("CUENTA")))
|
||||
If d.RowCount > 0 Then
|
||||
For i = 0 To d.RowCount - 1
|
||||
d.Position = i
|
||||
clv_abonos.Add(CreateListItem("ABONO","$ " & d.GetString("a_abono")),i)
|
||||
total = total - d.GetString("a_abono")
|
||||
Log(total)
|
||||
Next
|
||||
End If
|
||||
l_montoabonostotal.Text = NumberFormat2(total,0,2,2,False)
|
||||
d.Close
|
||||
f.Close
|
||||
Else If j.RowCount > 0 Then
|
||||
p_abono.Visible = True
|
||||
et_abono.text = ""
|
||||
Dim total As Double = 0
|
||||
f = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
|
||||
f.Position = 0
|
||||
d = Starter.skmt.ExecQuery2("SELECT distinct PA_TICKET, PA_MONTO FROM PAGARES WHERE PA_CLIENTE = ? AND PA_CANCELADO IS NULL", Array As String (f.GetString("CUENTA")))
|
||||
clv_abonos.Clear
|
||||
For i = 0 To d.RowCount - 1
|
||||
d.Position = i
|
||||
clv_abonos.Add(CreateListItem(d.GetString("PA_TICKET"),"$ " & d.GetString("PA_MONTO")),i)
|
||||
|
||||
total = total + d.GetString("PA_MONTO").Replace(",","")
|
||||
Log(total)
|
||||
Next
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ? and a_tipoabono is not null ", Array As String (f.GetString("CUENTA")))
|
||||
If d.RowCount > 0 Then
|
||||
For i = 0 To d.RowCount - 1
|
||||
d.Position = i
|
||||
clv_abonos.Add(CreateListItem("ABONO","$ " & d.GetString("a_abono")),i)
|
||||
total = total - d.GetString("a_abono")
|
||||
Log(total)
|
||||
Next
|
||||
End If
|
||||
l_montoabonostotal.Text = NumberFormat2(total,0,2,2,False)
|
||||
d.Close
|
||||
f.Close
|
||||
' MsgboxAsync("Este cliente ya tiene un pago capturado","Atención")
|
||||
End If
|
||||
h.Close
|
||||
j.Close
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub imprime_cancelarpagare
|
||||
@@ -2039,7 +2263,7 @@ End Sub
|
||||
|
||||
Private Sub CrearQR(NOTA2 As String)
|
||||
' Private texto As String = $"https://wa.me/5215637241894?text=PAGARE ${NOTA2}"$ 'Bow 2.0 G
|
||||
Private texto As String = $"https://wa.me/5215611769317?text=PAGARE ${NOTA2}"$ 'Bow2024
|
||||
Private texto As String = $"https://wa.me/5215611769317?text=PAGARE_${NOTA2}"$ 'Bow2024
|
||||
i_qr.Clear
|
||||
If texto.Length>0 Then
|
||||
i_qr.SetBitmap(qr.Create(texto))
|
||||
|
||||
Reference in New Issue
Block a user