-- corrección colectivas

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)