cheveguerra/Izca_Reparto_Creditos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Izca_Reparto_Creditos.git synced 2026-04-20 06:09:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Javier
2025-10-07 17:43:36 -06:00
parent 377499c4ac
commit 5d6fb50254
289 changed files with 4130 additions and 3048 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
B4A/Subs.bas
View File

@@ -1026,18 +1026,18 @@ End Sub
Sub traefECHAPREV As String 'ignore
Private c As Cursor
Private a As String
Private clienteasing As Cursor = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
clienteasing.Position = 0
If clienteasing.GetString("CUENTA") <> "63403" Then
c = Starter.skmt.ExecQuery("select HVD_FECHA from HIST_VENTAS where HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
c.Position = 0
Dim fecha() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
Dim fecha3 As String = fecha(0)
Log(fecha3)
Dim hora() As String = Regex.Split("\.", fecha(1))
a = fecha3 & " " & hora(0)
c.Close
Else If clienteasing.GetString("CUENTA") = "63403" Then
' Private clienteasing As Cursor = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
' clienteasing.Position = 0
' If clienteasing.GetString("CUENTA") <> "63403" Or clienteasing.GetString("CUENTA") <> "100000" Then
' c = Starter.skmt.ExecQuery("select HVD_FECHA from HIST_VENTAS where HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
' c.Position = 0
' Dim fecha() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
' Dim fecha3 As String = fecha(0)
' Log(fecha3)
' Dim hora() As String = Regex.Split("\.", fecha(1))
' a = fecha3 & " " & hora(0)
' c.Close
' Else If clienteasing.GetString("CUENTA") = "63403" Or clienteasing.GetString("CUENTA") = "100000" Then
c = Starter.skmt.ExecQuery("select HVD_FECHA from HIST_VENTAS")
c.Position = 0
Dim fecha() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
@@ -1046,7 +1046,7 @@ Sub traefECHAPREV As String 'ignore
Dim hora() As String = Regex.Split("\.", fecha(1))
a = fecha3 & " " & hora(0)
c.Close
End If
' End If
Return a
End Sub