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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:03:35 -07:00
parent a9e785216f
commit 407256f079
13 changed files with 66 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Acarreos/RepAcarreos.aspx.vb
View File

@@ -121,7 +121,7 @@ Partial Class Acarreos_RepAcarreos
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
Dim ObjAcar As New ClsAcarreos()
If ObjAcar.GetRepAcarreo(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue, DdlTransportista.SelectedValue, DdlChofer.SelectedValue, DdlUnidad.SelectedValue, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue, DdlSubProyectoDestino.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then
If ObjAcar.GetRepAcarreo(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue.ToEntero, DdlTransportista.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, DdlUnidad.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, DdlSubProyectoDestino.SelectedValue.ToEntero, DdlMaterial.SelectedValue.ToEntero, DdlNumContrato.SelectedValue.ToEntero) Then
GvDatos.DataSource = ObjAcar.DtResultados
GvDatos.DataBind()
End If