AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-09-29 21:47:12 -07:00
parent 9e6453c2ba
commit 68144d5373
4 changed files with 192 additions and 185 deletions
Download Patch File Download Diff File Expand all files Collapse all files

356
App_Code/ClsCompras.vb
View File

@@ -19,13 +19,13 @@ Public Class ClsCompras
Private StrSQL As StringBuilder Private StrSQL As StringBuilder
'Atributos de la clase 'Atributos de la clase
Private disposedValue As Boolean = False ' Para detectar llamadas redundantes Private disposedValue As Boolean = False ' Para detectar llamadas redundantes
'REGISTRAR CONEXIONES ABIERTAS 'REGISTRAR CONEXIONES ABIERTAS
Private CveConexion As Integer = 0 Private CveConexion As Integer = 0
Private EsTransaccionCompartida As Boolean = False Private EsTransaccionCompartida As Boolean = False
#End Region #End Region
#Region "Propiedades" #Region "Propiedades"
Public ReadOnly Property DtResultados() As DataTable Public ReadOnly Property DtResultados() As DataTable
Get Get
@@ -60,12 +60,12 @@ Public Class ClsCompras
SqlConexion.Open() SqlConexion.Open()
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
End Try End Try
Else Else
SqlConexion = TransaccionCompartida.Connection SqlConexion = TransaccionCompartida.Connection
SqlTransacc = TransaccionCompartida SqlTransacc = TransaccionCompartida
EsTransaccionCompartida = True EsTransaccionCompartida = True
End If End If
SqlAdapter = New SqlDataAdapter("", SqlConexion) SqlAdapter = New SqlDataAdapter("", SqlConexion)
ConexionAdd() ConexionAdd()
@@ -80,18 +80,18 @@ Public Class ClsCompras
End With End With
Data = New DataTable Data = New DataTable
If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
End Sub End Sub
#Region "Conexiones" #Region "Conexiones"
Private Sub ConexionAdd() Private Sub ConexionAdd()
If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
Try Try
DataAdapter("PA_Sis_RegistrarConexion") DataAdapter("PA_Sis_RegistrarConexion")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
.Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
.Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
@@ -116,9 +116,9 @@ Public Class ClsCompras
CveConexion = 0 CveConexion = 0
End If End If
End Sub End Sub
#End Region #End Region
Public Function GetCompras(CveCompra As Integer, Serie As String, Folio As String, CveProveedor As Integer, IdPoliza As Integer, CveEmpresa As Integer, Optional ProveedorRFC As String = "-1") As Boolean Public Function GetCompras(CveCompra As Integer, Serie As String, Folio As String, CveProveedor As Integer, IdPoliza As Integer, CveEmpresa As Integer, Optional ProveedorRFC As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ComprasGet") DataAdapter("PA_Comp_ComprasGet")
@@ -143,7 +143,7 @@ Public Class ClsCompras
Return Retorno Return Retorno
End Function End Function
Public Function GetCompras(CveEmpresa As Integer, TipoDocto As String, Folio As String, FolioFiscal As String, Codigo As String, Proveedor As String, FechaI As String, Public Function GetCompras(CveEmpresa As Integer, TipoDocto As String, Folio As String, FolioFiscal As String, Codigo As String, Proveedor As String, FechaI As String,
FechaF As String, Descripcion As String, Observaciones As String, Optional CveProveedor As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean FechaF As String, Descripcion As String, Observaciones As String, Optional CveProveedor As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ComprasGetBuscar") DataAdapter("PA_Comp_ComprasGetBuscar")
@@ -199,8 +199,8 @@ Public Class ClsCompras
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_CompraAdd") DataAdapter("PA_Comp_CompraAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
@@ -588,10 +588,10 @@ Public Class ClsCompras
End If End If
Catch ex As SqlException Catch ex As SqlException
If ex.Message.Contains("FK_Inv_MovimientosDetalle_Inv_MovimientosDetalleEntrada") Then If ex.Message.Contains("FK_Inv_MovimientosDetalle_Inv_MovimientosDetalleEntrada") Then
Alert(String.Format("No se puede eliminar la compra, porque tiene movimientos de salida de Almacen relacionados."), TipoMensaje.MsgAdvertencia) Alert(String.Format("No se puede eliminar la compra, porque tiene movimientos de salida de Almacen relacionados."), TipoMensaje.MsgAdvertencia)
ElseIf ex.Message.Contains("50015") Then ElseIf ex.Message.Contains("50015") Then
Alert("No se puede eliminar na compra debido a que el perido esta cerrado.", TipoMensaje.MsgAdvertencia) Alert("No se puede eliminar na compra debido a que el perido esta cerrado.", TipoMensaje.MsgAdvertencia)
Else Else
Me.OnError("Ocurrió un error al eliminar la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Me.OnError("Ocurrió un error al eliminar la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If End If
@@ -1765,11 +1765,11 @@ Public Class ClsCompras
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
OnError = True OnError = True
Catch ex As Exception Catch ex As Exception
If ex.Message.Contains("Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM.") Then If ex.Message.Contains("Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM.") Then
Alert("Fechas fuera de rango, debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM", TipoMensaje.MsgAdvertencia) Alert("Fechas fuera de rango, debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM", TipoMensaje.MsgAdvertencia)
Else Else
Me.OnError("Ocurrió un error al obtener la bitácora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Me.OnError("Ocurrió un error al obtener la bitácora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If End If
End Try End Try
Return OnError Return OnError
@@ -2218,10 +2218,10 @@ Public Class ClsCompras
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region " DEVOLUCIONES COMPRAS - IPP FEBRERO 2018 " #Region " DEVOLUCIONES COMPRAS - IPP FEBRERO 2018 "
Public Function ComprasDetalleDevolucionesAdd(CveCompraDetalle As Integer, CveCompraNC As Integer, Cantidad As Double, CveEmpresa As Integer) As Boolean Public Function ComprasDetalleDevolucionesAdd(CveCompraDetalle As Integer, CveCompraNC As Integer, Cantidad As Double, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2242,11 +2242,11 @@ Public Class ClsCompras
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "TIPOS DE GASTOS" #Region "TIPOS DE GASTOS"
Public Function GetTipoGasto(CveTipoGasto As Integer, CveEmpresa As Integer) As Boolean Public Function GetTipoGasto(CveTipoGasto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_TiposGastosGet") DataAdapter("PA_Comp_TiposGastosGet")
@@ -2264,17 +2264,17 @@ Public Class ClsCompras
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function AddTipoGasto(TipoGasto As String, Estatus As Boolean, FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Public Function AddTipoGasto(TipoGasto As String, Estatus As Boolean, FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_TiposGastosAdd") DataAdapter("PA_Comp_TiposGastosAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@TipoGasto", SqlDbType.NVarChar).Value = TipoGasto .Add("@TipoGasto", SqlDbType.NVarChar).Value = TipoGasto
.Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
@@ -2286,17 +2286,17 @@ Public Class ClsCompras
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function UpdateTipoGasto(CveTipoGasto As Integer, TipoGasto As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Public Function UpdateTipoGasto(CveTipoGasto As Integer, TipoGasto As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_TiposGastosUpdate") DataAdapter("PA_Comp_TiposGastosUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
.Add("@TipoGasto", SqlDbType.NVarChar).Value = TipoGasto .Add("@TipoGasto", SqlDbType.NVarChar).Value = TipoGasto
.Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
@@ -2308,8 +2308,8 @@ Public Class ClsCompras
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function RemoveTipoGasto(CveTipoGasto As Integer) As Boolean Public Function RemoveTipoGasto(CveTipoGasto As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_TiposGastosRemove") DataAdapter("PA_Comp_TiposGastosRemove")
@@ -2326,51 +2326,51 @@ Public Class ClsCompras
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "VINCULAR PAGO" #Region "VINCULAR PAGO"
'Public Function GetVincularPago(CveProveedor As Integer, CveCompra As Integer, Tipo As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional CveTipoProveedor As Integer = -1) As Boolean 'Public Function GetVincularPago(CveProveedor As Integer, CveCompra As Integer, Tipo As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional CveTipoProveedor As Integer = -1) As Boolean
' Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False
' DataAdapter("PA_Comp_VincularPagoGet") ' DataAdapter("PA_Comp_VincularPagoGet")
' With SqlAdapter.SelectCommand.Parameters ' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor ' .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
' .Add("@CveCompra", SqlDbType.Int).Value = CveCompra ' .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
' .Add("@Tipo", SqlDbType.Int).Value = Tipo ' .Add("@Tipo", SqlDbType.Int).Value = Tipo
' .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio ' .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
' .Add("@FechaFin", SqlDbType.Date).Value = FechaFin ' .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor ' .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
' End With ' End With
' Try ' Try
' SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
' Retorno = True ' Retorno = True
' Catch ex As Exception ' Catch ex As Exception
' OnError("Ocurrió un error al obtener los pagos a vincular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ' OnError("Ocurrió un error al obtener los pagos a vincular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
' End Try ' End Try
' Return Retorno ' Return Retorno
'End Function 'End Function
'Public Function GetVincularPago(CveProveedor As Integer, Monto As Decimal, XMLPagos As String, CveEmpresa As Integer) As Boolean 'Public Function GetVincularPago(CveProveedor As Integer, Monto As Decimal, XMLPagos As String, CveEmpresa As Integer) As Boolean
' Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False
' DataAdapter("PA_Comp_VincularComplementoPagoGet") ' DataAdapter("PA_Comp_VincularComplementoPagoGet")
' With SqlAdapter.SelectCommand.Parameters ' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor ' .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
' .Add("@Monto", SqlDbType.Float).Value = Monto ' .Add("@Monto", SqlDbType.Float).Value = Monto
' .Add("@XMLPagos", SqlDbType.Xml).Value = XMLPagos ' .Add("@XMLPagos", SqlDbType.Xml).Value = XMLPagos
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' End With ' End With
' Try ' Try
' SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
' Retorno = True ' Retorno = True
' Catch ex As Exception ' Catch ex As Exception
' OnError("Ocurrió un error al obtener la vinculación de complemento de pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ' OnError("Ocurrió un error al obtener la vinculación de complemento de pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
' End Try ' End Try
' Return Retorno ' Return Retorno
'End Function 'End Function
Public Function AddComplementoPago(CveIE As Integer, CveCompra As Integer, Importe As Decimal, CvePrePolizaDetalle As Integer, CveFactura As Integer) As Integer Public Function AddComplementoPago(CveIE As Integer, CveCompra As Integer, Importe As Decimal, CvePrePolizaDetalle As Integer, CveFactura As Integer) As Integer
Dim Retorno As Integer = 0 Dim Retorno As Integer = 0
DataAdapter("PA_Comp_ComplementoPagoAdd") DataAdapter("PA_Comp_ComplementoPagoAdd")
@@ -3003,8 +3003,8 @@ Public Class ClsCompras
OnError("Ocurrió un error al obtener el reporte de anticipos - nc - exc detalle .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al obtener el reporte de anticipos - nc - exc detalle .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
Public Function GetCxPProgramado(CveCompra As Integer, CveEmpresa As Integer) As Boolean Public Function GetCxPProgramado(CveCompra As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -3020,8 +3020,8 @@ Public Class ClsCompras
OnError("Ocurrió un error al obtener la información de la compra programada.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al obtener la información de la compra programada.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function GetCancelarNC(CveCompra As Integer, CveEmpresa As Integer) As Boolean Public Function GetCancelarNC(CveCompra As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Conta_CancelarNCGet") DataAdapter("PA_Conta_CancelarNCGet")
@@ -3036,79 +3036,79 @@ Public Class ClsCompras
OnError("Ocurrió un error al obtener los datos para cancelar la nc.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al obtener los datos para cancelar la nc.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function UpdateFechaVencimientoCompra(CveCompra As Integer, FechaVencimiento As Date, CveEmpresa As Integer) As Boolean Public Function UpdateFechaVencimientoCompra(CveCompra As Integer, FechaVencimiento As Date, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ComprasFechaVencimientoUpdate") DataAdapter("PA_Comp_ComprasFechaVencimientoUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
.Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al actualizar la fecha de vencimiento de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al actualizar la fecha de vencimiento de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function GetRepEvaluacionesProveedores(CveEmpresa As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, Evaluado As Integer) As Boolean Public Function GetRepEvaluacionesProveedores(CveEmpresa As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, Evaluado As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_RepEvaluacionesProveedoresGet") DataAdapter("PA_Comp_RepEvaluacionesProveedoresGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
.Add("@Evaluado", SqlDbType.Int).Value = Evaluado .Add("@Evaluado", SqlDbType.Int).Value = Evaluado
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al querer obtener el reporte de evaluaciones de proveedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al querer obtener el reporte de evaluaciones de proveedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_FletesComprasGet") DataAdapter("PA_Comp_FletesComprasGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveFlete", SqlDbType.Int).Value = CveFlete .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_FletesComprasAdd") DataAdapter("PA_Comp_FletesComprasAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveFlete", SqlDbType.Int).Value = CveFlete .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
.Add("@CveOC", SqlDbType.Int).Value = CveOC .Add("@CveOC", SqlDbType.Int).Value = CveOC
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
#Region "REPORTE PUE SIN PAGO" #Region "REPORTE PUE SIN PAGO"
Public Function GetPUESinPago(FI As DateTime, FF As DateTime, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean Public Function GetPUESinPago(FI As DateTime, FF As DateTime, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DataAdapter("PA_Comp_PUESinPagoGet", CommandType.StoredProcedure) DataAdapter("PA_Comp_PUESinPagoGet", CommandType.StoredProcedure)
@@ -3127,10 +3127,10 @@ Public Class ClsCompras
OnError("Ocurrió un error al obtener las compras con método de pago PUE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al obtener las compras con método de pago PUE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return retorno Return retorno
End Function End Function
#End Region #End Region
#Region "Reporte de REQ-OC-Compra-Inv" #Region "Reporte de REQ-OC-Compra-Inv"
Public Function GetRepReqOCCompraInv(FI As Date, FF As Date, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Public Function GetRepReqOCCompraInv(FI As Date, FF As Date, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ReqOCCompraInvGet") DataAdapter("PA_Comp_ReqOCCompraInvGet")
@@ -3151,9 +3151,9 @@ Public Class ClsCompras
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Reporte de Precios de Compras" #Region "Reporte de Precios de Compras"
Public Function GetRepComprasPrecios(CveProveedor As Integer, CveEmpresa As Integer) As Boolean Public Function GetRepComprasPrecios(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ComprasPreciosGet") DataAdapter("PA_Comp_ComprasPreciosGet")
@@ -3170,8 +3170,8 @@ Public Class ClsCompras
OnError("Ocurrió un error al obtener el reporte de Precios de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al obtener el reporte de Precios de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
End Class End Class

4
Compras/Compras.aspx.vb
View File

@@ -4489,7 +4489,7 @@ Partial Class Compras_Compras
CveConceptoContableAlmacen = 205 CveConceptoContableAlmacen = 205
End If End If
Else Else
CveConceptoContableAlmacen = 225 CveConceptoContableAlmacen = 225
End If End If
'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen 'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen
@@ -6747,7 +6747,7 @@ Partial Class Compras_Compras
End If End If
If UsuarioActual.CveEmpresa.Contiene(119) Then If UsuarioActual.CveEmpresa.Contiene(119) Then
Dim ContienePSNeteoBonif As Boolean = False Dim ContienePSNeteoBonif As Boolean = False
For Each Dr As DataRow In TmpDT.Rows For Each Dr As DataRow In TmpDT.Rows
If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.ToEntero = 11 Then 'clasificación de Bonificación, no se incluirá en el neteo If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.ToEntero = 11 Then 'clasificación de Bonificación, no se incluirá en el neteo

3
Inventarios/RepFletes.aspx
View File

@@ -43,7 +43,8 @@
</div> </div>
<div class="col-md-1" style="max-width: 100px;">Proveedor:</div> <div class="col-md-1" style="max-width: 100px;">Proveedor:</div>
<div class="col-sm-2"> <div class="col-sm-2">
<asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList> <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" Width="100%" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
<%--<asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>--%>
</div> </div>
<div class="col-md-1" style="max-width: 120px">Fecha Inicio:</div> <div class="col-md-1" style="max-width: 120px">Fecha Inicio:</div>
<div class="col-md-1"> <div class="col-md-1">

14
Inventarios/RepFletes.aspx.vb
View File

@@ -24,12 +24,18 @@ Partial Class Compras_RepFletes
End Sub End Sub
Private Sub InicializaValores() Private Sub InicializaValores()
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Seleccione"
DdlProveedores.SelectedValue = "-1"
DdlProveedores.ddl.AutoPostBack = True
TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString
TxtFechaF.Text = Date.Now.ToShortDateString TxtFechaF.Text = Date.Now.ToShortDateString
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) 'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind() 'DdlProveedor.DataBind()
DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) 'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
@@ -40,7 +46,7 @@ Partial Class Compras_RepFletes
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjInv As New ClsInventarios Dim ObjInv As New ClsInventarios
If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString
If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedor.SelectedValue.ToString.ToEntero, -1, -1, If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedores.SelectedValue.ToString.ToEntero, -1, -1,
TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero()) Then TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero()) Then
DtFletes = ObjInv.DtResultados DtFletes = ObjInv.DtResultados
End If End If