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

CRM Ventas mostrar ocultar controles

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-11-19 09:41:05 -07:00
parent 0640cb89be
commit 8e613d55ec
2 changed files with 66 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Ventas/Ventas.aspx.vb
View File

@@ -2512,7 +2512,13 @@ Partial Class Ventas
TrObsAlmacen.Visible = False
TrTxtObsAlmacen.Visible = False
TrPedido.Visible = False
TrOC.Visible = False
DdlTipoComprobante.SelectedValue = "Op"
Else
Opcion = "Ing"
@@ -6165,7 +6171,8 @@ Partial Class Ventas
TxtCodigo.ReadOnly = True
UpCliente.Visible = True
UpEmpresaCRM.Visible = False
'UpEmpresaCRM.Visible = False
Else
LblEmpresaCRM.Text = ObjCRM.DtResultados.Rows(0)("Empresa").ToString()
LblRFCCRM.Text = ObjCRM.DtResultados.Rows(0)("RFC").ToString()
@@ -6175,8 +6182,24 @@ Partial Class Ventas
LblEnviarMail.Visible = False
UPCondicionesPago.Visible = True
UpCliente.Visible = False
UpEmpresaCRM.Visible = True
'UpCliente.Visible = False
'UpEmpresaCRM.Visible = True
trNombreCliente.Visible = False
trsucursalciente.Visible = False
TrDireccion.Visible = False
TrCiudad.Visible = False
TrRFC.Visible = False
TrOP.Visible = False
trDireccionEnvio.Visible = False
TrAtencionA.Visible = True
trCRM1.Visible = True
trCRM2.Visible = True
trCRM3.Visible = True
LblTituloPorletCliente.Text = "EMPRESA CRM"
End If
Me.CveVendedorEmpresaCRM = ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString().ToEntero()
@@ -6184,6 +6207,10 @@ Partial Class Ventas
DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString())
DdlVendedor.Enabled = False
LbAgregar.Enabled = True
'TrAtencionA.Visible = True
TrOC.Visible = True
End If