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

version final reparto intmex

Browse Source
This commit is contained in:
cvaldes1201
2024-05-29 10:59:51 -06:00
parent 530971af11
commit 89f2d228e0
9 changed files with 214 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

125
fila.bas
View File

@@ -84,6 +84,16 @@ Sub Globals
Dim CREDITO As String
Private p_principal As Panel
Private B_PASO2 As Button
Dim almacen As String
Dim fechaprev As String
Dim rutaprev As String
Dim rutarep As String
Dim montopagare As String
Private b_cancred As Button
Private b_acred As Button
Private et_montoacredito As EditText
Private l_limite As Label
Private p_credito As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
@@ -173,6 +183,7 @@ Sub Activity_Resume
' g.Start(0,0)
' End If
Subs.centraPanel(p_principal, Activity.Width)
Subs.centraPanel(p_credito, Activity.Width)
Starter.skmt.Initialize(Starter.ruta,"kmt.db", True)
c=Starter.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_BCREDITO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
s=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
@@ -256,6 +267,71 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
End Sub
Sub gest_Click
If CREDITO = 1 Then
Msgbox2Async("Forma de pago","EL CLIENTE PUEDE TENER CREDITO","Parcial","Total","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
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
l_limite.Text = "Monto de la venta: $" & montopagare
Else If Result = DialogResponse.NEGATIVE Then
Log(2)
Guardado
Else If Result = DialogResponse.CANCEL Then
Log(3)
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),montopagare,usuario,cuenta))
Guardado
End If
Else
Guardado
End If
End Sub
Sub Guardado
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
@@ -297,6 +373,7 @@ Sub DATOS_Click
End Sub
Sub Guardar_Click
StartActivity(seleccion)
End Sub
@@ -514,4 +591,52 @@ Sub B_PASO2_Click
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) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta, sDate & sTime, usuario, "PASO", "PASO ESPERA", Main.lat_gps, Main.lon_gps))
StartActivity(seleccion)
End Sub
Private Sub b_acred_Click
If et_montoacredito.Text > montopagare Then
MsgboxAsync("El monto del pagare no puede ser mayor a la venta","Atención")
Else
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
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),et_montoacredito.Text,usuario,cuenta))
p_credito.Visible = False
Guardado
End If
End Sub
Private Sub b_cancred_Click
p_credito.Visible = False
End Sub