cheveguerra/Tortillas_Guerreras
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Tortillas_Guerreras.git synced 2026-04-21 14:49:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Javier
2025-12-04 12:08:43 -06:00
parent 9d9cb3d2a4
commit 509fd9a85c
4 changed files with 30 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Cliente.bas
View File

@@ -3123,6 +3123,8 @@ End Sub
Private Sub c_acep_folio_Click Private Sub c_acep_folio_Click
If et_folio.Text <> "" Then If et_folio.Text <> "" Then
If et_folio.Text.Length >= 4 And et_folio.Text.Length <= 15 Then
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE pedido SET PE_FOLIOFAC = '${et_folio.Text}' WHERE PE_CLIENTE In (select cuenta from cuentaa) AND PE_DESCRAGA = '1'"$) B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE pedido SET PE_FOLIOFAC = '${et_folio.Text}' WHERE PE_CLIENTE In (select cuenta from cuentaa) AND PE_DESCRAGA = '1'"$)
et_folio.Text = "" et_folio.Text = ""
@@ -3193,7 +3195,9 @@ Private Sub c_acep_folio_Click
banderaimp = 0 banderaimp = 0
mandaPendientePagare mandaPendientePagare
B4XPages.ShowPage("Principal") B4XPages.ShowPage("Principal")
Else
MsgboxAsync("Captura un folio valido.","Atención")
End If
Else Else
MsgboxAsync("Captura un folio valido.","Atención") MsgboxAsync("Captura un folio valido.","Atención")
End If End If

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

48
B4A/Subs.bas
View File

