Cambios en facturacion masiva de contratos

Contratos/FacturacionMasiva.aspx.vb

@@ -111,8 +111,9 @@ Partial Class Contratos_FacturacionMasiva
         If Not IsPostBack Then
             FolioVigentes = False
             CargaCombos()
-            txtFechaI.Text = DateTime.Today.ToString("d")
-            txtFechaF.Text = DateTime.Today.ToString("d")
+            Dim FechaRef = DateTime.Now
+            txtFechaI.Text = $"01/{FechaRef.Month}/{FechaRef.Year}"
+            txtFechaF.Text = txtFechaI.Text.ToDate().AddMonths(1).ToString("dd/MM/yyyy")
             CargaDatos(-1, -1)
             CreaDTVentas()
             Mensaje = ""
@@ -131,11 +132,44 @@ Partial Class Contratos_FacturacionMasiva
         ValidaFolio()
 
         Dim ObjContratos As New ClsContratos
-        If ObjContratos.CicloComercialGet(CveContrato, CveCliente, -1, UsuarioActual.CveEmpresa, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero) Then
-            DTCicloComercial = ObjContratos.DtResultados().FiltraParametros($"FueFacturado = 0")
-            GvCiclosComerciales.DataSource = DTCicloComercial
-        End If
-        ObjContratos.Dispose()
+        Try
+            If ObjContratos.CicloComercialGet(CveContrato, CveCliente, -1, UsuarioActual.CveEmpresa, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero) Then
+                DTCicloComercial = ObjContratos.DtResultados.Clone
+
+                For Each Row As DataRow In ObjContratos.DtResultados().FiltraParametros($"FueFacturado = 0").Rows
+
+                    If Row("Observaciones").ToString().Contains("{DIA}") Then
+                        Row("Observaciones") = Row("Observaciones").ToString().Replace("{DIA}", DateTime.Now.Day.ToString())
+                    End If
+
+                    If Row("Observaciones").ToString().Contains("{MES}") Then
+                        Dim fecha As DateTime = DateTime.Now
+                        Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
+                        Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
+
+                        Row("Observaciones") = Row("Observaciones").ToString().Replace("{MES}", nombreMes)
+                    End If
+
+                    If Row("Observaciones").ToString().Contains("{AÑO}") Then
+                        Row("Observaciones") = Row("Observaciones").ToString().Replace("{AÑO}", DateTime.Now.Year.ToString())
+                    End If
+
+                    If Row("Observaciones").ToString().Contains("{TC}") Then
+                        Row("Observaciones") = Row("Observaciones").ToString().Replace("{TC}", GlobalTipoCambio(Now).FormatoNumero)
+                    End If
+
+                    DTCicloComercial.Rows.Add(Row.ItemArray)
+                Next
+
+
+            End If
+        Catch ex As Exception
+            DTCicloComercial = Nothing
+            OnError("Ocurrió un error al obtener las facturas a realizar", ex)
+        End Try
+        ObjContratos.Dispose()
+
+        GvCiclosComerciales.DataSource = DTCicloComercial
         GvCiclosComerciales.DataBind()
         UpGv.Update()
     End Sub
@@ -174,14 +208,9 @@ Partial Class Contratos_FacturacionMasiva
         Dim sb As New StringBuilder()
 
         For Each row As GridViewRow In GvCiclosComerciales.Rows
-            If row.FCCheckBox("chkDis").Checked Then
-                Dim fecha As DateTime = DateTime.Now ', row.DataKey("FechaVenc").ToString.ToDateTime()
-                Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
-                Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
+            If row.FCCheckBox("chkDis").Checked Then
 
-                Dim Etiqueta As String = String.Format("{0} - {1}", nombreMes, fecha.Year)
-
-                Dim Resp = EmitirImprimir(row.DataKey("CveCicloComercial").ToString.ToEntero, Etiqueta)
+                Dim Resp = EmitirImprimir(row.DataKey("CveCicloComercial").ToString.ToEntero)
 
                 For Each Msg In Resp.Mensajes
                     sb.AppendFormat("{0}</br></br>", Msg)
@@ -212,10 +241,10 @@ Partial Class Contratos_FacturacionMasiva
         EjecutarFacturacion()
     End Sub
 
-    Private Function EmitirImprimir(pCveCicloComercial As Integer, Etiqueta As String) As Modelos.Factura.MMensajeFactura
+    Private Function EmitirImprimir(pCveCicloComercial As Integer) As Modelos.Factura.MMensajeFactura
         Dim Resp As New Modelos.Factura.MMensajeFactura
         ViewState("CveCicloComercial") = pCveCicloComercial
-        CreaObjetosVenta(Etiqueta)
+        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
@@ -438,7 +467,7 @@ Partial Class Contratos_FacturacionMasiva
         TmpDT.Columns.Add("CveTamaño", GetType(Integer))
         TmpDT.Columns.Add("EsCargo", GetType(Boolean))
     End Sub
-    Private Sub CreaObjetosVenta(Etiqueta As String, Optional VistaPrevia As Boolean = False)
+    Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False)
         Dim ObjFolios As New ClsGralFolios()
         Dim Folio As String = ""
         Dim Serie As String = ""
@@ -472,7 +501,7 @@ Partial Class Contratos_FacturacionMasiva
         ObjFactura.MetodoPago = "Efectivo"
         ObjFactura.FechaPago = DateTime.Today
         ObjFactura.MotivoDescuento = ""
-        ObjFactura.Observaciones = Etiqueta + " " + TxtObservaciones.Text + " " + DR("Observaciones").ToString
+        ObjFactura.Observaciones = TxtObservaciones.Text + " " + DR("Observaciones").ToString
         ObjFactura.FechaEjecucion = DateTime.Today
         'ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {1}")
         ObjFactura.UsuarioCreo = UsuarioActual.Usuario
@@ -553,9 +582,9 @@ Partial Class Contratos_FacturacionMasiva
             DtR("CodigoPS") = row("CodigoPS")
             DtR("SATClaveProdServ") = row("SATClaveProdServ")
             DtR("NoIdentificacion") = row("NoIdentificacion")
-            DtR("CveTipoPS") = DrPS("CveTipoPS")
-            DtR("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario")
-            DtR("Obs") = Etiqueta + " " + TxtObservaciones.Text + " " + row("Observacion").ToString
+            DtR("CveTipoPS") = drPS("CveTipoPS")
+            DtR("CveTipoInvPS") = drPS("Inv_CveMetodoInventario")
+            DtR("Obs") = TxtObservaciones.Text + " " + row("Observacion").ToString
             DtR("PU") = row("PU")
             DtR("IVA") = row("PorcentajeIVA")
             DtR("PorcentajeIVA") = row("PorcentajeIVA")