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

-- funcion comentada

Browse Source
This commit is contained in:
rrene
2024-04-08 13:52:15 -07:00
parent 645eb13930
commit a4d33a2e4b
1 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
App_Code/ClsPuntoVenta.vb
View File

@@ -243,29 +243,29 @@ Public Class ClsPuntoVenta
End Try End Try
Return Retorno Return Retorno
End Function End Function
'Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
' Dim Retorno As Boolean = False
Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean ' DataAdapter("PA_Vta_CuentaCorteGet")
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_CuentaCorteGet") ' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' .Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output
' End With
With SqlAdapter.SelectCommand.Parameters ' Try
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta ' SqlAdapter.Fill(Data)
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa ' CveCorte = Integer.Parse(SqlAdapter.SelectCommand.Parameters("@CveCorte").Value.ToString)
.Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output ' Retorno = True
End With ' Catch ex As Exception
' OnError("Ocurrió un error al obtener los cuenta de corte", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
' End Try
Try ' Return Retorno
SqlAdapter.Fill(Data) 'End Function
CveCorte = Integer.Parse(SqlAdapter.SelectCommand.Parameters("@CveCorte").Value.ToString)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los cuenta de corte", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1, Optional CveCorte As Integer = -1) As Boolean Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1, Optional CveCorte As Integer = -1) As Boolean