diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index fd1d81437..21d8a5b2d 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1487,7 +1487,7 @@ Public Class ClsInventarios End Function Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, - Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1) As Boolean + Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") @@ -1508,6 +1508,7 @@ Public Class ClsInventarios .Add("@Orden", SqlDbType.Int).Value = Orden .Add("@Marcas", SqlDbType.VarChar).Value = Marcas .Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado + .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes End With Try diff --git a/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc b/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc index 660cd318d..c70e81df1 100644 --- a/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc +++ b/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc @@ -2,1468 +2,1341 @@ - - true - true - - - - - =Parameters!pEmp.Value + + + + true + true + + + + + =Parameters!pEmp.Value + + + - - + + + Textbox1 + 0cm + 0.98806cm + 20.2388cm + + 2pt + 2pt + 2pt + 2pt - - - Textbox1 - 0.17639cm - 3.43894cm - 0.81167cm - 13.23271cm - - - 2pt - 2pt - 2pt - 2pt - - - - External - = Parameters!pImg.Value - FitProportional - 0.3175cm - 1.5cm - 1.5cm - 1 - - - - - - true - true - - - - - Balanza de Comprobación del - - - - =Parameters!pFechaIni.Value - - - - al - - - - =Parameters!pFechaFin.Value - - - + + + External + = Parameters!pImg.Value + Fit + 1.98547cm + 3.43894cm + 1 + - - - Textbox5 - 1.04422cm - 3.43894cm - 0.6cm - 13.23271cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 3.43894cm - - - 6.04544cm - - - 1.24292cm - - - 1.63637cm - - - 2.5cm - - - 2.5cm - - - 1.30999cm - - - 1.60042cm - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - Textbox2 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox4 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Saldos Iniciales - - - - - - - Textbox7 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - Textbox9 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox10 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Saldos Actuales - - - - - - - Textbox11 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - 0.6cm - - - - - true - true - - - - - Cuenta - - - - - - - Textbox13 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nombre - - - - - - - Textbox15 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Deudor - - - - - - - Textbox17 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Acreedor - - - - - - - Textbox19 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cargos - - - - - - - Textbox21 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Abonos - - - - - - - Textbox23 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Deudor - - - - - - - Textbox25 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Acreedor - - - - - - - Textbox27 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.45cm - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - =Fields!Nombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - Horizontal - - - - - - - - true - true - - - - - =Fields!SaldoInicial.Value - - - - - - - SaldoInicial - - - 2pt - =Iif(Fields!CveTipo.Value=1,"17pt","2pt") - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Fields!Cargos.Value - - - - - - - Cargos1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Abonos.Value - - - - - - - Abonos - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SaldoActual.Value - - - - - - - SaldoActual - - - 2pt - =Iif(Fields!CveTipo.Value=1,"17pt","2pt") - 2pt - 2pt - - - 2 - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sumas Iguales - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Last(Fields!SaldoID.Value) - - - - - - - SaldoID - - - 2pt - 17pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Last(Fields!TotalAbonos.Value) - - - - - - - TotalAbonos - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Last(Fields!TotalCargos.Value) - - - - - - - TotalCargos - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Last(Fields!SaldoAD.Value) - - - - - - - SaldoAD - - - 2pt - 17pt - 2pt - 2pt - - - 2 - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Last(Fields!SaldoIA.Value) - - - - - - - SaldoIA - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - Textbox33 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox34 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Last(Fields!SaldoAA.Value) - - - - - - - SaldoAA - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - - - - - - - - - - - - - - - - - After - true - - - After - true - - - - - - Before - - - Before - - - - true - DataSet1 - 1.98547cm - 2.85cm - 20.27408cm - 3 - - - - - - true - true - - - - - ="Fecha Impresión:" & vbCrLf & DateTime.Now.ToString("dd-MM-yyyy") + + + true + true + + + + + Balanza de Comprobación del + + + + =Parameters!pFechaIni.Value + + + + al + + + + =Parameters!pFechaFin.Value + + + - - + + + Textbox5 + 0.98806cm + 0cm + 0.99741cm + 20.2388cm + 2 + + 2pt + 2pt + 2pt + 2pt - - - Textbox8 - 0.17639cm - 16.78159cm - 0.81167cm - 3.49249cm - 4 + + + + + + 3.43894cm + + + 6.04544cm + + + 2.87929cm + + + 2.5cm + + + 2.5cm + + + 2.87513cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + Textbox2 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox4 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldos Iniciales + + + + + + + Textbox7 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox9 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox10 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldos Actuales + + + + + + + Textbox11 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Cuenta + + + + + + + Textbox13 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Textbox15 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Deudor Acreedor + + + + + + + Textbox17 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cargos + + + + + + + Textbox21 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonos + + + + + + + Textbox23 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Deudor Acreedor + + + + + + + Textbox25 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.45cm + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + Horizontal + + + + + + + + true + true + + + + + =Fields!SaldoInicial.Value + + + + + + + SaldoInicial + + + 2pt + =Iif(Fields!CveTipo.Value=1,"17pt","2pt") + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cargos.Value + + + + + + + Cargos1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Abonos.Value + + + + + + + Abonos + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SaldoActual.Value + + + + + + + SaldoActual + + + 2pt + =Iif(Fields!CveTipo.Value=1,"17pt","2pt") + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sumas Iguales + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!SaldoID.Value) + + + + + + + SaldoID + + + 2pt + 17pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!TotalAbonos.Value) + + + + + + + TotalAbonos + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!TotalCargos.Value) + + + + + + + TotalCargos + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!SaldoAD.Value) + + + + + + + SaldoAD + + + 2pt + 17pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!SaldoIA.Value) + + + + + + + SaldoIA + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox33 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox34 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!SaldoAA.Value) + + + + + + + SaldoAA + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + After + true + + + After + true + + + + + + Before + + + Before + + + + true + DataSet1 + 2.04159cm + 2.85cm + 20.2388cm + 3 + + + + + + true + 5.50443cm + 20.2388cm - 2pt - 2pt - 2pt - 2pt - + - 1.99404in + 2.1671in - - true - true - - - - - ="Fecha Impresión:" & vbCrLf & DateTime.Now.ToString("dd-MM-yyyy") - - - - - - - Textbox8 - 0.02088cm - 16.78159cm - 0.57912cm - 3.49249cm - 1 - - = (Globals.PageNumber=1) - - - - 2pt - 2pt - - - 0.67056cm + 0.6cm true true @@ -1598,10 +1435,43 @@ Textbox3 - 0.03528cm - 14.41388cm + 14.86367cm 0.6cm - 5.51625cm + 5.37513cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbCrLf & DateTime.Now.ToString("dd-MM-yyyy") + + + + + + + Textbox8 + 0cm + 0.6cm + 3.43894cm + 1 diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 7fb7347b2..8cd28729b 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -159,7 +159,9 @@
- + + <%----%>
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index bf8ebd251..f53140e8f 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -53,7 +53,7 @@ Partial Class Inventarios_KardexAlmacen DdlTipoAlmacen.SelectedValueExist(1) - If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValueExist(Request("CveAlmacen").ToString) + If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString CargaClasificaciones() End Sub @@ -136,11 +136,11 @@ Partial Class Inventarios_KardexAlmacen Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1") ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") Dim FechaF As Date = TxtFechaF.Text.ToDate - Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero + Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues() Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1) Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM) - If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero) Then + If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes) Then If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then dt = ObjMovimientos.DtResultados Dim ListaBorrar As New List(Of DataColumn) diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 71dd6e415..1a8909e3f 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -200,17 +200,21 @@ Partial Class Ventas_ActualizarPrecios Exit Sub End If Dim Correcto As Boolean = False - + Dim TieneError As Boolean = False 'Dim Importe As Decimal = If(TxtImporte.Text = "", -1, TxtImporte.Text.ToDecimal) Dim Porcentaje As Decimal = If(TxtPorcentaje.Text = "", -1, TxtPorcentaje.Text.ToDecimal) Dim ObjPS As New ClsProductosServicios + ObjPS.IniciaTransacSQL() For Each row As GridViewRow In GVPrecios.Rows If row.FCCheckBox("chkPS").Checked Then Correcto = ObjPS.UpdatePSPreciosLista(row.FCTextBox("TxtPrecio").Text.ToDecimal, DdlPrecioLista.SelectedValue.ToEntero, Porcentaje, row.DataKey("CvePS").ToEntero, UsuarioActual.CveUsuario, DateTime.Now, If(RblTipo.SelectedValue = "Imp", True, False), PrecioMinimo:=row.FCTextBox("TxtPrecioMinimo").Text.ToDecimal) - If Not Correcto Then + + If Correcto Then + TieneError = ActualizarPreciosFranquicia(ObjPS, row) + Else Exit Sub End If End If @@ -221,6 +225,11 @@ Partial Class Ventas_ActualizarPrecios Alert("Los Precios de lista de los Productos/Servicios se actualizaron correctamente") End If + If TieneError Then + ObjPS.RollBack() + Else + ObjPS.Commit() + End If ObjPS.Dispose() BtnConsultar_Click(Nothing, Nothing) @@ -517,4 +526,29 @@ Partial Class Ventas_ActualizarPrecios e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID)) End If End Sub + + Private Function ActualizarPreciosFranquicia(ObjPS As ClsProductosServicios, row As GridViewRow) As Boolean + Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(137) + Dim Franquicias = FranquiciasStr.Split(","c) + Dim Porcentaje As Decimal = If(TxtPorcentaje.Text = "", -1, TxtPorcentaje.Text.ToDecimal) + Dim Codigo As String = row.DataKey("Codigo") + For Each Franquicia In Franquicias + Dim CveFranquicia As Integer = Franquicia.ToEntero + Dim CvePS As Integer = GlobalDTPS(CveFranquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo LIKE '%{0}%'", Codigo)).ToEntero + Dim CvePrecioLisa As Integer = GlobalDTPrecioListas(CveFranquicia).FiltroPrimeroValor("CvePrecioLista", String.Format("PrecioLista = '{0}'", DdlPrecioLista.SelectedItem.Text)).ToEntero + Dim EmpresaFranquicia As String = GlobalDTEmpresas(CveEmpresa:=CveFranquicia).FiltroPrimeroValor("Empresa") + If CvePS <= 0 Then + Alert(String.Format("El producto '{0}' no se encuentra en la Franquicia '{1}'", row.DataKey("PS"), EmpresaFranquicia), TipoMensaje.MsgAdvertencia) + Return True + End If + If CvePrecioLisa <= 0 Then + Alert(String.Format("El precio lista '{0}' no existe en la Franquicia '{1}'", DdlPrecioLista.SelectedItem.Text, EmpresaFranquicia), TipoMensaje.MsgAdvertencia) + Return True + End If + If Not ObjPS.UpdatePSPreciosLista(row.FCTextBox("TxtPrecio").Text.ToDecimal, CvePrecioLisa, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, If(RblTipo.SelectedValue = "Imp", True, False), PrecioMinimo:=row.FCTextBox("TxtPrecioMinimo").Text.ToDecimal) Then + Return True + End If + Next + Return False + End Function End Class \ No newline at end of file diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 789b05bfb..0d7861c1e 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -2865,7 +2865,7 @@ Partial Class ProductosyServicios End Function Private Function GuardarProductosEquivalenteEnFranquicia(ObjPS As ClsProductosServicios, Agregar As Boolean) As Boolean - Dim EmpresasFranquicia = New Integer() {152} + Dim EmpresasFranquicia = ObtenerFranquiciasInt() For Each Franquicia As Integer In EmpresasFranquicia Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.SelectedItem.Text)).ToEntero @@ -2893,4 +2893,16 @@ Partial Class ProductosyServicios Next Return False End Function + + Private Function ObtenerFranquiciasInt() As Integer() + Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(137) + Dim Franquicias = FranquiciasStr.Split(","c) + Dim ReturnFranquicias(Franquicias.Length) As Integer + Dim Contador As Integer = 0 + For Each Franquicia In Franquicias + ReturnFranquicias(Contador) = Franquicia.ToEntero + Contador += 1 + Next + Return ReturnFranquicias + End Function End Class