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
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
Dim Retorno As Boolean = False
' DataAdapter("PA_Vta_CuentaCorteGet")
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
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output
End With
' Try
' SqlAdapter.Fill(Data)
' 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
Try
SqlAdapter.Fill(Data)
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
' 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