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

20
Acarreos/RepAcarreosDetalle.aspx.vb
View File

@@ -33,14 +33,14 @@ Partial Class Acarreos_RepAcarreosDetalle
CargaDdlTransportista()
CargaDdlMaterial()
CargaDdlNumContrato()
DdlAgrupador.SelectedValue = IfNull(Request("Grupo"), "1").ToString.ToEntero
DdlChofer.SelectedValue = IfNull(Request("CveChofer"), "-1").ToString.ToEntero
DdlSubProyectoOrigen.SelectedValue = IfNull(Request("CveSubProyectoOrigen"), "-1").ToString.ToEntero
DdlSubProyectoDestino.SelectedValue = IfNull(Request("CveSubProyectoDestino"), "-1").ToString.ToEntero
DdlTransportista.SelectedValue = IfNull(Request("CveTransportista"), "-1").ToString.ToEntero
DdlUnidad.SelectedValue = IfNull(Request("CveUnidad"), "-1").ToString.ToEntero
DdlMaterial.SelectedValue = IfNull(Request("CveMaterial"), "-1").ToString.ToEntero
DdlNumContrato.SelectedValue = IfNull(Request("CveAcarreoProyecto"), "-1").ToString.ToEntero
DdlAgrupador.SelectedValue = IfNull(Request("Grupo"), "1").ToString
DdlChofer.SelectedValue = IfNull(Request("CveChofer"), "-1").ToString
DdlSubProyectoOrigen.SelectedValue = IfNull(Request("CveSubProyectoOrigen"), "-1").ToString
DdlSubProyectoDestino.SelectedValue = IfNull(Request("CveSubProyectoDestino"), "-1").ToString
DdlTransportista.SelectedValue = IfNull(Request("CveTransportista"), "-1").ToString
DdlUnidad.SelectedValue = IfNull(Request("CveUnidad"), "-1").ToString
DdlMaterial.SelectedValue = IfNull(Request("CveMaterial"), "-1").ToString
DdlNumContrato.SelectedValue = IfNull(Request("CveAcarreoProyecto"), "-1").ToString
Gpo = IfNull(Request("Gpo"), "-1").ToString
txtFechaF.Text = IfNull(Request("FFinal"), "-1").ToString
txtFechaI.Text = IfNull(Request("FInicial"), "-1").ToString
@@ -62,7 +62,7 @@ Partial Class Acarreos_RepAcarreosDetalle
Private Sub CargaDatos()
Dim ObjAcar As New ClsAcarreos()
If ObjAcar.GetRepAcarreoDetalle(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue, DdlTransportista.SelectedValue, DdlChofer.SelectedValue, DdlUnidad.SelectedValue, UsuarioActual.CveEmpresa, Gpo, DdlAgrupador.SelectedValue, DdlSubProyectoDestino.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then
If ObjAcar.GetRepAcarreoDetalle(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue.ToEntero, DdlTransportista.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, DdlUnidad.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Gpo, DdlAgrupador.SelectedValue.ToEntero, DdlSubProyectoDestino.SelectedValue.ToEntero, DdlMaterial.SelectedValue.ToEntero, DdlNumContrato.SelectedValue.ToEntero) Then
GvDatos.DataSource = ObjAcar.DtResultados
GvDatos.DataBind()
Gpo = "-1"
@@ -143,7 +143,7 @@ Partial Class Acarreos_RepAcarreosDetalle
e.Row.FCLiteral("LtlUnidad").Text = e.Row.DBCampo("Unidad")
e.Row.FCLiteral("LtlVolumen").Text = e.Row.DBCampo("Volumen")
If e.Row.DBCampo("Folio") = "" Then
If DdlAgrupador.SelectedValue = 6 Or DdlAgrupador.SelectedValue = 7 Or DdlAgrupador.SelectedValue = 8 Then
If DdlAgrupador.SelectedValue = "6" Or DdlAgrupador.SelectedValue = "7" Or DdlAgrupador.SelectedValue = "8" Then
e.Row.FCLiteral("LtlUnidad").Text = e.Row.DBCampo("Gpo")
End If
e.Row.FCLiteral("LtlVolumen").Text = e.Row.DBCampo("TotalVolumen")