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

-- reporte de corte. reclasif de clase

Browse Source
This commit is contained in:
rrene
2024-05-31 20:42:59 -07:00
parent 363d19eadb
commit 8b3257d7be
3 changed files with 115 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
App_Code/ClsPuntoVenta.vb
View File

@@ -228,36 +228,7 @@ Public Class ClsPuntoVenta
Return Retorno Return Retorno
End Function End Function
''' <summary>
''' Desglose del reporte de cortes, resumen e IVA
''' </summary>
''' <param name="CveCorte"></param>
''' <param name="CveSubProyecto"></param>
''' <param name="CveEmpresa"></param>
''' <param name="Opcion"></param>
''' <returns></returns>
Public Function GetVta_ReporteCortesDetalle(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Opcion As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ReporteCortesDetalleGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCorte", SqlDbType.Int).Value = CveCorte
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Opcion", SqlDbType.Int).Value = Opcion
End With
Try
Dataset = New DataSet()
SqlAdapter.Fill(Dataset)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los detalle de cortes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
'Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean 'Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
' Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False

137
App_Code/ClsVentas.vb
View File

@@ -3473,10 +3473,18 @@ Public Class ClsVentas
End Function End Function
Public Function GetCortesDetalleVentas(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Opcion As Integer) As Boolean ''' <summary>
''' Desglose del reporte de cortes, resumen e IVA
''' </summary>
''' <param name="CveCorte"></param>
''' <param name="CveSubProyecto"></param>
''' <param name="CveEmpresa"></param>
''' <param name="Opcion"></param>
''' <returns></returns>
Public Function GetVta_ReporteCortesDetalle(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Opcion As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_CortesDetalleVentasGet") DataAdapter("PA_Vta_ReporteCortesDetalleGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCorte", SqlDbType.Int).Value = CveCorte .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
@@ -3486,8 +3494,8 @@ Public Class ClsVentas
End With End With
Try Try
SqlAdapter.Fill(Data) Dataset = New DataSet()
SqlAdapter.Fill(Dataset)
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al obtener los detalle de cortes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al obtener los detalle de cortes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
@@ -3496,51 +3504,74 @@ Public Class ClsVentas
Return Retorno Return Retorno
End Function End Function
'Public Function GetCortesDetalleVentas(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Opcion As Integer) As Boolean
' Dim Retorno As Boolean = False
Public Function AddVtaCortesDetalles(CveCorte As Integer, CveMetodoPago As Integer, Importe As Double) As Boolean ' DataAdapter("PA_Vta_CortesDetalleVentasGet")
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_CortesDetallesAdd") ' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
' .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' .Add("@Opcion", SqlDbType.Int).Value = Opcion
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al obtener los detalle de cortes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
' End Try
' Return Retorno
'End Function
If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc 'Public Function AddVtaCortesDetalles(CveCorte As Integer, CveMetodoPago As Integer, Importe As Double) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Vta_CortesDetallesAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCorte", SqlDbType.Int).Value = CveCorte
.Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago
.Add("@Importe", SqlDbType.Money).Value = Importe
End With
Try ' If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As SqlException
OnError("Ocurrió un error al guardar el Detalle del Corte de Turno.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno ' With SqlAdapter.SelectCommand.Parameters
End Function ' .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
' .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago
' .Add("@Importe", SqlDbType.Money).Value = Importe
' End With
Public Function GetCortesDetalleVentasResumen(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean ' Try
Dim Retorno As Boolean = False ' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As SqlException
' OnError("Ocurrió un error al guardar el Detalle del Corte de Turno.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
' End Try
DataAdapter("PA_Vta_CortesDetalleVentasResumenGet") ' Return Retorno
'End Function
With SqlAdapter.SelectCommand.Parameters 'Public Function GetCortesDetalleVentasResumen(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
.Add("@CveCorte", SqlDbType.Int).Value = CveCorte ' Dim Retorno As Boolean = False
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try ' DataAdapter("PA_Vta_CortesDetalleVentasResumenGet")
SqlAdapter.Fill(Data)
Retorno = True ' With SqlAdapter.SelectCommand.Parameters
Catch ex As Exception ' .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
OnError("Ocurrió un error al obtener los detalle de cortes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ' .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
End Try ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' End With
Return Retorno ' Try
End Function ' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al obtener los detalle de cortes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
' End Try
' Return Retorno
'End Function
Public Function GetVta_MovimientosCajasReporte(CveCorte As Integer, TipoMovimiento As Integer) As Boolean Public Function GetVta_MovimientosCajasReporte(CveCorte As Integer, TipoMovimiento As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MovimientosCajasRepGet") DataAdapter("PA_Vta_MovimientosCajasRepGet")
@@ -3561,27 +3592,27 @@ Public Class ClsVentas
End Function End Function
Public Function GetCortesDetalleVentasResumenIVA(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean 'Public Function GetCortesDetalleVentasResumenIVA(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False
DataAdapter("PA_Vta_CortesDetalleVentasResumenIVAGet") ' DataAdapter("PA_Vta_CortesDetalleVentasResumenIVAGet")
With SqlAdapter.SelectCommand.Parameters ' With SqlAdapter.SelectCommand.Parameters
.Add("@CveCorte", SqlDbType.Int).Value = CveCorte ' .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto ' .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.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 los detalle de cortes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ' OnError("Ocurrió un error al obtener los detalle de cortes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try ' End Try
Return Retorno ' Return Retorno
End Function 'End Function
Public Function GetCortesDetalleDepositosCaja(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Public Function GetCortesDetalleDepositosCaja(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False

13
Bancos/RepCortes.aspx.vb
View File

@@ -213,9 +213,9 @@ Partial Class Bancos_RepCortes
' End If ' End If
'End If 'End If
Dim ObjPuntoVenta As New ClsPuntoVenta Dim ObjVentas As New ClsVentas
If ObjPuntoVenta.GetVta_ReporteCortesDetalle(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then If ObjVentas.GetVta_ReporteCortesDetalle(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
Dim DsDatos = ObjPuntoVenta.DataSetResultados.Copy() Dim DsDatos = ObjVentas.DataSetResultados.Copy()
If DsDatos IsNot Nothing Then If DsDatos IsNot Nothing Then
'DESGLOSE 'DESGLOSE
DtCortesVentas = DsDatos.Tables(0) DtCortesVentas = DsDatos.Tables(0)
@@ -235,12 +235,11 @@ Partial Class Bancos_RepCortes
End If End If
End If End If
If ObjPuntoVenta.GetVta_MovimientosCajasReporte(CveCorte, -1) Then If ObjVentas.GetVta_MovimientosCajasReporte(CveCorte, -1) Then
GvIngresosRetiros.DataSource = ObjPuntoVenta.DtResultados.Copy() GvIngresosRetiros.DataSource = ObjVentas.DtResultados.Copy()
End If End If
ObjPuntoVenta.Dispose()
Dim ObjVentas As New ClsVentas
If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso ObjVentas.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso ObjVentas.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvDep.DataSource = ObjVentas.DtResultados GvDep.DataSource = ObjVentas.DtResultados
If ObjVentas.DtResultados.Rows.Count > 0 Then If ObjVentas.DtResultados.Rows.Count > 0 Then