diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 1b16277ef..b06d1b586 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -1162,7 +1162,7 @@ Public Class ClsCompras Return Retorno End Function - Public Function GetFacturasComparacionXML(Version As String, Xml As String, CveEmpresa As Integer) As Boolean + Public Function GetFacturasComparacionXML(Version As String, Xml As String, CveEmpresa As Integer, Optional RestriccionesVinculacion As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_ComparacionXML") @@ -1170,6 +1170,7 @@ Public Class ClsCompras .Add("@Version", SqlDbType.VarChar, 4).Value = Version .Add("@Xml", SqlDbType.Xml).Value = Xml .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@RestriccionesVinculacion", SqlDbType.VarChar, 100).Value = RestriccionesVinculacion .Add("@Error", SqlDbType.VarChar, 300).Direction = ParameterDirection.Output End With diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 85a36307a..cf04e3794 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -2008,7 +2008,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function RepNotasSinAlmacen(Opcion As Integer, CveClienteProveedor As Integer, FechaIni As Date, FechaFin As Date, TipoDocumento As String, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Public Function RepNotasSinAlmacen(Opcion As Integer, CveClienteProveedor As Integer, FechaIni As Date, FechaFin As Date, TipoDocumento As String, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RepNotasSinAlmacen") @@ -2021,6 +2021,7 @@ Public Class ClsInventarios .Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With Try @@ -2257,6 +2258,25 @@ Public Class ClsInventarios Return Retorno End Function + Public Function GetExistenciasPSVenta(CveVenta As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ExistenciasVentaGET") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .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 las existencias de los almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetExistenciasProductosLike(PS As String, CveClasificacion As Integer, CveSubProyecto As Integer, Estatus As Integer, AplicaParaVenta As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional MostrarTodosAlmacenes As Boolean = False, Optional CveAlmacen As Integer = -1) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index c48d73aee..68de58744 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -521,6 +521,27 @@ Public Class ClsMovimientos OnError("Ocurrió un error al consultar los Anticipos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + + Public Function GetAnticiposNCIxCAutorizaciones(CveCliente As Integer, CveEmpresa As Integer, FechaI As DateTime, FechaF As DateTime) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClienteAnticiposNCIxCAutorizaciones") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.DateTime).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al consultar los autorizaciones de anticipos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function Public Function GetRemisionesNCCliente(CveCliente As Integer, MostarDetalle As Boolean, Optional CveMoneda As Integer = -1, Optional CveClienteSucursal As Integer = -1) As Boolean diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 29c6072ed..622e12946 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -715,7 +715,7 @@ Public Class ClsOC Optional PorcentajeIVA As Decimal = 0.16D, 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 Decimal = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1, Optional NumRemision As String = "-1", - Optional CveColectiva As Integer = -1, Optional MetodoPago As Integer = -1, Optional CveSubProyectoEntrega As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0, Optional EsTemporal As Boolean = False) As Boolean + Optional CveColectiva As Integer = -1, Optional MetodoPago As Integer = -1, Optional CveSubProyectoEntrega As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraAdd") @@ -763,8 +763,6 @@ Public Class ClsOC .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago ' 0 Contado, 1 Credito .Add("@CveSubProyectoEntrega", SqlDbType.Int).Value = CveSubProyectoEntrega ' 0 Contado, 1 Credito .Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago - .Add("@EsTemporal", SqlDbType.Bit).Value = EsTemporal - .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output @@ -1675,7 +1673,7 @@ Public Class ClsOC 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, Optional CveUsuarioAutorizo As Integer = -1, Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1, - Optional MetodoPago As Integer = -1, Optional Serie As String = "-1", Optional TieneAnticipo As Integer = -1, Optional EsTemporal As Integer = -1) As Boolean + Optional MetodoPago As Integer = -1, Optional Serie As String = "-1", Optional TieneAnticipo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraRep") @@ -1708,9 +1706,6 @@ Public Class ClsOC .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago .Add("@Serie", SqlDbType.VarChar).Value = Serie .Add("@TieneAnticipo", SqlDbType.Int).Value = TieneAnticipo - .Add("@EsTemporal", SqlDbType.Int).Value = EsTemporal - - End With Try @@ -1849,7 +1844,7 @@ Public Class ClsOC 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, Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, - Optional TieneAnticipo As Integer = -1, Optional EsTemporal As Integer = -1) As Boolean + Optional TieneAnticipo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraPendientes") @@ -1867,7 +1862,6 @@ Public Class ClsOC .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta .Add("@TieneAnticipo", SqlDbType.Int).Value = TieneAnticipo - .Add("@EsTemporal", SqlDbType.Int).Value = EsTemporal End With Try @@ -2247,7 +2241,7 @@ Public Class ClsOC #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 + 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, Optional Gpo As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_ComprasPendientesPorSurtirGet") @@ -2261,6 +2255,7 @@ Public Class ClsOC .Add("@FechaF", SqlDbType.VarChar).Value = FechaF .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@Gpo", SqlDbType.Int).Value = Gpo End With Try @@ -2631,12 +2626,13 @@ Public Class ClsOC End Function - Public Function PendientesCompra(CvePS As Integer, CveEmpresa As Integer) As Boolean + Public Function PendientesCompra(CvePS As Integer, CveSubProyectos As String, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_PendientesCompra") With SqlAdapter.SelectCommand.Parameters .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveSubProyectos", SqlDbType.VarChar, 100).Value = CveSubProyectos .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index bc48001fa..9f0cf23aa 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1260,21 +1260,21 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTMetodosPago() As DataTable - Get - Dim AppNombre As String = "GlobalDTMetodosPago" - If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then - Dim ObjMetodoPago As New ClsVentas - If ObjMetodoPago.GetMetodosPago() Then HttpContext.Current.Application(AppNombre) = ObjMetodoPago.DtResultados - ObjMetodoPago.Dispose() - End If - GlobalDTMetodosPago = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) - End Get - Set(value As DataTable) - Dim AppNombre As String = "GlobalDTMetodosPago" - HttpContext.Current.Application(AppNombre) = value - End Set - End Property + 'Public Shared Property GlobalDTMetodosPago() As DataTable + ' Get + ' Dim AppNombre As String = "GlobalDTMetodosPago" + ' If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then + ' Dim ObjMetodoPago As New ClsVentas + ' If ObjMetodoPago.GetMetodosPago() Then HttpContext.Current.Application(AppNombre) = ObjMetodoPago.DtResultados + ' ObjMetodoPago.Dispose() + ' End If + ' GlobalDTMetodosPago = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) + ' End Get + ' Set(value As DataTable) + ' Dim AppNombre As String = "GlobalDTMetodosPago" + ' HttpContext.Current.Application(AppNombre) = value + ' End Set + 'End Property Property GlobalDTModulos(Optional CveModulo As Integer = -1) As DataTable Get Dim AppNombre As String = "GlobalDTModulos" @@ -7122,16 +7122,13 @@ Public Class ClsPaginas params.Add(New ReportParameter("MetodoPago", Vta.ClaveMetodoPagoSAT.ToString)) End If If Vta.Version.Contiene("3.3", "4.0") Then - params.Add(New ReportParameter("FormaPago", Vta.FormaPago33.ToString)) - params.Add(New ReportParameter("MetodoPago", Vta.MetodoPago33.ToString)) + params.Add(New ReportParameter("FormaPago", Vta.FormaPago)) + params.Add(New ReportParameter("MetodoPago", Vta.MetodoPago)) params.Add(New ReportParameter("UsoCFDI", Vta.UsoCFDI)) If Vta.TipoDocto.Contiene("Ing", "Egs", "Ant", "Dev") Then params.Add(New ReportParameter("TipoRelacionTexto", If(Vta.Timbre.CFDIRelacionados.TipoRelacionTexto Is Nothing, "", Vta.Timbre.CFDIRelacionados.TipoRelacionTexto))) params.Add(New ReportParameter("FolioFiscalRelacionado", If(Vta.Timbre.CFDIRelacionados.UUID.Count = 0, "", Vta.Timbre.CFDIRelacionados.UUID.Item(0)))) End If - Else - params.Add(New ReportParameter("FormaPago", Vta.FormaPagoText)) - params.Add(New ReportParameter("MetodoPago", Vta.MetodoPago.ToString)) End If 'DIRECCION ENVIO If Vta.EnviarA IsNot Nothing AndAlso Vta.EnviarA.CveDireccionEnvio > 0 Then @@ -9819,6 +9816,7 @@ Public Class ClsPaginas Public Property RetISR As Decimal Public Property PorcentajeIVA As Decimal Public Property CveSubProyecto As Integer + Public Property CveUsoCFDI As Integer Public Property UsuarioActual As Usuario End Class diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 0f4eea25a..60ced51bc 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -602,7 +602,7 @@ Public Class ClsVentas Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Decimal = -1, Optional RetISR As Decimal = -1, Optional Kilometraje As Decimal = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1, Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional FechaParaSurtir As DateTime = MinFecha, - Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveCondicionEntrega As Integer = -1, Optional FolioRemision As String = "-1") As Boolean + Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveCondicionEntrega As Integer = -1, Optional FolioRemision As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -643,6 +643,7 @@ Public Class ClsVentas .Add("@Episodio", SqlDbType.VarChar).Value = Episodio .Add("@CveCondicionEntrega", SqlDbType.Int).Value = CveCondicionEntrega .Add("@FolioRemision", SqlDbType.VarChar).Value = FolioRemision + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico End With Try @@ -657,7 +658,7 @@ Public Class ClsVentas Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String, Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, - Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean + Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasObservacionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -678,6 +679,8 @@ Public Class ClsVentas .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = FechaParaSurtir .Add("@Paciente", SqlDbType.VarChar).Value = Paciente .Add("@Episodio", SqlDbType.VarChar).Value = Episodio + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + End With Try @@ -835,12 +838,13 @@ Public Class ClsVentas Return Retorno End Function - Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date) As Boolean + Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date, CveUsuarioModifico As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasFechaVencimientoUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico End With Try SqlAdapter.Fill(Data) @@ -2504,7 +2508,7 @@ Public Class ClsVentas End Function Public Function AddPromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean, CveMoneda As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoAplicacion As String, - Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Integer + Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional ReqAutorizacion As Boolean = False) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Vta_PromocionesAdd") @@ -2522,6 +2526,7 @@ Public Class ClsVentas .Add("@TipoAplicacion", SqlDbType.VarChar).Value = TipoAplicacion .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor + .Add("@ReqAutorizacion", SqlDbType.Bit).Value = ReqAutorizacion .Add("@CvePromocion", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -2668,7 +2673,8 @@ Public Class ClsVentas Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1, - Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional IncluyeImpuestos As Boolean = False, Optional Opcion As Integer = 1) As Boolean + Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional IncluyeImpuestos As Boolean = False, Optional Opcion As Integer = 1 + ) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PromocionesDetalleAdd") @@ -2695,6 +2701,7 @@ Public Class ClsVentas .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño .Add("@IncluyeImpuestos", SqlDbType.Bit).Value = IncluyeImpuestos .Add("@Opcion", SqlDbType.Int).Value = Opcion + End With Try @@ -5240,7 +5247,6 @@ Public Class ClsVentas .Add("@Importe", SqlDbType.Money).Value = Importe .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - End With Try @@ -5992,7 +5998,7 @@ Public Class ClsVentas #End Region - Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0, Optional Motivo As String = "", Optional PorcentajeDescuento As Decimal = 0, Optional CveVenta As Integer = -1) As Boolean + Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0, Optional Motivo As String = "", Optional PorcentajeDescuento As Decimal = 0, Optional CveVenta As Integer = -1, Optional CveIE As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_AutorizacionLimitesAdd") With SqlAdapter.SelectCommand.Parameters @@ -6008,6 +6014,7 @@ Public Class ClsVentas .Add("@PorcentajeDescuento", SqlDbType.Decimal).Value = PorcentajeDescuento .Add("@Motivo", SqlDbType.VarChar).Value = Motivo .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveIE", SqlDbType.Int).Value = CveIE End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 80ac46373..196c9b331 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -481,7 +481,7 @@ Namespace Modelos If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then setValues(ObjVentas.DtResultados.Rows(0)) - SetMetodoPago() + 'SetMetodoPago() SetMoneda() If Me.CveSubProyecto > 0 Then @@ -1294,10 +1294,7 @@ Namespace Modelos ObjFactura.Version = "4.0" ObjFactura.CveUsuario = UsuarioActual.CveUsuario ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa - '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 = TipoDocto ObjFactura.Folio = -1 ObjFactura.Serie = "-1" @@ -1315,31 +1312,31 @@ Namespace Modelos ObjFactura.CveCliente = CveCliente ObjFactura.SetCliente() - Dim ObjCliente As New ClsClientes - If ObjCliente.GetClientes(ObjFactura.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then - If ObjCliente.DtResultados.Rows.Count > 0 Then - ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 - ObjFactura.FormaPago33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - ObjFactura.FormaPagoSAT33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - - ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 - ObjFactura.MetodoPago33 = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) - ObjFactura.ClaveMetodoPagoSAT = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) - - ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI - ObjFactura.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) - ObjFactura.ClaveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) - End If - End If - - 'If ObjCliente.GetSucursales(ObjFactura.CveCliente) Then + 'Dim ObjCliente As New ClsClientes + 'If ObjCliente.GetClientes(ObjFactura.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) 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 + ' ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 + ' ObjFactura.FormaPago33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) + ' ObjFactura.FormaPagoSAT33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) + + ' ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 + ' ObjFactura.MetodoPago33 = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) + ' ObjFactura.ClaveMetodoPagoSAT = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) + + ' ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI + ' ObjFactura.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) + ' ObjFactura.ClaveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) ' End If 'End If - ObjCliente.Dispose() + + ''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 @@ -1348,6 +1345,8 @@ Namespace Modelos ObjFactura.CveSubProyectoCobranza = CveSubProyecto.ToEntero ObjFactura.CveSubProyectoEjecucion = CveSubProyecto.ToEntero + + ObjFactura.CveMoneda = CveMoneda 'DETALLES ObjFactura.DtDetalle = CreaDTFactura() @@ -1359,7 +1358,6 @@ Namespace Modelos ObjFactura.Total = ObjFactura.SubTotal + ObjFactura.IVA + ObjFactura.IEPS - (ObjFactura.RetIVA + ObjFactura.RetISR) - 'SUBPROYECTO Catch ex As Exception ObjFactura = Nothing End Try @@ -1719,8 +1717,8 @@ Namespace Modelos Timbre.Comprobante.Folio = Me.Folio.ToString() Timbre.Comprobante.Serie = Me.Serie Timbre.Comprobante.Fecha = Me.FechaCP - Timbre.Comprobante.FormadePago = Me.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Me.FormaPago33 + Timbre.Comprobante.FormadePago = Me.ClaveFormaPagoSAT + Timbre.Comprobante.CondicionesdePago = Me.FormaPago Timbre.Comprobante.MetodoPago = Me.ClaveMetodoPagoSAT Timbre.Comprobante.SubTotal = Me.SubTotal Timbre.Comprobante.Descuentos = Me.Descuento @@ -1750,7 +1748,7 @@ Namespace Modelos Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.NumeroRegistroTributario = "" - Timbre.Receptor.UsoCFDI = Me.ClaveUsoCFDI + Timbre.Receptor.UsoCFDI = Me.ClaveUsoCFDISAT Dim totSubTotal As Decimal = Me.SubTotal Dim totIVA As Decimal = Me.IVA @@ -2201,7 +2199,7 @@ Namespace Modelos If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, - factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, + factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, 0, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, factura.Observaciones, factura.FechaEjecucion, factura.CveVendedor, factura.Alfa1, factura.Alfa2, factura.Alfa3, factura.Num1, factura.Num2, factura.Num3, factura.Fech1, factura.Fech2, factura.Fech3, factura.CveCorte, factura.NumeroPersonas, factura.CvePrePoliza, factura.CveUsuario, factura.CveEmpresa, @@ -2210,8 +2208,8 @@ Namespace Modelos Entrega:=factura.Entrega, Vigencia:=If(factura.TipoDocto = "Cot", FechaVencimiento, MinFecha), CveAlmacenTraspasoDestino:=CveAlmacenTraspasoDestino, CveAlmacenTraspasoOrigen:=CveAlmacenTraspasoOrigen, CveDireccionEnvio:=factura.CveDireccionEnvio, CveOC:=factura.CveOC, IEPS:=factura.IEPSTC, Serie:=factura.Serie, CveCondicionEntrega:=factura.CveCondicionEntrega, - PedidoContrato:=factura.PedidoContrato, ObservacionesAlmacen:=factura.ObservacionesAlmacen, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago33, - CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=factura.OrdenCompra, CveCuentaTerminal:=factura.CveCuentaTerminal, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal, + PedidoContrato:=factura.PedidoContrato, ObservacionesAlmacen:=factura.ObservacionesAlmacen, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago, + CveMetodoPago33:=factura.CveMetodoPago, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=factura.OrdenCompra, CveCuentaTerminal:=factura.CveCuentaTerminal, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal, CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia, DescripcionVenta:=factura.DescripcionVenta, CveVentaTerminal:=factura.CveVentaTerminal, CveMedico:=factura.CveMedico, CveProcedimiento:=factura.CveProcedimiento, CveTipoVenta:=factura.CveTipoVenta, FechaParaSurtir:=factura.FechaParaSurtir, Paciente:=factura.Paciente, Episodio:=factura.Episodio, EsFacturaGlobal:=factura.EsFacturaGlobal, CveSATPeriodicidad:=factura.CveSATPeriodicidad, CveSATMes:=factura.CveSATMes, SATAnio:=factura.SATAnio) Then @@ -3073,7 +3071,7 @@ Namespace Modelos Try Dim AplicaCancelacionConPagos As Boolean = (CancelacionPagos = OpcionesCancelacionPagos.ConPagos_CancelarIE OrElse CancelacionPagos = OpcionesCancelacionPagos.ConPagos_GenerarIxC) - If ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso AplicaCancelacionConPagos AndAlso ValorMultiplicador = -1 Then + If ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant") AndAlso AplicaCancelacionConPagos AndAlso ValorMultiplicador = -1 Then Dim DtPagosVenta As DataTable = Nothing If ObjClientes IsNot Nothing Then @@ -3943,12 +3941,13 @@ Namespace Modelos CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then ErrorPrepoliza = True End If + End If End If 'SI ES PAGO CON DEVOLUCION - If ObjFactura.CveTipoAmortizacionAnticipo = 4 Then + If Not ErrorPrepoliza AndAlso ObjFactura.CveTipoAmortizacionAnticipo = 4 Then If row2("CveConceptoContable").ToString().ToEntero = 277 Then importeMovimiento = row2("Importe").ToString().ToDecimal() @@ -3972,10 +3971,15 @@ Namespace Modelos End If End If + If ErrorPrepoliza Then + Exit For + End If + Next End If - If sumaAmorticaciones <> 0 Then + + If Not ErrorPrepoliza AndAlso sumaAmorticaciones <> 0 Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, sumaAmorticaciones, sumaAmorticaciones * tipoCambio, 251, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then @@ -7888,22 +7892,7 @@ Namespace Modelos Public Property TipoCambioDolares As Decimal Public Property ConvertirPesos As Boolean = False Public Property ConvertirDolares As Boolean - Public Property FormaPago As Integer = 0 - - Public ReadOnly Property FormaPagoText As String - Get - Dim retorno As String = "" - Select Case FormaPago - Case 0 - retorno = "PAGO EN UNA SOLA EXHIBICIÓN" - Case 1 - retorno = "PAGO EN PARCIALIDADES" - End Select - Return retorno - End Get - End Property Public Property CondicionesPago As Integer = 0 ' 0 - Contado, 1 - Credito (CHECAR) - Public ReadOnly Property CondicionesPagoText As String Get Dim retorno As String = "" @@ -8091,6 +8080,16 @@ Namespace Modelos Public Sub SetCliente() If CveCliente > 0 Then Cliente = New Modelos.ClienteModel(CveCliente, CveEmpresa) + + Me.CveFormaPago = Cliente.CveFormaPago + Me.FormaPago = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", Me.CveFormaPago)) + + Me.CveMetodoPago = Cliente.CveMetodoPago + Me.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", Me.CveMetodoPago)) + + Me.CveUsoCFDI = Cliente.CveUsoCFDI + Me.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", Me.CveUsoCFDI)) + If Me.CveClienteSucursal > 0 Then Dim ObjCliente As New ClsClientes() If ObjCliente.GetSucursales(CveCliente, Me.CveClienteSucursal) AndAlso ObjCliente.DtResultados.Rows.Count > 0 Then @@ -8127,15 +8126,6 @@ Namespace Modelos End If End If End Sub - Public Sub SetMetodoPago() - If CveMetodoPago > 0 Then - Dim dr As DataRow = ClsPaginas.GlobalDTMetodosPago.FiltroPrimero(String.Format(" CveMetodoPago = {0}", CveMetodoPago)) - If Not IsNothing(dr) Then - MetodoPago = dr("MetodoPago").ToString() - ClaveMetodoPagoSAT = dr("ClaveSAT").ToString() - End If - End If - End Sub Public Sub SetSubProyecto(obj As ClsPaginas) If CveSubProyecto > 0 AndAlso Not IsNothing(obj) Then @@ -8150,25 +8140,21 @@ Namespace Modelos End If End If End Sub - Public Property CveClienteSucursal As Integer = 0 Public Property ClienteSucursal As Modelos.SucursalModel Public Property EnviarA As Modelos.EnviarAModel Public Property NumeroContrato As String = "" Public Property PedidoContrato As String = "" Public Property OrdenCompra As String = "" - Public Property CveMetodoPago As Integer = 0 + Public Property CveMetodoPago As Integer = 1 Public Property MetodoPago As String = "" Public Property ClaveMetodoPagoSAT As String = "" - Public Property CveMetodoPago33 As Integer = 1 - Public Property MetodoPago33 As String = "" - Public Property CveFormaPago33 As Integer - Public Property MetodoPagoSAT33 As String = "" - Public Property FormaPago33 As String = "" - Public Property FormaPagoSAT33 As String = "" + Public Property CveFormaPago As Integer + Public Property FormaPago As String = "" + Public Property ClaveFormaPagoSAT As String = "" Public Property UsoCFDI As String = "" Public Property CveUsoCFDI As Integer - Public Property ClaveUsoCFDI As String = "" + Public Property ClaveUsoCFDISAT As String = "" Public Property CveTipoRelacion As Integer = -1 Public Property CveEstatusFactura As Integer Public Property CveVendedor As Integer = 0 @@ -8478,6 +8464,9 @@ Namespace Modelos AplicaFEMSA = False AplicaDetallista = False AplicaComercioExterior = False + CveUsoCFDI = -1 + CveFormaPago = -1 + CveMetodoPago = -1 End Sub Public Sub New() MyBase.New() @@ -8512,6 +8501,9 @@ Namespace Modelos Public Property CveRegimenFiscal As Integer Public Property CodigoRegimenFiscal As String Public Property RegimenFiscal As String + Public Property CveUsoCFDI As Integer + Public Property CveFormaPago As Integer + Public Property CveMetodoPago As Integer Public Property Telefono As String Public Property Contacto As String Public Property Mail As String @@ -8540,7 +8532,6 @@ Namespace Modelos Public Property FormaFacturacion As String Public Property LimiteCredito As Decimal Public Property NumCtaPago As String - Public Property CveMetodoPago As Integer Public Property AplicaFEMSA As Boolean Public Property FEMSA_NumSociedad As String Public Property FEMSA_NumProveedor As String diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index d634088ea..d977e35e8 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -80,7 +80,7 @@ Public Class Timbres Dim Timbre As New CFDITimbre Timbre.Comprobante.TipoComprobante = "T" Timbre.Comprobante.Fecha = Obj.Fecha - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 + Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.SubTotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index e8fd53eae..9343ffa93 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -3726,6 +3726,14 @@ Namespace Extensiones End Try End Sub + + Public Function DataColumnToString(ByRef dtt As DataTable, NombreColumna As String) As String + + Return String.Join(", ", dtt.AsEnumerable(). + Where(Function(row) Not row.IsNull(NombreColumna)). + Select(Function(row) row(NombreColumna).ToString())) + End Function + Public Function GetSelectedValues(ByRef Ddl As ListBox, Optional beforeValue As String = "", Optional AfterValue As String = "") As String Dim retorno As New StringBuilder diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 50a0603aa..ca85d2adb 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -807,7 +807,6 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe ObjFactura.CondicionEntrega = "" ObjFactura.NumeroCuenta = "" ObjFactura.CondicionesPago = 0 - ObjFactura.FormaPago = 0 ObjFactura.PedidoContrato = "" ObjFactura.NumeroContrato = "" ObjFactura.DescripcionContrato = "" @@ -833,17 +832,17 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe If ObjFactura.TipoDocto = "Cot" Then If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then If ObjClientes.DtResultados.Rows.Count > 0 Then - ObjFactura.CveFormaPago33 = ObjClientes.CveFormaPago33 - ObjFactura.FormaPago33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjClientes.CveFormaPago33)) - ObjFactura.FormaPagoSAT33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjClientes.CveFormaPago33)) + ObjFactura.CveFormaPago = ObjClientes.CveFormaPago33 + ObjFactura.FormaPago = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjClientes.CveFormaPago33)) + ObjFactura.ClaveFormaPagoSAT = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjClientes.CveFormaPago33)) - ObjFactura.CveMetodoPago33 = ObjClientes.CveMetodoPago33 - ObjFactura.MetodoPago33 = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjClientes.CveMetodoPago33)) + ObjFactura.CveMetodoPago = ObjClientes.CveMetodoPago33 + ObjFactura.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjClientes.CveMetodoPago33)) ObjFactura.ClaveMetodoPagoSAT = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjClientes.CveMetodoPago33)) ObjFactura.CveUsoCFDI = ObjClientes.CveUsoCFDI ObjFactura.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjClientes.CveUsoCFDI)) - ObjFactura.ClaveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjClientes.CveUsoCFDI)) + ObjFactura.ClaveUsoCFDISAT = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjClientes.CveUsoCFDI)) End If End If @@ -860,9 +859,9 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe If Not String.IsNullOrEmpty(JsonRequest("invoice_way_to_pay").ToString()) Then Dim RowFormaPago As DataRow = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimero(String.Format("ClaveFormaPagoSAT = '{0}'", JsonRequest("invoice_way_to_pay").ToString())) If RowFormaPago IsNot Nothing Then - ObjFactura.CveFormaPago33 = RowFormaPago("CveFormaPago").ToString().ToEntero() - ObjFactura.FormaPago33 = RowFormaPago("FormaPago").ToString() - ObjFactura.FormaPagoSAT33 = RowFormaPago("ClaveFormaPagoSAT").ToString() + ObjFactura.CveFormaPago = RowFormaPago("CveFormaPago").ToString().ToEntero() + ObjFactura.FormaPago = RowFormaPago("FormaPago").ToString() + ObjFactura.ClaveFormaPagoSAT = RowFormaPago("ClaveFormaPagoSAT").ToString() Else Resp.TieneError = False Resp.Mensajes.Add("No se encontro la forma de pago") @@ -886,7 +885,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe If RowUsoCFDi IsNot Nothing Then ObjFactura.CveUsoCFDI = RowUsoCFDi("CveUsoCFDI").ToString().ToEntero() ObjFactura.UsoCFDI = RowUsoCFDi("Descripcion").ToString() - ObjFactura.ClaveUsoCFDI = RowUsoCFDi("UsoCFDI").ToString() + ObjFactura.ClaveUsoCFDISAT = RowUsoCFDi("UsoCFDI").ToString() Else Resp.TieneError = False Resp.Mensajes.Add("No se encontro el uso cfdi") @@ -908,8 +907,8 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe If Not String.IsNullOrEmpty(JsonRequest("invoice_payment_method").ToString()) Then Dim RowMetodoPago As DataRow = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", JsonRequest("invoice_payment_method").ToString())) If RowMetodoPago IsNot Nothing Then - ObjFactura.CveMetodoPago33 = RowMetodoPago("CveMetodoPago").ToString().ToEntero() - ObjFactura.MetodoPago33 = RowMetodoPago("MetodoPago").ToString() + ObjFactura.CveMetodoPago = RowMetodoPago("CveMetodoPago").ToString().ToEntero() + ObjFactura.MetodoPago = RowMetodoPago("MetodoPago").ToString() ObjFactura.ClaveMetodoPagoSAT = RowMetodoPago("ClaveMetodoPagoSAT").ToString() Else Resp.TieneError = False @@ -981,7 +980,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe End If Dim Cliente = ObjFactura.Cliente - If Not ObjClientes.UpdateClienteNoFrencuente(CveCliente, Cliente.Nombre, Cliente.Direccion, Cliente.NoExt, Cliente.NoInt, Cliente.Colonia, Cliente.Localidad, Cliente.Ciudad, CveEstado, Cliente.RFC, Cliente.CP, Cliente.Telefono, Cliente.Mail, CveSubProyecto, UsuarioActual.CveUsuario, CveEmpresa, "-1", ObjFactura.CveMetodoPago33, ObjFactura.CveFormaPago33) Then + If Not ObjClientes.UpdateClienteNoFrencuente(CveCliente, Cliente.Nombre, Cliente.Direccion, Cliente.NoExt, Cliente.NoInt, Cliente.Colonia, Cliente.Localidad, Cliente.Ciudad, CveEstado, Cliente.RFC, Cliente.CP, Cliente.Telefono, Cliente.Mail, CveSubProyecto, UsuarioActual.CveUsuario, CveEmpresa, "-1", ObjFactura.CveMetodoPago, ObjFactura.CveFormaPago) Then Resp.TieneError = False Resp.Mensajes.Add("No se puedo actualizar un cliente") Return Nothing @@ -1091,8 +1090,8 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.FechaCP - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.FormadePago = Obj.FormaPago + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.Subtotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento @@ -1107,7 +1106,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Timbre.Receptor.Nombre = Obj.Cliente.Nombre Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.NumeroRegistroTributario = "" - Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI + Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT If Obj.CveTipoRelacion > 0 Then diff --git a/Ashx/E194.ashx b/Ashx/E194.ashx index 34a2d2c9d..d5604d293 100644 --- a/Ashx/E194.ashx +++ b/Ashx/E194.ashx @@ -301,7 +301,6 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe ObjFactura.CondicionEntrega = "" ObjFactura.NumeroCuenta = "" ObjFactura.CondicionesPago = 0 - ObjFactura.FormaPago = 0 ObjFactura.PedidoContrato = "" ObjFactura.NumeroContrato = "" ObjFactura.DescripcionContrato = "" @@ -327,17 +326,17 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim ObjCliente As New ClsClientes If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then If ObjCliente.DtResultados.Rows.Count > 0 Then - ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 - ObjFactura.FormaPago33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - ObjFactura.FormaPagoSAT33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) + ObjFactura.CveFormaPago = ObjCliente.CveFormaPago33 + ObjFactura.FormaPago = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) + ObjFactura.ClaveFormaPagoSAT = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 - ObjFactura.MetodoPago33 = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) + ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago33 + ObjFactura.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) ObjFactura.ClaveMetodoPagoSAT = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI ObjFactura.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) - ObjFactura.ClaveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) + ObjFactura.ClaveUsoCFDISAT = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) 'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago @@ -424,8 +423,8 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.FechaCP - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.SubTotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento @@ -440,7 +439,7 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Timbre.Receptor.Nombre = Obj.Cliente.Nombre Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.NumeroRegistroTributario = "" - Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI + Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT If Obj.CveTipoRelacion > 0 Then diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index 3d92e1a8a..baabe5df8 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -281,16 +281,13 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState ObjFactura.Folio = Folio.ToEntero() ObjFactura.TipoMensajeRespuesta = TipoMensajeRespuesta.TextoLimpio ObjFactura.Version = "4.0" - ObjFactura.FolioFiscal = "" ObjFactura.CveUsuario = UsuarioActual.CveUsuario ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa - ObjFactura.TipoCambio = 1 - ObjFactura.ConvertirPesos = False + ObjFactura.CveMoneda = CveMoneda ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", String.Format("CveMoneda = {0} ", CveMoneda)) ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", String.Format("CveMoneda = {0} ", CveMoneda)) ObjFactura.TipoDocto = "Ing" - ObjFactura.RefDocto = "" 'ObjFactura.CveMesa = -1 ObjFactura.Fecha = ClsPaginas.NowADS() ObjFactura.CvePrePoliza = -1 @@ -299,19 +296,9 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState ObjFactura.FechaEjecucion = ClsPaginas.NowADS() 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 = "Ingresos" - ObjFactura.Alfa1 = "" - ObjFactura.Alfa2 = "" - ObjFactura.Alfa3 = "" - ObjFactura.CveContrato = -1 ObjFactura.ConvertirPesos = False ObjFactura.CveSubProyecto = CveSubProyecto ObjFactura.CveSubProyectoCobranza = CveSubProyecto @@ -327,17 +314,17 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState Dim ObjCliente As New ClsClientes If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then If ObjCliente.DtResultados.Rows.Count > 0 Then - ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 - ObjFactura.FormaPago33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - ObjFactura.FormaPagoSAT33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) + ObjFactura.CveFormaPago = ObjCliente.CveFormaPago33 + ObjFactura.FormaPago = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) + ObjFactura.ClaveFormaPagoSAT = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 - ObjFactura.MetodoPago33 = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) + ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago33 + ObjFactura.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) ObjFactura.ClaveMetodoPagoSAT = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI ObjFactura.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) - ObjFactura.ClaveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) + ObjFactura.ClaveUsoCFDISAT = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) 'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago @@ -424,8 +411,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.FechaCP - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.Subtotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento @@ -440,7 +427,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState Timbre.Receptor.Nombre = Obj.Cliente.Nombre Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.NumeroRegistroTributario = "" - Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI + Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT If Obj.CveTipoRelacion > 0 Then diff --git a/Ashx/SIGFacturacionCiclica.ashx b/Ashx/SIGFacturacionCiclica.ashx index 540f6df90..aa934ff85 100644 --- a/Ashx/SIGFacturacionCiclica.ashx +++ b/Ashx/SIGFacturacionCiclica.ashx @@ -311,7 +311,6 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt 'ObjFactura.CveSucursal = GlobalDTSucursales.FiltroPrimeroValor("CveSucursal", $"CveEmpresa = {UsuarioActual.CveEmpresa}").ToEntero 'ObjFactura.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim ObjFactura.CondicionesPago = 0 - ObjFactura.FormaPago = 0 'ObjFactura.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text) ObjFactura.PedidoContrato = "" ObjFactura.NumeroContrato = DR("NumeroContrato").ToString @@ -406,41 +405,6 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt ObjFactura.CveCliente = DR("CveCliente").ToString.ToEntero ObjFactura.SetCliente() - Dim ObjCliente As New ClsClientes - If ObjCliente.GetClientes(ObjFactura.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then - If ObjCliente.DtResultados.Rows.Count > 0 Then - ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 - ObjFactura.FormaPago33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - ObjFactura.FormaPagoSAT33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - - ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 - ObjFactura.MetodoPago33 = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) - ObjFactura.ClaveMetodoPagoSAT = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) - - ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI - ObjFactura.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) - ObjFactura.ClaveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) - - 'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago - - 'If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then - ' ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString - 'Else - ' ObjFactura.CveMetodoPago = 1 - ' ObjFactura.MetodoPago = "Efectivo" - 'End If - 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() - 'SUBPROYECTO 'ObjFactura.SetSubProyectoMatriz(Me) 'ObjFactura.SetSubProyecto(Me) @@ -451,7 +415,6 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt OnError("Ocurrió un error al generar la factura", ex) End Try - Return ObjFactura End Function @@ -462,8 +425,8 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.FechaCP - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.Subtotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento @@ -478,8 +441,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt Timbre.Receptor.Nombre = Obj.Cliente.Nombre Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.NumeroRegistroTributario = "" - Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI - + Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT If Obj.CveTipoRelacion > 0 Then Select Case Obj.CveTipoRelacion diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index e060b3de8..ac7b0420a 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -512,40 +512,46 @@ Partial Class Bancos_DepositosCaja If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then - Dim ObjMovtos As New ClsMovimientos() - Dim FechaI, FechaF As Date - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha).AddDays(1) + If DdlTipoDeposito.SelectedValue <> "8" Then + Dim ObjMovtos As New ClsMovimientos() + Dim FechaI, FechaF As Date + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha).AddDays(1) - Dim CveSubProyecto As Integer = -1 + Dim CveSubProyecto As Integer = -1 - If DdlSubProyectos.SelectedValue.ToEntero > 0 Then - CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero - End If - - Dim CveSubProyectoCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero() - - If CveSubProyectoCuenta > 0 Then - CveSubProyecto = CveSubProyectoCuenta - End If - - If ObjMovtos.GetRemisionesCobranza(UsuarioActual.CveEmpresa, CveSubProyecto, FechaI, FechaF, UsuarioActual.CveUsuario) Then - Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros($"CveVenta > 0 AND (CveUsuarioCobranza IS NULL OR CveUsuarioCobranza = {UsuarioActual.CveUsuario}) AND TipoDocto IN ('Ing','Rem') AND RemisionEspecial = 0") - 'Dim Dtta As DataTable = dtt.FiltraParametros($"CveUsuarioCobranza = {UsuarioActual.CveUsuario} ") - 'If Dtta IsNot Nothing AndAlso Dtta.Rows.Count > 0 Then dtt = Dtta - - If dtt.Rows.Count = 0 Then - Respuesta = True - Else - Respuesta = False - Alert("No se puede realizar el depósito, ya que hay cobros pendientes por aplicar.", TipoMensaje.MsgAdvertencia) + If DdlSubProyectos.SelectedValue.ToEntero > 0 Then + CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero End If + Dim CveSubProyectoCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero() + + If CveSubProyectoCuenta > 0 Then + CveSubProyecto = CveSubProyectoCuenta + End If + + If ObjMovtos.GetRemisionesCobranza(UsuarioActual.CveEmpresa, CveSubProyecto, FechaI, FechaF, UsuarioActual.CveUsuario) Then + Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros($"CveVenta > 0 AND (CveUsuarioCobranza IS NULL OR CveUsuarioCobranza = {UsuarioActual.CveUsuario}) AND TipoDocto IN ('Ing','Rem') AND RemisionEspecial = 0") + 'Dim Dtta As DataTable = dtt.FiltraParametros($"CveUsuarioCobranza = {UsuarioActual.CveUsuario} ") + 'If Dtta IsNot Nothing AndAlso Dtta.Rows.Count > 0 Then dtt = Dtta + + If dtt.Rows.Count = 0 Then + Respuesta = True + Else + Respuesta = False + Alert("No se puede realizar el depósito, ya que hay cobros pendientes por aplicar.", TipoMensaje.MsgAdvertencia) + End If + + Else + Alert("Error al consultarcobros pendientes.", TipoMensaje.MsgAdvertencia) + Respuesta = False + End If + ObjMovtos.Dispose() Else - Alert("Error al consultarcobros pendientes.", TipoMensaje.MsgAdvertencia) - Respuesta = False + 'SI ES TRANSFERENCIA PERMITIR CERRAR + Respuesta = True End If - ObjMovtos.Dispose() + Else Respuesta = True End If diff --git a/Bancos/Devoluciones.aspx b/Bancos/Devoluciones.aspx index d63c1c52f..512e5d298 100644 --- a/Bancos/Devoluciones.aspx +++ b/Bancos/Devoluciones.aspx @@ -160,7 +160,7 @@
- +
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index bc166e690..67049b026 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -24,6 +24,7 @@ public partial class Bancos_Devoluciones : ClsPaginas TxtComisiones.Attributes.Add("disabled", "disabled"); TxtTotal.Attributes.Add("disabled", "disabled"); TipoDevolucion.SelectedValue = "1"; + CargarCentrosDeCosto(null, null, null, LblSubProyecto); } } diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index a2ff0baa0..2076a6b21 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -208,31 +208,29 @@ Partial Class Bancos_FluctuacionCambiaria Dim Perdida As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion > 0") Dim Ganancias As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion < 0") - Dim PerdidaAux As Double = Perdida.SUM("Fluctuacion", "Fluctuacion > 0").Abs - Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion", "Fluctuacion < 0").Abs - - Dim Final As Double = GanaciaAux - PerdidaAux + Dim GananciaAux As Double = Ganancias.SUM("Fluctuacion", "Fluctuacion < 0").Abs + HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString HplClientesLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) HplClientesLiga.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0 BtnClientesRemove.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0 - BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0 - - IImagenFinalVentas.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd") - - LtIndicador_PerdidasVentas.Text = PerdidaAux.ToString.FormatoNumero - LtIndicador_GanaciaVentas.Text = GanaciaAux.ToString.FormatoNumero - LtIndicador_FinalVentas.Text = Final.ToString.FormatoNumero - LblVentasPerdidaGanancia.Text = If(Final < 0, "Pérdida", "Ganancia") - - LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero - + BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0 + + 'LtIndicador_PerdidasVentas.Text = PerdidaAux.ToString.FormatoNumero + 'LtIndicador_GanaciaVentas.Text = GanaciaAux.ToString.FormatoNumero + 'LtIndicador_FinalVentas.Text = Final.ToString.FormatoNumero + UpIndicadoresVentas.Visible = True Dim tdt As DataTable = VerificacionFluctuacion(3, FechaUltimoDiaMes) + Dim Final As Decimal = tdt.SUMD("Diferencia") + IImagenFinalVentas.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd") + LblVentasPerdidaGanancia.Text = If(Final > 0, "Pérdida", "Ganancia") + + LblTotalVentas.Text = (PerdidaAux - GananciaAux).FormatoNumero 'tdt.SUMD("Diferencia").FormatoNumero LtIndicador_PerdidasVentas.Text = tdt.SUMD("Diferencia").FormatoNumero LtIndicador_GanaciaVentas.Text = "" LtIndicador_FinalVentas.Text = "" @@ -669,7 +667,8 @@ Partial Class Bancos_FluctuacionCambiaria ' AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal 'End If tTipoMovto = dr("TipoMovto").ToString.ToBool - If TipoFluctuacion.Contiene(3) AndAlso tTipoMovto AndAlso AjusteTotal > 0 Then AjusteTotal = -AjusteTotal 'si es cleintes, abonado y el ajustes es positivo tiene que restar + If TipoFluctuacion.Contiene(3) AndAlso tTipoMovto Then AjusteTotal = -AjusteTotal 'si es cleintes, abonado y el ajustes es positivo tiene que restar + AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal If AjusteTotal < 0 Then diff --git a/Bancos/PagoAcreedor.aspx b/Bancos/PagoAcreedor.aspx index 56deee488..eeca92ae5 100644 --- a/Bancos/PagoAcreedor.aspx +++ b/Bancos/PagoAcreedor.aspx @@ -101,8 +101,7 @@
- - +
@@ -249,8 +248,8 @@
-
-
SubProyecto +
+
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index de1d871ad..2605d9662 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -50,6 +50,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString(); txtFechaF.Text = NowADS().ToShortDateString(); TxtImporte.Attributes.Add("disabled", "disabled"); + CargarCentrosDeCosto(null, null, null, LblSubProyecto); + LblSubProyecto2.Text = LblSubProyecto.Text; } } diff --git a/Bancos/PagoDeudor.aspx b/Bancos/PagoDeudor.aspx index 6e9e0970b..09e008c7e 100644 --- a/Bancos/PagoDeudor.aspx +++ b/Bancos/PagoDeudor.aspx @@ -121,8 +121,8 @@
-
- +
+
@@ -304,8 +304,8 @@
-
- +
+
diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 46a3b1198..e2af4114e 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -54,6 +54,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas TxtTCDolaresPrestamo.Text = get_GlobalTipoCambio(TxtFechaPrestamo.Text.ToDateTime()).FormatoNumero(4); TxtTCDolaresPago.Text = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDateTime()).FormatoNumero(4); TxtImporte.Attributes.Add("disabled", "disabled"); + CargarCentrosDeCosto(null, null, null, LblSubProyecto); + LblSubProyecto2.Text = LblSubProyecto.Text; } } diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index ebd03c200..873bea6e1 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -341,8 +341,9 @@ - - + + + @@ -453,7 +454,7 @@ % Desc. - + @@ -789,6 +790,10 @@ } + function DescuenoMasivo(txt) { + $(".selDescuento").val(txt.value); + $(".selDescuento").trigger("keyup"); + } diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index d27e7066e..af50a3933 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -324,6 +324,7 @@ Partial Class Bancos_ProveedoresAbonar If UsuarioActual.TienePermisoProceso(361) Then 'GvCxP.Columns(11).Visible = True chkaplicaDescuento.Visible = True + 'chkaplicaDescuentoMasivo.Visible = True End If @@ -1672,12 +1673,11 @@ Partial Class Bancos_ProveedoresAbonar Protected Sub chkaplicaDescuento_CheckedChanged(sender As Object, e As EventArgs) GvCxP.Columns(11).Visible = chkaplicaDescuento.Checked + TxtDescuenoMasivo.Visible = chkaplicaDescuento.Checked UPCompras.Update() - End Sub - Private Sub tmpValida() Dim ValidaSAT As Boolean = True diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 4f4952174..a267bb624 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -672,7 +672,7 @@ # Cant Unidad - Clasificación + Clasificación     @@ -682,7 +682,7 @@
Producto o Servicio - Observación + Observación   @@ -710,10 +710,8 @@ - - - - + + @@ -772,7 +770,7 @@ <%-- 3 --%> - +
@@ -785,7 +783,7 @@ <%-- 4 --%> - + <%-- 5 --%> @@ -796,7 +794,7 @@ <%-- 6 --%> - + <%-- 7 --%> <%-- 8 --%> @@ -827,13 +825,13 @@ <%-- 12 --%> - + <%-- 13 --%> - + @@ -1125,11 +1123,11 @@ - + <%-- Deglose 6% - <%----%> - + <%-- + --%> <%-- @@ -1342,7 +1340,14 @@ <%--3--%> - + <%----%> + + Producto + + + + + <%--4--%> <%--5--%> @@ -1439,6 +1444,7 @@ Producto + @@ -3729,7 +3735,7 @@
- + @@ -3815,9 +3821,8 @@
<%-- - - --%> - + --%> + v
<%--
@@ -4568,7 +4573,9 @@ <%-- --%> - +
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 2fe6da977..133156eb5 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1228,6 +1228,19 @@ Partial Class Compras_Compras End Set End Property + Private Property TienePermisoKardex As Boolean + Get + If ViewState("TienePermisoKardex") Is Nothing Then + ViewState("TienePermisoKardex") = False + End If + + Return Boolean.Parse(ViewState("TienePermisoKardex").ToString) + End Get + Set(value As Boolean) + ViewState("TienePermisoKardex") = value + End Set + End Property + Private Property CveCompraDRMC As Integer Get If ViewState("CveCompraDRMC") Is Nothing Then @@ -1246,6 +1259,7 @@ Partial Class Compras_Compras 'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip") 'ImgBtnBuscarOC.Attributes.Add("data-placement", "top") EsGrupoDiaz = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False) + TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False) CargaDatosAgregarPS() TieneAnticiposXML = False @@ -1287,12 +1301,13 @@ Partial Class Compras_Compras 'VALIDACION DE XML NuevaValidacionXML = IfNull(Request("NuevaValidacionXML"), 0).ToString.ToEntero - ListaDocumentos = New List(Of String) TotalGeneral = 0 CompraSaldo = 0 ViewState("CvePersonal") = -1 + ViewState("RetIVA") = "-1" + ViewState("RetISR") = "-1" 'If UsuarioActual.TienePermisoProceso(259) Then DivEsNoDeducible.Visible = True 'End If @@ -1302,15 +1317,6 @@ Partial Class Compras_Compras 'lblProveedor.Visible = False End If - If isAlmacenistaGluyas() Then - GvInv.Columns(10).Visible = True - 'Dim productos As New ClsProductosServicios - 'If productos.GetPS(-1, -1, UsuarioActual.CveEmpresa) Then - ' PSDTRemplazo = productos.DtResultados.FiltraParametros("PendienteEnOC=1", "PS") - 'End If - 'productos.Dispose() - End If - PermisoEdicionManual = False CveMovimientoAlmacen = 0 SetValues() @@ -1392,6 +1398,9 @@ Partial Class Compras_Compras End If + + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto) + 'Carga Proveedor If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then ViewState("CveProveedor") = Request("CveProveedor") @@ -1488,6 +1497,9 @@ Partial Class Compras_Compras DVModalAnticipoFechaEjecucion.Visible = True HlEvento.Visible = True HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveCompra=" & CveCompra & "&TB_iframe=true&height=370&width=600;" + If UsuarioActual.CveEmpresa = 189 Then + BtnCancelarCompra.Visible = False + End If Else ViewState("CveProveedor") = -1 @@ -1770,11 +1782,6 @@ Partial Class Compras_Compras End If End Sub - Private Function isAlmacenistaGluyas() As Boolean - 'Return (UsuarioActual.CveRol = 1052 And UsuarioActual.CveEmpresa = 66) - Return False - End Function - Private Function CargaFactura(CveFactura As Integer) As String Dim ObjeFacturas As New ClsCompras Dim RFC As String = "" @@ -1901,14 +1908,19 @@ Partial Class Compras_Compras Xml = Xml.Replace("<", "") Xml = Xml.Replace("&", "") 'adicional, si hay otros - If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then + 'si el tipo de proveedor es acreedor, no cruzar por numero de parte + Dim RestriccionesVinculacion As String = "" + ' Acreedor + If CveTipoProveedor.Contiene(2, 3) Then RestriccionesVinculacion = "NO-NUMEROPARTE" + + If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa, RestriccionesVinculacion) Then TmpDT = ObjeFacturas.DtResultados TmpDT.Columns.Add("CveSATPSActualizado") SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL If Not TmpDT.Columns.Contains("Amortizacion") Then TmpDT.Columns.Add("Amortizacion", GetType(Decimal)) - If Not TmpDT.Columns.Contains("AplicaLote") Then TmpDT.Columns.Add("AplicaLote", GetType(Boolean)) - If Not TmpDT.Columns.Contains("AplicaCaducidad") Then TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean)) + If Not TmpDT.Columns.Contains("AplicaLote") Then TmpDT.Columns.Add(New DataColumn("AplicaLote", GetType(Boolean)) With {.DefaultValue = False}) + If Not TmpDT.Columns.Contains("AplicaCaducidad") Then TmpDT.Columns.Add(New DataColumn("AplicaCaducidad", GetType(Boolean)) With {.DefaultValue = False}) If Not TmpDT.Columns.Contains("Lote") Then TmpDT.Columns.Add("Lote", GetType(String)) If Not TmpDT.Columns.Contains("FechaCaducidad") Then TmpDT.Columns.Add("FechaCaducidad", GetType(Date)) @@ -3154,36 +3166,34 @@ Partial Class Compras_Compras 'VINCULACIÓN OC - NUEVA DICIEMBRE 2015 If dr("OCVinculada").ToString() <> "" Then - Dim DtOCs As New DataTable + Dim OCS As String = "", CveOCS As String = "" - - DtOCs.Columns.Add("FolioOC", GetType(Integer)) + Dim DtOCs As New DataTable + DtOCs.Columns.Add("SerieFolioOC", GetType(String)) DtOCs.Columns.Add("CveOrdenCompra", GetType(Integer)) - - - For Each drt As DataRow In TmpDT.Rows - If drt("FolioOC").ToString <> "" Then + DtOCs.Columns.Add("Fecha", GetType(Date)) + DtOCs.Columns.Add("Descripcion", GetType(String)) + For Each drt As DataRow In TmpDT.FiltraParametros("", "", {"SerieFolioOC", "CveOrdenCompra"}).Rows + If drt("SerieFolioOC").ToString <> "" Then Dim DrOC As DataRow = DtOCs.NewRow - DrOC("FolioOC") = drt("FolioOC").ToString + DrOC("SerieFolioOC") = drt("SerieFolioOC").ToString DrOC("CveOrdenCompra") = drt("CveOrdenCompra").ToString DtOCs.Rows.Add(DrOC) End If Next - DtOCs = DtOCs.FiltraParametros("", "", {"FolioOC", "CveOrdenCompra"}) - DtOCs.Columns.Add("Fecha", GetType(Date)) - DtOCs.Columns.Add("Descripcion", GetType(String)) - If DtOCs.Rows.Count > 0 Then For Each drt As DataRow In DtOCs.Rows - If ObjOC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, drt("CveOrdenCompra").ToString.ToEntero, CveProveedor, -1, -1, -1, UsuarioActual.CveEmpresa, -1) Then - If ObjOC.DtResultados.Rows.Count = 1 Then - OCS += If(OCS <> "", String.Format(",{0}", drt("FolioOC").ToString), drt("FolioOC").ToString) - CveOCS += If(CveOCS <> "", String.Format(",{0}", drt("CveOrdenCompra").ToString), drt("CveOrdenCompra").ToString) - drt("Fecha") = ObjOC.DtResultados.FiltroPrimeroValor("FechaIng") - drt("Descripcion") = ObjOC.DtResultados.FiltroPrimeroValor("Descripcion") - End If - End If + OCS += If(OCS <> "", String.Format(",{0}", drt("SerieFolioOC").ToString), drt("SerieFolioOC").ToString) + CveOCS += If(CveOCS <> "", String.Format(",{0}", drt("CveOrdenCompra").ToString), drt("CveOrdenCompra").ToString) + 'If ObjOC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, drt("CveOrdenCompra").ToString.ToEntero, CveProveedor, -1, -1, -1, UsuarioActual.CveEmpresa, -1) Then + ' If ObjOC.DtResultados.Rows.Count = 1 Then + ' OCS += If(OCS <> "", String.Format(",{0}", drt("FolioOC").ToString), drt("FolioOC").ToString) + ' CveOCS += If(CveOCS <> "", String.Format(",{0}", drt("CveOrdenCompra").ToString), drt("CveOrdenCompra").ToString) + ' drt("Fecha") = ObjOC.DtResultados.FiltroPrimeroValor("FechaIng") + ' drt("Descripcion") = ObjOC.DtResultados.FiltroPrimeroValor("Descripcion") + ' End If + 'End If Next End If @@ -3784,17 +3794,6 @@ Partial Class Compras_Compras DdlPSAlias2.setEsWebService(True) - If UsuarioActual.CveEmpresa = 66 Then - DdlPSAlias2.ddlWS.Attributes.Add("data-subfamilia", "-1") - DdlPSAlias2.ddlWS.Attributes.Add("data-fueporxml", "0") - 'SOLO CUANDO SEA FACTURA DE INGRESOS - If DdlTipoComprobante.SelectedValue = "Fac" Then - DdlPSAlias2.ddlWS.Attributes.Add("data-pagina", "Compras") - Else - DdlPSAlias2.ddlWS.Attributes.Add("data-pagina", "Compras2") - End If - End If - If Not DdlPSAlias2.UsaWebService AndAlso CType(DdlPSAlias2.DataSource, DataTable) Is Nothing Then If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then @@ -4141,22 +4140,12 @@ Partial Class Compras_Compras AddPS2(False) - If UsuarioActual.Empresa.UsaAC Then - CompruebaAgregar() - End If - - If isAlmacenistaGluyas() Then - BtnGuardar.Visible = False - AlmacenCambiaPS.Visible = True - End If + If UsuarioActual.Empresa.UsaAC Then CompruebaAgregar() SubTotalConceptos = Math.Round(SubTotalTemp, 2) - 'TmpDT = DtPSTemp.Copy - 'DtPSTemp.Dispose() End Sub - Private Sub CargaClasificacionesComprobaciones() If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then @@ -4296,12 +4285,10 @@ Partial Class Compras_Compras '------------------ INICIA VALIDACIONES ------------------ - If UsuarioActual.CveEmpresa.Contiene(13, 83) Then - - + If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year Dim Fecha28Dic As Date = New Date(2024, 12, 28) - If NowADS() >= Fecha28Dic Then + If NowADS() >= Fecha28Dic AndAlso TxtFecha.Text.ToDate.Year < 2025 Then Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -7752,8 +7739,8 @@ Partial Class Compras_Compras If CveMovimientoInventario > 0 Then Dim TempParametros As String = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario)) - Msg.AppendFormat("
Ver Movimiento de Almacen", CveMovimientoInventario) - Msg.AppendFormat("
Imprimir Entrada Almacen", TempParametros) + Msg.AppendFormat("
Ver Movimiento de Almacen  ", CveMovimientoInventario) + Msg.AppendFormat(" Imprimir", TempParametros) End If If UsuarioActual.Empresa.TipoContabilidad = 2 Then @@ -7781,7 +7768,7 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.Funcionalidad(574) = "1" AndAlso (ImporteRNC > 0 Or ImporteRNCProntoPago > 0) Then - If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, ObjConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero, + If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, ObjConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero, TxtTC.Text.ToDecimal, TxtSerie.Text, TxtFolio.Text) Then TieneError = True End If @@ -8804,8 +8791,6 @@ Partial Class Compras_Compras Alert("Tiene que seleccionar algun Producto o Servicio", TipoMensaje.MsgAdvertencia) Exit Sub End If - - DdlAplicaClasificacion.SelectedValue = "-1" RegistraScript(String.Format("$('#{0}').modal('show');", "DivClasificacion")) Else RegistraScript(String.Format("$('#{0}').modal('show');", "DivClasificacion")) @@ -11034,14 +11019,8 @@ Partial Class Compras_Compras TxtCantidad.Attributes.Add("onKeyUp ", "Recalcula();") TxtDescuentoModal.Attributes.Add("onKeyUp ", "Recalcula();") - 'ImgAmort.Attributes.Add("onclick", "javascript:$('#DivDescP').show(1000); PosicionaObjeto(this.id,'DivDescP');") ' $get('LblTitulo1').style.display = 'none'; $get('LblTituloTipo1').style.display = 'none'; $get('LblTituloTipo2').style.display = ''; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = 'none'; $get('LblAmort').style.display = ''; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = 'none';") + DdlAplicaPSMasivo.setEsWebService(True) - 'If um.GetUnidadesMedida() Then - ' GlobalDTUnidadesMedida = um.DtResultados - 'End If - 'um.Dispose() - - 'CargaEstatus() CargaTiposAF() CargaProyectoAsignado() CargaClasificacionesComprobaciones() @@ -11050,12 +11029,6 @@ Partial Class Compras_Compras CreaDTCompras() CargaMonedas() CargarAlmacen() - 'CreaDtAF() - 'TabOC.Visible = False - - 'BORRAR OC - 'Valores para Vinculacion OC - 'If UsuarioActual.Empresa.MetodoOC = 1 Then GvOC2.Columns(2).Visible = False : tdSurtirOC.Visible = False Else GvOC2.Columns(0).Visible = False : tdFolioOC.Visible = False CveAlmacenConsignacion = -1 CveConsignacion = -1 @@ -11087,7 +11060,7 @@ Partial Class Compras_Compras If OC.GetOC(CveOC, UsuarioActual.CveEmpresa) Then - TxtOC.Text = OC.Folio.ToString + TxtOC.Text = OC.SerieFolio 'RegistraScript(String.Format("$get('TxtOC').value = '{0}';tb_remove;", OC.Folio)) RegistraScript("tb_remove();") @@ -11141,29 +11114,26 @@ Partial Class Compras_Compras #Region " ALMACEN " Private Sub CargaGvInv() - - If Not TmpDT.Columns.Contains("UUIDRow") Then - TmpDT.Columns.Add("UUIDRow", GetType(String)) - End If + If Not TmpDT.Columns.Contains("UUIDRow") Then TmpDT.Columns.Add("UUIDRow", GetType(String)) For Each dRow As DataRow In TmpDT.Rows If dRow("UUIDRow").ToString.Trim = "" Then dRow("UUIDRow") = Guid.NewGuid().ToString() End If - Dim CvePS As Integer = dRow("CvePS").ToString.ToEntero + 'Dim CvePS As Integer = dRow("CvePS").ToString.ToEntero - dRow("AplicaLote") = False - dRow("AplicaCaducidad") = False + 'dRow("AplicaLote") = False + 'dRow("AplicaCaducidad") = False - If CvePS > 0 Then - Dim drPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePS={CvePS}") - If drPS IsNot Nothing Then - dRow("AplicaLote") = If(drPS("AplicaLote").ToString = "", False, Boolean.Parse(drPS("AplicaLote").ToString)) - dRow("AplicaCaducidad") = If(drPS("AplicaCaducidad").ToString = "", False, Boolean.Parse(drPS("AplicaCaducidad").ToString)) - 'Boolean.Parse(GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("AplicaCaducidad", $"CvePS={CvePS}")) - End If + 'If CvePS > 0 Then + ' Dim drPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") + ' If drPS IsNot Nothing Then + ' dRow("AplicaLote") = If(drPS("AplicaLote").ToString = "", False, Boolean.Parse(drPS("AplicaLote").ToString)) + ' dRow("AplicaCaducidad") = If(drPS("AplicaCaducidad").ToString = "", False, Boolean.Parse(drPS("AplicaCaducidad").ToString)) + ' 'Boolean.Parse(GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("AplicaCaducidad", $"CvePS={CvePS}")) + ' End If - End If + 'End If Next TmpDT.AcceptChanges() @@ -11175,16 +11145,14 @@ Partial Class Compras_Compras DtInv = TmpDT.FiltraParametros(String.Format("CveTipoPS = 2")).Copy End If - For Each dRow As DataRow In DtInv.Rows - - 'Dim CvePS As Integer = dRow("CvePS").ToString.ToEntero - Dim AplicaLote As Boolean = Boolean.Parse(dRow("AplicaLote").ToString) 'Boolean.Parse(GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("AplicaLote", $"CvePS={CvePS}")) - Dim AplicaCaducidad As Boolean = Boolean.Parse(dRow("AplicaCaducidad").ToString) 'Boolean.Parse(GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("AplicaCaducidad", $"CvePS={CvePS}")) + Dim AplicaLote As Boolean = False + Boolean.TryParse(dRow("AplicaLote").ToString, AplicaLote) + Dim AplicaCaducidad As Boolean = False + Boolean.TryParse(dRow("AplicaCaducidad").ToString, AplicaCaducidad) GvInv.Columns(7).Visible = AplicaLote GvInv.Columns(8).Visible = AplicaCaducidad - Next GvInv.DataSource = DtInv @@ -11255,24 +11223,17 @@ Partial Class Compras_Compras If e.Row.RowType = DataControlRowType.DataRow Then - Dim CvePS As Integer = e.Row.DataKey("CvePS").ToEntero - Dim AplicaLote As Boolean = False - Dim AplicaCaducidad As Boolean = False - - If CvePS > 0 Then - Dim drPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePS={CvePS}") - If drPS IsNot Nothing Then - AplicaLote = If(drPS("AplicaLote").ToString = "", False, Boolean.Parse(drPS("AplicaLote").ToString)) 'Boolean.Parse(GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("AplicaLote", $"CvePS={CvePS}")) - AplicaCaducidad = If(drPS("AplicaCaducidad").ToString = "", False, Boolean.Parse(drPS("AplicaCaducidad").ToString)) 'Boolean.Parse(GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("AplicaCaducidad", $"CvePS={CvePS}")) - End If + If TienePermisoKardex Then + e.Row.FCLiteral("LtlPS").Visible = False + e.Row.FCHyperLink("HlPS").Visible = True + e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}" End If + Dim AplicaLote As Boolean = e.Row.DBCampo("AplicaLote").ToBool + Dim AplicaCaducidad As Boolean = e.Row.DBCampo("AplicaCaducidad").ToBool - If AplicaLote Then - e.Row.FCTextBox("TxtLote").Visible = True - End If - + If AplicaLote Then e.Row.FCTextBox("TxtLote").Visible = True If AplicaCaducidad Then Dim DvFechaCaducidad As HtmlGenericControl = TryCast(e.Row.FindControl("DvFechaCaducidad"), HtmlGenericControl) DvFechaCaducidad.Visible = True @@ -11283,6 +11244,13 @@ Partial Class Compras_Compras Dim StrTipo As String = "CveTipoAlmacen IN (1,2,7,14,19)" If DdlTipoCompra.SelectedValue.Contiene("9", "12") Then StrTipo = "CveTipoAlmacen IN (21)" If EsDevolucionApoyoLogistico Then StrTipo = "CveTipoAlmacen = 27" + If CompraEstaVinculadaOC Then + 'filtrar solo los almacenes de las sucursales especficiadsa en el tmpdt. para encasillarlo + Dim dttt As DataTable = TmpDT.FiltraParametros("", DistinctColumns:={"CveSubProyecto"}) + If dttt IsNot Nothing AndAlso dttt.Rows.Count > 0 Then + StrTipo = StrTipo & " AND CveSubProyecto IN (" & DataColumnToString(dttt, "CveSubProyecto") & ") " + End If + End If e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrTipo) e.Row.FCDropDownList("ddlEAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -11303,7 +11271,6 @@ Partial Class Compras_Compras e.Row.FCTextBox("TbCantidad").Enabled = True e.Row.FCTextBox("TbCantidad").Attributes.Add("onblur", String.Format("ValidarCantidad(this,{0})", If(e.Row.DBCampo("CantidadF").ToString.ToDecimal > e.Row.DBCampo("Cantidad").ToString.ToDecimal, e.Row.DBCampo("Cantidad"), e.Row.DBCampo("CantidadF")))) e.Row.FCTextBox("TbCantidad").Text = If(e.Row.DBCampo("CantidadF").ToString.ToDecimal > e.Row.DBCampo("Cantidad").ToString.ToDecimal, e.Row.DBCampo("Cantidad"), e.Row.DBCampo("CantidadF")) - End If 'SIEMPRE ENABLED FALSE @@ -11336,10 +11303,14 @@ Partial Class Compras_Compras 'que no sea recepcion alamcen adelantado. DdlOCVinculaInv If (UsuarioActual.Empresa.Funcionalidad(567) = "1" OrElse UsuarioActual.TienePermisoProceso(121)) AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then If e.Row.FCDropDownList("ddlEAlmacen").Items.Count > 1 Then - e.Row.FCDropDownList("ddlEAlmacen").SelectedIndex = 1 + If UsuarioActual.CveAlmacen > 0 Then + e.Row.FCDropDownList("ddlEAlmacen").SelectedValueExist(UsuarioActual.CveAlmacen) + Else + e.Row.FCDropDownList("ddlEAlmacen").SelectedIndex = 1 + End If e.Row.FCCheckBox("cbInv").Checked = True - ddlAlmacenConsignacion_SelectedIndexChanged(e.Row.FCDropDownList("ddlEAlmacen"), Nothing) - CambiaTotalDevengar(Nothing, Nothing) + 'ddlAlmacenConsignacion_SelectedIndexChanged(e.Row.FCDropDownList("ddlEAlmacen"), Nothing) + ' CambiaTotalDevengar(Nothing, Nothing) End If End If If e.Row.DBCampo("Consec").ToEntero = 0 Then e.Row.BackColor = Drawing.Color.PaleGreen @@ -11388,17 +11359,6 @@ Partial Class Compras_Compras End If End If - If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then - - 'e.Row.Cells(4).Text = e.Row.DataKey("PUProtoPago").ToDecimal.ToString("###,###,###.00") - - 'If PorcentajeProntoPago > 0 Then - ' e.Row.Cells(4).Text = e.Row.DataKey("PUProtoPago").ToDecimal - () - 'End If - - End If - - ''VALIDA UNIDAD DE MEDIDA 'If e.Row.DBCampo("CvePS").ToString.ToEntero > 0 Then @@ -11453,6 +11413,14 @@ Partial Class Compras_Compras If DdlTipoCompra.SelectedValue.ToEntero = 10 Then StrAlmacenes = $"Modalidad = 0" If EsDevolucionApoyoLogistico Then StrAlmacenes = " CveTipoAlmacen = 27" + If CompraEstaVinculadaOC Then + 'filtrar solo los almacenes de las sucursales especficiadsa en el tmpdt. para encasillarlo + Dim dttt As DataTable = TmpDT.FiltraParametros("", DistinctColumns:={"CveSubProyecto"}) + If dttt IsNot Nothing AndAlso dttt.Rows.Count > 0 Then + StrAlmacenes = StrAlmacenes & " AND CveSubProyecto IN (" & DataColumnToString(dttt, "CveSubProyecto") & ") " + End If + End If + e.Row.FCDropDownList("ddlAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrAlmacenes) e.Row.FCDropDownList("ddlAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("ddlAlmacen").DataBind() @@ -11469,7 +11437,11 @@ Partial Class Compras_Compras 'que no sea recepcion almacen adelantado. DdlOCVinculaInv If (UsuarioActual.Empresa.Funcionalidad(567) = "1" OrElse UsuarioActual.TienePermisoProceso(121)) AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then If e.Row.FCDropDownList("ddlAlmacen").Items.Count > 1 Then - e.Row.FCDropDownList("ddlAlmacen").SelectedIndex = 1 + If UsuarioActual.CveAlmacen > 0 Then + e.Row.FCDropDownList("ddlAlmacen").SelectedValueExist(UsuarioActual.CveAlmacen) + Else + e.Row.FCDropDownList("ddlAlmacen").SelectedIndex = 1 + End If e.Row.FCCheckBox("cbAll").Checked = True End If End If @@ -12122,7 +12094,7 @@ Partial Class Compras_Compras End Sub Protected Sub CambiaTotalDevengar(sender As Object, e As EventArgs) - CalculaTotalPorDevengar() + If UsuarioActual.Empresa.UsaAC Then CalculaTotalPorDevengar() End Sub #End Region @@ -15475,15 +15447,17 @@ Partial Class Compras_Compras For Each gvr As GridViewRow In GvOC1.Rows If gvr.DataKey("IVAPorcentaje").ToDecimal > 0 Then - ImporteOCConIVA = ImporteOCConIVA + (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal) + ImporteOCConIVA = ImporteOCConIVA + (gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal) Else - ImporteOCSinIVA = ImporteOCSinIVA + (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal) + ImporteOCSinIVA = ImporteOCSinIVA + (gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal) End If Next AjusteProntoPagoPorcentajeIVA = TmpDT.MAX("IVAPorcentaje").ToDecimal AjusteProntoPagoConIVA = (ImporteCompraConIVA - ImporteOCConIVA) AjusteProntoPagoSinIVA = (ImporteCompraSinIVA - ImporteOCSinIVA) + 'If Math.Abs(AjusteProntoPagoConIVA) < 1 Then AjusteProntoPagoConIVA = 0 Else ImporteRNC += AjusteProntoPagoConIVA + 'If Math.Abs(AjusteProntoPagoSinIVA) < 1 Then AjusteProntoPagoSinIVA = 0 If ConfirmaVinculacionOC_RNC(AjusteProntoPagoPorcentajeIVA) Then Vinculacion() @@ -15505,9 +15479,9 @@ Partial Class Compras_Compras For Each gvr As GridViewRow In GvOC1.Rows If gvr.DataKey("IVAPorcentaje").ToDecimal > 0 Then - ImporteOCConIVA = ImporteOCConIVA + (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal) + ImporteOCConIVA = ImporteOCConIVA + (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal) '- gvr.DataKey("Descuento").ToDecimal Else - ImporteOCSinIVA = ImporteOCSinIVA + (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal) + ImporteOCSinIVA = ImporteOCSinIVA + (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal) '- gvr.DataKey("Descuento").ToDecimal End If Next @@ -15534,7 +15508,6 @@ Partial Class Compras_Compras End Sub Private Sub Vinculacion(Optional VinculacionCompleta As Boolean = False) - 'SI PUEDE RECIBIR POR OC Y COMPRA If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then @@ -15596,6 +15569,7 @@ Partial Class Compras_Compras Dim PU As Decimal = gvr.FCTextBox("TxtPU").Text.ToDecimal Dim tDescuento As Decimal = dr("Descuento").ToString.ToDecimal Dim Total As Decimal = If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, Math.Round((gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal) - (TxtDescuento.Text.ToDouble / TotalRows).ToDecimal, 2), Cantidad * PU - tDescuento) 'gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal) + 'Dim Total As Decimal = gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal 'Dim IVA As Decimal = gvr.FCHiddenField("HdnOC1IVA").Value.ToDecimal 'Dim RetIVA As Double = gvr.FCHiddenField("HdnOC1RetIVA").Value.ToDecimal @@ -15627,6 +15601,12 @@ Partial Class Compras_Compras End If End If + If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then + PU = ((PU * Cantidad) - tDescuento) / Cantidad + Descuentos = 0 + Descuento = 0 + End If + AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False, CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CveSATPS:=CveSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto, CveContratoDetalle:=CveContratoDetalle, CveCultivoCuadroDetalle:=CveCultivoCuadroDetalle, CveSATPSActualizado:=CveSATPSActualizado) @@ -15640,7 +15620,7 @@ Partial Class Compras_Compras TmpDT.Rows(Index)("CveClasificacionOG") = dr("CveClasificacionOG").ToString.ToEntero 'TmpDT.Rows(Index)("PSCodigo") = DtTemporalXML.Rows(IndexTmpOriginal)("PSCodigo") - TmpDT.Rows(Index)("PSCodigo") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("PSCodigo", "").ToString + TmpDT.Rows(Index)("PSCodigo") = dr("PS").ToString ' GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("PSCodigo", "").ToString Dim CveAF As String = dr("CveActivoFijo").ToString If CveAF <> "" AndAlso CveAF <> "-1" Then @@ -15657,7 +15637,7 @@ Partial Class Compras_Compras IndexTmpOriginal += 1 Next - If UsuarioActual.Empresa.Funcionalidad(574) = "1" AndAlso (AjusteProntoPagoConIVA > 0 Or AjusteProntoPagoSinIVA > 0) Then + If UsuarioActual.Empresa.Funcionalidad(574) = "1" AndAlso (ImporteRNC > 0 Or AjusteProntoPagoSinIVA > 0) Then Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero If CvePS_RNC = 0 Then @@ -15689,8 +15669,8 @@ Partial Class Compras_Compras Dim UM As String = PSRow("UnidadMedida").ToString - If AjusteProntoPagoConIVA > 0 Then - AddPS(1, CveUM, UM, CveClasificacion, Clasificacion, CvePS_RNC, PS, 1, CveSubProyectoPrincipal.ToString, SubProyecto, "", "-1", "", AjusteProntoPagoConIVA, AjusteProntoPagoConIVA, AjusteProntoPagoPorcentajeIVA, 0, 0, 0, 0, 0) + If ImporteRNC > 0 Then + AddPS(1, CveUM, UM, CveClasificacion, Clasificacion, CvePS_RNC, PS, 1, CveSubProyectoPrincipal.ToString, SubProyecto, "", "-1", "", ImporteRNC, ImporteRNC, AjusteProntoPagoPorcentajeIVA, 0, 0, 0, 0, 0) End If If AjusteProntoPagoSinIVA > 0 Then @@ -15698,14 +15678,13 @@ Partial Class Compras_Compras End If End If - - AddPS2(False) + CompraEstaVinculadaOC = True + 'AddPS2(False) 'AJUSTE DE REDONDEO O DIFERENCIA PERMITIDA DE IMPORTE AjustaImporteUltimoConcepto((If(TieneAmortizacion, TmpDT.SUMD("ImporteSinImpuestos"), TxtSubTotal2.Text.ToDouble) + TxtOtrosImpuestos.Text.ToDouble).ToDecimal - If(TieneAmortizacion, TmpDT.SUM("ImporteSinImpuestos").ToString.ToDecimal, TmpDT.SUM("Total").ToString.ToDecimal)) 'AjustaImporteUltimoConcepto(TxtSubTotal2.Text.ToDecimal + TxtOtrosImpuestos.Text.ToDecimal - (TmpDT.SUM("Total").ToString.ToDecimal)) - BtnGuardar.Enabled = True If Not CierrePeriodo Then BtnGuardar.Visible = True @@ -15804,9 +15783,7 @@ Partial Class Compras_Compras End If - CalculaTotales() - CompraEstaVinculadaOC = True End Sub @@ -16917,8 +16894,9 @@ Partial Class Compras_Compras Private Sub CargaSerie() Dim AplicaCaducidad As Boolean = False - If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).Rows(0) IsNot Nothing Then - AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).Rows(0)("AplicaCaducidad").ToString = "True", True, False) + Dim drr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).FiltroPrimero("") + If drr IsNot Nothing Then + AplicaCaducidad = If(drr("AplicaCaducidad").ToString = "True", True, False) End If If AplicaCaducidad Then @@ -16969,7 +16947,7 @@ Partial Class Compras_Compras Protected Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Dim SerieLote As String = TxtSerieLote.Text.Replace(" ", String.Empty) Dim AplicaCaducidad As Boolean = False - Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).FiltroPrimero("", "PS") + Dim dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).FiltroPrimero("", "PS") If dr IsNot Nothing Then AplicaCaducidad = dr("AplicaCaducidad").ToString = "True" 'VALIDA QUE LA SERIE NO SEA IGUAL AL CODIGO O CODIGOBARRAS @@ -17293,7 +17271,7 @@ Partial Class Compras_Compras Dim DiferenciaPermitida As Decimal = 0.6D If Math.Abs(DifTotales) > DiferenciaPermitida Then - Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia) + Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]-[{1}-{2}]", Math.Abs(DifTotales) - DiferenciaPermitida, TxtTotal.Text.ToDecimal, TempTotal), TipoMensaje.MsgAdvertencia) EsValido = False ElseIf DifTotales <> 0 Then TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDecimal + DifTotales).ToString @@ -17650,9 +17628,6 @@ Partial Class Compras_Compras divIVA.Visible = True - - - If GvInvMov.Rows.Count > 0 AndAlso GvRow.DataKey("CveTipoPS").ToEntero = 2 Then TxtCantidad.Enabled = False DdlClasificacion.Enabled = False @@ -17680,12 +17655,27 @@ Partial Class Compras_Compras End Sub Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged - DdlClasificacionChange() + DdlClasificacionChange(True) End Sub - Private Sub DdlClasificacionChange() + Private Sub DdlClasificacionChange(Optional RecargaDatosPS As Boolean = False) CargaPS(DdlClasificacion.SelectedValue.ToEntero) + If RecargaDatosPS Then + 'si solo tiene un solo producto la clasificación que lo asigne + Dim dtps As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, DdlClasificacion.SelectedValue.ToEntero) + If dtps.Rows.Count = 1 Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + DdlPS.SelectedValue = dtps.Rows(0)("CvePS").ToString + DdlPS.SelectedText = dtps.Rows(0)("PSCodigo").ToString + DdlPSChange() + Else + DdlPS.SelectedValue = dtps.Rows(0)("CvePS").ToString + End If + + End If + End If + UPPClasificacion.Update() End Sub Private Sub CargaPS(CveClasificacion As Integer) @@ -17764,16 +17754,15 @@ Partial Class Compras_Compras Private Sub DdlPSChange() If CveProveedor > 0 Then If DdlPS.SelectedValue.ToEntero > 0 Then - Dim PS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") + Dim PS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") If PS IsNot Nothing Then HdnClasificacion.Value = PS("Clasificacion").ToString - HdnUnidadMedida.Value = PS("CveUM").ToString + HdnUnidadMedida.Value = PS("CveUnidadMedida").ToString HdnTipoPS.Value = PS("CveTipoPS").ToString - HdnPS.Value = PS("PS").ToString + HdnPS.Value = PS("PSCodigo").ToString LblUnidadMedida.Text = PS("UnidadMedida").ToString - ddlUM.Items.Clear() If UsuarioActual.Empresa.UsaInventarios Then ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(PS("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) @@ -17815,14 +17804,14 @@ Partial Class Compras_Compras ViewState("RetIVA") = If(PS("RetIVA").ToString = "-1", ViewState("RetIVA"), PS("RetIVA").ToString).ToString ViewState("RetISR") = If(PS("RetISR").ToString = "-1", ViewState("RetISR"), PS("RetISR").ToString).ToString - ViewState("RetIVA") = If(ViewState("RetIVA").ToString = "-1", "0", ViewState("RetIVA").ToString) + ViewState("RetIVA") = If(IfNull(ViewState("RetIVA"), "-1").ToString = "-1", "0", ViewState("RetIVA").ToString) ViewState("RetISR") = If(ViewState("RetISR").ToString = "-1", "0", ViewState("RetISR").ToString) 'ViewState("RetIVA") = If(PS("RetIVA").ToString = "-1", If(ViewState("RetIVA").ToString = "-1", 0, ViewState("RetIVA")), PS("RetIVA").ToString).ToString 'ViewState("RetISR") = If(PS("RetISR").ToString = "-1", If(ViewState("RetISR").ToString = "-1", 0, ViewState("RetISR")), PS("RetISR").ToString).ToString Else - ViewState("RetIVA") = If(ViewState("RetIVA").ToString = "-1", "0", ViewState("RetIVA").ToString) - ViewState("RetISR") = If(ViewState("RetISR").ToString = "-1", "0", ViewState("RetISR").ToString) + ViewState("RetIVA") = If(IfNull(ViewState("RetIVA"), "-1").ToString = "-1", "0", ViewState("RetIVA").ToString) + ViewState("RetISR") = If(IfNull(ViewState("RetISR"), "-1").ToString = "-1", "0", ViewState("RetISR").ToString) End If If TxtIEPSModal.Text = "" Then @@ -18325,8 +18314,6 @@ Partial Class Compras_Compras Row("IEPSPSPorcentaje") = 0 End If - - TmpDT.Rows.Add(Row) TmpDT.Rows.IndexOf(Row) @@ -18514,82 +18501,14 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.UsaAC Then DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") - DdlAplicaClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") Else - DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion") - DdlAplicaClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion") If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then DdlClasificacion.DataSource = DTClasificacionesComprobaciones.FiltraParametros("", Orderby:="Clasificacion") - DdlAplicaClasificacion.DataSource = DTClasificacionesComprobaciones.FiltraParametros("", Orderby:="Clasificacion") End If - End If - - - DdlClasificacion.DataBind() - DdlAplicaClasificacion.DataBind() - End Sub - Private Sub BtnAplicarClasificacion_Click(sender As Object, e As EventArgs) Handles BtnAplicarClasificacion.Click - ReclasificaClasificacion() - End Sub - Protected Sub DdlAplicaClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) - ReclasificaClasificacion() - End Sub - Private Sub ReclasificaClasificacion() - - - If Not DdlAplicaClasificacion.SelectedValue.ToEntero > 0 Then - Exit Sub - End If - - Dim ErrorPS As Boolean = False - - 'Actualiza Clasificacion directamente a la DB cuando ya se tiene alguna clasificacion - 'Solo cuando el PS ya esta registrado - If UsuarioActual.TienePermisoProceso(104) Then - Dim ObjPS As New ClsProductosServicios - For Each gvr As GridViewRow In GvPS.Rows - If gvr.FCCheckBox("CheckClasificacion").Checked AndAlso gvr.DataKey("CvePS").ToString.ToEntero > 0 Then - If Not ObjPS.UpdateClasificacionPS(DdlAplicaClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, gvr.DataKey("CvePS").ToString.ToEntero) Then - ErrorPS = True - Exit For - End If - End If - Next - ObjPS.Dispose() - End If - - If Not ErrorPS Then - Dim index As Integer = 0 - For Each Dr As DataRow In TmpDT.Rows - If Dr("CvePS").ToString.ToEntero = 0 OrElse Dr("CveClasificacion").ToString.ToEntero <= 0 Then - 'Dr("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero - Dr("Clasificacion") = DdlAplicaClasificacion.SelectedItem.Text - Dr("CveClasificacionActualizar") = DdlAplicaClasificacion.SelectedValue.ToEntero - ElseIf UsuarioActual.TienePermisoProceso(104) AndAlso GvPS.Rows(index).FCCheckBox("CheckClasificacion").Checked Then - Dr("Clasificacion") = DdlAplicaClasificacion.SelectedItem.Text - Dr("CveClasificacionActualizar") = DdlAplicaClasificacion.SelectedValue.ToEntero - End If - index += 1 - Next - - GvPS.DataSource = TmpDT - GvPS.DataBind() - UpPS.Update() - Alert("La Clasificacion ha sido aplicada correctamente.", TipoMensaje.MsgInformacion) - - 'Para validar AC - If UsuarioActual.Empresa.UsaAC Then - CompruebaAgregar() - End If - Else - Alert("Ocurrio un error al actualizar la Clasificación de los Productos/Servicios") - End If - - End Sub Protected Sub DdlAsignarProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlAsignarProyecto.SelectedIndexChanged @@ -18663,11 +18582,8 @@ Partial Class Compras_Compras If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then Dr("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", Dr("CvePS"))).ToEntero End If - Next - - GvPS.DataSource = TmpDT.FiltraParametros("", "Consec") GvPS.DataBind() UpPS.Update() @@ -18681,8 +18597,6 @@ Partial Class Compras_Compras Alert("SubProyectos cambiados correctamente", TipoMensaje.ToastInformacion) End Sub - - Protected Sub DdlTipoGastoAsignar_SelectedIndexChanged(sender As Object, e As EventArgs) If Not GvPS.Rows.Count > 0 Then Alert("No hay partidas para reclasificar el tipo de gasto", TipoMensaje.MsgAdvertencia) @@ -19144,84 +19058,100 @@ Partial Class Compras_Compras Protected Sub BtnDevolucion_Click(sender As Object, e As EventArgs) Dim ObjCompras As New ClsCompras Dim TieneError As Boolean = False + Dim ImporteCompra As Decimal = 0 Dim tCveSubProyeto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero + Dim ModalidadDevolucion As Integer = 1 ' 1 - devolución para que alamcen la confirme, 2 - devolución en automático generando RNC + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then ModalidadDevolucion = 2 + ObjCompras.IniciaTransacSQL() - Dim ImporteCompra As Decimal = 0 - If EstatusAlmacen = 0 Then + If ModalidadDevolucion = 1 Then + If EstatusAlmacen = 0 Then + + For Each gvr As GridViewRow In GvSolDev.Rows + Dim Cantidad As Decimal = gvr.FCTextBox("TxtCant").Text.ToDecimal + Dim PU As Decimal = gvr.DataKey("PU").ToDecimal + If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then + ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0, UsuarioActual.CveUsuario, CantidadDevolucion:=gvr.FCTextBox("TxtCant").Text.ToDecimal) + ImporteCompra = ImporteCompra + ((PU * Cantidad)) + Else + ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1, UsuarioActual.CveUsuario, CantidadDevolucion:=0) + End If + Next + + If Not TieneError AndAlso ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1), UsuarioActual.CveUsuario) Then + EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1) + Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente.")) + End If + + End If + InicializaDevolucionAlmacen() + Else For Each gvr As GridViewRow In GvSolDev.Rows Dim Cantidad As Decimal = gvr.FCTextBox("TxtCant").Text.ToDecimal Dim PU As Decimal = gvr.DataKey("PU").ToDecimal If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then - ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0, UsuarioActual.CveUsuario, CantidadDevolucion:=gvr.FCTextBox("TxtCant").Text.ToDecimal) ImporteCompra = ImporteCompra + ((PU * Cantidad)) - Else - ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1, UsuarioActual.CveUsuario, CantidadDevolucion:=0) End If Next - End If - ImporteRNC = ImporteCompra.RoundSQL + ImporteRNC = ImporteCompra.RoundSQL + If ChkEsDevolucionDevInv.Checked Then - If ChkEsDevolucionDevInv.Checked Then + Dim objConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL) - Dim objConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL) + CvePrePoliza = objConta.AddPrePolizas("Compras/RncDevInv", 53, ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, $"RNC Devolucion Inv {TxtSerie.Text}-{TxtFolio.Text}", + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=0, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, + UsuarioActual.CveEmpresa), CveTipoPoliza:=objConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) + If CvePrePoliza > 0 Then - CvePrePoliza = objConta.AddPrePolizas("Compras/RncDevInv", 53, ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, $"RNC Devolucion Inv {TxtSerie.Text}-{TxtFolio.Text}", - UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=0, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, - UsuarioActual.CveEmpresa), CveTipoPoliza:=objConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) - If CvePrePoliza > 0 Then + Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal - Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal + Dim CompraActual As New Compra + CompraActual.CveCompra = CveCompra + CompraActual.CveTipoConceptoProveedor = CveTipoConcepto + CompraActual.CveProveedor = CveProveedor + CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero + CompraActual.Fecha = TxtFecha.Text.ToDate + CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim + CompraActual.ProveedorNombre = HplProveedor.Text + CompraActual.TC = TipoCambio + CompraActual.Total = TxtTotal.Text.ToDecimal + CompraActual.IVA = TxtIVA.Text.ToDecimal + CompraActual.IVADeducible = TxtIVA.Text.ToDecimal + CompraActual.IEPS = TxtIEPS.Text.ToDecimal + CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal + CompraActual.RetISR = TxtRetISR.Text.ToDecimal + CompraActual.CveConceptoRetISR = DdlRetISRConcepto.SelectedValue.ToEntero + CompraActual.CveConceptoRetIVA = DdlRetIVAConcepto.SelectedValue.ToEntero + CompraActual.PorcentajeIVA = PorcentajeIVA + CompraActual.UsuarioActual = UsuarioActual + CompraActual.CveSubProyecto = tCveSubProyeto + CompraActual.EsImportacion = chkImportacion.Checked - Dim CompraActual As New Compra - CompraActual.CveCompra = CveCompra - CompraActual.CveTipoConceptoProveedor = CveTipoConcepto - CompraActual.CveProveedor = CveProveedor - CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero - CompraActual.Fecha = TxtFecha.Text.ToDate - CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim - CompraActual.ProveedorNombre = HplProveedor.Text - CompraActual.TC = TipoCambio - CompraActual.Total = TxtTotal.Text.ToDecimal - CompraActual.IVA = TxtIVA.Text.ToDecimal - CompraActual.IVADeducible = TxtIVA.Text.ToDecimal - CompraActual.IEPS = TxtIEPS.Text.ToDecimal - CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal - CompraActual.RetISR = TxtRetISR.Text.ToDecimal - CompraActual.CveConceptoRetISR = DdlRetISRConcepto.SelectedValue.ToEntero - CompraActual.CveConceptoRetIVA = DdlRetIVAConcepto.SelectedValue.ToEntero - CompraActual.PorcentajeIVA = PorcentajeIVA - CompraActual.UsuarioActual = UsuarioActual - CompraActual.CveSubProyecto = tCveSubProyeto - CompraActual.EsImportacion = chkImportacion.Checked + If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, objConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero, TxtTC.Text.ToDecimal, + TxtSerie.Text, TxtFolio.Text, EsDRMN:=True) Then + TieneError = True + End If - If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, objConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero, - TxtSerie.Text, TxtFolio.Text, EsDRMN:=True) Then + Else TieneError = True End If - Else - TieneError = True - End If - - If Not CveCompraDRMC > 0 Then - TieneError = True - End If - - If Not TieneError Then - If Not RegistroInventarioDevTemporal(ObjCompras.IniciaTransacSQL, tCveSubProyeto, CveCompraDRMC, EsCancelacion:=False) Then + If Not CveCompraDRMC > 0 Then TieneError = True End If + + If Not TieneError Then + If Not RegistroInventarioDevTemporal(ObjCompras.IniciaTransacSQL, tCveSubProyeto, CveCompraDRMC, EsCancelacion:=False) Then + TieneError = True + End If + End If + End If - - End If - - If Not TieneError AndAlso ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1), UsuarioActual.CveUsuario) Then - EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1) - Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente.")) End If If Not TieneError Then @@ -19232,7 +19162,7 @@ Partial Class Compras_Compras End If ObjCompras.Dispose() - InicializaDevolucionAlmacen() + End Sub Function RegistroInventarioDevTemporal(ByRef transaccion As SqlTransaction, tCveSubProyecto As Integer, CveCompraDRMCRelacionada As Integer, EsCancelacion As Boolean) As Boolean @@ -19619,6 +19549,13 @@ Partial Class Compras_Compras e.Row.Font.Bold = True End If Else + + If TienePermisoKardex Then + e.Row.FCLiteral("LtlPS").Visible = False + e.Row.FCHyperLink("HlPS").Visible = True + e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}" + End If + e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left End If End If @@ -20913,67 +20850,67 @@ Partial Class Compras_Compras End Sub #End Region - Protected Sub LnkActivaIva6_Click(sender As Object, e As EventArgs) + 'Protected Sub LnkActivaIva6_Click(sender As Object, e As EventArgs) - TrRetIVA.Visible = True - TdRetIVAConcepto.Visible = True - TotalOriginal = TxtTotal.Text.ToDecimal + ' TrRetIVA.Visible = True + ' TdRetIVAConcepto.Visible = True + ' TotalOriginal = TxtTotal.Text.ToDecimal - For Each dRow As DataRow In TmpDT.Rows - If dRow("CvePS").ToString.ToEntero <= 0 Then - Alert("Debe de asignar producto a todas las partidas", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - Next + ' For Each dRow As DataRow In TmpDT.Rows + ' If dRow("CvePS").ToString.ToEntero <= 0 Then + ' Alert("Debe de asignar producto a todas las partidas", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If + ' Next - If RetencionIVA = 0 And IVAOriginal > 0 Then + ' If RetencionIVA = 0 And IVAOriginal > 0 Then - For Each dRow As DataRow In TmpDT.Rows + ' For Each dRow As DataRow In TmpDT.Rows - If dRow("CveTipoPS").ToString.ToEntero = 1 Then + ' If dRow("CveTipoPS").ToString.ToEntero = 1 Then - 'Dim InternalIVA As Decimal = 0D - Dim InternalRETIVA As Decimal = 0D + ' 'Dim InternalIVA As Decimal = 0D + ' Dim InternalRETIVA As Decimal = 0D - 'InternalIVA = dRow("Cantidad").ToString.ToDecimal * dRow("PU").ToString.ToDecimal * 0.1D - InternalRETIVA = dRow("Cantidad").ToString.ToDecimal * dRow("PU").ToString.ToDecimal * 0.06D + ' 'InternalIVA = dRow("Cantidad").ToString.ToDecimal * dRow("PU").ToString.ToDecimal * 0.1D + ' InternalRETIVA = dRow("Cantidad").ToString.ToDecimal * dRow("PU").ToString.ToDecimal * 0.06D - 'dRow("IVA") = InternalIVA - 'dRow("IVAPorcentaje") = 0.1D - dRow("RetIVA") = InternalRETIVA - ' dRow("IVAPorcentaje") = 0.1D + ' 'dRow("IVA") = InternalIVA + ' 'dRow("IVAPorcentaje") = 0.1D + ' dRow("RetIVA") = InternalRETIVA + ' ' dRow("IVAPorcentaje") = 0.1D - End If + ' End If - Next - End If + ' Next + ' End If - TmpDT.AcceptChanges() + ' TmpDT.AcceptChanges() - GvPS.DataSource = TmpDT - GvPS.DataBind() + ' GvPS.DataSource = TmpDT + ' GvPS.DataBind() - DdlRetIVAConcepto.SelectedValueExist("5") + ' DdlRetIVAConcepto.SelectedValueExist("5") - LblRetIVA.Text = "6.0%" + ' LblRetIVA.Text = "6.0%" - RetencionIVA = TmpDT.SUMD("RetIVA") - TxtRetIVA.Text = RetencionIVA.ToString("###,###,###.00") + ' RetencionIVA = TmpDT.SUMD("RetIVA") + ' TxtRetIVA.Text = RetencionIVA.ToString("###,###,###.00") - 'TrasladoIVA = TmpDT.SUMD("IVA") - 'TxtIVA.Text = TrasladoIVA.ToString("###,###,###.00") + ' 'TrasladoIVA = TmpDT.SUMD("IVA") + ' 'TxtIVA.Text = TrasladoIVA.ToString("###,###,###.00") - 'Total = Total - RetencionIVA - TxtTotal.Text = (TxtTotal.Text.ToDecimal - RetencionIVA).ToString("###,###,###.00") + ' 'Total = Total - RetencionIVA + ' TxtTotal.Text = (TxtTotal.Text.ToDecimal - RetencionIVA).ToString("###,###,###.00") - UpPS.Update() + ' UpPS.Update() - 'ValidacionesTotalesXml() - ValidaTotalesGuardar() + ' 'ValidacionesTotalesXml() + ' ValidaTotalesGuardar() - End Sub + 'End Sub Public Sub LblProveedor_OnClick(sender As Object, e As EventArgs) Handles LblProveedor.Click If CveTipoConcepto = 2 Then @@ -21958,13 +21895,13 @@ Partial Class Compras_Compras #Region "PRONTO PAGO" Public Function GeneraRNC(ByRef sqltransaccion As SqlTransaction, CveCompraRegistrada As Integer, ByRef CompraActual As Compra, ByRef ObjConta As ClsContabilidad, CvePrePoliza As Integer, - CveProveedor As Integer, NombreProveedor As String, Fecha As Date, Descripcion As String, CveMoneda As Integer, Serie As String, Folio As String, Optional EsDRMN As Boolean = False, Optional TmpListadoPS As DataTable = Nothing) As Boolean + CveProveedor As Integer, NombreProveedor As String, Fecha As Date, Descripcion As String, CveMoneda As Integer, TipoCambio As Decimal, Serie As String, Folio As String, Optional EsDRMN As Boolean = False, Optional TmpListadoPS As DataTable = Nothing) As Boolean CveCompraDRMC = -1 Dim respuesta As Boolean = True Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero - Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("") + Dim PSRow As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("") Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal() Dim SubProyecto As String = "" @@ -21983,7 +21920,6 @@ Partial Class Compras_Compras If PSRow IsNot Nothing Then Dim CompraRNC As New ClsCompraManagerCompras(UsuarioActual) With { - .CveFactura = -1, .TipoDocto = "RNC", .CveProveedor = CveProveedor, .CveTipoProveedor = CveTipoProveedor, @@ -21992,19 +21928,20 @@ Partial Class Compras_Compras .NombreProveedor = NombreProveedor, .Fecha = Fecha, .CveMoneda = CveMoneda, - .Serie = If(EsDRMN, $"DRNC-{Serie}", Serie), + .TipoCambio = If(CveMoneda = 1, 1, TipoCambio), + .Serie = $"D-{Serie}", .Folio = Folio, .CveCompraAmortizacion = CveCompraRegistrada } - Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero - If PSRow("CvePSCargo").ToString <> "" Then - CveTipoPS = 2 - End If + 'Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero + 'If PSRow("CvePSCargo").ToString <> "" Then + ' CveTipoPS = 2 + 'End If Dim CveClasificacion As Integer = PSRow("CveClasificacion").ToString.ToEntero Dim Clasificacion As String = PSRow("Clasificacion").ToString - Dim PS As String = PSRow("PS").ToString + Dim PS As String = PSRow("PSCodigo").ToString Dim CveUM As Integer = PSRow("CveUnidadMedida").ToString.ToEntero Dim UM As String = PSRow("UnidadMedida").ToString Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2) @@ -22038,6 +21975,7 @@ Partial Class Compras_Compras .NombreProveedor = NombreProveedor, .Fecha = Fecha, .CveMoneda = CveMoneda, + .TipoCambio = If(CveMoneda = 1, 1, TipoCambio), .Serie = $"PP-{Serie}", .Folio = $"{Folio}", .CveCompraAmortizacion = CveCompraRegistrada @@ -22325,8 +22263,46 @@ Partial Class Compras_Compras End Sub + Protected Sub DdlAplicaPSMasivo_selectedindexchange(sender As Object, e As EventArgs) + ReclasificaProductosMasivos() + End Sub + Private Sub ReclasificaProductosMasivos() + + + If Not DdlAplicaPSMasivo.SelectedValue.ToEntero > 0 Then + Exit Sub + End If + + 'cveps,cveclasif, ps,clasif, cveum. unidadmedida,aplica + Dim drPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlAplicaPSMasivo.SelectedValue.ToEntero).FiltroPrimero("") + + For Each Dr As DataRow In TmpDT.Rows + If drPS IsNot Nothing Then + Dr("PSCodigo") = drPS("PSCodigo").ToString + Dr("CveMetodoInventario") = drPS("Inv_CveMetodoInventario").ToString.ToEntero + Dr("CveUM") = drPS("CveUnidadMedida") + Dr("UM") = drPS("UnidadMedida") + Dr("CveClasificacion") = drPS("CveClasificacion") + Dr("Clasificacion") = drPS("Clasificacion") + Dr("CvePS") = drPS("CvePS") + Dr("PS") = drPS("PSCodigo") + Dr("CodigoPS") = drPS("PSCodigo") + Dr("CveTipoPS") = drPS("CveTipoPS") + Dr("PSDescripcion") = drPS("PSCodigo") + 'Dr("AplicaSerie") = drPS("AplicaSerie") + 'Dr("AplicaLote") = drPS("AplicaLote") + 'Dr("AplicaCaducidad") = drPS("AplicaCaducidad") + End If + Next + + GvPS.DataSource = TmpDT + GvPS.DataBind() + UpPS.Update() + Alert("La reclasificación de productos ha sido aplicada correctamente.", TipoMensaje.ToastInformacion) + + End Sub End Class @@ -22849,23 +22825,15 @@ Public Class ClsCompraManagerCompras TmpDT.Columns.Add("CveSATPSActualizado") SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL - If Not TmpDT.Columns.Contains("Amortizacion") Then - TmpDT.Columns.Add("Amortizacion", GetType(Decimal)) - End If + If Not TmpDT.Columns.Contains("Amortizacion") Then TmpDT.Columns.Add("Amortizacion", GetType(Decimal)) + If Not TmpDT.Columns.Contains("AplicaLote") Then TmpDT.Columns.Add("AplicaLote", GetType(Boolean)) - If Not TmpDT.Columns.Contains("AplicaLote") Then - TmpDT.Columns.Add("AplicaLote", GetType(Boolean)) - End If - If Not TmpDT.Columns.Contains("AplicaCaducidad") Then - TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean)) - End If - If Not TmpDT.Columns.Contains("Lote") Then - TmpDT.Columns.Add("Lote", GetType(String)) - End If - If Not TmpDT.Columns.Contains("FechaCaducidad") Then - TmpDT.Columns.Add("FechaCaducidad", GetType(Date)) - End If + If Not TmpDT.Columns.Contains("AplicaCaducidad") Then TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean)) + + If Not TmpDT.Columns.Contains("Lote") Then TmpDT.Columns.Add("Lote", GetType(String)) + + If Not TmpDT.Columns.Contains("FechaCaducidad") Then TmpDT.Columns.Add("FechaCaducidad", GetType(Date)) 'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101 Dim ProductosCodigoSATNoPermitidos As New StringBuilder("") @@ -22875,7 +22843,6 @@ Public Class ClsCompraManagerCompras If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then Errores.AppendLine($"El comprobante contiene productos con código SAT '01010101', revise los productos:

