mirror of
https://github.com/KeymonSoft/Guna_Reparto_Imp.git
synced 2026-04-17 21:06:09 +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
@@ -97,6 +97,8 @@ Sub Class_Globals
|
||||
Private ListView2 As ListView
|
||||
Private Button1 As Button
|
||||
Private P_PAGARES As Panel
|
||||
|
||||
Private l_montopagares As Label
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -168,6 +170,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
reqManager.Initialize(Me, B4XPages.MainPage.server)
|
||||
|
||||
p_principal.Width = Root.Width
|
||||
p_principal.Height = Root.Height *.80
|
||||
Private c As Cursor = Starter.skmt.ExecQuery("SELECT * FROM NOVENTA")
|
||||
@@ -268,6 +272,7 @@ Sub B4XPage_Appear
|
||||
e.Close
|
||||
Else
|
||||
c=Starter.skmt.ExecQuery("select sum(hvd_costo_tot) as MONTO_DIA from hist_ventas where hvd_cliente in (select cat_cl_codigo from kmt_info ) AND HVD_ESTATUS = 1 ")
|
||||
f1=Starter.skmt.ExecQuery("select sum(hvd_costo_tot) as MONTO_TOTAL_DIA from hist_ventas2 where hvd_cliente in (select cat_cl_codigo from kmt_info )")
|
||||
f1=Starter.skmt.ExecQuery("select sum(hvd_costo_tot) as MONTO_TOTAL_DIA from hist_ventas2 where hvd_cliente in (select cat_cl_codigo from kmt_info ) AND HVD_RECHAZO = 0")
|
||||
f2=Starter.skmt.ExecQuery("select sum(REP_COSTO_TOT) as MONTO_REC_DIA FROM REPARTO where REP_cliente in (Select cat_cl_codigo from kmt_info)")
|
||||
' b=Starter.skmt.ExecQuery("select count(*) as CUANTOS from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 3)")
|
||||
@@ -378,7 +383,7 @@ Sub B4XPage_Appear
|
||||
Starter.skmt.ExecNonQuery($"insert into VENTAS(V_FECHA, V_CLIENTE, V_CLI_ORIG, V_PRODID, V_CANT, V_RECHAZO, V_PRECIO) select REP_FECHA, REP_CLIENTE, REP_CLI_ORIG, REP_PRODID, REP_CANT, REP_RECHAZO, REP_PRECIO from REPARTO where REP_CLIENTE = '${vc.GetString("REP_CLIENTE")}' and REP_CLI_ORIG = '${vc.GetString("REP_CLI_ORIG")}' and REP_PRODID = '${vc.GetString("REP_PRODID")}' and REP_RECHAZO = '0' and REP_CANT > 0"$)
|
||||
Next
|
||||
End If
|
||||
Starter.ENVIA_ULTIMA_GPS
|
||||
|
||||
|
||||
' Log($"ENTREGADOS: ${Subs.traeEntregados}"$)
|
||||
' Log($"RECHAZADOS: ${Subs.traeRechazados}"$)
|
||||
@@ -560,18 +565,108 @@ Sub B4XPage_Appear
|
||||
r5.Close
|
||||
l_rechazo.text = NumberFormat2((rescant + rescant2),0,2,2,False)
|
||||
L_MONTOE.Text = NumberFormat2((rescant3 + rescant4 + rescant5 + rescant6 + rescant7),0,2,2,False)
|
||||
|
||||
|
||||
|
||||
Private r55 As Cursor = Starter.skmt.ExecQuery($"select HVD_COSTO_TOT, HVD_CANT from HIST_VENTAS where HVD_RECHAZO = '0' and BCAJAS = '0' AND HVD_CLIENTE IN (SELECT CAT_CL_CODIGO from kmt_info WHERE gestion = 2)"$)
|
||||
Private rescant10 As Double
|
||||
Private pztotal As Int
|
||||
If r55.RowCount > 0 Then
|
||||
For r75 = 0 To r55.RowCount -1
|
||||
r55.Position = r75
|
||||
rescant10 = rescant10 + r55.GetString("HVD_COSTO_TOT")
|
||||
rescant10 = NumberFormat2(rescant10, 0, 2, 2, False)
|
||||
pztotal = pztotal + r55.GetString("HVD_CANT")
|
||||
Next
|
||||
End If
|
||||
Log(rescant10)
|
||||
r55.Close
|
||||
|
||||
' Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(HVD_COSTO_TOT),0) AS HVD_COSTO_TOT, HVD_CANT from HIST_VENTAS where HVD_RECHAZO = '0' and BCAJAS = '1' AND HVD_CLIENTE IN (SELECT CAT_CL_CODIGO from kmt_info WHERE gestion = 2) "$)
|
||||
' Private pztotal1 As Int
|
||||
' Private rescant11 As Double
|
||||
' If r5.RowCount > 0 Then
|
||||
' r5.Position = 0
|
||||
' rescant11 = r5.GetString("HVD_COSTO_TOT")
|
||||
' pztotal1 = pztotal1 + r55.GetString("HVD_CANT")
|
||||
' End If
|
||||
' Log(rescant11)
|
||||
' r5.Close
|
||||
|
||||
Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(PE_COSTO_TOT),0) AS PE_COSTO_TOT, IFNULL(SUM(PE_CANT),0) AS PE_CANT from PEDIDO "$)
|
||||
Private pztotal2 As Int
|
||||
Private rescant11 As Double
|
||||
If r5.RowCount > 0 Then
|
||||
r5.Position = 0
|
||||
rescant11 = r5.GetString("PE_COSTO_TOT")
|
||||
pztotal2 = pztotal2 + r5.GetString("PE_CANT")
|
||||
End If
|
||||
Log(rescant11)
|
||||
r5.Close
|
||||
''
|
||||
Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '0' AND HVD_CLIENTE IN (SELECT CAT_CL_CODIGO from kmt_info WHERE gestion = 2) "$)
|
||||
Private pztotal3 As Int
|
||||
Private rescant12 As Double
|
||||
If r5.RowCount > 0 Then
|
||||
For j4 = 0 To r5.RowCount -1
|
||||
r5.Position = j4
|
||||
Private r6 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(PE_CANT),0) AS PE_CANT from PEDIDO where PE_CLIENTEOR = '${r5.GetString("HVD_CLIENTE")}' AND PE_PROID = '${r5.GetString("HVD_PROID")}' AND CONSECUTIVO = '${r5.GetString("CONSECUTIVO")}' "$)
|
||||
r6.Position = 0
|
||||
LogColor(r5.GetString("HVD_COSTO_TOT")&" / "& r5.GetString("HVD_CANT")&" * "&r5.GetString("HVD_RECHAZOCANT")&" - "&r6.GetString("PE_CANT"),Colors.Blue)
|
||||
LogColor(r6.GetString("PE_CANT"),Colors.Blue)
|
||||
rescant12 = rescant12 + ((r5.GetString("HVD_COSTO_TOT")/(r5.GetString("HVD_CANT")))*(r5.GetString("HVD_CANT")- r5.GetString("HVD_RECHAZOCANT")))
|
||||
pztotal3 = pztotal3 + (r5.GetString("HVD_CANT")- r5.GetString("HVD_RECHAZOCANT"))
|
||||
Log(rescant12)
|
||||
r6.Close
|
||||
Next
|
||||
End If
|
||||
If rescant12 = "NaN" Then rescant12 = 0
|
||||
LogColor(rescant12,Colors.Red)
|
||||
r5.Close
|
||||
|
||||
' Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT,IFNULL(CANTC,0) AS CANTC, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '1' AND HVD_CLIENTE IN (SELECT CAT_CL_CODIGO from kmt_info WHERE gestion = 2)"$)
|
||||
' Private rescant7 As Double
|
||||
' If r5.RowCount > 0 Then
|
||||
' For j5 = 0 To r5.RowCount -1
|
||||
' r5.Position = j5
|
||||
' Private r6 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(PE_CANT),0) AS PE_CANT from PEDIDO where PE_CLIENTEOR = '${r5.GetString("HVD_CLIENTE")}' AND PE_PROID = '${r5.GetString("HVD_PROID")}' AND CONSECUTIVO = '${r5.GetString("CONSECUTIVO")}'"$)
|
||||
' r6.Position = 0
|
||||
' ' Log(r6.GetString("PE_CANT"))
|
||||
' rescant7 = rescant7 + ((r5.GetString("HVD_COSTO_TOT")/(r5.GetString("CANTC")))*((r5.GetString("HVD_CANT") - r5.GetString("HVD_RECHAZOCANT") )/Subs.traeConversion(r5.GetString("HVD_PROID"))))
|
||||
' pztotal3 = pztotal3 + (r5.GetString("HVD_CANT")- r5.GetString("HVD_RECHAZOCANT"))
|
||||
' r6.Close
|
||||
' Next
|
||||
' End If
|
||||
' If rescant7 = "NaN" Then rescant7 = 0
|
||||
' Log(rescant7)
|
||||
' r5.Close
|
||||
|
||||
|
||||
l_rechazo.text = NumberFormat2((rescant + rescant2),0,2,2,False)
|
||||
B4XPages.MainPage.piezas_entregdas = NumberFormat2((pztotal + pztotal2 + pztotal3 ),0,2,2,False)
|
||||
B4XPages.MainPage.monto_entregadoactual= NumberFormat2((rescant10 + rescant11 + rescant12 ),0,2,2,False)
|
||||
'
|
||||
' B4XPages.MainPage.piezas_entregdas = "0"
|
||||
' B4XPages.MainPage.monto_entregadoactual= "0"
|
||||
|
||||
Dim g8 As Cursor = Starter.skmt.ExecQuery("SELECT IFNULL(SUM(HVD_COSTO_TOT),0) AS HVD_COSTO_TOT FROM HIST_VENTAS")
|
||||
g8.Position = 0
|
||||
|
||||
|
||||
B4XPages.MainPage.clientesVisitados = L_MONTOE.Text
|
||||
B4XPages.MainPage.clientesVenta = l_cuantosc.Text
|
||||
B4XPages.MainPage.clientesRechazo = l_cuantosn.Text
|
||||
B4XPages.MainPage.clientestotal = l_porvisitar.Text
|
||||
B4XPages.MainPage.montoActual = Round2(l_montoSalida.Text - rechMap.Get("monto"), 2)
|
||||
' B4XPages.MainPage.montoActual = Round2(l_montoSalida.Text - rechMap.Get("monto"), 2)
|
||||
B4XPages.MainPage.montoActual = Round2(g8.GetString("HVD_COSTO_TOT"), 2)
|
||||
B4XPages.MainPage.porVisitar = l_ctast.text
|
||||
B4XPages.MainPage.entregas = l_cuantosc.text
|
||||
B4XPages.MainPage.rechazos = l_cuantosn.text
|
||||
B4XPages.MainPage.montoEntregado = L_MONTOE.text
|
||||
B4XPages.MainPage.montoRechazado = l_rechazo.text
|
||||
reqManager.Initialize(Me, B4XPages.MainPage.server)
|
||||
g8.Close
|
||||
' LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
|
||||
Starter.ENVIA_ULTIMA_GPS
|
||||
|
||||
If l_ctast.Text = 0 And l_porvisitar.Text <> 0 Then
|
||||
Label9.Visible = True
|
||||
@@ -596,6 +691,7 @@ Sub B4XPage_Appear
|
||||
' StartActivity(MAPA_RUTAS)
|
||||
' End If
|
||||
' checachek
|
||||
'cuanto
|
||||
End Sub
|
||||
|
||||
Sub checachek
|
||||
@@ -932,14 +1028,14 @@ Sub cargar_Click
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cliente_re_REPG_GUNA_VN"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN)
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN,e_ruta.Text,ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
Log($"Pedimos kmt_datos"$)
|
||||
reqs.Add("kmt_datos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ventad2_re_REPG_GUNA_VN"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.Text,ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
Log($"Pedimos hist_datos"$)
|
||||
reqs.Add("hist_datos")
|
||||
@@ -1535,6 +1631,8 @@ Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
If Panel1.visible Then
|
||||
Log("PANEL1 VISIBLE")
|
||||
B_REGRESA_Click
|
||||
Else If P_PAGARES.Visible Then
|
||||
P_PAGARES.Visible = False
|
||||
Else If p_prod.Visible Then
|
||||
p_prod.Visible = False
|
||||
Else
|
||||
@@ -1977,32 +2075,49 @@ End Sub
|
||||
Private Sub B_PAGARES_Click
|
||||
P_PAGARES.Visible = True
|
||||
ListView2.Width = Root.Width - (Root.Width * .10)
|
||||
ListView2.Height = Root.Height - (2 * (Button1.Height))
|
||||
ListView2.Height = Root.Height - (4 * (Button1.Height))
|
||||
P_PAGARES.BringToFront
|
||||
P_PAGARES.Height = Root.Height
|
||||
P_PAGARES.Width = Root.Width
|
||||
' Dim LABEL1 As Label
|
||||
' LABEL1.TextSize = 20
|
||||
' LABEL1.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
|
||||
Private label1 As Label
|
||||
|
||||
label1 = ListView2.TwoLinesAndBitmap.Label
|
||||
label1.TextSize = 20
|
||||
label1.TextColor = Colors.White
|
||||
label1.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
|
||||
|
||||
label1.Height = 120dip
|
||||
Button1.Left = (P_PAGARES.Width - Button1.Width) / 2
|
||||
Button1.Top = P_PAGARES.Height - Button1.Height
|
||||
Subs.centraListView(ListView2,Root.Width)
|
||||
Subs.SetDivider(ListView2, Colors.LightGray, 5)
|
||||
Private c As Cursor = Starter.skmt.ExecQuery("select * from ABONOSP")
|
||||
Private g5 As Cursor = Starter.skmt.ExecQuery("SELECT SUM(SALDO_PENDIENTE) as SALDO_PENDIENTE FROM ABONOSP")
|
||||
If g5.RowCount > 0 Then
|
||||
g5.Position = 0
|
||||
l_montopagares.Text = g5.GetString("SALDO_PENDIENTE")
|
||||
Else
|
||||
l_montopagares.Text = 0
|
||||
End If
|
||||
g5.Close
|
||||
|
||||
Private g6 As Cursor = Starter.skmt.ExecQuery("select NOTA,NOMBRE,SALDO_PENDIENTE from ABONOSP")
|
||||
|
||||
ListView2.SingleLineLayout.Label.TextColor = Colors.White
|
||||
ListView2.Clear
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
If g6.RowCount > 0 Then
|
||||
For i = 0 To g6.RowCount - 1
|
||||
g6.Position = i
|
||||
Dim itemText As String
|
||||
itemText = $"NOMBRE.: ${c.GetString("NOMBRE")} ${CRLF}FOLIO: ${(c.GetInt("NOTA"))}, MONTO: $ ${(c.GetInt("SALDO_PENDIENTE"))}"$
|
||||
itemText = $"NOMBRE.: ${g6.GetString("NOMBRE")} ${CRLF}FOLIO: ${(g6.GetString("NOTA"))}, MONTO: $ ${(NumberFormat2(g6.GetString("SALDO_PENDIENTE"),0,2,2,False))}"$
|
||||
ListView2.AddSingleLine(itemText)
|
||||
Next
|
||||
Else
|
||||
ListView2.AddSingleLine("No hay datos disponibles.")
|
||||
End If
|
||||
c.Close
|
||||
g6.Close
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click
|
||||
@@ -2011,4 +2126,117 @@ End Sub
|
||||
|
||||
Private Sub P_PAGARES_Click
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub cuanto
|
||||
''' RECHAZO - VENTA
|
||||
Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '0' ORDER BY HVD_PROID "$)
|
||||
|
||||
Private rescant As String = 0
|
||||
If r5.RowCount > 0 Then
|
||||
For j4 = 0 To r5.RowCount -1
|
||||
r5.Position = j4
|
||||
Private r6 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(PE_CANT),0) AS PE_CANT from PEDIDO where PE_CLIENTEOR = '${r5.GetString("HVD_CLIENTE")}' AND PE_PROID = '${r5.GetString("HVD_PROID")}' AND CONSECUTIVO = '${r5.GetString("CONSECUTIVO")}' "$)
|
||||
Dim totalcantped As String
|
||||
If r6.RowCount > 0 Then
|
||||
r6.Position = 0
|
||||
totalcantped = r6.GetString("PE_CANT")
|
||||
Else
|
||||
totalcantped = 0
|
||||
End If
|
||||
Log(r5.GetString("HVD_RECHAZOCANT") &" - "& totalcantped)
|
||||
rescant = rescant + ((r5.GetString("HVD_COSTO_TOT")/(r5.GetString("HVD_CANT")))*((r5.GetString("HVD_RECHAZOCANT") - totalcantped)))
|
||||
' Log(rescant)
|
||||
r6.Close
|
||||
Next
|
||||
End If
|
||||
If rescant = "NaN" Then rescant = 0
|
||||
' LogColor(rescant,Colors.Red)
|
||||
r5.Close
|
||||
|
||||
Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT,IFNULL(CANTC,0) AS CANTC, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '1' "$)
|
||||
' Private r5 As Cursor = Starter.skmt.ExecQuery($"select * from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '1' "$)
|
||||
|
||||
Private rescant2 As Double = 0
|
||||
If r5.RowCount > 0 Then
|
||||
For j5 = 0 To r5.RowCount -1
|
||||
r5.Position = j5
|
||||
Private r6 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(PE_CANT),0) AS PE_CANT from PEDIDO where PE_CLIENTEOR = '${r5.GetString("HVD_CLIENTE")}' AND PE_PROID = '${r5.GetString("HVD_PROID")}' AND CONSECUTIVO = '${r5.GetString("CONSECUTIVO")}'"$)
|
||||
r6.Position = 0
|
||||
' Log(r6.GetString("PE_CANT"))
|
||||
rescant2 = rescant2 + ((r5.GetString("HVD_COSTO_TOT")/(r5.GetString("CANTC")))*((r5.GetString("HVD_RECHAZOCANT") - r6.GetString("PE_CANT"))/Subs.traeConversion(r5.GetString("HVD_PROID"))))
|
||||
rescant2 = NumberFormat2(rescant2, 0, 2, 2, False)
|
||||
r6.Close
|
||||
Next
|
||||
End If
|
||||
If rescant2 = "NaN" Then rescant2 = 0
|
||||
Log(rescant2)
|
||||
r5.Close
|
||||
'''FIN RECHAZO - VENTA
|
||||
|
||||
'''RECHAZO
|
||||
Private r5r As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '0' "$)
|
||||
Private rescantr As String = 0
|
||||
If r5r.RowCount > 0 Then
|
||||
For j4r = 0 To r5r.RowCount -1
|
||||
r5r.Position = j4r
|
||||
Private r6r As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(PE_CANT),0) AS PE_CANT from PEDIDO where PE_CLIENTEOR = '${r5r.GetString("HVD_CLIENTE")}' AND PE_PROID = '${r5r.GetString("HVD_PROID")}' AND CONSECUTIVO = '${r5r.GetString("CONSECUTIVO")}' "$)
|
||||
r6r.Position = 0
|
||||
' LogColor(r5.GetString("HVD_COSTO_TOT")&" / "& r5.GetString("HVD_CANT")&" * "&r5.GetString("HVD_RECHAZOCANT")&" - "&r6.GetString("PE_CANT"),Colors.Blue)
|
||||
' LogColor(r6.GetString("PE_CANT"),Colors.Blue)
|
||||
rescantr = rescantr + ((r5r.GetString("HVD_COSTO_TOT")/(r5r.GetString("HVD_CANT")))*(r5r.GetString("HVD_RECHAZOCANT")))
|
||||
r6r.Close
|
||||
Next
|
||||
End If
|
||||
If rescantr = "NaN" Then rescantr = 0
|
||||
' LogColor(rescant,Colors.Red)
|
||||
r5r.Close
|
||||
|
||||
' Log(rescantr)
|
||||
|
||||
Private r5r As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT,IFNULL(CANTC,0) AS CANTC, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '1' "$)
|
||||
|
||||
' Private r5 As Cursor = Starter.skmt.ExecQuery($"select * from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '1' "$)
|
||||
Private rescant2r As String = 0
|
||||
If r5r.RowCount > 0 Then
|
||||
For j5r = 0 To r5r.RowCount -1
|
||||
r5r.Position = j5r
|
||||
Private r6r As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(PE_CANT),0) AS PE_CANT from PEDIDO where PE_CLIENTEOR = '${r5r.GetString("HVD_CLIENTE")}' AND PE_PROID = '${r5r.GetString("HVD_PROID")}' AND CONSECUTIVO = '${r5r.GetString("CONSECUTIVO")}'"$)
|
||||
r6r.Position = 0
|
||||
' Log(r6.GetString("PE_CANT"))
|
||||
rescant2r = rescant2r + ((r5r.GetString("HVD_COSTO_TOT")/(r5r.GetString("CANTC")))*((r5r.GetString("HVD_RECHAZOCANT"))/Subs.traeConversion(r5r.GetString("HVD_PROID"))))
|
||||
r6r.Close
|
||||
Next
|
||||
End If
|
||||
If rescant2r = "NaN" Then rescant2r = 0
|
||||
' Log(rescant2)
|
||||
r5r.Close
|
||||
Log(rescant2r)
|
||||
Log(rescant2r+rescantr)
|
||||
|
||||
'''' FIN RECHAZO
|
||||
|
||||
'''''
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ListView2_ItemClick (Position As Int, Value As Object)
|
||||
Log(Value)
|
||||
Dim compara As String = Value
|
||||
Log(compara.Replace("NOMBRE.: ",""))
|
||||
Dim compara1() As String = Regex.Split(CRLF,compara)
|
||||
Log(compara1(0))
|
||||
Log(compara1(0).Replace("NOMBRE.: ",""))
|
||||
Dim g7 As Cursor = Starter.skmt.ExecQuery2("SELECT CAT_CL_CODIGO from kmt_info WHERE CAT_CL_NOMBRE = ?", Array As String (compara1(0).Replace("NOMBRE.: ","").Trim))
|
||||
If g7.RowCount > 0 Then
|
||||
g7.Position = 0
|
||||
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(g7.GetString("CAT_CL_CODIGO")))
|
||||
P_PAGARES.Visible = False
|
||||
B4XPages.ShowPage("Cliente")
|
||||
End If
|
||||
End Sub
|
||||
Reference in New Issue
Block a user