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

vistas...

Browse Source
This commit is contained in:
cvaldes1201
2024-05-20 09:53:42 -06:00
parent 0a184e3baf
commit 2a8817aa02
24 changed files with 704 additions and 1855 deletions
Download Patch File Download Diff File Expand all files Collapse all files

137
B4A/C_Principal.bas
View File

@@ -6,7 +6,7 @@ Version=11.5
@EndOfDesignText@
Sub Class_Globals
Public rp As RuntimePermissions
Dim kh As kms_helperSubs
Dim s As C_Subs
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Dim reqManager As DBRequestManager
@@ -226,6 +226,7 @@ Sub Class_Globals
Private p_principal As Panel
Private p_mandaInfo As Panel
Private l_version As Label
Private p_marcascodigo As Panel
End Sub
'You can add more parameters here.
@@ -239,10 +240,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
'load the layout to Root
Root.LoadLayout("principal")
B4XPages.SetTitle(Me, $"${Subs.capitalizar(B4XPages.GetPageId(Me))} ${Application.VersionName}"$)
kh.Initialize(Me, "Subs")
s.Initialize(Me, "Subs")
p_mandaInfo.Width = Root.Width
p_mandaInfo.Height = Root.Height
kh.centraPanel(P1, Root.Width)
s.centraPanel(P1, Root.Width)
l_version.Text = Application.VersionName
' rd.Initialize 'Inicializamos el respaldo diario.
' rd.vacuum
@@ -315,7 +316,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub
Sub B4XPage_Appear
Subs.checaPedido
checaPedido
' s.reqManagerReInit 'Reiniciamos el DBReqManager de C_Subs por si hay modificacion en el servidor.
reqManager.Initialize(Me, Starter.DBReqServer)
' B4XPages.MainPage.cliente.mandaPendientes 'Ejecutamos mandaPendientes.
@@ -763,7 +764,7 @@ Sub cargar_Click
End If
If Not (pedidodiaanterior) Then
CARGA = "CARGAR"
kh.panelVisible(p_mandaInfo, 0, 0)
s.panelVisible(p_mandaInfo, 0, 0)
P1.Left = (p_mandaInfo.Width/2) - (P1.Width/2)
P1.top = (p_mandaInfo.Height/2) - (P1.Height/2)
img2.Visible =True
@@ -1775,7 +1776,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub
SCROLL_RESDIA.Visible = False
B_OK_RES_Click
Return False
Else if Panel5.Visible Then
Else if p_marcascodigo.Visible Then
B_OK_PANEL5_Click
Return False
Else
@@ -1789,7 +1790,7 @@ End Sub
Sub connecta_LongClick
ProgressDialogShow("Enviamos")
' s.reqManagerReInit 'Reiniciamos el DBReqManager por si hay modificacion en el servidor.
kh.envioTest 'Llamamos envioTest de C_Subs.
s.envioTest 'Llamamos envioTest de C_Subs.
End Sub
Sub tickets_dia_LongClick
@@ -1819,9 +1820,9 @@ Sub connecta_Click
imei = ""
conn = "1"
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version_MARDS"
reqManager.ExecuteQuery(cmd , 0, "version")
' cmd.Initialize
' cmd.Name = "select_version_MARDS"
' reqManager.ExecuteQuery(cmd , 0, "version")
' Cuando nos conectamos verificamos que el usuario guardado en BD sea VALIDO.
c = Starter.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
@@ -2027,7 +2028,7 @@ Sub B_OK_PAS_Click
Resumen.Visible= True
img2.Visible=False
Subs.panelVisible(p_principal, 0, 0)
Subs.checaPedido
checaPedido
Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
RES = Msgbox2("Seguro que desea abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If RES = DialogResponse.POSITIVE Then
@@ -2100,7 +2101,7 @@ Sub resdia_Click
SCROLL_RESDIA.Panel.LoadLayout("RESDIA")
SCROLL_RESDIA.Panel.Height = Panel4.Height
Panel4.Visible = True
p_mandaInfo.Visible = False
NUEVO.Visible =False
BUSCA.Visible=False
connecta.Visible=False
@@ -2300,7 +2301,7 @@ Sub B_COMM_Click
SCROLL_RESDIA.Visible = False
Panel5.Visible = True
p_marcascodigo.Visible = True
pnlTitle.Visible = False
pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
pnlTitle.LoadLayout("CellTitle")
@@ -2356,6 +2357,93 @@ Sub B_OK_COMISS_Click
End Sub
'Sub B_MARCAS_Click
'' SCROLL_RESDIA.Visible = False
'' Panel5.Visible = True
'' pnlTitle.Visible = False
'' pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
'' pnlTitle.LoadLayout("CellTitle")
'' c=Starter.skmt.ExecQuery("Select CAT_GP_CLASIF, sum(pe_costo_tot) As total from CATALOGO, pedido where pe_proid = cat_gp_id And pe_cliente <> 0 group by cat_gp_clasif")
''
'' CLV1.Clear
'' If c.RowCount>0 Then
'' For i=0 To c.RowCount -1
'' c.Position=i
'' AddTitle(c.GetString("CAT_GP_CLASIF"))
'' f=Starter.skmt.ExecQuery2("select * from HIST_AVANCE where HA_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
'' f.Position=0
'' If f.RowCount > 0 Then
'' CLV1.AddTextItem("VENTA = $" & f.GetString("HA_AVANCE"),"1")
'' CLV1.AddTextItem("META = $" & f.GetString("HA_OBJETIVO"),"1")
'' CLV1.AddTextItem("PORCENTAJE = %" & (f.GetString("HA_PORCENTAJE")) ,"1")
'' End If
'' f.Close
'' Next
'' End If
'' c.Close
'
' SCROLL_RESDIA.Visible = False
' Panel5.Visible = True
' pnlTitle.Visible = False
' pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
' pnlTitle.LoadLayout("CellTitle")
' c=Starter.skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF")
' CLV1.Clear
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
' AddTitle(c.GetString("CAT_GP_CLASIF"))
' If c.GetString("CAT_GP_CLASIF") = "PROMOS" Then
' d=Starter.skmt.ExecQuery("SELECT SUM(PE_CANT) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID")
' d.Position=0
' CLV1.AddTextItem("CANTIDAD DE PROMOS = " & d.GetString("CUANTOS"),"1")
' d.Close
' Else
' f=Starter.skmt.ExecQuery2("select COUNT(*) AS CUANTOS from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
' f.Position=0
' If f.GetString("CUANTOS") > 0 Then
' e=Starter.skmt.ExecQuery2("select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
' e.Position=0
' d=Starter.skmt.ExecQuery2("SELECT count(distinct(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF")))
' d.Position=0
' CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
' CLV1.AddTextItem("M E T A = $" & e.GetString("HMC_TOTAL"),"1")
' CLV1.AddTextItem("FALTA = $" & (e.GetString("HMC_TOTAL") - c.GetString("TOTAL")) ,"1")
' CLV1.AddTextItem("CLIENTES = " & d.GetString("CUANTOS"),"1")
' d.Close
' e.Close
' Else
' d=Starter.skmt.ExecQuery2("SELECT count(distinct(pe_cliente)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF")))
' d.Position=0
' CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
' CLV1.AddTextItem("M E T A = $" & "1000","1")
' CLV1.AddTextItem("FALTA = $" & (1000 - c.GetString("TOTAL")) ,"1")
' CLV1.AddTextItem("CLIENTES = " & d.GetString("CUANTOS"),"1")
' d.Close
'
'
'
' End If
' f.Close
' End If
' Next
' End If
' c.Close
' c=Starter.skmt.ExecQuery("Select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA not in (SELECT CAT_GP_CLASIF FROM TOTAL_MARCAS )")
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
' AddTitle(c.GetString("HMC_MARCA"))
' CLV1.AddTextItem("TOTAL PREVENTA = $ 0.00","1")
' CLV1.AddTextItem("M E T A = $" & C.GetString("HMC_TOTAL"),"1")
' CLV1.AddTextItem("CLIENTES = 0","1")
' Next
' End If
' c.Close
'
'
'End Sub
Sub B_MARCAS_Click
' SCROLL_RESDIA.Visible = False
' Panel5.Visible = True
@@ -2382,7 +2470,8 @@ Sub B_MARCAS_Click
' c.Close
SCROLL_RESDIA.Visible = False
Panel5.Visible = True
p_marcascodigo.Visible = True
' Panel5.BringToFront
pnlTitle.Visible = False
pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
pnlTitle.LoadLayout("CellTitle")
@@ -2438,6 +2527,7 @@ Sub B_MARCAS_Click
CLV1.AddTextItem("CLIENTES = 0","1")
Next
End If
' Panel5.Visible= True
c.Close
@@ -2456,7 +2546,7 @@ Sub AddTitle (Title As String)
End Sub
Sub B_OK_PANEL5_Click
Panel5.Visible = False
p_marcascodigo.Visible = False
NUEVO.Visible =True
BUSCA.Visible=True
connecta.Visible=True
@@ -2475,3 +2565,20 @@ Private Sub p_mandaInfo_Click
End Sub
Private Sub p_marcascodigo_Click
End Sub
'Revisa si el cliente tiene venta o No venta y si es así modifica gestion en kmt_info
Sub checaPedido
Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
End If
Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
End If
End Sub