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

- quitar WT_Fletes

Browse Source
This commit is contained in:
rrene
2023-12-24 16:49:36 -07:00
parent 1424900bfa
commit f0f018a364
1 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
App_Code/ClsVentas.vb
View File

@@ -3850,24 +3850,24 @@ Public Class ClsVentas
#End Region
#Region " FLETES "
Public Function GetFletes(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_WT_Viajes")
'#Region " FLETES "
' Public Function GetFletes(CveEmpresa As Integer) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_WT_Viajes")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex As SqlException
Me.OnError("Ocurrió un error al intentar obtener los Fletes", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch Ex As SqlException
' Me.OnError("Ocurrió un error al intentar obtener los Fletes", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
' End Function
'#End Region
#Region "Metodos y Forma de Pago"