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

VERSION 6.02.24

Browse Source 
Se agrego el check temporal en los comentarios del cliente
Se agrego Datos del cliente nuevo (Numeroint,ext,referencia)
Se agrego pantalla scroll en cliente nuevo
This commit is contained in:
jalarakmt
2026-02-27 17:58:18 -06:00
parent 5c250388dc
commit efc76af182
10 changed files with 300 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Cliente.bas
View File

@@ -482,6 +482,7 @@ Sub Class_Globals
Dim totalpromos As Double
Dim totalpromostotal As Double
Private chb_com As CheckBox
End Sub
'You can add more parameters here.
@@ -3171,6 +3172,7 @@ Sub B_IMP_Click
Wait For Msgbox_Result (resultado As Int)
If resultado = DialogResponse.POSITIVE Then
Dim creditocod As Cursor = Starter.skmt.ExecQuery("SELECT CODIGO FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
Log(creditocod.RowCount)
If creditocod.RowCount > 0 Then
creditocod.Position = 0
Dim cs As CSBuilder
@@ -7624,7 +7626,11 @@ End Sub
Private Sub b_agregarcom_Click
If et_comentario.Text <> "" Then
B4XPages.MainPage.skmt.ExecNonQuery($"insert into COMENTARIOS (COMENTARTIO, CLIENTE) values ('${et_comentario.Text}','${Subs.traeCliente}')"$)
If chb_com.Checked Then
B4XPages.MainPage.skmt.ExecNonQuery($"insert into COMENTARIOS (COMENTARTIO, CLIENTE,comentario_tmp) values ('${et_comentario.Text}','${Subs.traeCliente}',1)"$)
Else If chb_com.Checked = False Then
B4XPages.MainPage.skmt.ExecNonQuery($"insert into COMENTARIOS (COMENTARTIO, CLIENTE,comentario_tmp) values ('${et_comentario.Text}','${Subs.traeCliente}',0)"$)
End If
Dim label1 As Label
label1 = lv_comentarios.SingleLineLayout.Label
@@ -8010,4 +8016,8 @@ End Sub
Private Sub p_telefono_Click
End Sub
Private Sub chb_com_CheckedChange(Checked As Boolean)
End Sub