mirror of
https://github.com/KeymonSoft/Guna_Preventa.git
synced 2026-04-18 21:29:16 +00:00
,,,
This commit is contained in:
cvaldes1201
@@ -746,6 +746,10 @@ Sub B4XPage_Appear
|
||||
Else
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
If ALMACEN = 87 Or ALMACEN = 6 Then
|
||||
If Subs.traemontoprod And Subs.traeCliente <> "0" Then
|
||||
Msgbox2Async("El cliente tiene derecho a un descuento de 150 pesos por la compra de mas de $500 en productos participantes" , "Descuento disponible", "Aceptar", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
@@ -782,7 +786,7 @@ Sub B4XPage_Appear
|
||||
LogColor(recalculo,Colors.Blue)
|
||||
Private recalculototal As Float = c4.GetString("PE_CANT") * NumberFormat2(recalculo,0,2,2,False)
|
||||
' Log(recalculo&"|||||"&recalculototal)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ? WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_PROID = ? ",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False), c4.GetString("PE_PROID")))
|
||||
skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ? WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False), c4.GetString("PE_PROID")))
|
||||
Next
|
||||
End If
|
||||
c4.Close
|
||||
@@ -803,7 +807,7 @@ Sub B4XPage_Appear
|
||||
LogColor(recalculo,Colors.Blue)
|
||||
Private recalculototal As Float = c4.GetString("PE_CANT") * NumberFormat2(recalculo,0,2,2,False)
|
||||
' Log(recalculo&"|||||"&recalculototal)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ? WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_PROID = ? ",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False), c4.GetString("PE_PROID")))
|
||||
skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ? WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False), c4.GetString("PE_PROID")))
|
||||
Next
|
||||
End If
|
||||
c4.Close
|
||||
@@ -816,21 +820,99 @@ Sub B4XPage_Appear
|
||||
c.Close
|
||||
c2.Close
|
||||
c3.Close
|
||||
Else If Subs.traemontoprod2 And Subs.traeCliente <> "0" Then
|
||||
Msgbox2Async("El cliente tiene derecho a un descuento de 70 pesos por la compra de mas de $300 en productos participantes" , "Descuento disponible", "Aceptar", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT SUM(PE_CANT) AS PIEZAS FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA)")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
Private des As Float = NumberFormat2(70/c.GetString("PIEZAS"),0,2,2,False)
|
||||
Log( NumberFormat2(des,0,2,2,False))
|
||||
Private c2 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT Ifnull(SUM(PE_CANT),0) AS PE_CANT FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_COSTOU < ?",Array As String(des))
|
||||
If c2.RowCount > 0 Then
|
||||
c2.Position = 0
|
||||
Log(c2.GetString("PE_CANT"))
|
||||
End If
|
||||
Private c3 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT SUM(PE_CANT) AS PE_CANT FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_COSTOU >= ?",Array As String(des))
|
||||
If c3.RowCount > 0 Then
|
||||
c3.Position = 0
|
||||
Log(c3.GetString("PE_CANT"))
|
||||
Private rec As Float = (des * c2.GetString("PE_CANT"))/c3.GetString("PE_CANT")
|
||||
Log( NumberFormat2(rec,0,2,2,False))
|
||||
Private cantres As Float = des + rec
|
||||
Log( NumberFormat2(cantres,0,2,2,False))
|
||||
Private c5 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT Ifnull(SUM(PE_CANT),0) AS PE_CANT FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_COSTOU > ? and PE_COSTOU < ?",Array As String(des, cantres))
|
||||
If c5.RowCount > 0 Then
|
||||
c5.Position = 0
|
||||
Log(c5.GetString("PE_CANT"))
|
||||
If c5.GetString("PE_CANT") = "0" Then
|
||||
Private c4 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_COSTOU >= ?",Array As String(NumberFormat2(cantres,0,2,2,False)))
|
||||
If c4.RowCount > 0 Then
|
||||
For i = 0 To c4.RowCount -1
|
||||
c4.Position = i
|
||||
Private recalculo As Float = c4.GetString("PE_COSTOU") - NumberFormat2(cantres,0,2,2,False)
|
||||
LogColor(recalculo,Colors.Blue)
|
||||
Private recalculototal As Float = c4.GetString("PE_CANT") * NumberFormat2(recalculo,0,2,2,False)
|
||||
Log(recalculo&"|||||"&recalculototal&"|||||||||||||||||||"&c4.GetString("PE_PROID"))
|
||||
skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ? WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False), c4.GetString("PE_PROID")))
|
||||
Next
|
||||
End If
|
||||
c4.Close
|
||||
Else
|
||||
Private c6 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT SUM(PE_CANT) AS PE_CANT FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_COSTOU >= ?",Array As String(cantres))
|
||||
If c6.RowCount > 0 Then
|
||||
c6.Position = 0
|
||||
Log(c6.GetString("PE_CANT"))
|
||||
Private rec1 As Float = (cantres * c5.GetString("PE_CANT"))/c6.GetString("PE_CANT")
|
||||
Log( NumberFormat2(rec1,0,2,2,False))
|
||||
Private cantres1 As Float = cantres + rec1
|
||||
Log( NumberFormat2(cantres1,0,2,2,False))
|
||||
Private c4 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_COSTOU >= ?",Array As String(NumberFormat2(cantres1,0,2,2,False)))
|
||||
If c4.RowCount > 0 Then
|
||||
For i = 0 To c4.RowCount -1
|
||||
c4.Position = i
|
||||
Private recalculo As Float = c4.GetString("PE_COSTOU") - NumberFormat2(cantres1,0,2,2,False)
|
||||
LogColor(recalculo,Colors.Blue)
|
||||
Private recalculototal As Float = c4.GetString("PE_CANT") * NumberFormat2(recalculo,0,2,2,False)
|
||||
' Log(recalculo&"|||||"&recalculototal)
|
||||
skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ? WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False), c4.GetString("PE_PROID")))
|
||||
Next
|
||||
End If
|
||||
c4.Close
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
c.Close
|
||||
c2.Close
|
||||
c3.Close
|
||||
|
||||
End If
|
||||
If Not(Subs.traemontoprod) Then
|
||||
Private c4 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND (PE_RECALCULO <> ? OR PE_RECALCULO IS NOT NULL)",Array As String("null"))
|
||||
If c4.RowCount > 0 Then
|
||||
For i = 0 To c4.RowCount -1
|
||||
c4.Position = i
|
||||
If Not(Subs.traemontoprod) Then
|
||||
If Not(Subs.traemontoprod2) Then
|
||||
Private c4 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND (PE_RECALCULO <> ? OR PE_RECALCULO IS NOT NULL)",Array As String("null"))
|
||||
If c4.RowCount > 0 Then
|
||||
For i = 0 To c4.RowCount -1
|
||||
c4.Position = i
|
||||
' Private recalculo As Float = c4.GetString("PE_COSTOU") - NumberFormat2(cantres,0,2,2,False)
|
||||
' Private recalculototal As Float = c4.GetString("PE_CANT") * NumberFormat2(recalculo,0,2,2,False)
|
||||
' Log(recalculo&"|||||"&recalculototal)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ? WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_PROID = ? ",Array As String("","",c4.GetString("PE_PROID")))
|
||||
Next
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ? WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_PROID = ? ",Array As String("","",c4.GetString("PE_PROID")))
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
|
||||
End If
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'AQUI CAMBIAR
|
||||
Private s3 As Cursor=B4XPages.MainPage.skmt.ExecQuery2("select * FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_RECALCULO <> ? OR PE_RECALCULO <> ? OR PE_RECALCULO IS NOT NULL",Array As String("","null"))
|
||||
' LogColor(s3.RowCount,Colors.Yellow)
|
||||
|
||||
Reference in New Issue
Block a user