diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index f705a3c26..f53722f3c 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -2407,7 +2407,7 @@ Partial Class AF_AF Dim filemove As String = "" For Each fileItem As Archivo In filesgral - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") filemove = fileItem.filename Next diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 38182d35c..b7a1e8828 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -1758,7 +1758,11 @@ Public Class ClsCompras SqlAdapter.Fill(Data) OnError = True Catch ex As Exception - Me.OnError("Ocurrió un error al obtener la bitácora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + If ex.Message.Contains("Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM.") Then + Alert("Fechas fuera de rango, debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al obtener la bitácora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If End Try Return OnError diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 14500b57d..024b4fe5f 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -25,6 +25,7 @@ Public Class ClsContabilidad Private disposedValue As Boolean = False ' Para detectar llamadas redundantes 'REGISTRAR CONEXIONES ABIERTAS Private CveConexion As Integer = 0 + Public Property CvePrePolizaDetalle As Integer #End Region #Region " P R O P I E D A D E S" @@ -899,11 +900,17 @@ Public Class ClsContabilidad .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva .Add("@CveCreditoDetalle", SqlDbType.Int).Value = CveCreditoDetalle .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto + + .Add("@CvePrePolizaDetalle", SqlDbType.Int).Direction = ParameterDirection.Output End With Try SqlAdapter.Fill(Data) - Retorno = True + CvePrePolizaDetalle = SqlAdapter.SelectCommand.Parameters("@CvePrePolizaDetalle").Value.ToString.ToEntero + If CvePrePolizaDetalle > 0 Then + Retorno = True + End If + Catch ex1 As SqlException If ex1.Message.Contains("50015;") Then OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) @@ -5862,6 +5869,22 @@ Public Class ClsContabilidad End Try Return Retorno End Function + Public Function GetProductosSinIEPS(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Conta_ProductosSinIEPS") + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de productos sin IEPS.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function Public Function GetRepIEPSLayoutAnual(Ano As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_RepIEPSLayoutAnual") @@ -6561,4 +6584,6 @@ Public Class ClsContabilidad End Function #End Region + + End Class \ No newline at end of file diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index b8248e915..d3694abd4 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -80,7 +80,7 @@ Public Class ClsInventarios Public Property CveSubProyectoInventario As Integer Public Property SubProyecto As String Public Property SubProyectoInventario As String - Public Property SerieLote As String + Public Property Serie As String Public Property Guia As String Public Property TipoCambio As Double Public Property FolioVenta As String @@ -98,6 +98,7 @@ Public Class ClsInventarios Public Property CveCliente As Integer Public Property CveClienteSucursal As Integer Public Property NombreCliente As String + Public Property CveProveedor As Integer Public Property DepartamentoEntrega As String Public Property PedidoContrato As String Public Property GastoIndirecto As Double @@ -568,22 +569,11 @@ Public Class ClsInventarios #End Region #Region " SECCIONES ALMACENES " - Public Function GetSeccionesAlmacenes() As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_INV_SeccionesAlmacenesGet") - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Secciones de Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function Public Function UpdateSeccion(CveSeccion As Integer, Seccion As String, Estatus As Boolean) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_INV_SeccionesAlmacenesUpdate") + DataAdapter("PA_Inv_SeccionesAlmacenesUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion @@ -606,10 +596,11 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetSeccionesAlmacenes(CveSeccion As Integer) As Boolean + Public Function GetSeccionesAlmacenes(CveEmpresa As Integer, CveSeccion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_SeccionesAlmacenesGet") With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion End With Try @@ -824,6 +815,7 @@ Public Class ClsInventarios CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1) CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1) NombreCliente = dr("Nombre").ToString + CveProveedor = If(dr("CveProveedor").ToString.ToEntero > 0, dr("CveProveedor").ToString.ToEntero, -1) DepartamentoEntrega = dr("DepartamentoEntrega").ToString PedidoContrato = dr("PedidoContrato").ToString TienePrePoliza = dr("TienePrePoliza").ToString.ToEntero @@ -1141,7 +1133,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1) As Boolean + Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoDetalle As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosDetalleGet") @@ -1149,6 +1141,7 @@ Public Class ClsInventarios .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle End With Try SqlAdapter.Fill(Data) @@ -1267,37 +1260,38 @@ Public Class ClsInventarios Return Retorno End Function - Public Function AddMovimientoDetalle(CveMovimiento As Integer, Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Decimal, CveAF As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional SerieLote As String = "", - Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Decimal = -1, Optional FechaCaducidad As Date = MinFecha, + Public Function AddMovimientoDetalle(CveMovimiento As Integer, Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Decimal, Optional CveAF As Integer = -1, + Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "", Optional Lote As String = "", Optional FechaCaducidad As Date = MinFecha, + Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Decimal = -1, Optional CostoIndirecto As Decimal = 0, Optional CveCompraDetalle As Integer = -1, Optional CveOrdenCompraDetalle As Integer = -1, Optional CveVentaDetalle As Integer = -1, - Optional Lote As String = "", Optional Batch As String = "", Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1) As Boolean + Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosDetalleAdd") With SqlAdapter.SelectCommand.Parameters .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveUM", SqlDbType.Int).Value = CveUM .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@PU", SqlDbType.Decimal).Value = PU .Add("@PUTC", SqlDbType.Decimal).Value = PUTC - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen - .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CostoIndirecto", SqlDbType.Decimal).Value = CostoIndirecto .Add("@CveAF", SqlDbType.Int).Value = CveAF - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + .Add("@Serie", SqlDbType.VarChar).Value = Serie .Add("@Lote", SqlDbType.VarChar).Value = Lote - .Add("@Batch", SqlDbType.VarChar).Value = Batch + .Add("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@CveMovimientoDetalleEntrada", SqlDbType.Int).Value = CveMovimientoDetalleEntrada - .Add("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad - .Add("@CostoIndirecto", SqlDbType.Decimal).Value = CostoIndirecto .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle - .Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@EsInterno", SqlDbType.Int).Value = EsInterno + + .Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output End With Try @@ -1320,7 +1314,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function UpdateMovimientoDetalle(Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Double, CveAF As Integer, CveMovimientoDetalle As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional SerieLote As String = "", + Public Function UpdateMovimientoDetalle(Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Double, CveAF As Integer, CveMovimientoDetalle As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "", Optional Observaciones As String = "-1", Optional PUTC As Double = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1335,7 +1329,7 @@ Public Class ClsInventarios .Add("@PUTC", SqlDbType.Money).Value = PUTC .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen .Add("@CveAF", SqlDbType.Int).Value = CveAF - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Serie", SqlDbType.VarChar).Value = Serie .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico End With @@ -1772,8 +1766,10 @@ Public Class ClsInventarios #Region " INVENTARIOS - EXISTENCIAS " Public Function GetExistenciasPS(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1, - Optional FechaMovto As String = "-1", Optional SerieLote As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, - Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1", + Optional FechaMovto As String = "-1", + Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha, + Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, + Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Decimal Dim Retorno As Decimal = -1 @@ -1791,9 +1787,9 @@ Public Class ClsInventarios .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Serie", SqlDbType.VarChar).Value = Serie .Add("@Lote", SqlDbType.VarChar).Value = Lote - .Add("@Batch", SqlDbType.VarChar).Value = Batch + .Add("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado @@ -1823,9 +1819,10 @@ Public Class ClsInventarios End Function Public Function GetExistenciasProducto(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1, - Optional FechaMovto As String = "-1", Optional SerieLote As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, - Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1", - Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1, Optional Caducidad As Date = MinFecha) As Boolean + Optional FechaMovto As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, + Optional Serie As String = "-1", Optional Lote As String = "-1", Optional Caducidad As Date = MinFecha, + Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, + Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ExistenciasGet") @@ -1834,20 +1831,19 @@ Public Class ClsInventarios .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote - .Add("@Lote", SqlDbType.VarChar).Value = Lote - .Add("@Batch", SqlDbType.VarChar).Value = Batch .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@Lote", SqlDbType.VarChar).Value = Lote + .Add("@Caducidad", SqlDbType.Date).Value = Caducidad .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes - .Add("@Caducidad", SqlDbType.Date).Value = Caducidad + .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output End With Try @@ -1859,21 +1855,18 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetExistenciasPSSerie(SerieLote As String, CveAlmacen As Integer, CveEmpresa As Integer, Optional FechaMovto As String = "-1") As Decimal - - If SerieLote = "" Then Return 0 + Public Function GetExistenciasPSSerie(Serie As String, CveAlmacen As Integer, CveEmpresa As Integer, Optional CveSeccionAlmacen As Integer = -1) As Decimal + If Serie = "" Then Return 0 Dim Retorno As Decimal = 0 - If FechaMovto = "-1" Then - FechaMovto = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd")) - End If DataAdapter("PA_Inv_ExistenciasPSSerieGet") With SqlAdapter.SelectCommand.Parameters - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Serie", SqlDbType.VarChar).Value = Serie .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen ' .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output @@ -1896,13 +1889,13 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetCostoPSSerie(CvePS As Integer, SerieLote As String, CveAlmacen As Integer, CveEmpresa As Integer) As Decimal + Public Function GetCostoPSSerie(CvePS As Integer, Serie As String, CveAlmacen As Integer, CveEmpresa As Integer) As Decimal Dim Retorno As Decimal = 0 DataAdapter("PA_Inv_CostoPSSerieGet") With SqlAdapter.SelectCommand.Parameters .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Serie", SqlDbType.VarChar).Value = Serie .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen .Add("@Costo", SqlDbType.Money).Direction = ParameterDirection.Output @@ -1965,7 +1958,7 @@ Public Class ClsInventarios Public Function GetExistenciasPSEmpaque(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1, - Optional FechaMovto As String = "-1", Optional SerieLote As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, + Optional FechaMovto As String = "-1", Optional Serie As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1", Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1984,7 +1977,7 @@ Public Class ClsInventarios .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Serie", SqlDbType.VarChar).Value = Serie .Add("@Lote", SqlDbType.VarChar).Value = Lote .Add("@Batch", SqlDbType.VarChar).Value = Batch .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor @@ -2031,7 +2024,7 @@ Public Class ClsInventarios SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al momento de vericar la existencia de los productos por xml.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al momento de verificar la existencia de los productos por xml.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno @@ -2429,7 +2422,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function AddInventarioFisicoDetalle(CveInventarioFisico As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double, SerieLote As String, CveUsuario As Integer) As Boolean + Public Function AddInventarioFisicoDetalle(CveInventarioFisico As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double, Serie As String, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_InventarioFisicoDetalleAdd") @@ -2439,7 +2432,7 @@ Public Class ClsInventarios .Add("@CveUM", SqlDbType.Int).Value = CveUM .Add("@Cantidad", SqlDbType.Money).Value = Cantidad .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Serie", SqlDbType.VarChar).Value = Serie .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Estatus", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -2451,7 +2444,7 @@ Public Class ClsInventarios Retorno = True ElseIf SqlAdapter.SelectCommand.Parameters("@Estatus").Value.ToString.ToEntero = 2 Then Retorno = False - Alert($"Ya existe la Serie {SerieLote} en el inventario actual.", TipoMensaje.MsgAdvertencia) + Alert($"Ya existe la Serie {Serie} en el inventario actual.", TipoMensaje.MsgAdvertencia) End If Catch Ex1 As SqlException @@ -2846,15 +2839,16 @@ Public Class ClsInventarios Return Retorno End Function - Public Function SerieLoteRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean + Public Function SerieRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1, Optional CveSeccionAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Inv_SerieLoteRecomendadoGet") + DataAdapter("PA_Inv_SerieRecomendadoGet") With SqlAdapter.SelectCommand.Parameters .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto End With @@ -2862,15 +2856,15 @@ Public Class ClsInventarios SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener la Serie/Lote recomendado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener la Serie recomendado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno End Function - Public Function LoteBatchRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean + Public Function LoteRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Inv_LoteBatchRecomendadoGet") + DataAdapter("PA_Inv_LoteRecomendadoGet") With SqlAdapter.SelectCommand.Parameters .Add("@CvePS", SqlDbType.Int).Value = CvePS @@ -3021,7 +3015,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetEstatusVentaPorSurir(CveVenta As Integer) As Boolean + Public Function GetEstatusVentaPorSurtir(CveVenta As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_EstatusVentaPorSurtirGet") @@ -3365,7 +3359,7 @@ Public Class ClsInventarios End Function #Region " INVENTARIOS - COSTO PS " - Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, SerieLote As String, FechaFin As Datetime, Optional CveSubProyecto As Integer = -1, Optional CveTipoAlmacen As Integer = 1) As Decimal + Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, Serie As String, FechaFin As DateTime, Optional CveSubProyecto As Integer = -1, Optional CveTipoAlmacen As Integer = 1) As Decimal Dim Retorno As Decimal = -1D DataAdapter("PA_Inv_PSCostoGet") @@ -3373,7 +3367,7 @@ Public Class ClsInventarios .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@Cantidad", SqlDbType.Float).Value = Cantidad .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Serie", SqlDbType.VarChar).Value = Serie .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen @@ -4741,41 +4735,60 @@ Public Class ClsInventarios #Region "MOVIMIENTOS DETALLE SECCION ALMACEN" - Public Function AddMovimientosDetalleSeccionesAlmacen(CveMovimientoDetalle As Integer, CveSeccionAlmacen As Integer, Cantidad As Decimal) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen - .Add("@Cantidad", SqlDbType.Float).Value = Cantidad - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - Public Function GetMovimientosDetalleSeccionesAlmacen(CveSeccionAlmacen As Integer, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean + Public Function GetMovimientosDetalleSeccionesAlmacen(CveAlmacen As Integer, CveClasificacion As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenGet") + DataAdapter("PA_Inv_MovimientosDetalleAjusteSeccionesGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno + End Function + 'Public Function AddMovimientosDetalleSeccionesAlmacen(CveMovimientoDetalle As Integer, CveSeccionAlmacen As Integer, Cantidad As Decimal) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenAdd") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle + ' .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + ' .Add("@Cantidad", SqlDbType.Float).Value = Cantidad + ' End With + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + ' Return Retorno + 'End Function + + 'Public Function GetMovimientosDetalleSeccionesAlmacen(CveSeccionAlmacen As Integer, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenGet") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + ' .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + ' .Add("@CvePS", SqlDbType.Int).Value = CvePS + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + ' Return Retorno + 'End Function + Public Function GetExistenciaSeccionAlmacen(CveVenta As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ExistenciaSeccionAlmacenGet") @@ -4793,23 +4806,23 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetKardexSeccionAlmacen(CvePS As Integer, CveAlmacen As Integer, CveSeccionAlmacen As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_KardexSeccionAlmacenGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el kardex de seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function + 'Public Function GetKardexSeccionAlmacen(CvePS As Integer, CveAlmacen As Integer, CveSeccionAlmacen As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Inv_KardexSeccionAlmacenGet") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CvePS", SqlDbType.Int).Value = CvePS + ' .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + ' .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener el kardex de seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + ' Return Retorno + 'End Function Public Function AddProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveAlmacenSeccion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionAdd") diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index bcecb847d..19d38432e 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1,2553 +1,2553 @@ -Imports System.Data -Imports System.Data.SqlClient -Imports Extensiones -Imports Modelos - -Public Class ClsOC - Implements IDisposable - -#Region "Campos" - 'SQL - Private SqlConexion As SqlConnection - Private SqlAdapter As SqlDataAdapter - Private SqlTransacc As SqlTransaction - Private SqlCommand As SqlCommand - Private StrSQL As StringBuilder - Private Data As DataTable - 'Atributos de la clase - Private disposedValue As Boolean = False - 'PARA REGISTRAR CONEXION - Private CveConexion As Integer = 0 - -#End Region - -#Region "Propiedades" - - Public Property FechaIng As Date - Public Property CveUsuario As Integer - Public Property NombreUsuario As String - Public Property CveOrdenCompra As Integer - Public Property CveOrdenCompraDetalle As Integer - Public Property Folio As Integer - Public Property CveIEAnticipo As Integer - Public Property CveProveedorAnticipo As Integer - Public Property FolioIEAnticipo As Integer - Public Property ImporteAnticipo As Double - - Public Property FolioAdicional As String - Public Property EntregaDirecta As Boolean - Public Property CveVenta As Integer - Public Property CveCompra As Integer - Public Property CveMovimientoAlmacenVenta As Integer - Public Property TieneVenta As Integer - Public Property TieneCompraInv As Integer - - Public Property Tipo As String - Public Property CveEstatus As Integer - Public Property Estatus As String - Public Property Prioridad As Integer - Public Property Moneda As String - Public Property UsuarioAsignado As String - Public Property CveUsuarioAsignado As Integer - - Private _EsCancelable As Boolean - - Private _EsCotizacion As Boolean - Public Property TipoTermino As Integer - Public Property CveEstatusSiguiente As Integer - Public Property CveEstatusAnterior As Integer - - Public Property Descripcion As String - Public Property Justificacion As String - Public Property CveEmpresa As Integer - Private _CveProyecto As Integer - - 'Private _CveUsuario As Integer - Public Property Fecha As Date - Public Property FechaEstimadaEntrega As Date - 'Private _NombreUsuario As String - Public Property CveProveedor As Integer - Public Property CveProveedorSucursal As Integer - Public Property SucursalDireccion As String - Public Property ProveedorContacto As String - Public Property SucursalTelefono As String - Public Property RazonSocial As String - Public Property Direccion As String - Public Property Telefono As String - Public Property RFC As String - Public Property LugarEntrega As String - Public Property Cancelacion As String - Public Property PorcentajeIVA As Double - Public Property CveCliente As Integer - Public Property CveVendedor As Integer - Public Property PrioridadObservacion As String - Public Property SubTotal As Double - Public Property IVA As Double - Public Property RetIVA As Double - Public Property RetISR As Double - Public Property IEPS As Double - Public Property Total As Double - Public Property CvePresupuestoEgreso As Integer - Public Property RequiereCotizacion As Boolean - Public Property CveActivoFijo As Integer - Public Property Codigo As String - Public Property Proyecto As String - Public Property CveSubProyecto2 As Integer - Public Property SubProyecto As String - Public Property UsuarioSolicito As String - Public Property UsuarioAutorizo As String - Public Property Descuento As Double - Public Property Pendiente As Double - Public Property NombreCliente As String - Public Property SucCalle As String - Public Property SucNoExt As String - Public Property SucNoInt As String - Public Property SucColonia As String - Public Property SucMunicipio As String - Public Property SucEstado As String - Public Property SucPais As String - Public Property SucCP As String - Public Property SucTelefono As String - Public Property CveDireccionEnvio As Integer - Public Property IdPoliza As Integer - Public Property HoraElaboracion As String - Public Property SucSubProyecto As String - Public Property Guia As String - Public Property CveUsoCFDI As Integer - Public Property UsoCFDI As String - Public Property Promocion As String - Public Property CveProveedorContacto As Integer - - Public ReadOnly Property DtResultados() As DataTable - Get - DtResultados = Data - End Get - End Property - - -#End Region - -#Region "Propiedades ClsOCCotizaciones" - Public Property CveCotizacion As Integer - Public Property CveCotizacionDetalle As Integer - - Public Property NombreComercial As String - - Public Property CveMoneda As Integer - Public Property CveColectiva As Integer - Public Property Colectiva As String - - Public Property Extension As String - Public Property Adjunto As String - Public Property Usuario As String - - Public Property Empresa As String - Public Property Sucursal As String - Public Property ObjLugarEntrega As String - Public Property DiasCredito As Integer - - - -#End Region - - Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) - - If TransaccionCompartida Is Nothing Then - SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString - Try - SqlConexion.Open() - Catch ex As Exception - OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) - End Try - Else - SqlConexion = TransaccionCompartida.Connection - SqlTransacc = TransaccionCompartida - End If - - SqlCommand = New SqlCommand("", SqlConexion) - SqlAdapter = New SqlDataAdapter("", SqlConexion) - StrSQL = New StringBuilder - ConexionAdd() - End Sub - Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) - With SqlAdapter.SelectCommand - .Parameters.Clear() - .CommandText = StrSQL - .CommandType = TipoComando - End With - If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc - Data = New DataTable - End Sub -#Region "Conexiones" - - Private Sub ConexionAdd() - If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then - - 'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo) VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo - - Try - DataAdapter("PA_Sis_RegistrarConexion") - With SqlAdapter.SelectCommand.Parameters - .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name - .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) - .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output - End With - SqlAdapter.Fill(Data) - CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero - Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - End If - End Sub - - Private Sub ConexionClose() - If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then - - DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - Try - SqlAdapter.Fill(Data) - - Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - CveConexion = 0 - End If - - End Sub -#End Region - Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) - With SqlCommand - .Parameters.Clear() - .CommandText = pStrSQL - .CommandType = TipoComando - End With - - If Not SqlTransacc Is Nothing Then SqlCommand.Transaction = SqlTransacc - - End Sub - Public Function IniciaTransacSQL() As SqlTransaction - If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() - Return SqlTransacc - End Function - Public Sub RollBack() - If SqlTransacc IsNot Nothing Then SqlTransacc.Rollback() - SqlTransacc = Nothing - End Sub - Public Sub Commit() - If SqlTransacc IsNot Nothing Then SqlTransacc.Commit() - SqlTransacc = Nothing - End Sub - -#Region "ClsOCCotizaciones" - Public Function GetCotizaciones(pCveOrdenCompra As Integer, Optional pCveCotizacion As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_CotizacionesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion - End With - - Try - SqlAdapter.Fill(Data) - If Data.Rows.Count = 1 Then - Me.CveProveedor = If(Not IsDBNull(Data.Rows(0)("CveProveedor")), Data.Rows(0)("CveProveedor").ToString.ToEntero(), -1) - NombreComercial = If(Not IsDBNull(Data.Rows(0)("NombreComercial")), Data.Rows(0)("NombreComercial").ToString, "") - Me.RazonSocial = If(Not IsDBNull(Data.Rows(0)("RazonSocial")), Data.Rows(0)("RazonSocial").ToString, "") - - CveColectiva = If(Not IsDBNull(Data.Rows(0)("CveColectiva")), Data.Rows(0)("CveColectiva").ToString.ToEntero(), -1) - Colectiva = If(Not IsDBNull(Data.Rows(0)("Colectiva")), Data.Rows(0)("Colectiva").ToString, "") - - CveCotizacion = Data.Rows(0)("CveCotizacion").ToString.ToEntero() - Me.CveOrdenCompra = Data.Rows(0)("CveOrdenCompra").ToString.ToEntero() - CveMoneda = If(Not IsDBNull(Data.Rows(0)("CveMoneda")), Data.Rows(0)("CveMoneda").ToString.ToEntero(), -1) - - Me.Folio = Data.Rows(0)("Folio").ToString.ToEntero - Me.Fecha = Data.Rows(0)("Fecha").ToString.ToDate - Adjunto = Data.Rows(0)("Adjunto").ToString - Extension = Data.Rows(0)("Extension").ToString - Usuario = Data.Rows(0)("Usuario").ToString - Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero - Me.Total = Data.Rows(0)("Total").ToString.ToDouble - - - Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero - 'Me.CveProveedorSucursal = Data.Rows(0)("CveProveedorSucursal").ToString.ToEntero - Empresa = Data.Rows(0)("Empresa").ToString - CveSubProyecto2 = Data.Rows(0)("CveSubProyecto").ToString.ToEntero - SubProyecto = Data.Rows(0)("SubProyecto").ToString - ObjLugarEntrega = Data.Rows(0)("LugarEntrega").ToString - DiasCredito = Data.Rows(0)("DiasCredito").ToString.ToEntero - End If - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Cotizaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetCotizacionesTabla(pCveOrdenCompra As Integer) As DataSet - Dim Retorno As New DataSet - - DataAdapter("PA_OC_Cotizaciones2Get") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - End With - - Try - SqlAdapter.Fill(Retorno) - Catch ex As Exception - ' OnError("Ocurrió un error al obtener el Catálogo de Cotizaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function AddCotizacion(pCveOrdenCompra As Integer, pCveProveedor As Integer, pCveColectiva As Integer, pFolio As String, pFecha As String, pAdjunto As String, pCveMoneda As Integer, pDiasCredito As Integer, pCveUsuario As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_CotizacionesAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@CveProveedor", SqlDbType.Int).Value = pCveProveedor - .Add("@CveColectiva", SqlDbType.Int).Value = pCveColectiva - .Add("@Folio", SqlDbType.VarChar).Value = pFolio - .Add("@Fecha", SqlDbType.VarChar).Value = pFecha - .Add("@Adjunto", SqlDbType.VarChar).Value = pAdjunto - .Add("@CveMoneda", SqlDbType.Int).Value = pCveMoneda - .Add("@DiasCredito", SqlDbType.Int).Value = pDiasCredito - .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario - .Add("@vCveCotizacion", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - CveCotizacion = SqlAdapter.SelectCommand.Parameters("@vCveCotizacion").Value.ToString.ToEntero - Retorno = True - Catch ex As SqlException - If ex.Number = 2627 Then - Alert("La Clave o Descripción de la Cotizacion ya existe.", TipoMensaje.MsgAdvertencia) - Else - OnError("Ocurrió un error al guardar el nuevo Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar el nuevo Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateCotizacion(pCveProveedor As Integer, pCveColectiva As Integer, pFolio As String, pFecha As String, pAdjunto As String, pCveMoneda As Integer, pDiasCredito As Integer, pCveUsuario As Integer, pCveCotizacion As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_CotizacionesUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = pCveProveedor - .Add("@CveColectiva", SqlDbType.Int).Value = pCveColectiva - .Add("@Folio", SqlDbType.VarChar).Value = pFolio - .Add("@Fecha", SqlDbType.VarChar).Value = pFecha - .Add("@Adjunto", SqlDbType.VarChar).Value = pAdjunto - .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario - .Add("@DiasCredito", SqlDbType.Int).Value = pDiasCredito - .Add("@CveMoneda", SqlDbType.Int).Value = pCveMoneda - .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As SqlException - If ex.Number = 2627 Then - Alert("La Clave o Descripción del Cotizacion ya existe.", TipoMensaje.MsgAdvertencia) - Else - OnError("Ocurrió un error al guardar los cambios en el Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en el Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function RemoveCotizacion(pCveCotizacion As Integer) As String - Dim Retorno As String = "" - - DataAdapter("PA_OC_CotizacionesRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion - .Add("@vNombreArchivo", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = SqlAdapter.SelectCommand.Parameters("@vNombreArchivo").Value.ToString - Catch ex As Exception - OnError("Ocurrió un error al eliminar el Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetCotizacionesDetalle(pCveCotizacion As Integer, Optional pCveOrdenCompra As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_CotizacionesDetalleGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener Detalle de cotización.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function AddCotizacionDetalle(pCveCotizacion As Integer, pCvePS As Integer, pPrecioUnitario As Double, pCantidad As Double, pCveUM As Integer, pCantidadSurtir As Double, pFechaEntrega As String, pObservacion As String, pCveOrdenCompraDetalle As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_CotizacionesDetalleAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion - .Add("@CvePS", SqlDbType.Int).Value = pCvePS - .Add("@PU", SqlDbType.Money).Value = pPrecioUnitario - .Add("@Cantidad", SqlDbType.Float).Value = pCantidad - .Add("@CveUM", SqlDbType.Int).Value = pCveUM - .Add("@CantidadSurtir", SqlDbType.Float).Value = pCantidadSurtir - .Add("@FechaEntrega", SqlDbType.VarChar).Value = pFechaEntrega - .Add("@Observacion", SqlDbType.VarChar).Value = pObservacion - .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = pCveOrdenCompraDetalle - .Add("@vCveCotizacionDetalle", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - - CveCotizacionDetalle = SqlAdapter.SelectCommand.Parameters("@vCveCotizacionDetalle").Value.ToString.ToEntero - Retorno = True - Catch ex As SqlException - If ex.Number = 2627 Then - Alert("La Clave o Descripción de la Cotizacion ya existe.", TipoMensaje.MsgAdvertencia) - Else - OnError("Ocurrió un error al guardar el nuevo Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar el nuevo Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateCotizacionDetalle(pCveCotizacionDetalle As Integer, pPrecioUnitario As Double, pCantidadSurtir As Double, pFechaEntrega As String, pObservacion As String) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_CotizacionesDetalleUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@PU", SqlDbType.Money).Value = pPrecioUnitario - .Add("@CantidadSurtir", SqlDbType.Float).Value = pCantidadSurtir - .Add("@FechaEntrega", SqlDbType.VarChar).Value = pFechaEntrega - .Add("@Observacion", SqlDbType.VarChar).Value = pObservacion - .Add("@CveCotizacionDetalle", SqlDbType.Int).Value = pCveCotizacionDetalle - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As SqlException - If ex.Number = 2627 Then - Alert("La Clave o Descripción de la Cotizacion ya existe.", TipoMensaje.MsgAdvertencia) - Else - OnError("Ocurrió un error al actualizar la Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al actualizar la Cotización.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateCotizacionDetalleGanadora(pCveCotizacionDetalle As Integer, pEsGanadora As Boolean) As Integer - Dim Retorno As Integer = -1 - - DataAdapter("PA_OC_CotizacionesDetalleEsGanadoraUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@EsGanadora", SqlDbType.Bit).Value = pEsGanadora - .Add("@CveCotizacionDetalle", SqlDbType.Int).Value = pCveCotizacionDetalle - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = pCveCotizacionDetalle - Catch ex As SqlException - If ex.Number = 2627 Then - Alert("La Clave o Descripción de la Cotizacion ya existe.", TipoMensaje.MsgAdvertencia) - Else - OnError("Ocurrió un error al actualizar la Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al actualizar la Cotización.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function RemoveCotizacionDetalle(pCveCotizacion As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_CotizacionesDetalleRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el Cotizacion Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateOrdenCompraCotizacion(pCveOrdenCompra As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraDetalleCotizacionUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar la OC/Req con Cotización.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - - 'Public Function GetEstatusCompra(ByVal CveEstatusCompra As Integer, ByVal EstatusCompra As String) As Boolean - ' Dim Retorno As Boolean = False - - ' DataAdapter("PA_OC_EstatusOrdenCompraGet") - ' Try - ' SqlAdapter.Fill(Data) - - ' If Data.Rows.Count = 1 Then - ' _CveEstatusCompra = Data.Rows(0)("CveEstatusCompra").ToString().ToEntero() - ' _EstatusCompra = Data.Rows(0)("EstatusCompra").ToString() - ' _Estatus = Data.Rows(0)("Estatus").ToString = "True" - ' _FechaIng = Data.Rows(0)("FechaIng").ToString().ToDate() - ' _CveUsuario = Data.Rows(0)("CveUsuario").ToString().ToEntero() - ' _NombreUsuario = Data.Rows(0)("Nombre").ToString() - ' End If - - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener el Catálogo de Estatus de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - 'End Function - - 'Public Function AddEstatusCompra(ByVal Descripcion As String, Estatus As Boolean, ByVal CveUsuario As Integer) As Boolean - ' Dim Retorno As Boolean = False - - ' DataAdapter("PA_OC_EstatusOrdenCompraAdd") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@EstatusOrdenCompra", SqlDbType.VarChar).Value = Descripcion - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - - ' Retorno = True - ' Catch ex As SqlException - ' If ex.Number = 2627 Then - ' Alert("La Clave o Descripción del EstatusCompra ya existe.", TipoMensaje.MsgAdvertencia) - ' Else - ' OnError("Ocurrió un error al guardar el nuevo estatus de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End If - ' Catch ex As Exception - ' OnError("Ocurrió un error al guardar el nuevo estatus de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - 'End Function - - 'Public Function UpdateEstatusCompra(ByVal Descripcion As String, Estatus As Boolean, ByVal CveEstatusCompra As Integer, ByVal CveUsuario As Integer) As Boolean - ' Dim Retorno As Boolean = False - - ' DataAdapter("PA_OC_EstatusOrdenCompraUpdate") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@EstatusOrdenCompra", SqlDbType.VarChar).Value = Descripcion - ' '.Add("@pCveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@Estatus", SqlDbType.Bit).Value = Estatus - ' .Add("@CveEstatusOrdenCompra", SqlDbType.Int).Value = CveEstatusCompra - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - - ' Retorno = True - ' Catch ex As SqlException - ' If ex.Number = 2627 Then - ' Alert("La Clave o Descripción del Estatus de Compra ya existe.", TipoMensaje.MsgAdvertencia) - ' Else - ' OnError("Ocurrió un error al guardar los cambios en el estatus de compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End If - ' Catch ex As Exception - ' OnError("Ocurrió un error al guardar los cambios en el estatus de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - 'End Function - - 'Public Function RemoveEstatusCompra(ByVal CveEstatusCompra As Integer) As Boolean - ' Dim Retorno As Boolean = False - - ' DataAdapter("PA_OC_EstatusOrdenCompraRemove") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveEstatusOrdenCompra", SqlDbType.Int).Value = CveEstatusCompra - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al eliminar el estatus de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - 'End Function - - - -#Region "O R D E N E S - D E - C O M P R A S" - Public Function GetOC(ObjOrdenCompra As Modelos.OrdenCompra) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = ObjOrdenCompra.CveOrdenCompra - .Add("@Folio", SqlDbType.Int).Value = ObjOrdenCompra.Folio - .Add("@CveSubProyecto", SqlDbType.Int).Value = -1 'ObjOrdenCompra.CveSucursal - .Add("@Tipo", SqlDbType.VarChar).Value = ObjOrdenCompra.Tipo - .Add("@CveCliente", SqlDbType.Int).Value = ObjOrdenCompra.CveCliente - .Add("@CveVendedor", SqlDbType.Int).Value = ObjOrdenCompra.CveVendedor - .Add("@Guia", SqlDbType.Int).Value = ObjOrdenCompra.Guia - .Add("@CveEmpresa", SqlDbType.Int).Value = ObjOrdenCompra.CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - - If Data.Rows.Count > 0 Then - - - Retorno = True - End If - - Catch ex As Exception - OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetOC(CveOrdenCompra As Integer, CveEmpresa As Integer, Optional Folio As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional Tipo As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveUsuario As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - .Add("@Folio", SqlDbType.Int).Value = Folio - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@Tipo", SqlDbType.VarChar).Value = Tipo - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@Guia", SqlDbType.Int).Value = Guia - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - End With - - Try - SqlAdapter.Fill(Data) - - If Data.Rows.Count >= 1 Then - Dim dr As DataRow = Data.Rows(0) - _CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero - _Folio = dr("Folio").ToString.ToEntero - _CveIEAnticipo = dr("CveIEAnticipo").ToString.ToEntero - _FolioIEAnticipo = dr("FolioIEAnticipo").ToString.ToEntero - _ImporteAnticipo = dr("ImporteAnticipo").ToString.ToDouble - _CveProveedorAnticipo = dr("CveProveedorAnticipo").ToString.ToEntero - _CveEmpresa = dr("CveEmpresa").ToString.ToEntero - _CveProyecto = dr("CveProyecto").ToString.ToEntero - '_CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero - _Guia = dr("Guia").ToString - _FechaEstimadaEntrega = If(Not IsDBNull(dr("FechaEstimadaEntrega")), CDate(dr("FechaEstimadaEntrega")), New DateTime) - _Descripcion = dr("Descripcion").ToString - _Justificacion = dr("Justificacion").ToString - _Prioridad = If(dr("Prioridad").ToString.ToEntero = 0, -1, dr("Prioridad").ToString.ToEntero) - _Tipo = dr("Tipo").ToString - _Fecha = dr("Fecha").ToString.ToDate - _HoraElaboracion = dr("HoraElaboracion").ToString - _CveEstatus = dr("CveEstatus").ToString.ToEntero - CveMoneda = dr("CveMoneda").ToString.ToEntero - Moneda = dr("Moneda").ToString - UsuarioAsignado = dr("UsuarioAsignado").ToString - CveUsuarioAsignado = dr("CveUsuarioAsignado").ToString.ToEntero - _EsCancelable = dr("EsCancelable").ToString = "True" - _TipoTermino = dr("TipoTermino").ToString.ToEntero - Cancelacion = dr("Cancelacion").ToString - _CveEstatusSiguiente = dr("CveEstatusSiguiente").ToString.ToEntero - _EsCotizacion = dr("EsCotizacion").ToString = "True" - _CveEstatusAnterior = If(Not IsDBNull(dr("CveEstatusAnterior")), dr("CveEstatusAnterior").ToString.ToEntero, -1) - _Estatus = dr("Estatus").ToString - RequiereCotizacion = dr("RequiereCotizacion").ToString() = "True" - _CveUsuario = dr("CveUsuario").ToString.ToEntero - _NombreUsuario = dr("NombreUsuario").ToString - - _CveProveedor = If(Not IsDBNull(dr("CveProveedor")), dr("CveProveedor").ToString.ToEntero, -1) - _CveProveedorSucursal = If(Not IsDBNull(dr("CveProveedorSucursal")), dr("CveProveedorSucursal").ToString.ToEntero, -1) - _RazonSocial = If(Not IsDBNull(dr("RazonSocial")), dr("RazonSocial").ToString, "") - _Direccion = If(Not IsDBNull(dr("Direccion")), dr("Direccion").ToString, "") - _Telefono = If(Not IsDBNull(dr("Telefono")), dr("Telefono").ToString, "") - _RFC = If(Not IsDBNull(dr("RFC")), dr("RFC").ToString, "") - _LugarEntrega = If(Not IsDBNull(dr("LugarEntrega")), dr("LugarEntrega").ToString, "") - _CveCliente = If(dr("CveCliente").ToString.ToEntero = 0, -1, dr("CveCliente").ToString.ToEntero) - _CveVendedor = If(dr("CveVendedor").ToString.ToEntero = 0, -1, dr("CveVendedor").ToString.ToEntero) - _PrioridadObservacion = dr("PrioridadObservacion").ToString - IdPoliza = dr("IdPoliza").ToString.ToEntero - Me.SucursalDireccion = If(Not IsDBNull(dr("DireccionSucursal")), dr("DireccionSucursal").ToString, "") - Me.SucursalTelefono = If(Not IsDBNull(dr("TelefonoSucursal")), dr("TelefonoSucursal").ToString, "") - ProveedorContacto = dr("ContactoNombre").ToString - - PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDouble - SubTotal = dr("SubTotal").ToString.ToDouble - Descuento = dr("Descuento").ToString.ToDouble - IVA = dr("IVA").ToString.ToDouble - RetIVA = dr("RetIVA").ToString.ToDouble - RetISR = dr("RetISR").ToString.ToDouble - IEPS = dr("IEPS").ToString.ToDouble - Total = dr("Total").ToString.ToDouble - Pendiente = dr("Pendiente").ToString.ToDouble - 'If Not IsDBNull(dr("SubTotal")) Then - ' SubTotal = dr("SubTotal").ToString.ToDouble - ' If IVA <= 0 Then - ' _IVA = _SubTotal * dr("PorcentajeIVA").ToString.ToDouble - ' End If - ' _Total = _SubTotal + _IVA - _Descuento - _RetIVA - _RetISR - 'End If - - '_CveSupervisara = dr("CveSupervisara").ToString.ToEntero - '_CveAutoriza = dr("CveAutoriza").ToString.ToEntero - '_CveAutorizara = dr("CveAutorizara").ToString.ToEntero - - '_NombreSupervisa = dr("NombreSupervisa").ToString - - '_NombreAutoriza = dr("NombreAutoriza").ToString - '_FechaSupervisa = dr("FechaSupervisa").ToString.ToDate - '_FechaAutoriza = dr("FechaAutoriza").ToString.ToDate - - 'RequiereCotizacion = CType(dr("RequiereCotizacion"), Boolean) - SubProyecto = dr("SubProyecto").ToString - CveSubProyecto2 = dr("CveSubProyecto").ToString.ToEntero - - Empresa = dr("Empresa").ToString - Proyecto = dr("Proyecto").ToString - 'SubProyecto = dr("SubProyecto").ToString - _CvePresupuestoEgreso = dr("CvePresupuestoEgreso").ToString.ToEntero - - UsuarioSolicito = dr("UsuarioSolicito").ToString - UsuarioAutorizo = dr("UsuarioAutorizo").ToString - FolioAdicional = dr("FolioAdicional").ToString - EntregaDirecta = If(dr("EntregaDirecta").ToString.ToEntero > 0, True, False) - NombreCliente = dr("NombreCliente").ToString - CveVenta = dr("CveVenta").ToString.ToEntero - CveCompra = dr("CveCompra").ToString.ToEntero - CveMovimientoAlmacenVenta = dr("CveMovimientoAlmacenVenta").ToString.ToEntero - TieneVenta = dr("TieneVenta").ToString.ToEntero - TieneCompraInv = dr("TieneCompraInv").ToString.ToEntero - _CveDireccionEnvio = dr("CveDireccionEnvio").ToString.ToEntero - _CveUsoCFDI = dr("CveUsoCFDI").ToString.ToEntero - _UsoCFDI = dr("UsoCFDI").ToString - Promocion = IfNull(dr("Promocion"), "", dr("Promocion").ToString) - CveProveedorContacto = If(Not IsDBNull(dr("CveProveedorContacto")), dr("CveProveedorContacto").ToString.ToEntero, -1) - - Retorno = True - ElseIf Data.Rows.Count > 0 Then - Retorno = True - End If - - Catch ex As Exception - OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function AddOrdenCompra(pTipo As String, pCveSubProyecto As Integer, ByVal pDescripcion As String, pJustificacion As String, Prioridad As Integer, Fecha As Date, CveMoneda As Integer, pCveEstatus As Integer, - pFechaEstimadaEntrega As String, pLugarEntrega As String, pCveUsuario As Integer, pCveEmpresa As Integer, pCvePresupuestoEgreso As Integer, - Optional pCveProveedor As Integer = -1, Optional pCveProveedorSucursal As Integer = -1, Optional IDPoliza As Integer = -1, Optional RequiereCotizacion As Boolean = False, Optional CveUsuarioAsignado As Integer = -1, - Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "", - Optional PorcentajeIVA As Double = 0.16, Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional FechaExpiracion As Date = Nothing, Optional CveCotizacion As Integer = -1, - Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, - Optional CveIEAnticipo As Integer = -1, Optional ImporteAnticipo As Double = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Tipo", SqlDbType.VarChar).Value = pTipo - .Add("@CveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto - .Add("@Descripcion", SqlDbType.VarChar).Value = pDescripcion - .Add("@Justificacion", SqlDbType.VarChar).Value = pJustificacion - .Add("@Prioridad", SqlDbType.Int).Value = Prioridad - .Add("@Fecha", SqlDbType.DateTime).Value = Fecha - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@CveEstatus", SqlDbType.Int).Value = pCveEstatus - .Add("@FechaEstimadaEntrega", SqlDbType.VarChar).Value = pFechaEstimadaEntrega - .Add("@LugarEntrega", SqlDbType.VarChar).Value = pLugarEntrega - .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = pCveEmpresa - .Add("@CveProveedor", SqlDbType.Int).Value = pCveProveedor - .Add("@CveProveedorSucursal", SqlDbType.Int).Value = pCveProveedorSucursal - .Add("@PorcentajeIVA", SqlDbType.SmallMoney).Value = PorcentajeIVA - .Add("@IVA", SqlDbType.Money).Value = IVA - .Add("@RetIVA", SqlDbType.Money).Value = RetIVA - .Add("@RetISR", SqlDbType.Money).Value = RetISR - .Add("@IEPS", SqlDbType.Money).Value = IEPS - .Add("@RequiereCotizacion", SqlDbType.Bit).Value = If(RequiereCotizacion = True, 1, 0) - .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = pCvePresupuestoEgreso - .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado - .Add("@IDCuentaPolizaAC", SqlDbType.Int).Value = IDPoliza - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveCotizacion", SqlDbType.Int).Value = CveCotizacion - - .Add("@PrioridadObservacion", SqlDbType.VarChar).Value = PrioridadObservacion - .Add("@FolioAdicional", SqlDbType.VarChar).Value = FolioAdicional - .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta - .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio - .Add("@Guia", SqlDbType.VarChar).Value = Guia - .Add("@CveIEAnticipo", SqlDbType.Int).Value = CveIEAnticipo - .Add("@ImporteAnticipo", SqlDbType.Money).Value = ImporteAnticipo - .Add("@UsoCFDI", SqlDbType.Int).Value = UsoCFDI - .Add("@Promocion", SqlDbType.VarChar).Value = Promocion - .Add("@CveProveedorContacto", SqlDbType.Int).Value = CveProveedorContacto - - .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - - _CveOrdenCompra = SqlAdapter.SelectCommand.Parameters("@vCveOrdenCompra").Value.ToString.ToEntero - _Folio = SqlAdapter.SelectCommand.Parameters("@vFolio").Value.ToString.ToEntero - - 'GetOC(_CveOrdenCompra, pCveEmpresa) - Retorno = True - Catch ex As SqlException - If ex.Number = 2627 Then - Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) - Else - OnError("Ocurrió un error al guardar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function AddOrdenCompraMovil(OC As WSOrdenCompra) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Tipo", SqlDbType.VarChar).Value = OC.Tipo - .Add("@CveSubProyecto", SqlDbType.Int).Value = OC.CveSubProyecto - .Add("@Descripcion", SqlDbType.VarChar).Value = OC.Descripcion - .Add("@Justificacion", SqlDbType.VarChar).Value = OC.Justificacion - .Add("@Prioridad", SqlDbType.Int).Value = OC.Prioridad - .Add("@Fecha", SqlDbType.DateTime).Value = OC.Fecha - .Add("@CveMoneda", SqlDbType.Int).Value = OC.CveMoneda - .Add("@CveEstatus", SqlDbType.Int).Value = OC.CveEstatus - .Add("@FechaEstimadaEntrega", SqlDbType.VarChar).Value = OC.FechaEstimadaEntrega - .Add("@LugarEntrega", SqlDbType.VarChar).Value = OC.LugarEntrega - .Add("@CveUsuario", SqlDbType.Int).Value = OC.CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = OC.CveEmpresa - .Add("@CveProveedor", SqlDbType.Int).Value = OC.CveProveedor - .Add("@CveProveedorSucursal", SqlDbType.Int).Value = OC.CveProveedorSucursal - .Add("@PorcentajeIVA", SqlDbType.SmallMoney).Value = OC.PorcentajeIVA - .Add("@IVA", SqlDbType.Money).Value = OC.IVA - .Add("@RetIVA", SqlDbType.Money).Value = OC.RetIVA - .Add("@RetISR", SqlDbType.Money).Value = OC.RetISR - .Add("@RequiereCotizacion", SqlDbType.Bit).Value = If(OC.RequiereCotizacion = True, 1, 0) - .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = OC.CvePresupuestoEgreso - .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = OC.CveUsuarioAsignado - .Add("@IDCuentaPolizaAC", SqlDbType.Int).Value = OC.IDCuentaPolizaAC - .Add("@CveCliente", SqlDbType.Int).Value = OC.CveCliente - .Add("@CveVendedor", SqlDbType.Int).Value = OC.CveVendedor - .Add("@CveCotizacion", SqlDbType.Int).Value = OC.CveCotizacion - .Add("@PrioridadObservacion", SqlDbType.VarChar).Value = OC.PrioridadObservacion - .Add("@FolioAdicional", SqlDbType.VarChar).Value = OC.FolioAdicional - .Add("@EntregaDirecta", SqlDbType.Int).Value = OC.EntregaDirecta - .Add("@CveDireccionEnvio", SqlDbType.Int).Value = OC.CveDireccionEnvio - .Add("@Guia", SqlDbType.VarChar).Value = "-1" - - .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - - _CveOrdenCompra = SqlAdapter.SelectCommand.Parameters("@vCveOrdenCompra").Value.ToString.ToEntero - _Folio = SqlAdapter.SelectCommand.Parameters("@vFolio").Value.ToString.ToEntero - - 'GetOC(_CveOrdenCompra, pCveEmpresa) - Retorno = True - Catch ex As SqlException - If ex.Number = 2627 Then - Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) - Else - OnError("Ocurrió un error al guardar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateOrdenCompraPoliza(IDPoliza As Integer, pCveOrdenCompra As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraPolizaUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@IDPoliza", SqlDbType.Int).Value = IDPoliza - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar la Poliza de la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateOrdenCompraDetalleAjuste(CveOrdenCompra As Integer, CveOrdenCompraDetalle As Integer, Diferencia As Double, CveUsuarioModifico As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_OrdenesCompraDetalleAjusteUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle - .Add("@Diferencia", SqlDbType.Float).Value = Diferencia - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar la Orden de Compra Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - Public Function UpdateOrdenCompraMoneda(CveOrdenCompra As Integer, CveEmpresa As Integer, CveMoneda As Integer, CveUsuarioModifico As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_OrdenesCompraMonedaUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa +Imports System.Data +Imports System.Data.SqlClient +Imports Extensiones +Imports Modelos + +Public Class ClsOC + Implements IDisposable + +#Region "Campos" + 'SQL + Private SqlConexion As SqlConnection + Private SqlAdapter As SqlDataAdapter + Private SqlTransacc As SqlTransaction + Private SqlCommand As SqlCommand + Private StrSQL As StringBuilder + Private Data As DataTable + 'Atributos de la clase + Private disposedValue As Boolean = False + 'PARA REGISTRAR CONEXION + Private CveConexion As Integer = 0 + +#End Region + +#Region "Propiedades" + + Public Property FechaIng As Date + Public Property CveUsuario As Integer + Public Property NombreUsuario As String + Public Property CveOrdenCompra As Integer + Public Property CveOrdenCompraDetalle As Integer + Public Property Folio As Integer + Public Property CveIEAnticipo As Integer + Public Property CveProveedorAnticipo As Integer + Public Property FolioIEAnticipo As Integer + Public Property ImporteAnticipo As Double + + Public Property FolioAdicional As String + Public Property EntregaDirecta As Boolean + Public Property CveVenta As Integer + Public Property CveCompra As Integer + Public Property CveMovimientoAlmacenVenta As Integer + Public Property TieneVenta As Integer + Public Property TieneCompraInv As Integer + + Public Property Tipo As String + Public Property CveEstatus As Integer + Public Property Estatus As String + Public Property Prioridad As Integer + Public Property Moneda As String + Public Property UsuarioAsignado As String + Public Property CveUsuarioAsignado As Integer + + Private _EsCancelable As Boolean + + Private _EsCotizacion As Boolean + Public Property TipoTermino As Integer + Public Property CveEstatusSiguiente As Integer + Public Property CveEstatusAnterior As Integer + + Public Property Descripcion As String + Public Property Justificacion As String + Public Property CveEmpresa As Integer + Private _CveProyecto As Integer + + 'Private _CveUsuario As Integer + Public Property Fecha As Date + Public Property FechaEstimadaEntrega As Date + 'Private _NombreUsuario As String + Public Property CveProveedor As Integer + Public Property CveProveedorSucursal As Integer + Public Property SucursalDireccion As String + Public Property ProveedorContacto As String + Public Property SucursalTelefono As String + Public Property RazonSocial As String + Public Property Direccion As String + Public Property Telefono As String + Public Property RFC As String + Public Property LugarEntrega As String + Public Property Cancelacion As String + Public Property PorcentajeIVA As Double + Public Property CveCliente As Integer + Public Property CveVendedor As Integer + Public Property PrioridadObservacion As String + Public Property SubTotal As Double + Public Property IVA As Double + Public Property RetIVA As Double + Public Property RetISR As Double + Public Property IEPS As Double + Public Property Total As Double + Public Property CvePresupuestoEgreso As Integer + Public Property RequiereCotizacion As Boolean + Public Property CveActivoFijo As Integer + Public Property Codigo As String + Public Property Proyecto As String + Public Property CveSubProyecto2 As Integer + Public Property SubProyecto As String + Public Property UsuarioSolicito As String + Public Property UsuarioAutorizo As String + Public Property Descuento As Double + Public Property Pendiente As Double + Public Property NombreCliente As String + Public Property SucCalle As String + Public Property SucNoExt As String + Public Property SucNoInt As String + Public Property SucColonia As String + Public Property SucMunicipio As String + Public Property SucEstado As String + Public Property SucPais As String + Public Property SucCP As String + Public Property SucTelefono As String + Public Property CveDireccionEnvio As Integer + Public Property IdPoliza As Integer + Public Property HoraElaboracion As String + Public Property SucSubProyecto As String + Public Property Guia As String + Public Property CveUsoCFDI As Integer + Public Property UsoCFDI As String + Public Property Promocion As String + Public Property CveProveedorContacto As Integer + + Public ReadOnly Property DtResultados() As DataTable + Get + DtResultados = Data + End Get + End Property + + +#End Region + +#Region "Propiedades ClsOCCotizaciones" + Public Property CveCotizacion As Integer + Public Property CveCotizacionDetalle As Integer + + Public Property NombreComercial As String + + Public Property CveMoneda As Integer + Public Property CveColectiva As Integer + Public Property Colectiva As String + + Public Property Extension As String + Public Property Adjunto As String + Public Property Usuario As String + + Public Property Empresa As String + Public Property Sucursal As String + Public Property ObjLugarEntrega As String + Public Property DiasCredito As Integer + + + +#End Region + + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) + + If TransaccionCompartida Is Nothing Then + SqlConexion = New SqlConnection + SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + Try + SqlConexion.Open() + Catch ex As Exception + OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) + End Try + Else + SqlConexion = TransaccionCompartida.Connection + SqlTransacc = TransaccionCompartida + End If + + SqlCommand = New SqlCommand("", SqlConexion) + SqlAdapter = New SqlDataAdapter("", SqlConexion) + StrSQL = New StringBuilder + ConexionAdd() + End Sub + Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) + With SqlAdapter.SelectCommand + .Parameters.Clear() + .CommandText = StrSQL + .CommandType = TipoComando + End With + If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc + Data = New DataTable + End Sub +#Region "Conexiones" + + Private Sub ConexionAdd() + If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + + 'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo) VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo + + Try + DataAdapter("PA_Sis_RegistrarConexion") + With SqlAdapter.SelectCommand.Parameters + .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name + .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) + .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + SqlAdapter.Fill(Data) + CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + End If + End Sub + + Private Sub ConexionClose() + If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + + DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + CveConexion = 0 + End If + + End Sub +#End Region + Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) + With SqlCommand + .Parameters.Clear() + .CommandText = pStrSQL + .CommandType = TipoComando + End With + + If Not SqlTransacc Is Nothing Then SqlCommand.Transaction = SqlTransacc + + End Sub + Public Function IniciaTransacSQL() As SqlTransaction + If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() + Return SqlTransacc + End Function + Public Sub RollBack() + If SqlTransacc IsNot Nothing Then SqlTransacc.Rollback() + SqlTransacc = Nothing + End Sub + Public Sub Commit() + If SqlTransacc IsNot Nothing Then SqlTransacc.Commit() + SqlTransacc = Nothing + End Sub + +#Region "ClsOCCotizaciones" + Public Function GetCotizaciones(pCveOrdenCompra As Integer, Optional pCveCotizacion As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_CotizacionesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion + End With + + Try + SqlAdapter.Fill(Data) + If Data.Rows.Count = 1 Then + Me.CveProveedor = If(Not IsDBNull(Data.Rows(0)("CveProveedor")), Data.Rows(0)("CveProveedor").ToString.ToEntero(), -1) + NombreComercial = If(Not IsDBNull(Data.Rows(0)("NombreComercial")), Data.Rows(0)("NombreComercial").ToString, "") + Me.RazonSocial = If(Not IsDBNull(Data.Rows(0)("RazonSocial")), Data.Rows(0)("RazonSocial").ToString, "") + + CveColectiva = If(Not IsDBNull(Data.Rows(0)("CveColectiva")), Data.Rows(0)("CveColectiva").ToString.ToEntero(), -1) + Colectiva = If(Not IsDBNull(Data.Rows(0)("Colectiva")), Data.Rows(0)("Colectiva").ToString, "") + + CveCotizacion = Data.Rows(0)("CveCotizacion").ToString.ToEntero() + Me.CveOrdenCompra = Data.Rows(0)("CveOrdenCompra").ToString.ToEntero() + CveMoneda = If(Not IsDBNull(Data.Rows(0)("CveMoneda")), Data.Rows(0)("CveMoneda").ToString.ToEntero(), -1) + + Me.Folio = Data.Rows(0)("Folio").ToString.ToEntero + Me.Fecha = Data.Rows(0)("Fecha").ToString.ToDate + Adjunto = Data.Rows(0)("Adjunto").ToString + Extension = Data.Rows(0)("Extension").ToString + Usuario = Data.Rows(0)("Usuario").ToString + Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero + Me.Total = Data.Rows(0)("Total").ToString.ToDouble + + + Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero + 'Me.CveProveedorSucursal = Data.Rows(0)("CveProveedorSucursal").ToString.ToEntero + Empresa = Data.Rows(0)("Empresa").ToString + CveSubProyecto2 = Data.Rows(0)("CveSubProyecto").ToString.ToEntero + SubProyecto = Data.Rows(0)("SubProyecto").ToString + ObjLugarEntrega = Data.Rows(0)("LugarEntrega").ToString + DiasCredito = Data.Rows(0)("DiasCredito").ToString.ToEntero + End If + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Cotizaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetCotizacionesTabla(pCveOrdenCompra As Integer) As DataSet + Dim Retorno As New DataSet + + DataAdapter("PA_OC_Cotizaciones2Get") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + End With + + Try + SqlAdapter.Fill(Retorno) + Catch ex As Exception + ' OnError("Ocurrió un error al obtener el Catálogo de Cotizaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddCotizacion(pCveOrdenCompra As Integer, pCveProveedor As Integer, pCveColectiva As Integer, pFolio As String, pFecha As String, pAdjunto As String, pCveMoneda As Integer, pDiasCredito As Integer, pCveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_CotizacionesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveProveedor", SqlDbType.Int).Value = pCveProveedor + .Add("@CveColectiva", SqlDbType.Int).Value = pCveColectiva + .Add("@Folio", SqlDbType.VarChar).Value = pFolio + .Add("@Fecha", SqlDbType.VarChar).Value = pFecha + .Add("@Adjunto", SqlDbType.VarChar).Value = pAdjunto + .Add("@CveMoneda", SqlDbType.Int).Value = pCveMoneda + .Add("@DiasCredito", SqlDbType.Int).Value = pDiasCredito + .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario + .Add("@vCveCotizacion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + CveCotizacion = SqlAdapter.SelectCommand.Parameters("@vCveCotizacion").Value.ToString.ToEntero + Retorno = True + Catch ex As SqlException + If ex.Number = 2627 Then + Alert("La Clave o Descripción de la Cotizacion ya existe.", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al guardar el nuevo Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar el nuevo Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateCotizacion(pCveProveedor As Integer, pCveColectiva As Integer, pFolio As String, pFecha As String, pAdjunto As String, pCveMoneda As Integer, pDiasCredito As Integer, pCveUsuario As Integer, pCveCotizacion As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_CotizacionesUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = pCveProveedor + .Add("@CveColectiva", SqlDbType.Int).Value = pCveColectiva + .Add("@Folio", SqlDbType.VarChar).Value = pFolio + .Add("@Fecha", SqlDbType.VarChar).Value = pFecha + .Add("@Adjunto", SqlDbType.VarChar).Value = pAdjunto + .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario + .Add("@DiasCredito", SqlDbType.Int).Value = pDiasCredito + .Add("@CveMoneda", SqlDbType.Int).Value = pCveMoneda + .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As SqlException + If ex.Number = 2627 Then + Alert("La Clave o Descripción del Cotizacion ya existe.", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al guardar los cambios en el Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en el Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function RemoveCotizacion(pCveCotizacion As Integer) As String + Dim Retorno As String = "" + + DataAdapter("PA_OC_CotizacionesRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion + .Add("@vNombreArchivo", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = SqlAdapter.SelectCommand.Parameters("@vNombreArchivo").Value.ToString + Catch ex As Exception + OnError("Ocurrió un error al eliminar el Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetCotizacionesDetalle(pCveCotizacion As Integer, Optional pCveOrdenCompra As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_CotizacionesDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener Detalle de cotización.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function AddCotizacionDetalle(pCveCotizacion As Integer, pCvePS As Integer, pPrecioUnitario As Double, pCantidad As Double, pCveUM As Integer, pCantidadSurtir As Double, pFechaEntrega As String, pObservacion As String, pCveOrdenCompraDetalle As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_CotizacionesDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion + .Add("@CvePS", SqlDbType.Int).Value = pCvePS + .Add("@PU", SqlDbType.Money).Value = pPrecioUnitario + .Add("@Cantidad", SqlDbType.Float).Value = pCantidad + .Add("@CveUM", SqlDbType.Int).Value = pCveUM + .Add("@CantidadSurtir", SqlDbType.Float).Value = pCantidadSurtir + .Add("@FechaEntrega", SqlDbType.VarChar).Value = pFechaEntrega + .Add("@Observacion", SqlDbType.VarChar).Value = pObservacion + .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = pCveOrdenCompraDetalle + .Add("@vCveCotizacionDetalle", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + + CveCotizacionDetalle = SqlAdapter.SelectCommand.Parameters("@vCveCotizacionDetalle").Value.ToString.ToEntero + Retorno = True + Catch ex As SqlException + If ex.Number = 2627 Then + Alert("La Clave o Descripción de la Cotizacion ya existe.", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al guardar el nuevo Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar el nuevo Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateCotizacionDetalle(pCveCotizacionDetalle As Integer, pPrecioUnitario As Double, pCantidadSurtir As Double, pFechaEntrega As String, pObservacion As String) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_CotizacionesDetalleUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@PU", SqlDbType.Money).Value = pPrecioUnitario + .Add("@CantidadSurtir", SqlDbType.Float).Value = pCantidadSurtir + .Add("@FechaEntrega", SqlDbType.VarChar).Value = pFechaEntrega + .Add("@Observacion", SqlDbType.VarChar).Value = pObservacion + .Add("@CveCotizacionDetalle", SqlDbType.Int).Value = pCveCotizacionDetalle + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + If ex.Number = 2627 Then + Alert("La Clave o Descripción de la Cotizacion ya existe.", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al actualizar la Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al actualizar la Cotización.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateCotizacionDetalleGanadora(pCveCotizacionDetalle As Integer, pEsGanadora As Boolean) As Integer + Dim Retorno As Integer = -1 + + DataAdapter("PA_OC_CotizacionesDetalleEsGanadoraUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@EsGanadora", SqlDbType.Bit).Value = pEsGanadora + .Add("@CveCotizacionDetalle", SqlDbType.Int).Value = pCveCotizacionDetalle + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = pCveCotizacionDetalle + Catch ex As SqlException + If ex.Number = 2627 Then + Alert("La Clave o Descripción de la Cotizacion ya existe.", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al actualizar la Cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al actualizar la Cotización.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function RemoveCotizacionDetalle(pCveCotizacion As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_CotizacionesDetalleRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCotizacion", SqlDbType.Int).Value = pCveCotizacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el Cotizacion Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateOrdenCompraCotizacion(pCveOrdenCompra As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraDetalleCotizacionUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la OC/Req con Cotización.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + + 'Public Function GetEstatusCompra(ByVal CveEstatusCompra As Integer, ByVal EstatusCompra As String) As Boolean + ' Dim Retorno As Boolean = False + + ' DataAdapter("PA_OC_EstatusOrdenCompraGet") + ' Try + ' SqlAdapter.Fill(Data) + + ' If Data.Rows.Count = 1 Then + ' _CveEstatusCompra = Data.Rows(0)("CveEstatusCompra").ToString().ToEntero() + ' _EstatusCompra = Data.Rows(0)("EstatusCompra").ToString() + ' _Estatus = Data.Rows(0)("Estatus").ToString = "True" + ' _FechaIng = Data.Rows(0)("FechaIng").ToString().ToDate() + ' _CveUsuario = Data.Rows(0)("CveUsuario").ToString().ToEntero() + ' _NombreUsuario = Data.Rows(0)("Nombre").ToString() + ' End If + + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener el Catálogo de Estatus de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + 'End Function + + 'Public Function AddEstatusCompra(ByVal Descripcion As String, Estatus As Boolean, ByVal CveUsuario As Integer) As Boolean + ' Dim Retorno As Boolean = False + + ' DataAdapter("PA_OC_EstatusOrdenCompraAdd") + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@EstatusOrdenCompra", SqlDbType.VarChar).Value = Descripcion + ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + + ' Retorno = True + ' Catch ex As SqlException + ' If ex.Number = 2627 Then + ' Alert("La Clave o Descripción del EstatusCompra ya existe.", TipoMensaje.MsgAdvertencia) + ' Else + ' OnError("Ocurrió un error al guardar el nuevo estatus de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End If + ' Catch ex As Exception + ' OnError("Ocurrió un error al guardar el nuevo estatus de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + 'End Function + + 'Public Function UpdateEstatusCompra(ByVal Descripcion As String, Estatus As Boolean, ByVal CveEstatusCompra As Integer, ByVal CveUsuario As Integer) As Boolean + ' Dim Retorno As Boolean = False + + ' DataAdapter("PA_OC_EstatusOrdenCompraUpdate") + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@EstatusOrdenCompra", SqlDbType.VarChar).Value = Descripcion + ' '.Add("@pCveUsuario", SqlDbType.Int).Value = CveUsuario + ' .Add("@Estatus", SqlDbType.Bit).Value = Estatus + ' .Add("@CveEstatusOrdenCompra", SqlDbType.Int).Value = CveEstatusCompra + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + + ' Retorno = True + ' Catch ex As SqlException + ' If ex.Number = 2627 Then + ' Alert("La Clave o Descripción del Estatus de Compra ya existe.", TipoMensaje.MsgAdvertencia) + ' Else + ' OnError("Ocurrió un error al guardar los cambios en el estatus de compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End If + ' Catch ex As Exception + ' OnError("Ocurrió un error al guardar los cambios en el estatus de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + 'End Function + + 'Public Function RemoveEstatusCompra(ByVal CveEstatusCompra As Integer) As Boolean + ' Dim Retorno As Boolean = False + + ' DataAdapter("PA_OC_EstatusOrdenCompraRemove") + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveEstatusOrdenCompra", SqlDbType.Int).Value = CveEstatusCompra + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al eliminar el estatus de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + 'End Function + + + +#Region "O R D E N E S - D E - C O M P R A S" + Public Function GetOC(ObjOrdenCompra As Modelos.OrdenCompra) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = ObjOrdenCompra.CveOrdenCompra + .Add("@Folio", SqlDbType.Int).Value = ObjOrdenCompra.Folio + .Add("@CveSubProyecto", SqlDbType.Int).Value = -1 'ObjOrdenCompra.CveSucursal + .Add("@Tipo", SqlDbType.VarChar).Value = ObjOrdenCompra.Tipo + .Add("@CveCliente", SqlDbType.Int).Value = ObjOrdenCompra.CveCliente + .Add("@CveVendedor", SqlDbType.Int).Value = ObjOrdenCompra.CveVendedor + .Add("@Guia", SqlDbType.Int).Value = ObjOrdenCompra.Guia + .Add("@CveEmpresa", SqlDbType.Int).Value = ObjOrdenCompra.CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + If Data.Rows.Count > 0 Then + + + Retorno = True + End If + + Catch ex As Exception + OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetOC(CveOrdenCompra As Integer, CveEmpresa As Integer, Optional Folio As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional Tipo As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveUsuario As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@Folio", SqlDbType.Int).Value = Folio + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Tipo", SqlDbType.VarChar).Value = Tipo + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@Guia", SqlDbType.Int).Value = Guia + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + + If Data.Rows.Count >= 1 Then + Dim dr As DataRow = Data.Rows(0) + _CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero + _Folio = dr("Folio").ToString.ToEntero + _CveIEAnticipo = dr("CveIEAnticipo").ToString.ToEntero + _FolioIEAnticipo = dr("FolioIEAnticipo").ToString.ToEntero + _ImporteAnticipo = dr("ImporteAnticipo").ToString.ToDouble + _CveProveedorAnticipo = dr("CveProveedorAnticipo").ToString.ToEntero + _CveEmpresa = dr("CveEmpresa").ToString.ToEntero + _CveProyecto = dr("CveProyecto").ToString.ToEntero + '_CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero + _Guia = dr("Guia").ToString + _FechaEstimadaEntrega = If(Not IsDBNull(dr("FechaEstimadaEntrega")), CDate(dr("FechaEstimadaEntrega")), New DateTime) + _Descripcion = dr("Descripcion").ToString + _Justificacion = dr("Justificacion").ToString + _Prioridad = If(dr("Prioridad").ToString.ToEntero = 0, -1, dr("Prioridad").ToString.ToEntero) + _Tipo = dr("Tipo").ToString + _Fecha = dr("Fecha").ToString.ToDate + _HoraElaboracion = dr("HoraElaboracion").ToString + _CveEstatus = dr("CveEstatus").ToString.ToEntero + CveMoneda = dr("CveMoneda").ToString.ToEntero + Moneda = dr("Moneda").ToString + UsuarioAsignado = dr("UsuarioAsignado").ToString + CveUsuarioAsignado = dr("CveUsuarioAsignado").ToString.ToEntero + _EsCancelable = dr("EsCancelable").ToString = "True" + _TipoTermino = dr("TipoTermino").ToString.ToEntero + Cancelacion = dr("Cancelacion").ToString + _CveEstatusSiguiente = dr("CveEstatusSiguiente").ToString.ToEntero + _EsCotizacion = dr("EsCotizacion").ToString = "True" + _CveEstatusAnterior = If(Not IsDBNull(dr("CveEstatusAnterior")), dr("CveEstatusAnterior").ToString.ToEntero, -1) + _Estatus = dr("Estatus").ToString + RequiereCotizacion = dr("RequiereCotizacion").ToString() = "True" + _CveUsuario = dr("CveUsuario").ToString.ToEntero + _NombreUsuario = dr("NombreUsuario").ToString + + _CveProveedor = If(Not IsDBNull(dr("CveProveedor")), dr("CveProveedor").ToString.ToEntero, -1) + _CveProveedorSucursal = If(Not IsDBNull(dr("CveProveedorSucursal")), dr("CveProveedorSucursal").ToString.ToEntero, -1) + _RazonSocial = If(Not IsDBNull(dr("RazonSocial")), dr("RazonSocial").ToString, "") + _Direccion = If(Not IsDBNull(dr("Direccion")), dr("Direccion").ToString, "") + _Telefono = If(Not IsDBNull(dr("Telefono")), dr("Telefono").ToString, "") + _RFC = If(Not IsDBNull(dr("RFC")), dr("RFC").ToString, "") + _LugarEntrega = If(Not IsDBNull(dr("LugarEntrega")), dr("LugarEntrega").ToString, "") + _CveCliente = If(dr("CveCliente").ToString.ToEntero = 0, -1, dr("CveCliente").ToString.ToEntero) + _CveVendedor = If(dr("CveVendedor").ToString.ToEntero = 0, -1, dr("CveVendedor").ToString.ToEntero) + _PrioridadObservacion = dr("PrioridadObservacion").ToString + IdPoliza = dr("IdPoliza").ToString.ToEntero + Me.SucursalDireccion = If(Not IsDBNull(dr("DireccionSucursal")), dr("DireccionSucursal").ToString, "") + Me.SucursalTelefono = If(Not IsDBNull(dr("TelefonoSucursal")), dr("TelefonoSucursal").ToString, "") + ProveedorContacto = dr("ContactoNombre").ToString + + PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDouble + SubTotal = dr("SubTotal").ToString.ToDouble + Descuento = dr("Descuento").ToString.ToDouble + IVA = dr("IVA").ToString.ToDouble + RetIVA = dr("RetIVA").ToString.ToDouble + RetISR = dr("RetISR").ToString.ToDouble + IEPS = dr("IEPS").ToString.ToDouble + Total = dr("Total").ToString.ToDouble + Pendiente = dr("Pendiente").ToString.ToDouble + 'If Not IsDBNull(dr("SubTotal")) Then + ' SubTotal = dr("SubTotal").ToString.ToDouble + ' If IVA <= 0 Then + ' _IVA = _SubTotal * dr("PorcentajeIVA").ToString.ToDouble + ' End If + ' _Total = _SubTotal + _IVA - _Descuento - _RetIVA - _RetISR + 'End If + + '_CveSupervisara = dr("CveSupervisara").ToString.ToEntero + '_CveAutoriza = dr("CveAutoriza").ToString.ToEntero + '_CveAutorizara = dr("CveAutorizara").ToString.ToEntero + + '_NombreSupervisa = dr("NombreSupervisa").ToString + + '_NombreAutoriza = dr("NombreAutoriza").ToString + '_FechaSupervisa = dr("FechaSupervisa").ToString.ToDate + '_FechaAutoriza = dr("FechaAutoriza").ToString.ToDate + + 'RequiereCotizacion = CType(dr("RequiereCotizacion"), Boolean) + SubProyecto = dr("SubProyecto").ToString + CveSubProyecto2 = dr("CveSubProyecto").ToString.ToEntero + + Empresa = dr("Empresa").ToString + Proyecto = dr("Proyecto").ToString + 'SubProyecto = dr("SubProyecto").ToString + _CvePresupuestoEgreso = dr("CvePresupuestoEgreso").ToString.ToEntero + + UsuarioSolicito = dr("UsuarioSolicito").ToString + UsuarioAutorizo = dr("UsuarioAutorizo").ToString + FolioAdicional = dr("FolioAdicional").ToString + EntregaDirecta = If(dr("EntregaDirecta").ToString.ToEntero > 0, True, False) + NombreCliente = dr("NombreCliente").ToString + CveVenta = dr("CveVenta").ToString.ToEntero + CveCompra = dr("CveCompra").ToString.ToEntero + CveMovimientoAlmacenVenta = dr("CveMovimientoAlmacenVenta").ToString.ToEntero + TieneVenta = dr("TieneVenta").ToString.ToEntero + TieneCompraInv = dr("TieneCompraInv").ToString.ToEntero + _CveDireccionEnvio = dr("CveDireccionEnvio").ToString.ToEntero + _CveUsoCFDI = dr("CveUsoCFDI").ToString.ToEntero + _UsoCFDI = dr("UsoCFDI").ToString + Promocion = IfNull(dr("Promocion"), "", dr("Promocion").ToString) + CveProveedorContacto = If(Not IsDBNull(dr("CveProveedorContacto")), dr("CveProveedorContacto").ToString.ToEntero, -1) + + Retorno = True + ElseIf Data.Rows.Count > 0 Then + Retorno = True + End If + + Catch ex As Exception + OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddOrdenCompra(pTipo As String, pCveSubProyecto As Integer, ByVal pDescripcion As String, pJustificacion As String, Prioridad As Integer, Fecha As Date, CveMoneda As Integer, pCveEstatus As Integer, + pFechaEstimadaEntrega As String, pLugarEntrega As String, pCveUsuario As Integer, pCveEmpresa As Integer, pCvePresupuestoEgreso As Integer, + Optional pCveProveedor As Integer = -1, Optional pCveProveedorSucursal As Integer = -1, Optional IDPoliza As Integer = -1, Optional RequiereCotizacion As Boolean = False, Optional CveUsuarioAsignado As Integer = -1, + Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "", + Optional PorcentajeIVA As Double = 0.16, Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional FechaExpiracion As Date = Nothing, Optional CveCotizacion As Integer = -1, + Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, + Optional CveIEAnticipo As Integer = -1, Optional ImporteAnticipo As Double = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Tipo", SqlDbType.VarChar).Value = pTipo + .Add("@CveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto + .Add("@Descripcion", SqlDbType.VarChar).Value = pDescripcion + .Add("@Justificacion", SqlDbType.VarChar).Value = pJustificacion + .Add("@Prioridad", SqlDbType.Int).Value = Prioridad + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar la Orden de Compra Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function UpdateOrdenCompra(pCveSubProyecto As Integer, ByVal pDescripcion As String, pJustificacion As String, Prioridad As Integer, pRequiereCotizacion As Boolean, pFechaEstimadaEntrega As String, pLugarEntrega As String, pCveMoneda As Integer, - pCveProveedor As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer, Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "", - Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IDPoliza As Integer = -1, Optional FechaExpiracion As Date = Nothing, Optional FolioAdicional As String = "", - Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", - Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Double = 0.16) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto - .Add("@Descripcion", SqlDbType.VarChar).Value = pDescripcion - .Add("@Justificacion", SqlDbType.VarChar).Value = pJustificacion - .Add("@Prioridad", SqlDbType.Int).Value = Prioridad - .Add("@RequiereCotizacion", SqlDbType.Bit).Value = If(pRequiereCotizacion, 1, 0) - .Add("@FechaEstimadaEntrega", SqlDbType.VarChar).Value = pFechaEstimadaEntrega - .Add("@LugarEntrega", SqlDbType.VarChar).Value = pLugarEntrega - .Add("@CveMoneda", SqlDbType.Int).Value = pCveMoneda - .Add("@CveProveedor", SqlDbType.Int).Value = pCveProveedor - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = pCveUsuarioModifico - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@PrioridadObservacion", SqlDbType.VarChar).Value = PrioridadObservacion - .Add("@IVA", SqlDbType.Money).Value = IVA - .Add("@RetIVA", SqlDbType.Money).Value = RetIVA - .Add("@RetISR", SqlDbType.Money).Value = RetISR - .Add("@IEPS", SqlDbType.Money).Value = IEPS - .Add("@IDCuentaPolizaAC", SqlDbType.Int).Value = IDPoliza - .Add("@FolioAdicional", SqlDbType.VarChar).Value = FolioAdicional - .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta - .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio - .Add("@Guia", SqlDbType.VarChar).Value = Guia - .Add("@UsoCFDI", SqlDbType.Int).Value = UsoCFDI - .Add("@Promocion", SqlDbType.VarChar).Value = Promocion - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@CveProveedorSucursal", SqlDbType.Int).Value = pCveProveedorSucursal - .Add("@CveProveedorContacto", SqlDbType.Int).Value = CveProveedorContacto - .Add("@PorcentajeIVA", SqlDbType.SmallMoney).Value = PorcentajeIVA - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As SqlException - If ex.Number = 2627 Then - Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) - Else - OnError("Ocurrió un error al actualizar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al actualizar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateOrdenCompraGuia(pGuia As String, pCveEmpresa As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraUpdateGuia") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Guia", SqlDbType.VarChar).Value = pGuia - .Add("@CveEmpresa", SqlDbType.Int).Value = pCveEmpresa - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = pCveUsuarioModifico - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As SqlException - If ex.Number = 2627 Then - Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) - Else - OnError("Ocurrió un error al guardar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al editar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateProveedorOrdenCompra(pCveProveedor As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraProveedorUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = pCveProveedor - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = pCveUsuarioModifico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - - Catch ex As Exception - OnError("Ocurrió un error al editar el proveedor en la orden de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateClienteVendedorOrdenCompra(pCveCliente As Integer, pCveVendedor As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraClienteVendedorUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = pCveCliente - .Add("@CveVendedor", SqlDbType.Int).Value = pCveVendedor - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = pCveUsuarioModifico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - - Catch ex As Exception - OnError("Ocurrió un error al editar el Cliente-Vendedor en la orden de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateOrdenCompraVinculacionCompra(CveCompra As Integer, CveOrdenCompra As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraUpdateCompra") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As SqlException - If ex.Number = 2627 Then - Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) - Else - OnError("Ocurrió un error al guardar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al editar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateOrdenCompraRequiereCorizacion(CveOrdenCompra As Integer, RequiereCotizacion As Boolean) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraRequiereCorizacionUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@RequiereCotizacion", SqlDbType.Bit).Value = RequiereCotizacion - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al editar la OrdenCompra, Requiere cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetSucursalOC(CveOC As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_GetSucursalOC") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - End With - - Try - SqlAdapter.Fill(Data) - If Data.Rows.Count > 0 Then - Dim dr As DataRow = Data.Rows(0) - SucCalle = dr("Calle").ToString - SucNoExt = dr("NoExt").ToString - SucNoInt = dr("NoInt").ToString - SucColonia = dr("Colonia").ToString - SucMunicipio = dr("Municipio").ToString - SucEstado = dr("Estado").ToString - SucPais = dr("Pais").ToString - SucCP = dr("CP").ToString - SucSubProyecto = dr("SubProyecto").ToString - SucTelefono = dr("Telefono").ToString - End If - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la sucursal de la orden de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region "O R D E N E S - D E - C O M P R A S - D E T A L L E" - Public Function GetPrueba() As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_PruebaGet") - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener una Prueba.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetOrdenesDetalle(pCveOrdenCompra As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraDetalleGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el detalle de OrdenCompras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function AddOrdenCompraDetalle(pCveOrdenCompra As Integer, pCantidad As Double, pCveUnidadMedida As Integer, pCvePS As Integer, pImporte As Double, pCveSubProyecto As Integer, pCveActivoFijo As Integer, - pObservacion As String, pCveUsuario As Integer, Optional pCveOrdenCompraPadre As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1, Optional Descuento As Double = 0, - Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, Optional IVA As Double = 0, Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional Total As Double = 0, - Optional CveContratoDetalle As Integer = -1, Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, - Optional IEPSPSIVAPorcentaje As Double = 0, Optional CveVentaDetalleCotizacion As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_OrdenesCompraDetalleAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@Cantidad", SqlDbType.Float).Value = pCantidad - .Add("@Descuento", SqlDbType.Float).Value = Descuento - .Add("@Importe", SqlDbType.Float).Value = pImporte - .Add("@CveUnidadMedida", SqlDbType.Int).Value = pCveUnidadMedida - .Add("@CvePS", SqlDbType.Int).Value = pCvePS - .Add("@Observacion", SqlDbType.VarChar).Value = pObservacion - .Add("@CveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto - .Add("@CveActivoFijo", SqlDbType.Int).Value = pCveActivoFijo - .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario - .Add("@CveOrdenCompraPadre", SqlDbType.Int).Value = pCveOrdenCompraPadre - .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso - .Add("@vCveOrdenCompraDetalle", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@IEPSPS", SqlDbType.Money).Value = IEPSPS - .Add("@IEPSPSIVA", SqlDbType.Money).Value = IEPSPSIVA - .Add("@IVA", SqlDbType.Float).Value = IVA - .Add("@RetIVA", SqlDbType.Float).Value = RetIVA - .Add("@RetISR", SqlDbType.Float).Value = RetISR - .Add("@Total", SqlDbType.Float).Value = Total - .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle - .Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje - .Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje - .Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje - .Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje + .Add("@CveEstatus", SqlDbType.Int).Value = pCveEstatus + .Add("@FechaEstimadaEntrega", SqlDbType.VarChar).Value = pFechaEstimadaEntrega + .Add("@LugarEntrega", SqlDbType.VarChar).Value = pLugarEntrega + .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = pCveEmpresa + .Add("@CveProveedor", SqlDbType.Int).Value = pCveProveedor + .Add("@CveProveedorSucursal", SqlDbType.Int).Value = pCveProveedorSucursal + .Add("@PorcentajeIVA", SqlDbType.SmallMoney).Value = PorcentajeIVA + .Add("@IVA", SqlDbType.Money).Value = IVA + .Add("@RetIVA", SqlDbType.Money).Value = RetIVA + .Add("@RetISR", SqlDbType.Money).Value = RetISR + .Add("@IEPS", SqlDbType.Money).Value = IEPS + .Add("@RequiereCotizacion", SqlDbType.Bit).Value = If(RequiereCotizacion = True, 1, 0) + .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = pCvePresupuestoEgreso + .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado + .Add("@IDCuentaPolizaAC", SqlDbType.Int).Value = IDPoliza + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveCotizacion", SqlDbType.Int).Value = CveCotizacion + + .Add("@PrioridadObservacion", SqlDbType.VarChar).Value = PrioridadObservacion + .Add("@FolioAdicional", SqlDbType.VarChar).Value = FolioAdicional + .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta + .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@CveIEAnticipo", SqlDbType.Int).Value = CveIEAnticipo + .Add("@ImporteAnticipo", SqlDbType.Money).Value = ImporteAnticipo + .Add("@UsoCFDI", SqlDbType.Int).Value = UsoCFDI + .Add("@Promocion", SqlDbType.VarChar).Value = Promocion + .Add("@CveProveedorContacto", SqlDbType.Int).Value = CveProveedorContacto + + .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + + _CveOrdenCompra = SqlAdapter.SelectCommand.Parameters("@vCveOrdenCompra").Value.ToString.ToEntero + _Folio = SqlAdapter.SelectCommand.Parameters("@vFolio").Value.ToString.ToEntero + + 'GetOC(_CveOrdenCompra, pCveEmpresa) + Retorno = True + Catch ex As SqlException + If ex.Number = 2627 Then + Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al guardar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function AddOrdenCompraMovil(OC As WSOrdenCompra) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Tipo", SqlDbType.VarChar).Value = OC.Tipo + .Add("@CveSubProyecto", SqlDbType.Int).Value = OC.CveSubProyecto + .Add("@Descripcion", SqlDbType.VarChar).Value = OC.Descripcion + .Add("@Justificacion", SqlDbType.VarChar).Value = OC.Justificacion + .Add("@Prioridad", SqlDbType.Int).Value = OC.Prioridad + .Add("@Fecha", SqlDbType.DateTime).Value = OC.Fecha + .Add("@CveMoneda", SqlDbType.Int).Value = OC.CveMoneda + .Add("@CveEstatus", SqlDbType.Int).Value = OC.CveEstatus + .Add("@FechaEstimadaEntrega", SqlDbType.VarChar).Value = OC.FechaEstimadaEntrega + .Add("@LugarEntrega", SqlDbType.VarChar).Value = OC.LugarEntrega + .Add("@CveUsuario", SqlDbType.Int).Value = OC.CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = OC.CveEmpresa + .Add("@CveProveedor", SqlDbType.Int).Value = OC.CveProveedor + .Add("@CveProveedorSucursal", SqlDbType.Int).Value = OC.CveProveedorSucursal + .Add("@PorcentajeIVA", SqlDbType.SmallMoney).Value = OC.PorcentajeIVA + .Add("@IVA", SqlDbType.Money).Value = OC.IVA + .Add("@RetIVA", SqlDbType.Money).Value = OC.RetIVA + .Add("@RetISR", SqlDbType.Money).Value = OC.RetISR + .Add("@RequiereCotizacion", SqlDbType.Bit).Value = If(OC.RequiereCotizacion = True, 1, 0) + .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = OC.CvePresupuestoEgreso + .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = OC.CveUsuarioAsignado + .Add("@IDCuentaPolizaAC", SqlDbType.Int).Value = OC.IDCuentaPolizaAC + .Add("@CveCliente", SqlDbType.Int).Value = OC.CveCliente + .Add("@CveVendedor", SqlDbType.Int).Value = OC.CveVendedor + .Add("@CveCotizacion", SqlDbType.Int).Value = OC.CveCotizacion + .Add("@PrioridadObservacion", SqlDbType.VarChar).Value = OC.PrioridadObservacion + .Add("@FolioAdicional", SqlDbType.VarChar).Value = OC.FolioAdicional + .Add("@EntregaDirecta", SqlDbType.Int).Value = OC.EntregaDirecta + .Add("@CveDireccionEnvio", SqlDbType.Int).Value = OC.CveDireccionEnvio + .Add("@Guia", SqlDbType.VarChar).Value = "-1" + + .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + + _CveOrdenCompra = SqlAdapter.SelectCommand.Parameters("@vCveOrdenCompra").Value.ToString.ToEntero + _Folio = SqlAdapter.SelectCommand.Parameters("@vFolio").Value.ToString.ToEntero + + 'GetOC(_CveOrdenCompra, pCveEmpresa) + Retorno = True + Catch ex As SqlException + If ex.Number = 2627 Then + Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al guardar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateOrdenCompraPoliza(IDPoliza As Integer, pCveOrdenCompra As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraPolizaUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@IDPoliza", SqlDbType.Int).Value = IDPoliza + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la Poliza de la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateOrdenCompraDetalleAjuste(CveOrdenCompra As Integer, CveOrdenCompraDetalle As Integer, Diferencia As Double, CveUsuarioModifico As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_OrdenesCompraDetalleAjusteUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle + .Add("@Diferencia", SqlDbType.Float).Value = Diferencia + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la Orden de Compra Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function UpdateOrdenCompraMoneda(CveOrdenCompra As Integer, CveEmpresa As Integer, CveMoneda As Integer, CveUsuarioModifico As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_OrdenesCompraMonedaUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la Orden de Compra Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function UpdateOrdenCompra(pCveSubProyecto As Integer, ByVal pDescripcion As String, pJustificacion As String, Prioridad As Integer, pRequiereCotizacion As Boolean, pFechaEstimadaEntrega As String, pLugarEntrega As String, pCveMoneda As Integer, + pCveProveedor As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer, Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "", + Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IDPoliza As Integer = -1, Optional FechaExpiracion As Date = Nothing, Optional FolioAdicional As String = "", + Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", + Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Double = 0.16) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto + .Add("@Descripcion", SqlDbType.VarChar).Value = pDescripcion + .Add("@Justificacion", SqlDbType.VarChar).Value = pJustificacion + .Add("@Prioridad", SqlDbType.Int).Value = Prioridad + .Add("@RequiereCotizacion", SqlDbType.Bit).Value = If(pRequiereCotizacion, 1, 0) + .Add("@FechaEstimadaEntrega", SqlDbType.VarChar).Value = pFechaEstimadaEntrega + .Add("@LugarEntrega", SqlDbType.VarChar).Value = pLugarEntrega + .Add("@CveMoneda", SqlDbType.Int).Value = pCveMoneda + .Add("@CveProveedor", SqlDbType.Int).Value = pCveProveedor + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = pCveUsuarioModifico + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@PrioridadObservacion", SqlDbType.VarChar).Value = PrioridadObservacion + .Add("@IVA", SqlDbType.Money).Value = IVA + .Add("@RetIVA", SqlDbType.Money).Value = RetIVA + .Add("@RetISR", SqlDbType.Money).Value = RetISR + .Add("@IEPS", SqlDbType.Money).Value = IEPS + .Add("@IDCuentaPolizaAC", SqlDbType.Int).Value = IDPoliza + .Add("@FolioAdicional", SqlDbType.VarChar).Value = FolioAdicional + .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta + .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@UsoCFDI", SqlDbType.Int).Value = UsoCFDI + .Add("@Promocion", SqlDbType.VarChar).Value = Promocion + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveProveedorSucursal", SqlDbType.Int).Value = pCveProveedorSucursal + .Add("@CveProveedorContacto", SqlDbType.Int).Value = CveProveedorContacto + .Add("@PorcentajeIVA", SqlDbType.SmallMoney).Value = PorcentajeIVA + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As SqlException + If ex.Number = 2627 Then + Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al actualizar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al actualizar la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateOrdenCompraGuia(pGuia As String, pCveEmpresa As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraUpdateGuia") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Guia", SqlDbType.VarChar).Value = pGuia + .Add("@CveEmpresa", SqlDbType.Int).Value = pCveEmpresa + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = pCveUsuarioModifico + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As SqlException + If ex.Number = 2627 Then + Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al guardar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al editar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateProveedorOrdenCompra(pCveProveedor As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraProveedorUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = pCveProveedor + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = pCveUsuarioModifico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + + Catch ex As Exception + OnError("Ocurrió un error al editar el proveedor en la orden de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateClienteVendedorOrdenCompra(pCveCliente As Integer, pCveVendedor As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraClienteVendedorUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = pCveCliente + .Add("@CveVendedor", SqlDbType.Int).Value = pCveVendedor + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = pCveUsuarioModifico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + + Catch ex As Exception + OnError("Ocurrió un error al editar el Cliente-Vendedor en la orden de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateOrdenCompraVinculacionCompra(CveCompra As Integer, CveOrdenCompra As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraUpdateCompra") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + If ex.Number = 2627 Then + Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al guardar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al editar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateOrdenCompraRequiereCorizacion(CveOrdenCompra As Integer, RequiereCotizacion As Boolean) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraRequiereCorizacionUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@RequiereCotizacion", SqlDbType.Bit).Value = RequiereCotizacion + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al editar la OrdenCompra, Requiere cotizacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetSucursalOC(CveOC As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_GetSucursalOC") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + End With + + Try + SqlAdapter.Fill(Data) + If Data.Rows.Count > 0 Then + Dim dr As DataRow = Data.Rows(0) + SucCalle = dr("Calle").ToString + SucNoExt = dr("NoExt").ToString + SucNoInt = dr("NoInt").ToString + SucColonia = dr("Colonia").ToString + SucMunicipio = dr("Municipio").ToString + SucEstado = dr("Estado").ToString + SucPais = dr("Pais").ToString + SucCP = dr("CP").ToString + SucSubProyecto = dr("SubProyecto").ToString + SucTelefono = dr("Telefono").ToString + End If + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la sucursal de la orden de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region "O R D E N E S - D E - C O M P R A S - D E T A L L E" + Public Function GetPrueba() As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_PruebaGet") + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener una Prueba.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetOrdenesDetalle(pCveOrdenCompra As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el detalle de OrdenCompras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function AddOrdenCompraDetalle(pCveOrdenCompra As Integer, pCantidad As Double, pCveUnidadMedida As Integer, pCvePS As Integer, pImporte As Double, pCveSubProyecto As Integer, pCveActivoFijo As Integer, + pObservacion As String, pCveUsuario As Integer, Optional pCveOrdenCompraPadre As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1, Optional Descuento As Double = 0, + Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, Optional IVA As Double = 0, Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional Total As Double = 0, + Optional CveContratoDetalle As Integer = -1, Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, + Optional IEPSPSIVAPorcentaje As Double = 0, Optional CveVentaDetalleCotizacion As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_OrdenesCompraDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@Cantidad", SqlDbType.Float).Value = pCantidad + .Add("@Descuento", SqlDbType.Float).Value = Descuento + .Add("@Importe", SqlDbType.Float).Value = pImporte + .Add("@CveUnidadMedida", SqlDbType.Int).Value = pCveUnidadMedida + .Add("@CvePS", SqlDbType.Int).Value = pCvePS + .Add("@Observacion", SqlDbType.VarChar).Value = pObservacion + .Add("@CveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto + .Add("@CveActivoFijo", SqlDbType.Int).Value = pCveActivoFijo + .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario + .Add("@CveOrdenCompraPadre", SqlDbType.Int).Value = pCveOrdenCompraPadre + .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso + .Add("@vCveOrdenCompraDetalle", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@IEPSPS", SqlDbType.Money).Value = IEPSPS + .Add("@IEPSPSIVA", SqlDbType.Money).Value = IEPSPSIVA + .Add("@IVA", SqlDbType.Float).Value = IVA + .Add("@RetIVA", SqlDbType.Float).Value = RetIVA + .Add("@RetISR", SqlDbType.Float).Value = RetISR + .Add("@Total", SqlDbType.Float).Value = Total + .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle + .Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje + .Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje + .Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje + .Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje .Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje - .Add("@CveVentaDetalleCotizacion", SqlDbType.Int).Value = CveVentaDetalleCotizacion - End With - - Try - SqlAdapter.Fill(Data) - _CveOrdenCompraDetalle = SqlAdapter.SelectCommand.Parameters("@vCveOrdenCompraDetalle").Value.ToString.ToEntero - Retorno = True - Catch ex As Exception - - If ex.Message.Contains("CK_OC_OrdenesCompraDetalle_RetIVA_Total") Then - OnError("La retención de iva no coincide con su total", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Else - OnError("Ocurrió un error al agregar el detalle de OrdenCompras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - - End Try - - Return Retorno - End Function - Public Function UpdateOrdenCompraDetalle(pCantidad As Double, pCveUnidadMedida As Integer, pCvePS As Integer, pImporte As Double, pCveSubProyecto As Integer, pCveActivoFijo As Integer, - pObservacion As String, pCveUsuario As Integer, pCveOrdenCompraDetalle As Integer, Optional CvePresupuestoEgreso As Integer = -1, Optional Descuento As Double = 0, - Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, Optional IVA As Double = 0, Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional Total As Double = 0, - Optional CveContratoDetalle As Integer = -1, Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, - Optional IEPSPSIVAPorcentaje As Double = 0) As Integer - Dim Retorno As Integer = -1 - - DataAdapter("PA_OC_OrdenesCompraDetalleUpdate") - - With SqlAdapter.SelectCommand.Parameters - '.Add("@pCveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@Cantidad", SqlDbType.Float).Value = pCantidad - .Add("@CveUnidadMedida", SqlDbType.Int).Value = pCveUnidadMedida - .Add("@CvePS", SqlDbType.Int).Value = pCvePS - .Add("@Descuento", SqlDbType.Float).Value = Descuento - .Add("@Importe", SqlDbType.Float).Value = pImporte - .Add("@CveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto - .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = pCveOrdenCompraDetalle - .Add("@CveActivoFijo", SqlDbType.Int).Value = pCveActivoFijo - .Add("@Observacion", SqlDbType.VarChar).Value = pObservacion - .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso - .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario - .Add("@IEPSPS", SqlDbType.Money).Value = IEPSPS - .Add("@IEPSPSIVA", SqlDbType.Money).Value = IEPSPSIVA - .Add("@IVA", SqlDbType.Float).Value = IVA - .Add("@RetIVA", SqlDbType.Float).Value = RetIVA - .Add("@RetISR", SqlDbType.Float).Value = RetISR - .Add("@Total", SqlDbType.Float).Value = Total - .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle - .Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje - .Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje - .Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje - .Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje - .Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje - End With - - Try - SqlAdapter.Fill(Data) - Retorno = pCveOrdenCompraDetalle - Catch ex As SqlException - If ex.Number = 2627 Then - Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) - Else - OnError("Ocurrió un error al editar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al editar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function RemoveOrdenCompraDetalle(ByVal pCveOrdenCompraDetalle As Integer, CveUsuarioModifico As Integer) As Boolean - Dim OnError As Boolean = False - DataAdapter("PA_OC_OrdenesCompraDetalleRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = pCveOrdenCompraDetalle - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico - End With - - Try - SqlAdapter.Fill(Data) - OnError = True - Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar detalle de orden de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return OnError - End Function - Public Function OrdenesCompraDetalleCostoPP(CveOrdenCompraDetalle As Integer) As Boolean - Dim OnError As Boolean = False - DataAdapter("PA_OC_OrdenesCompraDetalleCostoPP") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle - End With - - Try - SqlAdapter.Fill(Data) - OnError = True - Catch ex As Exception - Me.OnError("Ocurrió un error al obtener el costo de la orden de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return OnError - End Function - -#End Region - -#Region " O R D E N E S - D E - C O M P R A - E S T A T U S" - Public Function GetEstatus() As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_EstatusGet") - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Estatus de Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function AddEstatus(Estatus As String, Tipo As String, CveEstatusSiguiente As Integer, TipoTermino As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_EstatusAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Estatus", SqlDbType.VarChar).Value = Estatus - .Add("@Tipo", SqlDbType.VarChar).Value = Tipo - .Add("@CveEstatusSiguiente", SqlDbType.Int).Value = CveEstatusSiguiente - .Add("@TipoTermino", SqlDbType.Int).Value = TipoTermino - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Estatus con el mismo nombre: " & Estatus & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al Guardar el Estatus de Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Guardar el Estatus", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateEstatus(Estatus As String, Tipo As String, CveEstatusSiguiente As Integer, TipoTermino As Integer, EstatusActivo As Boolean, EsCancelable As Boolean, CveEstatus As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_EstatusUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Estatus", SqlDbType.VarChar).Value = Estatus - .Add("@Tipo", SqlDbType.VarChar).Value = Tipo - .Add("@CveEstatusSiguiente", SqlDbType.Int).Value = CveEstatusSiguiente - .Add("@TipoTermino", SqlDbType.Int).Value = TipoTermino - .Add("@EsCancelable", SqlDbType.Bit).Value = EsCancelable - .Add("@EstatusActivo", SqlDbType.Bit).Value = EstatusActivo - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Estatus con el mismo nombre: " & Estatus & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al guardar los cambios en el Estatus", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en el Estatus de Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function RemoveEstatus(CveEstatus As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_EstatusRemove") - - SqlAdapter.SelectCommand.Parameters.Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 547;") Then - Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al eliminar el Estatus de Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar el Estatus de Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - -#End Region - -#Region " O R D E N E S - D E - C O M P R A - E S T A T U S - U S U A R I O S" - Public Function GetEstatusUsuarios(CveUsuario As Integer, CveEstatus As Integer, CveSubProyecto As Integer, CveOrdenCompra As Integer, CveEmpresa As Integer, Optional CveEstatusUsuarios As Integer = -1, Optional Estatus As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_EstatusUsuariosGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Estatus", SqlDbType.Int).Value = Estatus - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Estatus de Usuarios para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function AddEstatusUsuarios(CveEstatus As Integer, CveSubProyecto As Integer, CveUsuario As Integer, Estatus As Boolean, Optional CveSuperior As Integer = -1, Optional LimiteSuperior As Decimal = -1, Optional LimiteInferior As Decimal = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_EstatusUsuariosAdd") - 'SqlAdapter.SelectCommand.CommandTimeout = 180 - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior - .Add("@LimiteSuperior", SqlDbType.Money).Value = LimiteSuperior - .Add("@LimiteInferior", SqlDbType.Money).Value = LimiteInferior - .Add("@Estatus", SqlDbType.Bit).Value = Estatus.ToEntero - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - 'SqlAdapter.SelectCommand.CommandTimeout = 30 - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Estatus con el mismo nombre: " & Estatus & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al Guardar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Guardar el Estatus de Usuario para Ordenes de Compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateEstatusUsuarios(CveEstatusUsuarios As Integer, CveSuperior As Integer, LimiteSuperior As Decimal, LimiteInferior As Decimal) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_EstatusUsuariosUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios - .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior - .Add("@LimiteSuperior", SqlDbType.Decimal).Value = LimiteSuperior - .Add("@LimiteInferior", SqlDbType.Decimal).Value = LimiteInferior - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Estatus con el mismo nombre. ", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al guardar los cambios en el Estatus", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en el Estatus de Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function RemoveEstatusUsuarios(CveEstatusUsuarios As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_EstatusUsuariosRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 547;") Then - Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - -#End Region - -#Region " O R D E N E S - D E - C O M P R A - E S T A T U S - U S U A R I O - T E M P" - 'Public Function CreateEstatusUsuarioTemporal() As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_OC_TempEstatusUsuarioCreate") - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al Crear la tabla temporal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - ' Return Retorno - 'End Function - 'Public Function DeleteEstatusUsuarioTemporal() As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_OC_TempEstatusUsuarioDelete") - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al eliminar la tabla temporal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - ' Return Retorno - 'End Function - Public Function GetEstatusUsuarioTemporal(CveUsuario As Integer, CveEstatus As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveEstatusUsuarios As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_TempEstatusUsuarioGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Estatus de Usuarios para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - 'Public Function AddEstatusUsuarioTemporal(CveEstatus As Integer, CveSubProyecto As Integer, CveUsuario As Integer, Estatus As Boolean, Optional CveSuperior As Integer = -1, Optional LimiteSuperior As Decimal = -1, Optional LimiteInferior As Decimal = -1) As Boolean - ' Dim Retorno As Boolean = False - - ' DataAdapter("PA_OC_TempEstatusUsuarioAdd") - ' 'SqlAdapter.SelectCommand.CommandTimeout = 180 - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - ' .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior - ' .Add("@LimiteSuperior", SqlDbType.Money).Value = LimiteSuperior - ' .Add("@LimiteInferior", SqlDbType.Money).Value = LimiteInferior - ' .Add("@Estatus", SqlDbType.Bit).Value = Estatus.ToEntero - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' 'SqlAdapter.SelectCommand.CommandTimeout = 30 - ' Catch Ex1 As SqlException - ' If Ex1.Message.Contains("Número: 2627;") Then - ' Alert("Ya existe un Estatus con el mismo nombre: " & Estatus & ".", TipoMensaje.MsgAdvertencia) - ' Else - ' Me.OnError("Ocurrió un error al Guardar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End If - ' Catch ex As Exception - ' OnError("Ocurrió un error al Guardar el Estatus de Usuario para Ordenes de Compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - 'End Function - 'Public Function UpdateEstatusUsuarioTemporal(CveEstatusUsuarios As Integer, CveSuperior As Integer, LimiteSuperior As Decimal, LimiteInferior As Decimal) As Boolean - ' Dim Retorno As Boolean = False - - ' DataAdapter("PA_OC_TempEstatusUsuarioUpdate") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios - ' .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior - ' .Add("@LimiteSuperior", SqlDbType.Decimal).Value = LimiteSuperior - ' .Add("@LimiteInferior", SqlDbType.Decimal).Value = LimiteInferior - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch Ex1 As SqlException - ' If Ex1.Message.Contains("Número: 2627;") Then - ' Alert("Ya existe un Estatus con el mismo nombre. ", TipoMensaje.MsgAdvertencia) - ' Else - ' Me.OnError("Ocurrió un error al guardar los cambios en el Estatus", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End If - ' Catch ex As Exception - ' OnError("Ocurrió un error al guardar los cambios en el Estatus de Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - 'End Function - 'Public Function RemoveEstatusUsuarioTemporal(CveEstatusUsuarios As Integer) As Boolean - ' Dim Retorno As Boolean = False - - ' DataAdapter("PA_OC_TempEstatusUsuarioRemove") - - ' SqlAdapter.SelectCommand.Parameters.Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios - - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch Ex1 As SqlException - ' If Ex1.Message.Contains("Número: 547;") Then - ' Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) - ' Else - ' Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End If - ' Catch ex As Exception - ' Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - 'End Function -#End Region - - Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, - FechaInicio As Date, FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1, - Optional SoloSubProyectosConPermiso As Boolean = False) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Tipo", SqlDbType.VarChar).Value = Tipo - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio - .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - .Add("@CveUsuarioRegistro", SqlDbType.Int).Value = CveUsuarioRegistro - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Folio", SqlDbType.Int).Value = Folio - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@PendientePorSurtir", SqlDbType.Bit).Value = PendientePorSurtir - .Add("@Guia", SqlDbType.VarChar).Value = Guia - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso - - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetOrdenesCompraRepReqXOC(Folio As Integer, FechaInicio As String, FechaFin As String, CveProveedor As Integer, CveVendedor As Integer, CveCliente As Integer, CveEmpresa As Integer, Grupo As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraReqXOC") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Folio", SqlDbType.Int).Value = Folio - .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio - .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Grupo", SqlDbType.Int).Value = Grupo - - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el reporte de requisiciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetOrdenesCompraCorreo(CveCompra As Integer, Optional CveMovimiento As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraCorreosGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los correos de Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetComprasOC(CveCompra As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraFoliosGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los correos de Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetOrdenesCompraMovimiento(CveCompra As Integer, Optional CveMovimiento As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraPSGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos de Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetOrdenesPendientes(pTipo As String, pTipoBusqueda As Integer, pCveEmpresa As Integer, pCveProyecto As Integer, pCveSubProyecto As Integer, pCveEstatusCompra As Integer, - pCveUsuario As Integer, CveCliente As Integer, Optional SoloSubProyectosConPermiso As Boolean = False) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraPendientes") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Tipo", SqlDbType.VarChar).Value = pTipo - .Add("@CveEmpresa", SqlDbType.Int).Value = pCveEmpresa - .Add("@CveProyecto", SqlDbType.Int).Value = pCveProyecto - .Add("@CveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto - .Add("@CveEstatus", SqlDbType.Int).Value = pCveEstatusCompra - .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@TipoBusqueda", SqlDbType.Int).Value = pTipoBusqueda - .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetCompras(ByVal pCveEmpresa As Integer, ByVal pCveProyecto As Integer, pCveSubProyecto As Integer, pCveClasificacion As Integer, pCveEstatusCompras As String, - pFechaInicio As Date, pFechaFin As Date, pCveOrdenCompra As Integer, pCveUsuario As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraRepCompras") - - With SqlAdapter.SelectCommand.Parameters - .Add("@pCveEmpresa", SqlDbType.Int).Value = pCveEmpresa - .Add("@pCveProyecto", SqlDbType.Int).Value = pCveProyecto - .Add("@pCveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto - .Add("@pCveClasificacion", SqlDbType.Int).Value = pCveClasificacion - .Add("@pCveEstatusCompra", SqlDbType.Int).Value = pCveEstatusCompras - .Add("@pFechaInicio", SqlDbType.Date).Value = pFechaInicio - .Add("@pFechaFin", SqlDbType.Date).Value = pFechaFin - .Add("@pCveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@pCveUsuario", SqlDbType.Int).Value = pCveUsuario - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateOrdenCompraEstatus(pCveEstatus As Integer, pCveOrdenCompra As Integer, pCveUsuario As Integer, pMotivo As String, Optional pCveCompra As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraEstatusUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEstatus", SqlDbType.Int).Value = pCveEstatus - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario - .Add("@Motivo", SqlDbType.VarChar, 500).Value = pMotivo - .Add("@CveCompra", SqlDbType.Int).Value = pCveCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al cambiar el estatus de la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateOrdenCompraCompletada(pCveEstatus As Integer, pCveOrdenCompra As Integer, pCveUsuario As Integer, pMotivo As String, Optional pCveCompra As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraCompletadas") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEstatus", SqlDbType.Int).Value = pCveEstatus - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario - .Add("@Motivo", SqlDbType.VarChar, 500).Value = pMotivo - .Add("@CveCompra", SqlDbType.Int).Value = pCveCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al cambiar el estatus de la OrdenCompra Completada.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateOrdenCompraDetalleProveedor(pCveOrdenCompraDetalle As Integer, pCveProveedor As Integer, pCveCotizacion As Integer) As Integer - Dim Retorno As Integer = -1 - - DataAdapter("BEGIN UPDATE OC_OrdenesCompraDetalle SET CveProveedor = @pCveProveedor WHERE CveOrdenCompraDetalle = @pCveOrdenCompraDetalle; UPDATE OC_CotizacionesDetalle SET Ganador = 1 WHERE CveCotizacion = @pCveCotizacion AND CveOrdenCompraDetalle = @pCveOrdenCompraDetalle; END", CommandType.Text) - - With SqlAdapter.SelectCommand.Parameters - - .Add("@pCveOrdenCompraDetalle", SqlDbType.Int).Value = pCveOrdenCompraDetalle - .Add("@pCveProveedor", SqlDbType.Int).Value = pCveProveedor - .Add("@pCveCotizacion", SqlDbType.Int).Value = pCveCotizacion - - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = pCveOrdenCompraDetalle - Catch ex As Exception - OnError("Ocurrió un error al actualizar el proveedor a la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetOrdenesHistorial(pCveOrdenCompra As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraHistorialGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el historial de OrdenCompras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetOrdenesEstatus(pCveOrdenCompra As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraEstatusGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el estatus de OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetOrdenesEstatusHistorial(pCveOrdenCompra As Integer) As DataTable - - DataAdapter("PA_OC_OrdenesCompraEstatusHistorialGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - End With - - Try - SqlAdapter.Fill(Data) - - Catch ex As Exception - OnError("Ocurrió un error al obtener los estatus de OrdenesCompras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Data - End Function - - Public Function GetOCIncompletaDetalle(CveEmpresa As Integer, Optional CveOrdenCompra As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean - Dim retorno As Boolean = False - StrSQL.Clear() - StrSQL.Append("SELECT OCD.CveOrdenCompra, OCD.Cantidad CantidadOrden, CD.Cantidad CantidadCompra, OCD.Cantidad - CD.Cantidad CantidadPendiente, OC.Folio, ") - StrSQL.Append("OC.Fecha, P.RazonSocial, E.Estatus, PS.PS, OC.CveProveedor ") - StrSQL.Append("FROM OC_OrdenesCompraDetalle OCD ") - StrSQL.Append("INNER JOIN Comp_ComprasDetalles CD ON OCD.CveOrdenCompraDetalle = CD.CveCompraDetalle ") - StrSQL.Append("INNER JOIN OC_OrdenesCompra OC ON OCD.CveOrdenCompra = OC.CveOrdenCompra ") - StrSQL.Append("INNER JOIN Comp_Proveedores P ON OC.CveProveedor = P.CveProveedor ") - StrSQL.Append("INNER JOIN ProductosServicios PS ON OCD.CvePS = PS.CvePS ") - StrSQL.Append("INNER JOIN OC_Estatus E ON OC.CveEstatus = E.CveEstatus ") - StrSQL.Append("WHERE OCD.CveOrdenCompraDetalle = CD.CveCompraDetalle AND OCD.Cantidad != CD.Cantidad ") - StrSQL.Append("AND (@CveOrdenCompra = -1 OR @CveOrdenCompra = OCD.CveOrdenCompra) ") - StrSQL.Append("AND (@CveEmpresa = -1 OR @CveEmpresa = OC.CveEmpresa) ") - StrSQL.Append("AND (@CveProveedor = -1 OR @CveProveedor = OC.CveProveedor) ") - StrSQL.Append("ORDER BY OC.Folio ") - - DataAdapter(StrSQL.ToString, CommandType.Text) - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - - End With - - - Try - SqlAdapter.Fill(Data) - retorno = True - Catch ex As Exception - OnError("Ocurrió un error al consultar Ordenes de Compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return retorno - - - - End Function - -#Region " OC FACTURA " - Public Function GetOCSinFactura(CveSubProyecto As Integer, CveVendedor As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_PendientesFacturar") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Ordenes de Compra Sin Factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetOCFacturacion(pCveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False - - DataAdapter("PA_OC_OrdenesCompraFacturacionGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los detalles de la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region " OC POR SEMANA " - Public Function RepOCCount(FechaInicio As Date, FechaFin As Date, CveUsuario As Integer, Cveempresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OrdenesCompraRepCount") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio - .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = Cveempresa - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region " OC CLASIFICACIONES " - - Public Function GetEstatusUsuariosClasificaciones(CveEstatusUsuarios As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_EstatusUsuariosClasificacionesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Estatus de Usuarios Clasificaciones para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function AddEstatusUsuariosClasificaciones(CveEstatusUsuarios As Integer, CveClasificacion As Integer, CveSuperior As Integer, LimiteInferior As Decimal, LimiteSuperior As Decimal, CveUsuarioModifico As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_EstatusUsuariosClasificacionesAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior - .Add("@LimiteSuperior", SqlDbType.Money).Value = LimiteSuperior - .Add("@LimiteInferior", SqlDbType.Money).Value = LimiteInferior - .Add("@CveUsuarioModifico", SqlDbType.Bit).Value = CveUsuarioModifico - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Estatus con los mismos valores", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al Guardar el Estatus de Usuario Clasificaciones para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Guardar el Estatus de Usuario Clasificaciones para Ordenes de Compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateEstatusUsuariosClasificaciones(CveEstatusUsuariosClasificacion As Integer, CveClasificacion As Integer, CveSuperior As Integer, LimiteInferior As Decimal, LimiteSuperior As Decimal, CveUsuarioModifico As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_EstatusUsuariosClasificacionesUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEstatusUsuariosClasificacion", SqlDbType.Int).Value = CveEstatusUsuariosClasificacion - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior - .Add("@LimiteSuperior", SqlDbType.Money).Value = LimiteSuperior - .Add("@LimiteInferior", SqlDbType.Money).Value = LimiteInferior - .Add("@CveUsuarioModifico", SqlDbType.Bit).Value = CveUsuarioModifico - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Estatus con los mismos valores. ", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al guardar los cambios en el Estatus de Usuario Clasificaciones para Ordenes de Compra", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en el Estatus de Usuario Clasificaciones para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function RemoveEstatusUsuariosClasificaciones(CveEstatusUsuariosClasificacion As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_EstatusUsuariosClasificacionesRemove") - - SqlAdapter.SelectCommand.Parameters.Add("@CveEstatusUsuariosClasificacion", SqlDbType.Int).Value = CveEstatusUsuariosClasificacion - - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 547;") Then - Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario Clasificaciones para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario Clasificaciones para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - -#End Region - -#Region " OC X VINCULAR COMPRA " - Public Function GetPendietePorSurtirOC(FechaI As String, FechaF As String, CveProveedor As Integer, Folio As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveEmpresa As Integer, Optional CveOC As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_ComprasPendientesPorSurtirGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@Folio", SqlDbType.Int).Value = Folio - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveOC", SqlDbType.Int).Value = CveOC - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener Ordenes de compra pendientes por surtir.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetOCVinculadasPendientes(CveOCDetalle As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_OCVinculadas") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOCDetalle - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener Ordenes de compra pendientes por surtir.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region "P y M E" - - Public Function AddEstatusRequisicionesPredefinidas(CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_EstatusPredefinidosPyMEAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch ex As Exception - OnError("Ocurrió un error al agregar los estatus de las requisiciones predefinidas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetEstatusUsuariosPyME(CveUsuario As Integer, CveEstatus As Integer, CveSubProyecto As Integer, CveOrdenCompra As Integer, CveEmpresa As Integer, Optional CveEstatusUsuarios As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_EstatusUsuariosPyMEGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Estatus de Usuarios para Ordenes de Compra en PyME.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - -#End Region - -#Region " SOLICITUD DE ANTICIPO " - Public Function GetSolicitudAnticipo(CveOC As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_SolicitudAnticipoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOC", SqlDbType.Int).Value = CveOC - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la solicitud de anticipo de la OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetSolicitudAnticipoUsuarios(CveOC As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_SolicitudAnticipoUsuarioGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOC", SqlDbType.Int).Value = CveOC - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la solicitud de anticipo de la OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function AddSolicitudAnticipo(CveOrdenCompra As Integer, Importe As Double, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_SolicitudAnticipoAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - .Add("@Importe", SqlDbType.Money).Value = Importe - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el estatus de solicitud anticipo de la OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function AddSolicitudAnticipoPago(CveOrdenCompra As Integer, CveIE As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_SolicitudAnticipoAddPago") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - .Add("@CveIE", SqlDbType.Int).Value = CveIE - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el estatus de solicitud anticipo de la OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - -#End Region - - Public Function GetUltimoCostoPS(CvePS As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_OC_UltimoCostoPS") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el último costo del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetRepOCGuias(FechaI As String, FechaF As String, CveProveedor As Integer, CveVendedor As Integer, CveCliente As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_RepOCGuiasGet") - - With SqlAdapter.SelectCommand.Parameters - - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el reporte de Ordenes de compra guias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - -#Region " OC DETALLE - SALDOS [ SURTIDO INV | VINCULADO COMP ]" - Public Function OrdenesCompraDetalleSaldosInvCompraAdd(CveOCDetalle As Integer, CveInvDetalle As Integer, CantidadSurtida As Double, CveCompraDetalle As Integer, CantidadVinculada As Double) As Boolean - Dim Retorno As Boolean = False - DataAdapter("OC_OrdenesCompraDetalleSaldosInvCompraAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOCDetalle - .Add("@CveInvDetalle", SqlDbType.Int).Value = CveInvDetalle - .Add("@CantidadSurtida", SqlDbType.Float).Value = CantidadSurtida - .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle - .Add("@CantidadVinculada", SqlDbType.Float).Value = CantidadVinculada - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar los saldos de (Inv/Compra) de la OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region "REP OC CON ANTICIPOS PENDIENTES" - Public Function GetOCAnticiposPendientes(CveEmpresa As Integer, CveUsuarioPara As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_OC_AnticiposPendientesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveUsuarioPara", SqlDbType.Int).Value = CveUsuarioPara - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@FechaI", SqlDbType.DateTime).Value = FechaI - .Add("@FechaF", SqlDbType.DateTime).Value = FechaF - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los anticipos pendientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region -#Region "REP SOLICITUDES ANTICIPO" - Public Function GetRepSolicitudAnticipos(CveEmpresa As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, CveEventoEstatus As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_RepSolicitudAnticipoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@FechaI", SqlDbType.DateTime).Value = FechaI - .Add("@FechaF", SqlDbType.DateTime).Value = FechaF - .Add("@CveEventoEstatus", SqlDbType.Int).Value = CveEventoEstatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los anticipos pendientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - - - -#Region " IDisposable Support " - ' IDisposable - Protected Overridable Sub Dispose(ByVal disposing As Boolean) - If Not disposedValue Then - If disposing Then - SqlConexion.Close() - SqlConexion.Dispose() - If Not Data Is Nothing Then Data.Dispose() - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() - - End If - End If - disposedValue = True - End Sub - Public Sub Dispose() Implements IDisposable.Dispose - ConexionClose() - Dispose(True) - GC.SuppressFinalize(Me) - End Sub -#End Region -End Class + .Add("@CveVentaDetalleCotizacion", SqlDbType.Int).Value = CveVentaDetalleCotizacion + End With + + Try + SqlAdapter.Fill(Data) + _CveOrdenCompraDetalle = SqlAdapter.SelectCommand.Parameters("@vCveOrdenCompraDetalle").Value.ToString.ToEntero + Retorno = True + Catch ex As Exception + + If ex.Message.Contains("CK_OC_OrdenesCompraDetalle_RetIVA_Total") Then + OnError("La retención de iva no coincide con su total", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Else + OnError("Ocurrió un error al agregar el detalle de OrdenCompras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + + End Try + + Return Retorno + End Function + Public Function UpdateOrdenCompraDetalle(pCantidad As Double, pCveUnidadMedida As Integer, pCvePS As Integer, pImporte As Double, pCveSubProyecto As Integer, pCveActivoFijo As Integer, + pObservacion As String, pCveUsuario As Integer, pCveOrdenCompraDetalle As Integer, Optional CvePresupuestoEgreso As Integer = -1, Optional Descuento As Double = 0, + Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, Optional IVA As Double = 0, Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional Total As Double = 0, + Optional CveContratoDetalle As Integer = -1, Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, + Optional IEPSPSIVAPorcentaje As Double = 0) As Integer + Dim Retorno As Integer = -1 + + DataAdapter("PA_OC_OrdenesCompraDetalleUpdate") + + With SqlAdapter.SelectCommand.Parameters + '.Add("@pCveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@Cantidad", SqlDbType.Float).Value = pCantidad + .Add("@CveUnidadMedida", SqlDbType.Int).Value = pCveUnidadMedida + .Add("@CvePS", SqlDbType.Int).Value = pCvePS + .Add("@Descuento", SqlDbType.Float).Value = Descuento + .Add("@Importe", SqlDbType.Float).Value = pImporte + .Add("@CveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto + .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = pCveOrdenCompraDetalle + .Add("@CveActivoFijo", SqlDbType.Int).Value = pCveActivoFijo + .Add("@Observacion", SqlDbType.VarChar).Value = pObservacion + .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso + .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario + .Add("@IEPSPS", SqlDbType.Money).Value = IEPSPS + .Add("@IEPSPSIVA", SqlDbType.Money).Value = IEPSPSIVA + .Add("@IVA", SqlDbType.Float).Value = IVA + .Add("@RetIVA", SqlDbType.Float).Value = RetIVA + .Add("@RetISR", SqlDbType.Float).Value = RetISR + .Add("@Total", SqlDbType.Float).Value = Total + .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle + .Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje + .Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje + .Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje + .Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje + .Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje + End With + + Try + SqlAdapter.Fill(Data) + Retorno = pCveOrdenCompraDetalle + Catch ex As SqlException + If ex.Number = 2627 Then + Alert("La Clave o Descripción del OrdenCompra ya existe.", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al editar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al editar la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function RemoveOrdenCompraDetalle(ByVal pCveOrdenCompraDetalle As Integer, CveUsuarioModifico As Integer) As Boolean + Dim OnError As Boolean = False + DataAdapter("PA_OC_OrdenesCompraDetalleRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = pCveOrdenCompraDetalle + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + End With + + Try + SqlAdapter.Fill(Data) + OnError = True + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar detalle de orden de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return OnError + End Function + Public Function OrdenesCompraDetalleCostoPP(CveOrdenCompraDetalle As Integer) As Boolean + Dim OnError As Boolean = False + DataAdapter("PA_OC_OrdenesCompraDetalleCostoPP") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle + End With + + Try + SqlAdapter.Fill(Data) + OnError = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener el costo de la orden de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return OnError + End Function + +#End Region + +#Region " O R D E N E S - D E - C O M P R A - E S T A T U S" + Public Function GetEstatus() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_EstatusGet") + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Estatus de Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function AddEstatus(Estatus As String, Tipo As String, CveEstatusSiguiente As Integer, TipoTermino As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_EstatusAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Estatus", SqlDbType.VarChar).Value = Estatus + .Add("@Tipo", SqlDbType.VarChar).Value = Tipo + .Add("@CveEstatusSiguiente", SqlDbType.Int).Value = CveEstatusSiguiente + .Add("@TipoTermino", SqlDbType.Int).Value = TipoTermino + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Estatus con el mismo nombre: " & Estatus & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Guardar el Estatus de Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar el Estatus", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateEstatus(Estatus As String, Tipo As String, CveEstatusSiguiente As Integer, TipoTermino As Integer, EstatusActivo As Boolean, EsCancelable As Boolean, CveEstatus As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_EstatusUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Estatus", SqlDbType.VarChar).Value = Estatus + .Add("@Tipo", SqlDbType.VarChar).Value = Tipo + .Add("@CveEstatusSiguiente", SqlDbType.Int).Value = CveEstatusSiguiente + .Add("@TipoTermino", SqlDbType.Int).Value = TipoTermino + .Add("@EsCancelable", SqlDbType.Bit).Value = EsCancelable + .Add("@EstatusActivo", SqlDbType.Bit).Value = EstatusActivo + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Estatus con el mismo nombre: " & Estatus & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en el Estatus", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en el Estatus de Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RemoveEstatus(CveEstatus As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_EstatusRemove") + + SqlAdapter.SelectCommand.Parameters.Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al eliminar el Estatus de Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar el Estatus de Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + +#Region " O R D E N E S - D E - C O M P R A - E S T A T U S - U S U A R I O S" + Public Function GetEstatusUsuarios(CveUsuario As Integer, CveEstatus As Integer, CveSubProyecto As Integer, CveOrdenCompra As Integer, CveEmpresa As Integer, Optional CveEstatusUsuarios As Integer = -1, Optional Estatus As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_EstatusUsuariosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Estatus de Usuarios para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddEstatusUsuarios(CveEstatus As Integer, CveSubProyecto As Integer, CveUsuario As Integer, Estatus As Boolean, Optional CveSuperior As Integer = -1, Optional LimiteSuperior As Decimal = -1, Optional LimiteInferior As Decimal = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_EstatusUsuariosAdd") + 'SqlAdapter.SelectCommand.CommandTimeout = 180 + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior + .Add("@LimiteSuperior", SqlDbType.Money).Value = LimiteSuperior + .Add("@LimiteInferior", SqlDbType.Money).Value = LimiteInferior + .Add("@Estatus", SqlDbType.Bit).Value = Estatus.ToEntero + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + 'SqlAdapter.SelectCommand.CommandTimeout = 30 + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Estatus con el mismo nombre: " & Estatus & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Guardar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar el Estatus de Usuario para Ordenes de Compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateEstatusUsuarios(CveEstatusUsuarios As Integer, CveSuperior As Integer, LimiteSuperior As Decimal, LimiteInferior As Decimal) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_EstatusUsuariosUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios + .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior + .Add("@LimiteSuperior", SqlDbType.Decimal).Value = LimiteSuperior + .Add("@LimiteInferior", SqlDbType.Decimal).Value = LimiteInferior + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Estatus con el mismo nombre. ", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en el Estatus", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en el Estatus de Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RemoveEstatusUsuarios(CveEstatusUsuarios As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_EstatusUsuariosRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + +#Region " O R D E N E S - D E - C O M P R A - E S T A T U S - U S U A R I O - T E M P" + 'Public Function CreateEstatusUsuarioTemporal() As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_OC_TempEstatusUsuarioCreate") + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al Crear la tabla temporal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + ' Return Retorno + 'End Function + 'Public Function DeleteEstatusUsuarioTemporal() As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_OC_TempEstatusUsuarioDelete") + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al eliminar la tabla temporal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + ' Return Retorno + 'End Function + Public Function GetEstatusUsuarioTemporal(CveUsuario As Integer, CveEstatus As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveEstatusUsuarios As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_TempEstatusUsuarioGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Estatus de Usuarios para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + 'Public Function AddEstatusUsuarioTemporal(CveEstatus As Integer, CveSubProyecto As Integer, CveUsuario As Integer, Estatus As Boolean, Optional CveSuperior As Integer = -1, Optional LimiteSuperior As Decimal = -1, Optional LimiteInferior As Decimal = -1) As Boolean + ' Dim Retorno As Boolean = False + + ' DataAdapter("PA_OC_TempEstatusUsuarioAdd") + ' 'SqlAdapter.SelectCommand.CommandTimeout = 180 + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + ' .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + ' .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior + ' .Add("@LimiteSuperior", SqlDbType.Money).Value = LimiteSuperior + ' .Add("@LimiteInferior", SqlDbType.Money).Value = LimiteInferior + ' .Add("@Estatus", SqlDbType.Bit).Value = Estatus.ToEntero + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' 'SqlAdapter.SelectCommand.CommandTimeout = 30 + ' Catch Ex1 As SqlException + ' If Ex1.Message.Contains("Número: 2627;") Then + ' Alert("Ya existe un Estatus con el mismo nombre: " & Estatus & ".", TipoMensaje.MsgAdvertencia) + ' Else + ' Me.OnError("Ocurrió un error al Guardar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End If + ' Catch ex As Exception + ' OnError("Ocurrió un error al Guardar el Estatus de Usuario para Ordenes de Compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + 'End Function + 'Public Function UpdateEstatusUsuarioTemporal(CveEstatusUsuarios As Integer, CveSuperior As Integer, LimiteSuperior As Decimal, LimiteInferior As Decimal) As Boolean + ' Dim Retorno As Boolean = False + + ' DataAdapter("PA_OC_TempEstatusUsuarioUpdate") + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios + ' .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior + ' .Add("@LimiteSuperior", SqlDbType.Decimal).Value = LimiteSuperior + ' .Add("@LimiteInferior", SqlDbType.Decimal).Value = LimiteInferior + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch Ex1 As SqlException + ' If Ex1.Message.Contains("Número: 2627;") Then + ' Alert("Ya existe un Estatus con el mismo nombre. ", TipoMensaje.MsgAdvertencia) + ' Else + ' Me.OnError("Ocurrió un error al guardar los cambios en el Estatus", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End If + ' Catch ex As Exception + ' OnError("Ocurrió un error al guardar los cambios en el Estatus de Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + 'End Function + 'Public Function RemoveEstatusUsuarioTemporal(CveEstatusUsuarios As Integer) As Boolean + ' Dim Retorno As Boolean = False + + ' DataAdapter("PA_OC_TempEstatusUsuarioRemove") + + ' SqlAdapter.SelectCommand.Parameters.Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios + + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch Ex1 As SqlException + ' If Ex1.Message.Contains("Número: 547;") Then + ' Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + ' Else + ' Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End If + ' Catch ex As Exception + ' Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + 'End Function +#End Region + + Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, + FechaInicio As Date, FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1, + Optional SoloSubProyectosConPermiso As Boolean = False) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Tipo", SqlDbType.VarChar).Value = Tipo + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveUsuarioRegistro", SqlDbType.Int).Value = CveUsuarioRegistro + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Folio", SqlDbType.Int).Value = Folio + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@PendientePorSurtir", SqlDbType.Bit).Value = PendientePorSurtir + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetOrdenesCompraRepReqXOC(Folio As Integer, FechaInicio As String, FechaFin As String, CveProveedor As Integer, CveVendedor As Integer, CveCliente As Integer, CveEmpresa As Integer, Grupo As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraReqXOC") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Folio", SqlDbType.Int).Value = Folio + .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio + .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Grupo", SqlDbType.Int).Value = Grupo + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de requisiciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetOrdenesCompraCorreo(CveCompra As Integer, Optional CveMovimiento As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraCorreosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los correos de Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetComprasOC(CveCompra As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraFoliosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los correos de Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetOrdenesCompraMovimiento(CveCompra As Integer, Optional CveMovimiento As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraPSGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos de Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetOrdenesPendientes(pTipo As String, pTipoBusqueda As Integer, pCveEmpresa As Integer, pCveProyecto As Integer, pCveSubProyecto As Integer, pCveEstatusCompra As Integer, + pCveUsuario As Integer, CveCliente As Integer, Optional SoloSubProyectosConPermiso As Boolean = False) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraPendientes") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Tipo", SqlDbType.VarChar).Value = pTipo + .Add("@CveEmpresa", SqlDbType.Int).Value = pCveEmpresa + .Add("@CveProyecto", SqlDbType.Int).Value = pCveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto + .Add("@CveEstatus", SqlDbType.Int).Value = pCveEstatusCompra + .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@TipoBusqueda", SqlDbType.Int).Value = pTipoBusqueda + .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetCompras(ByVal pCveEmpresa As Integer, ByVal pCveProyecto As Integer, pCveSubProyecto As Integer, pCveClasificacion As Integer, pCveEstatusCompras As String, + pFechaInicio As Date, pFechaFin As Date, pCveOrdenCompra As Integer, pCveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraRepCompras") + + With SqlAdapter.SelectCommand.Parameters + .Add("@pCveEmpresa", SqlDbType.Int).Value = pCveEmpresa + .Add("@pCveProyecto", SqlDbType.Int).Value = pCveProyecto + .Add("@pCveSubProyecto", SqlDbType.Int).Value = pCveSubProyecto + .Add("@pCveClasificacion", SqlDbType.Int).Value = pCveClasificacion + .Add("@pCveEstatusCompra", SqlDbType.Int).Value = pCveEstatusCompras + .Add("@pFechaInicio", SqlDbType.Date).Value = pFechaInicio + .Add("@pFechaFin", SqlDbType.Date).Value = pFechaFin + .Add("@pCveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@pCveUsuario", SqlDbType.Int).Value = pCveUsuario + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateOrdenCompraEstatus(pCveEstatus As Integer, pCveOrdenCompra As Integer, pCveUsuario As Integer, pMotivo As String, Optional pCveCompra As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraEstatusUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEstatus", SqlDbType.Int).Value = pCveEstatus + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario + .Add("@Motivo", SqlDbType.VarChar, 500).Value = pMotivo + .Add("@CveCompra", SqlDbType.Int).Value = pCveCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al cambiar el estatus de la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateOrdenCompraCompletada(pCveEstatus As Integer, pCveOrdenCompra As Integer, pCveUsuario As Integer, pMotivo As String, Optional pCveCompra As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraCompletadas") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEstatus", SqlDbType.Int).Value = pCveEstatus + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveUsuario", SqlDbType.Int).Value = pCveUsuario + .Add("@Motivo", SqlDbType.VarChar, 500).Value = pMotivo + .Add("@CveCompra", SqlDbType.Int).Value = pCveCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al cambiar el estatus de la OrdenCompra Completada.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateOrdenCompraDetalleProveedor(pCveOrdenCompraDetalle As Integer, pCveProveedor As Integer, pCveCotizacion As Integer) As Integer + Dim Retorno As Integer = -1 + + DataAdapter("BEGIN UPDATE OC_OrdenesCompraDetalle SET CveProveedor = @pCveProveedor WHERE CveOrdenCompraDetalle = @pCveOrdenCompraDetalle; UPDATE OC_CotizacionesDetalle SET Ganador = 1 WHERE CveCotizacion = @pCveCotizacion AND CveOrdenCompraDetalle = @pCveOrdenCompraDetalle; END", CommandType.Text) + + With SqlAdapter.SelectCommand.Parameters + + .Add("@pCveOrdenCompraDetalle", SqlDbType.Int).Value = pCveOrdenCompraDetalle + .Add("@pCveProveedor", SqlDbType.Int).Value = pCveProveedor + .Add("@pCveCotizacion", SqlDbType.Int).Value = pCveCotizacion + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = pCveOrdenCompraDetalle + Catch ex As Exception + OnError("Ocurrió un error al actualizar el proveedor a la OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetOrdenesHistorial(pCveOrdenCompra As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraHistorialGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el historial de OrdenCompras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetOrdenesEstatus(pCveOrdenCompra As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraEstatusGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el estatus de OrdenCompra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetOrdenesEstatusHistorial(pCveOrdenCompra As Integer) As DataTable + + DataAdapter("PA_OC_OrdenesCompraEstatusHistorialGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + End With + + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error al obtener los estatus de OrdenesCompras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Data + End Function + + Public Function GetOCIncompletaDetalle(CveEmpresa As Integer, Optional CveOrdenCompra As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean + Dim retorno As Boolean = False + StrSQL.Clear() + StrSQL.Append("SELECT OCD.CveOrdenCompra, OCD.Cantidad CantidadOrden, CD.Cantidad CantidadCompra, OCD.Cantidad - CD.Cantidad CantidadPendiente, OC.Folio, ") + StrSQL.Append("OC.Fecha, P.RazonSocial, E.Estatus, PS.PS, OC.CveProveedor ") + StrSQL.Append("FROM OC_OrdenesCompraDetalle OCD ") + StrSQL.Append("INNER JOIN Comp_ComprasDetalles CD ON OCD.CveOrdenCompraDetalle = CD.CveCompraDetalle ") + StrSQL.Append("INNER JOIN OC_OrdenesCompra OC ON OCD.CveOrdenCompra = OC.CveOrdenCompra ") + StrSQL.Append("INNER JOIN Comp_Proveedores P ON OC.CveProveedor = P.CveProveedor ") + StrSQL.Append("INNER JOIN ProductosServicios PS ON OCD.CvePS = PS.CvePS ") + StrSQL.Append("INNER JOIN OC_Estatus E ON OC.CveEstatus = E.CveEstatus ") + StrSQL.Append("WHERE OCD.CveOrdenCompraDetalle = CD.CveCompraDetalle AND OCD.Cantidad != CD.Cantidad ") + StrSQL.Append("AND (@CveOrdenCompra = -1 OR @CveOrdenCompra = OCD.CveOrdenCompra) ") + StrSQL.Append("AND (@CveEmpresa = -1 OR @CveEmpresa = OC.CveEmpresa) ") + StrSQL.Append("AND (@CveProveedor = -1 OR @CveProveedor = OC.CveProveedor) ") + StrSQL.Append("ORDER BY OC.Folio ") + + DataAdapter(StrSQL.ToString, CommandType.Text) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + + End With + + + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar Ordenes de Compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return retorno + + + + End Function + +#Region " OC FACTURA " + Public Function GetOCSinFactura(CveSubProyecto As Integer, CveVendedor As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_PendientesFacturar") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Ordenes de Compra Sin Factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetOCFacturacion(pCveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno = False + + DataAdapter("PA_OC_OrdenesCompraFacturacionGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los detalles de la Orden de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region " OC POR SEMANA " + Public Function RepOCCount(FechaInicio As Date, FechaFin As Date, CveUsuario As Integer, Cveempresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraRepCount") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = Cveempresa + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region " OC CLASIFICACIONES " + + Public Function GetEstatusUsuariosClasificaciones(CveEstatusUsuarios As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_EstatusUsuariosClasificacionesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Estatus de Usuarios Clasificaciones para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddEstatusUsuariosClasificaciones(CveEstatusUsuarios As Integer, CveClasificacion As Integer, CveSuperior As Integer, LimiteInferior As Decimal, LimiteSuperior As Decimal, CveUsuarioModifico As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_EstatusUsuariosClasificacionesAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior + .Add("@LimiteSuperior", SqlDbType.Money).Value = LimiteSuperior + .Add("@LimiteInferior", SqlDbType.Money).Value = LimiteInferior + .Add("@CveUsuarioModifico", SqlDbType.Bit).Value = CveUsuarioModifico + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Estatus con los mismos valores", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Guardar el Estatus de Usuario Clasificaciones para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar el Estatus de Usuario Clasificaciones para Ordenes de Compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateEstatusUsuariosClasificaciones(CveEstatusUsuariosClasificacion As Integer, CveClasificacion As Integer, CveSuperior As Integer, LimiteInferior As Decimal, LimiteSuperior As Decimal, CveUsuarioModifico As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_EstatusUsuariosClasificacionesUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEstatusUsuariosClasificacion", SqlDbType.Int).Value = CveEstatusUsuariosClasificacion + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveSuperior", SqlDbType.Int).Value = CveSuperior + .Add("@LimiteSuperior", SqlDbType.Money).Value = LimiteSuperior + .Add("@LimiteInferior", SqlDbType.Money).Value = LimiteInferior + .Add("@CveUsuarioModifico", SqlDbType.Bit).Value = CveUsuarioModifico + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Estatus con los mismos valores. ", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en el Estatus de Usuario Clasificaciones para Ordenes de Compra", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en el Estatus de Usuario Clasificaciones para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RemoveEstatusUsuariosClasificaciones(CveEstatusUsuariosClasificacion As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_EstatusUsuariosClasificacionesRemove") + + SqlAdapter.SelectCommand.Parameters.Add("@CveEstatusUsuariosClasificacion", SqlDbType.Int).Value = CveEstatusUsuariosClasificacion + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario Clasificaciones para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario Clasificaciones para Ordenes de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + +#Region " OC X VINCULAR COMPRA " + Public Function GetPendietePorSurtirOC(FechaI As String, FechaF As String, CveProveedor As Integer, Folio As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveEmpresa As Integer, Optional CveOC As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_ComprasPendientesPorSurtirGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Folio", SqlDbType.Int).Value = Folio + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveOC", SqlDbType.Int).Value = CveOC + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener Ordenes de compra pendientes por surtir.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetOCVinculadasPendientes(CveOCDetalle As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OCVinculadas") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOCDetalle + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener Ordenes de compra pendientes por surtir.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region "P y M E" + + Public Function AddEstatusRequisicionesPredefinidas(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_EstatusPredefinidosPyMEAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch ex As Exception + OnError("Ocurrió un error al agregar los estatus de las requisiciones predefinidas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetEstatusUsuariosPyME(CveUsuario As Integer, CveEstatus As Integer, CveSubProyecto As Integer, CveOrdenCompra As Integer, CveEmpresa As Integer, Optional CveEstatusUsuarios As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_EstatusUsuariosPyMEGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEstatusUsuarios", SqlDbType.Int).Value = CveEstatusUsuarios + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Estatus de Usuarios para Ordenes de Compra en PyME.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + +#Region " SOLICITUD DE ANTICIPO " + Public Function GetSolicitudAnticipo(CveOC As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_SolicitudAnticipoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la solicitud de anticipo de la OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetSolicitudAnticipoUsuarios(CveOC As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_SolicitudAnticipoUsuarioGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la solicitud de anticipo de la OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function AddSolicitudAnticipo(CveOrdenCompra As Integer, Importe As Double, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_SolicitudAnticipoAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@Importe", SqlDbType.Money).Value = Importe + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el estatus de solicitud anticipo de la OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function AddSolicitudAnticipoPago(CveOrdenCompra As Integer, CveIE As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_SolicitudAnticipoAddPago") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveIE", SqlDbType.Int).Value = CveIE + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el estatus de solicitud anticipo de la OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + + Public Function GetUltimoCostoPS(CvePS As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_UltimoCostoPS") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el último costo del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetRepOCGuias(FechaI As String, FechaF As String, CveProveedor As Integer, CveVendedor As Integer, CveCliente As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_RepOCGuiasGet") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de Ordenes de compra guias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#Region " OC DETALLE - SALDOS [ SURTIDO INV | VINCULADO COMP ]" + Public Function OrdenesCompraDetalleSaldosInvCompraAdd(CveOCDetalle As Integer, CveInvDetalle As Integer, CantidadSurtida As Double, CveCompraDetalle As Integer, CantidadVinculada As Double) As Boolean + Dim Retorno As Boolean = False + DataAdapter("OC_OrdenesCompraDetalleSaldosInvCompraAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOCDetalle + .Add("@CveInvDetalle", SqlDbType.Int).Value = CveInvDetalle + .Add("@CantidadSurtida", SqlDbType.Float).Value = CantidadSurtida + .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle + .Add("@CantidadVinculada", SqlDbType.Float).Value = CantidadVinculada + + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar los saldos de (Inv/Compra) de la OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region "REP OC CON ANTICIPOS PENDIENTES" + Public Function GetOCAnticiposPendientes(CveEmpresa As Integer, CveUsuarioPara As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_AnticiposPendientesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuarioPara", SqlDbType.Int).Value = CveUsuarioPara + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@FechaI", SqlDbType.DateTime).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los anticipos pendientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region +#Region "REP SOLICITUDES ANTICIPO" + Public Function GetRepSolicitudAnticipos(CveEmpresa As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, CveEventoEstatus As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_RepSolicitudAnticipoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@FechaI", SqlDbType.DateTime).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF + .Add("@CveEventoEstatus", SqlDbType.Int).Value = CveEventoEstatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los anticipos pendientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + + + +#Region " IDisposable Support " + ' IDisposable + Protected Overridable Sub Dispose(ByVal disposing As Boolean) + If Not disposedValue Then + If disposing Then + SqlConexion.Close() + SqlConexion.Dispose() + If Not Data Is Nothing Then Data.Dispose() + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() + + End If + End If + disposedValue = True + End Sub + Public Sub Dispose() Implements IDisposable.Dispose + ConexionClose() + Dispose(True) + GC.SuppressFinalize(Me) + End Sub +#End Region +End Class diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 658e42ace..5bf90db2e 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -219,6 +219,294 @@ Public Class ClsOIEventos Public Property objCorreo As ObjEventosCorreo #End Region +#Region "Cuestionario" + + Public Function GetUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario As Integer, cveUsuario As Integer, CveSeguir As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UnoaUnoCuestionario_UsuariosGet", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (cveUnoaUnoCuestionario) + .Add("@CveSeguir", SqlDbType.Int).Value = (CveSeguir) + .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function UpUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario As Integer, cveUsuario As Integer, CveSeguir As Integer, conUser As Boolean) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UnoaUnoCuestionario_UsuarioUp", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (cveUnoaUnoCuestionario) + .Add("@CveSeguir", SqlDbType.Int).Value = (CveSeguir) + .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario) + .Add("@conUser", SqlDbType.Bit).Value = (conUser) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function AddUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario As Integer, cveUsuario As Integer, CveSeguir As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UnoaUnoCuestionario_UsuarioAdd", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (cveUnoaUnoCuestionario) + .Add("@CveSeguir", SqlDbType.Int).Value = (CveSeguir) + .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function RemoveUnoaUnoCuestionario_Usuarios(cveUsuario As Integer, CveSeguir As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UnoaUnoCuestionario_UsuarioRemove", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSeguir", SqlDbType.Int).Value = (CveSeguir) + .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + + + Public Function GetUnoaUnoCuestionario(cveUnoaUnoCuestionario As Int32, cveUsuario As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UnoaUnoCuestionarioGet", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (cveUnoaUnoCuestionario) + .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + + Public Function GetUnoaUnoCuestionarioPreguntas(cveUnoaUnoCuestionario As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UnoaUnoCuestionarioPreguntasGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = cveUnoaUnoCuestionario + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function AddUnoaUnoCuestionario(Cuestionario As String, Comentario As String, CveUsuario As Integer, ListPreguntas As List(Of Integer)) As Boolean + Dim retorno As Boolean = False + + Dim xmlPreguntas As System.Xml.Linq.XDocument = Nothing + If ListPreguntas IsNot Nothing AndAlso ListPreguntas.Count > 0 Then + xmlPreguntas = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("Preguntas", ListPreguntas.[Select](Function(x) New System.Xml.Linq.XElement("CveUnoaUnoPregunta", x)))) + End If + DataAdapter("PA_OI_UnoaUnoCuestionarioAdd", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@Cuestionario", SqlDbType.VarChar).Value = (Cuestionario) + .Add("@Comentario", SqlDbType.VarChar).Value = (Comentario) + .Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario) + .Add("@xmlPreguntas", SqlDbType.Xml).Value = If(xmlPreguntas Is Nothing, DBNull.Value, DirectCast(xmlPreguntas.ToString(), Object)) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + + Public Function UpUnoaUnoCuestionario(CveUnoaUnoCuestionario As Integer, Cuestionario As String, Comentario As String, CveUsuario As Integer, ListPreguntas As List(Of Integer)) As Boolean + Dim retorno As Boolean = False + + Dim xmlPreguntas As System.Xml.Linq.XDocument = Nothing + If ListPreguntas IsNot Nothing AndAlso ListPreguntas.Count > 0 Then + xmlPreguntas = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("Preguntas", ListPreguntas.[Select](Function(x) New System.Xml.Linq.XElement("CveUnoaUnoPregunta", x)))) + End If + DataAdapter("PA_OI_UnoaUnoCuestionarioUp", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (CveUnoaUnoCuestionario) + .Add("@Cuestionario", SqlDbType.VarChar).Value = (Cuestionario) + .Add("@Comentario", SqlDbType.VarChar).Value = (Comentario) + .Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario) + .Add("@xmlPreguntas", SqlDbType.Xml).Value = If(xmlPreguntas Is Nothing, DBNull.Value, DirectCast(xmlPreguntas.ToString(), Object)) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + + Public Function RemoveUnoaUnoCuestionario(CveUnoaUnoCuestionario As Integer, CveUsuario As Integer) As Boolean + Dim retorno As Boolean = False + + DataAdapter("PA_OI_UnoaUnoRemoveCuestionario", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (CveUnoaUnoCuestionario) + .Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function +#End Region +#Region "uno a uno" + Public Function GetUnoAUnoSiguiendoA(CveUsuario As Integer, CveUsuarioSeguidor As Integer, cveEmpresa As Integer, Optional Fechastr As String = "") As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UnoAUnoSiguiendoA", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario) + .Add("@CveUsuarioSeguidor", SqlDbType.Int).Value = (CveUsuarioSeguidor) + .Add("@cveEmpresa", SqlDbType.Int).Value = (cveEmpresa) + .Add("@Fechastr", SqlDbType.VarChar).Value = (Fechastr) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el UnoaUnoPregunta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function GetUnoaUnoPregunta(cveUnoaUnoPregunta As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_GetUnoaUnoPregunta", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@cveUnoaUnoPregunta", SqlDbType.Int).Value = (cveUnoaUnoPregunta) + .Add("@cveEmpresa", SqlDbType.Int).Value = (cveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el UnoaUnoPregunta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function AddUnoaUnoPregunta(Pregunta As String, cveUnoaUnoPreguntaVinculo As Int32, CveUsuarioIng As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_AddUnoaUnoPregunta", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@Pregunta", SqlDbType.VarChar).Value = (Pregunta) + .Add("@cveUnoaUnoPreguntaVinculo", SqlDbType.Int).Value = (cveUnoaUnoPreguntaVinculo) + .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng) + .Add("@cveEmpresa", SqlDbType.Int).Value = (cveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el UnoaUnoPregunta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function UpUnoaUnoPregunta(cveUnoaUnoPregunta As Int32, Pregunta As String, cveUnoaUnoPreguntaVinculo As Int32, CveUsuarioIng As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UpUnoaUnoPregunta", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@cveUnoaUnoPregunta", SqlDbType.Int).Value = (cveUnoaUnoPregunta) + .Add("@Pregunta", SqlDbType.VarChar).Value = (Pregunta) + .Add("@cveUnoaUnoPreguntaVinculo", SqlDbType.Int).Value = (cveUnoaUnoPreguntaVinculo) + .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng) + .Add("@cveEmpresa", SqlDbType.Int).Value = (cveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el UnoaUnoPregunta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function RemoveUnoaUnoPregunta(cveUnoaUnoPregunta As Integer, CveEmpresa As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_RemoveUnoaUnoPregunta", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@cveUnoaUnoPregunta", SqlDbType.Int).Value = (cveUnoaUnoPregunta) + .Add("@cveEmpresa", SqlDbType.Int).Value = (CveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el UnoaUnoPregunta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + + Public Function UnoAUnoTableroGet(cveEmpresa As Int32, fecha As String, cveUsuario As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UnoAUnoTableroGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@Fecha", SqlDbType.Date).Value = (fecha) + .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario) + .Add("@CveEmpresa", SqlDbType.Int).Value = (cveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Tablero Uno A Uno.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return retorno + End Function + Public Function UnoAUnoTableroAdd(cveEmpresa As Int32, fecha As String, cveUsuario As Int32, CveUnoaUnoPregunta As Integer, Comentarios As String) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UnoAUnoADD", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@Fecha", SqlDbType.Date).Value = (fecha) + .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario) + .Add("@CveUnoaUnoPregunta", SqlDbType.Int).Value = (CveUnoaUnoPregunta) + .Add("@Comentarios", SqlDbType.VarChar).Value = (Comentarios) + .Add("@CveEmpresa", SqlDbType.Int).Value = (cveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Tablero Uno A Uno.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return retorno + End Function +#End Region #Region "Trello" Public Function GetTablero(cveTablero As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean Dim retorno As Boolean = False diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 87f743432..79134e341 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1181,11 +1181,11 @@ Public Class ClsPaginas ' Application("GlobalDTProductosServicios") = value ' End Set 'End Property - ReadOnly Property GlobalDTPS(CveEmpresa As Integer, Optional CvePS As Integer = -1, Optional SATClavePS As String = "-1", Optional AplicaParaVenta As Integer = -1) As DataTable + ReadOnly Property GlobalDTPS(CveEmpresa As Integer, Optional CvePS As Integer = -1, Optional SATClavePS As String = "-1", Optional AplicaParaVenta As Integer = -1, Optional Estatus As Integer = -1, Optional Codigo As String = "-1") As DataTable Get Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPS(CvePS, -1, CveEmpresa, SATClavePS:=SATClavePS, pAplicaParaVenta:=AplicaParaVenta) Then + If ObjPS.GetPS(CvePS, -1, CveEmpresa, Codigo:=Codigo, SATClavePS:=SATClavePS, pAplicaParaVenta:=AplicaParaVenta, pEstado:=Estatus) Then GlobalDTPS = ObjPS.DtResultados Else GlobalDTPS = Nothing @@ -1634,7 +1634,7 @@ Public Class ClsPaginas Application("GlobalDTClientesCorporativo") = value End Set End Property - Property GlobalDTCompProveedores(CveEmpresa As Integer) As DataTable + Property GlobalDTCompProveedores(CveEmpresa As Integer, Optional CveProveedor As Integer = -1) As DataTable Get Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa) 'sino existe, recarga los datos @@ -1645,7 +1645,11 @@ Public Class ClsPaginas End If If CveEmpresa <> -1 Then - Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) + Dim StrSQL As New StringBuilder + StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa) + If CveProveedor >= 0 Then StrSQL.AppendFormat(" AND CveProveedor = {0} ", CveProveedor) + + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows) GlobalDTCompProveedores = Dv.ToTable Dv.Dispose() Else @@ -1730,10 +1734,21 @@ Public Class ClsPaginas Application("GlobalDTInvConceptos") = value End Set End Property - Property GlobalDTSeccionAlmacen(CveEmpresa As Integer) As DataTable + Property GlobalDTSeccionAlmacen(CveEmpresa As Integer, CveAlmacen As Integer) As DataTable Get + Dim AppNombre As String = String.Format("GlobalDTSeccionAlmacen-{0}", CveEmpresa) + 'sino existe, recarga los datos + If Application(AppNombre) Is Nothing Then + Dim ObjInv As New ClsInventarios + If ObjInv.GetSeccionesAlmacenes(CveEmpresa, -1) Then Application(AppNombre) = ObjInv.DtResultados + ObjInv.Dispose() + End If If CveEmpresa <> -1 Then - Dim Dv As New DataView(DirectCast(Application("GlobalDTSeccionAlmacen"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) + Dim Str As New StringBuilder + + If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa) + If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen) + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) GlobalDTSeccionAlmacen = Dv.ToTable Dv.Dispose() Else @@ -1742,7 +1757,8 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Application("GlobalDTSeccionAlmacen") = value + Dim AppNombre As String = String.Format("GlobalDTSeccionAlmacen-{0}", CveEmpresa) + Application(AppNombre) = value End Set End Property Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1) As DataTable @@ -3569,6 +3585,8 @@ Public Class ClsPaginas PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), -1) PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), -1) PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), -1) + PaginaDict.Add("/OI/UnoaUno.aspx".ToUpper(), -1) + PaginaDict.Add("/OI/UnoaUnoConfiguracion.aspx".ToUpper(), -1) PaginaDict.Add("/OI/ConvocatoriaDetalle.aspx".ToUpper(), -1) PaginaDict.Add("/OI/RepReuniones.aspx".ToUpper(), -1) PaginaDict.Add("/AdSistemasTeam/ProcedimientosAlmacenados.aspx".ToUpper(), -1) @@ -4296,7 +4314,7 @@ Public Class ClsPaginas PaginaDict.Add("/Inventarios/RepConsignaciones.aspx".ToUpper(), 364) PaginaDict.Add("/Inventarios/RepAlmacenCompras.aspx".ToUpper(), 375) PaginaDict.Add("/Inventarios/RepAlmacen.aspx".ToUpper(), 376) - PaginaDict.Add("/Inventarios/RecepcionEntrega.aspx".ToUpper(), 387) + PaginaDict.Add("/Inventarios/EntregaAlmacen.aspx".ToUpper(), 387) PaginaDict.Add("/Inventarios/RepUMEquivalencia.aspx".ToUpper(), 399) PaginaDict.Add("/Inventarios/ResguardoMaterial.aspx".ToUpper(), 562) PaginaDict.Add("/Inventarios/RepMaximoMinimo.aspx".ToUpper(), 389) @@ -4339,7 +4357,7 @@ Public Class ClsPaginas PaginaDict.Add("/Inventarios/RepEntradasSalidas2.aspx".ToUpper(), -1) ' PaginaDict.Add("/Inventarios/RecepcionUsados.aspx".ToUpper(), 1202) PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891) - PaginaDict.Add("/Inventarios/KardexSeccionAlmacen.aspx".ToUpper(), 892) + PaginaDict.Add("/Inventarios/AjustesSeccionAlmacen.aspx".ToUpper(), 892) PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688) #End Region @@ -7189,10 +7207,15 @@ Public Class ClsPaginas End If 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString)) + Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol) + Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={0}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol)) Dim FirmaSol As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", EmpresaActual.Ruta, CveUsuarioSol)) - params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Firmas/{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol))).AbsoluteUri, ""))) + params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, RutaVirtuaSol, ""))) + + Dim RutaFisicaAut As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioAut) + Dim RutaVirtuaAut As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaAut)) Dim FirmaAut As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", EmpresaActual.Ruta, CveUsuarioAut)) - params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Firmas/{1}.png", EmpresaActual.CveEmpresa, CveUsuarioAut))).AbsoluteUri, ""))) + params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, RutaVirtuaAut, ""))) If Archivo.Exists Then bytes = StreamPDF(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta), DtDetalle, params, $"OC_{ObjOC.Folio.ToString}", RDSName:="DsOC", MR:=MR) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index c90639042..6b4c01406 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -389,7 +389,8 @@ Public Class ClsProductosServicios Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1, Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "", - Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False) As Integer + Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, + Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -463,6 +464,11 @@ Public Class ClsProductosServicios .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad .Add("@Litraje", SqlDbType.Float).Value = Litraje .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing + + .Add("@AplicaSerie", SqlDbType.Bit).Value = AplicaSerie + .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote + .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad + .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion End With Try @@ -608,7 +614,8 @@ Public Class ClsProductosServicios Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1, Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "", - Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False) As Boolean + Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, + Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ProductosServiciosUpdate") @@ -683,6 +690,11 @@ Public Class ClsProductosServicios .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad .Add("@Litraje", SqlDbType.Float).Value = Litraje .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing + + .Add("@AplicaSerie", SqlDbType.Bit).Value = AplicaSerie + .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote + .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad + .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion End With Try @@ -1345,7 +1357,27 @@ Public Class ClsProductosServicios Return Retorno End Function + Public Function UpdateAplicaSeccionAlmacen(CvePS As Integer, CveEmpresa As Integer, AplicaSeccionAlmacen As Boolean) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_ProductosServiciosSeccionAlmacenUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@AplicaSeccionAlmacen", SqlDbType.Bit).Value = AplicaSeccionAlmacen + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Catch ex As Exception + OnError("Ocurrió un error al actualizar aplica seccion almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function Public Function GetMarcas(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 4fafd698a..cda859572 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1796,12 +1796,12 @@ Namespace Modelos If Dr("CveTipoInvPS").ToString.ToEntero = 5 Then For Each Dr2 As DataRow In DtContratosSerieDetalle.FiltraParametros($"ConsecId = {Dr("CveContratoDetalle")}").Rows - Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, Me.CveEmpresa, CveAlmacenExistenciasContrato, SerieLote:=Dr2("Serie").ToString, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=Me.CveSubProyecto, ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1) + Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, Me.CveEmpresa, CveAlmacenExistenciasContrato, Serie:=Dr2("Serie").ToString, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=Me.CveSubProyecto, ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1) If Existencia < 1 Then Return False End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, 1, CveUnidad, CveProducto, 0, -1, SerieLote:=Dr2("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, 1, CveUnidad, CveProducto, 0, -1, Serie:=Dr2("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then Return False End If Next @@ -1826,7 +1826,7 @@ Namespace Modelos If CveMovimientoEntradaGeneral > 0 Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then Return False End If Next @@ -1840,7 +1840,7 @@ Namespace Modelos If CveMovimientoEntradaGeneral > 0 Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then Return False End If Next @@ -3399,7 +3399,7 @@ Namespace Modelos End If If CveProducto > 0 Then - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, 0, -1, SerieLote:=Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, 0, -1, Serie:=Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then OcurrioError = True ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.
") Exit For @@ -3672,7 +3672,7 @@ Namespace Modelos Exit For End If - If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, SerieLote:=SerieLote, CveVentaDetalle:=CveVentaDetalle) Then + If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, Lote:=SerieLote, CveVentaDetalle:=CveVentaDetalle) Then ContadorMovtosDetalles += 1 Else OcurrioError = True @@ -4436,7 +4436,7 @@ Namespace Modelos If CveMovimientoDevolucion > 0 Then For Each Dr As DataRow In DtExistencias.FiltraParametros($"CveMovimiento = {RowMovimiento("CveMovimiento").ToString()}").Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, SerieLote:=Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then ErrorCancelar = True MensajeError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar." Exit For @@ -4936,7 +4936,7 @@ Namespace Modelos End If For Each Dr As DataRow In DtMovtosDev.FiltraParametros($"CveVentaDetalle = {DrRem("CveVentaDetalle").ToString.ToEntero}").Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=Dr("Lote").ToString) Then ErrorCancelar = True Exit For End If @@ -4954,7 +4954,7 @@ Namespace Modelos 'ENTRADA POR TRAPASO A ENTREGA POR ADELANTADO If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDevRem, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then ErrorCancelar = True Exit For End If @@ -5018,7 +5018,7 @@ Namespace Modelos Exit For End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, DrRem("CveActivoFijo").ToString.ToEntero, -1, DrRem("SerieLote").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=DrRem("Lote").ToString, Batch:=DrRem("Batch").ToString) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, DrRem("CveActivoFijo").ToString.ToEntero, -1, DrRem("SerieLote").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=DrRem("Lote").ToString) Then ErrorCancelar = True Exit For End If @@ -5033,7 +5033,7 @@ Namespace Modelos If Not ErrorCancelar Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDevRem, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then ErrorCancelar = True Exit For End If @@ -5088,7 +5088,7 @@ Namespace Modelos Exit For End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then ErrorCancelar = True Exit For End If @@ -5111,7 +5111,7 @@ Namespace Modelos If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then ErrorCancelar = True Exit For End If diff --git a/App_Code/WS_PuntoVenta.vb b/App_Code/WS_PuntoVenta.vb index f35cfea94..cd18bf021 100644 --- a/App_Code/WS_PuntoVenta.vb +++ b/App_Code/WS_PuntoVenta.vb @@ -1346,8 +1346,8 @@ Public Class WS_PuntoVenta Dim objInventario As New ClsInventarios Dim Respuesta As New RespuestaWS - If objInventario.GetSeccionesAlmacenes(-1) Then - Respuesta.Datos = objInventario.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", CveEmpresa)) + If objInventario.GetSeccionesAlmacenes(CveEmpresa, -1) Then + Respuesta.Datos = objInventario.DtResultados '.FiltraParametros(String.Format("CveEmpresa={0}", CveEmpresa)) Respuesta.Datos.TableName = "Inv_SeccionesAlmacenes" Respuesta.HuboError = False End If diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index e9e3f36b6..1b799cb7d 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -29,12 +29,10 @@ Imports System.Web.Http.Controllers Imports System.Net.Http Imports System.Net -Namespace Extensiones - +Namespace Extensiones + #Region "E X T E N S I O N E S" Public Module ModExtensiones - - 'Public Const DirectorioBaseEmpresas As String = "C:\inetpub\" Public ReadOnly Property DirectorioBaseEmpresas As String Get If IsNothing(System.Configuration.ConfigurationManager.AppSettings("DirectorioBaseEmpresas")) Then @@ -44,13 +42,23 @@ Namespace Extensiones End If End Get End Property - Public ReadOnly DirectorioEmpresas As String = String.Format("{0}Empresas\", DirectorioBaseEmpresas) + Public ReadOnly DirectorioEmpresas As String = String.Format("{0}Empresas\", DirectorioBaseEmpresas) + + Public ReadOnly Property GOOGLE_MAPS_API_KEY As String + Get + If IsNothing(System.Configuration.ConfigurationManager.AppSettings("GOOGLE_MAPS_API_KEY")) Then + Return "" + Else + Return System.Configuration.ConfigurationManager.AppSettings("GOOGLE_MAPS_API_KEY").ToString() + End If + End Get + End Property Public Const IMEI As String = "IMEISISTEMAGERENCIAL" Public Const MinFecha As Date = #1/1/1900# Public Const MaxFecha As Date = #1/1/9999# - Public Const GlobalRowVersion As Integer = 555555 - + Public Const GlobalRowVersion As Integer = 555555 + #Region "PropiedadesEncriptación" Private _Key() As Byte = {} Private ReadOnly _IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF} @@ -60,6 +68,53 @@ Namespace Extensiones #End Region + Public Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable + GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) + Dim excelFile As GemBox.Spreadsheet.ExcelFile = GemBox.Spreadsheet.ExcelFile.Load(flatFilePath) + + Dim unnamed As Integer = 0 + Dim cols As Integer + Dim columns As String() + Dim curRow As Integer = 0 + Dim curCol As Integer = 0 + Dim dataTable As DataTable = New DataTable() + Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0) + + For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1 + + If firstRowHasHeaders Then + + If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then + dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString()) + Else + dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed))) + End If + + curRow = 1 + Else + dataTable.Columns.Add("Column " & (cols + 1)) + End If + Next + + While curRow < worksheet.Rows.Count + columns = New String(cols - 1) {} + + For curCol = 0 To cols - 1 + + If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then + columns(curCol) = "" + Else + columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString() + End If + Next + + dataTable.Rows.Add(columns) + curRow += 1 + End While + + Return dataTable + End Function + Public Function CadenaConexion() As String Dim BaseDatos As String = "Ventas" 'If Not IsNothing(System.Web.HttpContext.Current) AndAlso Not IsNothing(System.Web.HttpContext.Current.Session) Then @@ -90,10 +145,10 @@ Namespace Extensiones Else Return Valor End If - End Function - + End Function + #Region "Log" - + Public Sub GuardaLog(Str As String) Dim ArchivoW As StreamWriter diff --git a/Bancos/CreditosPagoMultiple.aspx.vb b/Bancos/CreditosPagoMultiple.aspx.vb index 615b0c0b8..70a1873b4 100644 --- a/Bancos/CreditosPagoMultiple.aspx.vb +++ b/Bancos/CreditosPagoMultiple.aspx.vb @@ -216,7 +216,7 @@ Partial Class Bancos_CreditosPagoMultiple Dim filemove As String = "" Dim Comprobante As String = "" For Each fileItem As Archivo In filesgral - Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") filemove = fileItem.filename Next diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index 0f11dd4a5..280292a78 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -535,8 +535,9 @@ Partial Class Bancos_RepIE End Sub Private Sub Imprimir(Formato As String) + Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa) + Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim params As New List(Of ReportParameter) diff --git a/Bancos/RepSaldosDetalle.aspx b/Bancos/RepSaldosDetalle.aspx index 6c2f52af6..9b1f0539e 100644 --- a/Bancos/RepSaldosDetalle.aspx +++ b/Bancos/RepSaldosDetalle.aspx @@ -6,25 +6,49 @@
  • - Generar
    • + Excel     - Reporte de Saldos Bancarios Detalle -  + Reporte de Saldos Bancarios Detalle
  • - Imprimir + PDF

    • -
    +
    + Banco: +
    +
    + +
    +
    + Cuenta: +
    +
    + +
    +
    + Fecha Inicial: +
    +
    + +
    +
    + Fecha Fin: +
    +
    + +
    +
    - +

    diff --git a/Bancos/RepSaldosDetalle.aspx.vb b/Bancos/RepSaldosDetalle.aspx.vb index 620ae912b..3ecb33a4d 100644 --- a/Bancos/RepSaldosDetalle.aspx.vb +++ b/Bancos/RepSaldosDetalle.aspx.vb @@ -155,6 +155,9 @@ Partial Class Bancos_RepSaldosDetalle Cuenta = dr("NumCuenta").ToString CLABE = dr("CLABE").ToString Banco = dr("Banco").ToString + lbBancoNombre.Text = Banco + LblFechaI.Text = FechaInicio + LblFechaF.Text = FechaFin If CveCuenta > 0 Then LblCuenta.Text = dr("NumCuenta").ToString LblSaldoInicial.Text = dr("SaldoInicial").ToString.ToDouble.FormatoNumero @@ -174,13 +177,15 @@ Partial Class Bancos_RepSaldosDetalle End Sub Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click - GvS.ExportToExcel("ReporteSaldos" & Now.ToShortDateString) + ImprimirReporte("Excel") End Sub - - #Region "P D F" Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click + ImprimirReporte("PDF") + End Sub + + Private Sub ImprimirReporte(formato As String) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -215,7 +220,7 @@ Partial Class Bancos_RepSaldosDetalle params.Add(New ReportParameter("LogoPath", "")) End If - ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle") + ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle", Formato:=formato) Ban.Dispose() End Sub diff --git a/Bancos/Reportes.aspx.vb b/Bancos/Reportes.aspx.vb index 1f22c766f..b96bf50c4 100644 --- a/Bancos/Reportes.aspx.vb +++ b/Bancos/Reportes.aspx.vb @@ -141,13 +141,17 @@ Partial Class Bancos_Reportes rv.LocalReport.DataSources.Clear() rv.LocalReport.DataSources.Add(rds) rv.LocalReport.DataSources.Add(rds2) - rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Bancos\Reportes\rptChequeMovimientos.rdlc" + rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\rptChequeMovimientos.rdlc" rv.LocalReport.Refresh() Dim paramList As New List(Of ReportParameter) With paramList - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa) + Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index 8f63e3791..dfc7a457e 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -1430,7 +1430,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng); }else { - Alert("No tiene Etapa Proceso con el Tipo Proceso seleccionado",ModExtensiones.TipoMensaje.MsgAdvertencia); + Alert("No tiene 'Etapa Proceso' con el 'Proceso' seleccionado al agregar el Acercamiento",ModExtensiones.TipoMensaje.MsgAdvertencia); } if (CveAcercamiento > 0) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a75f1fc4f..646faeb46 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1704,7 +1704,7 @@ Partial Class Compras_Compras Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador Dim XMLDoc As New XmlDocument - Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, dr("RFCDe"), dr("XML")) + Dim Archivo As String = String.Format("{0}\Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML")) If IO.File.Exists(Archivo) Then Dim Validada As Boolean = True @@ -5277,7 +5277,7 @@ Partial Class Compras_Compras DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("CvePS = {0}", Dr("CvePS"))) If DtDetalle.Rows.Count > 0 Then For Each drr As DataRow In DtDetalle.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, SerieLote:=drr("Serie").ToString, FechaCaducidad:=drr("FechaCaducidad").ToString.ToDate, CostoIndirecto:=Dr("CostoIndirectoAlmacen").ToString.ToDecimal, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=drr("Serie").ToString, FechaCaducidad:=drr("FechaCaducidad").ToString.ToDate, CostoIndirecto:=Dr("CostoIndirectoAlmacen").ToString.ToDecimal, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then ErrorMovInv = True Exit For End If @@ -5811,11 +5811,7 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - 'Conta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If + End If Next @@ -6419,11 +6415,7 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - 'Conta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -6738,7 +6730,7 @@ Partial Class Compras_Compras importeMN = importeMovimiento * tipoCambioActual * Multiplicador '[IPP] EL 6 DEBE SER POSITIVO 27/AGOSTO/2018 'CLASIFICACION - If Row2("CveClasificacion").ToString.ToEntero > 0 AndAlso DdlTipoComprobante.SelectedValue = "FAC" Then + If Row2("CveClasificacion").ToString.ToEntero > 0 AndAlso DdlTipoComprobante.SelectedValue = "Fac" Then If ObjConta.GetRetCuenta(6, Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero) Then If ObjConta.DtResultados.Rows.Count > 0 AndAlso ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero > 0 Then @@ -6749,9 +6741,13 @@ Partial Class Compras_Compras ' CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero End If End If + 'Conta ContPAQ + End If - - + 'If IdCtaContable = 0 AndAlso DdlTipoComprobante.SelectedValue = "Fac" Then + ' CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString) + ' idCuentaContabilizacion = 0 + 'End If 'SEGMENTO DE NEGOCIO @@ -6763,16 +6759,6 @@ Partial Class Compras_Compras 'AGREGA MOVIMIENTO If importeMovimiento.RoundSQL <> 0 Then - 'Conta ContPAQ - If IdCtaContable = 0 Then - CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString) - idCuentaContabilizacion = 0 - End If - 'Conta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If Dim tcvecon As Integer = 6 Dim tidctacon As Integer = 6 @@ -6810,9 +6796,6 @@ Partial Class Compras_Compras End If - - - End If Next @@ -6890,11 +6873,6 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - 'Conta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True @@ -7150,11 +7128,6 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - 'Conta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - idCuentaContabilizacion = 0 - End If 'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then @@ -7485,11 +7458,6 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - 'COnta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True @@ -9130,11 +9098,6 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - 'Conta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then ErrorMovtosCxP = 1 diff --git a/Compras/EvaluacionProveedor.aspx.vb b/Compras/EvaluacionProveedor.aspx.vb index 879754a15..460ed861b 100644 --- a/Compras/EvaluacionProveedor.aspx.vb +++ b/Compras/EvaluacionProveedor.aspx.vb @@ -354,7 +354,7 @@ Partial Class Compras_EvaluacionProveedor ListaTagsDocumentost.Add(New TagsDocumentos("{{Proveedor}}", Proveedor)) ListaTagsDocumentost.Add(New TagsDocumentos("{{Dia}}", Dia)) ListaTagsDocumentost.Add(New TagsDocumentos("{{Mes}}", Mes)) - ListaTagsDocumentost.Add(New TagsDocumentos("{{Anio}}", Now.Year)) + ListaTagsDocumentost.Add(New TagsDocumentos("{{Anio}}", Now.Year.ToString)) ListaTagsDocumentost.Add(New TagsDocumentos("{{Calificacion}}", Calificacion)) ListaTagsDocumentost.Add(New TagsDocumentos("{{Resultado}}", Resultado)) 'ListaTagsDocumentost.Add(New TagsDocumentos("{{Usuario}}", UsuarioActual.Nombre)) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 0d11cf687..6e1e76ea6 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -2625,7 +2625,7 @@ Partial Class Compras_Proveedores Dim filemove As String = "" For Each fileItem As Archivo In filesgral - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") filemove = fileItem.filename Next @@ -2871,7 +2871,7 @@ Partial Class Compras_Proveedores Try - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") Dim tempArray() As String tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) diff --git a/Contabilidad/CatPeriodosBloqueo.aspx.vb b/Contabilidad/CatPeriodosBloqueo.aspx.vb index 41dbb72f0..1b3707231 100644 --- a/Contabilidad/CatPeriodosBloqueo.aspx.vb +++ b/Contabilidad/CatPeriodosBloqueo.aspx.vb @@ -140,7 +140,7 @@ Partial Class Contabilidad_CatPeriodosBloqueo Alert("Bloqueo Actualizado Correctamente", TipoMensaje.MsgInformacion) Else Dim mensajeAlerta As String = AplicarBloqueso.Replace(";", Environment.NewLine) - Alert("Ocurrió un error al Actualizar el Periodo de Bloqueo " & Environment.NewLine & mensajeAlerta, TipoMensaje.MsgError) + Alert(String.Format("No se puede bloquear el periodo por:
    {0} ", mensajeAlerta), TipoMensaje.MsgError) End If End If diff --git a/Contabilidad/RepIEPS.aspx.vb b/Contabilidad/RepIEPS.aspx.vb index 4d66be0a7..4dcb8bfbb 100644 --- a/Contabilidad/RepIEPS.aspx.vb +++ b/Contabilidad/RepIEPS.aspx.vb @@ -30,6 +30,18 @@ Partial Class Contabilidad_RepIEPS Dim ObjConta As New ClsContabilidad() If ObjConta.GetRepIEPS(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlTipoOperacion.SelectedValue, DdlModalidad.SelectedValue.ToEntero(), DdlLimite.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then DtDatos = ObjConta.DtResultados.Copy() + + If ObjConta.GetProductosSinIEPS(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa) Then + Dim DtProductos As DataTable = ObjConta.DtResultados.Copy + If DtProductos.Rows.Count > 0 Then + Dim ProductosIEPS As String = "Los siguientes productos o servicios no tienen especificado alguno de los siguientes campos en relación al IEPS: Empaque, presentación o toxicidad

    " + For Each producto As DataRow In DtProductos.Rows + ProductosIEPS = String.Format("{0}
    {1}", ProductosIEPS, producto("CodigoPS")) + Next + Alert(ProductosIEPS, TipoMensaje.MsgAdvertencia) + End If + End If + End If ObjConta.Dispose() If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then @@ -40,9 +52,9 @@ Partial Class Contabilidad_RepIEPS DtDatos = DtDatos.FiltraParametros("TipoDato in (1,2)") End If GvDatos.DataSource = DtDatos - GvDatos.DataBind() - Else - Alert("No se encontraron resultados en la consulta") + GvDatos.DataBind() + Else + Alert("No se encontraron resultados en la consulta") End If UpDatos.Update() UpLnkAcciones.Update() diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index aae48ff3f..9781142c1 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1201,7 +1201,7 @@ Partial Class Contratos_Default If DdlMoneda.SelectedIndex > 0 Then If TxtTipoCambio.Text.Trim.Length = 0 Or TxtTipoCambio.Text.Trim.ToDouble = 0.0 Then - Alert("Cuando seleccione una moneda diferencte a peso debe especificar el tipo de cambio.", TipoMensaje.MsgAdvertencia) + Alert("Cuando seleccione una moneda diferente a peso debe especificar el tipo de cambio.", TipoMensaje.MsgAdvertencia) Exit Sub End If End If diff --git a/Empresas/72/Formatos/ConsumoInterno.rdlc b/Empresas/72/Formatos/ConsumoInterno.rdlc index 4f83b35f6..cf6d31666 100644 --- a/Empresas/72/Formatos/ConsumoInterno.rdlc +++ b/Empresas/72/Formatos/ConsumoInterno.rdlc @@ -6,19 +6,22 @@ - 1.08025cm + 1.10177cm - 2.86537cm + 2.88689cm - 10.83004cm + 7.80282cm - 2.36735cm + 2.38887cm - 2.1384cm + 2.86584cm + + + 2.15992cm @@ -169,7 +172,7 @@ - Serie/Lote + Serie + + + + + + Textbox4 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -356,14 +404,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -1645,8 +1726,12 @@ Almacen System.String - - SerieLote + + Serie + System.String + + + SeccionAlmacen System.String diff --git a/Empresas/72/Formatos/DevolucionCliente.rdlc b/Empresas/72/Formatos/DevolucionCliente.rdlc index ba12d2d1f..b04d46e3c 100644 --- a/Empresas/72/Formatos/DevolucionCliente.rdlc +++ b/Empresas/72/Formatos/DevolucionCliente.rdlc @@ -6,19 +6,22 @@ - 1.4138cm + 1.08751cm 2.86537cm - 7.90885cm + 5.59405cm 2.36735cm - 2.7734cm + 2.92336cm + + + 2.35004cm @@ -169,7 +172,7 @@ - Serie/Lote + Serie + + + + + + Textbox17 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -350,14 +398,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -366,7 +414,37 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -419,6 +497,7 @@ + @@ -435,7 +514,7 @@ 0.17639cm 0.12931cm 0.96717cm - 17.32877cm + 17.18768cm @@ -667,7 +746,7 @@ 1.28125in + + + + + + Textbox5 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + @@ -382,14 +429,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -400,7 +447,39 @@ - SerieLote1 + Serie + + + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "1pt", "0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + + + + SeccionAlmacen @@ -423,6 +502,7 @@ + @@ -1014,8 +1094,12 @@ Almacen System.String - - SerieLote + + Serie + System.String + + + SeccionAlmacen System.String diff --git a/Empresas/72/Formatos/EntradaGarantia.rdlc b/Empresas/72/Formatos/EntradaGarantia.rdlc index 82e7a4f82..1232b8f04 100644 --- a/Empresas/72/Formatos/EntradaGarantia.rdlc +++ b/Empresas/72/Formatos/EntradaGarantia.rdlc @@ -6,19 +6,22 @@ - 1.4138cm + 1.19235cm - 2.86537cm + 2.76934cm - 7.90885cm + 6.51065cm 2.36735cm - 2.7734cm + 2.8175cm + + + 1.6716cm @@ -169,7 +172,7 @@ - Serie/Lote + Serie + + + + + + Textbox10 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -214,7 +262,7 @@ - Unidad Medida + U. M. @@ -366,7 +414,37 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -419,6 +497,7 @@ + @@ -435,7 +514,7 @@ 0.17639cm 0.09031cm 0.96717cm - 17.32877cm + 17.32879cm @@ -458,7 +537,7 @@ 0.54167in + + + + + + Textbox17 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -214,7 +262,7 @@ - Unidad Medida + U.M. @@ -366,7 +414,37 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -419,6 +497,7 @@ + @@ -435,7 +514,7 @@ 0.17639cm 0.12931cm 0.96717cm - 17.17002cm + 17.12418cm @@ -1523,8 +1602,12 @@ Almacen System.String - - SerieLote + + Serie + System.String + + + SeccionAlmacen System.String diff --git a/Empresas/72/Formatos/Entradas.rdlc b/Empresas/72/Formatos/Entradas.rdlc index 5a9ef0bb3..beab2af56 100644 --- a/Empresas/72/Formatos/Entradas.rdlc +++ b/Empresas/72/Formatos/Entradas.rdlc @@ -12,13 +12,16 @@ 2.06688cm - 7.9493cm + 6.26873cm - 2.51129cm + 1.69187cm - 1.43594cm + 2.8175cm + + + 1.11844cm 1.56514cm @@ -175,7 +178,7 @@ - Serie/Lote + Serie + + + + + + Textbox1 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -454,14 +502,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -787,7 +868,7 @@ 1.75444in + + + + + + Textbox2 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -448,14 +496,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -464,7 +512,37 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -589,6 +667,7 @@ + @@ -783,7 +862,7 @@ 1.83333in + + + + + + Textbox45 + + + + + + + + + Silver + 2pt + 2pt + 2pt + + + + @@ -590,7 +634,7 @@ - =Fields!SerieLote.Value + =Fields!Serie.Value + + + + + + SeccionAlmacen + + + =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + @@ -737,6 +815,7 @@ + @@ -2104,8 +2183,12 @@ PS System.String - - SerieLote + + Serie + System.String + + + SeccionAlmacen System.String diff --git a/Empresas/72/Formatos/Salidas.rdlc b/Empresas/72/Formatos/Salidas.rdlc index 6d8f328e2..41362ace5 100644 --- a/Empresas/72/Formatos/Salidas.rdlc +++ b/Empresas/72/Formatos/Salidas.rdlc @@ -6,19 +6,22 @@ - 1.08025cm + 1.04906cm 2.86537cm - 10.83004cm + 8.0952cm 2.36735cm - 2.1384cm + 2.73484cm + + + 2.16959cm @@ -169,7 +172,7 @@ - Serie/Lote + Serie + + + + + + Textbox1 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -356,14 +404,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + + + + + + + Textbox3 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -348,14 +395,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -364,7 +411,38 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -489,7 +568,7 @@ 1.76239in + + + + + + Textbox10 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -350,14 +398,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -366,7 +414,37 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -419,6 +497,7 @@ + @@ -435,7 +514,7 @@ 0.17639cm 0.09031cm 0.96717cm - 17.32877cm + 17.32879cm @@ -458,7 +537,7 @@ 0.54167in + + + + + + Textbox10 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + @@ -401,14 +449,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -419,7 +467,40 @@ - SerieLote + Serie + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + + + + SeccionAlmacen @@ -443,6 +524,7 @@ + @@ -459,7 +541,7 @@ 0.07056cm 0.03488cm 0.92264cm - 20.29478cm + 20.18483cm @@ -545,8 +627,8 @@ Textbox31 - 1.15947cm - 2.85732cm + 1.13431cm + 2.8926cm 0.90014cm 17.46676cm 3 @@ -1564,8 +1646,12 @@ Almacen System.String - - SerieLote + + Serie + System.String + + + SeccionAlmacen System.String diff --git a/Empresas/72/Formatos/TrasladoAlmacen.rdlc b/Empresas/72/Formatos/TrasladoAlmacen.rdlc index 00ae4fedc..1714ac257 100644 --- a/Empresas/72/Formatos/TrasladoAlmacen.rdlc +++ b/Empresas/72/Formatos/TrasladoAlmacen.rdlc @@ -6,7 +6,7 @@ - 1.37635cm + 1.03892cm 1.74824cm @@ -15,21 +15,24 @@ 1.41283cm - 8.7207cm + 7.13876cm - 2.50488cm + 2.21384cm + + + 2.51239cm 2.15376cm - 2.60235cm + 2.07958cm - 0.51314cm + 1.01502cm @@ -229,7 +232,7 @@ - Serie/Lote + Serie + + + + + + Textbox2 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + @@ -497,14 +545,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -515,7 +563,40 @@ - SerieLote + Serie + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + + + + SeccionAlmacen @@ -772,6 +853,40 @@ + + + + true + true + + + + + + + + + + + + Textbox15 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + @@ -1026,6 +1141,40 @@ + + + + true + true + + + + + + + + + + + + Textbox18 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + @@ -1280,6 +1429,40 @@ + + + + true + true + + + + + + + + + + + + Textbox42 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + @@ -1371,6 +1554,7 @@ + @@ -1395,8 +1579,8 @@ DsInventarios 0.07056cm 0.03488cm - 2.80201cm - 20.51911cm + 3.30389cm + 20.29832cm @@ -1504,7 +1688,7 @@ 1.68587in @@ -50,7 +50,7 @@ - 0.62012cm + 1.25512cm 0.22583cm 0cm 17.79586cm @@ -65,16 +65,16 @@ - 3.65719cm + 2.95132cm - 3.49856cm + 2.94294cm 1.44923cm - 1.99986cm + 1.5894cm 2.68423cm @@ -82,6 +82,9 @@ 2.54257cm + + 1.5217cm + 2.19006cm @@ -288,6 +291,39 @@ + + + + true + true + + + + + Estatus + + + + Textbox5 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + @@ -531,6 +567,40 @@ + + + + true + true + + + + + =iif(Fields!Estatus.Value="1","Activo","Inactivo") + + + + + + + Estatus + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -578,6 +648,7 @@ + @@ -591,9 +662,9 @@ DataSet1 - 0.79651cm + 1.43151cm 1.16648cm - 18.02169cm + 17.87145cm 2 + + true + true + + + + + Cliente: + HTML + + + + =Parameters!Cliente.Value + HTML + + + + + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + - 0.86559in + 1.13642in - Textbox11 @@ -958,6 +1079,10 @@ FechaIng System.String + + Estatus + System.String + DataSet @@ -994,6 +1119,12 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + Cm 40c94aad-a12a-44fb-ab0d-ea36a9656792 diff --git a/Empresas/Grales/Formatos/RepSaldosDetalle.rdlc b/Empresas/Grales/Formatos/RepSaldosDetalle.rdlc index fdd9645ea..67c6632b2 100644 --- a/Empresas/Grales/Formatos/RepSaldosDetalle.rdlc +++ b/Empresas/Grales/Formatos/RepSaldosDetalle.rdlc @@ -5,7 +5,7 @@ 0.08792cm 0cm - 20.43968cm + 19.02093cm @@ -16,31 +16,31 @@ - 1cm + 0.99817cm - 1.7cm + 0.89235cm - 1.6439cm + 1.64207cm - 6.48678cm + 6.29065cm - 2.63648cm + 2.28597cm - 1.29cm + 1.28817cm - 1.83034cm + 1.82851cm - 1.70625cm + 1.70442cm - 2.02375cm + 2.02192cm @@ -473,7 +473,7 @@ - 0.6cm + 0.83813cm @@ -803,8 +803,8 @@ DataSet1 0.36336cm 0.06868cm - 1.06771cm - 20.3175cm + 1.30584cm + 18.95225cm 1 - 0.60091in + 0.79883in - Textbox1 @@ -979,7 +981,7 @@ Textbox13 0.11854cm - 16.8543cm + 15.48905cm 1.76352cm 3.53188cm 3 @@ -1038,7 +1040,7 @@ Textbox13 2.41272cm - 15.92826cm + 14.56301cm 0.52945cm 4.45792cm 4 @@ -1110,7 +1112,7 @@ 0.11437cm 0.10583cm 0cm - 20.33385cm + 18.9151cm @@ -1266,7 +1268,7 @@ Textbox3 0.22726cm - 18.32031cm + 16.95506cm 0.36335cm 2.06587cm 5 diff --git a/GPS/Busqueda.aspx b/GPS/Busqueda.aspx index b6ef976d9..0a1433bfc 100644 --- a/GPS/Busqueda.aspx +++ b/GPS/Busqueda.aspx @@ -513,9 +513,7 @@ } - + diff --git a/GPS/CatRemisionesVehiculos.aspx b/GPS/CatRemisionesVehiculos.aspx index f60e75505..8bdf451b1 100644 --- a/GPS/CatRemisionesVehiculos.aspx +++ b/GPS/CatRemisionesVehiculos.aspx @@ -266,8 +266,6 @@ - + diff --git a/GPS/EntradasSalidasGR.aspx b/GPS/EntradasSalidasGR.aspx index 37d683f60..0c472d751 100644 --- a/GPS/EntradasSalidasGR.aspx +++ b/GPS/EntradasSalidasGR.aspx @@ -632,11 +632,6 @@ } - - <%----%> + diff --git a/GPS/GeoReferencias.aspx b/GPS/GeoReferencias.aspx index eda63fbc8..f370c259d 100644 --- a/GPS/GeoReferencias.aspx +++ b/GPS/GeoReferencias.aspx @@ -769,12 +769,7 @@ } - - <%-- --%> + diff --git a/GPS/GeoReferencias.aspx.vb b/GPS/GeoReferencias.aspx.vb index e14d3e9a8..9b898f0e8 100644 --- a/GPS/GeoReferencias.aspx.vb +++ b/GPS/GeoReferencias.aspx.vb @@ -157,7 +157,8 @@ Partial Class GPS_GeoReferencias Finally If TieneError Then - ObjGPS.RollBack() + ObjGPS.RollBack() + Alert("Ocurrió un error al agregar la georeferencia", TipoMensaje.MsgError) Else ObjGPS.Commit() Alert("Se agregó correctamente la Ruta", TipoMensaje.MsgInformacion) diff --git a/GPS/PuntosDeInteres.aspx b/GPS/PuntosDeInteres.aspx index 06a1fd834..bd1f058dc 100644 --- a/GPS/PuntosDeInteres.aspx +++ b/GPS/PuntosDeInteres.aspx @@ -754,11 +754,7 @@ } - - <%-- --%> + + diff --git a/GPS/Rastreo.aspx b/GPS/Rastreo.aspx index ffa349c1b..2e9dae495 100644 --- a/GPS/Rastreo.aspx +++ b/GPS/Rastreo.aspx @@ -3130,9 +3130,7 @@ } - + diff --git a/GPS/Rastreo.aspx.vb b/GPS/Rastreo.aspx.vb index 3d48426b6..ebed128cf 100644 --- a/GPS/Rastreo.aspx.vb +++ b/GPS/Rastreo.aspx.vb @@ -1495,7 +1495,7 @@ Partial Class GPS_Rastreo End If 'RegistraScript("CreaRuta();") ElseIf HdnTipo.Value = "Geocerca" Then - GeoRefString = $"POLYGON(({GeoCerca.Value}))" + GeoRefString = $"POLYGON(({GeoCerca.Value} {CommandArg.Value}))" If ObjGPS.GeoReferenciaAdd(TxtNombre.Text, -1, GeoRefString, "Geocerca", True, TxtFechaIG.Text.ToDate, TxtFechaFG.Text.ToDate, chkLunes.Checked, chkMartes.Checked, chkMiercoles.Checked, chkJueves.Checked, chkViernes.Checked, chkSabado.Checked, chkDomingo.Checked, MinFecha, MaxFecha, TxtColor.Text, TxtTolerancia.Text.ToEntero, UsuarioActual.CveCliente) Then For Each Dr As GridViewRow In GvEquiposDetalle.Rows If Dr.RowType = DataControlRowType.DataRow Then diff --git a/GPS/RastreoTrayectos.aspx b/GPS/RastreoTrayectos.aspx index 320c1d054..91db7fd2a 100644 --- a/GPS/RastreoTrayectos.aspx +++ b/GPS/RastreoTrayectos.aspx @@ -234,7 +234,7 @@ - + diff --git a/GPS/RepGeoReferencias.aspx b/GPS/RepGeoReferencias.aspx index 37376ddfe..f4de37b90 100644 --- a/GPS/RepGeoReferencias.aspx +++ b/GPS/RepGeoReferencias.aspx @@ -3,47 +3,47 @@ - @@ -332,10 +332,10 @@ - - <%----%> + diff --git a/GPS/RepPuntosDeInteres.aspx b/GPS/RepPuntosDeInteres.aspx index 094b21a00..5aed250b6 100644 --- a/GPS/RepPuntosDeInteres.aspx +++ b/GPS/RepPuntosDeInteres.aspx @@ -356,11 +356,6 @@ } - - <%-- --%> + diff --git a/GPS/Shipments.aspx b/GPS/Shipments.aspx index 9a6391624..4dd237032 100644 --- a/GPS/Shipments.aspx +++ b/GPS/Shipments.aspx @@ -731,8 +731,6 @@ } - + diff --git a/GPS/TrayectoDetalle.aspx b/GPS/TrayectoDetalle.aspx index 3c05926d2..1721b3034 100644 --- a/GPS/TrayectoDetalle.aspx +++ b/GPS/TrayectoDetalle.aspx @@ -725,8 +725,6 @@ - + diff --git a/GPS/Trayectos.aspx b/GPS/Trayectos.aspx index 1b36ffa8d..5d38ea4e7 100644 --- a/GPS/Trayectos.aspx +++ b/GPS/Trayectos.aspx @@ -1333,8 +1333,6 @@ }); } - + diff --git a/GPS/data.txt b/GPS/data.txt deleted file mode 100644 index a9c8a58b3..000000000 --- a/GPS/data.txt +++ /dev/null @@ -1,17504 +0,0 @@ -{ - "aaData": [ - [ - "1", - "Armand", - "Warren", - "56045", - "Taiwan, Province of China" - ], - [ - "2", - "Xenos", - "Salas", - "71090", - "Liberia" - ], - [ - "3", - "Virginia", - "Whitaker", - "62723", - "Nicaragua" - ], - [ - "4", - "Kato", - "Patrick", - "97662", - "Palau" - ], - [ - "5", - "Penelope", - "Hensley", - "76634", - "Greenland" - ], - [ - "6", - "Georgia", - "Erickson", - "81358", - "Bolivia" - ], - [ - "7", - "Shad", - "Pena", - "20600", - "Palestinian Territory, Occupied" - ], - [ - "8", - "Tanisha", - "Humphrey", - "93371", - "Kenya" - ], - [ - "9", - "Claire", - "Espinoza", - "I8S 2S8", - "Panama" - ], - [ - "10", - "Raya", - "Tucker", - "O8D 8W7", - "Botswana" - ], - [ - "11", - "Otto", - "Briggs", - "57590", - "Anguilla" - ], - [ - "12", - "Logan", - "Burt", - "53041", - "Venezuela" - ], - [ - "13", - "Cooper", - "Pennington", - "36994", - "France" - ], - [ - "14", - "Kristen", - "Peterson", - "52917", - "Sao Tome and Principe" - ], - [ - "15", - "Jordan", - "Velasquez", - "08884", - "Switzerland" - ], - [ - "16", - "Zelda", - "Freeman", - "F9H 1J9", - "Holy See (Vatican City State)" - ], - [ - "17", - "Mary", - "Pacheco", - "A7Y 6X9", - "Niger" - ], - [ - "18", - "Tiger", - "Robles", - "44533", - "Malaysia" - ], - [ - "19", - "Zelenia", - "Buckner", - "Q8N 6E5", - "Malawi" - ], - [ - "20", - "Coby", - "Johnston", - "N6I 2O9", - "Rwanda" - ], - [ - "21", - "Gillian", - "Strickland", - "12258", - "Cook Islands" - ], - [ - "22", - "Alfreda", - "Mcbride", - "K5A 3B6", - "Nigeria" - ], - [ - "23", - "Laith", - "Ford", - "19072", - "Czech Republic" - ], - [ - "24", - "Autumn", - "Barton", - "U9D 9F4", - "Angola" - ], - [ - "25", - "Nadine", - "Britt", - "G4U 8L0", - "Liechtenstein" - ], - [ - "26", - "Xaviera", - "Hart", - "T1N 7D2", - "Mali" - ], - [ - "27", - "Neil", - "Page", - "T3E 9F4", - "Korea" - ], - [ - "28", - "Rose", - "French", - "B7T 8M2", - "French Polynesia" - ], - [ - "29", - "Alyssa", - "Poole", - "S1L 2T5", - "Yemen" - ], - [ - "30", - "Chantale", - "Lynch", - "97316", - "United States" - ], - [ - "31", - "Jermaine", - "Dawson", - "A3H 7A1", - "American Samoa" - ], - [ - "32", - "Ann", - "Giles", - "54258", - "Korea" - ], - [ - "33", - "Jerry", - "Carr", - "04901", - "South Georgia and The South Sandwich Islands" - ], - [ - "34", - "Lionel", - "Hooper", - "67970", - "Bahrain" - ], - [ - "35", - "Alyssa", - "Hewitt", - "R3K 2V8", - "Paraguay" - ], - [ - "36", - "Lisandra", - "Sheppard", - "71886", - "Seychelles" - ], - [ - "37", - "Kylan", - "Harrison", - "96763", - "Italy" - ], - [ - "38", - "Kaitlin", - "Montgomery", - "V5K 5U8", - "Niger" - ], - [ - "39", - "Heidi", - "Boyd", - "B3C 8M9", - "Papua New Guinea" - ], - [ - "40", - "Rinah", - "Case", - "W7M 5K1", - "Mali" - ], - [ - "41", - "Thaddeus", - "Maynard", - "E4V 6W6", - "Egypt" - ], - [ - "42", - "Lacota", - "Ray", - "T3J 8D8", - "United Kingdom" - ], - [ - "43", - "Olympia", - "Cortez", - "F8C 7I5", - "Palau" - ], - [ - "44", - "Wendy", - "Rojas", - "N8T 4K6", - "Cook Islands" - ], - [ - "45", - "Arden", - "Kelley", - "V9N 2T6", - "India" - ], - [ - "46", - "Colorado", - "Lindsey", - "96703", - "Chad" - ], - [ - "47", - "Alika", - "Weaver", - "F6V 1I1", - "Bulgaria" - ], - [ - "48", - "Phoebe", - "Mack", - "E4B 1X2", - "El Salvador" - ], - [ - "49", - "Sybill", - "Bridges", - "Z2G 6A2", - "Somalia" - ], - [ - "50", - "Trevor", - "Larsen", - "K1R 3B9", - "United Arab Emirates" - ], - [ - "51", - "Maya", - "Battle", - "70881", - "Australia" - ], - [ - "52", - "Charity", - "Walton", - "I4I 5R9", - "Swaziland" - ], - [ - "53", - "Lane", - "Sloan", - "79076", - "Nauru" - ], - [ - "54", - "Christopher", - "Watson", - "35116", - "Suriname" - ], - [ - "55", - "Clementine", - "Shelton", - "98232", - "Venezuela" - ], - [ - "56", - "Basil", - "Hood", - "J9I 1R2", - "Tonga" - ], - [ - "57", - "Meghan", - "Pacheco", - "H5Z 6B1", - "Dominican Republic" - ], - [ - "58", - "Brennan", - "Potts", - "51743", - "Turkey" - ], - [ - "59", - "Lawrence", - "Duran", - "63266", - "Uruguay" - ], - [ - "60", - "Ina", - "Head", - "S8P 9J5", - "Romania" - ], - [ - "61", - "Castor", - "Jacobson", - "C9F 6C9", - "Albania" - ], - [ - "62", - "Daquan", - "Holden", - "38571", - "Ireland" - ], - [ - "63", - "Donna", - "Valencia", - "J7B 3I0", - "Portugal" - ], - [ - "64", - "Kessie", - "Phelps", - "61063", - "Georgia" - ], - [ - "65", - "Dillon", - "Garcia", - "13652", - "Holy See (Vatican City State)" - ], - [ - "66", - "Russell", - "Sweeney", - "T8P 2O6", - "Saint Kitts and Nevis" - ], - [ - "67", - "Zelda", - "Berg", - "84946", - "Afghanistan" - ], - [ - "68", - "Dexter", - "Mann", - "73596", - "Thailand" - ], - [ - "69", - "Maisie", - "Miller", - "X3M 6C1", - "Seychelles" - ], - [ - "70", - "Lynn", - "Mitchell", - "N5B 3Z9", - "Wallis and Futuna" - ], - [ - "71", - "Gay", - "Medina", - "66692", - "Germany" - ], - [ - "72", - "Olga", - "Clark", - "M6B 7B6", - "Kuwait" - ], - [ - "73", - "Brianna", - "Obrien", - "Z6Z 5R3", - "Bahrain" - ], - [ - "74", - "Daria", - "Byers", - "R9T 4N7", - "Ghana" - ], - [ - "75", - "Chiquita", - "Barker", - "28435", - "Ireland" - ], - [ - "76", - "Gray", - "Salazar", - "58618", - "Chile" - ], - [ - "77", - "Delilah", - "Kirby", - "42811", - "Oman" - ], - [ - "78", - "Xanthus", - "Holland", - "B8Q 9C4", - "Antigua and Barbuda" - ], - [ - "79", - "Reuben", - "Brennan", - "44693", - "Czech Republic" - ], - [ - "80", - "Alden", - "Long", - "94236", - "Slovakia" - ], - [ - "81", - "Blythe", - "Bender", - "04812", - "Guam" - ], - [ - "82", - "Aileen", - "Burgess", - "47942", - "Djibouti" - ], - [ - "83", - "Zeus", - "Craig", - "43002", - "Nicaragua" - ], - [ - "84", - "Jade", - "Garza", - "F2X 8F3", - "New Zealand" - ], - [ - "85", - "Noah", - "Barrera", - "K9C 8U0", - "Malawi" - ], - [ - "86", - "Quyn", - "Robertson", - "H3X 6J9", - "Bosnia and Herzegovina" - ], - [ - "87", - "Serena", - "Cabrera", - "83671", - "Slovenia" - ], - [ - "88", - "Charity", - "Chase", - "T9Q 7C4", - "Solomon Islands" - ], - [ - "89", - "Athena", - "Grimes", - "62801", - "Aruba" - ], - [ - "90", - "Mallory", - "Middleton", - "D2V 1M5", - "Italy" - ], - [ - "91", - "Xenos", - "Jones", - "46642", - "Singapore" - ], - [ - "92", - "Tate", - "Gregory", - "66538", - "Zimbabwe" - ], - [ - "93", - "Blaze", - "Taylor", - "70282", - "Paraguay" - ], - [ - "94", - "Jena", - "Duncan", - "63057", - "Cambodia" - ], - [ - "95", - "Thaddeus", - "Chase", - "66762", - "Netherlands Antilles" - ], - [ - "96", - "Guinevere", - "Mcgee", - "O9G 4S2", - "Lebanon" - ], - [ - "97", - "Kermit", - "Ramsey", - "41214", - "Dominican Republic" - ], - [ - "98", - "Josephine", - "Gallagher", - "04960", - "French Southern Territories" - ], - [ - "99", - "Amela", - "Morales", - "M9I 1X5", - "Sudan" - ], - [ - "100", - "Rina", - "Yates", - "G3T 7M9", - "Dominica" - ], - [ - "101", - "Orson", - "Norris", - "21660", - "Sierra Leone" - ], - [ - "102", - "Graiden", - "Silva", - "98191", - "Saint Lucia" - ], - [ - "103", - "Amaya", - "Hood", - "45779", - "India" - ], - [ - "104", - "Fatima", - "Fitzpatrick", - "I4R 9Q8", - "Viet Nam" - ], - [ - "105", - "Judith", - "Stokes", - "97596", - "Sudan" - ], - [ - "106", - "Jared", - "Vaughn", - "75521", - "Benin" - ], - [ - "107", - "Mira", - "Morgan", - "35169", - "Martinique" - ], - [ - "108", - "Walter", - "Perkins", - "28618", - "San Marino" - ], - [ - "109", - "Megan", - "Maxwell", - "K6X 3J4", - "Oman" - ], - [ - "110", - "Christine", - "Christensen", - "M7S 8G8", - "Netherlands Antilles" - ], - [ - "111", - "Tanner", - "Guerra", - "S3K 6Y5", - "Finland" - ], - [ - "112", - "Meghan", - "Rowland", - "K7U 3A1", - "Rwanda" - ], - [ - "113", - "Patrick", - "Mitchell", - "V3F 5C4", - "Oman" - ], - [ - "114", - "Jackson", - "Sanders", - "83229", - "Greenland" - ], - [ - "115", - "Omar", - "Savage", - "14082", - "Korea" - ], - [ - "116", - "Ulla", - "Larsen", - "Q2P 4L8", - "French Southern Territories" - ], - [ - "117", - "Hop", - "Gates", - "D9G 9J4", - "Poland" - ], - [ - "118", - "Astra", - "Mendoza", - "R3D 2H9", - "Saint Vincent and The Grenadines" - ], - [ - "119", - "Denise", - "Cardenas", - "73138", - "Sao Tome and Principe" - ], - [ - "120", - "Melodie", - "Roberts", - "L1G 4H2", - "India" - ], - [ - "121", - "Cedric", - "Joseph", - "M4V 8O9", - "Korea, Republic of" - ], - [ - "122", - "Linda", - "Horn", - "24465", - "Bosnia and Herzegovina" - ], - [ - "123", - "Mary", - "Lyons", - "22324", - "Norfolk Island" - ], - [ - "124", - "Ciara", - "Mcknight", - "30784", - "Anguilla" - ], - [ - "125", - "Vaughan", - "Santiago", - "65037", - "Guyana" - ], - [ - "126", - "Lamar", - "Shepherd", - "58040", - "France" - ], - [ - "127", - "Xavier", - "Webster", - "68321", - "Afghanistan" - ], - [ - "128", - "Ainsley", - "Banks", - "46902", - "Pakistan" - ], - [ - "129", - "Alika", - "Love", - "L5O 4B3", - "Iran, Islamic Republic of" - ], - [ - "130", - "Maite", - "Dickson", - "37405", - "Saint Kitts and Nevis" - ], - [ - "131", - "Kimberley", - "Morrow", - "F7C 7J0", - "Lebanon" - ], - [ - "132", - "Eugenia", - "Stafford", - "36282", - "Nicaragua" - ], - [ - "133", - "Mira", - "Gill", - "K1T 8U1", - "Uruguay" - ], - [ - "134", - "Herman", - "Francis", - "C2G 8G9", - "Northern Mariana Islands" - ], - [ - "135", - "Veronica", - "Peters", - "74146", - "Cook Islands" - ], - [ - "136", - "Axel", - "Cochran", - "32240", - "Central African Republic" - ], - [ - "137", - "Edan", - "Howe", - "51862", - "Mali" - ], - [ - "138", - "Ignacia", - "Bruce", - "Q8T 5Q1", - "Sao Tome and Principe" - ], - [ - "139", - "Jana", - "Mcguire", - "89412", - "Czech Republic" - ], - [ - "140", - "Alice", - "Underwood", - "74535", - "Slovakia" - ], - [ - "141", - "Tobias", - "Kent", - "33601", - "South Georgia and The South Sandwich Islands" - ], - [ - "142", - "Nasim", - "Coleman", - "19377", - "United States Minor Outlying Islands" - ], - [ - "143", - "Geoffrey", - "Byers", - "85753", - "Netherlands Antilles" - ], - [ - "144", - "Odette", - "Sawyer", - "55418", - "Tunisia" - ], - [ - "145", - "Chaney", - "Flowers", - "F4W 7O7", - "Maldives" - ], - [ - "146", - "Shelly", - "Glover", - "M5Y 4A6", - "Taiwan, Province of China" - ], - [ - "147", - "Uriel", - "Thornton", - "Z6Q 5B7", - "Myanmar" - ], - [ - "148", - "Clio", - "Nicholson", - "Y8S 7P2", - "Martinique" - ], - [ - "149", - "Jana", - "Foley", - "B1O 9J5", - "United Arab Emirates" - ], - [ - "150", - "Fulton", - "Rasmussen", - "39194", - "Solomon Islands" - ], - [ - "151", - "Lisandra", - "Boyd", - "J2Z 2V7", - "French Guiana" - ], - [ - "152", - "Brennan", - "Lopez", - "Q4M 7Y4", - "Burkina Faso" - ], - [ - "153", - "Martha", - "Washington", - "M7S 4U6", - "Iran, Islamic Republic of" - ], - [ - "154", - "Dara", - "Ramos", - "07799", - "Portugal" - ], - [ - "155", - "Virginia", - "Harris", - "01246", - "Bermuda" - ], - [ - "156", - "Maryam", - "Patrick", - "Y3J 4Y0", - "Rwanda" - ], - [ - "157", - "Shana", - "Mullen", - "61169", - "Togo" - ], - [ - "158", - "Rowan", - "Hahn", - "K6D 5T4", - "Guinea-bissau" - ], - [ - "159", - "Hermione", - "Shepherd", - "M4F 7T6", - "Ireland" - ], - [ - "160", - "Jada", - "Bright", - "P1Z 7E6", - "French Southern Territories" - ], - [ - "161", - "Scarlet", - "Bray", - "57161", - "Austria" - ], - [ - "162", - "Haviva", - "Conner", - "M4T 8O4", - "Bermuda" - ], - [ - "163", - "Myra", - "Briggs", - "Q4B 6L7", - "Kenya" - ], - [ - "164", - "Hall", - "Floyd", - "40411", - "Bangladesh" - ], - [ - "165", - "Kyle", - "Marquez", - "J4T 7C6", - "Djibouti" - ], - [ - "166", - "Claudia", - "Long", - "R7B 1T6", - "Macedonia" - ], - [ - "167", - "Hasad", - "Clemons", - "94009", - "Bosnia and Herzegovina" - ], - [ - "168", - "Kameko", - "Reeves", - "G4V 6D5", - "Singapore" - ], - [ - "169", - "Angelica", - "Bailey", - "Z3Y 7I0", - "Micronesia" - ], - [ - "170", - "Shelley", - "Jennings", - "O3A 9H0", - "Christmas Island" - ], - [ - "171", - "Rafael", - "Randolph", - "Y4L 8B5", - "Germany" - ], - [ - "172", - "Winter", - "Kinney", - "A3K 9A7", - "Saint Lucia" - ], - [ - "173", - "Brian", - "Larsen", - "53752", - "Comoros" - ], - [ - "174", - "Melvin", - "Cooper", - "72416", - "Czech Republic" - ], - [ - "175", - "Gil", - "Valencia", - "95798", - "Uganda" - ], - [ - "176", - "Uma", - "Cummings", - "84649", - "Jordan" - ], - [ - "177", - "Micah", - "Shannon", - "H9L 8R6", - "Ghana" - ], - [ - "178", - "Ahmed", - "Weiss", - "05291", - "American Samoa" - ], - [ - "179", - "Hop", - "Foster", - "W9C 7J7", - "Panama" - ], - [ - "180", - "Todd", - "Barnett", - "T9R 7J4", - "Seychelles" - ], - [ - "181", - "Byron", - "Meyers", - "J4G 9P2", - "Congo" - ], - [ - "182", - "Hadassah", - "Barnett", - "U1A 8V3", - "Paraguay" - ], - [ - "183", - "Hermione", - "Luna", - "L4G 2E5", - "New Zealand" - ], - [ - "184", - "Marsden", - "Alvarado", - "U1V 1Y4", - "Aruba" - ], - [ - "185", - "Britanni", - "Gregory", - "C8O 2T4", - "Kazakhstan" - ], - [ - "186", - "Brenda", - "Oneil", - "R9Q 9B7", - "Gibraltar" - ], - [ - "187", - "Reuben", - "Hopkins", - "C2D 9D0", - "Bhutan" - ], - [ - "188", - "Sonia", - "Sandoval", - "Y2G 5I0", - "Guatemala" - ], - [ - "189", - "Yasir", - "Holcomb", - "A1H 6Y3", - "Angola" - ], - [ - "190", - "Aristotle", - "Rosa", - "51870", - "Indonesia" - ], - [ - "191", - "Uriah", - "Blair", - "X8K 1B9", - "Suriname" - ], - [ - "192", - "Vaughan", - "Sharp", - "L2F 5N8", - "Faroe Islands" - ], - [ - "193", - "Cooper", - "Beard", - "80399", - "United States Minor Outlying Islands" - ], - [ - "194", - "Riley", - "Greene", - "44728", - "Russian Federation" - ], - [ - "195", - "Rashad", - "Flowers", - "L6N 8U7", - "Mongolia" - ], - [ - "196", - "Yvonne", - "Wilson", - "18599", - "Svalbard and Jan Mayen" - ], - [ - "197", - "Martena", - "Ayers", - "A8Z 5F7", - "Oman" - ], - [ - "198", - "Eagan", - "Cline", - "T9P 4L4", - "Solomon Islands" - ], - [ - "199", - "Dawn", - "Carrillo", - "T6O 6E5", - "Malawi" - ], - [ - "200", - "Ali", - "Singleton", - "G6F 3B4", - "Italy" - ], - [ - "201", - "Christopher", - "Beach", - "01655", - "Palau" - ], - [ - "202", - "Emma", - "Cummings", - "W1B 4R6", - "Dominica" - ], - [ - "203", - "Ishmael", - "Gray", - "76928", - "Egypt" - ], - [ - "204", - "Megan", - "Hines", - "F7X 2X5", - "New Zealand" - ], - [ - "205", - "Emmanuel", - "Steele", - "09729", - "Netherlands" - ], - [ - "206", - "Alea", - "Burris", - "08485", - "Guatemala" - ], - [ - "207", - "Martina", - "Todd", - "46863", - "Christmas Island" - ], - [ - "208", - "Len", - "Valentine", - "S6Z 5S8", - "Slovenia" - ], - [ - "209", - "Jorden", - "Salazar", - "U4D 8H6", - "Austria" - ], - [ - "210", - "Yvette", - "Bradford", - "17275", - "Heard Island and Mcdonald Islands" - ], - [ - "211", - "Elvis", - "Mcmahon", - "27586", - "Marshall Islands" - ], - [ - "212", - "Gray", - "Bonner", - "N4V 3U9", - "Moldova" - ], - [ - "213", - "Yoshi", - "Singleton", - "86603", - "United Kingdom" - ], - [ - "214", - "Amena", - "Burks", - "93820", - "Reunion" - ], - [ - "215", - "Ocean", - "Maldonado", - "72026", - "Ireland" - ], - [ - "216", - "Allen", - "Foley", - "75363", - "Kiribati" - ], - [ - "217", - "Duncan", - "Jimenez", - "H3H 3G6", - "Oman" - ], - [ - "218", - "Ira", - "Maxwell", - "53136", - "French Polynesia" - ], - [ - "219", - "Astra", - "Moon", - "D7W 8G2", - "Dominican Republic" - ], - [ - "220", - "Orson", - "Myers", - "06049", - "Mali" - ], - [ - "221", - "Brandon", - "Estes", - "D2B 7P2", - "Kenya" - ], - [ - "222", - "Halee", - "Luna", - "54733", - "Moldova" - ], - [ - "223", - "Jillian", - "Gonzalez", - "E8W 3L9", - "Ecuador" - ], - [ - "224", - "Julie", - "Acosta", - "X7M 1T2", - "Equatorial Guinea" - ], - [ - "225", - "Quemby", - "Foster", - "48596", - "Eritrea" - ], - [ - "226", - "Erich", - "Chavez", - "W4P 7G8", - "Mayotte" - ], - [ - "227", - "Roary", - "Mcknight", - "K9K 2K4", - "Chile" - ], - [ - "228", - "Mufutau", - "Henderson", - "81377", - "Mayotte" - ], - [ - "229", - "Herman", - "Ferguson", - "69405", - "Japan" - ], - [ - "230", - "Abdul", - "Franks", - "L1V 8X2", - "Portugal" - ], - [ - "231", - "Dominic", - "Logan", - "98770", - "Saint Lucia" - ], - [ - "232", - "Isadora", - "Solis", - "Y3A 6H5", - "Portugal" - ], - [ - "233", - "Lester", - "Davis", - "30339", - "British Indian Ocean Territory" - ], - [ - "234", - "Joel", - "Rojas", - "N8E 5T9", - "Bahrain" - ], - [ - "235", - "Quinlan", - "Carroll", - "55785", - "Australia" - ], - [ - "236", - "Guinevere", - "Pickett", - "A7Y 3V3", - "Netherlands Antilles" - ], - [ - "237", - "Nita", - "Hopkins", - "88370", - "Albania" - ], - [ - "238", - "Hayley", - "Buckley", - "F1V 7P5", - "Togo" - ], - [ - "239", - "Colorado", - "Reyes", - "18798", - "Congo" - ], - [ - "240", - "Tashya", - "Bartlett", - "48537", - "Sierra Leone" - ], - [ - "241", - "Isabella", - "Keith", - "48878", - "Kiribati" - ], - [ - "242", - "Jessica", - "Noble", - "D6C 9T9", - "Svalbard and Jan Mayen" - ], - [ - "243", - "Cairo", - "Edwards", - "40598", - "Nepal" - ], - [ - "244", - "Camille", - "Bradley", - "I4U 8F6", - "Fiji" - ], - [ - "245", - "Quin", - "Mcgee", - "O5D 2P0", - "Poland" - ], - [ - "246", - "Rina", - "Guzman", - "44940", - "Bahrain" - ], - [ - "247", - "Glenna", - "Kirkland", - "Z1L 4W2", - "San Marino" - ], - [ - "248", - "Tarik", - "Todd", - "77228", - "Turks and Caicos Islands" - ], - [ - "249", - "Yardley", - "Burris", - "M6U 9D7", - "New Caledonia" - ], - [ - "250", - "Hashim", - "Casey", - "17722", - "Lesotho" - ], - [ - "251", - "Maggie", - "Raymond", - "62540", - "Uganda" - ], - [ - "252", - "Christian", - "Mcdonald", - "R8K 2M1", - "United Arab Emirates" - ], - [ - "253", - "Colt", - "Cobb", - "75393", - "Moldova" - ], - [ - "254", - "Aline", - "Graves", - "I1C 9I6", - "Holy See (Vatican City State)" - ], - [ - "255", - "Farrah", - "Cannon", - "H5W 2Y0", - "Bhutan" - ], - [ - "256", - "Wynne", - "Ayers", - "B6X 6Y8", - "Western Sahara" - ], - [ - "257", - "Teegan", - "Avery", - "33643", - "San Marino" - ], - [ - "258", - "Shana", - "Sloan", - "K9P 9V7", - "Gabon" - ], - [ - "259", - "Britanney", - "Cook", - "Y5D 6K7", - "Romania" - ], - [ - "260", - "Kuame", - "Schroeder", - "12859", - "Syrian Arab Republic" - ], - [ - "261", - "Valentine", - "Joseph", - "P2S 6T6", - "Mayotte" - ], - [ - "262", - "Joelle", - "Keller", - "U6F 3T7", - "Fiji" - ], - [ - "263", - "Elaine", - "Hickman", - "28056", - "Tuvalu" - ], - [ - "264", - "Ivor", - "Malone", - "H2Z 5X5", - "Virgin Islands, British" - ], - [ - "265", - "Maris", - "Jefferson", - "12474", - "Czech Republic" - ], - [ - "266", - "Josephine", - "Zimmerman", - "Z5J 2I4", - "Angola" - ], - [ - "267", - "Baker", - "Wooten", - "X4K 2L8", - "Austria" - ], - [ - "268", - "Alyssa", - "Mitchell", - "97712", - "Antarctica" - ], - [ - "269", - "Carlos", - "Pearson", - "85838", - "Gambia" - ], - [ - "270", - "Luke", - "Richardson", - "73867", - "Christmas Island" - ], - [ - "271", - "Davis", - "Gardner", - "U2E 4D9", - "Chile" - ], - [ - "272", - "Thomas", - "Conner", - "92487", - "Mozambique" - ], - [ - "273", - "Kieran", - "Baird", - "X9G 6G1", - "Iceland" - ], - [ - "274", - "Cheyenne", - "Morris", - "F5V 4S2", - "Greece" - ], - [ - "275", - "Hillary", - "Reeves", - "89804", - "Slovakia" - ], - [ - "276", - "Ryder", - "Long", - "32725", - "New Caledonia" - ], - [ - "277", - "Ariel", - "Colon", - "50675", - "Estonia" - ], - [ - "278", - "Vanna", - "Hess", - "79057", - "Saudi Arabia" - ], - [ - "279", - "Hayley", - "Cherry", - "B5E 9X4", - "United States Minor Outlying Islands" - ], - [ - "280", - "Knox", - "Blair", - "75626", - "Central African Republic" - ], - [ - "281", - "Astra", - "Mcdaniel", - "24493", - "Bermuda" - ], - [ - "282", - "Teegan", - "Ford", - "A8U 1K9", - "Iran, Islamic Republic of" - ], - [ - "283", - "Harrison", - "Jackson", - "43519", - "Marshall Islands" - ], - [ - "284", - "Melyssa", - "Lawson", - "O7E 8E6", - "Belize" - ], - [ - "285", - "Shaine", - "Francis", - "Q5K 5I4", - "India" - ], - [ - "286", - "August", - "Reed", - "S9R 1O8", - "Ghana" - ], - [ - "287", - "Aphrodite", - "Zimmerman", - "28336", - "Lesotho" - ], - [ - "288", - "Declan", - "Walters", - "08662", - "Rwanda" - ], - [ - "289", - "Brody", - "Pate", - "G2G 9D9", - "Serbia and Montenegro" - ], - [ - "290", - "Bradley", - "Odom", - "L2R 6Z9", - "Jordan" - ], - [ - "291", - "Phillip", - "Cleveland", - "E4D 1B7", - "Paraguay" - ], - [ - "292", - "Silas", - "Wiggins", - "F9F 5X3", - "Bahrain" - ], - [ - "293", - "Keely", - "Donaldson", - "B5H 7F2", - "Vanuatu" - ], - [ - "294", - "Hammett", - "Lancaster", - "H2P 4E6", - "Svalbard and Jan Mayen" - ], - [ - "295", - "Kiara", - "Clarke", - "50885", - "Thailand" - ], - [ - "296", - "Ayanna", - "Wiley", - "20773", - "Morocco" - ], - [ - "297", - "Tashya", - "Stanley", - "F5J 5R9", - "New Caledonia" - ], - [ - "298", - "Margaret", - "Barker", - "J5A 9N8", - "Marshall Islands" - ], - [ - "299", - "Xandra", - "English", - "92299", - "Korea, Republic of" - ], - [ - "300", - "Jane", - "Brock", - "86140", - "Yemen" - ], - [ - "301", - "Lunea", - "Garrett", - "96730", - "New Caledonia" - ], - [ - "302", - "Slade", - "Everett", - "16105", - "Malawi" - ], - [ - "303", - "Scott", - "Booker", - "G8V 2R4", - "Macedonia" - ], - [ - "304", - "Candice", - "Decker", - "E5R 2D4", - "China" - ], - [ - "305", - "Armando", - "Bridges", - "87959", - "Falkland Islands (Malvinas)" - ], - [ - "306", - "Clayton", - "Whitley", - "Q6O 4M7", - "British Indian Ocean Territory" - ], - [ - "307", - "Driscoll", - "Duncan", - "M2J 9V5", - "Argentina" - ], - [ - "308", - "Devin", - "Stafford", - "L8F 2V7", - "Svalbard and Jan Mayen" - ], - [ - "309", - "Bell", - "York", - "E5B 7X5", - "Lebanon" - ], - [ - "310", - "Haley", - "Becker", - "19759", - "Bhutan" - ], - [ - "311", - "Chava", - "Santiago", - "04396", - "Israel" - ], - [ - "312", - "David", - "Mccall", - "62087", - "Norfolk Island" - ], - [ - "313", - "Clinton", - "Jacobson", - "06168", - "Guam" - ], - [ - "314", - "Melvin", - "Kaufman", - "C4E 9N6", - "Gambia" - ], - [ - "315", - "Dai", - "Shepherd", - "37490", - "Saudi Arabia" - ], - [ - "316", - "Zahir", - "Chase", - "44340", - "Turkey" - ], - [ - "317", - "Leilani", - "Parrish", - "62576", - "Cocos (Keeling) Islands" - ], - [ - "318", - "Oleg", - "Wilkins", - "Z7S 8Z4", - "Latvia" - ], - [ - "319", - "Pearl", - "Pena", - "82526", - "Saudi Arabia" - ], - [ - "320", - "Kelly", - "Moody", - "W7U 5Y3", - "Burundi" - ], - [ - "321", - "Marcia", - "Kennedy", - "85952", - "Panama" - ], - [ - "322", - "Cailin", - "Burnett", - "M2Z 3L5", - "Guyana" - ], - [ - "323", - "Ciara", - "Small", - "X6C 6M6", - "Tanzania, United Republic of" - ], - [ - "324", - "Lillian", - "Massey", - "Z8A 5U5", - "Algeria" - ], - [ - "325", - "Garrett", - "Elliott", - "R5P 6T0", - "Canada" - ], - [ - "326", - "Inga", - "Daniels", - "40156", - "Cocos (Keeling) Islands" - ], - [ - "327", - "Barry", - "Pena", - "03593", - "Tonga" - ], - [ - "328", - "Penelope", - "Mcintyre", - "29293", - "Burkina Faso" - ], - [ - "329", - "Dante", - "Kirk", - "74038", - "Lesotho" - ], - [ - "330", - "Owen", - "Cole", - "17968", - "Rwanda" - ], - [ - "331", - "Brittany", - "Edwards", - "24507", - "Paraguay" - ], - [ - "332", - "Zeph", - "Bentley", - "12000", - "Guam" - ], - [ - "333", - "Ruth", - "Palmer", - "E8V 9A5", - "Ghana" - ], - [ - "334", - "Driscoll", - "Ellis", - "X1X 2N5", - "Angola" - ], - [ - "335", - "Mohammad", - "Guerra", - "Y9N 3Y5", - "Mongolia" - ], - [ - "336", - "Clio", - "Baldwin", - "67557", - "Morocco" - ], - [ - "337", - "Virginia", - "Duncan", - "J8D 4T2", - "Haiti" - ], - [ - "338", - "Dieter", - "Sanchez", - "H7E 2H4", - "Romania" - ], - [ - "339", - "Quinn", - "Hurst", - "K4E 2X6", - "Reunion" - ], - [ - "340", - "Coby", - "Kelly", - "S1H 8N0", - "Equatorial Guinea" - ], - [ - "341", - "Raja", - "Solis", - "S5G 9T5", - "Grenada" - ], - [ - "342", - "Jordan", - "Riddle", - "J7M 5X3", - "Svalbard and Jan Mayen" - ], - [ - "343", - "Dora", - "Knox", - "25054", - "Libyan Arab Jamahiriya" - ], - [ - "344", - "Brendan", - "Reilly", - "U9U 3F7", - "Armenia" - ], - [ - "345", - "Melyssa", - "Reyes", - "11285", - "Viet Nam" - ], - [ - "346", - "Knox", - "Rivera", - "N8Z 7J0", - "Nepal" - ], - [ - "347", - "Quynn", - "Irwin", - "26524", - "Chile" - ], - [ - "348", - "Colin", - "Coleman", - "22833", - "United Arab Emirates" - ], - [ - "349", - "Sybil", - "Delgado", - "99947", - "Belize" - ], - [ - "350", - "Macaulay", - "Salinas", - "48521", - "Heard Island and Mcdonald Islands" - ], - [ - "351", - "Garrison", - "Hogan", - "68950", - "India" - ], - [ - "352", - "Ronan", - "Guerra", - "55445", - "Angola" - ], - [ - "353", - "Regina", - "Andrews", - "H3E 3T0", - "Central African Republic" - ], - [ - "354", - "Colorado", - "Joyce", - "V6X 5K8", - "Anguilla" - ], - [ - "355", - "Basia", - "Banks", - "85049", - "Grenada" - ], - [ - "356", - "Adena", - "Berg", - "04135", - "New Caledonia" - ], - [ - "357", - "Wade", - "Richardson", - "C8M 9J3", - "Dominican Republic" - ], - [ - "358", - "Cody", - "Montoya", - "22018", - "Solomon Islands" - ], - [ - "359", - "Faith", - "Barnett", - "61475", - "China" - ], - [ - "360", - "Cody", - "Witt", - "C8I 2Q8", - "Congo" - ], - [ - "361", - "Brenden", - "Carlson", - "74007", - "Marshall Islands" - ], - [ - "362", - "Gil", - "Brooks", - "U4S 5N1", - "Saint Vincent and The Grenadines" - ], - [ - "363", - "Kirestin", - "Watts", - "H8I 1D5", - "Myanmar" - ], - [ - "364", - "Amelia", - "Gilliam", - "11461", - "Chile" - ], - [ - "365", - "Noelani", - "Rhodes", - "83320", - "Cuba" - ], - [ - "366", - "Len", - "Trevino", - "W9F 2U5", - "Armenia" - ], - [ - "367", - "Galvin", - "Middleton", - "86707", - "Thailand" - ], - [ - "368", - "Germaine", - "Bridges", - "90283", - "Japan" - ], - [ - "369", - "Rose", - "Hines", - "W7L 7Q6", - "Congo" - ], - [ - "370", - "Hop", - "Mueller", - "I3E 2X8", - "Angola" - ], - [ - "371", - "Iliana", - "Williamson", - "56758", - "Lebanon" - ], - [ - "372", - "Raja", - "Price", - "49603", - "Armenia" - ], - [ - "373", - "Jeanette", - "Hatfield", - "E3K 5N5", - "India" - ], - [ - "374", - "Brittany", - "Christensen", - "04750", - "Uruguay" - ], - [ - "375", - "Inga", - "Prince", - "D4X 6J5", - "Switzerland" - ], - [ - "376", - "Cherokee", - "Ballard", - "U1O 1M0", - "Rwanda" - ], - [ - "377", - "Deirdre", - "Watson", - "46983", - "Sri Lanka" - ], - [ - "378", - "Amanda", - "Parrish", - "99838", - "Hong Kong" - ], - [ - "379", - "Leo", - "Shannon", - "L3N 3J0", - "Brunei Darussalam" - ], - [ - "380", - "Kimberly", - "Clemons", - "88734", - "South Africa" - ], - [ - "381", - "Seth", - "Langley", - "D6A 1Q9", - "Guyana" - ], - [ - "382", - "Carol", - "Blankenship", - "X5N 2A7", - "Angola" - ], - [ - "383", - "Dora", - "Flores", - "F8F 1O5", - "Poland" - ], - [ - "384", - "Chava", - "Dickson", - "P8B 6W6", - "Comoros" - ], - [ - "385", - "Trevor", - "Mcdowell", - "31382", - "Solomon Islands" - ], - [ - "386", - "Alec", - "Valentine", - "P2R 4K7", - "Greenland" - ], - [ - "387", - "Philip", - "Jenkins", - "Q7X 5U5", - "Aruba" - ], - [ - "388", - "Kim", - "Bowen", - "69873", - "Saint Kitts and Nevis" - ], - [ - "389", - "Allegra", - "Oconnor", - "X3Y 1X3", - "Holy See (Vatican City State)" - ], - [ - "390", - "Daria", - "Briggs", - "A7Z 7P4", - "Serbia and Montenegro" - ], - [ - "391", - "Amelia", - "Wiley", - "D4S 1G5", - "Montserrat" - ], - [ - "392", - "Erica", - "Aguirre", - "H5L 2O3", - "Andorra" - ], - [ - "393", - "Kibo", - "Sawyer", - "30638", - "Guyana" - ], - [ - "394", - "Jackson", - "Meyers", - "P4N 9D6", - "Bangladesh" - ], - [ - "395", - "Kirk", - "Baxter", - "F3M 7S6", - "Estonia" - ], - [ - "396", - "Sybil", - "Christian", - "B3Q 2X0", - "South Georgia and The South Sandwich Islands" - ], - [ - "397", - "Ina", - "Mercer", - "N4S 1K8", - "Korea" - ], - [ - "398", - "Kiara", - "Whitehead", - "86023", - "Nicaragua" - ], - [ - "399", - "Vielka", - "Hays", - "29845", - "Malta" - ], - [ - "400", - "Stacey", - "Carlson", - "53218", - "Cook Islands" - ], - [ - "401", - "Selma", - "Lloyd", - "78256", - "Turkey" - ], - [ - "402", - "Rhoda", - "Mcintosh", - "G8X 1C8", - "Guatemala" - ], - [ - "403", - "Teagan", - "Ochoa", - "99752", - "Barbados" - ], - [ - "404", - "Rebecca", - "Carver", - "82661", - "Saint Kitts and Nevis" - ], - [ - "405", - "Yael", - "Woodward", - "66095", - "Niger" - ], - [ - "406", - "Calvin", - "Huffman", - "82172", - "Somalia" - ], - [ - "407", - "Sopoline", - "Walters", - "K5L 3I7", - "Spain" - ], - [ - "408", - "Hollee", - "Powell", - "05572", - "Samoa" - ], - [ - "409", - "Fiona", - "Frank", - "74456", - "Timor-leste" - ], - [ - "410", - "Alana", - "Hubbard", - "76011", - "Lithuania" - ], - [ - "411", - "Lillian", - "Garcia", - "J5Z 2O5", - "Sierra Leone" - ], - [ - "412", - "Tad", - "Mcleod", - "B6A 8Z4", - "Australia" - ], - [ - "413", - "Hadassah", - "Hall", - "47417", - "China" - ], - [ - "414", - "Regan", - "Summers", - "X4L 4I6", - "Honduras" - ], - [ - "415", - "Herrod", - "Erickson", - "R8G 3V0", - "Israel" - ], - [ - "416", - "Autumn", - "Rojas", - "31205", - "Cocos (Keeling) Islands" - ], - [ - "417", - "Castor", - "Mooney", - "92737", - "Grenada" - ], - [ - "418", - "Wesley", - "Holman", - "57125", - "Greenland" - ], - [ - "419", - "Kitra", - "Wooten", - "Q6X 4Y0", - "Mongolia" - ], - [ - "420", - "Buckminster", - "Rice", - "U8B 7B8", - "Tokelau" - ], - [ - "421", - "Xavier", - "Hardin", - "18280", - "Iran, Islamic Republic of" - ], - [ - "422", - "Sopoline", - "Fleming", - "78437", - "Singapore" - ], - [ - "423", - "Sydney", - "Salinas", - "23801", - "Cook Islands" - ], - [ - "424", - "Bethany", - "Rosales", - "89650", - "United States" - ], - [ - "425", - "Deirdre", - "Hensley", - "F3X 1B7", - "Micronesia" - ], - [ - "426", - "Bernard", - "Vargas", - "S4D 9T0", - "Uzbekistan" - ], - [ - "427", - "Merrill", - "Compton", - "17713", - "Suriname" - ], - [ - "428", - "Carly", - "Baird", - "D3H 5G3", - "United States Minor Outlying Islands" - ], - [ - "429", - "Grace", - "Phelps", - "64695", - "Nauru" - ], - [ - "430", - "Kareem", - "Stone", - "65572", - "Netherlands" - ], - [ - "431", - "Susan", - "Newton", - "04627", - "Anguilla" - ], - [ - "432", - "Laura", - "Miranda", - "E1G 2R7", - "Finland" - ], - [ - "433", - "Madaline", - "Pugh", - "J9A 9M5", - "Senegal" - ], - [ - "434", - "Sophia", - "Mendez", - "33789", - "Timor-leste" - ], - [ - "435", - "Roary", - "Greene", - "61774", - "Canada" - ], - [ - "436", - "Amos", - "Gilliam", - "94933", - "Sri Lanka" - ], - [ - "437", - "Ivory", - "Joyner", - "15379", - "San Marino" - ], - [ - "438", - "Jorden", - "Robbins", - "43400", - "Russian Federation" - ], - [ - "439", - "Merritt", - "Holcomb", - "R1I 3C7", - "Brazil" - ], - [ - "440", - "Iliana", - "Johnston", - "U9W 8N2", - "Trinidad and Tobago" - ], - [ - "441", - "Ivana", - "Patterson", - "G5O 6A5", - "Georgia" - ], - [ - "442", - "Sydney", - "Mccullough", - "W9M 2H5", - "American Samoa" - ], - [ - "443", - "Alvin", - "Fulton", - "X8A 8R5", - "Antigua and Barbuda" - ], - [ - "444", - "Alfreda", - "Lopez", - "42499", - "Montserrat" - ], - [ - "445", - "Ethan", - "Bird", - "W9A 8M1", - "British Indian Ocean Territory" - ], - [ - "446", - "Zeus", - "Logan", - "01682", - "San Marino" - ], - [ - "447", - "Nehru", - "Andrews", - "W8J 3C8", - "Dominican Republic" - ], - [ - "448", - "Donna", - "Booth", - "64754", - "Nepal" - ], - [ - "449", - "Cruz", - "Bruce", - "17429", - "Burundi" - ], - [ - "450", - "Ronan", - "Saunders", - "69957", - "South Africa" - ], - [ - "451", - "Jordan", - "Barnes", - "D8K 9L8", - "Dominica" - ], - [ - "452", - "Carly", - "Love", - "D8Z 3P4", - "Mauritania" - ], - [ - "453", - "Mari", - "George", - "60260", - "Japan" - ], - [ - "454", - "Karly", - "Hodges", - "15790", - "South Georgia and The South Sandwich Islands" - ], - [ - "455", - "Rana", - "Logan", - "M1R 6Y6", - "Bosnia and Herzegovina" - ], - [ - "456", - "Theodore", - "Sims", - "C7A 8T2", - "Barbados" - ], - [ - "457", - "Quin", - "Thompson", - "26884", - "Bouvet Island" - ], - [ - "458", - "Kimberley", - "Sloan", - "S5T 8E3", - "Costa Rica" - ], - [ - "459", - "Upton", - "Valenzuela", - "Z6J 6Q1", - "Macao" - ], - [ - "460", - "Clinton", - "Williams", - "Z3O 7C4", - "Germany" - ], - [ - "461", - "Samson", - "Mathis", - "G1T 1V9", - "Senegal" - ], - [ - "462", - "Michelle", - "Frost", - "87113", - "Serbia and Montenegro" - ], - [ - "463", - "Tyrone", - "Coffey", - "80705", - "Albania" - ], - [ - "464", - "Alea", - "Delaney", - "E4S 4K4", - "Guyana" - ], - [ - "465", - "Dominique", - "Schwartz", - "81368", - "Falkland Islands (Malvinas)" - ], - [ - "466", - "Benedict", - "Norton", - "D1C 9C8", - "Cyprus" - ], - [ - "467", - "Vaughan", - "Stein", - "R7K 1L8", - "Egypt" - ], - [ - "468", - "Charles", - "Foley", - "20434", - "Anguilla" - ], - [ - "469", - "Arden", - "Ramos", - "54065", - "Gibraltar" - ], - [ - "470", - "Dillon", - "Patel", - "L6H 1H6", - "Liberia" - ], - [ - "471", - "Gretchen", - "Davenport", - "57188", - "Equatorial Guinea" - ], - [ - "472", - "Ivy", - "Randall", - "52617", - "Costa Rica" - ], - [ - "473", - "Brett", - "Baird", - "45791", - "Hungary" - ], - [ - "474", - "Wyoming", - "Sparks", - "11266", - "Luxembourg" - ], - [ - "475", - "Rashad", - "Roy", - "47012", - "Guam" - ], - [ - "476", - "Sopoline", - "Le", - "M1G 2P8", - "United Arab Emirates" - ], - [ - "477", - "Ursa", - "Haynes", - "53774", - "British Indian Ocean Territory" - ], - [ - "478", - "Maia", - "Vincent", - "26773", - "New Caledonia" - ], - [ - "479", - "Salvador", - "Pace", - "S9E 2C4", - "Egypt" - ], - [ - "480", - "Bethany", - "Wilcox", - "F2H 7N0", - "Uzbekistan" - ], - [ - "481", - "Sara", - "Brooks", - "08176", - "Holy See (Vatican City State)" - ], - [ - "482", - "Lillith", - "Sampson", - "75576", - "British Indian Ocean Territory" - ], - [ - "483", - "Brynne", - "Browning", - "N4K 7P6", - "Peru" - ], - [ - "484", - "Beck", - "Tran", - "06815", - "Cambodia" - ], - [ - "485", - "Peter", - "Hurley", - "05770", - "Rwanda" - ], - [ - "486", - "Buffy", - "Sharpe", - "H8F 8G6", - "Georgia" - ], - [ - "487", - "Harrison", - "Cross", - "Y1A 1R8", - "United Kingdom" - ], - [ - "488", - "Ursa", - "Wolf", - "J8C 9Q8", - "French Polynesia" - ], - [ - "489", - "Nayda", - "Vasquez", - "05523", - "Taiwan, Province of China" - ], - [ - "490", - "Gretchen", - "Walters", - "28628", - "Seychelles" - ], - [ - "491", - "Adrian", - "Hickman", - "17956", - "El Salvador" - ], - [ - "492", - "Laura", - "Moon", - "32103", - "Myanmar" - ], - [ - "493", - "Kellie", - "Barnett", - "L5Z 2U8", - "Saint Helena" - ], - [ - "494", - "Illana", - "Stanton", - "Z5D 2G0", - "Australia" - ], - [ - "495", - "Jescie", - "Santiago", - "D9L 4B5", - "Cambodia" - ], - [ - "496", - "Laura", - "Hopkins", - "X6V 9S5", - "Netherlands Antilles" - ], - [ - "497", - "Vielka", - "Harding", - "U6A 9T2", - "Cambodia" - ], - [ - "498", - "Walter", - "Gentry", - "L3X 9Q9", - "Slovenia" - ], - [ - "499", - "Sara", - "Atkinson", - "67146", - "Guinea" - ], - [ - "500", - "Yolanda", - "Chambers", - "Q8D 3W0", - "Zimbabwe" - ], - [ - "501", - "Josiah", - "Villarreal", - "I1V 6Y7", - "Burkina Faso" - ], - [ - "502", - "Hayfa", - "Bowman", - "77148", - "Saudi Arabia" - ], - [ - "503", - "Colette", - "Conley", - "41232", - "Estonia" - ], - [ - "504", - "Lana", - "Doyle", - "32962", - "Cuba" - ], - [ - "505", - "Keegan", - "Goodwin", - "M2P 1X3", - "Cocos (Keeling) Islands" - ], - [ - "506", - "Nina", - "Cross", - "49580", - "Germany" - ], - [ - "507", - "Xenos", - "Cervantes", - "K6X 7W8", - "Mauritius" - ], - [ - "508", - "Jared", - "Hester", - "30156", - "Uzbekistan" - ], - [ - "509", - "Damon", - "Curry", - "U2J 2D8", - "Pitcairn" - ], - [ - "510", - "Amery", - "Savage", - "O1S 2Z4", - "Turkmenistan" - ], - [ - "511", - "Brian", - "Wilkinson", - "J6O 4T0", - "Luxembourg" - ], - [ - "512", - "Ivory", - "Mckinney", - "L3E 8M2", - "Lithuania" - ], - [ - "513", - "Eric", - "Dalton", - "Y1L 6F4", - "Ethiopia" - ], - [ - "514", - "Brandon", - "Callahan", - "K6Q 9B4", - "Haiti" - ], - [ - "515", - "Phillip", - "Mclean", - "18836", - "Ethiopia" - ], - [ - "516", - "Carly", - "Greer", - "16811", - "Mayotte" - ], - [ - "517", - "Stone", - "Ware", - "58795", - "Moldova" - ], - [ - "518", - "Xena", - "Hayden", - "97158", - "Chad" - ], - [ - "519", - "Catherine", - "Leonard", - "77868", - "Azerbaijan" - ], - [ - "520", - "Bernard", - "Horton", - "04270", - "Yemen" - ], - [ - "521", - "Olga", - "Richmond", - "89169", - "Lebanon" - ], - [ - "522", - "Iris", - "Cummings", - "78836", - "Falkland Islands (Malvinas)" - ], - [ - "523", - "Beau", - "Mccall", - "78638", - "Monaco" - ], - [ - "524", - "Michael", - "Humphrey", - "Q1A 2W9", - "Tokelau" - ], - [ - "525", - "Oren", - "Stevens", - "F4V 9G7", - "Heard Island and Mcdonald Islands" - ], - [ - "526", - "Ima", - "Shelton", - "19295", - "Mozambique" - ], - [ - "527", - "Merritt", - "Morrison", - "K6W 5R0", - "Georgia" - ], - [ - "528", - "Vera", - "Cherry", - "54993", - "Angola" - ], - [ - "529", - "Grant", - "Turner", - "B4V 2J0", - "Saint Helena" - ], - [ - "530", - "Odette", - "Snyder", - "N9L 2V8", - "Chad" - ], - [ - "531", - "Uma", - "Stewart", - "E9A 6X9", - "Bhutan" - ], - [ - "532", - "Kylee", - "Best", - "11393", - "Malaysia" - ], - [ - "533", - "Nicholas", - "Mercado", - "85179", - "Switzerland" - ], - [ - "534", - "Nathaniel", - "Stuart", - "M1Q 6Z6", - "Mongolia" - ], - [ - "535", - "Ruth", - "Conrad", - "T7G 9V6", - "Guadeloupe" - ], - [ - "536", - "Deanna", - "Dudley", - "79721", - "Kiribati" - ], - [ - "537", - "David", - "Thornton", - "C6R 2G3", - "Netherlands Antilles" - ], - [ - "538", - "Jane", - "Ashley", - "48711", - "Rwanda" - ], - [ - "539", - "Nero", - "Curry", - "20590", - "Denmark" - ], - [ - "540", - "Kellie", - "Poole", - "46053", - "Martinique" - ], - [ - "541", - "Freya", - "Burch", - "W5R 8Y5", - "Northern Mariana Islands" - ], - [ - "542", - "Maxwell", - "Mcbride", - "D4W 4M3", - "Paraguay" - ], - [ - "543", - "Dawn", - "Sargent", - "85956", - "Gibraltar" - ], - [ - "544", - "Lilah", - "Matthews", - "J4D 8A9", - "Montserrat" - ], - [ - "545", - "Salvador", - "Burns", - "28067", - "Bhutan" - ], - [ - "546", - "Ezekiel", - "Ayala", - "67153", - "Wallis and Futuna" - ], - [ - "547", - "Evan", - "Barker", - "83026", - "Puerto Rico" - ], - [ - "548", - "Jemima", - "Case", - "U3S 7N6", - "Georgia" - ], - [ - "549", - "Belle", - "Mcconnell", - "H4S 9F8", - "Angola" - ], - [ - "550", - "Doris", - "Mays", - "57387", - "Tonga" - ], - [ - "551", - "Carson", - "Buchanan", - "20457", - "Guatemala" - ], - [ - "552", - "Calista", - "Lamb", - "26851", - "Gibraltar" - ], - [ - "553", - "Remedios", - "Haley", - "A9K 5M1", - "Tokelau" - ], - [ - "554", - "Odette", - "Mccarty", - "Y8B 3V4", - "Marshall Islands" - ], - [ - "555", - "Libby", - "Pugh", - "93261", - "Netherlands" - ], - [ - "556", - "Bo", - "Maldonado", - "C1H 1K7", - "Oman" - ], - [ - "557", - "Cameron", - "Beasley", - "41821", - "Northern Mariana Islands" - ], - [ - "558", - "Chadwick", - "Crosby", - "62855", - "New Caledonia" - ], - [ - "559", - "Steven", - "Barrett", - "92102", - "Pakistan" - ], - [ - "560", - "Jonas", - "Valdez", - "N3V 4R9", - "Bulgaria" - ], - [ - "561", - "Harlan", - "Larsen", - "Z8F 6A0", - "Cayman Islands" - ], - [ - "562", - "Iola", - "Joyner", - "D1J 4C3", - "Italy" - ], - [ - "563", - "Abra", - "Medina", - "Q9O 5J2", - "Cambodia" - ], - [ - "564", - "Solomon", - "Davidson", - "91317", - "Turkmenistan" - ], - [ - "565", - "Alisa", - "Kim", - "33036", - "Austria" - ], - [ - "566", - "Deacon", - "Silva", - "Z5L 6M0", - "Djibouti" - ], - [ - "567", - "Bree", - "Landry", - "43135", - "Czech Republic" - ], - [ - "568", - "Molly", - "Leach", - "71714", - "Botswana" - ], - [ - "569", - "Idona", - "Cain", - "A2J 1R8", - "South Georgia and The South Sandwich Islands" - ], - [ - "570", - "Aileen", - "Salinas", - "90344", - "Uzbekistan" - ], - [ - "571", - "Dominique", - "Cooper", - "31803", - "Sao Tome and Principe" - ], - [ - "572", - "Lunea", - "Pollard", - "S9R 7B0", - "Sweden" - ], - [ - "573", - "Leo", - "Combs", - "W7E 8T4", - "Ukraine" - ], - [ - "574", - "Illiana", - "Donovan", - "D8K 3R4", - "Palau" - ], - [ - "575", - "Orlando", - "Vaughan", - "Q4I 3E3", - "Bosnia and Herzegovina" - ], - [ - "576", - "Yuri", - "Blake", - "I9W 5U5", - "Seychelles" - ], - [ - "577", - "Amanda", - "Baldwin", - "19752", - "Turkmenistan" - ], - [ - "578", - "Hanna", - "Emerson", - "73316", - "Antigua and Barbuda" - ], - [ - "579", - "Xyla", - "Atkins", - "11151", - "Uganda" - ], - [ - "580", - "Nathaniel", - "Patterson", - "00391", - "Portugal" - ], - [ - "581", - "Naida", - "Cote", - "17484", - "Mauritius" - ], - [ - "582", - "Scarlett", - "Little", - "V8N 8A6", - "Sao Tome and Principe" - ], - [ - "583", - "Odessa", - "Kerr", - "56456", - "Sweden" - ], - [ - "584", - "Kamal", - "Richardson", - "F6S 4I1", - "Algeria" - ], - [ - "585", - "Griffith", - "Morton", - "I5H 2Z0", - "Vanuatu" - ], - [ - "586", - "Orli", - "Santana", - "48213", - "Burundi" - ], - [ - "587", - "Courtney", - "Cook", - "R3O 3A9", - "Cape Verde" - ], - [ - "588", - "Jolene", - "Wallace", - "F6Q 7W8", - "Zambia" - ], - [ - "589", - "Bert", - "Sharp", - "X7T 7Z8", - "Paraguay" - ], - [ - "590", - "Ila", - "Carver", - "E4M 7P4", - "Paraguay" - ], - [ - "591", - "Merrill", - "Wall", - "49416", - "Fiji" - ], - [ - "592", - "Hanae", - "Espinoza", - "Y6D 6K8", - "Turkey" - ], - [ - "593", - "Stephanie", - "Bond", - "Z1Q 3P3", - "Algeria" - ], - [ - "594", - "Lionel", - "Leonard", - "U8O 7G6", - "Nauru" - ], - [ - "595", - "Faith", - "Ramirez", - "75181", - "Slovakia" - ], - [ - "596", - "Fritz", - "Glass", - "62878", - "El Salvador" - ], - [ - "597", - "Raya", - "Gardner", - "L3E 2C7", - "India" - ], - [ - "598", - "Brynne", - "Price", - "W1S 6O9", - "Lithuania" - ], - [ - "599", - "Karen", - "Gray", - "O4X 8F6", - "Albania" - ], - [ - "600", - "Perry", - "Goodwin", - "44266", - "Libyan Arab Jamahiriya" - ], - [ - "601", - "Dylan", - "Glover", - "76573", - "Estonia" - ], - [ - "602", - "Melinda", - "Holloway", - "07861", - "Grenada" - ], - [ - "603", - "Rahim", - "Robinson", - "D7M 1E8", - "Madagascar" - ], - [ - "604", - "Ori", - "Oconnor", - "10386", - "Antarctica" - ], - [ - "605", - "Candace", - "Preston", - "03610", - "Denmark" - ], - [ - "606", - "Wing", - "Howe", - "E6U 3H2", - "Burundi" - ], - [ - "607", - "Lucy", - "Eaton", - "26436", - "Guinea" - ], - [ - "608", - "Ignatius", - "Blevins", - "93597", - "Serbia and Montenegro" - ], - [ - "609", - "Nadine", - "Franco", - "80096", - "Tonga" - ], - [ - "610", - "Shoshana", - "Walters", - "S4F 5O8", - "Micronesia" - ], - [ - "611", - "Remedios", - "Buckner", - "29213", - "Antigua and Barbuda" - ], - [ - "612", - "Adam", - "Horne", - "F8V 1V8", - "Oman" - ], - [ - "613", - "Kieran", - "Saunders", - "I7A 7Y5", - "Japan" - ], - [ - "614", - "Isabelle", - "Fletcher", - "K2K 3K5", - "Norway" - ], - [ - "615", - "Ryder", - "Ballard", - "38518", - "Tanzania, United Republic of" - ], - [ - "616", - "Nina", - "Guerrero", - "61142", - "Saint Kitts and Nevis" - ], - [ - "617", - "Sheila", - "Poole", - "E2H 6I6", - "Denmark" - ], - [ - "618", - "Melyssa", - "Mcdaniel", - "08247", - "Netherlands Antilles" - ], - [ - "619", - "Leila", - "Vang", - "Q5Z 3S1", - "United States Minor Outlying Islands" - ], - [ - "620", - "Grady", - "Aguilar", - "R1I 8I8", - "Slovenia" - ], - [ - "621", - "Plato", - "Terrell", - "23916", - "Kuwait" - ], - [ - "622", - "Rama", - "Perkins", - "56506", - "Russian Federation" - ], - [ - "623", - "Boris", - "Chaney", - "66737", - "Antigua and Barbuda" - ], - [ - "624", - "Edward", - "Clarke", - "30722", - "Iraq" - ], - [ - "625", - "Skyler", - "Wise", - "53248", - "Taiwan, Province of China" - ], - [ - "626", - "Uta", - "Cox", - "85242", - "Malawi" - ], - [ - "627", - "Lesley", - "Watkins", - "26710", - "Estonia" - ], - [ - "628", - "Gray", - "Harrison", - "C5L 9Y7", - "Nepal" - ], - [ - "629", - "Joan", - "Flores", - "J5Q 2B9", - "Tajikistan" - ], - [ - "630", - "Reece", - "Lott", - "85152", - "Algeria" - ], - [ - "631", - "Jerome", - "Faulkner", - "V1K 3N2", - "Kiribati" - ], - [ - "632", - "Jackson", - "Hudson", - "85932", - "Botswana" - ], - [ - "633", - "Uma", - "Booker", - "79755", - "Senegal" - ], - [ - "634", - "Katelyn", - "Gillespie", - "Q8P 4V9", - "Eritrea" - ], - [ - "635", - "Clio", - "Tillman", - "67552", - "Liberia" - ], - [ - "636", - "Anjolie", - "Nixon", - "36615", - "Botswana" - ], - [ - "637", - "Nell", - "Lee", - "T9S 4R3", - "French Southern Territories" - ], - [ - "638", - "Anthony", - "Aguirre", - "85443", - "Morocco" - ], - [ - "639", - "Aaron", - "Green", - "90326", - "Faroe Islands" - ], - [ - "640", - "Galvin", - "Yang", - "A4X 8H6", - "Ukraine" - ], - [ - "641", - "Yoshi", - "Strickland", - "52538", - "Brazil" - ], - [ - "642", - "Brenden", - "Kirkland", - "X7P 8V9", - "Turks and Caicos Islands" - ], - [ - "643", - "Bree", - "Stone", - "U4L 2H2", - "Hong Kong" - ], - [ - "644", - "Quin", - "Tanner", - "U4A 1X4", - "Faroe Islands" - ], - [ - "645", - "Camilla", - "Heath", - "91749", - "Andorra" - ], - [ - "646", - "Xaviera", - "Bullock", - "I4U 7W0", - "Libyan Arab Jamahiriya" - ], - [ - "647", - "Kay", - "Rowe", - "59689", - "Iceland" - ], - [ - "648", - "Lance", - "Bond", - "66558", - "Spain" - ], - [ - "649", - "Fredericka", - "Langley", - "48782", - "Cayman Islands" - ], - [ - "650", - "Charles", - "Avila", - "42037", - "Papua New Guinea" - ], - [ - "651", - "Ramona", - "Rios", - "T5M 3E1", - "Argentina" - ], - [ - "652", - "Ezekiel", - "Young", - "W8X 4S7", - "French Polynesia" - ], - [ - "653", - "Celeste", - "Dodson", - "19140", - "Benin" - ], - [ - "654", - "Frances", - "Mcintosh", - "91246", - "Swaziland" - ], - [ - "655", - "Deanna", - "Hyde", - "J8P 3T5", - "Croatia" - ], - [ - "656", - "Dahlia", - "Blair", - "45364", - "Kazakhstan" - ], - [ - "657", - "Jade", - "Hayes", - "I5Q 3S9", - "Malawi" - ], - [ - "658", - "Robin", - "Bullock", - "G9Q 2P8", - "Ireland" - ], - [ - "659", - "Nasim", - "Bond", - "I2V 8N4", - "Macedonia" - ], - [ - "660", - "Axel", - "Pickett", - "18370", - "Saint Vincent and The Grenadines" - ], - [ - "661", - "Pearl", - "Lee", - "G1R 3R8", - "Poland" - ], - [ - "662", - "Garth", - "Meyers", - "90308", - "Georgia" - ], - [ - "663", - "Ivory", - "Rios", - "S8F 8R5", - "Mexico" - ], - [ - "664", - "Jerome", - "Lambert", - "N1Q 6R8", - "Saint Lucia" - ], - [ - "665", - "Meredith", - "Clark", - "27720", - "Cocos (Keeling) Islands" - ], - [ - "666", - "Armando", - "Holcomb", - "M6D 4X0", - "Oman" - ], - [ - "667", - "Rowan", - "Page", - "00307", - "Nauru" - ], - [ - "668", - "Kyla", - "Brown", - "F4W 4C5", - "Holy See (Vatican City State)" - ], - [ - "669", - "Leigh", - "Sosa", - "28499", - "Uruguay" - ], - [ - "670", - "Shafira", - "Forbes", - "26526", - "Honduras" - ], - [ - "671", - "Maxine", - "Mueller", - "90923", - "Kazakhstan" - ], - [ - "672", - "Joy", - "Sargent", - "K6T 3W5", - "Malawi" - ], - [ - "673", - "Lamar", - "Roberts", - "R5F 9C8", - "Poland" - ], - [ - "674", - "Madonna", - "Love", - "15514", - "Cyprus" - ], - [ - "675", - "Uriel", - "Ware", - "Z6V 5J1", - "Singapore" - ], - [ - "676", - "Bevis", - "Erickson", - "M3X 9M8", - "Brunei Darussalam" - ], - [ - "677", - "Grant", - "Velasquez", - "96942", - "Antarctica" - ], - [ - "678", - "Lars", - "Bullock", - "14772", - "Guyana" - ], - [ - "679", - "Maryam", - "Jones", - "01854", - "Togo" - ], - [ - "680", - "Blythe", - "Goodwin", - "51731", - "New Caledonia" - ], - [ - "681", - "Kane", - "Wiggins", - "55727", - "Kiribati" - ], - [ - "682", - "Brian", - "Rosales", - "25896", - "Cape Verde" - ], - [ - "683", - "Blaze", - "Leach", - "P6J 3E5", - "Northern Mariana Islands" - ], - [ - "684", - "Cameron", - "Neal", - "82248", - "Marshall Islands" - ], - [ - "685", - "Lydia", - "Cunningham", - "Q1V 8P7", - "San Marino" - ], - [ - "686", - "Troy", - "Cook", - "32106", - "British Indian Ocean Territory" - ], - [ - "687", - "Alexander", - "Valenzuela", - "S8Z 6B2", - "Guadeloupe" - ], - [ - "688", - "Garth", - "Beck", - "46344", - "Cook Islands" - ], - [ - "689", - "Hillary", - "Nunez", - "29462", - "Sri Lanka" - ], - [ - "690", - "Hunter", - "Sawyer", - "W9M 6T4", - "Saint Lucia" - ], - [ - "691", - "Jaquelyn", - "Everett", - "T1X 2U2", - "Guinea-bissau" - ], - [ - "692", - "Indira", - "Ortega", - "43047", - "Italy" - ], - [ - "693", - "Josiah", - "Hinton", - "N5F 5Y8", - "Andorra" - ], - [ - "694", - "Bruno", - "Gay", - "E3U 3D9", - "Palau" - ], - [ - "695", - "Melissa", - "Blackburn", - "S4V 1K2", - "Virgin Islands, U.S." - ], - [ - "696", - "Zeus", - "Dawson", - "K5S 6Z6", - "Belgium" - ], - [ - "697", - "Castor", - "Mcmahon", - "H3R 1O8", - "Cambodia" - ], - [ - "698", - "Elizabeth", - "Beasley", - "98178", - "Northern Mariana Islands" - ], - [ - "699", - "Jescie", - "Lee", - "08056", - "Eritrea" - ], - [ - "700", - "Dennis", - "Chapman", - "T4O 1Q2", - "Bangladesh" - ], - [ - "701", - "Basia", - "Wallace", - "U3Y 7C1", - "Pitcairn" - ], - [ - "702", - "Dante", - "Brewer", - "53544", - "Bosnia and Herzegovina" - ], - [ - "703", - "Adrienne", - "Glenn", - "32378", - "Austria" - ], - [ - "704", - "Kellie", - "Acevedo", - "51723", - "Italy" - ], - [ - "705", - "Scarlet", - "Mclaughlin", - "43509", - "Kiribati" - ], - [ - "706", - "Lillith", - "Mullins", - "S6L 4Y6", - "Kyrgyzstan" - ], - [ - "707", - "Maxine", - "Atkins", - "Z5T 5R5", - "Denmark" - ], - [ - "708", - "Nicholas", - "Rose", - "40286", - "Macedonia" - ], - [ - "709", - "Zenia", - "Pugh", - "28682", - "Venezuela" - ], - [ - "710", - "Keely", - "Turner", - "34939", - "New Zealand" - ], - [ - "711", - "Maisie", - "Walton", - "S6M 5C5", - "Cameroon" - ], - [ - "712", - "Michelle", - "Salinas", - "T7A 9N6", - "Nicaragua" - ], - [ - "713", - "Reece", - "Clements", - "73923", - "Austria" - ], - [ - "714", - "Eliana", - "Fox", - "V3Y 5T4", - "Denmark" - ], - [ - "715", - "Kennedy", - "Mullins", - "43213", - "Virgin Islands, British" - ], - [ - "716", - "Alea", - "Glover", - "M6P 3Z5", - "Turkmenistan" - ], - [ - "717", - "Scarlett", - "Hunt", - "41461", - "Montserrat" - ], - [ - "718", - "Rooney", - "Kane", - "T8A 3E2", - "Madagascar" - ], - [ - "719", - "Cairo", - "Ray", - "L6M 1E7", - "Canada" - ], - [ - "720", - "Wendy", - "Burks", - "R8V 8F5", - "Virgin Islands, U.S." - ], - [ - "721", - "Christine", - "Suarez", - "67369", - "Georgia" - ], - [ - "722", - "Graiden", - "Le", - "K4M 9V5", - "New Caledonia" - ], - [ - "723", - "Zane", - "Nunez", - "60548", - "Haiti" - ], - [ - "724", - "Ali", - "Bell", - "U4Y 4C3", - "Togo" - ], - [ - "725", - "Marsden", - "Leon", - "39374", - "Venezuela" - ], - [ - "726", - "Holmes", - "Kidd", - "B6K 7Q9", - "Iraq" - ], - [ - "727", - "Cameron", - "Gardner", - "88627", - "Brazil" - ], - [ - "728", - "Ava", - "George", - "K1Z 7Y2", - "Monaco" - ], - [ - "729", - "Chantale", - "Holland", - "H1B 9L8", - "Afghanistan" - ], - [ - "730", - "Alika", - "Middleton", - "W8X 7O1", - "Korea" - ], - [ - "731", - "Cameran", - "Zimmerman", - "78576", - "Benin" - ], - [ - "732", - "Barrett", - "Blair", - "51161", - "Virgin Islands, U.S." - ], - [ - "733", - "Brielle", - "Ballard", - "59538", - "Iceland" - ], - [ - "734", - "Teagan", - "Morales", - "40107", - "Kenya" - ], - [ - "735", - "Lunea", - "Cantu", - "14690", - "Oman" - ], - [ - "736", - "Robin", - "Gilmore", - "17972", - "Nauru" - ], - [ - "737", - "Hall", - "Mccarty", - "86141", - "China" - ], - [ - "738", - "Olga", - "Rasmussen", - "58309", - "Virgin Islands, British" - ], - [ - "739", - "Mark", - "Griffin", - "51542", - "Argentina" - ], - [ - "740", - "Medge", - "Carrillo", - "23192", - "Pitcairn" - ], - [ - "741", - "Susan", - "Mosley", - "32128", - "Turkmenistan" - ], - [ - "742", - "Zelda", - "Valdez", - "46831", - "New Caledonia" - ], - [ - "743", - "Ruth", - "Donaldson", - "F9I 7G7", - "Ukraine" - ], - [ - "744", - "Kirby", - "Workman", - "36679", - "Rwanda" - ], - [ - "745", - "Alexa", - "King", - "66513", - "Liberia" - ], - [ - "746", - "Ronan", - "Gross", - "K2S 6D0", - "Saint Lucia" - ], - [ - "747", - "Kylee", - "Dillon", - "P7Y 1I5", - "Faroe Islands" - ], - [ - "748", - "Brenda", - "Weaver", - "99365", - "Uzbekistan" - ], - [ - "749", - "Aristotle", - "Orr", - "43451", - "Canada" - ], - [ - "750", - "Jaquelyn", - "Tyler", - "B9Q 7P5", - "Brunei Darussalam" - ], - [ - "751", - "Madeline", - "Stewart", - "D4D 2J4", - "Zimbabwe" - ], - [ - "752", - "Lacota", - "Glass", - "89124", - "Israel" - ], - [ - "753", - "Adrian", - "Ashley", - "N8M 4L1", - "Sri Lanka" - ], - [ - "754", - "Ignatius", - "Waller", - "12053", - "Thailand" - ], - [ - "755", - "Raven", - "Stevens", - "88768", - "Estonia" - ], - [ - "756", - "Carly", - "Camacho", - "27075", - "Vanuatu" - ], - [ - "757", - "Lee", - "Calderon", - "19501", - "Pitcairn" - ], - [ - "758", - "Amos", - "Briggs", - "I6A 3L8", - "Saint Kitts and Nevis" - ], - [ - "759", - "Cheryl", - "Valencia", - "90517", - "Denmark" - ], - [ - "760", - "Kenyon", - "Franco", - "B2S 2E2", - "Western Sahara" - ], - [ - "761", - "Damian", - "Acosta", - "A2S 6D0", - "Bahamas" - ], - [ - "762", - "Brenda", - "Zamora", - "T9E 7L3", - "Finland" - ], - [ - "763", - "Connor", - "Atkinson", - "03975", - "Sierra Leone" - ], - [ - "764", - "Kaseem", - "Waters", - "A2K 2X0", - "China" - ], - [ - "765", - "Zephania", - "Whitfield", - "A4Z 9P7", - "Eritrea" - ], - [ - "766", - "Emmanuel", - "Ballard", - "G1M 6Y2", - "Finland" - ], - [ - "767", - "Amos", - "Walters", - "43184", - "Oman" - ], - [ - "768", - "Urielle", - "Browning", - "19959", - "Panama" - ], - [ - "769", - "TaShya", - "Summers", - "B9V 3Y3", - "Micronesia" - ], - [ - "770", - "Jermaine", - "Mcgee", - "X8A 4E1", - "Cape Verde" - ], - [ - "771", - "Chaney", - "Berry", - "G2H 2C8", - "Uganda" - ], - [ - "772", - "Jaime", - "May", - "49723", - "Eritrea" - ], - [ - "773", - "Olga", - "Cohen", - "13403", - "Macao" - ], - [ - "774", - "Jacob", - "Vaughn", - "U7G 1V5", - "Greece" - ], - [ - "775", - "Kelly", - "Mcdonald", - "Z3B 5G7", - "Kiribati" - ], - [ - "776", - "Emi", - "Gilbert", - "W1L 2M4", - "Nicaragua" - ], - [ - "777", - "Francis", - "Nunez", - "K4U 6M5", - "Lithuania" - ], - [ - "778", - "Noel", - "Nelson", - "Z5T 1Y0", - "Nauru" - ], - [ - "779", - "Ora", - "Ellison", - "Y5I 4R8", - "Burundi" - ], - [ - "780", - "Kirby", - "Glass", - "J5X 2E3", - "Argentina" - ], - [ - "781", - "Hayley", - "Tate", - "V1T 6B6", - "Greece" - ], - [ - "782", - "Mohammad", - "Leblanc", - "E3S 5R3", - "Oman" - ], - [ - "783", - "Lionel", - "Todd", - "A1Z 9E1", - "Macedonia" - ], - [ - "784", - "Courtney", - "Mckay", - "D4I 8Z3", - "Fiji" - ], - [ - "785", - "Reagan", - "West", - "84159", - "Equatorial Guinea" - ], - [ - "786", - "Noel", - "Strickland", - "Q7K 6S3", - "Mozambique" - ], - [ - "787", - "Lara", - "Porter", - "49872", - "Nigeria" - ], - [ - "788", - "Kyra", - "Haley", - "I9E 2K3", - "Dominican Republic" - ], - [ - "789", - "Wynter", - "Beasley", - "66330", - "Heard Island and Mcdonald Islands" - ], - [ - "790", - "Vladimir", - "Briggs", - "99538", - "Burkina Faso" - ], - [ - "791", - "Rafael", - "Campbell", - "V8L 2S6", - "Algeria" - ], - [ - "792", - "Buffy", - "Wilder", - "N3U 2X0", - "Bahrain" - ], - [ - "793", - "Nyssa", - "Dawson", - "38434", - "Spain" - ], - [ - "794", - "Sylvia", - "Swanson", - "39714", - "Azerbaijan" - ], - [ - "795", - "Jolie", - "Diaz", - "A1J 5I1", - "Cuba" - ], - [ - "796", - "Rosalyn", - "Mcdaniel", - "F3T 6E2", - "Benin" - ], - [ - "797", - "Nelle", - "Prince", - "K1M 4U6", - "Maldives" - ], - [ - "798", - "Luke", - "Knight", - "05930", - "Seychelles" - ], - [ - "799", - "Macaulay", - "Conway", - "79707", - "American Samoa" - ], - [ - "800", - "Freya", - "Webb", - "U2H 2D7", - "Ireland" - ], - [ - "801", - "Clinton", - "Meyers", - "S9I 7N2", - "Malta" - ], - [ - "802", - "Rudyard", - "Chandler", - "40347", - "Bahrain" - ], - [ - "803", - "Courtney", - "Hoover", - "12325", - "French Polynesia" - ], - [ - "804", - "Melissa", - "Davenport", - "K7P 1S8", - "Canada" - ], - [ - "805", - "Noelle", - "Nieves", - "87427", - "Martinique" - ], - [ - "806", - "Myles", - "Hart", - "V6T 1W0", - "Niue" - ], - [ - "807", - "Jasper", - "Campos", - "78143", - "Faroe Islands" - ], - [ - "808", - "Ariana", - "Valentine", - "J4X 2D4", - "Ecuador" - ], - [ - "809", - "Vanna", - "Fletcher", - "M4Z 1F9", - "Faroe Islands" - ], - [ - "810", - "Elijah", - "Harper", - "Y1B 7E4", - "New Zealand" - ], - [ - "811", - "Leilani", - "Nunez", - "K9W 4F0", - "United Arab Emirates" - ], - [ - "812", - "Maia", - "Huber", - "V4L 8M6", - "United Kingdom" - ], - [ - "813", - "Richard", - "Riddle", - "U8C 8Q2", - "Niue" - ], - [ - "814", - "Harper", - "Blanchard", - "10904", - "Cameroon" - ], - [ - "815", - "Aurelia", - "Trujillo", - "01646", - "Dominican Republic" - ], - [ - "816", - "Anthony", - "Owen", - "J2I 2B4", - "Palestinian Territory, Occupied" - ], - [ - "817", - "Kelsie", - "Roy", - "M3J 6K3", - "Maldives" - ], - [ - "818", - "James", - "Pearson", - "94810", - "Mexico" - ], - [ - "819", - "Igor", - "Marshall", - "Y8M 2D6", - "Palau" - ], - [ - "820", - "Aquila", - "Willis", - "20354", - "Samoa" - ], - [ - "821", - "Randall", - "Sheppard", - "73577", - "Sierra Leone" - ], - [ - "822", - "Gray", - "Myers", - "53651", - "Gibraltar" - ], - [ - "823", - "Dana", - "Camacho", - "89571", - "Reunion" - ], - [ - "824", - "Berk", - "Hopper", - "17794", - "Cook Islands" - ], - [ - "825", - "Shannon", - "Barry", - "70536", - "Bouvet Island" - ], - [ - "826", - "Dahlia", - "Herman", - "F8L 1Q3", - "Lesotho" - ], - [ - "827", - "Gillian", - "Hayes", - "O2C 7X8", - "Tajikistan" - ], - [ - "828", - "Leo", - "Bolton", - "P6V 6E1", - "Dominica" - ], - [ - "829", - "Vivien", - "Best", - "E5E 6N8", - "Cuba" - ], - [ - "830", - "Clayton", - "Bradley", - "E7R 3M5", - "Zimbabwe" - ], - [ - "831", - "Lesley", - "Collins", - "16592", - "Mali" - ], - [ - "832", - "Holly", - "Hensley", - "49080", - "Tunisia" - ], - [ - "833", - "Larissa", - "Velazquez", - "41068", - "Haiti" - ], - [ - "834", - "Delilah", - "Mejia", - "A5I 9Q9", - "Croatia" - ], - [ - "835", - "Drew", - "Roberson", - "U7E 3R1", - "Somalia" - ], - [ - "836", - "Jenette", - "Patel", - "64084", - "Denmark" - ], - [ - "837", - "Gillian", - "Cleveland", - "05659", - "Syrian Arab Republic" - ], - [ - "838", - "Noelle", - "Lara", - "U1N 6V6", - "Sri Lanka" - ], - [ - "839", - "Celeste", - "Rollins", - "26590", - "Mayotte" - ], - [ - "840", - "Elvis", - "Fletcher", - "M8V 6J4", - "Bahamas" - ], - [ - "841", - "Caesar", - "Hays", - "E3D 3T7", - "Malta" - ], - [ - "842", - "Rama", - "Weber", - "25880", - "Malta" - ], - [ - "843", - "Lael", - "Page", - "57135", - "Anguilla" - ], - [ - "844", - "Omar", - "Hammond", - "90213", - "Belarus" - ], - [ - "845", - "Simone", - "Mcintosh", - "L5P 1S0", - "Bhutan" - ], - [ - "846", - "Gay", - "Harper", - "56404", - "Virgin Islands, U.S." - ], - [ - "847", - "Joel", - "Holman", - "C1F 1C4", - "Saint Lucia" - ], - [ - "848", - "Clayton", - "Pennington", - "57003", - "Kazakhstan" - ], - [ - "849", - "Susan", - "Mckee", - "I5U 8F2", - "Taiwan, Province of China" - ], - [ - "850", - "Jenna", - "Stein", - "P2K 6L4", - "Reunion" - ], - [ - "851", - "Madonna", - "Joyner", - "Q4Q 4K6", - "Guadeloupe" - ], - [ - "852", - "Deirdre", - "Ingram", - "N7U 3N9", - "Monaco" - ], - [ - "853", - "Juliet", - "Hodges", - "U2Q 2T0", - "Uzbekistan" - ], - [ - "854", - "Naomi", - "Rice", - "O6T 2Z1", - "Nicaragua" - ], - [ - "855", - "Leila", - "Alvarado", - "Z2V 7L3", - "Suriname" - ], - [ - "856", - "George", - "Leon", - "L6M 1V2", - "Norway" - ], - [ - "857", - "Rama", - "Cruz", - "Y2S 7K6", - "Kenya" - ], - [ - "858", - "Clarke", - "Mckinney", - "34622", - "Viet Nam" - ], - [ - "859", - "Savannah", - "Bailey", - "L3O 1U6", - "Solomon Islands" - ], - [ - "860", - "Maxwell", - "Gibson", - "R9K 9Q1", - "Virgin Islands, British" - ], - [ - "861", - "Devin", - "Humphrey", - "74821", - "Costa Rica" - ], - [ - "862", - "Kadeem", - "Larsen", - "43178", - "Luxembourg" - ], - [ - "863", - "Elvis", - "Todd", - "O3O 3G9", - "Azerbaijan" - ], - [ - "864", - "Levi", - "Montoya", - "G1Y 1N8", - "Venezuela" - ], - [ - "865", - "Risa", - "Barnes", - "86118", - "Benin" - ], - [ - "866", - "Dillon", - "Riggs", - "O3Y 8V2", - "Greenland" - ], - [ - "867", - "Stewart", - "Marshall", - "V8G 8S2", - "Mexico" - ], - [ - "868", - "Camden", - "Goff", - "N3W 2L0", - "Bahrain" - ], - [ - "869", - "Sheila", - "Meadows", - "T6K 7M2", - "Yemen" - ], - [ - "870", - "Hop", - "Berger", - "Q8B 9R7", - "Germany" - ], - [ - "871", - "Charissa", - "Wilkerson", - "08090", - "Burundi" - ], - [ - "872", - "Raphael", - "Carey", - "03667", - "United Kingdom" - ], - [ - "873", - "Micah", - "Hood", - "T9N 4T5", - "Georgia" - ], - [ - "874", - "Cathleen", - "Mccall", - "N6H 6N3", - "Tanzania, United Republic of" - ], - [ - "875", - "Lisandra", - "Poole", - "S7O 1J1", - "Greece" - ], - [ - "876", - "Stone", - "Blackwell", - "90654", - "Serbia and Montenegro" - ], - [ - "877", - "Serena", - "Mann", - "32305", - "Trinidad and Tobago" - ], - [ - "878", - "Scarlet", - "Turner", - "D7Y 8N4", - "Oman" - ], - [ - "879", - "Zenaida", - "Carrillo", - "60361", - "Montserrat" - ], - [ - "880", - "Jaime", - "Dalton", - "F4E 6R5", - "Iraq" - ], - [ - "881", - "Wesley", - "Drake", - "D8J 9U2", - "Bulgaria" - ], - [ - "882", - "Armand", - "Chandler", - "X8Z 9E6", - "Saint Kitts and Nevis" - ], - [ - "883", - "Inez", - "Dillard", - "59975", - "Eritrea" - ], - [ - "884", - "Roanna", - "Floyd", - "65958", - "Bolivia" - ], - [ - "885", - "Timon", - "Dalton", - "O3Q 5B5", - "Colombia" - ], - [ - "886", - "Ifeoma", - "Lamb", - "J9A 9X0", - "Papua New Guinea" - ], - [ - "887", - "Brody", - "Cash", - "75525", - "Kazakhstan" - ], - [ - "888", - "Dawn", - "Wise", - "G7X 5J3", - "Samoa" - ], - [ - "889", - "Chaney", - "Bartlett", - "11112", - "Ecuador" - ], - [ - "890", - "Galvin", - "Merritt", - "59635", - "Bahrain" - ], - [ - "891", - "Cynthia", - "Nash", - "U5P 1H4", - "Switzerland" - ], - [ - "892", - "Tara", - "Austin", - "Q6X 8U0", - "Burundi" - ], - [ - "893", - "Roanna", - "Petty", - "28524", - "Northern Mariana Islands" - ], - [ - "894", - "Palmer", - "Mcdowell", - "78234", - "United States Minor Outlying Islands" - ], - [ - "895", - "Sade", - "Patton", - "28984", - "Czech Republic" - ], - [ - "896", - "Yoko", - "Compton", - "62165", - "Saint Kitts and Nevis" - ], - [ - "897", - "Regan", - "Mccarthy", - "C5D 6G0", - "Lebanon" - ], - [ - "898", - "Norman", - "Nixon", - "E4C 4G0", - "Virgin Islands, U.S." - ], - [ - "899", - "Jocelyn", - "Baldwin", - "X9R 2B3", - "Macedonia" - ], - [ - "900", - "Jaquelyn", - "Berg", - "N6X 6E1", - "Saint Lucia" - ], - [ - "901", - "Zane", - "Nelson", - "G9P 4J8", - "Macao" - ], - [ - "902", - "Judith", - "Elliott", - "R4I 4O3", - "Iraq" - ], - [ - "903", - "Maia", - "Ellis", - "S9V 6P0", - "Bahrain" - ], - [ - "904", - "Mechelle", - "Stevens", - "43406", - "Bouvet Island" - ], - [ - "905", - "Sylvester", - "Duran", - "K5D 8W5", - "Costa Rica" - ], - [ - "906", - "Unity", - "Cooke", - "64362", - "Ecuador" - ], - [ - "907", - "Karly", - "Velazquez", - "43286", - "Guam" - ], - [ - "908", - "Damian", - "Yates", - "84910", - "Thailand" - ], - [ - "909", - "Linus", - "Gross", - "31808", - "Israel" - ], - [ - "910", - "Cooper", - "Franco", - "36700", - "Yemen" - ], - [ - "911", - "Gail", - "Jones", - "09157", - "Turkey" - ], - [ - "912", - "Hayfa", - "Bennett", - "59422", - "France" - ], - [ - "913", - "Hermione", - "Barber", - "I6W 8Z5", - "Mozambique" - ], - [ - "914", - "Hedy", - "Stevens", - "35535", - "Cuba" - ], - [ - "915", - "Galvin", - "Frederick", - "J2W 9A3", - "Virgin Islands, British" - ], - [ - "916", - "Lamar", - "Rush", - "P4O 3H4", - "Austria" - ], - [ - "917", - "Brenda", - "Walter", - "K8Q 9H9", - "Tajikistan" - ], - [ - "918", - "Ria", - "Guy", - "12801", - "Gibraltar" - ], - [ - "919", - "Bruno", - "Lynch", - "I6U 7D0", - "Greenland" - ], - [ - "920", - "Kirk", - "Pearson", - "66242", - "Falkland Islands (Malvinas)" - ], - [ - "921", - "Owen", - "Sosa", - "61483", - "Martinique" - ], - [ - "922", - "Rajah", - "Mccarty", - "G9K 6L2", - "Faroe Islands" - ], - [ - "923", - "Erasmus", - "Malone", - "D6H 7H5", - "Sierra Leone" - ], - [ - "924", - "Raja", - "Hale", - "85590", - "Guadeloupe" - ], - [ - "925", - "Logan", - "Christensen", - "Y6L 8Z0", - "Guatemala" - ], - [ - "926", - "Kirestin", - "Griffith", - "47900", - "Micronesia" - ], - [ - "927", - "Kato", - "Reeves", - "93779", - "Uruguay" - ], - [ - "928", - "Jonah", - "Suarez", - "13708", - "Spain" - ], - [ - "929", - "Adam", - "Lynn", - "E1P 1L3", - "Indonesia" - ], - [ - "930", - "Quinn", - "Mckinney", - "99683", - "Faroe Islands" - ], - [ - "931", - "Whilemina", - "Macias", - "32145", - "Iceland" - ], - [ - "932", - "Gillian", - "Osborne", - "L3L 6G0", - "Italy" - ], - [ - "933", - "Venus", - "Zamora", - "28318", - "Comoros" - ], - [ - "934", - "Allegra", - "Eaton", - "P5X 9S0", - "Antarctica" - ], - [ - "935", - "Driscoll", - "Preston", - "R3L 9R0", - "Niue" - ], - [ - "936", - "Joel", - "Spencer", - "12006", - "Monaco" - ], - [ - "937", - "Lucius", - "Sharp", - "B8V 6U7", - "Dominica" - ], - [ - "938", - "Curran", - "Robinson", - "82216", - "Romania" - ], - [ - "939", - "Kerry", - "Espinoza", - "N4B 7Q1", - "Guatemala" - ], - [ - "940", - "Isaac", - "Kline", - "85674", - "Costa Rica" - ], - [ - "941", - "Neil", - "Harrison", - "I5A 2S2", - "Greenland" - ], - [ - "942", - "Ezra", - "Rodriguez", - "D6P 5Q3", - "Angola" - ], - [ - "943", - "Galvin", - "Jefferson", - "D6H 7G0", - "Macedonia" - ], - [ - "944", - "Joseph", - "Hahn", - "Z8V 9B5", - "Uganda" - ], - [ - "945", - "Naida", - "Hammond", - "40105", - "Philippines" - ], - [ - "946", - "Brenna", - "Everett", - "41704", - "Indonesia" - ], - [ - "947", - "Rae", - "Parks", - "79077", - "Sweden" - ], - [ - "948", - "Jessica", - "Richard", - "Y3I 5R3", - "Uganda" - ], - [ - "949", - "Rachel", - "Marks", - "16157", - "Cameroon" - ], - [ - "950", - "Maxwell", - "Ferguson", - "V6A 6M0", - "Ukraine" - ], - [ - "951", - "Alyssa", - "Beard", - "13936", - "Antarctica" - ], - [ - "952", - "Camille", - "Gill", - "V9Q 9P7", - "New Caledonia" - ], - [ - "953", - "Cora", - "Bond", - "M9X 1A4", - "Seychelles" - ], - [ - "954", - "Peter", - "Acosta", - "07937", - "Chile" - ], - [ - "955", - "Ella", - "Poole", - "A3F 9Z1", - "Panama" - ], - [ - "956", - "Ashely", - "Guerrero", - "37436", - "Central African Republic" - ], - [ - "957", - "Mikayla", - "Johnston", - "L9W 5T8", - "Cameroon" - ], - [ - "958", - "Ora", - "Weaver", - "65897", - "Turks and Caicos Islands" - ], - [ - "959", - "Timon", - "Barnes", - "R6J 1J7", - "Djibouti" - ], - [ - "960", - "Jamalia", - "Wade", - "22211", - "United States" - ], - [ - "961", - "Bradley", - "Haney", - "K1H 1Q1", - "Western Sahara" - ], - [ - "962", - "Lance", - "Le", - "H4R 9T7", - "Botswana" - ], - [ - "963", - "Ethan", - "Rich", - "T8N 1C6", - "Netherlands" - ], - [ - "964", - "Jeanette", - "Carver", - "G1E 5C8", - "Cook Islands" - ], - [ - "965", - "Ocean", - "Marquez", - "15084", - "Pakistan" - ], - [ - "966", - "Ifeoma", - "Cleveland", - "R9D 6M1", - "French Guiana" - ], - [ - "967", - "Sylvia", - "Herring", - "U4R 8P1", - "Thailand" - ], - [ - "968", - "Clare", - "Huffman", - "Q5G 2Q0", - "Niger" - ], - [ - "969", - "Colton", - "Leach", - "V3F 9W6", - "Syrian Arab Republic" - ], - [ - "970", - "Maryam", - "Hoover", - "Y7U 6N3", - "Slovakia" - ], - [ - "971", - "Nola", - "Snider", - "54275", - "Bosnia and Herzegovina" - ], - [ - "972", - "Kameko", - "Cote", - "M3C 8N0", - "Cambodia" - ], - [ - "973", - "Julian", - "Pugh", - "B6E 7J7", - "Mauritania" - ], - [ - "974", - "Xena", - "Lott", - "52294", - "Estonia" - ], - [ - "975", - "Fuller", - "Kirk", - "65396", - "Qatar" - ], - [ - "976", - "Lance", - "Knox", - "78074", - "Serbia and Montenegro" - ], - [ - "977", - "Hedwig", - "Beck", - "T5P 4C8", - "Dominican Republic" - ], - [ - "978", - "Martena", - "Diaz", - "65420", - "Saint Pierre and Miquelon" - ], - [ - "979", - "Shafira", - "David", - "74843", - "Senegal" - ], - [ - "980", - "Shafira", - "Clark", - "T6F 5C7", - "Mongolia" - ], - [ - "981", - "Georgia", - "Booth", - "28183", - "Japan" - ], - [ - "982", - "Cameron", - "Austin", - "I2J 1R1", - "Bahrain" - ], - [ - "983", - "Vanna", - "Hyde", - "82434", - "Croatia" - ], - [ - "984", - "Deanna", - "Park", - "68486", - "Zimbabwe" - ], - [ - "985", - "Grady", - "Freeman", - "U4O 1Q9", - "Belarus" - ], - [ - "986", - "Sandra", - "Knapp", - "31413", - "Sudan" - ], - [ - "987", - "Dorian", - "Joseph", - "90768", - "Lithuania" - ], - [ - "988", - "Adria", - "Bonner", - "15899", - "Mongolia" - ], - [ - "989", - "Sebastian", - "Guzman", - "G9L 9G5", - "Yemen" - ], - [ - "990", - "Angelica", - "Puckett", - "W8D 8W8", - "Virgin Islands, U.S." - ], - [ - "991", - "Connor", - "Parks", - "26175", - "Virgin Islands, U.S." - ], - [ - "992", - "Yardley", - "Griffith", - "H3L 2U3", - "Saint Pierre and Miquelon" - ], - [ - "993", - "Charissa", - "Beck", - "30611", - "Zambia" - ], - [ - "994", - "Calvin", - "Russo", - "79906", - "Chile" - ], - [ - "995", - "Yoshi", - "Durham", - "N2J 8M8", - "China" - ], - [ - "996", - "Finn", - "Buck", - "Q9F 9Z8", - "Iraq" - ], - [ - "997", - "Kessie", - "Holden", - "C4A 1J0", - "Syrian Arab Republic" - ], - [ - "998", - "Chloe", - "Richards", - "63091", - "Canada" - ], - [ - "999", - "Uriel", - "Snyder", - "95487", - "Pakistan" - ], - [ - "1000", - "Maite", - "Cash", - "90705", - "Syrian Arab Republic" - ], - [ - "1001", - "Cameron", - "Schwartz", - "82778", - "Taiwan, Province of China" - ], - [ - "1002", - "Faith", - "Jimenez", - "J6K 2P9", - "Saint Pierre and Miquelon" - ], - [ - "1003", - "Otto", - "Hancock", - "34535", - "Andorra" - ], - [ - "1004", - "Harlan", - "Blackwell", - "N8Y 4E6", - "Qatar" - ], - [ - "1005", - "Fitzgerald", - "Gilliam", - "Y9J 6J5", - "Burkina Faso" - ], - [ - "1006", - "Lev", - "Ballard", - "01956", - "American Samoa" - ], - [ - "1007", - "Freya", - "Brown", - "01190", - "Portugal" - ], - [ - "1008", - "Harding", - "Osborn", - "14814", - "San Marino" - ], - [ - "1009", - "Alexander", - "Howard", - "81842", - "Reunion" - ], - [ - "1010", - "Ori", - "Marsh", - "77738", - "Saint Helena" - ], - [ - "1011", - "Brennan", - "Rich", - "18690", - "Cambodia" - ], - [ - "1012", - "Dawn", - "Christensen", - "Y8F 7R3", - "Mali" - ], - [ - "1013", - "Ahmed", - "Pearson", - "62230", - "Sudan" - ], - [ - "1014", - "Tanek", - "Head", - "25744", - "Kiribati" - ], - [ - "1015", - "Meredith", - "Cantu", - "E6X 2L1", - "Kenya" - ], - [ - "1016", - "Levi", - "Fisher", - "I9Y 9G2", - "Djibouti" - ], - [ - "1017", - "Katell", - "Cameron", - "10278", - "Denmark" - ], - [ - "1018", - "Ina", - "Orr", - "P7H 2O3", - "Congo" - ], - [ - "1019", - "Beck", - "Hayden", - "15115", - "Saint Lucia" - ], - [ - "1020", - "Cassady", - "Wagner", - "R9H 8C5", - "Estonia" - ], - [ - "1021", - "Amena", - "Herrera", - "13286", - "Bahrain" - ], - [ - "1022", - "Tarik", - "Gross", - "C3X 3W0", - "Azerbaijan" - ], - [ - "1023", - "Marshall", - "Collier", - "13416", - "Dominica" - ], - [ - "1024", - "Kirestin", - "Callahan", - "15429", - "Micronesia" - ], - [ - "1025", - "Sasha", - "Rice", - "O6H 6X2", - "Denmark" - ], - [ - "1026", - "Ross", - "Gonzalez", - "D3B 3R5", - "Sudan" - ], - [ - "1027", - "Veda", - "Arnold", - "56611", - "Swaziland" - ], - [ - "1028", - "Ferdinand", - "Macias", - "P1Q 3I2", - "Colombia" - ], - [ - "1029", - "Mohammad", - "Reed", - "74005", - "Bhutan" - ], - [ - "1030", - "Reagan", - "Sandoval", - "19275", - "Pitcairn" - ], - [ - "1031", - "Debra", - "Nelson", - "85945", - "Ukraine" - ], - [ - "1032", - "Cleo", - "Robertson", - "84072", - "Guadeloupe" - ], - [ - "1033", - "Tanya", - "Vance", - "C1F 7F1", - "Romania" - ], - [ - "1034", - "Desirae", - "Wooten", - "74659", - "Mongolia" - ], - [ - "1035", - "Hiram", - "Estes", - "Q5Z 5A0", - "Namibia" - ], - [ - "1036", - "Medge", - "Weiss", - "67079", - "Azerbaijan" - ], - [ - "1037", - "Hu", - "Chase", - "87562", - "Cuba" - ], - [ - "1038", - "Shafira", - "Everett", - "18983", - "Georgia" - ], - [ - "1039", - "Mannix", - "Lamb", - "45542", - "Venezuela" - ], - [ - "1040", - "Germaine", - "Harvey", - "I9G 1U0", - "Falkland Islands (Malvinas)" - ], - [ - "1041", - "Brenna", - "Leonard", - "55573", - "New Zealand" - ], - [ - "1042", - "Kylie", - "Rivas", - "U9J 3O9", - "Djibouti" - ], - [ - "1043", - "Alexandra", - "Rich", - "T4O 6S6", - "Cuba" - ], - [ - "1044", - "Dorian", - "Spears", - "00456", - "Brazil" - ], - [ - "1045", - "Laurel", - "Abbott", - "45449", - "Switzerland" - ], - [ - "1046", - "Gabriel", - "Drake", - "U1S 5O2", - "Trinidad and Tobago" - ], - [ - "1047", - "Priscilla", - "Mercer", - "01401", - "Serbia and Montenegro" - ], - [ - "1048", - "Darius", - "Hoffman", - "49694", - "Greece" - ], - [ - "1049", - "Caesar", - "Patton", - "42322", - "Suriname" - ], - [ - "1050", - "Susan", - "Clayton", - "W1G 5C3", - "Maldives" - ], - [ - "1051", - "Zane", - "Dunlap", - "73722", - "Oman" - ], - [ - "1052", - "Leah", - "Fuentes", - "60412", - "Luxembourg" - ], - [ - "1053", - "Yardley", - "Hansen", - "03194", - "Mauritius" - ], - [ - "1054", - "Ingrid", - "Talley", - "37315", - "Solomon Islands" - ], - [ - "1055", - "Demetria", - "Evans", - "30587", - "Tajikistan" - ], - [ - "1056", - "Ignacia", - "Alford", - "01282", - "Bouvet Island" - ], - [ - "1057", - "Destiny", - "Wade", - "L5R 3V3", - "Uganda" - ], - [ - "1058", - "Alden", - "Mason", - "V7D 2V6", - "Dominican Republic" - ], - [ - "1059", - "Pamela", - "Wilcox", - "L1I 6I1", - "Canada" - ], - [ - "1060", - "Melvin", - "Buckley", - "05478", - "Hungary" - ], - [ - "1061", - "Eve", - "Holcomb", - "B6B 8T1", - "Cook Islands" - ], - [ - "1062", - "Arthur", - "Weeks", - "R5P 7U2", - "Bangladesh" - ], - [ - "1063", - "Marah", - "Levine", - "10075", - "Somalia" - ], - [ - "1064", - "Keiko", - "Freeman", - "90950", - "Faroe Islands" - ], - [ - "1065", - "Dorian", - "Rose", - "T5M 4Z0", - "Fiji" - ], - [ - "1066", - "Desirae", - "Velez", - "T4E 8K2", - "Afghanistan" - ], - [ - "1067", - "Rebekah", - "Lucas", - "T9A 8V5", - "Tunisia" - ], - [ - "1068", - "Sylvester", - "Copeland", - "W6R 3B6", - "Jamaica" - ], - [ - "1069", - "Alea", - "Preston", - "31050", - "Netherlands Antilles" - ], - [ - "1070", - "Aphrodite", - "Gordon", - "T7C 6T8", - "Sao Tome and Principe" - ], - [ - "1071", - "Yael", - "Delaney", - "G9W 9P1", - "Mexico" - ], - [ - "1072", - "Sierra", - "Perez", - "R3O 8H0", - "Slovenia" - ], - [ - "1073", - "Avram", - "Briggs", - "05221", - "Norfolk Island" - ], - [ - "1074", - "Troy", - "Poole", - "W7Q 8O5", - "Malta" - ], - [ - "1075", - "Gavin", - "Sandoval", - "37352", - "Greece" - ], - [ - "1076", - "Nerea", - "Stokes", - "N2Q 6S9", - "United States" - ], - [ - "1077", - "Genevieve", - "Ramirez", - "53829", - "Mali" - ], - [ - "1078", - "Oliver", - "Boone", - "M1Q 8V9", - "Bolivia" - ], - [ - "1079", - "Lars", - "Ramirez", - "L2R 6V2", - "Bosnia and Herzegovina" - ], - [ - "1080", - "Abbot", - "Horton", - "R1R 1V8", - "Netherlands Antilles" - ], - [ - "1081", - "Abra", - "Avila", - "41608", - "Congo" - ], - [ - "1082", - "Candice", - "Christian", - "13930", - "Faroe Islands" - ], - [ - "1083", - "Flavia", - "Miranda", - "93964", - "Estonia" - ], - [ - "1084", - "Medge", - "Drake", - "Q7C 2E2", - "Belize" - ], - [ - "1085", - "Lee", - "Montgomery", - "H3T 4Q6", - "Costa Rica" - ], - [ - "1086", - "Aline", - "Ratliff", - "99839", - "Macao" - ], - [ - "1087", - "Shafira", - "Fox", - "A9S 7C8", - "Palestinian Territory, Occupied" - ], - [ - "1088", - "Orson", - "Greene", - "K9L 7R8", - "Myanmar" - ], - [ - "1089", - "Henry", - "Joyner", - "55853", - "South Africa" - ], - [ - "1090", - "Keely", - "Boyer", - "08996", - "Liberia" - ], - [ - "1091", - "Jerome", - "Jones", - "31770", - "Saint Lucia" - ], - [ - "1092", - "Hermione", - "Dunlap", - "U2R 7R2", - "Moldova" - ], - [ - "1093", - "Lenore", - "Powers", - "73772", - "Tunisia" - ], - [ - "1094", - "Alden", - "Newman", - "V4C 3O8", - "Bhutan" - ], - [ - "1095", - "Jasper", - "Blevins", - "K2H 5W0", - "Paraguay" - ], - [ - "1096", - "Robert", - "Bender", - "R5F 1H9", - "Philippines" - ], - [ - "1097", - "Bo", - "Richard", - "N5R 6T2", - "Trinidad and Tobago" - ], - [ - "1098", - "Iliana", - "Mcpherson", - "23758", - "Bangladesh" - ], - [ - "1099", - "Alfreda", - "Camacho", - "35387", - "Saint Helena" - ], - [ - "1100", - "Kirsten", - "Giles", - "14079", - "Romania" - ], - [ - "1101", - "Harlan", - "Crawford", - "84847", - "French Polynesia" - ], - [ - "1102", - "Wynne", - "Bauer", - "W9D 6F6", - "Kazakhstan" - ], - [ - "1103", - "Connor", - "Melton", - "E2F 4Q2", - "Angola" - ], - [ - "1104", - "Evelyn", - "Barry", - "I9H 8W7", - "Turkmenistan" - ], - [ - "1105", - "Barry", - "Stephens", - "07823", - "Gibraltar" - ], - [ - "1106", - "Ferris", - "Farrell", - "I7H 5Z6", - "Saint Vincent and The Grenadines" - ], - [ - "1107", - "Ursa", - "Carr", - "31124", - "Chad" - ], - [ - "1108", - "Laith", - "Johnson", - "10428", - "Cyprus" - ], - [ - "1109", - "Harlan", - "Frank", - "J6K 7I6", - "Gambia" - ], - [ - "1110", - "Gregory", - "Ratliff", - "P1C 8H2", - "Chile" - ], - [ - "1111", - "Rina", - "Holloway", - "Y7N 1E7", - "Estonia" - ], - [ - "1112", - "Maris", - "Joyner", - "T6R 2H9", - "France" - ], - [ - "1113", - "Galvin", - "Webster", - "V8E 9U4", - "Croatia" - ], - [ - "1114", - "Farrah", - "Bean", - "H2B 8E2", - "Palestinian Territory, Occupied" - ], - [ - "1115", - "Martha", - "Schroeder", - "14485", - "Georgia" - ], - [ - "1116", - "Mari", - "Boone", - "D4C 1Q0", - "Comoros" - ], - [ - "1117", - "Nadine", - "Mercado", - "35046", - "Syrian Arab Republic" - ], - [ - "1118", - "Isadora", - "Keith", - "R5H 8Y7", - "Mayotte" - ], - [ - "1119", - "Quinn", - "William", - "V8Q 3Y6", - "India" - ], - [ - "1120", - "Justina", - "Gilbert", - "11271", - "Yemen" - ], - [ - "1121", - "Jordan", - "Hull", - "F4Z 7R8", - "Lesotho" - ], - [ - "1122", - "Mechelle", - "Davenport", - "A9Z 8P2", - "Bermuda" - ], - [ - "1123", - "Isabelle", - "Webster", - "60972", - "Zimbabwe" - ], - [ - "1124", - "Armand", - "Butler", - "Y3F 4H9", - "Nicaragua" - ], - [ - "1125", - "Herman", - "Beach", - "Q8N 6V3", - "Cape Verde" - ], - [ - "1126", - "Brianna", - "Love", - "D9B 2W8", - "Sierra Leone" - ], - [ - "1127", - "Joy", - "Brown", - "O7V 7C1", - "Djibouti" - ], - [ - "1128", - "Amena", - "Moss", - "P8D 1L9", - "Andorra" - ], - [ - "1129", - "Zeph", - "Whitehead", - "01513", - "Tanzania, United Republic of" - ], - [ - "1130", - "Logan", - "Matthews", - "73541", - "Finland" - ], - [ - "1131", - "Amela", - "Gregory", - "65323", - "Swaziland" - ], - [ - "1132", - "Zoe", - "Owen", - "V5L 5O6", - "Zambia" - ], - [ - "1133", - "September", - "Hewitt", - "R8K 4G9", - "Congo" - ], - [ - "1134", - "Holly", - "Walter", - "S2E 3M4", - "Serbia and Montenegro" - ], - [ - "1135", - "Zeph", - "Beach", - "J6Z 8B5", - "Ecuador" - ], - [ - "1136", - "Morgan", - "Decker", - "M9H 8I5", - "Uruguay" - ], - [ - "1137", - "Malcolm", - "Maldonado", - "S6F 8X6", - "Netherlands" - ], - [ - "1138", - "Fay", - "Day", - "B9R 1U7", - "Seychelles" - ], - [ - "1139", - "Charles", - "Juarez", - "62791", - "Virgin Islands, U.S." - ], - [ - "1140", - "Amery", - "Stout", - "L9A 1F8", - "Central African Republic" - ], - [ - "1141", - "Irene", - "Ferrell", - "52649", - "Norway" - ], - [ - "1142", - "Dean", - "Stout", - "N5C 2S8", - "Uruguay" - ], - [ - "1143", - "Eric", - "Baxter", - "82082", - "Chile" - ], - [ - "1144", - "Shelley", - "Larsen", - "Y4T 4P3", - "Antarctica" - ], - [ - "1145", - "Rigel", - "Ellis", - "E3S 6K8", - "Zimbabwe" - ], - [ - "1146", - "Maite", - "Rosa", - "F6C 5Q9", - "Zambia" - ], - [ - "1147", - "Serena", - "Blanchard", - "99373", - "Estonia" - ], - [ - "1148", - "Melanie", - "Berger", - "C5P 4E2", - "Mozambique" - ], - [ - "1149", - "Noah", - "Spence", - "B8H 7X7", - "Martinique" - ], - [ - "1150", - "Elliott", - "Pierce", - "W5B 8V7", - "Swaziland" - ], - [ - "1151", - "Ahmed", - "Chang", - "E9X 7J0", - "Bulgaria" - ], - [ - "1152", - "Ross", - "Figueroa", - "22458", - "China" - ], - [ - "1153", - "Gary", - "Calderon", - "V3C 4J8", - "Algeria" - ], - [ - "1154", - "Montana", - "Franklin", - "94093", - "Haiti" - ], - [ - "1155", - "Rae", - "Curry", - "45477", - "Morocco" - ], - [ - "1156", - "Jillian", - "Hogan", - "N8L 4B5", - "Iceland" - ], - [ - "1157", - "Mia", - "Kaufman", - "54758", - "Burkina Faso" - ], - [ - "1158", - "Remedios", - "Wilkerson", - "75420", - "Saint Vincent and The Grenadines" - ], - [ - "1159", - "Xanthus", - "Baldwin", - "13961", - "Congo" - ], - [ - "1160", - "Madeline", - "Gates", - "76351", - "Saint Helena" - ], - [ - "1161", - "Leroy", - "Craig", - "12770", - "Finland" - ], - [ - "1162", - "Melanie", - "Carpenter", - "C3B 8L4", - "Mayotte" - ], - [ - "1163", - "Ashely", - "Mcneil", - "E7E 9K5", - "French Southern Territories" - ], - [ - "1164", - "Karina", - "Mcneil", - "39956", - "United Arab Emirates" - ], - [ - "1165", - "Nina", - "Mills", - "92913", - "Saint Kitts and Nevis" - ], - [ - "1166", - "Ashton", - "Singleton", - "73890", - "Libyan Arab Jamahiriya" - ], - [ - "1167", - "Meghan", - "Black", - "31814", - "Armenia" - ], - [ - "1168", - "Jolene", - "Pope", - "U6K 7O6", - "Venezuela" - ], - [ - "1169", - "Abel", - "Boyd", - "37110", - "Botswana" - ], - [ - "1170", - "Tiger", - "Coffey", - "Y6P 3S4", - "Faroe Islands" - ], - [ - "1171", - "Aileen", - "Rowe", - "F7G 8D9", - "Netherlands Antilles" - ], - [ - "1172", - "Bryar", - "Forbes", - "T2N 5H6", - "Saint Vincent and The Grenadines" - ], - [ - "1173", - "Vera", - "Hoffman", - "36299", - "Guadeloupe" - ], - [ - "1174", - "Hadassah", - "Wright", - "S8J 5B2", - "Peru" - ], - [ - "1175", - "Bruce", - "Blair", - "Q8E 7K6", - "Cape Verde" - ], - [ - "1176", - "Brianna", - "Wolf", - "V8S 5A6", - "Bahamas" - ], - [ - "1177", - "Kimberley", - "Reed", - "17652", - "Tajikistan" - ], - [ - "1178", - "Colin", - "Phelps", - "42334", - "Brunei Darussalam" - ], - [ - "1179", - "Gil", - "Britt", - "U3N 6C2", - "Swaziland" - ], - [ - "1180", - "Hasad", - "Pena", - "09526", - "United States" - ], - [ - "1181", - "Violet", - "Dixon", - "48691", - "Micronesia" - ], - [ - "1182", - "Uriel", - "Bowen", - "Z7F 7A7", - "Uzbekistan" - ], - [ - "1183", - "Madeline", - "Keller", - "18227", - "Iran, Islamic Republic of" - ], - [ - "1184", - "Buffy", - "Mckee", - "23861", - "Ethiopia" - ], - [ - "1185", - "Doris", - "Martin", - "V8N 8O7", - "Liberia" - ], - [ - "1186", - "Mia", - "Burke", - "64582", - "Virgin Islands, British" - ], - [ - "1187", - "William", - "Kemp", - "63587", - "Tuvalu" - ], - [ - "1188", - "Stacy", - "Quinn", - "01390", - "Nauru" - ], - [ - "1189", - "Halla", - "Solomon", - "31138", - "Pakistan" - ], - [ - "1190", - "Kasimir", - "Rodriguez", - "67823", - "Costa Rica" - ], - [ - "1191", - "Davis", - "Lawrence", - "27918", - "Rwanda" - ], - [ - "1192", - "Nigel", - "Bryan", - "L5U 2U9", - "Seychelles" - ], - [ - "1193", - "Ivana", - "Stone", - "94862", - "Niue" - ], - [ - "1194", - "Naomi", - "Yang", - "68985", - "Haiti" - ], - [ - "1195", - "Roanna", - "Brown", - "51196", - "India" - ], - [ - "1196", - "Colorado", - "Chavez", - "45634", - "Brazil" - ], - [ - "1197", - "Illana", - "Levy", - "V1A 7R8", - "Jordan" - ], - [ - "1198", - "Ali", - "Lowe", - "N8K 1Y5", - "Hungary" - ], - [ - "1199", - "Virginia", - "Witt", - "Y3O 5W8", - "Azerbaijan" - ], - [ - "1200", - "Howard", - "Flores", - "I9C 3Q7", - "Fiji" - ], - [ - "1201", - "Walter", - "Odom", - "78418", - "Thailand" - ], - [ - "1202", - "Thor", - "Craig", - "00935", - "Jamaica" - ], - [ - "1203", - "Petra", - "Barry", - "E5L 5K5", - "Finland" - ], - [ - "1204", - "Lev", - "Ellison", - "I6S 1K1", - "Mongolia" - ], - [ - "1205", - "Roth", - "Osborne", - "15014", - "Swaziland" - ], - [ - "1206", - "Lucius", - "Baldwin", - "12766", - "China" - ], - [ - "1207", - "Candice", - "Hyde", - "B5E 4B8", - "Bahamas" - ], - [ - "1208", - "Maggy", - "Bailey", - "76781", - "Northern Mariana Islands" - ], - [ - "1209", - "Beatrice", - "Gregory", - "S5S 8S4", - "Rwanda" - ], - [ - "1210", - "Adrian", - "Bowman", - "58500", - "Vanuatu" - ], - [ - "1211", - "Brenden", - "Chandler", - "50326", - "Thailand" - ], - [ - "1212", - "Jada", - "Richmond", - "15990", - "Saint Vincent and The Grenadines" - ], - [ - "1213", - "Sawyer", - "Page", - "G2W 7R7", - "Somalia" - ], - [ - "1214", - "Haley", - "Jordan", - "U7X 4U2", - "Equatorial Guinea" - ], - [ - "1215", - "Ruby", - "Watson", - "30990", - "Romania" - ], - [ - "1216", - "Jocelyn", - "Knowles", - "78987", - "Lebanon" - ], - [ - "1217", - "Preston", - "Stevenson", - "F3L 9B3", - "Mali" - ], - [ - "1218", - "Kimberly", - "Merritt", - "38779", - "Venezuela" - ], - [ - "1219", - "Herrod", - "Burke", - "56225", - "French Guiana" - ], - [ - "1220", - "Solomon", - "Shannon", - "67980", - "Cape Verde" - ], - [ - "1221", - "Bradley", - "Stokes", - "10213", - "Botswana" - ], - [ - "1222", - "Grace", - "Kinney", - "67923", - "Montserrat" - ], - [ - "1223", - "Celeste", - "Clark", - "S7M 6I2", - "Guatemala" - ], - [ - "1224", - "Patricia", - "Frank", - "05615", - "Venezuela" - ], - [ - "1225", - "Madonna", - "Alford", - "10878", - "Brunei Darussalam" - ], - [ - "1226", - "May", - "Rios", - "N7O 2L0", - "Georgia" - ], - [ - "1227", - "Driscoll", - "Roach", - "Y7F 9F8", - "Palestinian Territory, Occupied" - ], - [ - "1228", - "Idona", - "Cruz", - "T6Q 8L4", - "Iraq" - ], - [ - "1229", - "Sydney", - "Delacruz", - "69511", - "United Arab Emirates" - ], - [ - "1230", - "Gillian", - "Huff", - "52624", - "French Southern Territories" - ], - [ - "1231", - "Minerva", - "Rosario", - "29195", - "Andorra" - ], - [ - "1232", - "Kerry", - "Alvarado", - "L3Q 2V5", - "Portugal" - ], - [ - "1233", - "Amos", - "Bass", - "26389", - "Holy See (Vatican City State)" - ], - [ - "1234", - "Deanna", - "Parks", - "57376", - "Estonia" - ], - [ - "1235", - "Fitzgerald", - "Green", - "M3P 9N2", - "Slovenia" - ], - [ - "1236", - "Sade", - "Hinton", - "35561", - "Barbados" - ], - [ - "1237", - "Suki", - "Parsons", - "44591", - "Syrian Arab Republic" - ], - [ - "1238", - "Orli", - "Weeks", - "K2W 9L4", - "Peru" - ], - [ - "1239", - "Nicholas", - "Copeland", - "I5W 7A4", - "French Guiana" - ], - [ - "1240", - "Guy", - "Vang", - "22277", - "Pitcairn" - ], - [ - "1241", - "Hunter", - "Goodman", - "72290", - "Malaysia" - ], - [ - "1242", - "Noble", - "Rich", - "I3B 6T9", - "Gibraltar" - ], - [ - "1243", - "Delilah", - "Zamora", - "96328", - "New Zealand" - ], - [ - "1244", - "Sybil", - "Mercer", - "93665", - "Namibia" - ], - [ - "1245", - "Scarlett", - "Brock", - "Z2E 3J2", - "Central African Republic" - ], - [ - "1246", - "Channing", - "Alexander", - "W5V 8D2", - "San Marino" - ], - [ - "1247", - "Carolyn", - "Boyle", - "Q5Z 9E6", - "Gabon" - ], - [ - "1248", - "Irene", - "Jennings", - "F3H 4O6", - "Saint Helena" - ], - [ - "1249", - "Bianca", - "Pratt", - "66354", - "Malaysia" - ], - [ - "1250", - "Dexter", - "Cole", - "56106", - "French Southern Territories" - ], - [ - "1251", - "Berk", - "Velez", - "26759", - "Lesotho" - ], - [ - "1252", - "Barrett", - "Richardson", - "59446", - "Cocos (Keeling) Islands" - ], - [ - "1253", - "Scarlet", - "Jacobs", - "G9A 7L6", - "Dominica" - ], - [ - "1254", - "Aiko", - "Brooks", - "R6R 9E4", - "Liberia" - ], - [ - "1255", - "Jacob", - "Moore", - "P2Y 6P3", - "Cambodia" - ], - [ - "1256", - "Madeline", - "Bishop", - "D4I 2E7", - "Dominican Republic" - ], - [ - "1257", - "Jarrod", - "Evans", - "C9O 7V7", - "Taiwan, Province of China" - ], - [ - "1258", - "Beverly", - "Witt", - "64850", - "Denmark" - ], - [ - "1259", - "Karyn", - "Rhodes", - "D6G 5Z3", - "Cape Verde" - ], - [ - "1260", - "Imani", - "Quinn", - "01897", - "Macao" - ], - [ - "1261", - "Athena", - "Eaton", - "03568", - "Syrian Arab Republic" - ], - [ - "1262", - "Raymond", - "Valdez", - "21037", - "Romania" - ], - [ - "1263", - "Christopher", - "Ferguson", - "64945", - "Indonesia" - ], - [ - "1264", - "Latifah", - "Harris", - "91381", - "Suriname" - ], - [ - "1265", - "Dacey", - "Wagner", - "81483", - "Qatar" - ], - [ - "1266", - "Summer", - "Myers", - "H6A 1G5", - "Angola" - ], - [ - "1267", - "Jasmine", - "Rivera", - "Y4W 8P2", - "Virgin Islands, British" - ], - [ - "1268", - "Cairo", - "Massey", - "Q6Y 7A7", - "Poland" - ], - [ - "1269", - "Jena", - "Hill", - "89480", - "United States Minor Outlying Islands" - ], - [ - "1270", - "Ava", - "Benson", - "L9H 8V1", - "Sri Lanka" - ], - [ - "1271", - "Gillian", - "Mercado", - "A9W 6V5", - "Norway" - ], - [ - "1272", - "Peter", - "Marquez", - "I5B 3W9", - "Guyana" - ], - [ - "1273", - "Price", - "Coleman", - "X8G 2S0", - "Burkina Faso" - ], - [ - "1274", - "Shana", - "Harper", - "L2B 3U9", - "Malaysia" - ], - [ - "1275", - "Serina", - "Matthews", - "58061", - "Lithuania" - ], - [ - "1276", - "Aretha", - "Bryant", - "Y8J 7A5", - "Tonga" - ], - [ - "1277", - "Wesley", - "Craig", - "20141", - "Australia" - ], - [ - "1278", - "Martena", - "Mercer", - "P6X 2L9", - "Sudan" - ], - [ - "1279", - "Tamara", - "Dennis", - "D3H 9R0", - "Mali" - ], - [ - "1280", - "Phelan", - "Pena", - "D2H 2H7", - "United States Minor Outlying Islands" - ], - [ - "1281", - "Rebecca", - "Kinney", - "B5Z 9S4", - "Antarctica" - ], - [ - "1282", - "Josephine", - "Delgado", - "81010", - "Algeria" - ], - [ - "1283", - "Kieran", - "Estes", - "70093", - "Bermuda" - ], - [ - "1284", - "Tamara", - "Williamson", - "90905", - "French Guiana" - ], - [ - "1285", - "Dora", - "Serrano", - "W8K 6R5", - "Nauru" - ], - [ - "1286", - "Morgan", - "Bass", - "B6F 8R2", - "Madagascar" - ], - [ - "1287", - "Margaret", - "Austin", - "D2C 2C1", - "Belgium" - ], - [ - "1288", - "Nasim", - "Berry", - "J9X 7M5", - "Heard Island and Mcdonald Islands" - ], - [ - "1289", - "Jelani", - "Rutledge", - "34552", - "Bolivia" - ], - [ - "1290", - "Cassady", - "Hardin", - "I2K 4H6", - "Hong Kong" - ], - [ - "1291", - "Jenette", - "Thornton", - "44943", - "Uganda" - ], - [ - "1292", - "Alexandra", - "Sims", - "93937", - "Australia" - ], - [ - "1293", - "Ross", - "Higgins", - "61993", - "Nicaragua" - ], - [ - "1294", - "Penelope", - "Henson", - "90344", - "Trinidad and Tobago" - ], - [ - "1295", - "Yoshi", - "Blackwell", - "C8D 1T4", - "Costa Rica" - ], - [ - "1296", - "Daria", - "Rodriquez", - "X3C 6L0", - "Iceland" - ], - [ - "1297", - "Wesley", - "Waller", - "43947", - "Myanmar" - ], - [ - "1298", - "Adam", - "Hayden", - "88969", - "Italy" - ], - [ - "1299", - "Charity", - "William", - "46439", - "Greece" - ], - [ - "1300", - "Ronan", - "Hopper", - "51955", - "Zambia" - ], - [ - "1301", - "Geraldine", - "Hatfield", - "W9S 7T5", - "Luxembourg" - ], - [ - "1302", - "Barry", - "Nicholson", - "79625", - "Liechtenstein" - ], - [ - "1303", - "Donovan", - "Ortiz", - "68119", - "Macao" - ], - [ - "1304", - "Jeanette", - "Cooper", - "D5P 9L2", - "Sri Lanka" - ], - [ - "1305", - "Isadora", - "Stephenson", - "P4X 4H5", - "Mauritania" - ], - [ - "1306", - "Hall", - "Hays", - "J2Z 2H1", - "Svalbard and Jan Mayen" - ], - [ - "1307", - "Idola", - "Roberson", - "89249", - "Niue" - ], - [ - "1308", - "Olympia", - "Dennis", - "69498", - "Guinea" - ], - [ - "1309", - "Naida", - "Palmer", - "19840", - "Gambia" - ], - [ - "1310", - "Maxine", - "Rollins", - "87856", - "Belize" - ], - [ - "1311", - "Rooney", - "Phelps", - "48424", - "Italy" - ], - [ - "1312", - "Shelly", - "Edwards", - "O7O 1U4", - "Mali" - ], - [ - "1313", - "Cassidy", - "Holcomb", - "98785", - "Colombia" - ], - [ - "1314", - "Sybil", - "Moran", - "F3C 6E4", - "Switzerland" - ], - [ - "1315", - "Mufutau", - "Larson", - "00276", - "British Indian Ocean Territory" - ], - [ - "1316", - "Fiona", - "Bryant", - "U7Y 7N6", - "Cocos (Keeling) Islands" - ], - [ - "1317", - "Lenore", - "Boyle", - "H5G 6P9", - "Sudan" - ], - [ - "1318", - "Ignacia", - "Avila", - "Y5M 1S2", - "Romania" - ], - [ - "1319", - "Wendy", - "Stein", - "25422", - "Taiwan, Province of China" - ], - [ - "1320", - "Garrison", - "Bass", - "B9J 6D9", - "Romania" - ], - [ - "1321", - "Curran", - "Roy", - "X2F 4P2", - "Taiwan, Province of China" - ], - [ - "1322", - "Oliver", - "Beach", - "N6J 1C5", - "Kazakhstan" - ], - [ - "1323", - "Bo", - "Duran", - "D5C 5C2", - "Eritrea" - ], - [ - "1324", - "Tashya", - "Morrow", - "N2J 7O9", - "Rwanda" - ], - [ - "1325", - "Cheryl", - "Powell", - "72413", - "Niger" - ], - [ - "1326", - "Justin", - "Roth", - "18779", - "Brunei Darussalam" - ], - [ - "1327", - "Nathaniel", - "Foster", - "04955", - "Bermuda" - ], - [ - "1328", - "Candace", - "Nunez", - "G7Z 1N2", - "Moldova" - ], - [ - "1329", - "Nero", - "West", - "K3Q 6B3", - "Myanmar" - ], - [ - "1330", - "Brendan", - "Mcintyre", - "C4E 5H7", - "Argentina" - ], - [ - "1331", - "Chaney", - "Stafford", - "V3X 8J4", - "Benin" - ], - [ - "1332", - "Sylvia", - "Velez", - "95851", - "Iraq" - ], - [ - "1333", - "Azalia", - "Castro", - "55986", - "Israel" - ], - [ - "1334", - "Emily", - "Hogan", - "74667", - "Botswana" - ], - [ - "1335", - "Buckminster", - "Hurst", - "N9C 2X6", - "Reunion" - ], - [ - "1336", - "Rinah", - "Rodriquez", - "31896", - "Guinea-bissau" - ], - [ - "1337", - "Nash", - "Barnett", - "Y8X 7H5", - "China" - ], - [ - "1338", - "Xanthus", - "Barker", - "11212", - "Trinidad and Tobago" - ], - [ - "1339", - "Minerva", - "Huber", - "M6M 9U3", - "Equatorial Guinea" - ], - [ - "1340", - "Kaseem", - "Tillman", - "86565", - "Bulgaria" - ], - [ - "1341", - "Cassidy", - "Dejesus", - "93205", - "Sierra Leone" - ], - [ - "1342", - "Sheila", - "Munoz", - "26473", - "Benin" - ], - [ - "1343", - "Florence", - "Yates", - "M5O 1J1", - "Russian Federation" - ], - [ - "1344", - "Isadora", - "Wagner", - "88381", - "Philippines" - ], - [ - "1345", - "Hilel", - "Kramer", - "E5D 4F5", - "Lebanon" - ], - [ - "1346", - "Stewart", - "Lawson", - "67313", - "Malaysia" - ], - [ - "1347", - "Ira", - "Duffy", - "52841", - "Greece" - ], - [ - "1348", - "Ignatius", - "Robinson", - "10035", - "Russian Federation" - ], - [ - "1349", - "Baxter", - "Carroll", - "92288", - "Albania" - ], - [ - "1350", - "Palmer", - "James", - "N5X 5B1", - "Germany" - ], - [ - "1351", - "Ava", - "Eaton", - "76497", - "Egypt" - ], - [ - "1352", - "Kiona", - "Smith", - "09402", - "Belize" - ], - [ - "1353", - "Brian", - "Barlow", - "00156", - "Panama" - ], - [ - "1354", - "Nolan", - "Rosa", - "J2O 9W2", - "Uruguay" - ], - [ - "1355", - "Teegan", - "Burnett", - "02401", - "Italy" - ], - [ - "1356", - "Erin", - "Knox", - "95496", - "Egypt" - ], - [ - "1357", - "Amela", - "Sanford", - "59890", - "Virgin Islands, U.S." - ], - [ - "1358", - "Quemby", - "Hensley", - "17698", - "Tuvalu" - ], - [ - "1359", - "Ava", - "York", - "J1M 1A0", - "Nigeria" - ], - [ - "1360", - "Vivien", - "Ware", - "N9S 1W6", - "Bahamas" - ], - [ - "1361", - "Nyssa", - "Lamb", - "97964", - "Estonia" - ], - [ - "1362", - "Brenna", - "Slater", - "L4P 5V6", - "British Indian Ocean Territory" - ], - [ - "1363", - "Kennan", - "Larsen", - "M2A 4X0", - "Angola" - ], - [ - "1364", - "Linda", - "Luna", - "P8C 4S8", - "Gambia" - ], - [ - "1365", - "Boris", - "Poole", - "U7J 4G1", - "Aruba" - ], - [ - "1366", - "Lyle", - "Cote", - "F5J 3Y2", - "Somalia" - ], - [ - "1367", - "Oleg", - "Knapp", - "K4C 5T8", - "Guinea" - ], - [ - "1368", - "Hanae", - "Brown", - "51395", - "Nepal" - ], - [ - "1369", - "India", - "Hyde", - "E8P 7E8", - "Belize" - ], - [ - "1370", - "Madeson", - "Hodge", - "23265", - "Gambia" - ], - [ - "1371", - "Thaddeus", - "Hester", - "Y7S 5W1", - "Saint Helena" - ], - [ - "1372", - "Aaron", - "Kemp", - "A1Q 8R3", - "Albania" - ], - [ - "1373", - "Aurelia", - "Thornton", - "P8T 9D4", - "Swaziland" - ], - [ - "1374", - "Preston", - "Sharpe", - "97472", - "Niue" - ], - [ - "1375", - "Grace", - "Gregory", - "51767", - "Burkina Faso" - ], - [ - "1376", - "Nicole", - "Hicks", - "81040", - "Burkina Faso" - ], - [ - "1377", - "Hall", - "Randall", - "X1C 7A8", - "Cambodia" - ], - [ - "1378", - "Burke", - "Silva", - "57219", - "Romania" - ], - [ - "1379", - "Talon", - "Kline", - "28200", - "Argentina" - ], - [ - "1380", - "Cassady", - "Duncan", - "Y2M 8F5", - "Kenya" - ], - [ - "1381", - "Brielle", - "Reed", - "06254", - "Greece" - ], - [ - "1382", - "Claire", - "Stein", - "50289", - "Viet Nam" - ], - [ - "1383", - "Fleur", - "Cabrera", - "30131", - "Indonesia" - ], - [ - "1384", - "Ella", - "Ellison", - "Q7Q 4R2", - "Netherlands Antilles" - ], - [ - "1385", - "Zachery", - "Wolf", - "A9Q 6A8", - "Jamaica" - ], - [ - "1386", - "Emerson", - "Brewer", - "Y4R 9M9", - "Bosnia and Herzegovina" - ], - [ - "1387", - "Sarah", - "Brooks", - "27281", - "Pitcairn" - ], - [ - "1388", - "Kylan", - "Garrison", - "S8E 7L8", - "Djibouti" - ], - [ - "1389", - "Guinevere", - "Mills", - "75612", - "Comoros" - ], - [ - "1390", - "Claudia", - "Stevenson", - "73390", - "Colombia" - ], - [ - "1391", - "Valentine", - "Burton", - "Z9P 7R8", - "Nauru" - ], - [ - "1392", - "Raymond", - "Mclean", - "L8W 2K5", - "Brunei Darussalam" - ], - [ - "1393", - "Juliet", - "Combs", - "88712", - "Samoa" - ], - [ - "1394", - "Lawrence", - "Williamson", - "32528", - "Netherlands Antilles" - ], - [ - "1395", - "Inga", - "Rivers", - "12850", - "Kuwait" - ], - [ - "1396", - "Mira", - "Zimmerman", - "D1I 1W2", - "Ireland" - ], - [ - "1397", - "Hilda", - "Stafford", - "11054", - "Cuba" - ], - [ - "1398", - "Tanek", - "Kim", - "88590", - "Cayman Islands" - ], - [ - "1399", - "Bryar", - "Mcintyre", - "H6F 4S5", - "Russian Federation" - ], - [ - "1400", - "Sean", - "Reed", - "P2V 8J9", - "Malta" - ], - [ - "1401", - "Serena", - "Henderson", - "Z5C 8A0", - "Madagascar" - ], - [ - "1402", - "Hedley", - "Parks", - "L8S 6F4", - "Angola" - ], - [ - "1403", - "Alice", - "Quinn", - "06084", - "Senegal" - ], - [ - "1404", - "Linda", - "Burgess", - "H1E 7C0", - "Turkmenistan" - ], - [ - "1405", - "Hilda", - "Burns", - "Q9Q 4S2", - "Kyrgyzstan" - ], - [ - "1406", - "Griffith", - "Watts", - "D4J 7N2", - "United States Minor Outlying Islands" - ], - [ - "1407", - "Camden", - "Glenn", - "12939", - "Russian Federation" - ], - [ - "1408", - "Tallulah", - "Rush", - "G9V 3N2", - "Turkey" - ], - [ - "1409", - "Hasad", - "Salinas", - "H3F 7P9", - "Cameroon" - ], - [ - "1410", - "Violet", - "Chavez", - "T2H 9C6", - "Virgin Islands, U.S." - ], - [ - "1411", - "Declan", - "Hurley", - "32614", - "Iran, Islamic Republic of" - ], - [ - "1412", - "Robin", - "Dean", - "34266", - "Northern Mariana Islands" - ], - [ - "1413", - "Mariko", - "Avila", - "B8F 8Y5", - "Burundi" - ], - [ - "1414", - "Bradley", - "Pugh", - "11453", - "Sri Lanka" - ], - [ - "1415", - "Herman", - "Hernandez", - "F3C 6S2", - "Chile" - ], - [ - "1416", - "Montana", - "Wynn", - "B3M 8M2", - "Aruba" - ], - [ - "1417", - "Erin", - "Melton", - "17022", - "France" - ], - [ - "1418", - "Zachery", - "Small", - "L5O 7O1", - "French Southern Territories" - ], - [ - "1419", - "Melanie", - "Rivera", - "07922", - "Korea" - ], - [ - "1420", - "Blossom", - "Chase", - "75493", - "Mauritius" - ], - [ - "1421", - "Stephanie", - "Taylor", - "U8K 3I9", - "Bahamas" - ], - [ - "1422", - "Carter", - "Fulton", - "T4F 8D1", - "Turks and Caicos Islands" - ], - [ - "1423", - "Celeste", - "Medina", - "75629", - "Lebanon" - ], - [ - "1424", - "Katell", - "Guzman", - "15409", - "United Arab Emirates" - ], - [ - "1425", - "Howard", - "Rowland", - "29003", - "Liberia" - ], - [ - "1426", - "Reece", - "Taylor", - "W8G 7P7", - "Samoa" - ], - [ - "1427", - "Bradley", - "Peterson", - "52568", - "Singapore" - ], - [ - "1428", - "Ulric", - "Hancock", - "07437", - "Bolivia" - ], - [ - "1429", - "Francis", - "Rogers", - "15904", - "Albania" - ], - [ - "1430", - "Tatiana", - "Mccray", - "19604", - "Belize" - ], - [ - "1431", - "Merrill", - "Rowe", - "68539", - "Ethiopia" - ], - [ - "1432", - "Kiara", - "Taylor", - "F6D 8V7", - "Burkina Faso" - ], - [ - "1433", - "Buffy", - "Shannon", - "61880", - "Kiribati" - ], - [ - "1434", - "Amber", - "Farmer", - "K5F 1J7", - "Barbados" - ], - [ - "1435", - "Blake", - "Wilkins", - "O1L 2G2", - "Virgin Islands, U.S." - ], - [ - "1436", - "Aimee", - "Fulton", - "18626", - "Chad" - ], - [ - "1437", - "Kai", - "Montgomery", - "U6S 4W7", - "Costa Rica" - ], - [ - "1438", - "Latifah", - "Bell", - "74589", - "Chad" - ], - [ - "1439", - "Ronan", - "Herring", - "01710", - "Palestinian Territory, Occupied" - ], - [ - "1440", - "Macy", - "Skinner", - "78054", - "Gibraltar" - ], - [ - "1441", - "Ignatius", - "Berg", - "59756", - "Liechtenstein" - ], - [ - "1442", - "Prescott", - "Pratt", - "V6H 6P4", - "Kuwait" - ], - [ - "1443", - "Deborah", - "Hebert", - "11480", - "Liberia" - ], - [ - "1444", - "Quentin", - "Jones", - "G8W 8U6", - "Slovenia" - ], - [ - "1445", - "Duncan", - "Parsons", - "Z9F 5G8", - "Cambodia" - ], - [ - "1446", - "Sheila", - "George", - "18033", - "Trinidad and Tobago" - ], - [ - "1447", - "Alyssa", - "Padilla", - "V3O 6C3", - "Qatar" - ], - [ - "1448", - "Amelia", - "Orr", - "51943", - "Canada" - ], - [ - "1449", - "Bethany", - "Thomas", - "33451", - "Liberia" - ], - [ - "1450", - "Kellie", - "Pitts", - "G4S 1Q3", - "Panama" - ], - [ - "1451", - "Stone", - "Stout", - "L4C 9N0", - "Latvia" - ], - [ - "1452", - "Brynne", - "Bailey", - "B1M 4O0", - "Ukraine" - ], - [ - "1453", - "Aquila", - "Hurley", - "41312", - "United Kingdom" - ], - [ - "1454", - "David", - "Bradshaw", - "11152", - "Denmark" - ], - [ - "1455", - "Ryan", - "Gates", - "Z7O 1U0", - "Austria" - ], - [ - "1456", - "Kyle", - "Weber", - "39871", - "Guyana" - ], - [ - "1457", - "Declan", - "Moore", - "K3B 6L2", - "Gibraltar" - ], - [ - "1458", - "Theodore", - "Hickman", - "W8E 6K1", - "Mauritius" - ], - [ - "1459", - "Rebekah", - "Merritt", - "44042", - "Mauritania" - ], - [ - "1460", - "Meredith", - "Powell", - "98238", - "Bhutan" - ], - [ - "1461", - "Paki", - "Simmons", - "34122", - "Norway" - ], - [ - "1462", - "Carissa", - "Ballard", - "20095", - "Antarctica" - ], - [ - "1463", - "James", - "Wilson", - "96376", - "Venezuela" - ], - [ - "1464", - "Pamela", - "Gamble", - "U7F 7B6", - "Turkmenistan" - ], - [ - "1465", - "Rogan", - "Davenport", - "E6S 4R7", - "French Polynesia" - ], - [ - "1466", - "Daphne", - "Pearson", - "G2H 9M0", - "American Samoa" - ], - [ - "1467", - "Maxwell", - "Nash", - "87205", - "Guadeloupe" - ], - [ - "1468", - "Hayes", - "Salazar", - "55712", - "American Samoa" - ], - [ - "1469", - "Justin", - "Conner", - "03924", - "United Kingdom" - ], - [ - "1470", - "Blythe", - "Joyner", - "T6H 3M0", - "Montserrat" - ], - [ - "1471", - "Herrod", - "Spears", - "19474", - "Philippines" - ], - [ - "1472", - "Yvette", - "Joyce", - "R7Y 7B8", - "Botswana" - ], - [ - "1473", - "Chloe", - "Reid", - "K4Y 1R2", - "Philippines" - ], - [ - "1474", - "MacKensie", - "Branch", - "J5E 3X8", - "Saint Kitts and Nevis" - ], - [ - "1475", - "Nasim", - "Buchanan", - "M4E 4D2", - "Portugal" - ], - [ - "1476", - "Aileen", - "Rasmussen", - "H2V 3F4", - "Dominica" - ], - [ - "1477", - "Nicole", - "Mullins", - "U6Q 9X5", - "New Caledonia" - ], - [ - "1478", - "David", - "Luna", - "11935", - "Svalbard and Jan Mayen" - ], - [ - "1479", - "Germaine", - "Massey", - "G3N 4C7", - "Colombia" - ], - [ - "1480", - "Matthew", - "Knowles", - "V4D 4Z0", - "Turkey" - ], - [ - "1481", - "Timon", - "Rowe", - "14024", - "Morocco" - ], - [ - "1482", - "Gail", - "Young", - "68293", - "Bhutan" - ], - [ - "1483", - "Mariam", - "Mejia", - "O3P 4Q7", - "Singapore" - ], - [ - "1484", - "Carla", - "Norris", - "D7A 3F1", - "Liberia" - ], - [ - "1485", - "Ainsley", - "Donaldson", - "H4Z 1Q8", - "Tanzania, United Republic of" - ], - [ - "1486", - "Avye", - "Raymond", - "44808", - "Namibia" - ], - [ - "1487", - "Amanda", - "Sargent", - "O7F 3S4", - "Afghanistan" - ], - [ - "1488", - "Tiger", - "Chambers", - "I3K 7H4", - "United States" - ], - [ - "1489", - "Dylan", - "Ford", - "04043", - "Solomon Islands" - ], - [ - "1490", - "Kaitlin", - "Franklin", - "99451", - "Namibia" - ], - [ - "1491", - "Hayes", - "Craft", - "D6H 4Y6", - "Christmas Island" - ], - [ - "1492", - "Nolan", - "Sullivan", - "31246", - "United States Minor Outlying Islands" - ], - [ - "1493", - "Jennifer", - "Romero", - "E7I 1R7", - "Latvia" - ], - [ - "1494", - "Deanna", - "Wall", - "36109", - "Nepal" - ], - [ - "1495", - "Dara", - "Valenzuela", - "18359", - "Martinique" - ], - [ - "1496", - "Iris", - "Blanchard", - "84392", - "Turks and Caicos Islands" - ], - [ - "1497", - "Rhea", - "Burgess", - "T7Y 7C5", - "Liberia" - ], - [ - "1498", - "Karina", - "Small", - "B2F 2X5", - "Bermuda" - ], - [ - "1499", - "Victor", - "Case", - "49492", - "Vanuatu" - ], - [ - "1500", - "Rose", - "Terry", - "B4G 8I0", - "Timor-leste" - ], - [ - "1501", - "Wyatt", - "Berg", - "K3B 5N2", - "Vanuatu" - ], - [ - "1502", - "Zephania", - "Herrera", - "E6R 2A5", - "Romania" - ], - [ - "1503", - "Felix", - "Johns", - "X8U 2P1", - "Angola" - ], - [ - "1504", - "Melyssa", - "George", - "M4J 5X8", - "Uzbekistan" - ], - [ - "1505", - "Robert", - "Spears", - "61322", - "Papua New Guinea" - ], - [ - "1506", - "Myra", - "Wood", - "50638", - "Afghanistan" - ], - [ - "1507", - "Sean", - "Kerr", - "40094", - "Guadeloupe" - ], - [ - "1508", - "Wesley", - "Mcclain", - "H7F 1H3", - "Mongolia" - ], - [ - "1509", - "Ishmael", - "Hoover", - "42503", - "Czech Republic" - ], - [ - "1510", - "Ocean", - "Parker", - "L3Z 8G0", - "Guyana" - ], - [ - "1511", - "Berk", - "Clay", - "B6Q 7V7", - "Botswana" - ], - [ - "1512", - "Daquan", - "Harrison", - "78004", - "Niger" - ], - [ - "1513", - "Ramona", - "Burris", - "66986", - "Palau" - ], - [ - "1514", - "Jaden", - "Miranda", - "80086", - "Madagascar" - ], - [ - "1515", - "Solomon", - "Kirk", - "R7M 3M3", - "Slovenia" - ], - [ - "1516", - "Tanek", - "Rosales", - "X5B 5D0", - "Tonga" - ], - [ - "1517", - "Jack", - "Cooke", - "46356", - "French Southern Territories" - ], - [ - "1518", - "Naomi", - "Sykes", - "76541", - "Marshall Islands" - ], - [ - "1519", - "Moana", - "Vinson", - "K4R 3U7", - "Saint Pierre and Miquelon" - ], - [ - "1520", - "Kaye", - "Sweet", - "S6S 2G0", - "Dominican Republic" - ], - [ - "1521", - "Bruno", - "Beard", - "20686", - "Israel" - ], - [ - "1522", - "Helen", - "Richards", - "66393", - "Argentina" - ], - [ - "1523", - "Gisela", - "Owens", - "S8Q 4L3", - "Haiti" - ], - [ - "1524", - "Ivy", - "Garrett", - "P6G 8S8", - "United Arab Emirates" - ], - [ - "1525", - "Malik", - "Osborne", - "78332", - "Tajikistan" - ], - [ - "1526", - "Whoopi", - "Franco", - "T3T 5Y1", - "Serbia and Montenegro" - ], - [ - "1527", - "Basil", - "Baker", - "61233", - "Cuba" - ], - [ - "1528", - "Linda", - "King", - "31410", - "Falkland Islands (Malvinas)" - ], - [ - "1529", - "Allegra", - "Hobbs", - "F2C 9M8", - "Andorra" - ], - [ - "1530", - "Kirsten", - "Elliott", - "T8C 4X3", - "Haiti" - ], - [ - "1531", - "Joseph", - "Ortiz", - "40165", - "Falkland Islands (Malvinas)" - ], - [ - "1532", - "Pearl", - "Mccormick", - "93914", - "Falkland Islands (Malvinas)" - ], - [ - "1533", - "Fritz", - "Austin", - "A3S 7C8", - "Canada" - ], - [ - "1534", - "Lunea", - "Hickman", - "25676", - "Cameroon" - ], - [ - "1535", - "Inga", - "Cortez", - "14707", - "Comoros" - ], - [ - "1536", - "Claudia", - "Long", - "74877", - "Tokelau" - ], - [ - "1537", - "Judah", - "Williamson", - "S9N 6F0", - "Paraguay" - ], - [ - "1538", - "Eve", - "Beasley", - "K8Z 5H7", - "Honduras" - ], - [ - "1539", - "Tad", - "Lang", - "29577", - "Equatorial Guinea" - ], - [ - "1540", - "Jack", - "Lawson", - "46631", - "Costa Rica" - ], - [ - "1541", - "Vaughan", - "Barron", - "N9L 9T4", - "Chile" - ], - [ - "1542", - "Solomon", - "Bowman", - "05734", - "Cocos (Keeling) Islands" - ], - [ - "1543", - "Nash", - "Giles", - "64600", - "Denmark" - ], - [ - "1544", - "Xander", - "Eaton", - "84933", - "Bosnia and Herzegovina" - ], - [ - "1545", - "Hanna", - "Hull", - "61062", - "Namibia" - ], - [ - "1546", - "Lee", - "Gaines", - "V7H 6H7", - "Suriname" - ], - [ - "1547", - "Brian", - "Sutton", - "60055", - "Timor-leste" - ], - [ - "1548", - "Azalia", - "Henson", - "D9J 8E4", - "Antarctica" - ], - [ - "1549", - "Russell", - "Avila", - "01774", - "China" - ], - [ - "1550", - "Marsden", - "Leblanc", - "30201", - "New Caledonia" - ], - [ - "1551", - "Tad", - "Nichols", - "K5V 6N1", - "Monaco" - ], - [ - "1552", - "Eliana", - "Savage", - "06807", - "Central African Republic" - ], - [ - "1553", - "Madeline", - "Conway", - "83513", - "Latvia" - ], - [ - "1554", - "Kai", - "Caldwell", - "S1K 2Q2", - "Indonesia" - ], - [ - "1555", - "Wynne", - "Goodman", - "U9Y 8P7", - "Gibraltar" - ], - [ - "1556", - "Nora", - "Dudley", - "52688", - "Netherlands Antilles" - ], - [ - "1557", - "Anastasia", - "Gates", - "T7T 8C8", - "Morocco" - ], - [ - "1558", - "Lester", - "Good", - "76376", - "Heard Island and Mcdonald Islands" - ], - [ - "1559", - "Craig", - "Skinner", - "S7B 3Z6", - "Madagascar" - ], - [ - "1560", - "Kibo", - "Craft", - "M5C 2I9", - "Hong Kong" - ], - [ - "1561", - "Carlos", - "Buck", - "89343", - "Northern Mariana Islands" - ], - [ - "1562", - "Ivor", - "Mooney", - "M9D 2Y3", - "Korea" - ], - [ - "1563", - "Armand", - "Shields", - "E8O 7X6", - "Uzbekistan" - ], - [ - "1564", - "Grace", - "Weeks", - "G5B 3W5", - "Nicaragua" - ], - [ - "1565", - "Reagan", - "Mann", - "J2E 5I1", - "San Marino" - ], - [ - "1566", - "Quin", - "Nolan", - "Q9E 2Q0", - "Turkey" - ], - [ - "1567", - "Kareem", - "Jefferson", - "91393", - "Zambia" - ], - [ - "1568", - "Erica", - "Mccoy", - "C3P 3L0", - "Viet Nam" - ], - [ - "1569", - "Sybill", - "Larsen", - "J3U 3L9", - "Sierra Leone" - ], - [ - "1570", - "Angela", - "Weber", - "46559", - "Croatia" - ], - [ - "1571", - "Mannix", - "Noel", - "94029", - "Belgium" - ], - [ - "1572", - "Martina", - "Travis", - "20063", - "Solomon Islands" - ], - [ - "1573", - "Dominic", - "Whitehead", - "83547", - "Gibraltar" - ], - [ - "1574", - "Vladimir", - "Hunter", - "L3I 4G7", - "Reunion" - ], - [ - "1575", - "Farrah", - "Alexander", - "18538", - "Croatia" - ], - [ - "1576", - "Hop", - "Burns", - "X1C 7J6", - "Saint Lucia" - ], - [ - "1577", - "Zelda", - "Trevino", - "L8P 7E9", - "Guinea" - ], - [ - "1578", - "Nehru", - "Decker", - "Q1P 4Q9", - "Western Sahara" - ], - [ - "1579", - "Shay", - "Goff", - "68576", - "Sweden" - ], - [ - "1580", - "Dominic", - "Martin", - "C1M 9P2", - "Denmark" - ], - [ - "1581", - "Heather", - "Doyle", - "Y7R 9H1", - "Iran, Islamic Republic of" - ], - [ - "1582", - "Honorato", - "Rojas", - "29414", - "India" - ], - [ - "1583", - "Florence", - "England", - "64669", - "China" - ], - [ - "1584", - "Zane", - "Reyes", - "84771", - "Heard Island and Mcdonald Islands" - ], - [ - "1585", - "Scarlett", - "Poole", - "36928", - "Algeria" - ], - [ - "1586", - "Dieter", - "Brennan", - "Y8V 5L2", - "Colombia" - ], - [ - "1587", - "Jamal", - "Whitney", - "33428", - "Turkey" - ], - [ - "1588", - "Evan", - "Guy", - "72119", - "Slovakia" - ], - [ - "1589", - "Candace", - "Bauer", - "C8L 1P2", - "Macedonia" - ], - [ - "1590", - "Naomi", - "Pennington", - "17350", - "Tonga" - ], - [ - "1591", - "Celeste", - "Banks", - "R8R 4C8", - "Anguilla" - ], - [ - "1592", - "Basil", - "Elliott", - "80065", - "Singapore" - ], - [ - "1593", - "Darryl", - "Wise", - "33140", - "Brunei Darussalam" - ], - [ - "1594", - "Marny", - "Walls", - "S1K 4V1", - "Western Sahara" - ], - [ - "1595", - "Anastasia", - "Meyer", - "Z1F 8C2", - "El Salvador" - ], - [ - "1596", - "Brynne", - "Rivera", - "48070", - "Mexico" - ], - [ - "1597", - "Macey", - "Johnston", - "X9E 9J5", - "Guadeloupe" - ], - [ - "1598", - "Bethany", - "Marks", - "46648", - "Bhutan" - ], - [ - "1599", - "Kiayada", - "Glass", - "13661", - "Christmas Island" - ], - [ - "1600", - "Veda", - "Bowers", - "D7S 1S9", - "Korea" - ], - [ - "1601", - "Dante", - "Kirk", - "58404", - "Guinea" - ], - [ - "1602", - "Judah", - "Sloan", - "04528", - "Andorra" - ], - [ - "1603", - "Serena", - "Giles", - "12139", - "Papua New Guinea" - ], - [ - "1604", - "Chase", - "Hull", - "27203", - "Guinea-bissau" - ], - [ - "1605", - "Wallace", - "Poole", - "58919", - "Christmas Island" - ], - [ - "1606", - "Deacon", - "Lynn", - "Z1H 9G4", - "Kenya" - ], - [ - "1607", - "Igor", - "Duncan", - "X2V 2X1", - "Christmas Island" - ], - [ - "1608", - "Walker", - "Hopkins", - "67256", - "Bosnia and Herzegovina" - ], - [ - "1609", - "Serena", - "Burnett", - "Q4C 7Q0", - "Canada" - ], - [ - "1610", - "Hedwig", - "Burgess", - "O2J 7A5", - "Rwanda" - ], - [ - "1611", - "Amal", - "Richmond", - "34506", - "Australia" - ], - [ - "1612", - "Rhona", - "Gomez", - "W2C 3I7", - "Oman" - ], - [ - "1613", - "Kai", - "Acosta", - "N2O 7M2", - "Uganda" - ], - [ - "1614", - "Henry", - "Roman", - "78113", - "Guadeloupe" - ], - [ - "1615", - "Chester", - "Good", - "88809", - "Norway" - ], - [ - "1616", - "Cleo", - "Tanner", - "73924", - "Uganda" - ], - [ - "1617", - "Emi", - "Lloyd", - "59746", - "South Africa" - ], - [ - "1618", - "Christopher", - "Lopez", - "76264", - "Libyan Arab Jamahiriya" - ], - [ - "1619", - "Yvonne", - "Mathews", - "68655", - "Saint Lucia" - ], - [ - "1620", - "Kimberly", - "Mullen", - "D6J 9G3", - "Virgin Islands, British" - ], - [ - "1621", - "Hanna", - "Slater", - "F8F 9K5", - "Montserrat" - ], - [ - "1622", - "Laura", - "Dennis", - "J6U 2G3", - "Viet Nam" - ], - [ - "1623", - "Rogan", - "Richards", - "R1D 1B3", - "Argentina" - ], - [ - "1624", - "Mira", - "Rodriquez", - "C3D 3E5", - "Guinea" - ], - [ - "1625", - "Ezra", - "Myers", - "Y7Z 7X2", - "Kuwait" - ], - [ - "1626", - "Jocelyn", - "Martin", - "E2F 3F2", - "Algeria" - ], - [ - "1627", - "Denton", - "Lee", - "80903", - "Congo" - ], - [ - "1628", - "Grace", - "Leach", - "86865", - "Spain" - ], - [ - "1629", - "Clark", - "Morrow", - "12834", - "Northern Mariana Islands" - ], - [ - "1630", - "Armando", - "Calhoun", - "I3I 1D4", - "Spain" - ], - [ - "1631", - "George", - "Decker", - "R1B 6Q9", - "Mali" - ], - [ - "1632", - "Jerome", - "Salazar", - "03831", - "Faroe Islands" - ], - [ - "1633", - "Logan", - "Santiago", - "46269", - "Hungary" - ], - [ - "1634", - "Gavin", - "Tate", - "Y3L 6G5", - "Italy" - ], - [ - "1635", - "Chloe", - "Jennings", - "D9B 2H9", - "Cambodia" - ], - [ - "1636", - "Rashad", - "Knox", - "T1V 4G5", - "Germany" - ], - [ - "1637", - "Jin", - "Roberts", - "82928", - "Azerbaijan" - ], - [ - "1638", - "Amity", - "Guerrero", - "F4G 2L4", - "Viet Nam" - ], - [ - "1639", - "Carter", - "Roberson", - "53651", - "Niue" - ], - [ - "1640", - "Slade", - "Carson", - "H9E 1G1", - "Guyana" - ], - [ - "1641", - "Buckminster", - "Christensen", - "F5J 6T5", - "Algeria" - ], - [ - "1642", - "Fallon", - "Peters", - "D9Y 5Q4", - "Ethiopia" - ], - [ - "1643", - "Amy", - "Barry", - "D6F 3R4", - "New Caledonia" - ], - [ - "1644", - "Calvin", - "Buck", - "18354", - "Macedonia" - ], - [ - "1645", - "Kaye", - "Haynes", - "D9K 1X8", - "Italy" - ], - [ - "1646", - "Shea", - "Hammond", - "R7P 3X8", - "Guam" - ], - [ - "1647", - "Kiara", - "Franks", - "01185", - "Mozambique" - ], - [ - "1648", - "Armando", - "Oneil", - "88972", - "Bahrain" - ], - [ - "1649", - "Lesley", - "Allen", - "05171", - "Belgium" - ], - [ - "1650", - "Ignatius", - "Barrett", - "94084", - "Georgia" - ], - [ - "1651", - "Graham", - "Maldonado", - "76354", - "Dominican Republic" - ], - [ - "1652", - "Briar", - "Roman", - "P9M 3A9", - "Cayman Islands" - ], - [ - "1653", - "Germane", - "Colon", - "U3X 7S9", - "Brazil" - ], - [ - "1654", - "Alvin", - "Mcpherson", - "58411", - "Guinea" - ], - [ - "1655", - "Belle", - "Sandoval", - "87172", - "Cyprus" - ], - [ - "1656", - "Eric", - "Caldwell", - "63246", - "Guinea" - ], - [ - "1657", - "Nadine", - "Dale", - "T6E 4B0", - "Denmark" - ], - [ - "1658", - "Dora", - "Jimenez", - "85463", - "Nauru" - ], - [ - "1659", - "Mohammad", - "Strickland", - "H8B 9G2", - "Japan" - ], - [ - "1660", - "Reagan", - "Preston", - "G5E 8S5", - "Honduras" - ], - [ - "1661", - "Tamekah", - "Daniel", - "Z3X 6Q6", - "Belarus" - ], - [ - "1662", - "Halee", - "Mills", - "23332", - "Mayotte" - ], - [ - "1663", - "Courtney", - "England", - "09751", - "Saint Kitts and Nevis" - ], - [ - "1664", - "Dai", - "Arnold", - "A2N 9J4", - "Argentina" - ], - [ - "1665", - "Priscilla", - "Reyes", - "G2B 5M4", - "Azerbaijan" - ], - [ - "1666", - "Brenda", - "Stanley", - "I6O 3I1", - "Hungary" - ], - [ - "1667", - "Kasper", - "Washington", - "H4K 8K7", - "Serbia and Montenegro" - ], - [ - "1668", - "Suki", - "Hendricks", - "L1K 5O9", - "Norway" - ], - [ - "1669", - "Rebekah", - "Mccormick", - "89543", - "Slovenia" - ], - [ - "1670", - "Oprah", - "Rodriquez", - "90034", - "Costa Rica" - ], - [ - "1671", - "Ivory", - "Matthews", - "T9J 2A7", - "Panama" - ], - [ - "1672", - "Ferris", - "Garner", - "93583", - "Niue" - ], - [ - "1673", - "Melvin", - "White", - "X5U 9N8", - "Nigeria" - ], - [ - "1674", - "Henry", - "Swanson", - "E7V 2C9", - "Northern Mariana Islands" - ], - [ - "1675", - "Hadassah", - "Eaton", - "52798", - "Albania" - ], - [ - "1676", - "Lisandra", - "Sykes", - "90838", - "Namibia" - ], - [ - "1677", - "Honorato", - "Bradshaw", - "W3D 1Z9", - "United States" - ], - [ - "1678", - "Aurelia", - "Paul", - "Z6E 6W9", - "Malaysia" - ], - [ - "1679", - "Arthur", - "Mann", - "74673", - "Bhutan" - ], - [ - "1680", - "Melissa", - "Hernandez", - "11742", - "Dominican Republic" - ], - [ - "1681", - "Bert", - "Mosley", - "N2K 5U5", - "Kuwait" - ], - [ - "1682", - "Sigourney", - "Sharpe", - "30204", - "South Africa" - ], - [ - "1683", - "Ifeoma", - "Woods", - "39850", - "Haiti" - ], - [ - "1684", - "Tyler", - "Medina", - "K6L 9V8", - "Indonesia" - ], - [ - "1685", - "Karleigh", - "Griffin", - "G8Z 6W2", - "Canada" - ], - [ - "1686", - "Brianna", - "Collins", - "11919", - "New Caledonia" - ], - [ - "1687", - "Allistair", - "Hampton", - "O1X 2N7", - "Cocos (Keeling) Islands" - ], - [ - "1688", - "Carla", - "Manning", - "76866", - "Svalbard and Jan Mayen" - ], - [ - "1689", - "Jakeem", - "Brewer", - "Y1T 1D7", - "Comoros" - ], - [ - "1690", - "Price", - "Guerrero", - "S7Z 8O1", - "Christmas Island" - ], - [ - "1691", - "Harlan", - "Sandoval", - "58527", - "Czech Republic" - ], - [ - "1692", - "Marcia", - "Robinson", - "64662", - "Uganda" - ], - [ - "1693", - "Sylvester", - "Hewitt", - "81468", - "Honduras" - ], - [ - "1694", - "Dawn", - "Wood", - "77743", - "Malawi" - ], - [ - "1695", - "Farrah", - "Nielsen", - "E4N 9A9", - "Christmas Island" - ], - [ - "1696", - "Tanisha", - "Benjamin", - "L2J 3G7", - "Cape Verde" - ], - [ - "1697", - "Cherokee", - "Atkins", - "L7D 2L5", - "Moldova" - ], - [ - "1698", - "Madaline", - "Elliott", - "H7K 8R4", - "Barbados" - ], - [ - "1699", - "Odysseus", - "Roy", - "65008", - "Slovakia" - ], - [ - "1700", - "Eaton", - "Stein", - "Z2V 7H0", - "Moldova" - ], - [ - "1701", - "Rachel", - "Hurley", - "L6L 2B2", - "Antigua and Barbuda" - ], - [ - "1702", - "Stacey", - "Hardin", - "O9U 1B7", - "Montserrat" - ], - [ - "1703", - "Grady", - "Montgomery", - "75852", - "Guinea-bissau" - ], - [ - "1704", - "Serena", - "Douglas", - "F5M 8Z6", - "Mauritius" - ], - [ - "1705", - "Ralph", - "Duke", - "H7X 3M9", - "Tunisia" - ], - [ - "1706", - "Charles", - "Moody", - "86445", - "Pitcairn" - ], - [ - "1707", - "Mariam", - "Lara", - "07952", - "United Kingdom" - ], - [ - "1708", - "Whitney", - "Garza", - "74001", - "Norfolk Island" - ], - [ - "1709", - "Beverly", - "Thornton", - "69847", - "Canada" - ], - [ - "1710", - "Helen", - "Gentry", - "Z8S 7U4", - "Reunion" - ], - [ - "1711", - "Janna", - "Gould", - "W6C 6E1", - "Burundi" - ], - [ - "1712", - "Jana", - "Hooper", - "A1R 9Y0", - "Yemen" - ], - [ - "1713", - "Zachary", - "Nicholson", - "49616", - "Gabon" - ], - [ - "1714", - "Julian", - "Davis", - "37608", - "Anguilla" - ], - [ - "1715", - "Gay", - "Knox", - "51952", - "Croatia" - ], - [ - "1716", - "Iola", - "Moses", - "16601", - "French Polynesia" - ], - [ - "1717", - "Allegra", - "Holder", - "C9R 8J3", - "Dominican Republic" - ], - [ - "1718", - "Cecilia", - "Shannon", - "62624", - "Reunion" - ], - [ - "1719", - "Cora", - "Peterson", - "I9V 5P5", - "Chad" - ], - [ - "1720", - "Stewart", - "Mathews", - "A5H 1E1", - "Mexico" - ], - [ - "1721", - "Kathleen", - "Lynn", - "82408", - "Honduras" - ], - [ - "1722", - "William", - "Schneider", - "25823", - "Tajikistan" - ], - [ - "1723", - "Alice", - "Mcconnell", - "50155", - "Russian Federation" - ], - [ - "1724", - "Timon", - "Dillon", - "93171", - "Croatia" - ], - [ - "1725", - "Tanek", - "Ellison", - "Y7Q 5B1", - "Malawi" - ], - [ - "1726", - "Tamekah", - "Cummings", - "03764", - "Afghanistan" - ], - [ - "1727", - "Charlotte", - "Chaney", - "U7Y 7B0", - "Kyrgyzstan" - ], - [ - "1728", - "Jason", - "Conway", - "37713", - "Martinique" - ], - [ - "1729", - "Graiden", - "Combs", - "40454", - "Turkmenistan" - ], - [ - "1730", - "Virginia", - "Ortiz", - "K9N 2Q4", - "Malta" - ], - [ - "1731", - "Thomas", - "Cannon", - "W1H 3T9", - "Cuba" - ], - [ - "1732", - "Galena", - "Dominguez", - "68072", - "India" - ], - [ - "1733", - "Vaughan", - "Petty", - "15200", - "Lesotho" - ], - [ - "1734", - "Buffy", - "Saunders", - "K1W 3B1", - "Burkina Faso" - ], - [ - "1735", - "Chava", - "Hill", - "93461", - "Iran, Islamic Republic of" - ], - [ - "1736", - "Sage", - "Hampton", - "R8Y 8J1", - "Malta" - ], - [ - "1737", - "Nathaniel", - "Whitney", - "89097", - "Ukraine" - ], - [ - "1738", - "Hector", - "Hayden", - "70774", - "Netherlands" - ], - [ - "1739", - "Mercedes", - "Freeman", - "80848", - "Croatia" - ], - [ - "1740", - "Vance", - "Spencer", - "25484", - "Guyana" - ], - [ - "1741", - "Josephine", - "Stevens", - "E4D 9D1", - "Netherlands Antilles" - ], - [ - "1742", - "Barbara", - "Mcclure", - "22602", - "Cambodia" - ], - [ - "1743", - "Sydney", - "Holder", - "X4G 1Z7", - "British Indian Ocean Territory" - ], - [ - "1744", - "Velma", - "Evans", - "83914", - "New Zealand" - ], - [ - "1745", - "Francis", - "Lane", - "12545", - "Serbia and Montenegro" - ], - [ - "1746", - "Garrison", - "Brock", - "19993", - "Eritrea" - ], - [ - "1747", - "Quentin", - "Santiago", - "07085", - "Norfolk Island" - ], - [ - "1748", - "Ivory", - "Wilkerson", - "79440", - "Libyan Arab Jamahiriya" - ], - [ - "1749", - "Karyn", - "Buckner", - "D1Y 7D8", - "Cocos (Keeling) Islands" - ], - [ - "1750", - "Mari", - "Bright", - "24721", - "Pakistan" - ], - [ - "1751", - "Dexter", - "Garrison", - "X3X 7G3", - "Western Sahara" - ], - [ - "1752", - "Venus", - "Acevedo", - "V2F 8C0", - "Poland" - ], - [ - "1753", - "Nayda", - "Camacho", - "F6H 6J5", - "Northern Mariana Islands" - ], - [ - "1754", - "Avye", - "Hartman", - "G6V 2H0", - "Hong Kong" - ], - [ - "1755", - "Kerry", - "Baird", - "M3Q 7B7", - "Russian Federation" - ], - [ - "1756", - "Uma", - "Herman", - "C9A 4P3", - "Libyan Arab Jamahiriya" - ], - [ - "1757", - "Amaya", - "Roman", - "97179", - "Iceland" - ], - [ - "1758", - "Bruce", - "Joyce", - "18344", - "Denmark" - ], - [ - "1759", - "Jarrod", - "Alvarez", - "59269", - "Liberia" - ], - [ - "1760", - "Olivia", - "Reilly", - "99058", - "Malaysia" - ], - [ - "1761", - "Benedict", - "Hensley", - "23105", - "Uganda" - ], - [ - "1762", - "Lavinia", - "Hunter", - "44729", - "Maldives" - ], - [ - "1763", - "Bradley", - "Gomez", - "65125", - "Belize" - ], - [ - "1764", - "Keely", - "Burris", - "18390", - "Brunei Darussalam" - ], - [ - "1765", - "Autumn", - "England", - "E5D 7A5", - "Kyrgyzstan" - ], - [ - "1766", - "Jane", - "Blair", - "S1W 4O0", - "Bangladesh" - ], - [ - "1767", - "Chancellor", - "Barrett", - "E9F 1I1", - "Fiji" - ], - [ - "1768", - "Whitney", - "Morin", - "G5T 4E7", - "Aruba" - ], - [ - "1769", - "Madeline", - "Sparks", - "W7L 7E0", - "Belize" - ], - [ - "1770", - "Dale", - "Estes", - "82712", - "Guam" - ], - [ - "1771", - "Hakeem", - "Buck", - "O6K 1I8", - "Singapore" - ], - [ - "1772", - "Alexandra", - "Burns", - "12697", - "Portugal" - ], - [ - "1773", - "Winifred", - "Gill", - "Z8B 8B8", - "Uruguay" - ], - [ - "1774", - "Gail", - "Gomez", - "S1V 3N8", - "American Samoa" - ], - [ - "1775", - "Moana", - "Brady", - "18835", - "Wallis and Futuna" - ], - [ - "1776", - "Martha", - "Oliver", - "81962", - "Bolivia" - ], - [ - "1777", - "Nayda", - "Wooten", - "00071", - "Palau" - ], - [ - "1778", - "Bryar", - "Collier", - "50631", - "Mexico" - ], - [ - "1779", - "Penelope", - "Bradshaw", - "A6A 9M2", - "Lebanon" - ], - [ - "1780", - "Wyatt", - "Lara", - "75486", - "Slovenia" - ], - [ - "1781", - "Wang", - "Odonnell", - "N5X 1N5", - "Bahamas" - ], - [ - "1782", - "Chiquita", - "Harrell", - "21691", - "Guadeloupe" - ], - [ - "1783", - "Byron", - "Blankenship", - "M8A 3L4", - "Syrian Arab Republic" - ], - [ - "1784", - "Holmes", - "Stokes", - "81039", - "Mauritania" - ], - [ - "1785", - "Naomi", - "Phillips", - "56287", - "Switzerland" - ], - [ - "1786", - "Quyn", - "Johnson", - "D2T 6B7", - "Czech Republic" - ], - [ - "1787", - "Gillian", - "Sanders", - "50542", - "Colombia" - ], - [ - "1788", - "Hope", - "Benjamin", - "67423", - "Bolivia" - ], - [ - "1789", - "Bryar", - "Dean", - "U9V 9E5", - "Guatemala" - ], - [ - "1790", - "Karyn", - "Swanson", - "S6H 3R8", - "Israel" - ], - [ - "1791", - "Amena", - "David", - "02286", - "French Polynesia" - ], - [ - "1792", - "Ira", - "Joyner", - "37335", - "Cayman Islands" - ], - [ - "1793", - "Tanek", - "Oneil", - "75041", - "Slovenia" - ], - [ - "1794", - "Dolan", - "Miles", - "K7Q 9U8", - "Maldives" - ], - [ - "1795", - "Wang", - "Keith", - "88116", - "Congo" - ], - [ - "1796", - "Wylie", - "Bryant", - "93369", - "Andorra" - ], - [ - "1797", - "Heather", - "Bryant", - "78015", - "French Polynesia" - ], - [ - "1798", - "Regina", - "Wagner", - "29087", - "Virgin Islands, British" - ], - [ - "1799", - "Nathan", - "Bush", - "J5S 9L0", - "Viet Nam" - ], - [ - "1800", - "Charity", - "Dawson", - "29508", - "Greece" - ], - [ - "1801", - "Ulric", - "Guzman", - "I6R 6P6", - "Micronesia" - ], - [ - "1802", - "Keefe", - "Scott", - "J1R 8T6", - "Uzbekistan" - ], - [ - "1803", - "Florence", - "Price", - "U7P 8F6", - "Taiwan, Province of China" - ], - [ - "1804", - "Griffith", - "England", - "92557", - "China" - ], - [ - "1805", - "Kay", - "Nielsen", - "85991", - "Suriname" - ], - [ - "1806", - "Tamekah", - "Blackburn", - "47324", - "Panama" - ], - [ - "1807", - "Indira", - "Crosby", - "64463", - "Trinidad and Tobago" - ], - [ - "1808", - "Pamela", - "Vasquez", - "K2Q 9A1", - "Ghana" - ], - [ - "1809", - "Patricia", - "Haley", - "51509", - "Jordan" - ], - [ - "1810", - "Nevada", - "Prince", - "41315", - "Tokelau" - ], - [ - "1811", - "Martin", - "Wilkerson", - "Y8X 4Y5", - "Palestinian Territory, Occupied" - ], - [ - "1812", - "Deirdre", - "Castaneda", - "X1S 5E2", - "Bahrain" - ], - [ - "1813", - "Cara", - "Flynn", - "68372", - "Azerbaijan" - ], - [ - "1814", - "Sylvia", - "Alexander", - "E5F 9M5", - "Svalbard and Jan Mayen" - ], - [ - "1815", - "Macon", - "Suarez", - "69866", - "Tunisia" - ], - [ - "1816", - "Hammett", - "Haney", - "09768", - "Bangladesh" - ], - [ - "1817", - "Geoffrey", - "Simmons", - "61986", - "Burundi" - ], - [ - "1818", - "Danielle", - "Kelly", - "71568", - "Mali" - ], - [ - "1819", - "Wing", - "Brown", - "U4D 6L1", - "Uzbekistan" - ], - [ - "1820", - "Len", - "Barber", - "40311", - "Suriname" - ], - [ - "1821", - "Richard", - "Wilson", - "W9E 6D7", - "Finland" - ], - [ - "1822", - "Keaton", - "Hayes", - "55696", - "Slovakia" - ], - [ - "1823", - "Dora", - "Chaney", - "57297", - "United States Minor Outlying Islands" - ], - [ - "1824", - "Alexandra", - "Pruitt", - "17207", - "Turkmenistan" - ], - [ - "1825", - "Deanna", - "Gomez", - "C9M 9K0", - "Paraguay" - ], - [ - "1826", - "Laura", - "Downs", - "74422", - "Antigua and Barbuda" - ], - [ - "1827", - "Jolene", - "Lucas", - "K9E 6U4", - "Tokelau" - ], - [ - "1828", - "Lucy", - "Marquez", - "L1N 4O4", - "Argentina" - ], - [ - "1829", - "Abbot", - "Bishop", - "G8W 7I1", - "Guinea-bissau" - ], - [ - "1830", - "Aaron", - "Bowman", - "K8A 5K7", - "Greece" - ], - [ - "1831", - "Candace", - "Lee", - "58901", - "Turks and Caicos Islands" - ], - [ - "1832", - "Larissa", - "Allen", - "O1I 4X0", - "Belgium" - ], - [ - "1833", - "Linda", - "Malone", - "31211", - "United Arab Emirates" - ], - [ - "1834", - "Grace", - "Daugherty", - "62610", - "Cyprus" - ], - [ - "1835", - "Kyra", - "Berry", - "T2F 3E5", - "Netherlands Antilles" - ], - [ - "1836", - "Hadassah", - "Willis", - "C7H 5V4", - "El Salvador" - ], - [ - "1837", - "Kyle", - "Fitzgerald", - "X1V 2R9", - "Croatia" - ], - [ - "1838", - "Graiden", - "Atkinson", - "L9Q 6H8", - "Thailand" - ], - [ - "1839", - "Raymond", - "Fletcher", - "59574", - "Argentina" - ], - [ - "1840", - "Keaton", - "Barnett", - "O2G 6B4", - "Papua New Guinea" - ], - [ - "1841", - "Farrah", - "Kramer", - "21928", - "Netherlands Antilles" - ], - [ - "1842", - "Christian", - "Sellers", - "55504", - "Timor-leste" - ], - [ - "1843", - "Keith", - "Cohen", - "D9T 7D0", - "Italy" - ], - [ - "1844", - "Karleigh", - "Bruce", - "F2A 5H9", - "Montserrat" - ], - [ - "1845", - "Julie", - "Avery", - "T4T 3Y7", - "Nepal" - ], - [ - "1846", - "Hollee", - "Deleon", - "47524", - "Oman" - ], - [ - "1847", - "Charity", - "Booker", - "61071", - "Cocos (Keeling) Islands" - ], - [ - "1848", - "Flynn", - "Bond", - "E8L 9D2", - "Afghanistan" - ], - [ - "1849", - "Sybill", - "Roth", - "16453", - "Saudi Arabia" - ], - [ - "1850", - "Alyssa", - "Juarez", - "04466", - "Singapore" - ], - [ - "1851", - "Jennifer", - "Odonnell", - "59277", - "Tuvalu" - ], - [ - "1852", - "Carissa", - "Byrd", - "80861", - "Palau" - ], - [ - "1853", - "Coby", - "Barrett", - "04665", - "Congo" - ], - [ - "1854", - "Bertha", - "Paul", - "46442", - "Andorra" - ], - [ - "1855", - "Hayden", - "Dennis", - "K7E 3O1", - "France" - ], - [ - "1856", - "Kadeem", - "Berry", - "39544", - "Vanuatu" - ], - [ - "1857", - "Clayton", - "Burns", - "C2A 6W5", - "Andorra" - ], - [ - "1858", - "Breanna", - "Hardy", - "12284", - "Norway" - ], - [ - "1859", - "Yael", - "Hester", - "69399", - "Hong Kong" - ], - [ - "1860", - "Hunter", - "Harding", - "M4O 6N5", - "Bosnia and Herzegovina" - ], - [ - "1861", - "Breanna", - "Sutton", - "N2C 6K3", - "Singapore" - ], - [ - "1862", - "Bo", - "Huffman", - "54558", - "Taiwan, Province of China" - ], - [ - "1863", - "Zena", - "Potts", - "80326", - "Czech Republic" - ], - [ - "1864", - "Lucian", - "Sykes", - "D4M 6M5", - "Trinidad and Tobago" - ], - [ - "1865", - "Gabriel", - "Shepherd", - "77631", - "Bahrain" - ], - [ - "1866", - "Vivian", - "Gould", - "29510", - "Norway" - ], - [ - "1867", - "Ina", - "Sherman", - "08122", - "Portugal" - ], - [ - "1868", - "Constance", - "Parsons", - "D6E 9J8", - "Armenia" - ], - [ - "1869", - "Tallulah", - "Woodard", - "51380", - "Bahamas" - ], - [ - "1870", - "Amos", - "Morris", - "37846", - "Switzerland" - ], - [ - "1871", - "Charles", - "Kinney", - "45961", - "Marshall Islands" - ], - [ - "1872", - "Colby", - "Camacho", - "02978", - "Niger" - ], - [ - "1873", - "Ora", - "Hays", - "B6F 9Z9", - "Martinique" - ], - [ - "1874", - "Ariel", - "Cannon", - "04559", - "Burundi" - ], - [ - "1875", - "Beatrice", - "Hull", - "66569", - "Saint Pierre and Miquelon" - ], - [ - "1876", - "Stacey", - "Morrow", - "53760", - "Zimbabwe" - ], - [ - "1877", - "Naida", - "Thomas", - "43434", - "Virgin Islands, U.S." - ], - [ - "1878", - "Holly", - "Holcomb", - "31997", - "Kazakhstan" - ], - [ - "1879", - "Lee", - "Davenport", - "99355", - "Central African Republic" - ], - [ - "1880", - "Gary", - "Higgins", - "18703", - "Norway" - ], - [ - "1881", - "Kay", - "Wolf", - "25509", - "Switzerland" - ], - [ - "1882", - "Destiny", - "Patel", - "Q3X 2F8", - "Ghana" - ], - [ - "1883", - "Clayton", - "Middleton", - "Y5C 1I8", - "Antigua and Barbuda" - ], - [ - "1884", - "May", - "Rivers", - "26782", - "Uzbekistan" - ], - [ - "1885", - "Hadassah", - "Caldwell", - "64493", - "Chile" - ], - [ - "1886", - "Penelope", - "Gentry", - "V5N 7A6", - "Kyrgyzstan" - ], - [ - "1887", - "James", - "Boyle", - "95421", - "Indonesia" - ], - [ - "1888", - "Yuli", - "Cardenas", - "W4U 5U1", - "Solomon Islands" - ], - [ - "1889", - "George", - "Simpson", - "30385", - "Brazil" - ], - [ - "1890", - "Thaddeus", - "Ferrell", - "E6Z 2D4", - "Norfolk Island" - ], - [ - "1891", - "Piper", - "Morrow", - "S6I 1L8", - "Estonia" - ], - [ - "1892", - "Xaviera", - "Heath", - "L8I 5G1", - "Afghanistan" - ], - [ - "1893", - "Odette", - "Patton", - "L2S 4I8", - "Bosnia and Herzegovina" - ], - [ - "1894", - "Stewart", - "Phillips", - "E8E 5W6", - "El Salvador" - ], - [ - "1895", - "Kellie", - "Cooper", - "77401", - "Cape Verde" - ], - [ - "1896", - "Kathleen", - "Salinas", - "F3O 4Z9", - "Sierra Leone" - ], - [ - "1897", - "Fallon", - "Bennett", - "X3P 7L1", - "Macedonia" - ], - [ - "1898", - "Jesse", - "Guerrero", - "I2B 1Q0", - "Finland" - ], - [ - "1899", - "Zenaida", - "Mcguire", - "M5R 1X6", - "Kenya" - ], - [ - "1900", - "Carolyn", - "Richards", - "03060", - "Paraguay" - ], - [ - "1901", - "Ulla", - "Bruce", - "20940", - "Cambodia" - ], - [ - "1902", - "Adrian", - "Shaffer", - "M5O 9Y2", - "Thailand" - ], - [ - "1903", - "Callum", - "Russo", - "L3U 5S8", - "Holy See (Vatican City State)" - ], - [ - "1904", - "Echo", - "Mathews", - "49158", - "Spain" - ], - [ - "1905", - "Driscoll", - "Buckner", - "70115", - "Solomon Islands" - ], - [ - "1906", - "Nayda", - "Phillips", - "Y7D 4A9", - "Singapore" - ], - [ - "1907", - "Piper", - "Livingston", - "51701", - "Anguilla" - ], - [ - "1908", - "Zoe", - "Hoover", - "C8D 8W2", - "Iraq" - ], - [ - "1909", - "Veronica", - "Montoya", - "G6B 9S4", - "Egypt" - ], - [ - "1910", - "Kato", - "Richmond", - "41268", - "Saint Helena" - ], - [ - "1911", - "Kevyn", - "Lancaster", - "71863", - "Montserrat" - ], - [ - "1912", - "Rowan", - "Carr", - "90825", - "Ethiopia" - ], - [ - "1913", - "Alec", - "Wells", - "C9P 8I7", - "Netherlands" - ], - [ - "1914", - "Graham", - "Shields", - "S4B 5O9", - "Norfolk Island" - ], - [ - "1915", - "Pearl", - "Austin", - "43642", - "Bermuda" - ], - [ - "1916", - "Dana", - "Pugh", - "H4C 2A9", - "Tuvalu" - ], - [ - "1917", - "Lucy", - "Ellis", - "31272", - "Cameroon" - ], - [ - "1918", - "Logan", - "Wright", - "18651", - "Honduras" - ], - [ - "1919", - "Chantale", - "Velasquez", - "A5D 3X2", - "Burundi" - ], - [ - "1920", - "Linda", - "Ingram", - "R1P 1G8", - "Myanmar" - ], - [ - "1921", - "Ginger", - "Howell", - "Q5D 4E6", - "Pakistan" - ], - [ - "1922", - "Unity", - "Lester", - "P7M 7A4", - "Gibraltar" - ], - [ - "1923", - "Brett", - "Rutledge", - "Q1E 2B4", - "Thailand" - ], - [ - "1924", - "Stewart", - "Morrow", - "84299", - "Mali" - ], - [ - "1925", - "Declan", - "Aguilar", - "35400", - "Kenya" - ], - [ - "1926", - "Shad", - "Simpson", - "N8E 2U3", - "Saint Pierre and Miquelon" - ], - [ - "1927", - "Alma", - "Benton", - "Q6C 5D2", - "Pakistan" - ], - [ - "1928", - "Herman", - "Bailey", - "P5K 2X4", - "Ireland" - ], - [ - "1929", - "Keegan", - "Mendez", - "19421", - "Lesotho" - ], - [ - "1930", - "Erasmus", - "Foreman", - "J9T 1A2", - "Panama" - ], - [ - "1931", - "Tarik", - "Meyers", - "Z8V 5F9", - "Cape Verde" - ], - [ - "1932", - "Donovan", - "Knox", - "B8N 1G7", - "Iceland" - ], - [ - "1933", - "Chloe", - "Mccray", - "67537", - "United Arab Emirates" - ], - [ - "1934", - "Marvin", - "Edwards", - "21809", - "Ukraine" - ], - [ - "1935", - "Freya", - "Watkins", - "80099", - "Central African Republic" - ], - [ - "1936", - "Jerry", - "Morgan", - "C7U 7H5", - "Guinea" - ], - [ - "1937", - "Yardley", - "Marsh", - "23654", - "India" - ], - [ - "1938", - "Ava", - "Mueller", - "83374", - "Greece" - ], - [ - "1939", - "Silas", - "Joseph", - "P5M 7F2", - "Sweden" - ], - [ - "1940", - "Winifred", - "Solis", - "12335", - "Viet Nam" - ], - [ - "1941", - "Virginia", - "Cantu", - "K4C 3S5", - "Yemen" - ], - [ - "1942", - "Sade", - "Cole", - "40295", - "Spain" - ], - [ - "1943", - "Ethan", - "Hodges", - "R7W 8X2", - "Congo" - ], - [ - "1944", - "Barbara", - "Day", - "K6L 7S6", - "Nigeria" - ], - [ - "1945", - "Conan", - "Simon", - "22124", - "Guyana" - ], - [ - "1946", - "Lars", - "Puckett", - "R6Y 4N7", - "Trinidad and Tobago" - ], - [ - "1947", - "Quin", - "Ewing", - "99053", - "American Samoa" - ], - [ - "1948", - "Ali", - "Haynes", - "N6Z 7X0", - "China" - ], - [ - "1949", - "Sara", - "Wagner", - "74544", - "Chad" - ], - [ - "1950", - "Griffith", - "Fuentes", - "R1W 6Z9", - "Slovenia" - ], - [ - "1951", - "Sharon", - "Crane", - "I2Z 9D6", - "Philippines" - ], - [ - "1952", - "Marsden", - "Acosta", - "K6C 8C5", - "Jordan" - ], - [ - "1953", - "Whoopi", - "Villarreal", - "E2O 1T5", - "Svalbard and Jan Mayen" - ], - [ - "1954", - "Bruno", - "Ball", - "31931", - "Barbados" - ], - [ - "1955", - "Ulric", - "Young", - "T4R 3M5", - "Solomon Islands" - ], - [ - "1956", - "Noah", - "Gonzalez", - "L3O 6V5", - "Mayotte" - ], - [ - "1957", - "Cheryl", - "Gilliam", - "F4Q 4H9", - "Albania" - ], - [ - "1958", - "Bo", - "Rowe", - "67020", - "Jamaica" - ], - [ - "1959", - "Kelly", - "Alexander", - "P8Y 9K5", - "Somalia" - ], - [ - "1960", - "Hop", - "Navarro", - "O1G 9R6", - "Cayman Islands" - ], - [ - "1961", - "Zachery", - "Howard", - "67147", - "Fiji" - ], - [ - "1962", - "Elvis", - "Daugherty", - "X8V 7S7", - "Jordan" - ], - [ - "1963", - "Mallory", - "Hensley", - "A5S 1U6", - "Swaziland" - ], - [ - "1964", - "Fulton", - "Williams", - "P4C 4O5", - "Viet Nam" - ], - [ - "1965", - "Madison", - "Pittman", - "F8G 1P9", - "Chile" - ], - [ - "1966", - "Kermit", - "Bradford", - "W2T 6I5", - "Uganda" - ], - [ - "1967", - "Gabriel", - "Ballard", - "N5M 6W0", - "Andorra" - ], - [ - "1968", - "Jasmine", - "Barber", - "M2Z 7G5", - "French Guiana" - ], - [ - "1969", - "Thane", - "Koch", - "21097", - "Armenia" - ], - [ - "1970", - "Montana", - "Oneal", - "L2A 9Q6", - "South Africa" - ], - [ - "1971", - "Brett", - "Coleman", - "79399", - "Luxembourg" - ], - [ - "1972", - "Ivy", - "Jimenez", - "28549", - "Senegal" - ], - [ - "1973", - "Shad", - "Melton", - "Z8N 4Z5", - "Cook Islands" - ], - [ - "1974", - "Suki", - "Vance", - "H1A 1Z3", - "Ireland" - ], - [ - "1975", - "Jin", - "Hodges", - "L2I 3T8", - "France" - ], - [ - "1976", - "Diana", - "Booth", - "M3V 1S8", - "Iran, Islamic Republic of" - ], - [ - "1977", - "Martha", - "Nunez", - "27837", - "Northern Mariana Islands" - ], - [ - "1978", - "Silas", - "Ayers", - "17121", - "United States" - ], - [ - "1979", - "Ainsley", - "Whitaker", - "42695", - "Dominica" - ], - [ - "1980", - "Dillon", - "Tucker", - "N3R 3P3", - "Botswana" - ], - [ - "1981", - "Lillian", - "West", - "57665", - "Palau" - ], - [ - "1982", - "Talon", - "Hart", - "Z6T 4W3", - "Serbia and Montenegro" - ], - [ - "1983", - "Desiree", - "Booth", - "Q1W 9S1", - "Gambia" - ], - [ - "1984", - "Chastity", - "Merrill", - "F3B 9W7", - "Puerto Rico" - ], - [ - "1985", - "Nichole", - "Leon", - "T7V 5D6", - "Belize" - ], - [ - "1986", - "Rafael", - "Washington", - "87676", - "Eritrea" - ], - [ - "1987", - "Samson", - "Mathews", - "G7Q 5V6", - "Burkina Faso" - ], - [ - "1988", - "Jasper", - "Campbell", - "23791", - "Thailand" - ], - [ - "1989", - "Mason", - "Harrington", - "R9R 5S3", - "Nigeria" - ], - [ - "1990", - "Jameson", - "Frederick", - "R1N 4S0", - "Guyana" - ], - [ - "1991", - "Cadman", - "Woodard", - "43080", - "Gambia" - ], - [ - "1992", - "Catherine", - "Gill", - "W4W 8A4", - "Philippines" - ], - [ - "1993", - "Yael", - "Richards", - "99504", - "Kenya" - ], - [ - "1994", - "Porter", - "Finley", - "C8Z 5E0", - "Brunei Darussalam" - ], - [ - "1995", - "Alden", - "Merritt", - "P4E 9F0", - "Mali" - ], - [ - "1996", - "Kaye", - "Andrews", - "I5I 3A4", - "Cayman Islands" - ], - [ - "1997", - "Luke", - "Bryant", - "F3Z 2U1", - "Kuwait" - ], - [ - "1998", - "Heather", - "Blackburn", - "L1T 6B9", - "Mongolia" - ], - [ - "1999", - "Gage", - "Sykes", - "L9Q 7E6", - "Palestinian Territory, Occupied" - ], - [ - "2000", - "Kaseem", - "Harris", - "B9O 1C3", - "Korea" - ], - [ - "2001", - "Quail", - "Leonard", - "88755", - "Burkina Faso" - ], - [ - "2002", - "Dennis", - "Craft", - "13309", - "Namibia" - ], - [ - "2003", - "Ivor", - "Forbes", - "C3P 2E1", - "Malta" - ], - [ - "2004", - "Cade", - "Herman", - "R1E 5X9", - "Sri Lanka" - ], - [ - "2005", - "Larissa", - "Santiago", - "57781", - "Dominica" - ], - [ - "2006", - "Hyatt", - "Tillman", - "45071", - "Ghana" - ], - [ - "2007", - "Timothy", - "Rodgers", - "F8W 9W0", - "Andorra" - ], - [ - "2008", - "Hanae", - "Powell", - "F8B 7P7", - "Luxembourg" - ], - [ - "2009", - "Ima", - "Pennington", - "Z5W 5N5", - "Latvia" - ], - [ - "2010", - "Laurel", - "Bell", - "16805", - "Venezuela" - ], - [ - "2011", - "Avye", - "Long", - "04794", - "Dominica" - ], - [ - "2012", - "Lysandra", - "Pierce", - "H7O 3F4", - "Zimbabwe" - ], - [ - "2013", - "Eve", - "Pollard", - "L5K 6E2", - "Algeria" - ], - [ - "2014", - "Ina", - "Mcdowell", - "65712", - "Saint Lucia" - ], - [ - "2015", - "Meredith", - "Serrano", - "V8M 6K7", - "Libyan Arab Jamahiriya" - ], - [ - "2016", - "Daphne", - "Irwin", - "89933", - "Mongolia" - ], - [ - "2017", - "Adam", - "Henson", - "F6U 9D5", - "Chile" - ], - [ - "2018", - "Amery", - "Hoover", - "13408", - "Mongolia" - ], - [ - "2019", - "Quamar", - "Hendricks", - "20310", - "Gambia" - ], - [ - "2020", - "Ori", - "Wheeler", - "89005", - "Nigeria" - ], - [ - "2021", - "Zena", - "Douglas", - "Z1O 6F9", - "Serbia and Montenegro" - ], - [ - "2022", - "Buckminster", - "Huffman", - "R4V 9L2", - "Mali" - ], - [ - "2023", - "Harlan", - "Gamble", - "U4I 7M4", - "Guyana" - ], - [ - "2024", - "Dalton", - "Cline", - "63829", - "Tonga" - ], - [ - "2025", - "Martha", - "Weber", - "Z9B 4T0", - "Bangladesh" - ], - [ - "2026", - "Vernon", - "Francis", - "M5A 9X7", - "Tokelau" - ], - [ - "2027", - "Janna", - "Velazquez", - "67406", - "Qatar" - ], - [ - "2028", - "Fuller", - "Keller", - "80871", - "Burkina Faso" - ], - [ - "2029", - "Jamal", - "Spears", - "42197", - "Norfolk Island" - ], - [ - "2030", - "Christen", - "Holcomb", - "29806", - "Norway" - ], - [ - "2031", - "Mary", - "Carter", - "C6W 9K9", - "Belgium" - ], - [ - "2032", - "Colorado", - "Austin", - "62904", - "Cook Islands" - ], - [ - "2033", - "Fritz", - "Hunt", - "X8G 2V0", - "Morocco" - ], - [ - "2034", - "Isabella", - "Bush", - "17676", - "Monaco" - ], - [ - "2035", - "Adam", - "Gilliam", - "H7K 9X3", - "Indonesia" - ], - [ - "2036", - "John", - "Austin", - "O7X 4Z0", - "Czech Republic" - ], - [ - "2037", - "Cassady", - "Yates", - "68835", - "Christmas Island" - ], - [ - "2038", - "Ori", - "Cantrell", - "56920", - "Guinea" - ], - [ - "2039", - "May", - "Horn", - "47805", - "Kuwait" - ], - [ - "2040", - "Skyler", - "Clarke", - "64131", - "Lebanon" - ], - [ - "2041", - "Levi", - "Foster", - "S5Q 4B2", - "Germany" - ], - [ - "2042", - "Veda", - "Wilkinson", - "L7Z 9M8", - "Niger" - ], - [ - "2043", - "Brendan", - "Levine", - "L5B 9P4", - "Nepal" - ], - [ - "2044", - "Carson", - "Sullivan", - "93066", - "United Arab Emirates" - ], - [ - "2045", - "Steven", - "Spencer", - "F1V 9A7", - "Pitcairn" - ], - [ - "2046", - "Halla", - "Michael", - "N1U 1E7", - "Seychelles" - ], - [ - "2047", - "Jamal", - "Hobbs", - "G3D 6J7", - "New Caledonia" - ], - [ - "2048", - "Steel", - "Bush", - "U8F 6T2", - "Belize" - ], - [ - "2049", - "Ahmed", - "Dennis", - "M6E 3P3", - "Afghanistan" - ], - [ - "2050", - "Aspen", - "Estes", - "32157", - "American Samoa" - ], - [ - "2051", - "Peter", - "Kelly", - "91773", - "Morocco" - ], - [ - "2052", - "Xandra", - "Grimes", - "66702", - "Tokelau" - ], - [ - "2053", - "Michael", - "Battle", - "J2J 2N5", - "Honduras" - ], - [ - "2054", - "Steel", - "Wiggins", - "34625", - "United States Minor Outlying Islands" - ], - [ - "2055", - "Holmes", - "Christian", - "45402", - "Liechtenstein" - ], - [ - "2056", - "Charles", - "Barrett", - "O4N 9N8", - "Lebanon" - ], - [ - "2057", - "Hermione", - "Soto", - "C8E 4H8", - "Congo" - ], - [ - "2058", - "Elton", - "Maxwell", - "89033", - "Madagascar" - ], - [ - "2059", - "Zelda", - "Burks", - "B7W 5G7", - "Sweden" - ], - [ - "2060", - "Lynn", - "David", - "P3D 5K5", - "Chad" - ], - [ - "2061", - "Margaret", - "Neal", - "47438", - "Western Sahara" - ], - [ - "2062", - "David", - "Vaughan", - "E3L 8D9", - "Tokelau" - ], - [ - "2063", - "Vladimir", - "Mcfarland", - "U9V 1B3", - "Belgium" - ], - [ - "2064", - "Uriah", - "Harrington", - "77051", - "United Arab Emirates" - ], - [ - "2065", - "Noel", - "Merritt", - "J3G 7S1", - "Dominican Republic" - ], - [ - "2066", - "Christine", - "Key", - "54543", - "Niger" - ], - [ - "2067", - "Illana", - "Hendricks", - "07584", - "Montserrat" - ], - [ - "2068", - "Pearl", - "Lewis", - "U5D 2V3", - "Libyan Arab Jamahiriya" - ], - [ - "2069", - "Victoria", - "Bullock", - "17462", - "Mauritania" - ], - [ - "2070", - "Benedict", - "Marsh", - "61479", - "Guyana" - ], - [ - "2071", - "Quemby", - "Washington", - "99774", - "French Polynesia" - ], - [ - "2072", - "Shelley", - "Noble", - "U8S 5Z4", - "Philippines" - ], - [ - "2073", - "Olivia", - "Britt", - "72344", - "Holy See (Vatican City State)" - ], - [ - "2074", - "Oleg", - "Hendrix", - "67567", - "Cuba" - ], - [ - "2075", - "Hermione", - "Gutierrez", - "J5K 2J1", - "Mozambique" - ], - [ - "2076", - "Myra", - "Dean", - "03485", - "Andorra" - ], - [ - "2077", - "Deacon", - "Moore", - "34501", - "Tunisia" - ], - [ - "2078", - "Dai", - "Baird", - "B2P 4R0", - "Cambodia" - ], - [ - "2079", - "Levi", - "Melton", - "K7T 4B1", - "Zimbabwe" - ], - [ - "2080", - "Ocean", - "Dalton", - "66801", - "Gabon" - ], - [ - "2081", - "Selma", - "Harding", - "D7N 3J9", - "Kyrgyzstan" - ], - [ - "2082", - "Maisie", - "Gill", - "56324", - "Morocco" - ], - [ - "2083", - "Hillary", - "Horne", - "Y6O 6G3", - "Cyprus" - ], - [ - "2084", - "Joel", - "Stokes", - "77952", - "Burundi" - ], - [ - "2085", - "Channing", - "Patterson", - "G6B 8H4", - "China" - ], - [ - "2086", - "Elliott", - "Cleveland", - "H3J 9U9", - "Namibia" - ], - [ - "2087", - "Petra", - "Gay", - "44314", - "Palestinian Territory, Occupied" - ], - [ - "2088", - "May", - "Hatfield", - "48918", - "Faroe Islands" - ], - [ - "2089", - "Jemima", - "Francis", - "14347", - "Libyan Arab Jamahiriya" - ], - [ - "2090", - "Kyla", - "Hale", - "46200", - "Cocos (Keeling) Islands" - ], - [ - "2091", - "Veda", - "Bruce", - "F5W 9A6", - "Mauritania" - ], - [ - "2092", - "Sybill", - "Avila", - "58663", - "Angola" - ], - [ - "2093", - "Charissa", - "Salazar", - "35271", - "Faroe Islands" - ], - [ - "2094", - "Steven", - "Allison", - "E5L 4A3", - "Wallis and Futuna" - ], - [ - "2095", - "Kane", - "Parks", - "D5C 6K7", - "Norfolk Island" - ], - [ - "2096", - "Alika", - "Bishop", - "S3P 3O3", - "China" - ], - [ - "2097", - "James", - "Bonner", - "33277", - "Canada" - ], - [ - "2098", - "Yoko", - "Foster", - "B5J 6P9", - "Croatia" - ], - [ - "2099", - "Ivy", - "Riggs", - "94420", - "Kiribati" - ], - [ - "2100", - "Urielle", - "Rosa", - "V6W 2A0", - "Falkland Islands (Malvinas)" - ], - [ - "2101", - "Armando", - "Shepherd", - "Y5C 5W6", - "Panama" - ], - [ - "2102", - "Haley", - "Ingram", - "B4H 5U5", - "Fiji" - ], - [ - "2103", - "Brielle", - "Dyer", - "P2S 4H7", - "Malawi" - ], - [ - "2104", - "Francis", - "Brady", - "24239", - "Uruguay" - ], - [ - "2105", - "Fiona", - "Webster", - "72015", - "Belize" - ], - [ - "2106", - "Aiko", - "Santos", - "K4H 1N0", - "Saint Vincent and The Grenadines" - ], - [ - "2107", - "Amir", - "Rivas", - "02737", - "Papua New Guinea" - ], - [ - "2108", - "Mira", - "Kerr", - "W6E 6Y2", - "Sri Lanka" - ], - [ - "2109", - "Harrison", - "Jensen", - "50193", - "Heard Island and Mcdonald Islands" - ], - [ - "2110", - "Merrill", - "Randall", - "21534", - "Colombia" - ], - [ - "2111", - "Benjamin", - "Howe", - "N8M 4N6", - "Turkmenistan" - ], - [ - "2112", - "Melyssa", - "Kidd", - "97657", - "Cameroon" - ], - [ - "2113", - "Henry", - "Moore", - "95626", - "Botswana" - ], - [ - "2114", - "Nash", - "Peters", - "K3V 9F3", - "Wallis and Futuna" - ], - [ - "2115", - "Iliana", - "Holt", - "E9F 2Q8", - "Netherlands Antilles" - ], - [ - "2116", - "Naomi", - "Hood", - "P6D 2G3", - "Anguilla" - ], - [ - "2117", - "Ainsley", - "Barron", - "94273", - "New Caledonia" - ], - [ - "2118", - "Daphne", - "Acevedo", - "A9I 9E4", - "Bermuda" - ], - [ - "2119", - "Kiona", - "Keith", - "62523", - "Saint Lucia" - ], - [ - "2120", - "Kirsten", - "Mcgee", - "97481", - "Macedonia" - ], - [ - "2121", - "Emerald", - "Franklin", - "Q2I 6D6", - "Botswana" - ], - [ - "2122", - "Hall", - "Schroeder", - "I2D 9L7", - "Kenya" - ], - [ - "2123", - "Amaya", - "Lynch", - "50534", - "Costa Rica" - ], - [ - "2124", - "Randall", - "Hanson", - "B4R 2S3", - "United Arab Emirates" - ], - [ - "2125", - "Sasha", - "Clarke", - "50972", - "United States Minor Outlying Islands" - ], - [ - "2126", - "Susan", - "Sutton", - "Z4T 6K3", - "Solomon Islands" - ], - [ - "2127", - "Hiram", - "Torres", - "C8O 5O7", - "Botswana" - ], - [ - "2128", - "Melanie", - "Calhoun", - "87097", - "New Zealand" - ], - [ - "2129", - "Courtney", - "Sutton", - "07944", - "Spain" - ], - [ - "2130", - "Reuben", - "Beard", - "U6Z 8N5", - "Faroe Islands" - ], - [ - "2131", - "Jarrod", - "Payne", - "94171", - "Turkey" - ], - [ - "2132", - "Vincent", - "Potts", - "V5Z 9G9", - "Madagascar" - ], - [ - "2133", - "Kaye", - "Kent", - "O1B 2Z9", - "Fiji" - ], - [ - "2134", - "Carol", - "Green", - "78719", - "Comoros" - ], - [ - "2135", - "Cairo", - "Combs", - "G3C 8F0", - "Indonesia" - ], - [ - "2136", - "Ebony", - "Parker", - "77377", - "Portugal" - ], - [ - "2137", - "Gary", - "Shaffer", - "F1B 9W7", - "French Guiana" - ], - [ - "2138", - "Gay", - "Jimenez", - "05726", - "Nepal" - ], - [ - "2139", - "Patience", - "Bryan", - "60437", - "Macao" - ], - [ - "2140", - "Zenaida", - "Bowen", - "V3S 1G7", - "Mauritania" - ], - [ - "2141", - "Isaac", - "Aguirre", - "X8S 9K4", - "Bermuda" - ], - [ - "2142", - "Lacy", - "Harrell", - "67362", - "Bhutan" - ], - [ - "2143", - "Jael", - "Grimes", - "95612", - "Anguilla" - ], - [ - "2144", - "Catherine", - "Galloway", - "45834", - "Suriname" - ], - [ - "2145", - "Donna", - "Burt", - "N8C 2M8", - "Burkina Faso" - ], - [ - "2146", - "Colleen", - "Ball", - "N3E 4U8", - "Libyan Arab Jamahiriya" - ], - [ - "2147", - "Lael", - "Brady", - "01369", - "Macedonia" - ], - [ - "2148", - "Kermit", - "Logan", - "Y5P 8Q8", - "Honduras" - ], - [ - "2149", - "Katelyn", - "Orr", - "R7X 9W3", - "Switzerland" - ], - [ - "2150", - "Alisa", - "Glenn", - "17831", - "Timor-leste" - ], - [ - "2151", - "Lee", - "Bean", - "89445", - "Guam" - ], - [ - "2152", - "Maryam", - "Cotton", - "57924", - "Gambia" - ], - [ - "2153", - "Amena", - "Love", - "X1Z 6F7", - "Thailand" - ], - [ - "2154", - "Tallulah", - "Case", - "87477", - "Ecuador" - ], - [ - "2155", - "Carlos", - "Sanford", - "F6S 8J6", - "Iraq" - ], - [ - "2156", - "Quamar", - "David", - "D5F 2M8", - "Gabon" - ], - [ - "2157", - "Cassady", - "Mays", - "12786", - "Netherlands" - ], - [ - "2158", - "Jenna", - "Rowland", - "88845", - "China" - ], - [ - "2159", - "Justin", - "Tanner", - "66071", - "Nepal" - ], - [ - "2160", - "Riley", - "Santiago", - "F8K 2Y6", - "Gabon" - ], - [ - "2161", - "Iris", - "Gallegos", - "K9C 3T9", - "Niue" - ], - [ - "2162", - "Kato", - "Osborn", - "N4C 2L8", - "Puerto Rico" - ], - [ - "2163", - "Imogene", - "Schroeder", - "79710", - "United States Minor Outlying Islands" - ], - [ - "2164", - "Olympia", - "Hebert", - "D4W 1L0", - "Saint Lucia" - ], - [ - "2165", - "Skyler", - "Burnett", - "B2R 5H7", - "Antarctica" - ], - [ - "2166", - "Faith", - "Sims", - "88476", - "Egypt" - ], - [ - "2167", - "Emily", - "Odom", - "U7O 2P6", - "Kuwait" - ], - [ - "2168", - "Carly", - "Washington", - "46063", - "Benin" - ], - [ - "2169", - "Jolene", - "Meyer", - "B2B 9A4", - "Australia" - ], - [ - "2170", - "Ayanna", - "Conrad", - "84360", - "Northern Mariana Islands" - ], - [ - "2171", - "Violet", - "Blankenship", - "W2B 3U1", - "New Caledonia" - ], - [ - "2172", - "Rhona", - "Gallegos", - "10931", - "Montserrat" - ], - [ - "2173", - "Alice", - "Hodges", - "96181", - "Burkina Faso" - ], - [ - "2174", - "Brody", - "Sandoval", - "68959", - "Pitcairn" - ], - [ - "2175", - "Isabella", - "Dunlap", - "U8U 7Y8", - "Afghanistan" - ], - [ - "2176", - "Jordan", - "Golden", - "55152", - "Guam" - ], - [ - "2177", - "Gillian", - "Thomas", - "75633", - "Djibouti" - ], - [ - "2178", - "Hollee", - "Clay", - "79847", - "Panama" - ], - [ - "2179", - "Dane", - "Knapp", - "89535", - "Armenia" - ], - [ - "2180", - "Avram", - "Martin", - "T4S 4E2", - "Madagascar" - ], - [ - "2181", - "Fuller", - "Newman", - "47317", - "Jamaica" - ], - [ - "2182", - "Nina", - "Berry", - "81360", - "Mongolia" - ], - [ - "2183", - "Akeem", - "Pratt", - "56230", - "Colombia" - ], - [ - "2184", - "Lacy", - "Hayes", - "U7T 4F5", - "Cyprus" - ], - [ - "2185", - "Alfonso", - "Mcclure", - "06797", - "Swaziland" - ], - [ - "2186", - "Cedric", - "Love", - "64720", - "Bermuda" - ], - [ - "2187", - "Astra", - "Fernandez", - "H3I 1B0", - "Mongolia" - ], - [ - "2188", - "Iliana", - "Durham", - "R8C 7M8", - "Spain" - ], - [ - "2189", - "Gwendolyn", - "Livingston", - "C7X 5L1", - "Northern Mariana Islands" - ], - [ - "2190", - "Caldwell", - "Anderson", - "69099", - "Kuwait" - ], - [ - "2191", - "Risa", - "Mejia", - "P7A 4U7", - "Israel" - ], - [ - "2192", - "Dora", - "Navarro", - "L6G 2O8", - "Ireland" - ], - [ - "2193", - "Kirk", - "Dean", - "I2T 3E6", - "Pitcairn" - ], - [ - "2194", - "Jackson", - "Harvey", - "53467", - "Myanmar" - ], - [ - "2195", - "Thane", - "Ballard", - "87240", - "Solomon Islands" - ], - [ - "2196", - "Nadine", - "Estes", - "62003", - "Malta" - ], - [ - "2197", - "Candace", - "Nunez", - "57223", - "Virgin Islands, British" - ], - [ - "2198", - "Zelda", - "Odom", - "X4V 7F5", - "Mongolia" - ], - [ - "2199", - "Wylie", - "Ayala", - "S4I 4Q4", - "Djibouti" - ], - [ - "2200", - "Azalia", - "Page", - "57239", - "Korea, Republic of" - ], - [ - "2201", - "Joshua", - "Burch", - "R7B 1N7", - "Samoa" - ], - [ - "2202", - "Basil", - "Ramos", - "71614", - "Tunisia" - ], - [ - "2203", - "Jessica", - "Shields", - "U2D 4X3", - "Syrian Arab Republic" - ], - [ - "2204", - "Clio", - "Singleton", - "I1B 1B0", - "Ghana" - ], - [ - "2205", - "Astra", - "Dotson", - "62378", - "Turks and Caicos Islands" - ], - [ - "2206", - "Hamish", - "Tucker", - "E4Z 3N3", - "Anguilla" - ], - [ - "2207", - "Rachel", - "Matthews", - "U4I 8M3", - "Trinidad and Tobago" - ], - [ - "2208", - "Clayton", - "Ball", - "95319", - "India" - ], - [ - "2209", - "Quinn", - "Wilkinson", - "Y6M 3Q7", - "Virgin Islands, U.S." - ], - [ - "2210", - "Phelan", - "Talley", - "00543", - "Philippines" - ], - [ - "2211", - "Carol", - "Brock", - "M6X 4E2", - "Gibraltar" - ], - [ - "2212", - "Nomlanga", - "Robles", - "56511", - "Viet Nam" - ], - [ - "2213", - "Adrian", - "Clay", - "79479", - "France" - ], - [ - "2214", - "Sara", - "Riley", - "B9N 5P4", - "Peru" - ], - [ - "2215", - "Christine", - "Sweeney", - "W1Z 4S4", - "French Polynesia" - ], - [ - "2216", - "Leilani", - "Johnston", - "W1C 8M8", - "American Samoa" - ], - [ - "2217", - "Melyssa", - "Lambert", - "V1B 4P6", - "Iraq" - ], - [ - "2218", - "Talon", - "Delacruz", - "Y3N 9R2", - "Bulgaria" - ], - [ - "2219", - "Garth", - "Jennings", - "59667", - "Malta" - ], - [ - "2220", - "Naida", - "Coleman", - "45456", - "Finland" - ], - [ - "2221", - "Indigo", - "Lopez", - "77160", - "Pitcairn" - ], - [ - "2222", - "Asher", - "French", - "99064", - "British Indian Ocean Territory" - ], - [ - "2223", - "Vivian", - "Mcgowan", - "46310", - "Oman" - ], - [ - "2224", - "Gwendolyn", - "Cervantes", - "48905", - "Cocos (Keeling) Islands" - ], - [ - "2225", - "Logan", - "Reid", - "87376", - "Ethiopia" - ], - [ - "2226", - "Bryar", - "Wolfe", - "75860", - "Comoros" - ], - [ - "2227", - "Demetrius", - "Hutchinson", - "97252", - "Dominican Republic" - ], - [ - "2228", - "Freya", - "Becker", - "04872", - "United States" - ], - [ - "2229", - "Abel", - "Brooks", - "I7O 1M1", - "Comoros" - ], - [ - "2230", - "Silas", - "Mcguire", - "04101", - "Indonesia" - ], - [ - "2231", - "Quinn", - "Fletcher", - "B6E 2B0", - "Niger" - ], - [ - "2232", - "Rooney", - "Holden", - "29294", - "Micronesia" - ], - [ - "2233", - "Iris", - "Hale", - "N7W 6E9", - "Greenland" - ], - [ - "2234", - "Candace", - "Barry", - "U8I 5A4", - "Germany" - ], - [ - "2235", - "Yetta", - "Ball", - "62055", - "Switzerland" - ], - [ - "2236", - "Dai", - "Bentley", - "P2Y 4C5", - "Dominica" - ], - [ - "2237", - "Gannon", - "Dunlap", - "45728", - "Fiji" - ], - [ - "2238", - "Chelsea", - "Mays", - "36498", - "Guinea" - ], - [ - "2239", - "Ruth", - "Mcguire", - "62924", - "Maldives" - ], - [ - "2240", - "Melissa", - "Durham", - "D6S 1A2", - "Armenia" - ], - [ - "2241", - "Eaton", - "Salinas", - "53689", - "Somalia" - ], - [ - "2242", - "Driscoll", - "Cunningham", - "31194", - "Sweden" - ], - [ - "2243", - "Bevis", - "Acosta", - "V4M 9Z2", - "Jamaica" - ], - [ - "2244", - "Anastasia", - "Mcknight", - "24878", - "Sao Tome and Principe" - ], - [ - "2245", - "Anika", - "Rowland", - "45287", - "Chile" - ], - [ - "2246", - "Dexter", - "Rollins", - "00684", - "Iran, Islamic Republic of" - ], - [ - "2247", - "Brielle", - "Irwin", - "V4U 7R2", - "Belgium" - ], - [ - "2248", - "Ocean", - "Fields", - "08544", - "Croatia" - ], - [ - "2249", - "Sonia", - "Solis", - "C4X 1L5", - "Niue" - ], - [ - "2250", - "Joseph", - "Haney", - "29567", - "Argentina" - ], - [ - "2251", - "Lamar", - "Heath", - "81699", - "Italy" - ], - [ - "2252", - "Raya", - "Jordan", - "R6K 7B3", - "Spain" - ], - [ - "2253", - "Brody", - "Frost", - "34564", - "Dominican Republic" - ], - [ - "2254", - "Ann", - "Hawkins", - "S3A 5K7", - "Yemen" - ], - [ - "2255", - "Phillip", - "Lindsay", - "80544", - "Sierra Leone" - ], - [ - "2256", - "Willa", - "Maynard", - "A6A 4C5", - "Mexico" - ], - [ - "2257", - "Carolyn", - "Mercer", - "V8Z 1X5", - "Zimbabwe" - ], - [ - "2258", - "Justin", - "Cole", - "68764", - "Saint Vincent and The Grenadines" - ], - [ - "2259", - "Emmanuel", - "Parks", - "99769", - "Latvia" - ], - [ - "2260", - "Isaiah", - "Salazar", - "H1K 1X3", - "Turks and Caicos Islands" - ], - [ - "2261", - "Vance", - "Porter", - "49607", - "Costa Rica" - ], - [ - "2262", - "Igor", - "Kim", - "99489", - "Turkmenistan" - ], - [ - "2263", - "Emi", - "Graves", - "F4M 5L8", - "El Salvador" - ], - [ - "2264", - "Griffith", - "Monroe", - "11550", - "Tanzania, United Republic of" - ], - [ - "2265", - "Iliana", - "Coffey", - "30220", - "Albania" - ], - [ - "2266", - "Jemima", - "Guthrie", - "69283", - "Saint Pierre and Miquelon" - ], - [ - "2267", - "Zenia", - "Farrell", - "91872", - "Tanzania, United Republic of" - ], - [ - "2268", - "Lucas", - "Chambers", - "L5Z 1W0", - "Bouvet Island" - ], - [ - "2269", - "Zenaida", - "Valenzuela", - "31700", - "Guam" - ], - [ - "2270", - "Bradley", - "Wynn", - "21222", - "Lithuania" - ], - [ - "2271", - "Maite", - "Richard", - "H4D 7X0", - "Cameroon" - ], - [ - "2272", - "Moses", - "House", - "Y3Z 3K7", - "Saint Vincent and The Grenadines" - ], - [ - "2273", - "Erich", - "Petersen", - "U4N 9R7", - "Rwanda" - ], - [ - "2274", - "Stephanie", - "Zimmerman", - "70097", - "Malawi" - ], - [ - "2275", - "Rylee", - "Schneider", - "15645", - "Gibraltar" - ], - [ - "2276", - "Zia", - "Craig", - "H1K 1N9", - "Norway" - ], - [ - "2277", - "Fiona", - "Chaney", - "Y4U 7K8", - "San Marino" - ], - [ - "2278", - "Gil", - "Sherman", - "64720", - "Wallis and Futuna" - ], - [ - "2279", - "Raja", - "Sandoval", - "11225", - "Lithuania" - ], - [ - "2280", - "Illana", - "Wyatt", - "A2M 9O2", - "Brazil" - ], - [ - "2281", - "Declan", - "Howell", - "E9V 8J5", - "San Marino" - ], - [ - "2282", - "Warren", - "Cooper", - "47160", - "Guyana" - ], - [ - "2283", - "Alyssa", - "Juarez", - "S7G 8F2", - "Sweden" - ], - [ - "2284", - "Quynn", - "Long", - "P1P 5Y4", - "Mexico" - ], - [ - "2285", - "Dalton", - "Booker", - "I5T 1R3", - "Mauritius" - ], - [ - "2286", - "Lunea", - "Mclaughlin", - "I3F 6D4", - "Togo" - ], - [ - "2287", - "Irene", - "Brock", - "04760", - "Tajikistan" - ], - [ - "2288", - "Raven", - "Floyd", - "R2N 2Y5", - "Philippines" - ], - [ - "2289", - "Nichole", - "Farmer", - "81213", - "Seychelles" - ], - [ - "2290", - "Sophia", - "Mcdonald", - "86291", - "Chile" - ], - [ - "2291", - "Nehru", - "Matthews", - "60732", - "Central African Republic" - ], - [ - "2292", - "Marah", - "Nelson", - "44533", - "Kenya" - ], - [ - "2293", - "Marvin", - "Lyons", - "M7Y 1Q6", - "Somalia" - ], - [ - "2294", - "Ian", - "Fernandez", - "D9U 8B6", - "Turkey" - ], - [ - "2295", - "Gretchen", - "Dotson", - "48294", - "China" - ], - [ - "2296", - "Brady", - "Weaver", - "S4U 4I8", - "Burundi" - ], - [ - "2297", - "Ella", - "Salas", - "73771", - "Sao Tome and Principe" - ], - [ - "2298", - "Martha", - "Irwin", - "06554", - "Timor-leste" - ], - [ - "2299", - "Penelope", - "Pratt", - "S1R 4L4", - "Gabon" - ], - [ - "2300", - "Kenyon", - "Dale", - "64548", - "Zimbabwe" - ], - [ - "2301", - "Henry", - "Myers", - "07614", - "United Arab Emirates" - ], - [ - "2302", - "Chaney", - "Dunlap", - "18388", - "French Southern Territories" - ], - [ - "2303", - "Palmer", - "Le", - "10807", - "Colombia" - ], - [ - "2304", - "Kaseem", - "Madden", - "U4E 6L9", - "Guyana" - ], - [ - "2305", - "Grant", - "Anthony", - "F3K 4D8", - "Trinidad and Tobago" - ], - [ - "2306", - "Denton", - "Moore", - "I5O 4I5", - "Belize" - ], - [ - "2307", - "Regan", - "Pittman", - "U8T 9M1", - "Romania" - ], - [ - "2308", - "Valentine", - "Hunt", - "E9O 6H6", - "Poland" - ], - [ - "2309", - "Abraham", - "Love", - "X1T 4K0", - "Philippines" - ], - [ - "2310", - "Maggie", - "Gaines", - "W5Z 6L4", - "Chad" - ], - [ - "2311", - "Kylynn", - "Sears", - "53419", - "Ghana" - ], - [ - "2312", - "Abel", - "Hudson", - "O6C 6K5", - "Malaysia" - ], - [ - "2313", - "Aladdin", - "Brady", - "16465", - "Antarctica" - ], - [ - "2314", - "Laurel", - "Bush", - "42295", - "Kyrgyzstan" - ], - [ - "2315", - "Cameron", - "Shepherd", - "Y8R 5L7", - "Finland" - ], - [ - "2316", - "Colin", - "Barker", - "H8Q 5L0", - "Aruba" - ], - [ - "2317", - "Nichole", - "Stephens", - "B8P 3D5", - "Qatar" - ], - [ - "2318", - "Mary", - "Dorsey", - "J7D 1E5", - "Iceland" - ], - [ - "2319", - "Yetta", - "Dillon", - "I7X 9D3", - "Hong Kong" - ], - [ - "2320", - "Hope", - "May", - "L5W 1T9", - "Taiwan, Province of China" - ], - [ - "2321", - "Daphne", - "Barr", - "W2B 9G2", - "Korea, Republic of" - ], - [ - "2322", - "Melissa", - "Hartman", - "17607", - "Reunion" - ], - [ - "2323", - "Acton", - "Merritt", - "U7M 3Q5", - "Cape Verde" - ], - [ - "2324", - "Alika", - "Weeks", - "45475", - "Singapore" - ], - [ - "2325", - "Fitzgerald", - "Rowe", - "Z3Z 2B6", - "Israel" - ], - [ - "2326", - "Frances", - "Valentine", - "54329", - "Kyrgyzstan" - ], - [ - "2327", - "Hollee", - "Poole", - "56101", - "Saint Kitts and Nevis" - ], - [ - "2328", - "Melissa", - "Stafford", - "R5C 7V0", - "Philippines" - ], - [ - "2329", - "Patience", - "Jones", - "61516", - "Mauritius" - ], - [ - "2330", - "Uta", - "Sloan", - "K1B 9R2", - "Timor-leste" - ], - [ - "2331", - "Brent", - "West", - "69310", - "Burundi" - ], - [ - "2332", - "Otto", - "Olsen", - "88849", - "Monaco" - ], - [ - "2333", - "Blossom", - "Soto", - "E2Q 6E6", - "Ukraine" - ], - [ - "2334", - "Anastasia", - "Stanton", - "S8D 3U5", - "Mexico" - ], - [ - "2335", - "Nyssa", - "Massey", - "A4G 8G7", - "Ireland" - ], - [ - "2336", - "Brian", - "Moreno", - "T6O 4D7", - "Myanmar" - ], - [ - "2337", - "Fiona", - "Price", - "03826", - "Benin" - ], - [ - "2338", - "Wyoming", - "Knowles", - "I5M 7T3", - "Chad" - ], - [ - "2339", - "Iola", - "Noble", - "95251", - "Tunisia" - ], - [ - "2340", - "Cameran", - "Montgomery", - "35748", - "Korea" - ], - [ - "2341", - "Wesley", - "Sims", - "J6O 7C0", - "Hungary" - ], - [ - "2342", - "Mona", - "Gates", - "J6Y 3E2", - "Tokelau" - ], - [ - "2343", - "Dominique", - "Sellers", - "G6U 7I2", - "Sudan" - ], - [ - "2344", - "Destiny", - "Frazier", - "Y2P 5X6", - "Madagascar" - ], - [ - "2345", - "Kelsie", - "Stokes", - "78561", - "Yemen" - ], - [ - "2346", - "Julie", - "Jordan", - "U5H 4H0", - "Myanmar" - ], - [ - "2347", - "Xaviera", - "Hodge", - "36452", - "Turkey" - ], - [ - "2348", - "Cain", - "Boyd", - "74543", - "Lebanon" - ], - [ - "2349", - "Devin", - "Burch", - "94879", - "Cyprus" - ], - [ - "2350", - "Michelle", - "Manning", - "V7T 4A3", - "New Zealand" - ], - [ - "2351", - "Quintessa", - "Chapman", - "95379", - "Faroe Islands" - ], - [ - "2352", - "Danielle", - "Wells", - "27722", - "Colombia" - ], - [ - "2353", - "Faith", - "Decker", - "04881", - "Canada" - ], - [ - "2354", - "Gannon", - "Chapman", - "07687", - "Israel" - ], - [ - "2355", - "Jayme", - "Black", - "A6L 9W1", - "Jordan" - ], - [ - "2356", - "Zenia", - "Cooley", - "A6X 1B7", - "Greenland" - ], - [ - "2357", - "Maris", - "Burton", - "J4G 1Y0", - "Ecuador" - ], - [ - "2358", - "Rina", - "Vazquez", - "G3V 7G6", - "Russian Federation" - ], - [ - "2359", - "Nina", - "Stanton", - "E7Z 1W0", - "Dominica" - ], - [ - "2360", - "Alexandra", - "Jenkins", - "C6N 4R4", - "Morocco" - ], - [ - "2361", - "Jerome", - "Chen", - "68955", - "Israel" - ], - [ - "2362", - "Clementine", - "Robbins", - "X7I 7T3", - "Croatia" - ], - [ - "2363", - "Nigel", - "Guthrie", - "A4N 6X8", - "French Southern Territories" - ], - [ - "2364", - "Xaviera", - "Griffith", - "90489", - "Cuba" - ], - [ - "2365", - "Marsden", - "Best", - "U4B 5R7", - "Estonia" - ], - [ - "2366", - "Ebony", - "Benson", - "H7C 7F7", - "Anguilla" - ], - [ - "2367", - "Kylie", - "Hansen", - "38932", - "Eritrea" - ], - [ - "2368", - "Iola", - "Copeland", - "P4X 9M4", - "Rwanda" - ], - [ - "2369", - "Jorden", - "Green", - "48018", - "Namibia" - ], - [ - "2370", - "Hamish", - "Porter", - "L6F 8L1", - "Taiwan, Province of China" - ], - [ - "2371", - "Ezra", - "Taylor", - "09148", - "French Southern Territories" - ], - [ - "2372", - "Dara", - "Pratt", - "00558", - "Saint Kitts and Nevis" - ], - [ - "2373", - "Oliver", - "Holt", - "C4N 5Z7", - "Thailand" - ], - [ - "2374", - "Kato", - "Mcgee", - "17017", - "Micronesia" - ], - [ - "2375", - "Fuller", - "Rogers", - "M8F 6Y7", - "French Polynesia" - ], - [ - "2376", - "Carol", - "Stuart", - "55980", - "Sudan" - ], - [ - "2377", - "Wayne", - "Nichols", - "37344", - "Chile" - ], - [ - "2378", - "Lars", - "Gilbert", - "27076", - "Micronesia" - ], - [ - "2379", - "Todd", - "Rollins", - "M4I 4X8", - "Virgin Islands, U.S." - ], - [ - "2380", - "Colorado", - "Justice", - "68795", - "Yemen" - ], - [ - "2381", - "Jordan", - "Chang", - "11149", - "Mayotte" - ], - [ - "2382", - "Troy", - "Haynes", - "N2N 1N8", - "Reunion" - ], - [ - "2383", - "Amity", - "Snyder", - "17785", - "Argentina" - ], - [ - "2384", - "Kennan", - "Turner", - "30041", - "Brazil" - ], - [ - "2385", - "Dorothy", - "Gates", - "B7Z 6V4", - "Ghana" - ], - [ - "2386", - "Ariana", - "Rojas", - "70797", - "Eritrea" - ], - [ - "2387", - "Desirae", - "Joyner", - "63493", - "Maldives" - ], - [ - "2388", - "Marsden", - "Barton", - "36343", - "Chile" - ], - [ - "2389", - "Graham", - "Greer", - "65152", - "Cayman Islands" - ], - [ - "2390", - "Cameron", - "Edwards", - "89276", - "Montserrat" - ], - [ - "2391", - "Bradley", - "White", - "80364", - "United Kingdom" - ], - [ - "2392", - "Finn", - "Cote", - "G9P 1P0", - "Ghana" - ], - [ - "2393", - "Geoffrey", - "Becker", - "O5G 4L4", - "Wallis and Futuna" - ], - [ - "2394", - "Hayden", - "Estes", - "Q8G 7F9", - "Togo" - ], - [ - "2395", - "Quinlan", - "Garrett", - "R2C 3E7", - "Uganda" - ], - [ - "2396", - "Haviva", - "Harrington", - "64198", - "Bahamas" - ], - [ - "2397", - "Brennan", - "Hodge", - "35327", - "Paraguay" - ], - [ - "2398", - "Halee", - "Sykes", - "S6J 4S4", - "Costa Rica" - ], - [ - "2399", - "Mikayla", - "Ruiz", - "21686", - "Malaysia" - ], - [ - "2400", - "Macy", - "Stanley", - "F6D 6C4", - "Luxembourg" - ], - [ - "2401", - "Petra", - "Miles", - "O7X 2D2", - "Tokelau" - ], - [ - "2402", - "Oprah", - "Mendez", - "88994", - "France" - ], - [ - "2403", - "Upton", - "Silva", - "17878", - "French Southern Territories" - ], - [ - "2404", - "Wade", - "Pennington", - "S8J 3P2", - "Malaysia" - ], - [ - "2405", - "Gannon", - "Riddle", - "I4A 2H9", - "Somalia" - ], - [ - "2406", - "Jana", - "Myers", - "04982", - "Philippines" - ], - [ - "2407", - "Brooke", - "Hale", - "98272", - "Lithuania" - ], - [ - "2408", - "Hashim", - "Mendez", - "00144", - "Saint Helena" - ], - [ - "2409", - "Blythe", - "Hanson", - "U5Z 6P4", - "Saint Helena" - ], - [ - "2410", - "Michelle", - "Madden", - "B4R 1I9", - "Ireland" - ], - [ - "2411", - "Deirdre", - "Patton", - "B4H 1N7", - "Georgia" - ], - [ - "2412", - "Nathaniel", - "Chandler", - "W1V 8R4", - "Sierra Leone" - ], - [ - "2413", - "Tamekah", - "Murray", - "I8M 1W8", - "Guatemala" - ], - [ - "2414", - "Naida", - "Boyle", - "V4S 2N2", - "United Arab Emirates" - ], - [ - "2415", - "Hiroko", - "Winters", - "K8G 3R9", - "Barbados" - ], - [ - "2416", - "Palmer", - "Guy", - "A4H 5L1", - "Saudi Arabia" - ], - [ - "2417", - "Hermione", - "Nicholson", - "76147", - "Marshall Islands" - ], - [ - "2418", - "Russell", - "Boyd", - "66149", - "Switzerland" - ], - [ - "2419", - "Gretchen", - "Robles", - "B9L 1J7", - "Spain" - ], - [ - "2420", - "Leah", - "Gibbs", - "16682", - "Vanuatu" - ], - [ - "2421", - "Amir", - "Carlson", - "A5C 6F2", - "Myanmar" - ], - [ - "2422", - "Merrill", - "Ratliff", - "A6E 9B2", - "Tonga" - ], - [ - "2423", - "Wyatt", - "David", - "P8G 2M1", - "Kiribati" - ], - [ - "2424", - "Violet", - "Boyle", - "P5X 7B0", - "Denmark" - ], - [ - "2425", - "Jared", - "Myers", - "22131", - "Kyrgyzstan" - ], - [ - "2426", - "Lavinia", - "Stephenson", - "55537", - "Turks and Caicos Islands" - ], - [ - "2427", - "Zachary", - "Tyson", - "C4O 7V4", - "Macedonia" - ], - [ - "2428", - "Emma", - "Clark", - "A7Z 2Z1", - "Guam" - ], - [ - "2429", - "Aaron", - "Montoya", - "Q3U 2X1", - "Bahrain" - ], - [ - "2430", - "Dylan", - "Roach", - "81238", - "French Guiana" - ], - [ - "2431", - "Baxter", - "Rosario", - "H7B 1R2", - "Suriname" - ], - [ - "2432", - "Shad", - "Bolton", - "D1W 5X0", - "Barbados" - ], - [ - "2433", - "Hasad", - "Hines", - "D9U 3H1", - "Ukraine" - ], - [ - "2434", - "Maggy", - "French", - "M3E 5H8", - "Nicaragua" - ], - [ - "2435", - "Evangeline", - "Jenkins", - "57732", - "Nigeria" - ], - [ - "2436", - "Eaton", - "Shannon", - "56854", - "Namibia" - ], - [ - "2437", - "Keaton", - "Barber", - "G5V 7T0", - "Svalbard and Jan Mayen" - ], - [ - "2438", - "Lester", - "Love", - "J5Q 8H3", - "United Kingdom" - ], - [ - "2439", - "Olivia", - "Foley", - "16284", - "Mayotte" - ], - [ - "2440", - "Inez", - "Craig", - "98947", - "Poland" - ], - [ - "2441", - "Desirae", - "Jacobson", - "25950", - "French Polynesia" - ], - [ - "2442", - "Amethyst", - "Robertson", - "78840", - "Timor-leste" - ], - [ - "2443", - "Rahim", - "Day", - "61420", - "Maldives" - ], - [ - "2444", - "Kevyn", - "Mccarty", - "X7T 8Z3", - "Guam" - ], - [ - "2445", - "Logan", - "Malone", - "B6F 8N0", - "Madagascar" - ], - [ - "2446", - "Kathleen", - "Cote", - "L4R 6W9", - "Congo" - ], - [ - "2447", - "Porter", - "Mclean", - "G1Z 1W9", - "Mauritius" - ], - [ - "2448", - "Reagan", - "Chapman", - "86314", - "Palestinian Territory, Occupied" - ], - [ - "2449", - "Veda", - "Harrington", - "R7W 1K4", - "Congo" - ], - [ - "2450", - "Dominique", - "Hewitt", - "P5K 7L4", - "San Marino" - ], - [ - "2451", - "Zelda", - "Orr", - "Z5B 6V1", - "Greenland" - ], - [ - "2452", - "Natalie", - "Kane", - "10491", - "Belgium" - ], - [ - "2453", - "Elizabeth", - "Bright", - "R3V 2R4", - "Bangladesh" - ], - [ - "2454", - "Evan", - "Knapp", - "W3Z 3I5", - "Mauritius" - ], - [ - "2455", - "Unity", - "Armstrong", - "82986", - "Kiribati" - ], - [ - "2456", - "Arden", - "Winters", - "C7D 4M2", - "Sweden" - ], - [ - "2457", - "Hayfa", - "Henderson", - "B8Z 3V3", - "Latvia" - ], - [ - "2458", - "Ocean", - "Delacruz", - "Z3Z 2H8", - "Tonga" - ], - [ - "2459", - "Carter", - "Harding", - "R1Z 8J4", - "Ireland" - ], - [ - "2460", - "Harriet", - "Simmons", - "54757", - "Indonesia" - ], - [ - "2461", - "Sopoline", - "Hicks", - "I5A 6O2", - "Argentina" - ], - [ - "2462", - "Jenette", - "Ramos", - "I4V 3H6", - "Portugal" - ], - [ - "2463", - "Abigail", - "Berg", - "E6P 6L0", - "United States" - ], - [ - "2464", - "Sybill", - "Fox", - "02319", - "Svalbard and Jan Mayen" - ], - [ - "2465", - "Wyoming", - "Jarvis", - "I1R 7V9", - "Palestinian Territory, Occupied" - ], - [ - "2466", - "Cynthia", - "English", - "17983", - "Israel" - ], - [ - "2467", - "Jerry", - "Little", - "33846", - "Mauritius" - ], - [ - "2468", - "Quintessa", - "Donaldson", - "V4N 2K1", - "China" - ], - [ - "2469", - "Anne", - "Potter", - "78596", - "United States Minor Outlying Islands" - ], - [ - "2470", - "Madonna", - "Hart", - "A4A 4T8", - "Bahrain" - ], - [ - "2471", - "Madeline", - "Walls", - "Y3D 4T3", - "Comoros" - ], - [ - "2472", - "Fleur", - "Blevins", - "D1T 9P6", - "Guinea-bissau" - ], - [ - "2473", - "Jaden", - "Webb", - "13917", - "Lesotho" - ], - [ - "2474", - "Abdul", - "Fleming", - "A8A 3Y3", - "Canada" - ], - [ - "2475", - "Blaze", - "Carroll", - "41059", - "Marshall Islands" - ], - [ - "2476", - "David", - "Hoover", - "29132", - "Algeria" - ], - [ - "2477", - "Renee", - "Nieves", - "35843", - "Egypt" - ], - [ - "2478", - "Jaime", - "Mcclure", - "R5K 6B5", - "Liechtenstein" - ], - [ - "2479", - "Deborah", - "Fletcher", - "70399", - "Equatorial Guinea" - ], - [ - "2480", - "Otto", - "Lopez", - "72417", - "Belarus" - ], - [ - "2481", - "Bo", - "Walls", - "F4M 8X8", - "Latvia" - ], - [ - "2482", - "Jamal", - "Adams", - "N9X 3A2", - "Spain" - ], - [ - "2483", - "Silas", - "Gardner", - "25259", - "French Guiana" - ], - [ - "2484", - "Aladdin", - "Morin", - "45179", - "Sweden" - ], - [ - "2485", - "Dawn", - "Grant", - "53613", - "Grenada" - ], - [ - "2486", - "Forrest", - "Gay", - "53606", - "Cayman Islands" - ], - [ - "2487", - "Lavinia", - "Murphy", - "S5L 6X9", - "Turkey" - ], - [ - "2488", - "Sylvia", - "Wolfe", - "37280", - "Indonesia" - ], - [ - "2489", - "Wynter", - "Adkins", - "37391", - "Russian Federation" - ], - [ - "2490", - "Iola", - "Frank", - "I9H 1K7", - "Nigeria" - ], - [ - "2491", - "Emmanuel", - "Hester", - "Z6E 3I4", - "Guinea" - ], - [ - "2492", - "Karina", - "Christian", - "V8M 6F3", - "Honduras" - ], - [ - "2493", - "Malcolm", - "Holden", - "I7J 6U7", - "Austria" - ], - [ - "2494", - "Moana", - "Holmes", - "80402", - "Israel" - ], - [ - "2495", - "Ramona", - "Hewitt", - "U6B 7A6", - "Guadeloupe" - ], - [ - "2496", - "Nicholas", - "Terry", - "V8J 5D9", - "Costa Rica" - ], - [ - "2497", - "Erica", - "Dunlap", - "91596", - "Kazakhstan" - ], - [ - "2498", - "Logan", - "Harper", - "R7V 3T5", - "Guinea-bissau" - ], - [ - "2499", - "Bert", - "Ortega", - "74557", - "Paraguay" - ], - [ - "2500", - "Cameron", - "Ortiz", - "P9C 5B6", - "Eritrea" - ] - ] -} \ No newline at end of file diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index de9a07d40..9fcbd9d2b 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -618,7 +618,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas { try { - FileExtension = System.IO.Path.GetExtension(string.Format("{0}Temp\\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", ""); + FileExtension = System.IO.Path.GetExtension(string.Format("{0}Temp\\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", ""); string rutaDestino = UsuarioActual.Empresa.Ruta + "Documentos\\Guias\\" + CvePaqueteriaGuia + "." + FileExtension; if (!System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta + "Documentos\\Guias\\")) { diff --git a/Global.asax b/Global.asax index 51e12d39c..11fea0e3e 100644 --- a/Global.asax +++ b/Global.asax @@ -193,8 +193,8 @@ 'I N V E N T A R I O S Dim Objinventarios As New ClsInventarios - If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing - If Objinventarios.GetSeccionesAlmacenes(-1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing + If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing + If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing Objinventarios.Dispose() diff --git a/Inventarios/AjustesSeccionAlmacen.aspx b/Inventarios/AjustesSeccionAlmacen.aspx new file mode 100644 index 000000000..bc20d39e9 --- /dev/null +++ b/Inventarios/AjustesSeccionAlmacen.aspx @@ -0,0 +1,124 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="AjustesSeccionAlmacen.aspx.vb" Inherits="Inventarios_AjustesSeccionAlmacen" %> + + + + + + + Ajustes de Productos en Secciones de Almacen + + + + + + +
  • + Importar Listado +
    • +
  • + Descargar Formato +
    • +     + + + +     +     + + + + + +
    +
    +
    + +
    +
    + + +
    + +
    + + +
    + +
    + +
    +
    +
    +     +     +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb new file mode 100644 index 000000000..db2791104 --- /dev/null +++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb @@ -0,0 +1,340 @@ + +Imports System.Data +Imports Extensiones + +Partial Class Inventarios_AjustesSeccionAlmacen + Inherits ClsPaginas + + Private Sub Inventarios_AjustesSeccionAlmacen_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaCombos() + End If + End Sub + + Private Sub CargaCombos() + DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + DdlAlmacen.DataBind() + + DdlAlmacenExcel.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + DdlAlmacenExcel.DataBind() + + DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + DdlClasificaciones.DataBind() + DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub + + Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click + CargaDatos() + End Sub + + Private Sub CargaDatos() + Dim ObjInv As New ClsInventarios + + If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvD.DataSource = ObjInv.DtResultados + End If + + ObjInv.Dispose() + GvD.DataBind() + UppD.Update() + End Sub + + Private Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + e.Row.FCDropDownList("DDlS").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero) + e.Row.FCDropDownList("DDlS").DataBind() + + End If + End Sub + + Private Sub BtnCambiarSeccion_Click(sender As Object, e As EventArgs) Handles BtnCambiarSeccion.Click + Dim ObjInventario As New ClsInventarios + Dim ObjPS As New ClsProductosServicios(ObjInventario.IniciaTransacSQL) + Dim Dtt As DataTable = Nothing + Dim CveMovimientoEntrada As Integer = 0 + Dim Folio = 0 + Dim ErrorMovInv As Boolean = False + Dim TextoError = "" + Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero + + + + Dim Fecha As Date = DateTime.Now + 'AGREGAMOS LA ENTRADA + Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, + Observaciones:="", Modulo:="ASA/G1") + Folio = ObjInventario.Folio + + If CveMovimientoSalida <= 0 Then + TextoError = "No se pudo generar el movimiento de salida correctamente" + ErrorMovInv = True + Else + + Dim CveMovimientoDetalleEntrada As Integer = 0 + Dim Cont As Integer = 0 + For Each gvr As GridViewRow In GvD.Rows + + 'que este seleccionado y que tenga diferente seccion + If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCDropDownList("DDlS").SelectedValue.ToEntero <> gvr.DataKey("CveSeccionAlmacen").ToEntero Then + + If gvr.DataKey("CveSeccionAlmacen").ToEntero > 0 Then + ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True) + End If + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.DataKey("Existencia").ToDecimal, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, -1, CveSeccionAlmacen:=gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=gvr.DataKey("Serie"), Lote:=gvr.DataKey("Lote"), FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate) Then + ErrorMovInv = True + TextoError = "Ocurrió un error al guardar los movimientos de salida" + Exit For + End If + + End If + + Next + + If Not ErrorMovInv Then + + If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then + + Dim resultado As DataTable = ObjInventario.DtResultados + CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="ASA/G1") + Dim ind As Integer = 0 + + For Each Row As DataRow In resultado.Rows + Dim CvePS = Row("CvePS").ToString().ToEntero() + Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal() + Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal() + Dim CveUM As Integer = Row("CveUM").ToString().ToEntero() + Dim CveSeccionAlmacen As Integer = GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero() + Dim CostoIndirecto As Decimal = Row("CostoIndirecto").ToString().ToDecimal() + Dim Serie As String = Row("Serie").ToString() + Dim Lote As String = Row("Lote").ToString() + Dim FechaCaducidad As Date = IfNull(Row("FechaCaducidad"), MinFecha).ToString.ToDate + + 'actualizamos el PS, para que tenga el aplica seccion + + ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True) + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + ErrorMovInv = True + Exit For + End If + ind += 1 + Next + resultado.Dispose() + + Else + TextoError = "No se pudo registrar el movimiento" + ErrorMovInv = True + End If + + End If + + End If + + If Not ErrorMovInv Then + ObjInventario.Commit() + CargaDatos() + Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion) + Else + ObjInventario.RollBack() + Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgError) + End If + + ObjInventario.Dispose() + End Sub + + Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click, BtnDescargar.Click + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoAjusteSecCad.xlsx" + Dim Archivo As New IO.FileInfo(Directorio) + If Archivo.Exists Then + Response.Clear() + Response.ClearHeaders() + Response.ClearContent() + Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name) + Response.AddHeader("Content-Length", Archivo.Length.ToString()) + Response.ContentType = "text/plain" + Response.Flush() + Response.TransmitFile(Archivo.FullName) + Response.End() + End If + End Sub + + Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click + If TxtExcel.getfiles().Archivos.Count > 0 Then + Dim file As Archivo = TxtExcel.getfiles().Archivos(0) + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch + Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "") + If Tipo = "EXCEL" Then + Dim CveAlmacen As Integer = DdlAlmacenExcel.SelectedValue.ToEntero() + Dim CveSubProyecto As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}") + + CargarArchivo(Directorio, file.filename, CveAlmacen, CveSubProyecto) + Else + Alert("El archivo no es de tipo excel", TipoMensaje.MsgAdvertencia) + End If + + Else + Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) + End If + End Sub + + Private Sub CargarArchivo(Ruta As String, FileName As String, CveAlmacen As Integer, CveSubProyecto As Integer) + Dim DtExcel As DataTable = ReadExcelFile(Ruta + FileName, True) + + Dim ErrorArchivo = False + If Not ErrorArchivo AndAlso DtExcel IsNot Nothing Then + If Not DtExcel.Columns(0).ColumnName = "Código" Then + Alert("El nombre de la segunda columna debe ser 'Código'.Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + If Not DtExcel.Columns(1).ColumnName = "Producto/Servicio" Then + Alert("El nombre de la cuarta columna debe ser 'Producto/Servicio'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + If Not DtExcel.Columns(2).ColumnName = "SeccionAlmacen" Then + Alert("El nombre de la quinta columna debe ser 'SeccionAlmacen'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + If Not DtExcel.Columns(3).ColumnName = "Serie" Then + Alert("El nombre de la sexta columna debe ser 'Serie'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + If Not DtExcel.Columns(4).ColumnName = "Lote" Then + Alert("El nombre de la séptima columna debe ser 'Lote'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + If Not DtExcel.Columns(5).ColumnName = "FechaCaducidad" Then + Alert("El nombre de la octava columna debe ser 'FechaCaducidad'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + + DtExcel.TableName = "Datos" + + If Not ErrorArchivo Then + Dim ErrorMovInv As Boolean = False + + Dim RowNoEncontrados As New StringBuilder() + Dim NumAgregados As Integer = 0 + + Dim ObjInventario As New ClsInventarios() + Dim ObjPS As New ClsProductosServicios(ObjInventario.IniciaTransacSQL()) + + Try + Dim DtExistenciasSecciones As DataTable = Nothing + If ObjInventario.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + DtExistenciasSecciones = ObjInventario.DtResultados.Copy() + End If + + 'SALIDA ALMACÉN + Dim CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", TipoCambio:=-1, + MovimientoFijo:=False, Modulo:="ASA/SA") + + 'ENTRADA ALMACÉN + Dim CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", TipoCambio:=-1, + MovimientoFijo:=False, Modulo:="ASA/EA") + + Dim dtSecciones As DataTable = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, CveAlmacen) + dtSecciones.CaseSensitive = False + + For Each RowExcel As DataRow In DtExcel.Rows + + Dim Codigo As String = RowExcel("Código").ToString.Trim + Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=Codigo).Rows(0) + + If DrPS IsNot Nothing Then + If Not ErrorMovInv Then + Dim CvePS As Integer = DrPS("CvePS").ToString().ToEntero() + Dim CveUM As Integer = DrPS("CveUM").ToString().ToEntero() + Dim ProductoServicio As String = RowExcel("Producto/Servicio").ToString.Trim + + Dim SeccionAlmacen As String = RowExcel("SeccionAlmacen").ToString.Trim + Dim CveSeccionAlmacen As Integer = dtSecciones.FiltroPrimeroValor("CveSeccion", $"AlmacenSeccion='{SeccionAlmacen}'") + + Dim Serie As String = RowExcel("Serie").ToString() + Dim Lote As String = RowExcel("Lote").ToString() + Dim FechaCaducidad As Date = IfNull(RowExcel("FechaCaducidad"), MinFecha).ToString.ToDate + + Dim RowExistencia As DataRow = DtExistenciasSecciones.FiltroPrimero($"CvePS={CvePS}") + + Dim CveSeccionAlmacenSalida As Integer = RowExistencia("CveSeccionAlmacen").ToString().ToEntero() + Dim CantidadSalida As Decimal = RowExistencia("Existencia").ToString().ToDecimal() + Dim SerieSalida As String = RowExistencia("Serie").ToString() + Dim LoteSalida As String = RowExistencia("Lote").ToString() + Dim FechaCaducidadSalida As Date = IfNull(RowExistencia("FechaCaducidad"), MinFecha).ToString.ToDate + Dim PUSalida As Decimal = RowExistencia("PU").ToString() + + 'GENERA LA SALIDA DE LOS PRODUCTOS QUE VIENEN EN EL EXCEL + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadSalida, CveUM, CvePS, PUSalida, CveSeccionAlmacen:=CveSeccionAlmacenSalida, Serie:=SerieSalida, Lote:=LoteSalida, FechaCaducidad:=FechaCaducidadSalida, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + ErrorMovInv = True + Exit For + End If + + Dim CveMovimientoDetalleSalida As Integer = ObjInventario.CveMovimientoDetalle + + ErrorMovInv = CveMovimientoDetalleSalida <= 0 + + 'GENERA LA ENTRADA DE LOS PRODUCTOS QUE SE DIERON ENTRADA + If Not ErrorMovInv Then + If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa, CveMovimientoDetalle:=CveMovimientoDetalleSalida) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then + Dim RowEntrada As DataRow = ObjInventario.DtResultados.Rows(0) + + Dim CvePSEntrada = RowEntrada("CvePS").ToString().ToEntero() + Dim CantidadEntrada As Decimal = RowEntrada("Cantidad").ToString().ToDecimal() + Dim PUEntrada As Decimal = RowEntrada("PUOriginal").ToString().ToDecimal() + Dim CveUMEntrada As Integer = RowEntrada("CveUM").ToString().ToEntero() + + Dim CostoIndirecto As Decimal = RowEntrada("CostoIndirecto").ToString().ToDecimal() + + 'ACTUALIZAMOS EL PS, PARA QUE TENGA EL APLICA SECCION + ErrorMovInv = Not ObjPS.UpdateAplicaSeccionAlmacen(CvePS, UsuarioActual.CveEmpresa, True) + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, CantidadEntrada, CveUMEntrada, CvePSEntrada, PUEntrada, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + ErrorMovInv = True + Exit For + End If + + Else + ErrorMovInv = True + End If + End If + End If + Else + ErrorMovInv = True + RowNoEncontrados.AppendFormat("{0},", Codigo) + End If + + Next + dtSecciones.Dispose() + + Catch ex As Exception + ErrorMovInv = True + OnError("Ocurrió un error al agregar el inventario", ex) + End Try + + If ErrorMovInv Then + ObjInventario.RollBack() + + Dim SbError As New StringBuilder() + SbError.Append("Ocurrió un error al guardar") + If RowNoEncontrados.Length > 0 Then + SbError.Append("Los siguientes códigos no fueron encontrados en el sistema.
    ") + SbError.Append(RowNoEncontrados.ToString()) + End If + + Alert(SbError.ToString(), TipoMensaje.MsgError) + Else + ObjInventario.Commit() + Alert("Se realizó el ajuste de los productos correctamente.") + End If + + ObjInventario.Dispose() + ObjPS.Dispose() + + End If + Else + Alert("Ocurrió un error al cargar el excel.", TipoMensaje.MsgError) + End If + End Sub + +End Class \ No newline at end of file diff --git a/Inventarios/Apartados.aspx b/Inventarios/Apartados.aspx index 011ed8251..37846e8bc 100644 --- a/Inventarios/Apartados.aspx +++ b/Inventarios/Apartados.aspx @@ -86,9 +86,8 @@
    - - - + +
    @@ -210,6 +209,12 @@
    Información del movimiento -
    > @@ -276,10 +275,9 @@
    - +
    @@ -333,7 +331,6 @@
    Agregar Producto -
    @@ -408,14 +405,12 @@
    Información de registro -
    @@ -425,7 +420,6 @@
    @@ -434,7 +428,6 @@
    Ver Compra @@ -447,7 +440,6 @@
    @@ -457,7 +449,6 @@
    @@ -466,7 +457,6 @@
    ver @@ -484,7 +474,6 @@
    Tipo de Cambio -
    @@ -553,94 +542,13 @@ - <%-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    #CantClasificación
    - Producto     		U.M.P.U.CI - Serie - LoteLoteBatchSección AlmacénObservaciones
    --%> - <%-- - - - - - - -
    -
    -
    -
    -     		- - - - - - - - - - - - - - - - - - - - - - - - - -
    --%>

    +
    @@ -654,21 +562,9 @@
    - @@ -1425,93 +1305,8 @@
    - - - - <%--SECCION DE ALMACEN--%> - - - +
    +
    + +
    > +
    + + +
    + +
    +
    +
    +
    + + +
    +
    +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + <%----%> + + + + + + + + diff --git a/Inventarios/ResguardoMaterial.aspx b/Inventarios/ResguardoMaterial.aspx index fcdf5d98c..b1085efd1 100644 --- a/Inventarios/ResguardoMaterial.aspx +++ b/Inventarios/ResguardoMaterial.aspx @@ -273,7 +273,7 @@ - + ss @@ -475,7 +475,7 @@ - + xx @@ -496,76 +496,6 @@ - <%--SECCION DE ALMACEN--%> - - - - diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index 723cf5821..054faab06 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -176,8 +176,6 @@ Partial Class Inventarios_ResguardoMaterial CantidadTotal = 0 IndexSeccionAlmacen = 0 CvePS = 0 - CreaDtSeccionAlmacen() - CargaDdlAlmacen() TipoSeccionAlmacen = 0 End Sub @@ -783,16 +781,6 @@ Partial Class Inventarios_ResguardoMaterial MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar." TieneError = True Exit For - Else - If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then - For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 1").Rows - If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenOrigen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then - TieneError = True - MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar." - Exit For - End If - Next - End If End If Cont += 1 Next @@ -812,16 +800,7 @@ Partial Class Inventarios_ResguardoMaterial TieneError = True MensajeError = "Ocurrió un error al guardar los movimientos de entrada" Exit For - Else - If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then - For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 1").Rows - If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenDestino").ToString.ToEntero, Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then - TieneError = True - MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar." - Exit For - End If - Next - End If + End If Cont += 1 Next @@ -849,16 +828,7 @@ Partial Class Inventarios_ResguardoMaterial MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar." TieneError = True Exit For - Else - If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then - For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 2").Rows - If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenOrigen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then - TieneError = True - MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar." - Exit For - End If - Next - End If + End If End If Cont += 1 @@ -880,16 +850,7 @@ Partial Class Inventarios_ResguardoMaterial TieneError = True MensajeError = "Ocurrió un error al guardar los movimientos de entrada" Exit For - Else - If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then - For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 2").Rows - If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenDestino").ToString.ToEntero, Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then - TieneError = True - MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar." - Exit For - End If - Next - End If + End If Cont += 1 Next @@ -1010,206 +971,6 @@ Partial Class Inventarios_ResguardoMaterial UpFiltraLiberacion.Update() End Sub -#End Region - -#Region "SECCION ALMACEN" - Private Sub CreaDtSeccionAlmacen() - DtSeccionAlmacen = New DataTable - DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal)) - DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer)) - DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenOrigen", GetType(Integer)) - DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenDestino", GetType(Integer)) - DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer)) - DtSeccionAlmacen.Columns.Add("SeccionAlmacenOrigen", GetType(String)) - DtSeccionAlmacen.Columns.Add("SeccionAlmacenDestino", GetType(String)) - DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer)) - DtSeccionAlmacen.Columns.Add("TipoSeccionAlmacen", GetType(Integer)) - End Sub - Private Sub CargaDdlAlmacen() - DdlSeccionAlmacenOrigen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa) - DdlSeccionAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlSeccionAlmacenOrigen.DataBind() - - DdlSeccionAlmacenDestino.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa) - DdlSeccionAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlSeccionAlmacenDestino.DataBind() - End Sub - Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs) - Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - - If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then - Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen origen.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - 'If Not DdlAlmacenDestino.SelectedValue.ToEntero > 0 AndAlso Not ChkTransitorio.Checked Then - ' Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen destino.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If - - GvSeccion.Columns(2).Visible = True - DivSeccionAlmacenDestino.Visible = True - - DivSeccionAlmacenOrigen.Visible = True - GvSeccion.Columns(1).Visible = True - - CantidadTotal = gvRow.DataKey("Cantidad").ToDecimal - IndexSeccionAlmacen = gvRow.RowIndex - CvePS = gvRow.DataKey("CvePS").ToEntero - TipoSeccionAlmacen = 1 - CargaSeccionAlmacen() - RegistraScript("$('#DModalSeccionAlmacen').modal()") - End Sub - - Protected Sub LnkSeccionAlmacenDestino_Click(sender As Object, e As EventArgs) - Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - - If Not DdlAlmacenLiberacion.SelectedValue.ToEntero > 0 Then - Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen destino.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - DivSeccionAlmacenOrigen.Visible = True - DivSeccionAlmacenDestino.Visible = True - GvSeccion.Columns(1).Visible = True - GvSeccion.Columns(2).Visible = True - - CantidadTotal = gvRow.FCTextBox("TxtCantidad").Text.ToDecimal - IndexSeccionAlmacen = gvRow.RowIndex - CvePS = gvRow.DataKey("CvePS").ToEntero - TipoSeccionAlmacen = 2 - CargaSeccionAlmacen() - RegistraScript("$('#DModalSeccionAlmacen').modal()") - - End Sub - - Private Sub CargaSeccionAlmacen() - Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen} AND TipoSeccionAlmacen = {TipoSeccionAlmacen}").SUMD("CantidadSeccionAlmacen") - GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen} AND TipoSeccionAlmacen = {TipoSeccionAlmacen}") - GvSeccion.DataBind() - - TxtCantidadSeccion.Text = "" - DdlSeccionAlmacenOrigen.SelectedIndex = 0 - DdlSeccionAlmacenDestino.SelectedIndex = 0 - Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion - If CantidadRestante = 0 Then - RVTxtCantidad.MaximumValue = "1" - TxtCantidadSeccion.Enabled = False - Else - RVTxtCantidad.MaximumValue = CantidadRestante.ToString - TxtCantidadSeccion.Enabled = True - End If - - If TipoSeccionAlmacen = 1 Then - If CantidadTotalSeccion > 0 Then - GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = False - GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen" - Else - GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = True - GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = "" - End If - If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then - DdlAlmacen.Enabled = False - DdlAlmacen.ToolTip = "Cuenta con sección almacen" - Else - DdlAlmacen.Enabled = True - DdlAlmacen.ToolTip = "" - End If - UpGenerales.Update() - - ElseIf TipoSeccionAlmacen = 2 Then - If CantidadTotalSeccion > 0 Then - GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").Enabled = False - GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").ToolTip = "Cuenta con sección almacen" - Else - GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").Enabled = True - GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").ToolTip = "" - End If - If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then - DdlAlmacenLiberacion.Enabled = False - DdlAlmacenLiberacion.ToolTip = "Cuenta con sección almacen" - Else - DdlAlmacenLiberacion.Enabled = True - DdlAlmacenLiberacion.ToolTip = "" - End If - UpGridLiberacion.Update() - UpFiltraLiberacion.Update() - End If - - UpModalSeccionAlmacen.Update() - End Sub - - Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs) - - Dim ObjInv As New ClsInventarios - Dim CantidadDisponible As Decimal = 0 - If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacenOrigen.SelectedValue.ToEntero, If(TipoSeccionAlmacen = 1, DdlAlmacen.SelectedValue.ToEntero, DdlAlmacenLiberacion.SelectedValue.ToEntero), - CvePS, UsuarioActual.CveEmpresa) Then - If ObjInv.DtResultados.Rows.Count > 0 Then - CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal - End If - End If - ObjInv.Dispose() - - CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacenOrigen = {DdlSeccionAlmacenOrigen.SelectedValue} AND TipoSeccionAlmacen = {TipoSeccionAlmacen}").SUMD("CantidadSeccionAlmacen") - - If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then - Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: {CantidadDisponible}", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - Dim Row As DataRow = Nothing - DtSeccionAlmacen.AcceptChanges() - Row = DtSeccionAlmacen.NewRow - Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal - Row("IndexSeccionAlmacen") = IndexSeccionAlmacen - Row("CveSeccionAlmacenOrigen") = DdlSeccionAlmacenOrigen.SelectedValue.ToEntero - Row("SeccionAlmacenOrigen") = DdlSeccionAlmacenOrigen.SelectedItem.Text - Row("CveSeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedValue.ToEntero - Row("SeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedItem.Text - Row("CvePS") = CvePS - Row("Consec") = DtSeccionAlmacen.Rows.Count + 1 - Row("TipoSeccionAlmacen") = TipoSeccionAlmacen - DtSeccionAlmacen.Rows.Add(Row) - DtSeccionAlmacen.AcceptChanges() - CargaSeccionAlmacen() - End Sub - - Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs) - Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - Dim Index As Integer = 0 - For Each Dr As DataRow In DtSeccionAlmacen.Rows - If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then - Exit For - End If - Index += 1 - Next - DtSeccionAlmacen.Rows.RemoveAt(Index) - DtSeccionAlmacen.AcceptChanges() - CargaSeccionAlmacen() - End Sub - - 'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs) - ' If Not CveVentaSurtir > 0 Then - ' Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then - ' Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' Dim ObjInv As New ClsInventarios - ' If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - ' GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados - ' End If - ' ObjInv.Dispose() - ' GvVerSeccionesAlmacen.DataBind() - ' UpVerSeccionesAlmacen.Update() - ' RegistraScript("$('#ModalVerSeccionesAlmacen').modal()") - 'End Sub - #End Region Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index b794965e5..9804276ea 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -450,10 +450,10 @@ - + - + s @@ -654,7 +654,7 @@ - + sss @@ -726,74 +726,7 @@
    - - <%--SECCION DE ALMACEN--%> - + <%--CARGA EXCEL--%>
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 5bcf203e4..b5807f9f5 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -821,6 +821,10 @@ Partial Class ProductosyServicios DdlProveedor.txtValue.Value = ObjProductosServicios.CveProveedorCompra.ToString ChkInventariable.Checked = ObjProductosServicios.Inventariable + ChkSerie.Checked = ObjProductosServicios.DtResultados.Rows(0)("AplicaSerie").ToString = "True" + ChkLote.Checked = ObjProductosServicios.DtResultados.Rows(0)("AplicaLote").ToString = "True" + ChkCaducidad.Checked = ObjProductosServicios.DtResultados.Rows(0)("AplicaCaducidad").ToString = "True" + ChkSeccion.Checked = ObjProductosServicios.DtResultados.Rows(0)("AplicaSeccion").ToString = "True" TxtVentaMinima.Text = ObjProductosServicios.VentaMinima.ToString DdlMoneda.SelectedValueExist(ObjProductosServicios.CveMoneda) TxtRetISR.Text = (ObjProductosServicios.RetISR * 100).ToString @@ -1163,7 +1167,8 @@ Partial Class ProductosyServicios CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(), ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, - ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked) > 0 Then + ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, + AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked) > 0 Then ViewState("CvePS") = ObjProductosServicios.CvePS For Each GVR As GridViewRow In GvImpuestosLocales.Rows If GVR.FCCheckBox("ChkDeduccion").Checked Then @@ -1208,7 +1213,8 @@ Partial Class ProductosyServicios CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(), ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, - ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked) Then + ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, + AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked) Then If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then TieneError = True @@ -2545,7 +2551,7 @@ Partial Class ProductosyServicios DdlAlmacen.Items.Add(New ListItem("Seleccione", "-1")) DdlAlmacen.DataBind() - DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa) + DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) DdlSeccionAlmacen.Items.Add(New ListItem("Seleccione", "-1")) DdlSeccionAlmacen.DataBind() diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 601d94852..fe284e7fa 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1614,7 +1614,7 @@ Almacén:
    -
    +
    @@ -1655,7 +1655,7 @@ - +
    diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e828f93c6..9e050a276 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -19451,30 +19451,11 @@ Partial Class Ventas Public Sub LbDescargarExcel_Click(sender As Object, e As EventArgs) Handles LbDescargarExcelVentas.Click DescargarFormato() End Sub - Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) + Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String, FileUrl As String) Dim dt As New DataTable - Dim Conexion As Odbc.OdbcConnection = Nothing Dim ErrorArchivo = False Dim n As Integer = 0 - Try - Select Case Tipo - Case "EXCEL" - Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") - Conexion.Open() - Dim cmd = Conexion.CreateCommand() - cmd.CommandType = CommandType.Text - cmd.CommandText = "Select * FROM [Hoja1$] WHERE Cantidad >=1" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) - DataAdapter.Fill(dt) - Case Else - Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) - Exit Sub - End Select - Catch ex As Exception - ErrorArchivo = True - OnError("Ocurrio un Error al leer el archivo
    " & ex.Message, ex) - End Try - Conexion.Close() + dt = ReadExcelFile(FileUrl, True) If Not ErrorArchivo Then If Not dt.Columns(0).ColumnName = "Cantidad" Then Alert("El nombre de la primera columna debe ser 'Cantidad'.Favor de corregirlo", TipoMensaje.MsgError) @@ -19523,6 +19504,7 @@ Partial Class Ventas Dim RowNoEncontrados As String = "" Dim NumAgregados As Integer = 0 For Each Row As DataRow In dt.Rows + NumAgregados = NumAgregados + 1 Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal Dim UM As String = Row("UM").ToString() Dim Codigo As String = Row("Código").ToString().Trim.ToUpper @@ -19674,7 +19656,7 @@ Partial Class Ventas Dim file As Archivo = TxtExcel.getfiles().Archivos(0) Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") - CargarArchivo(Directorio, file.filename, Tipo) + CargarArchivo(Directorio, file.filename, Tipo, file.FileUrl) Else Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) End If @@ -25444,4 +25426,7 @@ Partial Class Ventas Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) CargaEventoBitacora() End Sub + + + End Class \ No newline at end of file diff --git a/WEB.rar b/WEB.rar index f1421731b..7c07463c9 100644 Binary files a/WEB.rar and b/WEB.rar differ diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx index 461d63f35..88b6270ad 100644 --- a/asmx/WSApp.asmx +++ b/asmx/WSApp.asmx @@ -1,5 +1,5 @@ -<%@ WebService Language="VB" Class="WSApp" %> - +<%@ WebService Language="VB" Class="WSApp" %> + Option Explicit On Imports System.Data @@ -22,9 +22,9 @@ Imports Newtonsoft.Json.Linq Public Class WSApp - Inherits System.Web.Services.WebService + Inherits System.Web.Services.WebService #Region "G L O B A L - D T" - + Public ReadOnly Property UrlSitio As String Get Return ConfigurationManager.AppSettings("UrlSitio").ToString @@ -425,9 +425,34 @@ Public Class WSApp Set(value As DataTable) Application("GlobalDTMotivosHorasExtras") = value End Set - End Property + End Property + + + Public Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable + Get + Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa) + 'sino existe, recarga los datos + If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then + Dim ObjUnidadesMedida As New ClsUnidadesMedida() + If ObjUnidadesMedida.GetUnidadesMedida(CveEmpresa) Then Application(AppNombre) = ObjUnidadesMedida.DtResultados + ObjUnidadesMedida.Dispose() + End If + + If CveEmpresa <> -1 Then + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " UnidadMedida", DataViewRowState.CurrentRows) + GlobalDTUnidadesMedida = Dv.ToTable + Dv.Dispose() + Else + GlobalDTUnidadesMedida = DirectCast(Application(AppNombre), DataTable) + End If + End Get + Set(value As DataTable) + Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa) + Application(AppNombre) = value + End Set + End Property #End Region - + Public Property CveEmpresa As Integer = 143 Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario) @@ -448,7 +473,7 @@ Public Class WSApp Else End If ObjEmpresa.Dispose() - End Sub + End Sub #Region "M E T O D O S - S E R V I C I O" Public Function ValidaUsuario(CveUsuario As Integer) As Usuario Dim UsuarioActual As Usuario = Nothing @@ -783,9 +808,9 @@ Public Class WSApp Retorno.Mensajes.Add("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intetar.") End If ObjInv.Dispose() - End Sub + End Sub #End Region - + #Region "P E D I D O S" Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre Dim Timbre As New CFDITimbre @@ -899,9 +924,9 @@ Public Class WSApp i += 1 Next Return Timbre - End Function + End Function #End Region - + #Region "R E M I S I O N E S" Private Function CreaFactura(ByRef Retorno As Modelos.Factura.MMensajeFactura, CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CveMoneda As Integer, UsuarioActual As Usuario, Observaciones As String, ListaPS As List(Of MVentaProductos)) As Modelos.Factura If CveSubProyecto <= 0 Then @@ -1430,9 +1455,10 @@ Public Class WSApp End Try ObjVentas.Dispose() Return strBody.ToString - End Function + End Function #End Region - + + End Class Namespace WebServiceAppModels2 diff --git a/packages.config b/packages.config index 0878a2900..40443914d 100644 --- a/packages.config +++ b/packages.config @@ -28,7 +28,6 @@ - diff --git a/vwd.webinfo b/vwd.webinfo index 71c73829a..8dd65e0da 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -58,6 +58,8 @@ + +