cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-20 11:39:13 +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