-- corrección colectivas

Bancos/OtrosIE.aspx.vb

@@ -565,7 +565,7 @@ Partial Class Bancos_OtrosIE
         End If
 
         If TipoBeneficiario > 0 And TipoBeneficiario < 7 Then
-            If ObjColectiva.GetColectivas(CveColectiva, "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
+            If ObjColectiva.GetColectivas(UsuarioActual.CveEmpresa, CveColectiva:=CveColectiva) Then
                 If ObjColectiva.DtResultados.Rows.Count > 0 Then
                     TxtPagueseA.Text = ObjColectiva.Colectiva
                 Else

Bancos/PopUpBuscarColectiva.aspx.vb

@@ -46,7 +46,7 @@ Partial Class Bancos_PopUpBuscarColectiva
         If TxtColectiva.Text.Trim <> String.Empty Then Colectiva = TxtColectiva.Text.Trim
         If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim
 
-        If ObjColectiva.GetColectivas(-1, Colectiva, Codigo, DdlTipo.SelectedValue, UsuarioActual.CveEmpresa) Then
+        If ObjColectiva.GetColectivas(UsuarioActual.CveEmpresa, Tipo:=DdlTipo.SelectedValue) Then
 
             If ObjColectiva.DtResultados.Rows.Count > 0 Then
                 LtlTotalRegistros.Text = ObjColectiva.DtResultados.Rows.Count.ToString.FormatoNumero(0)

General/Colectivas.aspx.vb

@@ -17,7 +17,7 @@ Partial Class General_Colectivas
 
     Public Sub CargaDatos()
         Dim ObjColectiva As New ClsGenerales
-        If ObjColectiva.GetColectivas(-1, "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
+        If ObjColectiva.GetColectivas(UsuarioActual.CveEmpresa) Then
             ViewState("DTColectivas") = ObjColectiva.DtResultados
         Else
             Me.GvDatos.DataSource = Nothing

OC/CotizacionEnLinea.aspx.vb

@@ -232,7 +232,7 @@ Partial Class OC_CotizacionEnLinea
             ElseIf objCotizacion.CveColectiva > 0 Then
                 Dim objColectiva As New ClsGenerales
 
-                If objColectiva.GetColectivas(CveColectiva, "-1", "-1", "1", CveEmpresa) Then
+                If objColectiva.GetColectivas(CveEmpresa, CveColectiva:=CveColectiva) Then
                     If objColectiva.DtResultados.Rows.Count > 0 Then
                         lblProveedor.Text = objColectiva.DtResultados.Rows(0)("Colectiva").ToString
                     End If
@@ -293,9 +293,9 @@ Partial Class OC_CotizacionEnLinea
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
         Dim objCotizacion As New ClsOC
         objCotizacion.IniciaTransacSQL()
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
-        If objCotizacion.UpdateCotizacion(CveProveedor, CveColectiva, TxtFolio.Text, NowADS().ToShortDateString(), IO.Path.GetExtension(FUArchivo.FileName), ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, 0, CveCotizacion) Then
+        If objCotizacion.UpdateCotizacion(CveProveedor, CveColectiva, TxtFolio.Text, ClsPaginas.NowADS().ToShortDateString(), IO.Path.GetExtension(FUArchivo.FileName), ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, 0, CveCotizacion) Then
 
             If FUArchivo.HasFile Then
                 'verificar que exista el directorio
@@ -364,7 +364,7 @@ Partial Class OC_CotizacionEnLinea
         Dim strBody As New StringBuilder
 
         If objCotizacion.GetOC(CveOrdenCompra, CveEmpresa) Then
-            Dim Folio = "", Descripcion = "", Justificacion = "", Estatus = "", Empresa = "", FechaEstimadaEntrega = ""
+            Dim Folio As String = "", Descripcion As String = "", Justificacion As String = "", Estatus As String = "", Empresa As String = "", FechaEstimadaEntrega As String = ""
 
             Folio = objCotizacion.Folio.ToString
             Descripcion = objCotizacion.Descripcion
@@ -509,7 +509,7 @@ Partial Class OC_CotizacionEnLinea
     Protected Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            e.Row.FCCalendarExtender("CEFechaEntrega").StartDate = NowADS()
+            e.Row.FCCalendarExtender("CEFechaEntrega").StartDate = ClsPaginas.NowADS()
             e.Row.FCTextBox("TxtPU").Attributes.Add("onchange", String.Format("$get('{0}').value =  FormatNumber(parseFloat(this.value) * parseFloat($get('{1}').value), 2, true, true, true);", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.FCTextBox("TxtCant").ClientID))
 
             Page.ClientScript.RegisterExpandoAttribute(e.Row.FCCustomValidator("CVFechaEntrega").ClientID, "txtCantidadSurtir", e.Row.FCTextBox("txtCantidadSurtir").ClientID, False)

OC/CotizacionEnvio.aspx.vb

@@ -86,7 +86,7 @@ Partial Class OC_CotizacionEnvio
     Protected Sub CargaColectivas()
         Dim objColectiva As New ClsGenerales
 
-        If objColectiva.GetColectivas(-1, "-1", "-1", "1", UsuarioActual.CveEmpresa) Then
+        If objColectiva.GetColectivas(UsuarioActual.CveEmpresa, -1) Then
             DtColectivas = objColectiva.DtResultados
 
             ddlColectiva.DataSource = DtColectivas
@@ -272,7 +272,7 @@ Partial Class OC_CotizacionEnvio
 
             If TieneError = False Then
                 Dim Body As String
-                For i = 0 To Correo.Count - 1
+                For i As Integer = 0 To Correo.Count - 1
                     'Dim Body As String = GeneraCorreo(objCotizacion.CveCotizacion, objCotizacion)
 
                     Body = GeneraCorreo(OrdenCotizacion(i), objCotizacion)