AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-05-02 18:15:45 -07:00
parent 7dcc122f15 ac485e848e
commit 23993e5851
22 changed files with 3996 additions and 3116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/PV.aspx.vb
View File

@@ -6759,7 +6759,7 @@ Partial Class PV
Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
Dim GeneroCliente As Boolean = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False)
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim.ToUpper, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero(), DdlFormaCliente.SelectedValue.ToEntero(), CvePrecioLista:=CvePrecioLista,

12
Ventas/RepComisionesSMS.aspx.vb
View File

@@ -66,6 +66,18 @@ Partial Class Ventas_RepComisionesSMS
GvDatos.Columns(19).Visible = False 'fecha pago
GvDatos.Columns(20).Visible = False 'pagada
End If
'ocultar columnas en usuario almacen.
If UsuarioActual.CveRol = 1578 Then 'almacen
GvDatos.Columns(11).Visible = False 'precio unitario
GvDatos.Columns(12).Visible = False 'precio total
GvDatos.Columns(14).Visible = False 'vendedor
GvDatos.Columns(16).Visible = False 'tecnico
GvDatos.Columns(17).Visible = False 'gerente
GvDatos.Columns(18).Visible = False 'ed.medica
GvDatos.Columns(19).Visible = False 'fecha pago
GvDatos.Columns(20).Visible = False 'pagada
End If
End Sub
Public Sub CargaDatos()