diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 8e1a04e7f..ede09d720 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -404,7 +404,8 @@
-
Cliente:
+
+
@@ -424,20 +425,15 @@
-
+
+
| Nombre: |
|
Enviar Mail: |
|
-
- <%--
- | Facturar Sucursal : |
-
-
- |
-
--%>
+
|
@@ -510,6 +506,26 @@
|
+
+ <%--CRM--%>
+
+ | Empresa: |
+
+ |
+
+
+ | RFC: |
+
+ |
+
+
+ | Medio de Captación:: |
+
+ |
+
+ <%--CRM--%>
+
+
| Atención A: |
@@ -536,16 +552,20 @@
|
+
+
+
+
-
+<%--
-
+
EMPRESA CRM
@@ -557,26 +577,15 @@
-
- | Empresa: |
-
- |
-
-
- | RFC: |
-
- |
-
-
- | Medio de Captación:: |
-
- |
-
+
+
+
+
-
+ --%>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2580050e6..c6771c026 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -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