{ProductosCodigoSATNoPermitidos.ToString}") - End If Else GuardaLog($"Error al cargar detalles GetFacturasComparacionXML.") diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 87b1c600a..9e51948cd 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1572,6 +1572,122 @@ Partial Class PopUpVerFactura End If End If + + 'Boleto + If UrlParametros("OP").ToString = "AMORTIZACIONHIS" Then + 'CveViajePasajero + Dim CVEIE As Integer = UrlParametros("CVEIE").ToString.ToEntero + Dim CVEVENTAAMORTIZADA As Integer = UrlParametros("CVEVENTAAMORTIZADA").ToString.ToEntero + Dim CVEVENTA As Integer = UrlParametros("CVEVENTA").ToString.ToEntero + Dim CVECLIENTE As Integer = UrlParametros("CVECLIENTE").ToString.ToEntero + Dim MONTO As Decimal = UrlParametros("MONTO").ToString.ToDecimal + Dim SALDO As Decimal = UrlParametros("SALDO").ToString.ToDecimal + + If CVECLIENTE > 0 AndAlso (CVEIE > 0 Or CVEVENTA > 0) Then + ImprimirSaldosAmortizacion(CVEVENTAAMORTIZADA, CVEIE, CVEVENTA, CVECLIENTE, MONTO, SALDO) + End If + + End If + + End Sub + + Private Sub ImprimirSaldosAmortizacion(CveVentaAmortizada As Integer, CveIE As Integer, CveVenta As Integer, CveCliente As Integer, Monto As Decimal, Saldo As Decimal) + + + Dim ObjMovtos As New ClsMovimientos() + Dim SaldoAntNCDev As Decimal = 0 + Dim DatosSaldoAntNCDev As New DataTable + Dim TipoDocto As String = "" + Dim Folio As String = "" + Dim DTNCVinculadas As New DataTable + + + If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente) Then + DatosSaldoAntNCDev = ObjMovtos.DtResultados + End If + ObjMovtos.Dispose() + + If DatosSaldoAntNCDev IsNot Nothing AndAlso DatosSaldoAntNCDev.Rows.Count > 0 Then + + SaldoAntNCDev = If(CveVenta > 0, + DatosSaldoAntNCDev.FiltroPrimeroValor("Saldo", $"CveVenta={CveVenta}").ToDecimal, + DatosSaldoAntNCDev.FiltroPrimeroValor("Saldo", $"CveIE={CveIE}").ToDecimal) + + TipoDocto = If(CveVenta > 0, + DatosSaldoAntNCDev.FiltroPrimeroValor("Tipo", $"CveVenta={CveVenta}"), + DatosSaldoAntNCDev.FiltroPrimeroValor("Tipo", $"CveIE={CveIE}")) + + + + + If CveIE > 0 Then + CveVenta = DatosSaldoAntNCDev.FiltroPrimeroValor("CveVenta", $"CveIE={CveIE}").ToEntero + Folio = DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveIE={CveIE}") + Else + Folio = DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveVenta={CveVenta}") + End If + + End If + + If TipoDocto.Contiene("Egs", "Dev", "Ant", "NC") Then + Dim AplicaAmortizacion As Boolean = False + If TipoDocto.Contiene("Ant") Then AplicaAmortizacion = True + + Dim ObjVentas As New ClsVentas + If ObjVentas.GetVentasAntNC(-1, CveVenta, AplicaAmortizacion) Then + DTNCVinculadas = ObjVentas.DtResultados.Copy() + End If + ObjVentas.Dispose() + End If + + If DTNCVinculadas IsNot Nothing Then + + Dim params As New List(Of ReportParameter) + + Dim ObjVentas As New ClsVentas + If ObjVentas.GetVenta(CveVentaAmortizada, UsuarioActual.CveEmpresa) Then + Dim DbRowVenta = ObjVentas.DtResultados.Copy().FiltroPrimero("") + + If DbRowVenta IsNot Nothing Then + params.Add(New ReportParameter("SerieFolio", DbRowVenta("SerieFolio").ToString)) + params.Add(New ReportParameter("Moneda", DbRowVenta("Moneda").ToString)) + params.Add(New ReportParameter("Cliente", DbRowVenta("ClienteNombre").ToString)) + + End If + + End If + ObjVentas.Dispose() + + + + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", NowADS().ToString)) + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + + params.Add(New ReportParameter("Monto", Monto.ToString)) + params.Add(New ReportParameter("Saldo", Saldo.ToString)) + params.Add(New ReportParameter("Folio", Folio)) + + Dim NombreArchivo As String = "SaldoAntNCDev.rdlc" + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)) + + If Archivo.Exists Then + ImprimirPDF(Archivo.FullName, DTNCVinculadas, params, "Aplicaciones", "PDF") + Else + ImprimirPDF($"Empresas/Grales/Formatos/{NombreArchivo}", DTNCVinculadas, params, "Aplicaciones", "PDF") + End If + + End If + + + + End Sub Private Function Parametros(Cadena As String) As Hashtable @@ -2540,33 +2656,22 @@ Partial Class PopUpVerFactura If Folio > 0 AndAlso DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then Dim ObjFactura As New Modelos.Factura - ObjFactura.Version = "3.3" ObjFactura.CveUsuario = UsuarioActual.CveUsuario ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa - ObjFactura.TipoCambio = 0 - ObjFactura.ConvertirPesos = False - ObjFactura.TipoCambio = 0 - ObjFactura.CveMoneda = 1 ObjFactura.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ") ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", "CveMoneda = 1") ObjFactura.MonedaAbreviatura = GlobalDTMonedas.FiltroPrimeroValor("Abreviatura", $"CveMoneda = {ObjFactura.CveMoneda} ") ObjFactura.TipoDocto = "Tra" - ObjFactura.RefDocto = "" ObjFactura.Folio = Folio ObjFactura.Serie = "Tra" - 'ObjFactura.CveMesa = -1 ObjFactura.Fecha = NowADS() - ObjFactura.CvePrePoliza = -1 ObjFactura.FechaPago = NowADS() - ObjFactura.MotivoDescuento = "" - ObjFactura.Observaciones = "" ObjFactura.FechaEjecucion = NowADS() ObjFactura.UsuarioCreo = UsuarioActual.Usuario ObjFactura.CveCondicionEntrega = -1 ObjFactura.CondicionEntrega = "" ObjFactura.NumeroCuenta = "" ObjFactura.CondicionesPago = 0 - ObjFactura.FormaPago = 0 ObjFactura.PedidoContrato = "" ObjFactura.OrdenCompra = "" ObjFactura.NumeroContrato = "" @@ -2574,9 +2679,6 @@ Partial Class PopUpVerFactura ObjFactura.DescripcionContrato = "" ObjFactura.CveCorte = -1 ObjFactura.TipoDocumento = "Traspaso" - ObjFactura.Alfa1 = "" - ObjFactura.Alfa2 = "" - ObjFactura.Alfa3 = "" ObjFactura.Descuento = 0 ObjFactura.Amortizacion = 0 ObjFactura.CveContrato = 0 @@ -2585,9 +2687,6 @@ Partial Class PopUpVerFactura ObjFactura.TipoEstatus = 0 ObjFactura.Det_OrdenCompra = "" ObjFactura.Inv_CveEstatusEntrega = 0 - ObjFactura.FormaPago33 = "" - ObjFactura.MetodoPago33 = "" - ObjFactura.UsoCFDI = "" ObjFactura.CveClienteSucursal = 0 Dim CveSubProyecto As Integer = -1 If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {CveAlmacen}").Rows.Count > 0 Then @@ -2597,18 +2696,7 @@ Partial Class PopUpVerFactura ObjFactura.CveSubProyectoCobranza = CveSubProyecto ObjFactura.CveSubProyectoEjecucion = CveSubProyecto - ObjFactura.SubTotal = 0 - ObjFactura.Descuento = 0 - ObjFactura.Amortizacion = 0 - ObjFactura.IVA = 0 - ObjFactura.RetIVA = 0 - ObjFactura.RetISR = 0 - ObjFactura.IEPS = 0 - ObjFactura.Total = 0 ObjFactura.RFCReceptor = "XAXX010101000" - - - DtDetalle.Columns.Add("TotalImporte", Type.GetType("System.Double")) DtDetalle.Columns.Add("Descuento", Type.GetType("System.Double")) DtDetalle.Columns.Add("UM") @@ -2620,7 +2708,6 @@ Partial Class PopUpVerFactura DtDetalle.Columns.Add("ImporteIVA", Type.GetType("System.Double")) DtDetalle.Columns.Add("PorcentajeIVA", Type.GetType("System.Double")) - For Each Row As DataRow In DtDetalle.Rows Row("TotalImporte") = Row("Total") Row("Descuento") = 0 @@ -2656,8 +2743,8 @@ Partial Class PopUpVerFactura Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.Fecha - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.SubTotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento @@ -3140,6 +3227,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("FechaVencimiento", If(CveCompra > 0, dr("FechaVencimiento").ToString.ToDate().ToString("dd/MM/yyyy"), ""))) params.Add(New ReportParameter("NombreCapturo", If(CveCompra > 0, dr("NombreCapturo").ToString, ""))) + params.Add(New ReportParameter("NumeroOrden", If(CveCompra > 0, dr("OCSerieFolioVinculada").ToString, ""))) Else params.Add(New ReportParameter("NombreRecibio", String.Format(Recibio))) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index f2874e93f..4a4a355c6 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1122,10 +1122,9 @@ Partial Class Compras_eFacturas e.Row.FCCheckBox("chkRegistraFactura").Visible = False End If - If UsuarioActual.CveEmpresa.Contiene(13, 83) Then - + If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then Dim Fecha28Dic As Date = New Date(2024, 12, 28) - If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate <= "2025/01/01".ToDate Then + If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate.Year < 2025 Then e.Row.FCHyperLink("HplAgregar").Visible = False End If End If diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index 38ab109d4..ef7e16b69 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -437,9 +437,8 @@ Partial Class Contratos_FacturacionMasiva ObjFactura.NumeroCuenta = "" 'ObjFactura.CveSucursal = GlobalDTSucursales.FiltroPrimeroValor("CveSucursal", $"CveEmpresa = {UsuarioActual.CveEmpresa}").ToEntero 'ObjFactura.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim - ObjFactura.CondicionesPago = 0 - ObjFactura.FormaPago = 0 - 'ObjFactura.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text) + ObjFactura.CondicionesPago = 0 + 'ObjFactura.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text) ObjFactura.PedidoContrato = "" ObjFactura.NumeroContrato = DR("NumeroContrato").ToString ObjFactura.DescripcionContrato = DR("DescripcionContrato").ToString @@ -537,30 +536,30 @@ Partial Class Contratos_FacturacionMasiva ObjFactura.SetCliente() - Dim ObjCliente As New ClsClientes() - If ObjCliente.GetClientes(DR("CveCliente").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then - If ObjCliente.DtResultados.Rows.Count > 0 Then - ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 - ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}") - ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}") + 'Dim ObjCliente As New ClsClientes() + 'If ObjCliente.GetClientes(DR("CveCliente").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then + ' If ObjCliente.DtResultados.Rows.Count > 0 Then + ' ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 + ' ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}") + ' ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}") - ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 - ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") - ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") + ' ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 + ' ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") + ' ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") - ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI - ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") - ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") + ' ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI + ' ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") + ' ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") - 'AGREGAR LOS PLAZOS PARA EL PAGO DEL CLIENTE - Dim FechaPago As DateTime = ObjFactura.Fecha.AddDays(ObjCliente.PlazoCobranza) - ObjFactura.FechaVencimiento = FechaPago - ObjFactura.Vigencia = FechaPago - ObjFactura.FechaPago = FechaPago + ' 'AGREGAR LOS PLAZOS PARA EL PAGO DEL CLIENTE + ' Dim FechaPago As DateTime = ObjFactura.Fecha.AddDays(ObjCliente.PlazoCobranza) + ' ObjFactura.FechaVencimiento = FechaPago + ' ObjFactura.Vigencia = FechaPago + ' ObjFactura.FechaPago = FechaPago - End If - End If - ObjCliente.Dispose() + ' End If + 'End If + 'ObjCliente.Dispose() 'SUBPROYECTO ObjFactura.SetSubProyectoMatriz(Me) @@ -579,8 +578,8 @@ Partial Class Contratos_FacturacionMasiva Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.FechaCP - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.Subtotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento @@ -595,7 +594,7 @@ Partial Class Contratos_FacturacionMasiva Timbre.Receptor.Nombre = Obj.Cliente.Nombre Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.NumeroRegistroTributario = "" - Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI + Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT If Obj.CveTipoRelacion > 0 Then diff --git a/Empresas/189/Formatos/Cotizacion.mrt b/Empresas/189/Formatos/Cotizacion.mrt index e0ff5542d..6baba42b3 100644 --- a/Empresas/189/Formatos/Cotizacion.mrt +++ b/Empresas/189/Formatos/Cotizacion.mrt @@ -29,7 +29,7 @@ DtDetalle - + Cantidad,System.Decimal UM,System.String UnidadMedida,System.String @@ -47,6 +47,7 @@ TiempoEntrega,System.String Codigo,System.String SATClaveUM,System.String + NumeroParte,System.String 20e4ae855c2345189166d6029cebb7ac @@ -1267,11 +1268,11 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC Transparent 0,6.6,21.1,0.5 - + [227:108:9] True - 0,0.03,1.4,0.5 + 0,0.03,1,0.5 Microsoft Sans Serif,9,Regular,Point,False,0 @@ -1286,7 +1287,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC [227:108:9] True - 1.4,0.03,1.69,0.5 + 1,0.03,1.45,0.5 Microsoft Sans Serif,9,Regular,Point,False,0 @@ -1301,7 +1302,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC [227:108:9] True - 3.09,0.03,1.77,0.5 + 2.31,0.03,1.59,0.5 Microsoft Sans Serif,9,Regular,Point,False,0 @@ -1310,13 +1311,14 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCCTextbox29 - CLAVE SAT + CLV. SAT [255:255:255] + Expression [227:108:9] True - 6.46,0.03,6.88,0.5 + 5.26,0.03,6.48,0.5 Microsoft Sans Serif,9,Regular,Point,False,0 @@ -1331,7 +1333,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC [227:108:9] True - 4.8,0.03,1.7,0.5 + 3.8,0.03,1.5,0.5 Microsoft Sans Serif,9,Regular,Point,False,0 @@ -1347,7 +1349,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC [227:108:9] True - 17.1,0.03,1.57,0.5 + 17.5,0.03,1.57,0.5 Microsoft Sans Serif,9,Regular,Point,False,0 @@ -1362,7 +1364,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC [227:108:9] True - 18.62,0.03,2.51,0.5 + 19.02,0.03,2.11,0.5 Microsoft Sans Serif,9,Regular,Point,False,0 @@ -1377,7 +1379,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC [227:108:9] True - 15.4,0.03,1.7,0.5 + 16,0.03,1.5,0.5 Microsoft Sans Serif,9,Regular,Point,False,0 @@ -1393,7 +1395,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC [227:108:9] True - 13.3,0.03,2.1,0.5 + 14.1,0.03,1.9,0.5 Microsoft Sans Serif,9,Regular,Point,False,0 @@ -1407,6 +1409,23 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC[255:255:255] Expression + + [227:108:9] + True + 11.6,0.03,2.68,0.5 + + + Microsoft Sans Serif,9.5,Regular,Point,False,0 + fee663500c4849c89786e368cea19ad4 + Center + 2,2,2,2 + Text13 + + + # Parte + [255:255:255] + Expression + @@ -1414,16 +1433,16 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC - + Transparent True 0,7.9,21.1,0.42 - - + + Transparent True - 0,0,1.4,0.37 + 0,0,1,0.37 Myriad Pro,7.5,Regular,Point,False,0 @@ -1432,17 +1451,17 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 Cantidad1 - + {DtDetalle.Cantidad} Black - + n2 - + Transparent True - 1.4,0,1.69,0.37 + 1,0,1.49,0.37 Myriad Pro,7.5,Regular,Point,False,0 @@ -1450,15 +1469,15 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 UM - + {DtDetalle.UMCalculada} Black DataColumn - + Transparent True - 3.09,0,1.77,0.37 + 2.49,0,1.37,0.37 Myriad Pro,7.5,Regular,Point,False,0 @@ -1466,15 +1485,15 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 SATClaveProdServ - + {DtDetalle.SATClaveProdServ} Black - + Transparent True True - 6.46,0,6.88,0.37 + 5.26,0,6.28,0.37 Myriad Pro,7.5,Regular,Point,False,0 @@ -1483,16 +1502,16 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 PS - + {DtDetalle.PSCalculado} Black ,,,,WordWrap=True,A=0 DataColumn - + Transparent True - 15.34,0,1.86,0.37 + 15.94,0,1.66,0.37 Myriad Pro,7.5,Regular,Point,False,0 @@ -1501,17 +1520,17 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 PU - + {DtDetalle.PU} Black - + #,0.00;-#,0.00;'-' - + Transparent True - 4.8,0,1.7,0.37 + 3.8,0,1.5,0.37 Myriad Pro,7.5,Regular,Point,False,0 @@ -1519,15 +1538,15 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 Descuento2 - + {DtDetalle.Codigo} Black DataColumn - + Transparent True - 17.1,0,1.57,0.37 + 17.5,0,1.57,0.37 Myriad Pro,7.5,Regular,Point,False,0 @@ -1536,17 +1555,17 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 ImporteIVA - + {DtDetalle.ImporteIVA} Black - + #,0.00;-#,0.00;'-' - + Transparent True - 18.67,0,2.42,0.42 + 19.07,0,2.02,0.42 Myriad Pro,7.5,Regular,Point,False,0 @@ -1555,19 +1574,19 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 TiempoEntrega - + {DtDetalle.Total} Black - + #,0.00 DataColumn - + Transparent True True - 13.3,0,2.1,0.37 + 14.4,0,1.6,0.37 Myriad Pro,7.5,Regular,Point,False,0 @@ -1575,12 +1594,34 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 Text9 - + {DtDetalle.TiempoEntrega} Black ,,,,WordWrap=True,A=0 DataColumn + + True + Transparent + True + True + True + 11.6,0,2.73,0.37 + + + Myriad Pro,7.5,Regular,Point,False,0 + True + 82adb17441e2499394641266d411f5aa + True + 2,2,2,2 + Text12 + + + {DtDetalle.NumeroParte} + Black + ,,,,WordWrap=True,A=0 + DataColumn + DtDetalle @@ -1591,24 +1632,24 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC - + Transparent 0,9.12,21.1,3.6 - - + + Bottom;Transparent;5;Solid;False;4;Black;True Transparent True True 15.8,0.38,5.2,0.65 - + None;[247:150:70];1;Solid;False;8;[247:150:70] Transparent 0,0.4,5.2,0.4 - + Transparent True 0,0,1.48,0.37 @@ -1619,13 +1660,13 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 Text2 - + {DtTotales.ImpuestoLocal} Black DataColumn Bottom - + Transparent True 1.4,0,3.88,0.37 @@ -1636,10 +1677,10 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 Text22 - + {DtTotales.Importe} Black - + 2 , 1 @@ -1656,7 +1697,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC DataBand1 - + @@ -1665,9 +1706,9 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCCTrue Panel3 - + - + [227:108:9] True 0,0.08,21.09,0.14 @@ -1677,11 +1718,11 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 Text21 - + OnlyLastPage Black - + Transparent True True @@ -1694,39 +1735,42 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 Text6 - + OnlyLastPage {ImporteLetra} Black Expression - + Transparent True 0,0.28,5.2,1 - + + + Transparent + True + 0,0,14.8,1.8 + + + Myriad Pro,7.5,Regular,Point,False,0 + 0,0,0,0 + Text4 + + + {Observaciones} + Black + ,,,,WordWrap=True,A=0 + Expression + + Panel2 - + OnlyLastPage - - Transparent - 5.2,0.28,10.6,1 - - - Myriad Pro,9,Regular,Point,False,0 - 0,0,0,0 - Text4 - - - {Observaciones} - Black - Expression - - + [227:108:9] True 16,1.28,5.09,0.14 @@ -1736,11 +1780,11 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 Text3 - + OnlyLastPage Black - + True Transparent True @@ -1753,7 +1797,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC2,2,2,2 Text11 - + <div><b>ATENTAMENTE <br></b></div><div><font size="8">{VendedorNombre}</font></div><div><font size="8">&nbsp;{VendedorMail}</font></div><div><font size="8">&nbsp;{VendedorCelular}</font></div> [0:0:0] Wysiwyg @@ -1766,13 +1810,13 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC - + Transparent True True 0,13.52,21.1,4.6 - + True Transparent 0,0.08,21.2,2.4 @@ -6204,10 +6248,10 @@ ub5TDEQwl8Y0TpIarpJhbSnXwNo47Zr4YWC+xyXg/wDaeXyvhrEgkwAAAABJRU5ErkJggg==0,0,0,0 Image3 - + True - + Transparent True 0.2,2.68,7.48,1.35 @@ -6218,7 +6262,7 @@ ub5TDEQwl8Y0TpIarpJhbSnXwNo47Zr4YWC+xyXg/wDaeXyvhrEgkwAAAABJRU5ErkJggg==2,2,2,2 Text10 - + CUENTAS BANCARIAS: BBVA : 0448617643 CLABE: 012760004486176439 BANAMEX: 6724628 CLABE: 002760036367246288 @@ -6260,7 +6304,7 @@ BANAMEX: 6724628 CLABE: 002760036367246288 12/14/2024 11:28:34 AM 7/11/2022 2:49:19 PM Cotizacion.mrt - 2bb81bb1181f4d0ba0b7fa1647eb8eb4 + 922cc12405514f97971fb265603925cb Report Centimeters 2022.4.5.0 diff --git a/Empresas/189/Formatos/Entradas.rdlc b/Empresas/189/Formatos/Entradas.rdlc index 653b09464..c7cf50e59 100644 --- a/Empresas/189/Formatos/Entradas.rdlc +++ b/Empresas/189/Formatos/Entradas.rdlc @@ -179,22 +179,22 @@ - 1.0835cm + 0.97724cm - 1.53251cm + 1.40581cm 1.40148cm - 11.05821cm + 10.82525cm - 2.33994cm + 3.03882cm - 1.86685cm + 1.63389cm 1.96383cm @@ -222,7 +222,7 @@ @@ -275,7 +275,7 @@ @@ -425,7 +425,7 @@ - Código Prov. + # Parte @@ -632,7 +632,7 @@ @@ -1899,7 +1899,7 @@ - =Parameters!OCVinculada.Value + =Parameters!NumeroOrden.Value + + + + + + Textbox12 + + + #e36c09 + 2pt + 2pt + 2pt + 2pt + + + + @@ -553,7 +596,6 @@ - true @@ -647,6 +689,35 @@ + + + + true + true + + + + + =Fields!NumeroParte.Value + + + + + + + + + @@ -790,6 +861,7 @@ + @@ -803,9 +875,10 @@ DsOC + 0cm 0.04788in 0.34081in - 8.16912in + 8.21665in @@ -842,10 +915,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -877,10 +946,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -914,10 +979,6 @@ - 2pt - 2pt - 2pt - 2pt es-MX @@ -952,10 +1013,6 @@ - 2pt - 2pt - 2pt - 2pt es-MX @@ -988,10 +1045,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -1025,10 +1078,6 @@ - 2pt - 2pt - 2pt - 2pt es-MX @@ -1114,19 +1163,15 @@ Textbox5 3.65532cm - 15.22566cm + 15.77355cm 0.14316cm - 5.47753cm + 4.92964cm 8 #e36c09 - 2pt - 2pt - 2pt - 2pt @@ -1147,19 +1192,15 @@ Textbox5 4.42669cm - 15.22566cm + 15.76669cm 0.14502cm - 5.47832cm + 4.96569cm 9 #e36c09 - 2pt - 2pt - 2pt - 2pt @@ -1172,14 +1213,14 @@ Descripción: =Parameters!Descripcion.Value @@ -1189,8 +1230,8 @@ Textbox1 0.36159cm 0.03529cm - 0.41479cm - 14.67376cm + 0.41655cm + 15.63243cm 10 - 2pt - 2pt - 2pt - 2pt @@ -1274,10 +1311,6 @@ - 2pt - 2pt - 2pt - 2pt es-MX @@ -1313,10 +1346,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -1353,10 +1382,6 @@ - 2pt - 2pt - 2pt - 2pt es-MX @@ -1392,10 +1417,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -1432,10 +1453,6 @@ - 2pt - 2pt - 2pt - 2pt es-MX @@ -1471,10 +1488,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -1511,10 +1524,6 @@ - 2pt - 2pt - 2pt - 2pt es-MX @@ -1550,10 +1559,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -1590,10 +1595,6 @@ - 2pt - 2pt - 2pt - 2pt es-MX @@ -1700,7 +1701,7 @@ 3.83039in @@ -1902,7 +1903,7 @@ - =IIF(LEN(Parameters!SubProyectoEntrega.Value) > 0,"Lugar de Entrega: " + Parameters!SubProyectoEntrega.Value,"") + =IIF(LEN(Parameters!SubProyectoEntrega.Value) > 0 or LEN(Parameters!ProveedorLugar.Value) > 0,"Lugar de Entrega: " + Parameters!SubProyectoEntrega.Value,"") + + =Parameters!ProveedorLugar.Value + + + + + + + + Textbox28 + + + + + + #e36c09 + 1pt + + + + + + + + + + + 1.86196cm + + + 1.8cm + + + 1.34315cm + + + 0.96498cm + + + 1.69804cm + + + 1.3cm + + + 3.87584cm + + + 1.80331cm + + + 1.96175cm + + + 2.5cm + + + + + 0.44125cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + + SerieFolio1 + + + =IIF(CInt(Fields!CveCompra.Value) < 1, "#67809F","Transparent") + 0.5pt + + + + + + + + true + true + + + + + =Fields!SubTotal.Value + + + + + + + + + + + SubTotal + + + =IIF(CInt(Fields!CveCompra.Value) < 1, "#67809F","Transparent") + 0.5pt + + + + + + + + true + true + + + + + =Fields!IVA.Value + + + + + + + IVA1 + + + =IIF(CInt(Fields!CveCompra.Value) < 1, "#67809F","Transparent") + 0.5pt + + + + + + + + true + true + + + + + =Fields!Descuentos.Value + + + + + + + Descuentos + + + =IIF(CInt(Fields!CveCompra.Value) < 1, "#67809F","Transparent") + 0.5pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + + + + + Total + + + =IIF(CInt(Fields!CveCompra.Value) < 1, "#67809F","Transparent") + 0.5pt + + + + + + + + true + true + + + + + =Fields!Moneda.Value + + + + + + + Moneda + + + =IIF(CInt(Fields!CveCompra.Value) < 1, "#67809F","Transparent") + 0.5pt + + + + + + + + true + true + + + + + =Fields!RazonSocial.Value + + + + + + + RazonSocial + + + =IIF(CInt(Fields!CveCompra.Value) < 1, "#67809F","Transparent") + 0.5pt + + + + + + + + true + true + + + + + =Fields!FolioInv.Value + + + + + + + FolioInv + + + =IIF(CInt(Fields!CveCompra.Value) < 1, "#67809F","Transparent") + 0.5pt + + + + + + + + true + true + + + + + =Fields!FechaInv.Value + + + + + + + FechaInv + + + =IIF(CInt(Fields!CveCompra.Value) < 1, "#67809F","Transparent") + 0.5pt + + + + + + + + true + true + + + + + =Fields!Almacen.Value + + + + + + + Almacen + + + =IIF(CInt(Fields!CveCompra.Value) < 1, "#67809F","Transparent") + 0.5pt + + + + + + + + + + + + + 0.44125cm + + + true + true + + + + + Serie/Folio + + + + + + + Textbox40 + + + #e36c09 + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + SubTotal + + + + + + + Textbox44 + + + #e36c09 + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + IVA + + + + + + + Textbox49 + + + #e36c09 + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + Desc. + + + + + + + Textbox51 + + + #e36c09 + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + Total + + + + + + + Textbox47 + + + #e36c09 + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + Moneda + + + + + + + Textbox4 + + + #e36c09 + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + Proveedor + + + + + + + Textbox6 + + + #e36c09 + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + Folio. Inv + + + + + + + Textbox15 + + + #e36c09 + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + Fecha Mov. + + + + + + + Textbox17 + + + #e36c09 + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + Almacén + + + + + + + Textbox5 + + + #e36c09 + 1pt + + + + + + + + + + + + + 1.5cm + + + true + true + + + + + =iif(CInt(Fields!CveCompra.Value)<1,Fields!GPO.Value,Fields!Fecha.Value) + + + + + + + GPO + + + =IIF(CInt(Fields!CveCompra.Value) < 1, "#67809F","Transparent") + 0.5pt + + + + + + + + true + true + DataSet1 + 0.75875cm + 0.06614cm + 0.8825cm + 20.60903cm + + + + + + true + true + + + + + =Parameters!AgrupadoPor.Value + HTML + + + + + + + Textbox1 + 0.07056cm + 0.06614cm + 0.58236cm + 19.58715cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.77116in + + + + + + + Textbox1 + 3.8144cm + 0.6cm + 13.0693cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE COMPRAS DETALLE + + + + + + + + + + + + + + + + Textbox2 + 0.63528cm + 3.77912cm + 0.52945cm + 13.0693cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 3.00743cm + 2 + + + + + + + + + + + 0.48291cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 18.6093cm + 0.4cm + 2.06587cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.1cm + 0.1cm + 1cm + 0.5cm + 0.13cm + + + + + + + Textbox28 + + + + + + #e36c09 + 1pt + + + + + + + + + + + 3.42604cm + + + 3.37313cm + + + 3.00271cm + + + + + 0.44125cm + + + + + true + true + + + + + =Fields!FechaAplicado.Value + + + + + + + FechaAplicado + + + White + 0.5pt + + + + + + + + true + true + + + + + =Fields!Moneda.Value + + + + + + + Moneda + + + White + 0.5pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + White + 0.5pt + + + + + + + + + + + + + 0.44125cm + + + true + true + + + + + Fecha + + + + + + + Textbox19 + + + #e36c09 + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + Moneda + + + + + + + Textbox21 + + + #e36c09 + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + Importe + + + + + + + Textbox23 + + + #e36c09 + 1pt + + + + + + + + + + + + + 2.39924cm + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + + SerieFolio + + + White + 0.5pt + + + + + + + + true + true + DataSet1 + 0.12375cm + 0.06614cm + 0.8825cm + 12.20112cm + + + + + + 0.39616in + + + + + + + Textbox1 + 3.8144cm + 0.6cm + 13.0693cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Aplicaciones de facturas + + + + + + + Textbox2 + 0.63528cm + 3.77912cm + 0.52945cm + 13.0693cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 3.00743cm + 2 + + + + + + true + true + + + + + Cliente: + + + + + + + + + true + true + + + + + =Parameters!Cliente.Value + + + + + + true + true + + + + + Facura: + + + + + + + + + true + true + + + + + =Parameters!SerieFolio.Value + + + + + + true + true + + + + + Monto: + + + + + + + + + true + true + + + + + =Parameters!Monto.Value + + + + + + true + true + + + + + Saldo: + + + + + + + + + true + true + + + + + =Parameters!Saldo.Value + + + + + + true + true + + + + + Aplicaciones de facturas: + + + + + + + + + true + true + + + + + Folio: + + + + + + + + + true + true + + + + + =Parameters!Folio.Value + + + + + + true + true + + + + + Fecha: + + + + + + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + + + + true + true + + + + + Moneda: + + + + + + + + + true + true + + + + + =Parameters!Moneda.Value + + + + + + + + + + + 0.48291cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 18.6093cm + 0.4cm + 2.06587cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.1cm + 0.1cm + 1cm + 0.5cm + 0.13cm + + + + + + + Black + + 1pt + + + Black + + 1pt + + #e36c09 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + U.M. + + + + + + + Black + + 1pt + + + Black + + 1pt + + #e36c09 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Código + + + + + + + Black + + 1pt + + + Black + + 1pt + + #e36c09 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Black + + 1pt + + + Black + + 1pt + + #e36c09 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.30367cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!UnidadMedida.Value + + + + + + + Codigo + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + =Fields!Codigo.Value + + + + + + + UnidadMedida + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + true + + + + + =Fields!PS.Value + + + + + + + PS + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.44125cm + + + + + true + true + + + + + =Sum(Fields!Cantidad.Value) + + + + + + + Textbox20 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Total Productos + + + + + + + Textbox21 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox23 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox37 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + + + + + + + + + + + + + After + + + + + + + + + Before + + + + DsInventarios + 0.07056cm + 0.00711cm + 1.17559cm + 19.44107cm + + + + + + 0.68252in + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox4 + 3.24568cm + 17.73805cm + 0.6cm + 1.76305cm + 1 + + + 2pt + 2pt + + + + true + true + + + + + Fecha: + + + + + + + Textbox5 + 3.24566cm + 16.62329cm + 0.6cm + 1.11476cm + 2 + + + 2pt + 2pt + + + + true + true + + + + + =Parameters!Folio.Value + + + + + + 2pt + 2pt + + + + true + true + + + + + FOLIO: + + + + + + + Textbox5 + 0.03803cm + 16.27678cm + 0.6cm + 1.23137cm + 4 + + + Bottom + 2pt + 2pt + + + + true + true + + + + + =iif(Parameters!CveConcepto.Value = 8, "AVISO", "RECEPCIÓN") & " DE TRASLADO" + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubProyecto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo2 + FitProportional + 0.0028in + 0.91907in + 1.74231in + 7 + + + + + + + + + + + 6.19829cm + true + true + + + true + true + + + + + =Parameters!NombreEntrego.Value + + + + + + + Textbox21 + 1.87056cm + 0.07295cm + 0.63472cm + 6.88796cm + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!NombreAccion.Value + + + + + + + Textbox21 + 1.87056cm + 12.50545cm + 0.63528cm + 6.94273cm + 1 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Firma + + + + + + + Textbox21 + 3.82353cm + 0.66941cm + 1.2cm + 5.78664cm + 2 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 3.82354cm + 13.51087cm + 1.2cm + 5.78664cm + 3 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + OBSERVACIONES: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 1.37639cm + 0.00626cm + 0cm + 19.57518cm + 6 + + + + + + 0.17639cm + 0cm + 19.57518cm + 7 + + + + + + true + true + + + + + ENTREGA + + + + + + + Textbox22 + 1.41167cm + 0.64295cm + 0.6cm + 5.78664cm + 8 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 1.37639cm + 13.16691cm + 0.6cm + 5.78664cm + 9 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!NombreAccion.Value="-1","",Parameters!NombreAccion.Value) + + + + + + + Textbox21 + 1.87cm + 6.66948cm + 0.63528cm + 6.56093cm + 10 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 3.82354cm + 7.24137cm + 1.2cm + 5.78664cm + 11 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 1.37583cm + 6.96091cm + 0.6cm + 5.78664cm + 12 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + = "Fecha Impresión: " & Format(Globals!ExecutionTime, "dd/MM/yyyy HH:mm:ss") + + + + + + + Textbox31 + 5.75203cm + 5.9827cm + 0.41981cm + 8.76488cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 5.77848cm + 14.9056cm + 0.41981cm + 4.66958cm + 15 + + + 2pt + 2pt + 2pt + 2pt + + + + 5.70264cm + 0.00313cm + 0cm + 19.57518cm + 16 + + + + + + + + + + 25cm + 21.59cm + 1cm + 0cm + 1cm + 1cm + 0.13cm + + + + + + + + + Folio fiscal: + + + + =Parameters!FolioFiscal.Value + + + + + + + =Parameters!FechaCertificacion.Value + + + + Número de serie del Certificado de Sello Digital: + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 0.0444in + 6.56374in + 1.13974in + 1.53682in + 1 + + + + + + true + 3.53788in + 0.03589in + 1.21305in + 8.22763in + + + + + + true + true + + + + + Domicilio fiscal: + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + TIPO DE DOCUMENTO: Traslado + + + + + + + + + + + + + Serie: + + + + =Parameters!Serie.Value + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + + + Fecha: + + + + + + + + = Parameters!Fecha.Value + + + + + + + + + Régimen fiscal: + + + + Regimen General de Ley Personas Morales + + + + + + + + + + + Textbox4 + 0.05022in + 4.90719in + 1.00267in + 3.35633in + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 0.54927in + + + 1.05064in + + + 0.98425in + + + 1.11327in + + + 4.57762in + + + + + 0.19645in + + + + + true + true + + + + + CANT + + + + + + + Textbox22 + + + + Black + + + + Black + + + #e36c09 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UNIDAD + + + + + + + Black + + + + Black + + + #e36c09 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CÓDIGO + + + + + + + Black + + + + Black + + + #e36c09 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CLAVE SAT + + + + + + + Textbox29 + + + + Black + + + + Black + + + #e36c09 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox17 + + + + Black + + + + Black + + + #e36c09 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Noidentificacion.Value + + + + + + + Noidentificacion + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveProdServ.Value + + + + + + + SATClaveProdServ + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 2.25503in + 0.04048in + 0.34081in + 8.27505in + 3 + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Almacén Origen: + + + + =Parameters!AlmOrigen.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Almacén Destino: + + + + =Parameters!AlmDestino.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!DireccionOrigen.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!DireccionDestino.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo2 + FitProportional + 0.12756cm + 0.05298in + 0.91907in + 1.74231in + 12 + + + + + + 12.81558cm + + + + + 21.12145cm + + + 0.5327cm + true + true + + + true + true + + + + + Fecha Impresión: + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 0.11289cm + 18.37079cm + 0.41981cm + 2.5cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0.5cm + 0.5cm + 1.27cm + + + + + + + Textbox28 + + + + + + LightGrey + 1pt + + + + + + + + + + + 3.42604cm + + + 3.37313cm + + + 3.00271cm + + + + + 0.44125cm + + + + + true + true + + + + + =Fields!FechaAplicado.Value + + + + + + + FechaAplicado + + + White + 0.5pt + + + + + + + + true + true + + + + + =Fields!Moneda.Value + + + + + + + Moneda + + + White + 0.5pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + White + 0.5pt + + + + + + + + + + + + + 0.44125cm + + + true + true + + + + + Fecha + + + + + + + Textbox19 + + + LightGrey + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + Moneda + + + + + + + Textbox21 + + + LightGrey + 1pt + + + + + + + + 0.44125cm + + + true + true + + + + + Importe + + + + + + + Textbox23 + + + LightGrey + 1pt + + + + + + + + + + + + + 2.39924cm + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + + SerieFolio + + + White + 0.5pt + + + + + + + + true + true + DataSet1 + 0.12375cm + 0.06614cm + 0.8825cm + 12.20112cm + + + + + + 0.39616in + + + + + + + Textbox1 + 3.8144cm + 0.6cm + 13.0693cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Aplicaciones de facturas + + + + + + + Textbox2 + 0.63528cm + 3.77912cm + 0.52945cm + 13.0693cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 3.00743cm + 2 + + + + + + true + true + + + + + Cliente: + + + + + + + + + true + true + + + + + =Parameters!Cliente.Value + + + + + + true + true + + + + + Facura: + + + + + + + + + true + true + + + + + =Parameters!SerieFolio.Value + + + + + + true + true + + + + + Monto: + + + + + + + + + true + true + + + + + =Parameters!Monto.Value + + + + + + true + true + + + + + Saldo: + + + + + + + + + true + true + + + + + =Parameters!Saldo.Value + + + + + + true + true + + + + + Aplicaciones de facturas: + + + + + + + + + true + true + + + + + Folio: + + + + + + + + + true + true + + + + + =Parameters!Folio.Value + + + + + + true + true + + + + + Fecha: + + + + + + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + + + + true + true + + + + + Moneda: + + + + + + + + + true + true + + + + + =Parameters!Moneda.Value + + + + + + + + + + + 0.48291cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 18.6093cm + 0.4cm + 2.06587cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.1cm + 0.1cm + 1cm + 0.5cm + 0.13cm +