cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.07.31

Browse Source 
- Se corrigio que cuando se carga dia, se borraba el abordo!!!
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-08-06 12:36:42 -06:00
parent 21c59f2262
commit 42238c11b0
3 changed files with 29 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
B4A/C_Principal.bas
View File

@@ -446,12 +446,19 @@ Sub B4XPage_Appear
' Subs.guardaUltimaActividadBD("principal")
' Revisamos si hay abordo y si SI hay y no esta impreso, lo borramos.
Private imp As ResultSet = Starter.skmt.ExecQuery("select IMPRESION from kmt_info where CAT_CL_CODIGO = '0'") 'Revisamos si el cliente 0 esta impreso.
Private impr As Cursor = Starter.skmt.ExecQuery("select count(*) as CUANTOS from kmt_info where (impresion = 1 or cat_cl_codigo in (select ci_cuenta from cliente_impreso)) and CAT_CL_CODIGO = '0'")
Private abordoImpreso As Boolean = False
Do While imp.NextRow
If imp.GetString("IMPRESION") = 1 Then abordoImpreso = True '
Loop
' Log($"REGISTROS: ${impr.RowCount}"$)
If impr.RowCount > 0 Then
impr.Position = 0
If impr.GetInt("CUANTOS") > 0 Then
' Log("IMPRESION = 1")
abordoImpreso = True
End If
End If
Log($"##### ABORDO IMPRESO = ${abordoImpreso}"$)
Private ab As ResultSet = Starter.skmt.ExecQuery("select * from PEDIDO where PE_CLIENTE = '0'")
Log($"### HAY ABORDO: ${ab.RowCount}"$)
Do While ab.NextRow
If Not(abordoImpreso) Then
LogColor("BORRAMOS PEDIDO DE ABORDO PORQUE NO ESTA IMPRESO", Colors.red)
@@ -3671,4 +3678,20 @@ End Sub
Private Sub r_1_CheckedChange(Checked As Boolean)
r_razonNoVisita = r_1.Text
End Sub
Private Sub BUSCA_LongClick
Private impr As Cursor = Starter.skmt.ExecQuery("select IMPRESION from kmt_info where CAT_CL_CODIGO = '0'") 'Revisamos si el cliente 0 esta impreso.
Private abordoImpreso As Boolean = False
Log("select IMPRESION from kmt_info where CAT_CL_CODIGO = '0'")
Log($"REGISTROS: ${impr.RowCount}"$)
If impr.RowCount > 0 Then
impr.Position = 0
Log($">>>>>>> IMPRESION: |${impr.GetInt("IMPRESION")}|"$)
ToastMessageShow($"IMPRESION: |${impr.GetInt("IMPRESION")}|"$, False)
If impr.GetInt("IMPRESION") = 1 Then
Log("IMPRESION = 1")
abordoImpreso = True
End If
End If
End Sub

2
B4A/KelloggsV4.b4a
View File

@@ -887,7 +887,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Kelloggs Venta
#VersionCode: 3000
#VersionName: 4.07.24
#VersionName: 4.07.31
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#BridgeLogger:true

2
B4A/KelloggsV4.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Productos,et_pCant_FocusChanged,808,1,C_Productos,l_prodX_LongClick,1167,0,C_Productos,et_pCant_TextChanged,719,6,kms_helperSubs,totalPedido,1181,0,kms_helperSubs,ping,1129,0,kms_helperSubs,traeLimiteCredito,1163,1,Visual Designer,principal.bal,-100,2,C_Principal,B4XPage_Appear,424,5,Subs,guardaProductoSinGestion,922,0,C_Productos,b_prodMas_Click,645,0
NavigationStack=C_Principal,b_reactivaRuta_Click,3634,0,C_Principal,b_noVisita_Click,3590,0,Subs,revisaImpresa,1585,0,C_Principal,e_ruta_EnterPressed,2190,0,C_Cliente,b_noVenta_Click,872,0,C_Cliente,gest_Click,866,0,C_Cliente,Guardar_Click,932,0,B4XMainPage,Initialize,122,0,Visual Designer,principal.bal,-100,2,C_Principal,B4XPage_Appear,440,6,C_Productos,cuentaProds,869,0
SelectedBuild=0
VisibleModules=1,28,11,3,26,23,29,12,4,13