diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index e7a21f5c5..f12d507c9 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1123,7 +1123,7 @@ Public Class ClsBancos Timbre = Timbrado.PreparaTimbrePago40(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal, RFCCliente, dr("NombreCliente").ToString, dr("ClienteCP").ToString, dr("CodigoRegimenFiscal").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago, dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDecimal, - UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado, + UsuarioActual.Empresa.CP, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado, RfcACuentaTerceros:=dr("RfcACuentaTerceros").ToString, NombreACuentaTerceros:=dr("NombreACuentaTerceros").ToString, RegimenFiscalACuentaTerceros:=dr("RegimenFiscalACuentaTerceros").ToString, DomicilioFiscalACuentaTerceros:=dr("DomicilioFiscalACuentaTerceros").ToString) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index d10630102..1699f61e8 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -88,7 +88,7 @@ Public Class ClsInventarios Public Property SubProyectoInventario As String Public Property Serie As String Public Property Guia As String - Public Property TipoCambio As Double + Public Property TipoCambio As Decimal Public Property FolioVenta As String Public Property CveOrdenCompra As Integer Public Property CveOrdenCompraLiga As Integer @@ -108,7 +108,7 @@ Public Class ClsInventarios Public Property CveProveedor As Integer Public Property DepartamentoEntrega As String Public Property PedidoContrato As String - Public Property GastoIndirecto As Double + Public Property GastoIndirecto As Decimal Public Property TienePrePoliza As Integer Public Property RazonSocialOC As String Public Property Remision As String @@ -836,7 +836,7 @@ Public Class ClsInventarios CveMovimientoTransitorio = dr("CveMovimientoTransitorio").ToString.ToEntero FolioTransitorio = dr("FolioTransitorio").ToString.ToEntero - TipoCambio = dr("TipoCambio").ToString.ToDouble + TipoCambio = dr("TipoCambio").ToString.ToDecimal FolioVenta = dr("FolioVenta").ToString CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero CveOrdenCompraLiga = dr("CveOrdenCompraLiga").ToString.ToEntero @@ -869,7 +869,7 @@ Public Class ClsInventarios CPDestino = dr("CPDestino").ToString Remision = dr("Remision").ToString Proveedor = dr("RazonSocial").ToString - GastoIndirecto = dr("GastoIndirecto").ToString.ToDouble + GastoIndirecto = dr("GastoIndirecto").ToString.ToDecimal PuestoEntrego = dr("PuestoRecibio").ToString PuestoRecibio = dr("PuestoEntrego").ToString ResponsableCarga = dr("ResponsableCarga").ToString @@ -982,8 +982,8 @@ Public Class ClsInventarios Public Function AddMovimiento(CveAlmacen As Integer, CveConcepto As Integer, CveMoneda As Integer, FechaMovto As DateTime, tFolio As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveCompra As Integer, CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CveOS As Integer = -1, Optional CvePersonal As Integer = -1, Optional IDPoliza As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "", - Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1, - Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional CveCamion As Integer = -1, Optional Placa As String = "", + Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Decimal = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1, + Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Decimal = -1, Optional CveChofer As Integer = -1, Optional CveCamion As Integer = -1, Optional Placa As String = "", Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "", Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1) As Integer @@ -1067,7 +1067,7 @@ Public Class ClsInventarios Return Retorno End Function Public Function UpdateMovimiento(CveMovimiento As Integer, CveAlmacen As Integer, CveConcepto As Integer, CveMoneda As Integer, FechaMovto As DateTime, Folio As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveCompra As Integer, - CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CvePersonal As Integer = -1, Optional Guia As String = "", Optional Observaciones As String = "", Optional Recibio As String = "", Optional TipoCambio As Double = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional Remision As String = "") As Boolean + CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CvePersonal As Integer = -1, Optional Guia As String = "", Optional Observaciones As String = "", Optional Recibio As String = "", Optional TipoCambio As Decimal = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional Remision As String = "") As Boolean Dim Retorno As Boolean = False @@ -1304,7 +1304,7 @@ 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, Optional CveAF As Integer = -1, + Public Function AddMovimientoDetalle(CveMovimiento As Integer, Cantidad As Decimal, 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, @@ -1369,8 +1369,8 @@ 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 Serie As String = "", - Optional Observaciones As String = "-1", Optional PUTC As Double = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean + Public Function UpdateMovimientoDetalle(Cantidad As Decimal, CveUM As Integer, CvePS As Integer, PU As Decimal, CveAF As Integer, CveMovimientoDetalle As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "", + Optional Observaciones As String = "-1", Optional PUTC As Decimal = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosDetalleUpdate") @@ -1380,7 +1380,7 @@ Public Class ClsInventarios .Add("@Cantidad", SqlDbType.Money).Value = Cantidad .Add("@CveUM", SqlDbType.Int).Value = CveUM .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@PU", SqlDbType.Money).Value = PU + .Add("@PU", SqlDbType.Decimal).Value = PU .Add("@PUTC", SqlDbType.Money).Value = PUTC .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen .Add("@CveAF", SqlDbType.Int).Value = CveAF @@ -2803,7 +2803,7 @@ Public Class ClsInventarios #Region "I N V E N T A R I O - F I S I C O - D E T A L L E" - Public Function UpdateInventarioFisicoDetalles(CveInventarioFisicoDetalle As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double, Optional Serie As String = "-1", + Public Function UpdateInventarioFisicoDetalles(CveInventarioFisicoDetalle As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Decimal, Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Boolean Dim Retorno As Boolean = False @@ -2831,7 +2831,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function AddInventarioFisicoDetalle(CveInventarioFisico As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double, Serie As String, CveUsuario As Integer, + Public Function AddInventarioFisicoDetalle(CveInventarioFisico As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Decimal, Serie As String, CveUsuario As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Boolean Dim Retorno As Boolean = False @@ -3097,7 +3097,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function AddAlmacenMaximoMinimo(CveAlmacen As Integer, CvePS As Integer, Maximo As Double, Minimo As Double, CveUsuario As Integer) As Boolean + Public Function AddAlmacenMaximoMinimo(CveAlmacen As Integer, CvePS As Integer, Maximo As Decimal, Minimo As Decimal, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_AlmacenesMaximoMinimoAdd") @@ -3119,7 +3119,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function UpdateAlmacenMaximoMinimo(CveAlmacen As Integer, CvePS As Integer, Maximo As Double, Minimo As Double, CveUsuario As Integer) As Boolean + Public Function UpdateAlmacenMaximoMinimo(CveAlmacen As Integer, CvePS As Integer, Maximo As Decimal, Minimo As Decimal, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_AlmacenesMaximoMinimoUpdate") @@ -3327,7 +3327,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function SeccionAlmacenRecomendadoSurtidoGet(CvePS As Integer, Cantidad As Double, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean + Public Function SeccionAlmacenRecomendadoSurtidoGet(CvePS As Integer, Cantidad As Decimal, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_SeccionAlmacenRecomendadoSurtidoGet") @@ -3768,7 +3768,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function UpdateConsignacionesCompra(CveCompra As Integer, CveConsignacion As Integer, CveAlmacen As Integer, CvePS As Integer, Cantidad As Double, CveEmpresa As Integer) As Boolean + Public Function UpdateConsignacionesCompra(CveCompra As Integer, CveConsignacion As Integer, CveAlmacen As Integer, CvePS As Integer, Cantidad As Decimal, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ConsignacionesCompraUpdate") @@ -3885,7 +3885,7 @@ Public Class ClsInventarios End Function #Region " INVENTARIOS - COSTO PS " - 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 + Public Function GetCostoPS(CvePS As Integer, Cantidad As Decimal, 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") @@ -4427,7 +4427,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function AddTrasladoSolicitudDetalle(CveTrasladoSolicitud As Integer, Cantidad As Integer, CveUM As Integer, CvePS As Integer, Precio As Double, Observaciones As String, + Public Function AddTrasladoSolicitudDetalle(CveTrasladoSolicitud As Integer, Cantidad As Integer, CveUM As Integer, CvePS As Integer, Precio As Decimal, Observaciones As String, CveContratoDetalle As Integer, Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Boolean Dim Retorno As Boolean = False Dim CveTraspasoSolicitud As Integer = 0 @@ -5296,7 +5296,7 @@ Public Class ClsInventarios #Region "REMANUFACTURA" Public Function AddRemanufactura(CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CvePS As Integer, - Folio As String, Cantidad As Double, Precio As Double, Fecha As Date, CveUsuario As Integer, + Folio As String, Cantidad As Decimal, Precio As Decimal, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RemanufacturaAdd") diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index c6a5268bc..6d12c1f84 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2064,6 +2064,25 @@ Public Class ClsNominas End Function #End Region + Public Function GetSubTipoPeriodo(CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_SubTipoPeriodo") + + 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 obtener los Períodos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function #Region "Periodos" Public Function GetPeriodos(CveTipoPeriodo As Integer, CveEmpresa As Integer, Ejercicio As Integer, Mes As Integer, CvePeriodo As Integer, Optional CveEstatus As Integer = -1) As Boolean @@ -2108,7 +2127,7 @@ Public Class ClsNominas End Function Public Function AddPeriodo(CveTipoPeriodo As Integer, Ejercicio As Integer, Mes As Integer, Numero As Integer, FechaInicio As Date, FechaFin As Date, - EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean, EsInicioAño As Boolean, EsFinAño As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveTurno As Integer, Estatus As Integer) As Boolean + EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean, EsInicioAño As Boolean, EsFinAño As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveTurno As Integer, Estatus As Integer, CveSubTipoPeriodo As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_PeriodosAdd") @@ -2131,6 +2150,7 @@ Public Class ClsNominas .Add("@CveTurno", SqlDbType.Int).Value = CveTurno .Add("@CveUsuario", SqlDbType.VarChar).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo End With Try @@ -2151,7 +2171,7 @@ Public Class ClsNominas Public Function UpdatePeriodo(FechaInicio As Date, FechaFin As Date, EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean, EsInicioAño As Boolean, EsFinAño As Boolean, FueCalculado As Boolean, CveTipoPeriodo As Integer, Ejercicio As Integer, Mes As Integer, Numero As Integer, - Estatus As Integer, CvePeriodo As Integer, CveEmpresa As Integer, CveTurno As Integer) As Boolean + Estatus As Integer, CvePeriodo As Integer, CveEmpresa As Integer, CveTurno As Integer, CveSubTipoPeriodo As Integer) As Boolean Dim Retorno As Boolean = False @@ -2177,6 +2197,7 @@ Public Class ClsNominas .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo .Add("@CveTurno", SqlDbType.Int).Value = CveTurno .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7a59a1ea4..772323ed2 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -103,12 +103,11 @@ Public Class ClsPaginas Dim tHora As Integer = 0 'If UsuarioActual IsNot Nothing AndAlso UsuarioActual.Empresa IsNot Nothing Then tHora = UsuarioActual.Empresa.UTCOffset Try - If HttpContext.Current.Session("UsuarioSIG") IsNot Nothing AndAlso CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa IsNot Nothing Then tHora = CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.UTCOffset + If HttpContext.Current.Session IsNot Nothing AndAlso HttpContext.Current.Session("UsuarioSIG") IsNot Nothing AndAlso CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa IsNot Nothing Then tHora = CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.UTCOffset Catch ex As Exception End Try - Return If(tHora <> 0, Now.ToUniversalTime.AddMinutes(tHora), Now) End Function @@ -832,6 +831,15 @@ Public Class ClsPaginas If Not System.IO.Directory.Exists(String.Format("{0}\XML\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\XML\", Ruta)) If Not System.IO.Directory.Exists(String.Format("{0}\PDF\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\PDF\", Ruta)) If Not System.IO.Directory.Exists(String.Format("{0}\Temp\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\Temp\", Ruta)) + + 'limpieza de archivo en carpeta temp. mayores a 6 meses + Dim NombreArchivo As String = String.Format("{0}{1}\Temp\", Extensiones.ModExtensiones.DirectorioEmpresas, dr("CveEmpresa")) + Dim files As String() = IO.Directory.GetFiles(NombreArchivo) + + For Each file As String In files + Dim fi As IO.FileInfo = New IO.FileInfo(file) + If fi.LastAccessTime < DateTime.Now.AddMonths(-6) Then fi.Delete() + Next Next End If End Using @@ -6045,7 +6053,7 @@ Public Class ClsPaginas Else RutaFormato = RutaFormato.Replace(".rdlc", ".mrt") - params.Add(New ReportParameter("SucursalCliente", If(Vta.ClienteSucursal.Sucursal Is Nothing, "", Vta.ClienteSucursal.Sucursal.ToString))) + params.Add(New ReportParameter("ClienteSucursal", If(Vta.ClienteSucursal.Sucursal Is Nothing, "", Vta.ClienteSucursal.Sucursal.ToString))) retorno = StreamBytesStimul("Facturas", RutaFormato, lrds, params, NombreArchivo:=NombreArchivo, Formato:="PDF") If UsuarioActual.Empresa.Funcionalidad(707) = "1" Then diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 368ab5a2f..3b544ba40 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -412,7 +412,7 @@ Public Class ClsProductosServicios Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1, - Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0) As Integer + Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0, Optional CveClasificacionEcommerce As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -515,6 +515,7 @@ Public Class ClsProductosServicios .Add("@EcommerceEtiquetas", SqlDbType.VarChar).Value = EcommerceEtiquetas .Add("@ActivoEcommerce", SqlDbType.VarChar).Value = ActivoEcommerce .Add("@EcommercePrecio", SqlDbType.SmallMoney).Value = EcommercePrecio + .Add("@CveClasificacionEcommerce", SqlDbType.Int).Value = CveClasificacionEcommerce End With @@ -650,7 +651,7 @@ Public Class ClsProductosServicios Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1, - Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0) As Boolean + Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0, Optional CveClasificacionEcommerce As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -753,6 +754,7 @@ Public Class ClsProductosServicios .Add("@EcommerceEtiquetas", SqlDbType.VarChar).Value = EcommerceEtiquetas .Add("@ActivoEcommerce", SqlDbType.VarChar).Value = ActivoEcommerce .Add("@EcommercePrecio", SqlDbType.SmallMoney).Value = EcommercePrecio + .Add("@CveClasificacionEcommerce", SqlDbType.Int).Value = CveClasificacionEcommerce End With diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index b470c6d70..5788f496d 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1942,7 +1942,7 @@ Public Class ClsRH NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, CveJornada As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1, - Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1") As Boolean + Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1) As Boolean Dim Retorno As Boolean = False Dim noguardoXcurp As Boolean = False @@ -2032,6 +2032,7 @@ Public Class ClsRH .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre + .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue @@ -2073,7 +2074,7 @@ Public Class ClsRH Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, - Optional TipoSangre As String = "-1") As Boolean + Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2168,6 +2169,7 @@ Public Class ClsRH .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre + .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo End With @@ -2673,7 +2675,7 @@ Public Class ClsRH End Function Public Function AddAsistencia(CvePersonal As Integer, CveCliente As Integer, CveSubProyecto As Integer, Fecha As Date, CveAsistenciasInasistencias As Integer, PorcentajePago As Double, - HorasDobles As Double, HorasTriples As Double, CveMotivoHoraExtra As Integer, Observacion As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + HorasDobles As Double, HorasTriples As Double, CveMotivoHoraExtra As Integer, Observacion As String, CveUsuario As Integer, CveEmpresa As Integer, Modulo As String) As Boolean Dim Retorno As Boolean = False Data = New DataTable @@ -2691,6 +2693,7 @@ Public Class ClsRH .Add("@HorasTriples", SqlDbType.Float).Value = HorasTriples .Add("@CveMotivoHoraExtra", SqlDbType.Int).Value = CveMotivoHoraExtra .Add("@Observacion", SqlDbType.VarChar).Value = Observacion + .Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 7218f50ce..ada1fd59f 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -338,7 +338,7 @@ Public Class ClsSisEmpresas _Empresa.Colonia = Data.Rows(0)("Colonia").ToString _Empresa.Ciudad = Data.Rows(0)("Ciudad").ToString _Empresa.Estado = Data.Rows(0)("Estado").ToString - _Empresa.CP = Data.Rows(0)("CP").ToString().ToEntero + _Empresa.CP = Data.Rows(0)("CP").ToString() _Empresa.Regimen = Data.Rows(0)("Regimen").ToString _Empresa.CodigoRegimenFiscal = Data.Rows(0)("CodigoRegimenFiscal").ToString _Empresa.RegimenFiscal = Data.Rows(0)("RegimenFiscal").ToString @@ -458,7 +458,7 @@ Public Class ClsSisEmpresas Return Retorno End Function Public Function AddEmpresa(CveEmpresa As Integer, Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String, - RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, + RFC As String, CP As String, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, Banner As String, CveUsuario As Integer, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean, SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, UsaContabilidad As Boolean, UsaBancos As Boolean, UsaVentas As Boolean, UsaCxC As Boolean, UsaCompras As Boolean, UsaInventarios As Boolean, UsaRH As Boolean, UsaNomina As Boolean, UsaOS As Boolean, BDContPAQi As String, ServerContPAQi As String, UsrContPAQi As String, PwdContPAQi As String, Buzon_Mail As String, @@ -487,7 +487,7 @@ Public Class ClsSisEmpresas .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad .Add("@Estado", SqlDbType.VarChar).Value = Estado .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@CP", SqlDbType.Int).Value = CP + .Add("@CP", SqlDbType.VarChar).Value = CP .Add("@Contacto", SqlDbType.VarChar).Value = Contacto .Add("@Telefono", SqlDbType.VarChar).Value = Telefono .Add("@Mail", SqlDbType.VarChar).Value = Mail @@ -588,7 +588,7 @@ Public Class ClsSisEmpresas End Function Public Function UpdateEmpresa(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String, - RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, + RFC As String, CP As String, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, Banner As String, Estatus As Boolean, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean, SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, UsaContabilidad As Boolean, UsaBancos As Boolean, UsaVentas As Boolean, UsaCxC As Boolean, UsaCompras As Boolean, UsaInventarios As Boolean, UsaRH As Boolean, UsaNomina As Boolean, UsaOS As Boolean, BDContPAQi As String, ServerContPAQi As String, UsrContPAQi As String, PwdContPAQi As String, Buzon_Mail As String, @@ -611,7 +611,7 @@ Public Class ClsSisEmpresas .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad .Add("@Estado", SqlDbType.VarChar).Value = Estado .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@CP", SqlDbType.Int).Value = CP + .Add("@CP", SqlDbType.VarChar).Value = CP .Add("@Telefono", SqlDbType.VarChar).Value = Telefono .Add("@Contacto", SqlDbType.VarChar).Value = Contacto .Add("@Mail", SqlDbType.VarChar).Value = Mail diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index cfa37b684..fa6c2089a 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5829,7 +5829,7 @@ Public Class ClsVentas End Function Public Function AddFacturacionAcarreos(Sucursal As String, RFCCliente As String, Cantidad As Decimal, PSGeneral As String, DireccionOrigen As String, DireccionDestino As String, FechaSalida As DateTime, FechaLlegada As DateTime, - Camion As String, Chofer As String, ConfigAutoTransporte As String, CamionRemolque1 As String, CamionRemolque2 As String, Distancia As Decimal, CveEmpresa As Integer) As String + Camion As String, Folio As String, FolioAdicional As String, CamionRemolque1 As String, CamionRemolque2 As String, Distancia As Decimal, CveEmpresa As Integer) As String Dim Retorno As String = "" DataAdapter("PA_Vta_FacturacionAcarreosAdd") @@ -5843,10 +5843,10 @@ Public Class ClsVentas .Add("@FechaSalida", SqlDbType.DateTime).Value = FechaSalida .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada .Add("@Camion", SqlDbType.VarChar).Value = Camion - .Add("@Chofer", SqlDbType.VarChar).Value = Chofer - .Add("@ConfigAutoTransporte", SqlDbType.VarChar).Value = ConfigAutoTransporte .Add("@CamionRemolque1", SqlDbType.VarChar).Value = CamionRemolque1 .Add("@CamionRemolque2", SqlDbType.VarChar).Value = CamionRemolque2 + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@FolioAdicional", SqlDbType.VarChar).Value = FolioAdicional .Add("@Distancia", SqlDbType.Decimal).Value = Distancia .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@ErrorMSG", SqlDbType.VarChar, 5000).Direction = ParameterDirection.Output diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index ff38fa730..9125fe0bd 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -13,7 +13,7 @@ Public Class Empresa Public Property Colonia As String Public Property Ciudad As String Public Property Estado As String - Public Property CP As Integer + Public Property CP As String Public Property RFC As String Public Property CURP As String Public Property Telefono As String diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 4ab7ac9a0..841e529e5 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -5,6 +5,7 @@ Imports System.Data Imports System.IO Imports System.Net.Http Imports System.Xml +Imports DocumentFormat.OpenXml.VariantTypes Imports Extensiones Imports Microsoft.Reporting.WebForms @@ -1276,7 +1277,7 @@ Namespace Modelos Return Retorno End Function - Public Shared Function CrearVentaNueva(UsuarioActual As Usuario, CveSubProyecto As Integer, CveCliente As Integer, CveMoneda As Integer) As Modelos.Factura + Public Shared Function CrearVentaNueva(UsuarioActual As Usuario, CveSubProyecto As Integer, CveCliente As Integer, CveMoneda As Integer, Optional TipoDocto As String = "Ing") As Modelos.Factura Dim ObjFactura As New Modelos.Factura(UsuarioActual) Try ObjFactura.DirectorioServidor = HttpContext.Current.Server.MapPath("/") @@ -1288,41 +1289,26 @@ Namespace Modelos ObjFactura.Version = "4.0" ObjFactura.CveUsuario = UsuarioActual.CveUsuario ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa - ObjFactura.ConvertirPesos = False ObjFactura.CveMoneda = CveMoneda ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ") ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {ObjFactura.CveMoneda}") ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(ClsPaginas.NowADS()).ToDecimal()) - ObjFactura.TipoDocto = "Ing" - ObjFactura.RefDocto = "" + ObjFactura.TipoDocto = TipoDocto ObjFactura.Folio = -1 ObjFactura.Serie = "-1" ObjFactura.Fecha = ClsPaginas.NowADS() - ObjFactura.CvePrePoliza = -1 + ObjFactura.CveMetodoPago = 1 ObjFactura.MetodoPago = "Efectivo" ObjFactura.FechaPago = DateTime.Today - ObjFactura.MotivoDescuento = "" - ObjFactura.Observaciones = "" ObjFactura.FechaEjecucion = DateTime.Today ObjFactura.UsuarioCreo = UsuarioActual.Usuario - ObjFactura.CveCondicionEntrega = -1 - ObjFactura.CondicionEntrega = "" - ObjFactura.NumeroCuenta = "" ObjFactura.CondicionesPago = 0 - ObjFactura.FormaPago = 0 - ObjFactura.PedidoContrato = "" - ObjFactura.NumeroContrato = "" - ObjFactura.DescripcionContrato = "" - ObjFactura.CveCorte = -1 + + ObjFactura.TipoDocumento = "Factura" - ObjFactura.Alfa1 = "" - ObjFactura.Alfa2 = "" - ObjFactura.Alfa3 = "" + 'Totales, Y se llena TmpDTImpuestos - ObjFactura.Descuento = 0 - ObjFactura.Amortizacion = 0 - ObjFactura.CveContrato = -1 'CLIENTE ObjFactura.CveCliente = CveCliente ObjFactura.SetCliente() @@ -1344,13 +1330,13 @@ Namespace Modelos End If End If - If ObjCliente.GetSucursales(ObjFactura.CveCliente) Then - If ObjCliente.DtResultados.Rows.Count > 0 Then - ObjFactura.CveClienteSucursal = If(String.IsNullOrEmpty(ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'")), -1, ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'").ToEntero()) - Else - ObjFactura.CveClienteSucursal = -1 - End If - End If + 'If ObjCliente.GetSucursales(ObjFactura.CveCliente) Then + ' If ObjCliente.DtResultados.Rows.Count > 0 Then + ' ObjFactura.CveClienteSucursal = If(String.IsNullOrEmpty(ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'")), -1, ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'").ToEntero()) + ' Else + ' ObjFactura.CveClienteSucursal = -1 + ' End If + 'End If ObjCliente.Dispose() ObjFactura.CveSubProyecto = CveSubProyecto.ToEntero @@ -1376,7 +1362,6 @@ Namespace Modelos ObjFactura = Nothing End Try - Return ObjFactura End Function @@ -2646,12 +2631,12 @@ Namespace Modelos If CveMovimientoSalidaConsignacion > 0 Then Dim CveProducto As Integer Dim CveUnidad As Integer - Dim Cantidad As Double - Dim Existencia As Double + Dim Cantidad As Decimal + Dim Existencia As Decimal For Each Dr As DataRow In DtDetalle.Rows CveProducto = Dr("CvePS").ToString.ToEntero CveUnidad = Dr("CveUM").ToString.ToEntero - Cantidad = Dr("Cantidad").ToString.ToDouble + Cantidad = Dr("Cantidad").ToString.ToDecimal If Not CveProducto > 0 Then Return False @@ -2689,7 +2674,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("Serie").ToString, Lote:=Dr("Lote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDecimal, 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 @@ -2703,7 +2688,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("Serie").ToString, Lote:=Dr("Lote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDecimal, 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 @@ -2880,11 +2865,11 @@ Namespace Modelos For Each Dr As DataRow In factura.DtMovimientosUsados.Rows - If factura.EsGarantia Then + If Not factura.EsGarantia Then ImporteConcepto = Dr("PU").ToString().ToDecimal() End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then 'Mensaje = "Error al guardar los movimientos" Resultado = False Exit For @@ -3269,47 +3254,46 @@ Namespace Modelos Else CveMovimientoReferencia = CveMovimiento End If + ' If ObjFactura.EsGarantia Then, el valor viene en cero ya + If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then + Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL * ValorMultiplicador - If ObjFactura.EsGarantia Then - If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then - Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL * ValorMultiplicador - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Importe68, 68, Referencia, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, Contabilizable:=False) Then - ErrorPrepoliza = True - End If - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovto68, importeMovimiento, importeMX, 277, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - End If - - Dim Importe318 As Decimal = (Math.Abs(importeMovimiento) - Math.Abs(Importe68)) * ValorMultiplicador - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe318, Importe318, 318, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - End If - - Else + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Importe68, 68, Referencia, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, Contabilizable:=False) Then ErrorPrepoliza = True End If + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovto68, importeMovimiento, importeMX, 277, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + End If + + Dim Importe318 As Decimal = (Math.Abs(importeMovimiento) - Math.Abs(Importe68)) * ValorMultiplicador + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe318, Importe318, 318, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + End If + Else - If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then - Dim Importe68 As Decimal = 0 - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Importe68, 68, Referencia, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, Contabilizable:=False) Then - ErrorPrepoliza = True - End If - - If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, 277, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, importeMX, 278, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - End If - Else - ErrorPrepoliza = True - End If - - Else - ErrorPrepoliza = True - End If + ErrorPrepoliza = True End If + 'Else + ' If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then + ' Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("") + ' If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Importe68, 68, Referencia, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, Contabilizable:=False) Then + ' ErrorPrepoliza = True + ' End If + + ' If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, 277, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ' If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, importeMX, 278, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ' ErrorPrepoliza = True + ' End If + ' Else + ' ErrorPrepoliza = True + ' End If + + ' Else + ' ErrorPrepoliza = True + ' End If + 'End If Else If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, 277, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, importeMX, 278, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then @@ -4213,7 +4197,7 @@ Namespace Modelos For Each Dr As DataRow In DtTemporal.Rows Dim CveProducto As Integer = Dr("CvePS").ToString.ToEntero Dim CveUnidad As Integer = Dr("CveUM").ToString.ToEntero - Dim Cantidad As Double = Dr("Cantidad").ToString.ToDouble + Dim Cantidad As Decimal = Dr("Cantidad").ToString.ToDecimal Dim PU As Decimal = 0 If CveProducto > 0 Then @@ -4339,7 +4323,7 @@ Namespace Modelos ' Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble() Dim Serie As String = RowGarantia("Comprobante").ToString - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=IIf(RowGarantia("MismoCvePS").ToString = "1", RowGarantia("CveVentaDetalle"), -1).ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDecimal(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=IIf(RowGarantia("MismoCvePS").ToString = "1", RowGarantia("CveVentaDetalle"), -1).ToString.ToEntero) Then OcurrioError = True Exit For End If @@ -4649,7 +4633,7 @@ Namespace Modelos If ObjInventario.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then OcurrioError = True ErrorList.Add("Ocurrió un Error al guardar los movimientos de entrada") Exit For @@ -4660,7 +4644,7 @@ Namespace Modelos Else Dim Mensaje As String = "" Dim i As Integer = 0 - Dim Cantidad As Double + Dim Cantidad As Decimal Dim CveUnidad As Integer Dim CveProducto As Integer Dim Existencia As Double @@ -4671,7 +4655,7 @@ Namespace Modelos For Each Dr As DataRow In DtInventario.Rows CveProducto = Dr("CvePS").ToString.ToEntero CveUnidad = Dr("CveUM").ToString.ToEntero - Cantidad = Dr("Cantidad").ToString.ToDouble + Cantidad = Dr("Cantidad").ToString.ToDecimal If Dr("CveTipoInvPS").ToString.ToEntero = 5 And Dr("Serie").ToString = "" Then OcurrioError = True @@ -4697,7 +4681,7 @@ Namespace Modelos 'SI LA UNIDAD ACTUAL NO ES LA BASE SACA PROPORCION (EQUIVALENTE) If CveUnidadBase <> CveUnidad Then ' LO QUE PUSE LO QUE VALE UNIDAD BASE LO QUE VALE UNIDAD SELECCIONADA - Cantidad = Dr("Cantidad").ToString.ToDouble * drUMBase("Cantidad").ToString.ToDouble / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString.ToDouble + Cantidad = Dr("Cantidad").ToString.ToDecimal * drUMBase("Cantidad").ToString.ToDecimal / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString.ToDecimal CveUnidad = CveUnidadBase End If End If @@ -4787,7 +4771,7 @@ Namespace Modelos If ObjInventario.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then OcurrioError = True ErrorList.Add("Ocurrió un Error al guardar los movimientos de entrada") Exit For @@ -6424,7 +6408,7 @@ Namespace Modelos If CveMovimientoVirtual > 0 Then For Each RowUsado As DataRow In DtPSVirtual.Rows Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero() - Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble() + Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal() Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal() Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() @@ -6503,7 +6487,7 @@ Namespace Modelos If CveMovimientoVirtual > 0 Then For Each RowUsado As DataRow In DtPSVirtual.Rows Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero() - Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble() + Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal() Dim PU As Decimal = RowUsado("PU").ToString().ToDecimal() Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() Dim CveVentaDetalle As Integer = RowUsado("CveVentaDetalle").ToString().ToEntero() @@ -7181,7 +7165,7 @@ Namespace Modelos Public Property Version As String = "" Public Property Serie As String = "" - Public Property Folio As Integer + Public Property Folio As Integer = -1 Public ReadOnly Property SerieFolio As String Get @@ -7321,7 +7305,7 @@ Namespace Modelos Public Property MonedaAbreviatura As String Public Property TipoCambio As Decimal = 1 Public Property TipoCambioDolares As Decimal - Public Property ConvertirPesos As Boolean + Public Property ConvertirPesos As Boolean = False Public Property ConvertirDolares As Boolean Public Property FormaPago As Integer = 0 diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 567b98f93..e07fb9d12 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -905,7 +905,7 @@ Public Class Timbrado 'condiciones especiales para el pago en pesos, facturas en moneda extranjera ElseIf MonedaPago = "MXN" AndAlso VentaAbreviaturaSAT <> "MXN" Then VentaTipoCambio = Math.Round(VentaTipoCambio, 6) - Equivalencia = Math.Round((1 / VentaTipoCambio), 6) + Equivalencia = Math.Round((1 / VentaTipoCambio), 10) ElseIf MonedaPago = "USD" AndAlso VentaAbreviaturaSAT <> "USD" Then VentaTipoCambio = Math.Round(VentaTipoCambio, 6) Equivalencia = VentaTipoCambio diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 0a53e84c6..8a967d3cf 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -5,7 +5,6 @@ Option Explicit On Imports System.Data Imports System.IO -Imports System.Net.Http Imports Newtonsoft.Json Imports Newtonsoft.Json.Linq Imports Extensiones @@ -19,6 +18,7 @@ Public Class E119 : Implements IHttpHandler End Property Private ReadOnly Property CveEmpresa As Integer = 119 + Private ReadOnly Property CveUsuario As Integer = 100 Public ReadOnly Property EsProduccion As Boolean Get @@ -126,6 +126,18 @@ Public Class E119 : Implements IHttpHandler End If End If + If Metodo = "RegistraRemision" Then + context.Response.ContentType = "application/json" + Dim Auth As AuthMessage = ValidarSolicitud(context) + + If Auth.IsSucces Then + retorno = RegistraRemision(context) + Else + context.Response.StatusCode = Auth.StatusCode + retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) + End If + End If + context.Response.Write(retorno) Catch ex As Exception @@ -141,14 +153,14 @@ Public Class E119 : Implements IHttpHandler Dim unauthorized As Boolean = True Dim respuesta As New AuthMessage - Dim authHeader = context.Request.Headers("Authorization") + Dim authHeader As String = context.Request.Headers("Authorization") If authHeader IsNot Nothing Then Dim basicAuth As String = authHeader.Replace("Basic ", "") - Dim usernamePasswordArray = Encoding.UTF8.GetString(Convert.FromBase64String(basicAuth)).Split(":"c) + Dim usernamePasswordArray As String() = Encoding.UTF8.GetString(Convert.FromBase64String(basicAuth)).Split(":"c) - Dim userName = usernamePasswordArray(0) - Dim password = usernamePasswordArray(1) + Dim userName As String = usernamePasswordArray(0) + Dim password As String = usernamePasswordArray(1) unauthorized = Not (userName = Me.UsuarioWSE119 AndAlso password = Me.PasswordWSE119) Else @@ -248,7 +260,7 @@ Public Class E119 : Implements IHttpHandler Using ObjInventario As New ClsInventarios If ObjInventario.GetJAM_APIs(1, CveClasificacion:=CveClasificacion.ToEntero()) AndAlso ObjInventario.DtResultados IsNot Nothing Then - Productos = JArray.Parse(ObjInventario.DtResultados.DataTableToJSONIPP()) + Productos = JArray.Parse(ObjInventario.DtResultados.FiltroPrimeroValor("JsonTexto")) Else RespuestaError.message = "no se pudo obtener los datos" TieneError = True @@ -282,7 +294,15 @@ Public Class E119 : Implements IHttpHandler Dim Clasificaciones As JArray = Nothing Try - Clasificaciones = JArray.Parse(ClsPaginas.GlobalDTClasificaciones(CveEmpresa).FiltraParametros("", DistinctColumns:={"CveClasificacion", "Clasificacion"}).DataTableToJSONIPP()) + 'Clasificaciones = JArray.Parse(ClsPaginas.GlobalDTClasificaciones(CveEmpresa).FiltraParametros("", DistinctColumns:={"CveClasificacion", "Clasificacion"}).DataTableToJSONIPP()) + Using ObjInventario As New ClsInventarios + If ObjInventario.GetJAM_APIs(2, CveClasificacion:=-1) AndAlso ObjInventario.DtResultados IsNot Nothing Then + Clasificaciones = JArray.Parse(ObjInventario.DtResultados.DataTableToJSONIPP()) + Else + RespuestaError.message = "no se pudo obtener los datos" + TieneError = True + End If + End Using Catch ex As Exception RespuestaError.message = "no se pudo obtener los datos" TieneError = True @@ -307,6 +327,181 @@ Public Class E119 : Implements IHttpHandler End If End Function + Private Function RegistraRemision(ByVal context As HttpContext) As String + + Dim TieneError As Boolean = False + Dim JsonRequest As JObject = Nothing + Dim Respuesta As New ResponseMsg + Dim RespuestaError As New ResponseMsgError + + If context.Request.InputStream IsNot Nothing Then + Using reader As New StreamReader(context.Request.InputStream) + Dim json As String = reader.ReadToEnd + + If Not String.IsNullOrEmpty(json) Then + JsonRequest = JObject.Parse(json) + If JsonRequest Is Nothing Then + TieneError = True + End If + End If + End Using + End If + + If TieneError Then + context.Response.StatusCode = 200 + Return JsonConvert.SerializeObject("xx") + End If + + If Not TieneError Then + Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) + Dim ObjFactura As Modelos.Factura + Dim Resp As New Modelos.Factura.MMensajeFactura + If Usuario IsNot Nothing Then + + End If + + Dim ObjClientes As New ClsClientes() + Dim ObjInventario As New ClsInventarios(ObjClientes.IniciaTransacSQL()) + + Dim CveSubProyecto, CveCliente, CveMoneda, CvePS As Integer + Dim Cantidad, PU, Descuento As Decimal + Dim Obs As String = "" + CveSubProyecto = 12659 ' fijo Ecommerce + CveCliente = 0 + CveMoneda = 1 + Descuento = 0 + Dim RFC As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString()) + Dim NombreCliente As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString()) + 'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE + If ObjClientes.GetClientes(-1, "-1", "-1", "-1", RFC, "-1", "-1", -1, CveEmpresa, 1, TipoCliente:=-1, TopSelect:=1) Then + If ObjClientes.DtResultados.Rows.Count > 0 Then + 'Resp.TieneError = False + CveCliente = ObjClientes.CveCliente + 'Resp.Mensajes.Add("El RFC ya existe en el sistema") + End If + End If + + If CveCliente = 0 Then + ' 'DATOS DE BILLING + If JsonRequest("billing") IsNot Nothing Then + Dim CveEstado As Integer = -1 + Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString()) + Dim NumExt As String = "" + Dim NumInt As String = "" + Dim Colonia As String = "" + Dim Ciudad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) + Dim Localidad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) + Dim CP As String = If(JsonRequest("billing")("postcode") Is Nothing, "", JsonRequest("billing")("postcode").ToString()) + Dim Telefono As String = If(JsonRequest("billing")("phone") Is Nothing, "", JsonRequest("billing")("phone").ToString()) + Dim Correo As String = If(JsonRequest("billing")("email") Is Nothing, "", JsonRequest("billing")("email").ToString()) + Dim Estado As String = If(JsonRequest("billing")("state") Is Nothing, "", JsonRequest("billing")("state").ToString()) + If Not String.IsNullOrEmpty(Estado) Then + CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero() + If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA + CveEstado = 26 + End If + Else + CveEstado = 26 + End If + If ObjClientes.AgregarClienteNoFrecuente(NombreCliente, Direccion, NumExt, NumInt, Colonia, Localidad, Ciudad, CveEstado, RFC, CP, Telefono, Correo, CveSubProyecto, CveUsuario, CveEmpresa, "", -1, -1) Then + If ObjClientes.DtResultados.Rows.Count > 0 Then + CveCliente = ObjClientes.DtResultados(0)("CveCliente").ToString().ToEntero() + End If + End If + End If + + End If + + Try + + ObjFactura = Modelos.Factura.CrearVentaNueva(Usuario, CveSubProyecto, CveCliente, CveMoneda, "Rem") + Dim ListaPS As JArray = JArray.Parse(JsonRequest("line_items").ToString()) + Dim Consec As Integer = 1 + For Each JsonPS As JObject In ListaPS + Cantidad = JsonPS("quantity").ToString.ToDecimal() + PU = JsonPS("price").ToString.ToDecimal() + CvePS = ClsPaginas.GlobalDTPSSimplificado(CveEmpresa, Codigo:=JsonPS("sku").ToString()).FiltroPrimeroValor("CvePS").ToEntero() + + ObjFactura.AgregarPS(CvePS, Cantidad, PU, Descuento, Obs, CveSubProyecto:=CveSubProyecto) + + ''VALIDAR QUE SEA EL MISMO PRODUCTO + If CvePS <= 0 Then + TieneError = True + 'Retorno.Mensajes.Add(String.Format("No se encontró el producto: {0}", JsonPS("name").ToString())) + Exit For + End If + + ''VALIDA EXISTENCIA ANTES DE GENERAR LA FACTURA + 'If ObjFactura.TipoDocto = "Ing" AndAlso DrPS("CveTipoPS").ToString() = "2" Then + ' Dim Existencia As Decimal = ObjInventarios.GetExistenciasPS(DrPS("CvePS").ToString.ToEntero, DrPS("CveUnidadMedida").ToString.ToEntero, UsuarioActual.CveEmpresa, ObjFactura.CveAlmacen, CveSubProyecto:=ObjFactura.CveSubProyecto, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1) + + ' If Cantidad > Existencia Then + ' Retorno.TieneError = True + ' Retorno.Mensajes.Add(String.Format("No hay existencia suficiente para este producto: {0}, cuenta con : {1}", DrPS("PSCodigo").ToString(), Existencia)) + ' Exit For + ' End If + 'End If + Consec += 1 + Next + + + ObjFactura.CalculaTotales() + + If ObjFactura IsNot Nothing Then + Resp = ObjFactura.EmitirFactura(False, Transac:=ObjClientes.IniciaTransacSQL()) + + If Resp.CveVenta > 0 Then + Respuesta.status = "success" + Respuesta.data = Resp.SerieFolio + Else + TieneError = True + End If + + If TieneError Then + Dim sb As New StringBuilder() + For Each msg As String In Resp.Mensajes + sb.AppendFormat("{0}. ", msg) + Next + RespuestaError.message = sb.ToString() + End If + Else + TieneError = True + Dim sb As New StringBuilder() + For Each msg As String In Resp.Mensajes + sb.AppendFormat("{0}. ", msg) + Next + RespuestaError.message = sb.ToString() + End If + + Catch ex As Exception + TieneError = True + End Try + + If TieneError Then + ObjClientes.RollBack() + ObjClientes.Dispose() + ObjInventario.Dispose() + Else + ObjClientes.Commit() + ObjClientes.Dispose() + ObjInventario.Dispose() + + End If + + If ObjFactura IsNot Nothing Then ObjFactura.Dispose() + 'End If + + End If + + If TieneError Then + context.Response.StatusCode = 200 + Return JsonConvert.SerializeObject(RespuestaError) + Else + context.Response.StatusCode = 200 + Return JsonConvert.SerializeObject(Respuesta) + End If + End Function + Private Class ResponseMsg Sub New() status = "success" @@ -375,7 +570,7 @@ Public Class E119 : Implements IHttpHandler If (strInput.StartsWith("{") AndAlso strInput.EndsWith("}")) OrElse (strInput.StartsWith("[") AndAlso strInput.EndsWith("]")) Then Try - Dim obj = JToken.Parse(strInput) + Dim obj As JToken = JToken.Parse(strInput) Return True Catch jex As JsonReaderException Console.WriteLine(jex.Message) diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 493fb9767..72879ad20 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -781,7 +781,7 @@ Public Class E141 : Implements IHttpHandler Return Nothing End If - Dim ObjFactura = New Modelos.Factura(UsuarioActual) + Dim ObjFactura As New Modelos.Factura(UsuarioActual) ObjFactura.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.TextoLimpio ObjFactura.Serie = Serie ObjFactura.Folio = -1 diff --git a/Ashx/E48.ashx b/Ashx/E48.ashx index b4569400e..d56099cc6 100644 --- a/Ashx/E48.ashx +++ b/Ashx/E48.ashx @@ -54,7 +54,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState If context.Request.InputStream IsNot Nothing Then Using reader As New StreamReader(context.Request.InputStream) - Dim json = reader.ReadToEnd + Dim json As String = reader.ReadToEnd If Not String.IsNullOrEmpty(json) Then JsonRequest = JObject.Parse(json) @@ -118,11 +118,11 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState ''VALIDA EXISTENCIAS Dim Cont As Integer = 0 - Dim ListaPS = JArray.Parse(JsonRequest("productos").ToString()) + Dim ListaPS As JArray = JArray.Parse(JsonRequest("productos").ToString()) For Each JsonPS As JObject In ListaPS - Dim Cantidad As Double = JsonPS("cantidad").ToString.ToDouble() + Dim Cantidad As Decimal = JsonPS("cantidad").ToString.ToDecimal() Dim dtt As DataTable = GlobalDTPSSimplificado(Codigo:=JsonPS("codigo").ToString()) Dim CvePS As Integer = dtt.FiltroPrimeroValor("CvePS").ToEntero() Dim CveUM As Integer = dtt.FiltroPrimeroValor("CveUnidadMedida").ToEntero() @@ -219,7 +219,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState If IDPoliza > 0 Then If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then - Dim DtMovtos = ObjInventario.DtResultados + Dim DtMovtos As DataTable = ObjInventario.DtResultados Importe = DtMovtos.SUMD("Total", "Estatus = ''") If Importe > 0 Then @@ -403,8 +403,8 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState Dim ObjUsuarios As New ClsSisUsuarios If ObjUsuarios.GetUsuarios(CveUsuario) Then If ObjUsuarios.DtResultados.Rows.Count > 0 Then - Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() - Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() + Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() + Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) UsuarioActual.CveEmpresa = CveEmpresa CreaObjetoEmpresa(UsuarioActual) diff --git a/Bancos/CuentasBancariasDetalle.aspx b/Bancos/CuentasBancariasDetalle.aspx index 68474870f..e14ad0fb8 100644 --- a/Bancos/CuentasBancariasDetalle.aspx +++ b/Bancos/CuentasBancariasDetalle.aspx @@ -250,8 +250,10 @@ - - + <%-- + --%> + + diff --git a/Bancos/PagoDeudor.aspx b/Bancos/PagoDeudor.aspx index 5d1a53854..6e9e0970b 100644 --- a/Bancos/PagoDeudor.aspx +++ b/Bancos/PagoDeudor.aspx @@ -102,7 +102,7 @@
- +
@@ -281,11 +281,11 @@
-
+
- + <%----%>
diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 6bd3aeda1..fe400ea7b 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -45,8 +45,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas CargaReporte(); CargaSubproyectos(); CveMonedaPrestamo = 1; - UsaComplementaria = false; - if (UsuarioActual.CveEmpresa.Contiene(1, 119)) { UsaComplementaria = true; } + UsaComplementaria = true; + if (UsuarioActual.CveEmpresa.Contiene(13)) { UsaComplementaria = false; } TxtFechaDocumento.Text = NowADS().ToShortDateString(); TxtFechaPrestamo.Text = NowADS().ToShortDateString(); txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString(); @@ -80,8 +80,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas DdlTipoTransaccion.Items.Clear(); DdlTipoTransaccionPrestamo.Items.Clear(); - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'"); - DdlTipoTransaccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'"); + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1"); + DdlTipoTransaccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1"); DdlTipoTransaccion.DataBind(); DdlTipoTransaccionPrestamo.DataBind(); @@ -299,7 +299,9 @@ public partial class Bancos_PagoDeudor : ClsPaginas MsgError = "No se pudo insertar la póliza"; } - if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1)) + Usuario UA = UsuarioActual; + + if (ObjMov.ValidacionesPrePoliza(CvePrePoliza, ref UA)) { if (ObjMov.ValorPolizaDescuadre > 0) { @@ -307,23 +309,23 @@ public partial class Bancos_PagoDeudor : ClsPaginas } } - bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1"); - // if (UsuarioActual.CveEmpresa == 119) AutoConta = false; + //bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1"); + //// if (UsuarioActual.CveEmpresa == 119) AutoConta = false; - if (AutoConta && MsgError.Equals("")) - { - //JJMQ:20190103: Cambio la siguiente linea porque esta validando siempre una complementaria aunque el movto sea dlls - //Y se valida la moneda con el siguiente IF + //if (AutoConta && MsgError.Equals("")) + //{ + // //JJMQ:20190103: Cambio la siguiente linea porque esta validando siempre una complementaria aunque el movto sea dlls + // //Y se valida la moneda con el siguiente IF - if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) - { - IDPoliza = ObjMov.ContaIdPoliza; - } - else - { - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); - } - } + // if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) + // { + // IDPoliza = ObjMov.ContaIdPoliza; + // } + // else + // { + // Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); + // } + //} if (MsgError.Equals("")) { @@ -675,7 +677,9 @@ public partial class Bancos_PagoDeudor : ClsPaginas } } - if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 10)) + Usuario UA = UsuarioActual; + if (ObjMov.ValidacionesPrePoliza(CvePrePoliza, ref UA, Opcion: 10)) + { if (ObjMov.ValorPolizaDescuadre > 0) { @@ -685,20 +689,20 @@ public partial class Bancos_PagoDeudor : ClsPaginas } - bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1"); - //if (UsuarioActual.CveEmpresa == 119) AutoConta = false; + //bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1"); + ////if (UsuarioActual.CveEmpresa == 119) AutoConta = false; - if (AutoConta && MsgError.Equals("")) - { - if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) - { - IDPoliza = ObjMov.ContaIdPoliza; - } - else - { - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); - } - } + //if (AutoConta && MsgError.Equals("")) + //{ + // if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) + // { + // IDPoliza = ObjMov.ContaIdPoliza; + // } + // else + // { + // Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); + // } + //} } else { diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 08c376bfb..801a3d737 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -382,13 +382,13 @@ Partial Class Bancos_PagoElectronicoGrupos End Sub Private Sub CargaDatosInformativos() - Dim Altas = 0 - Dim Interbancarias = 0 - Dim Bancomer = 0 - - Dim Movimientos = 0 - Dim Importe = 0.0 + Dim Altas As Integer = 0 + Dim Interbancarias As Integer = 0 + Dim Bancomer As Integer = 0 + Dim Movimientos As Integer = 0 + Dim Importe As Decimal = 0 + For Each dr As DataRow In DTPendientes.Rows If dr("EstatusCtaDeposito").ToString <> "True" Then @@ -405,7 +405,7 @@ Partial Class Bancos_PagoElectronicoGrupos ElseIf dr("CveCuentaDeposito").ToString.ToEntero > 0 Then Movimientos += 1 - Importe += dr("Abonado").ToString.ToDouble + Importe += dr("Abonado").ToString.ToDecimal End If Next @@ -650,8 +650,7 @@ Partial Class Bancos_PagoElectronicoGrupos Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - - Dim CveBLE = CType(sender, LinkButton).CommandArgument.ToEntero + Dim CveBLE As Integer = CType(sender, LinkButton).CommandArgument.ToEntero Dim Cvecuenta As Integer = GvRow.DataKey("CveCuenta").ToEntero Dim CveLayoutEnvio As Integer = GvRow.DataKey("CveLayoutEnvio").ToEntero @@ -735,28 +734,18 @@ Partial Class Bancos_PagoElectronicoGrupos Dim RegistrosAltaBancomerCIE As New StringBuilder Dim RegistrosAltaInterbancario As New StringBuilder Dim SBErrores As New StringBuilder - - - Dim CeroRelleno As Char = "0"c Dim EspacioRelleno As Char = Chr(32) - Dim ErrorLayout = False - - + Dim ErrorLayout As Boolean = False If DtCuentasPendientesTemp Is Nothing Then DtCuentasPendientesTemp = DTPendientes.Copy End If - - - DtCuentasPendientesTemp.CaseSensitive = False Dim DtCuentasPendientesBancomer As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre like '%BBVA%' OR BancoNombre like '%BANCOMER%' AND CveBanco = '012' AND LEN(CIE) = 0) ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CveProveedor", "CveBanco", "Cuenta", "BBVAAlias", "CIE"}) Dim DtCuentasPendientesCIE As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre like '%BBVA%' OR BancoNombre like '%BANCOMER%' AND LEN(CIE) > 0 AND CveBanco = '012') ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CveProveedor", "CveBanco", "Cuenta", "BBVAAlias", "CIE"}) Dim DtCuentasPendientesInterbancarias As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre not like '%BBVA%' AND BancoNombre not like '%BANCOMER%' ) ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CveProveedor", "CveBanco", "Cuenta", "BBVAAlias", "CIE"}) - - 'Cuentas bancomer If DtCuentasPendientesBancomer.Rows.Count > 0 Then For Each dRow As DataRow In DtCuentasPendientesBancomer.Rows @@ -1078,7 +1067,7 @@ Partial Class Bancos_PagoElectronicoGrupos 'Persona Moral If DTPendienteActual(0)("RFC").ToString.Length = 12 Then Dim fecha As String = DTPendienteActual(0)("FechaIng").ToString - Dim NombreProveedor = DTPendienteActual(0)("RazonSocial").ToString.Replace("‚"c, Vacio).Replace("‚"c, Vacio).ToUpper.PadRight(50) + Dim NombreProveedor As String = DTPendienteActual(0)("RazonSocial").ToString.Replace("‚"c, Vacio).Replace("‚"c, Vacio).ToUpper.PadRight(50) NombreProveedor = If(NombreProveedor.Length > 50, NombreProveedor.Substring(0, 50), NombreProveedor) 'Campo 18-20 del detalle @@ -1115,7 +1104,7 @@ Partial Class Bancos_PagoElectronicoGrupos Dim NombreComplejo As New List(Of String) 'ignoramos cualquier palabra del nombre que tenga un length igual o menor a 2 - For index = 0 To Nombre.Length - 1 + For index As Integer = 0 To Nombre.Length - 1 If Nombre(index).Length > 2 Then NombreComplejo.Add(Nombre(index)) End If @@ -1128,10 +1117,10 @@ Partial Class Bancos_PagoElectronicoGrupos ElseIf NombreComplejo.Count = 4 Then DetalleTexto &= String.Format("F{0}{1}{2}{3}", Vacio.PadRight(70), (NombreComplejo.Item(0) & " " & NombreComplejo.Item(1)).PadRight(20).Substring(0, 20), NombreComplejo.Item(2).PadRight(20).Substring(0, 20), NombreComplejo.Item(3).PadRight(20).Substring(0, 20)) ElseIf NombreComplejo.Count > 4 Then - Dim Nombres = "" + Dim Nombres As String = "" 'todas las palabras menos las 2 ultimas forman parte del nombre - For index = 0 To NombreComplejo.Count - 3 + For index As Integer = 0 To NombreComplejo.Count - 3 If Nombres <> "" Then Nombres += " " Nombres += NombreComplejo.Item(index) Next @@ -1167,7 +1156,7 @@ Partial Class Bancos_PagoElectronicoGrupos HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, NowADS().ToString("yyyyMMdd")).PadRight(20) 'Campos #6-8 del Header HeaderTexto &= String.Format("00").PadRight(586) - Dim HeaderLength = HeaderTexto.Length + Dim HeaderLength As Integer = HeaderTexto.Length ''''' LLENADO DE TRAILER TrailerTexto = String.Format("T{0}{1}{2}", Registros.ToString.PadLeft(10, PadCeros), Vacio.PadRight(50, PadCeros), Vacio.PadRight(575)) @@ -1206,7 +1195,7 @@ Partial Class Bancos_PagoElectronicoGrupos Dim EsCIE As Boolean = False Dim CeroRelleno As Char = "0"c Dim EspacioRelleno As Char = Chr(32) - Dim ErrorLayout = False + Dim ErrorLayout As Boolean = False For Each drow As DataRow In DTPendientesTemp.Rows @@ -1422,7 +1411,7 @@ Partial Class Bancos_PagoElectronicoGrupos ObjBancos.IniciaTransacSQL() - Dim CveLayoutEnvio = ObjBancos.AddLayoutEnvios(NombreArchivo, NowADS(), CveCuenta, PorGrupos:=True) + Dim CveLayoutEnvio As Integer = ObjBancos.AddLayoutEnvios(NombreArchivo, NowADS(), CveCuenta, PorGrupos:=True) If CveLayoutEnvio > 0 Then For Each dr As DataRow In DTPendientesTemp.Rows @@ -1646,7 +1635,7 @@ Partial Class Bancos_PagoElectronicoGrupos ''CLAVE DE REGISTRO PARA CONTROL PROPIO ADSISTEMAS -- orita se esta guardando en el campo #9 - Dim Cve = String.Format("CVEIE{0}", DTPendienteActual(0)("CveIE").ToString).ToUpper 'cveIE + Dim Cve As String = String.Format("CVEIE{0}", DTPendienteActual(0)("CveIE").ToString).ToUpper 'cveIE ''''' LLENADO DE DETALLE @@ -1670,17 +1659,15 @@ Partial Class Bancos_PagoElectronicoGrupos End If 'OBTENEMOS EL CORREO DEL PROVEEDOR - Dim Correo = CorreoNotificacionesEmpresa.ToUpper.PadRight(50) + Dim Correo As String = CorreoNotificacionesEmpresa.ToUpper.PadRight(50) 'Correo = If(Correo.Length > 0, Correo.ToUpper.PadRight(50), Vacio.PadRight(50)) 'Campos 24-50 del Detalle 0 1 2 3 4 5 6 7 8 9 DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Correo, Vacio.PadRight(12, PadCeros), NowADS().ToString("yyyy-MM-dd"), "0001-01-01", Observaciones.PadRight(700), Vacio.PadRight(52)) TotalAcumulado += Importe.ToDouble - - ''LLENA DTPAGOS PARA REPORTE - Dim Row = DtPago.NewRow() + Dim Row As DataRow = DtPago.NewRow() Row("Proveedor") = DTPendienteActual(0)("RazonSocial").ToString If DTPendienteActual(0)("CIE").ToString <> "" Then @@ -1778,31 +1765,17 @@ Partial Class Bancos_PagoElectronicoGrupos NombreArchivoBancomer = "" NombreArchivoInterbancario = "" NombreArchivo = "" - - - Dim RegistrosAltaBancomer As New StringBuilder Dim RegistrosAltaInterbancario As New StringBuilder Dim SBErrores As New StringBuilder - - Dim CeroRelleno As Char = "0"c Dim EspacioRelleno As Char = Chr(32) - Dim ErrorLayout = False - - + Dim ErrorLayout As Boolean = False If DtCuentasPendientesTemp Is Nothing Then DtCuentasPendientesTemp = DTFyE.Copy End If - - - DtCuentasPendientesTemp.CaseSensitive = False - - - - Dim DtCuentasPendientesBancomer As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre like '%BBVA%' OR BancoNombre like '%BANCOMER%' ) ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CvePersonal", "CveBanco", "Cuenta", "BBVAAlias"}) Dim DtCuentasPendientesInterbancarias As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre not like '%BBVA%' AND BancoNombre not like '%BANCOMER%' ) ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CvePersonal", "CveBanco", "Cuenta", "BBVAAlias"}) 'CLABEDestino @@ -2041,8 +2014,8 @@ Partial Class Bancos_PagoElectronicoGrupos Private Sub CargaReporte() Dim ObjBancos As New ClsBancos - Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") + Dim FechaI As String = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") + Dim FechaF As String = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") If ObjBancos.GetLayoutPagosEnviados(DdlCuentaReportes.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, DdlTipoReportes.SelectedValue, FechaI, DateAdd(DateInterval.Day, 1, FechaF.ToDate).ToShortDateString, PorGrupos:=True) Then DTReportes = ObjBancos.DtResultados @@ -2511,8 +2484,8 @@ Partial Class Bancos_PagoElectronicoGrupos Private Sub CargaEnviados() Dim ObjBancos As New ClsBancos - Dim FechaI = If(IsDate(txtFechaIEnviados.Text.Trim()), txtFechaIEnviados.Text.Trim(), "-1") - Dim FechaF = If(IsDate(txtFechaFEnviados.Text.Trim()), txtFechaFEnviados.Text.Trim(), "-1") + Dim FechaI As String = If(IsDate(txtFechaIEnviados.Text.Trim()), txtFechaIEnviados.Text.Trim(), "-1") + Dim FechaF As String = If(IsDate(txtFechaFEnviados.Text.Trim()), txtFechaFEnviados.Text.Trim(), "-1") If ObjBancos.GetLayoutPagosEnviados(DdlCuentaEnviados.SelectedValue.ToEntero, DdlEstatusEnviados.SelectedValue.ToEntero, DdlTipoGeneracionEnviados.SelectedValue, FechaI, FechaF, PorGrupos:=True) Then DTEnviadas = ObjBancos.DtResultados @@ -2779,10 +2752,10 @@ Partial Class Bancos_PagoElectronicoGrupos Dim FechaCancelacion As Date = NowADS() - Dim ErrorCancelar = False - Dim MensajeError = "" - Dim IdPolizaNueva = -1 - Dim FolioPolizaNueva = -1 + Dim ErrorCancelar As Boolean = False + Dim MensajeError As String = "" + Dim IdPolizaNueva As Integer = -1 + Dim FolioPolizaNueva As Integer = -1 If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 874770e8c..fe63b8585 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -70,16 +70,10 @@ - -
- -
- T.C: - - - - + +
+