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

05-10-23 App final

Browse Source
This commit is contained in:
cvaldes1201
2023-10-05 10:17:28 -06:00
parent 5284ad257a
commit 87d73171eb
7 changed files with 127 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_principal.bas
View File

@@ -293,7 +293,7 @@ Sub JobDone(Job As HttpJob)
c = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(credito))
c.Position= 0
LogColor(c.GetString("CUANTOS"),Colors.Magenta)
' LogColor(c.GetString("CUANTOS"),Colors.Magenta)
If c.GetString("CUANTOS") > 0 Then
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET CREDITO = ?, NOMBRE = ?, CALLE = ?, COLONIA = ?, CIUDAD = ?, ESTADO = ?, CP = ? WHERE CREDITO = ?",Array As Object (credito, nombre,calle, colonia, ciudad,estado, cp))
Else If c.GetString("CUANTOS") = 0 Then
@@ -358,7 +358,7 @@ Sub JobDone(Job As HttpJob)
c = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_FINANCIEROS WHERE CREDITO = ?",Array As String(creditof))
c.Position = 0
LogColor(c.GetString("CUANTOS"),Colors.Red)
' LogColor(c.GetString("CUANTOS"),Colors.Red)
If c.GetString("CUANTOS") > 0 Then
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET CREDITO = ?, DIASATRASO = ?, MESVENCIDO = ?, SALDO_VENCIDO = ?, SALDO_TOTAL = ?, TIPO_UNIDAD = ?, MARCA = ?, ANO = ?, NO_SERIE = ?, RESULTADO = ? WHERE CREDITO = ?",Array As String(creditof, diasv, mesv, saldov, saldot, tipouni, marca, anio, serie, resultado))
Else If c.GetString("CUANTOS") = 0 Then