EMD. cambios en contratos

Contratos/Contrato.aspx.vb

@@ -487,6 +487,10 @@ Partial Class Contratos_Default
         End If
         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then divResponsable.Visible = False
 
+        If UsuarioActual.CveEmpresa = 13 Then
+            rpCompra.Visible = False
+        End If
+
     End Sub
 
     Public Sub CargaDireccionesEnvios(CveCliente As Integer)
@@ -728,11 +732,11 @@ Partial Class Contratos_Default
             DvTotal.Visible = True
 
 
-            If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
+            If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then
                 TableDatosCabecera.Visible = True
             End If
 
-            If CveContratoTipo = 25 Then
+            If CveContratoTipo.Contiene(25, 33) Then
                 DvMax.Visible = False
                 DvMin.Visible = False
                 DvTotal.Visible = False
@@ -749,11 +753,11 @@ Partial Class Contratos_Default
             DvTotal.Visible = True
             'TxtCantidad.Visible = False
 
-            If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
+            If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then
                 TableDatosCabecera.Visible = True
             End If
 
-            If CveContratoTipo = 25 Then
+            If CveContratoTipo.Contiene(25, 33) Then
                 DvMax.Visible = False
                 DvMin.Visible = False
                 DvTotal.Visible = False
@@ -835,6 +839,48 @@ Partial Class Contratos_Default
                 CargaPlantillas()
                 TrContratoPlantilla.Visible = True
                 TabPres.HeaderText = "Partidas"
+            End If
+
+
+            If CveContratoTipo = 33 Then
+                TabContratosGastos.Visible = False
+                TabAF.Visible = False
+                TabReporteAvance.Visible = False
+                TabAvanveDocumento.Visible = False
+                TabContratosGastos.Visible = False
+                TabAF.Visible = False
+                TabPed.Visible = False
+                TabAddendum.Visible = False
+                TabFacCiclica.Visible = False
+
+                TabPVInsumos.Visible = False
+
+                thOcCliente.Visible = False
+                tdOcCliente.Visible = False
+
+                thLimitar.Visible = False
+                tdLimitar2.Visible = False
+
+                trLicitacion.Visible = False
+                divResponsable.Visible = False
+                'TrPeriodo.Visible = True
+                trIva.Visible = False
+                trAnticipo.Visible = False
+                trAmortizacion.Visible = False
+                trPorGarantia.Visible = False
+                DvMin.Visible = False
+                RowFlexible.Visible = False
+                RowPorcentajeComision.Visible = False
+                DvMax.Visible = False
+                DvTotal.Visible = False
+                'RowEstatus.Visible = False
+                DdlSubProyectoContrato.AutoPostBack = False
+
+                dvAddendum.Visible = False
+
+                DivFianzas.Visible = False
+                Div4.Visible = False
+                DivImpuestosLocales.Visible = False
             End If
 
 
@@ -938,6 +984,27 @@ Partial Class Contratos_Default
 
                     thLimitar.Visible = False
                     tdLimitar2.Visible = False
+
+                    trLicitacion.Visible = False
+                    divResponsable.Visible = False
+                    'TrPeriodo.Visible = True
+                    trIva.Visible = False
+                    trAnticipo.Visible = False
+                    trAmortizacion.Visible = False
+                    trPorGarantia.Visible = False
+                    DvMin.Visible = False
+                    RowFlexible.Visible = False
+                    RowPorcentajeComision.Visible = False
+                    DvMax.Visible = False
+                    DvTotal.Visible = False
+                    RowEstatus.Visible = False
+                    DdlSubProyectoContrato.AutoPostBack = False
+
+                    dvAddendum.Visible = False
+
+                    DivFianzas.Visible = False
+                    Div4.Visible = False
+                    DivImpuestosLocales.Visible = False
                 End If
 
                 If ObjContratos.CveProveedor > 0 Then
@@ -1232,20 +1299,23 @@ Partial Class Contratos_Default
 
     Private Sub CargarFianzas()
 
-        DivFianzas.Visible = True
-
-        Dim ObjContrato As ClsContratos = New ClsContratos()
-
-        If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
-            DtTmpFianzas = ObjContrato.DtResultados
-            GvFianzas.DataSource = ObjContrato.DtResultados
-
-            DtTmpFianzasInicial = DtTmpFianzas.Copy()
-
+        If CveContratoTipo <> 33 Then
+            DivFianzas.Visible = True
+
+            Dim ObjContrato As ClsContratos = New ClsContratos()
+
+            If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
+                DtTmpFianzas = ObjContrato.DtResultados
+                GvFianzas.DataSource = ObjContrato.DtResultados
+
+                DtTmpFianzasInicial = DtTmpFianzas.Copy()
+
+            End If
+
+            ObjContrato.Dispose()
+            GvFianzas.DataBind()
         End If
 
-        ObjContrato.Dispose()
-        GvFianzas.DataBind()
         UpGvFianzas.Update()
 
     End Sub