Facturacion ciclica

Contratos/Contrato.aspx.vb

@@ -705,9 +705,12 @@ Partial Class Contratos_Default
         End If
 
         TipoContrato = DdlTipoContrato.SelectedValue.ToEntero
-        TxtDescripcionTipoContrato.Text = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo = " & DdlTipoContrato.SelectedValue)(0)("Descripcion").ToString()
-        TxtDescripcionTipoContrato.Visible = True
-
+        If GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo = " & DdlTipoContrato.SelectedValue).Rows.Count > 0 Then
+            TxtDescripcionTipoContrato.Text = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo = " & DdlTipoContrato.SelectedValue)(0)("Descripcion").ToString()
+            TxtDescripcionTipoContrato.Visible = True
+        End If
+
+
         CargaContratoPadre()
         UpProyecto.Update()
     End Sub
@@ -725,6 +728,15 @@ Partial Class Contratos_Default
                 TableDatosCabecera.Visible = True
             End If
 
+            If CveTipoContrato = 25 Then
+                DvMax.Visible = False
+                DvMin.Visible = False
+                DvTotal.Visible = False
+
+                DivFianzas.Visible = False
+                DivImpuestosLocales.Visible = False
+            End If
+
         ElseIf modalidadDetalleInt = 2 Then
             ModalidadDetalle = 2
 
@@ -735,6 +747,15 @@ Partial Class Contratos_Default
 
             If CveContrato > 0 AndAlso CveTipoContrato <> 25 Then
                 TableDatosCabecera.Visible = True
+            End If
+
+            If CveTipoContrato = 25 Then
+                DvMax.Visible = False
+                DvMin.Visible = False
+                DvTotal.Visible = False
+
+                DivFianzas.Visible = False
+                DivImpuestosLocales.Visible = False
             End If
 
         End If
@@ -755,11 +776,13 @@ Partial Class Contratos_Default
             Exit Sub
         End If
 
+        Me.CveTipoContrato = DdlTipoContrato.SelectedValue.ToEntero
+
         'Dim TipoMov = GlobalDTContratosTipos.FiltroPrimeroValor("TipoMovimiento", $"CveContratoTipo='{CveTipoContrato}'").ToEntero
 
-        If rpCompra.Checked Then
-            Dim CveContratoTipo = DdlTipoContrato.SelectedValue.ToEntero
-            Response.Redirect($"/Contratos/Presupuestos.aspx?CveContrato=-1&CveContratoTipo={CveContratoTipo}")
+        If rpCompra.Checked Then
+
+            Response.Redirect($"/Contratos/Presupuestos.aspx?CveContrato=-1&CveContratoTipo={Me.CveTipoContrato}")
             'RegistraScript("window.location='/Contratos/Presupuestos.aspx")
         Else