Facturación Cíclica

Contratos/FacturacionMasiva.aspx.vb

@@ -195,7 +195,10 @@ Partial Class Contratos_FacturacionMasiva
     End Sub
 
     Protected Sub btnConsultar_Click(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click
-        CargaDatos(DdlContrato.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero)
+        Dim CveContrato As Integer = If(DdlContrato.SelectedValue.ToEntero <= 0, -1, DdlContrato.SelectedValue.ToEntero)
+        Dim CveCliente As Integer = If(DdlCliente.SelectedValue.ToEntero <= 0, -1, DdlCliente.SelectedValue.ToEntero)
+
+        CargaDatos(CveContrato, CveCliente)
         RegistraScript("$('#ex').removeClass('expand');$('#ex').addClass('collapse');$('.portlet-body').css('display', '');")
     End Sub
 
@@ -232,7 +235,10 @@ Partial Class Contratos_FacturacionMasiva
             Alert("No se generaron facturas", TipoMensaje.MsgAdvertencia)
         End If
 
-        CargaDatos(DdlContrato.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero)
+        Dim CveContrato As Integer = If(DdlContrato.SelectedValue.ToEntero <= 0, -1, DdlContrato.SelectedValue.ToEntero)
+        Dim CveCliente As Integer = If(DdlCliente.SelectedValue.ToEntero <= 0, -1, DdlCliente.SelectedValue.ToEntero)
+
+        CargaDatos(CveContrato, CveCliente)
         RegistraScript("$('#divAgregar').modal('hide')")
         UpBodyEstatus.Update()
     End Sub
@@ -245,6 +251,7 @@ Partial Class Contratos_FacturacionMasiva
         Dim Resp As New Modelos.Factura.MMensajeFactura
         ViewState("CveCicloComercial") = pCveCicloComercial
         CreaObjetosVenta()
+
         If ObjFactura Is Nothing Or ObjFactura.Cliente Is Nothing Then
             Alert("Ocurrió un error al procesar los datos de la Venta.", TipoMensaje.MsgError)
             ObjFactura = Nothing
@@ -253,7 +260,7 @@ Partial Class Contratos_FacturacionMasiva
 
 
         If ObjFactura.CveCliente > 0 Then
-            If DTDetalle.Rows.Count > 0 Then
+            If ObjFactura.DtDetalle.Rows.Count > 0 Then
 
                 Resp = ObjFactura.EmitirFactura()
 
@@ -468,9 +475,7 @@ Partial Class Contratos_FacturacionMasiva
         TmpDT.Columns.Add("EsCargo", GetType(Boolean))
     End Sub
     Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False)
-        Dim ObjFolios As New ClsGralFolios()
-        Dim Folio As String = ""
-        Dim Serie As String = ""
+
         Dim CveProyecto As String = ""
         Dim CveSubProyecto As String = ""
         Dim Proyecto As String = ""
@@ -479,21 +484,21 @@ Partial Class Contratos_FacturacionMasiva
         ObjFactura = New Modelos.Factura(UsuarioActual)
         ObjFactura.DirectorioServidor = Server.MapPath("/")
         ObjFactura.CveCicloComercial = CveCicloComercial
+
         Dim DR As DataRow = DTCicloComercial.FiltroPrimero($"CveCicloComercial = {CveCicloComercial}")
 
         ObjFactura.Version = "3.3"
         ObjFactura.CveUsuario = UsuarioActual.CveUsuario
         ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
-        ObjFactura.TipoCambio = 20
+        ObjFactura.TipoCambio = 1
         ObjFactura.ConvertirPesos = False
         ObjFactura.CveMoneda = DR("CveMoneda").ToString.ToEntero
         ObjFactura.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
         ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DR("CveMoneda").ToString.ToEntero}")
         ObjFactura.TipoDocto = "Ing"
         ObjFactura.RefDocto = ""
-        ObjFactura.Folio = Folio.ToEntero
-        'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
-        ObjFactura.Serie = Serie
+        ObjFactura.Folio = -1
+        ObjFactura.Serie = "-1"
         ObjFactura.CveMesa = -1
         ObjFactura.Fecha = DR("FechaVenc").ToString.ToDate
         ObjFactura.CvePrePoliza = -1
@@ -533,18 +538,7 @@ Partial Class Contratos_FacturacionMasiva
         ObjFactura.CveSubProyectoEjecucion = CveSubProyecto.ToEntero
 
 
-        SubProyecto = DR("SubProyectoContrato").ToString
-
-
-        If ObjFolios.GetFolios("Ing", UsuarioActual.CveEmpresa) Then
-            Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format($" Estado = 'Activo' AND CveSubProyecto = {CveSubProyecto} "))
-            If DT.Rows.Count > 0 Then
-                Serie = DT.Rows(0)("Serie").ToString
-                Folio = DT.Rows(0)("FActual").ToString
-            End If
-            DT.Dispose()
-        End If
-        ObjFolios.Dispose()
+        SubProyecto = DR("SubProyectoContrato").ToString
 
         Dim objContratos As New ClsContratos
         If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero) Then
@@ -561,8 +555,6 @@ Partial Class Contratos_FacturacionMasiva
         ObjFactura.RetISR = SUM(DTDetalle, "ImporteRetISR").ToDecimal
         ObjFactura.IEPS = SUM(DTDetalle, "ImporteIEPS").ToDecimal
         ObjFactura.Total = ObjFactura.SubTotal + ObjFactura.IVA + ObjFactura.IEPS - (ObjFactura.RetIVA + ObjFactura.RetISR)
-        ObjFactura.Serie = Serie
-        ObjFactura.Folio = Folio.ToEntero
 
         For Each row As DataRow In DTDetalle.Rows
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=row("CvePS").ToString().ToEntero()).FiltroPrimero("")