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