cheveguerra/Mazapa-Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mazapa-Reparto.git synced 2026-04-19 22:09:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
cvaldes1201
2025-01-21 17:12:03 -06:00
parent da46e318db
commit de4c5240a5
609 changed files with 2651 additions and 2493 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
B4A/Subs.bas
View File

@@ -984,15 +984,29 @@ End Sub
Sub traefECHAPREV As String 'ignore
Private c As Cursor
Private a As String
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 fecha2() As String = Regex.Split("-", fecha(0))
Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0)
Log(fecha3)
Dim hora() As String = Regex.Split("\.", fecha(1))
a = fecha3 & " " & hora(0)
c.Close
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 fecha2() As String = Regex.Split("-", fecha(0))
Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0)
Log(fecha3)
Dim hora() As String = Regex.Split("\.", fecha(1))
a = fecha3 & " " & hora(0)
c.Close
Else If clienteasing.GetString("CUENTA") = "63403" Then
c = Starter.skmt.ExecQuery("select HVD_FECHA from HIST_VENTAS")
c.Position = 0
Dim fecha() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
Dim fecha2() As String = Regex.Split("-", fecha(0))
Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0)
Log(fecha3)
Dim hora() As String = Regex.Split("\.", fecha(1))
a = fecha3 & " " & hora(0)
c.Close
End If
Return a
End Sub