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

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"
@@ -6149,6 +6155,8 @@ Partial Class Ventas
         If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
     End Sub
 
+
+
     Private Sub CargaEmpresaCRM(CveEmpresaCRM As Integer)
         Dim ObjCRM As New ClsCRM
         If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM) Then
@@ -6165,7 +6173,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 +6184,28 @@ 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"
+
+                    tdTelefonoGen.Visible = False
+                    tdTxtTelefonoGen.Visible = False
+
+
 
                 End If
                 Me.CveVendedorEmpresaCRM = ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString().ToEntero()
@@ -6184,16 +6213,22 @@ 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
 
 
             ThTiempoEntrega.Visible = True
-                ThTiempoEntrega2.Visible = True
-                GvPS.Columns(5).Visible = True
+            ThTiempoEntrega2.Visible = True
+            GvPS.Columns(5).Visible = True
 
         End If
         ObjCRM.Dispose()
     End Sub
+
+
     Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = -1)
 
         If CveCliente <= 0 Then Exit Sub