Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/Ventas.aspx.vb

@@ -2407,7 +2407,7 @@ Partial Class Ventas
             UpFacturar.Update()
             'CargaTiposDocumentos()
             TrEmitir.Visible = False
-            If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+            If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83, 172, 173) Then
                 DivCartaPorte.Visible = True
             End If
             ViewState("EstablecioFolio") = False
@@ -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"
@@ -6164,6 +6170,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
@@ -6180,7 +6188,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()
@@ -6190,8 +6199,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()
@@ -6199,16 +6228,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
@@ -17801,7 +17836,7 @@ Partial Class Ventas
         End If
 
         'SI NO TIENE LA FUNCIONALIDAD VALIDARA LAS MONEDAS
-        If Not UsuarioActual.Empresa.Funcionalidad(524) <> "" Then
+        If UsuarioActual.Empresa.Funcionalidad(524) <> "" Then
             If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count >= 1 Then
                 Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
                 If DrPS IsNot Nothing Then