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

VERSION 5.11.25

Browse Source 
- Se corrigio el envio de bases de datos de reparto
This commit is contained in:
Jose Alberto Guerra Ugalde
2026-03-20 21:09:02 -06:00
parent 831bec62fc
commit bee96565e2
8 changed files with 1074 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
B4A/B4XMainPage.bas
View File

@@ -5,19 +5,25 @@ Type=Class
Version=9.85
@EndOfDesignText@
#Region Shared Files
'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
'###########################################################################################################
'###################### PULL #############################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
'###########################################################################################################
'###################### PULL FORZADO #############################################################
'Ctrl + click Respaldar y Pull: ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=start&Args=powershell.exe&Args=-ExecutionPolicy&Args=Bypass&Args=-File&Args=..\..\_sync_project.ps1
'###########################################################################################################
'###################### PUSH #############################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
'###########################################################################################################
'###################### PUSH TORTOISE GIT #########################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../../"&Args=/closeonend:2
'###########################################################################################################
'###################### PUSH TORTOISE GIT CON TAG ##################################################
'Ctrl + clic para Git: ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=-ExecutionPolicy&Args=Bypass&Args=-File&Args=..\_git_tag.ps1&Args=%22%PROJECT%%22&Args=%22%PROJECT_NAME%%22
'###########################################################################################################
#End Region
'Faltan:
@@ -261,6 +267,7 @@ Sub B4XPage_Appear
Log(LastException)
LogColor("Error en CAT_VARIABLES", Colors.red)
End Try
If empresa.ToUpperCase.Contains("REPARTO") Then
p_datos_reparto.Top = p_datos.Top
p_datos_reparto.Left = p_datos.Left
@@ -291,7 +298,11 @@ Sub B4XPage_Appear
End Try
' b_enviar.Enabled = False
Log(empresa)
LogColor("#####################################################", Colors.red)
LogColor($"########## ${empresa} ###############"$, Colors.red)
LogColor("#####################################################", Colors.red)
empresa = empresa.Replace(" ", "_")
p_empresa.Visible = False
If empresa.ToUpperCase.Contains("MARIANA") Then
@@ -305,33 +316,33 @@ Sub B4XPage_Appear
b_enviar.Enabled = True
Log("Cargamos GUNA")
else if empresa.ToUpperCase.Contains("GUNA_REPARTO") Then
b_enviar.Text = "Enviar Guna_Reparto"
b_valida.Text = "Validar Guna_Reparto"
b_enviar.Text = "Enviar Guna Reparto"
b_valida.Text = "Validar Guna Reparto"
b_enviar.Enabled = True
Log("Cargamos Guna_Reparto")
else if empresa.ToUpperCase.Contains("INTMEX_REPARTO") Then
b_enviar.Text = "Enviar Intmex_Reparto"
b_valida.Text = "Validar Intmex_Reparto"
b_enviar.Text = "Enviar Intmex Reparto"
b_valida.Text = "Validar Intmex Reparto"
b_enviar.Enabled = True
Log("Cargamos Intmex_Reparto")
else if empresa.ToUpperCase.Contains("MARQUEZ_REPARTO") Then
b_enviar.Text = "Enviar Marquez_Reparto"
b_valida.Text = "Validar Marquez_Reparto"
b_enviar.Text = "Enviar Marquez Reparto"
b_valida.Text = "Validar Marquez Reparto"
b_enviar.Enabled = True
Log("Cargamos Marquez_Reparto")
else if empresa.ToUpperCase.Contains("MAZAPA_REPARTO") Then
b_enviar.Text = "Enviar Mazapa_Reparto"
b_valida.Text = "Validar Mazapa_Reparto"
b_enviar.Text = "Enviar Mazapa Reparto"
b_valida.Text = "Validar Mazapa Reparto"
b_enviar.Enabled = True
Log("Cargamos Mazapa_Reparto")
else if empresa.ToUpperCase.Contains("DURAKELO_REPARTO") Then
b_enviar.Text = "Enviar Durakelo_Reparto"
b_valida.Text = "Validar Durakelo_Reparto"
b_enviar.Text = "Enviar Durakelo Reparto"
b_valida.Text = "Validar Durakelo Reparto"
b_enviar.Enabled = True
Log("Cargamos Durakelo_Reparto")
else if empresa.ToUpperCase.Contains("PROFINA_REPARTO") Then
b_enviar.Text = "Enviar Profina_Reparto"
b_valida.Text = "Validar Profina_Reparto"
b_enviar.Text = "Enviar Profina Reparto"
b_valida.Text = "Validar Profina Reparto"
b_enviar.Enabled = True
Log("Cargamos Profina_Reparto")
else if empresa.ToUpperCase.Contains("INTMEX") Then
@@ -517,7 +528,7 @@ Sub ActualizarEtiquetasReparto
Else
totalcantped = 0
End If
Log(r5.GetString("HVD_RECHAZOCANT") &" - "& totalcantped)
' Log(r5.GetString("HVD_RECHAZOCANT") &" - "& totalcantped)
rescant = rescant + ((r5.GetString("HVD_COSTO_TOT")/(r5.GetString("HVD_CANT")))*((r5.GetString("HVD_RECHAZOCANT") - totalcantped)))
r6.Close
Next
@@ -580,7 +591,7 @@ Sub ActualizarEtiquetasReparto
r5.Position = 0
rescant4 = r5.GetString("HVD_COSTO_TOT")
End If
Log(rescant4)
' Log(rescant4)
r5.Close
Catch
Log(LastException)