Facturación Cíclica

Ashx/SIGFacturacionCiclica.ashx

@@ -344,7 +344,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
             Dim DtDetalle As DataTable = Nothing
             Dim objContratos As New ClsContratos
             If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero) Then
-                DtDetalle = objContratos.DtResultados
+                DtDetalle = objContratos.DtResultados.FiltraParametros("CveTipoPresupuesto=2")
             Else
                 DtDetalle = Nothing
             End If

Contratos/Contrato.aspx.vb

@@ -1009,16 +1009,17 @@ Partial Class Contratos_Default
                 ChkAplicaFacCiclica.Checked = CBool(ObjContratos.DtResultados.Rows(0)("FacturacionCicilica"))
 
                 If ChkAplicaFacCiclica.Checked Then
-                    CargaPeriodos()
-
                     ChkFacAutomatica.Checked = CBool(ObjContratos.DtResultados.Rows(0)("FacturacionCiclicaAutomatico"))
-
-                    DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo"))
-                    DdlPeriodo_SelectedIndexChanged(DdlPeriodo, EventArgs.Empty)
-
                     DdlDiaFact.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("DiaMesFacturacion").ToString())
                     TxtObservaciones.Text = ObjContratos.DtResultados.Rows(0)("Observaciones").ToString
                     ChkAplicaFacCiclica_CheckedChanged(ChkAplicaFacCiclica, EventArgs.Empty)
+
+                    If ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString().ToEntero() > 0 Then
+                        DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString().ToEntero())
+                        DdlPeriodo_SelectedIndexChanged(DdlPeriodo, EventArgs.Empty)
+                    End If
+                    UpFacCiclica.Update()
+
                 End If
 
 
@@ -3558,6 +3559,8 @@ Partial Class Contratos_Default
     End Sub
 
     Private Sub CargaPeriodos()
+        DdlPeriodo.Items.Clear()
+
         Dim ObjContratos As New ClsContratos
         If ObjContratos.GetPeriodos(-1, UsuarioActual.CveEmpresa) Then
             DtPeriodo = ObjContratos.DtResultados
@@ -3568,6 +3571,8 @@ Partial Class Contratos_Default
         ObjContratos.Dispose()
 
         DdlPeriodo.DataBind()
+        DdlPeriodo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
         UpGral.Update()
     End Sub
     Protected Sub DdlPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -4490,6 +4495,7 @@ Partial Class Contratos_Default
     Protected Sub ChkAplicaFacCiclica_CheckedChanged(sender As Object, e As EventArgs)
         DivFacCiclica.Visible = ChkAplicaFacCiclica.Checked
         DivCiclosComerciales.Visible = ChkAplicaFacCiclica.Checked
+        CargaPeriodos()
 
         UpFacCiclica.Update()
     End Sub

Contratos/FacturacionMasiva.aspx.vb

@@ -542,7 +542,7 @@ Partial Class Contratos_FacturacionMasiva
 
         Dim objContratos As New ClsContratos
         If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero) Then
-            DTDetalle = objContratos.DtResultados
+            DTDetalle = objContratos.DtResultados.FiltraParametros("CveTipoPresupuesto=2")
         Else
             DTDetalle = Nothing
         End If