mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-20 11:39:13 +00:00
29/11/23 - Cambios en respaldo diario
- Se agregó´la table CAT_RMI al respaldo. - Cuando se restaura el respaldo, se suma el abordo al inventario de CAT_GUNAPROD2. - Se agregó códigp para el limite de abordo (No esta terminado)
This commit is contained in:
@@ -284,11 +284,13 @@ Sub Class_Globals
|
||||
Dim precision As Int = 0
|
||||
Dim clienteDeudor As Boolean = False
|
||||
Dim usarGeocerca As Boolean = False
|
||||
Dim clienteId As String
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
Public Sub Initialize As Object
|
||||
kh.Initialize(Me, "kh")
|
||||
kh.Initialize(Me, "kh", Starter.skmt)
|
||||
kh.RD_Init
|
||||
Return Me
|
||||
End Sub
|
||||
|
||||
@@ -318,13 +320,20 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
cuenta = c.GetString("CAT_CL_CODIGO")
|
||||
La_nombre.Text = c.GetString("CAT_CL_NOMBRE")
|
||||
NOMBRE = c.GetString("CAT_CL_NOMBRE")
|
||||
la_Calle.Text = c.GetString("CAT_CL_CALLE") & c.GetString("CAT_CL_NOEXT")
|
||||
la_col.Text = c.GetString("CAT_CL_COLONIA")
|
||||
la_edo.Text = c.GetString("CAT_CL_EDO")
|
||||
la_Calle.Text = "N/A"
|
||||
Log("|"&c.GetString("CAT_CL_CALLE")&"|")
|
||||
If c.GetString("CAT_CL_CALLE") <> Null Then la_Calle.Text = c.GetString("CAT_CL_CALLE") & c.GetString("CAT_CL_NOEXT")
|
||||
la_col.Text = "N/A"
|
||||
If c.GetString("CAT_CL_COLONIA") <> Null Then la_col.Text = c.GetString("CAT_CL_COLONIA")
|
||||
la_edo.Text = "N/A"
|
||||
If c.GetString("CAT_CL_EDO") <> Null Then la_edo.Text = c.GetString("CAT_CL_EDO")
|
||||
la_cp.Text = c.GetString("CAT_CL_CP")
|
||||
l_entre1.Text = c.GetString("CAT_CL_CALLE1")
|
||||
l_entre2.Text = c.GetString("CAT_CL_CALLE2")
|
||||
l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
|
||||
l_entre1.Text = "N/A"
|
||||
If c.GetString("CAT_CL_CALLE1") <> Null Then l_entre1.Text = c.GetString("CAT_CL_CALLE1")
|
||||
l_entre2.Text = "N/A"
|
||||
If c.GetString("CAT_CL_CALLE2") <> Null Then l_entre2.Text = c.GetString("CAT_CL_CALLE2")
|
||||
l_atiende.Text = "N/A"
|
||||
If c.GetString("CAT_CL_ATIENDE1") <> Null Then l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
|
||||
l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
|
||||
la_saldotot.Text = c.GetString("CAT_CL_TELEFONO")
|
||||
la_saldooper.Text = c.GetString("CAT_CL_EMAIL")
|
||||
@@ -337,8 +346,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
If c.GetString("CAT_CL_LONG") <> Null And c.GetString("CAT_CL_LONG") <> "null" And IsNumber(c.GetString("CAT_CL_LONG")) Then LONGITUD = c.GetString("CAT_CL_LONG")
|
||||
LATITUD = 0
|
||||
If c.GetString("CAT_CL_LAT") <> Null And c.GetString("CAT_CL_LAT") <> "null" And IsNumber(c.GetString("CAT_CL_LAT")) Then LATITUD = c.GetString("CAT_CL_LAT")
|
||||
l_categoria2.text = c.GetString("CAT_CL_CATEGORIA")
|
||||
l_segmento2.text = c.GetString("CAT_CL_SEGMENTO")
|
||||
l_categoria2.text = "N/A"
|
||||
If c.GetString("CAT_CL_CATEGORIA") <> Null Then l_categoria2.text = c.GetString("CAT_CL_CATEGORIA")
|
||||
l_segmento2.text = "N/A"
|
||||
If c.GetString("CAT_CL_SEGMENTO") <> Null Then l_segmento2.text = c.GetString("CAT_CL_SEGMENTO")
|
||||
If logger Then Log($"Lon: ${LONGITUD}, Lat: ${LATITUD}"$)
|
||||
Else
|
||||
RutaBoleta=Starter.rutaV
|
||||
@@ -369,6 +380,9 @@ End Sub
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
|
||||
Sub B4XPage_Appear
|
||||
clienteId = kh.traeCliente(Starter.skmt)
|
||||
If clienteId.StartsWith("N") Then b_noVenta.Visible = False
|
||||
Log($"TOTAL VENTA: ${kh.traeTotalCliente}"$)
|
||||
B_VENTA.Visible = False
|
||||
b_noVenta.Visible = False
|
||||
' Log(Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
|
||||
@@ -430,15 +444,32 @@ Sub B4XPage_Appear
|
||||
c.Position=0
|
||||
la_cuenta.Text = c.GetString("CAT_CL_CODIGO")
|
||||
La_nombre.Text = c.GetString("CAT_CL_NOMBRE")
|
||||
la_Calle.Text = c.GetString("CAT_CL_CALLE") & " " & c.GetString("CAT_CL_NOEXT")
|
||||
la_col.Text = c.GetString("CAT_CL_COLONIA")
|
||||
la_edo.Text = c.GetString("CAT_CL_EDO")
|
||||
la_Calle.Text = "N/A"
|
||||
' Log("|"&c.GetString("CAT_CL_CALLE")&"|")
|
||||
If c.GetString("CAT_CL_CALLE") <> Null And c.GetString("CAT_CL_CALLE") <> "null" Then la_Calle.Text = c.GetString("CAT_CL_CALLE") & c.GetString("CAT_CL_NOEXT")
|
||||
la_col.Text = "N/A"
|
||||
If c.GetString("CAT_CL_COLONIA") <> Null And c.GetString("CAT_CL_COLONIA") <> "null" Then la_col.Text = c.GetString("CAT_CL_COLONIA")
|
||||
la_edo.Text = "N/A"
|
||||
If c.GetString("CAT_CL_EDO") <> Null And c.GetString("CAT_CL_EDO") <>"null" Then la_edo.Text = c.GetString("CAT_CL_EDO")
|
||||
la_cp.Text = c.GetString("CAT_CL_CP")
|
||||
l_entre1.Text = c.GetString("CAT_CL_CALLE1")
|
||||
l_entre2.Text = c.GetString("CAT_CL_CALLE2")
|
||||
l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
|
||||
l_entre1.Text = "N/A"
|
||||
If c.GetString("CAT_CL_CALLE1") <> Null And c.GetString("CAT_CL_CALLE1") <>"null" Then l_entre1.Text = c.GetString("CAT_CL_CALLE1")
|
||||
l_entre2.Text = "N/A"
|
||||
If c.GetString("CAT_CL_CALLE2") <> Null And c.GetString("CAT_CL_CALLE2") <> "null" Then l_entre2.Text = c.GetString("CAT_CL_CALLE2")
|
||||
l_atiende.Text = "N/A"
|
||||
If c.GetString("CAT_CL_ATIENDE1") <> Null And c.GetString("CAT_CL_ATIENDE1") <> "null" Then l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
|
||||
l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
|
||||
l_total.Text = s.GetString("TOTAL_CLIE")
|
||||
|
||||
' LONGITUD = 0
|
||||
' If c.GetString("CAT_CL_LONG") <> Null And c.GetString("CAT_CL_LONG") <> "null" And IsNumber(c.GetString("CAT_CL_LONG")) Then LONGITUD = c.GetString("CAT_CL_LONG")
|
||||
' LATITUD = 0
|
||||
' If c.GetString("CAT_CL_LAT") <> Null And c.GetString("CAT_CL_LAT") <> "null" And IsNumber(c.GetString("CAT_CL_LAT")) Then LATITUD = c.GetString("CAT_CL_LAT")
|
||||
' l_categoria2.text = "N/A"
|
||||
' If c.GetString("CAT_CL_CATEGORIA") <> Null Then l_categoria2.text = c.GetString("CAT_CL_CATEGORIA")
|
||||
' l_segmento2.text = "N/A"
|
||||
' If c.GetString("CAT_CL_SEGMENTO") <> Null Then l_segmento2.text = c.GetString("CAT_CL_SEGMENTO")
|
||||
|
||||
l_total.Text = kh.traeTotalCliente
|
||||
total_cliente = s.GetString("TOTAL_CLIE")
|
||||
' Log(Subs.sumaPedido(Subs.traeCliente) & " - " & total_cliente)
|
||||
m_lat =c.GetString("CAT_CL_LAT")
|
||||
@@ -463,7 +494,7 @@ Sub B4XPage_Appear
|
||||
NOMBRE = c.GetString("CAT_CL_NOMBRE")
|
||||
' Log(l_total.text)
|
||||
If l_total.Text = Null Or l_total.Text = "null" Then
|
||||
b_noVenta.Visible = True
|
||||
If Not(clienteId.StartsWith("N")) Then b_noVenta.Visible = True
|
||||
Else
|
||||
b_noVenta.Visible = False
|
||||
If la_cuenta.Text = "0" Then
|
||||
@@ -552,6 +583,7 @@ Sub B4XPage_Appear
|
||||
Else
|
||||
Guardar.Visible = True
|
||||
End If
|
||||
If Not(l_total.Text > 0) Then Guardar.Visible = True
|
||||
' If la_cuenta.text = "0" Then Guardar.Visible = True 'Abordo
|
||||
If l_total.Text = Null Or l_total.Text = "null" Or l_total.text = "0" Then Guardar.Visible = True 'Si no hay venta entonces "Guardar" es visible.
|
||||
|
||||
@@ -844,6 +876,8 @@ Sub Guardar_Click
|
||||
' B4XPages.ShowPageAndRemovePreviousPages("Principal")
|
||||
Guardar.SendToBack
|
||||
b_inicioFinVenta.Text = "TERMINAR VENTA"
|
||||
Log("RESPLDO")
|
||||
kh.respaldoBatch
|
||||
If la_cuenta.Text <> "0" Then 'Si es ABORDO, no mostramos el boton b_inicioFinVenta y regresamos a Principal.
|
||||
b_inicioFinVenta.Visible = True
|
||||
Else
|
||||
@@ -3750,7 +3784,7 @@ Private Sub b_geopass_Click
|
||||
Log($"${Starter.DBReqServer}, ${et_geopass.Text}, ${Subs.traeAlmacen}, ${Subs.traeRuta}"$)
|
||||
et_geopass.Text = ""
|
||||
End If
|
||||
b_noVenta.Visible = True
|
||||
If Not(clienteId.StartsWith("N")) Then b_noVenta.Visible = True
|
||||
p_pideGeoPass.Visible = False
|
||||
ime.HideKeyboard
|
||||
' Log("Guardamos coords")
|
||||
|
||||
Reference in New Issue
Block a user