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

SMS 2024-04-25

Browse Source
This commit is contained in:
rakcsle
2024-04-27 00:41:55 -07:00
parent a05b5ee7d9
commit 17428b548d
9 changed files with 169 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/CatProcedimientos.aspx.vb
View File

@@ -183,7 +183,7 @@ Partial Class Ventas_CatProcedimientos
Dim objVentas As New ClsVentas
Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
If objVentas.GetVentasMedicasIndicadoresRep(DdlGrupo.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveCliente, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
If objVentas.GetVentasMedicasIndicadoresRep(DdlGrupo.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveCliente, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Then
GvIndicadores.DataSource = objVentas.DtResultados
End If