@@ -920,17 +920,17 @@ Sub guardaProductoSinGestion3(cedis As String, costoU As String, cant As String,
' B4XPages.MainPage.skmt.ExecNonQuery2($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId)) ' B4XPages.MainPage.skmt.ExecNonQuery2($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId))
' End If ' End If
Private abor As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD2 where CAT_GP_ID = '${prodId}'"$) ' Private abor As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD2 where CAT_GP_ID = '${prodId}'"$)
'
If abor.RowCount = 0 Then ' If abor.RowCount = 0 Then
Log("aQUI") ' Log("aQUI")
Private abor2 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD3 where CAT_GP_ID = '${prodId}'"$) ' Private abor2 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD3 where CAT_GP_ID = '${prodId}'"$)
abor2.Position=0 ' abor2.Position=0
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID, CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO10,CAT_DP_CONVERSION1,CAT_DP_PRECIO1,CAT_DP_PRECIO2,CAT_DP_PRECIO3,CAT_DP_PRECIO4,CAT_DP_PRECIO9) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (abor2.GetString("CAT_GP_ID"), abor2.GetString("CAT_GP_NOMBRE"), abor2.GetString("CAT_GP_IMP1"), abor2.GetString("CAT_GP_IMP2"), abor2.GetString("CAT_GP_PRECIO"), abor2.GetString("CAT_GP_CLASIF"), abor2.GetString("CAT_GP_STS"), abor2.GetString("CAT_GP_TIPO"), abor2.GetString("CAT_GP_SUBTIPO"), abor2.GetBlob("CAT_GP_IMG"), cant, abor2.GetString("CAT_GP_TIPOPROD"), abor2.GetString("CAT_GP_INICIATIVA"), abor2.GetString("CAT_DP_PRECIO10"), abor2.GetString("CAT_DP_CONVERSION1"), abor2.GetString("CAT_DP_PRECIO1"), abor2.GetString("CAT_DP_PRECIO2"), abor2.GetString("CAT_DP_PRECIO3"), abor2.GetString("CAT_DP_PRECIO4"), abor2.GetString("CAT_DP_PRECIO9"))) ' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID, CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO10,CAT_DP_CONVERSION1,CAT_DP_PRECIO1,CAT_DP_PRECIO2,CAT_DP_PRECIO3,CAT_DP_PRECIO4,CAT_DP_PRECIO9) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (abor2.GetString("CAT_GP_ID"), abor2.GetString("CAT_GP_NOMBRE"), abor2.GetString("CAT_GP_IMP1"), abor2.GetString("CAT_GP_IMP2"), abor2.GetString("CAT_GP_PRECIO"), abor2.GetString("CAT_GP_CLASIF"), abor2.GetString("CAT_GP_STS"), abor2.GetString("CAT_GP_TIPO"), abor2.GetString("CAT_GP_SUBTIPO"), abor2.GetBlob("CAT_GP_IMG"), cant, abor2.GetString("CAT_GP_TIPOPROD"), abor2.GetString("CAT_GP_INICIATIVA"), abor2.GetString("CAT_DP_PRECIO10"), abor2.GetString("CAT_DP_CONVERSION1"), abor2.GetString("CAT_DP_PRECIO1"), abor2.GetString("CAT_DP_PRECIO2"), abor2.GetString("CAT_DP_PRECIO3"), abor2.GetString("CAT_DP_PRECIO4"), abor2.GetString("CAT_DP_PRECIO9")))
Else ' Else
Log("aQUI") ' Log("aQUI")
B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + ${cant} where cat_gp_id = '${prodId}' "$) ' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + ${cant} where cat_gp_id = '${prodId}' "$)
End If ' End If
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
c.Position=0 c.Position=0
@@ -960,19 +960,19 @@ Sub actualizaProducto3(cedis As String, costoU As String, cant As Int, nombre As
Private difCant As Int = cant - antCant Private difCant As Int = cant - antCant
B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set pe_cant = ${cant}, pe_costo_tot = ${0}, PE_CANTC = ${cantc}, PE_BCAJAS = ${bcajas} where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$) ' B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set pe_cant = ${cant}, pe_costo_tot = ${0}, PE_CANTC = ${cantc}, PE_BCAJAS = ${bcajas} where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$)
' If B4XPages.MainPage.tipo_venta = "VENTA" Then '' If B4XPages.MainPage.tipo_venta = "VENTA" Then
' B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$) '' B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
' Else '' Else
' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$) '' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$) '' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
' End If '' End If
'
Log("aQUI") ' Log("aQUI")
Log(cant) ' Log(cant)
Log(antCant) ' Log(antCant)
Log(difCant) ' Log(difCant)
B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + (${difCant}) where cat_gp_id = '${prodId}' "$) '' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + (${difCant}) where cat_gp_id = '${prodId}' "$)
' Log($"CANT=${cant}"$) ' Log($"CANT=${cant}"$)
If cant = 0 Then If cant = 0 Then
Log("BORRAMOS PROD") Log("BORRAMOS PROD")

2
B4A/TG.b4a.meta
View File

@@ -97,6 +97,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Principal,Class_Globals,50,1,C_Principal,Envioinfo,1135,0,Diseñador Visual,Cobranza.bal,-100,1,C_Principal,connecta_Click,2544,0,Diseñador Visual,principal.bal,-100,6,C_Principal,CreateListItem,768,2,Diseñador Visual,cuentamerma.bal,-100,5,C_Principal,CreateListItem2,785,0,C_Principal,MapFragment1_LongClick,706,0,C_Principal,Subir_Click,730,6,C_Principal,b_terpc_Click,3709,1 NavigationStack=Diseñador Visual,cuentamerma.bal,-100,5,C_Principal,CreateListItem2,785,0,C_Principal,MapFragment1_LongClick,706,0,C_Principal,Subir_Click,730,6,C_Principal,b_terpc_Click,3529,1,C_Cliente,MODS,0,0,Diseñador Visual,cliente.bal,-100,3,C_Cliente,c_acep_folio_Click,3193,6,Subs,guardaProductoSinGestion3,916,0,Subs,actualizaProducto3,956,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,3,4,31,15,14,13,5,17 VisibleModules=1,2,3,4,31,15,14,13,5,17