From dea9934dc73000af97af06fc3e05265b402ca318 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 6 Nov 2020 16:25:49 -0700
Subject: [PATCH] =?UTF-8?q?Facturaci=C3=B3n=20C=C3=ADclica?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ashx/SIGFacturacionCiclica.ashx     |  2 +-
 Contratos/Contrato.aspx.vb          | 18 ++++++++++++------
 Contratos/FacturacionMasiva.aspx.vb |  2 +-
 3 files changed, 14 insertions(+), 8 deletions(-)

diff --git a/Ashx/SIGFacturacionCiclica.ashx b/Ashx/SIGFacturacionCiclica.ashx
index ca832ce20..efa477a6f 100644
--- a/Ashx/SIGFacturacionCiclica.ashx
+++ b/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
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 8753cc67a..789944859 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/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
diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb
index 2cc589153..b9f676193 100644
--- a/Contratos/FacturacionMasiva.aspx.vb
+++ b/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