cheveguerra/Guna_Reparto_Diseno_Viejo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Reparto_Diseno_Viejo.git synced 2026-04-22 15:10:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Carga de almacen leon a leon conagra

Browse Source
This commit is contained in:
cvaldes1201
2024-04-26 09:24:09 -06:00
parent 78a8f54c1d
commit 72f6b32900
3 changed files with 31 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
B4A/C_Principal.bas
View File

@@ -689,6 +689,35 @@ Sub cargar_Click
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT 'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
End If End If
If ALMACEN = "12" Then
ALMACEN = "72"
cargo = 2
cmd.Initialize
cmd.Name = "select_punteo_guna_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
reqs.Add("punteo")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_REPG2"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
reqs.Add("gunaprod")
cmd.Initialize
cmd.Name = "select_cliente_guna_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN,ALMACEN,e_ruta.text, ALMACEN, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
reqs.Add("kmt_datos")
cmd.Initialize
cmd.Name = "select_ventad_guna_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
reqs.Add("hist_datos")
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
End If
' c=Starter.skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO") ' c=Starter.skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")
' If c.RowCount > 0 Then ' If c.RowCount > 0 Then
' For i=0 To c.RowCount -1 ' For i=0 To c.RowCount -1

2
B4A/GUNA_Reparto.b4a
View File

@@ -121,7 +121,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: GUNA Reparto #ApplicationLabel: GUNA Reparto
#VersionCode: 1 #VersionCode: 1
#VersionName: 3.10.12 #VersionName: 4.04.20
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/GUNA_Reparto.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Diseñador Visual,detalleVenta.bal,-100,2,Diseñador Visual,cliente.bal,-100,3,C_Cliente,HIST_Click,240,0,C_DetalleVenta,B4XPage_Appear,175,0,Subs,traemosCantYMonto,747,0,Subs,traeCantYMonto2,782,0,C_Cliente,B4XPage_Appear,151,6,C_Cliente,GPS_LocationChanged,175,0,B4XMainPage,B4XPage_Created,143,0,B4XMainPage,i_engrane_Click,299,0,Starter,Process_Globals,29,0 NavigationStack=Diseñador Visual,cliente.bal,-100,3,C_Cliente,HIST_Click,240,0,C_DetalleVenta,B4XPage_Appear,175,0,Subs,traemosCantYMonto,747,0,Subs,traeCantYMonto2,782,0,C_Cliente,B4XPage_Appear,151,6,C_Cliente,GPS_LocationChanged,175,0,B4XMainPage,B4XPage_Created,143,0,B4XMainPage,i_engrane_Click,299,0,Starter,Process_Globals,29,0,C_Principal,cargar_Click,720,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,15,3,4,5,6,7,8,9,25 VisibleModules=1,2,15,3,4,5,6,7,8,9,25