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

10
Acarreos/AcarreosPreEstimacion.aspx.vb
View File

@@ -31,7 +31,7 @@ Partial Class Acarreos_AcarreosPreEstimacion
ObjAcar.IniciaTransacSQL()
For Each Gvr As GridViewRow In GvPreEstimacion.Rows
If CType(Gvr.FindControl("ChkRow"), System.Web.UI.WebControls.CheckBox).Checked = True Then
If Not ObjAcar.AddPreEstimacion(DdlNumContrato.SelectedValue, DdlTransportista.SelectedValue, TxtNumPreEstimacion.Text, TxtFechaPreEstimacion.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If Not ObjAcar.AddPreEstimacion(DdlNumContrato.SelectedValue.ToEntero, DdlTransportista.SelectedValue.ToEntero, TxtNumPreEstimacion.Text.ToEntero, TxtFechaPreEstimacion.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ErrorAdd = True
Exit For
End If
@@ -80,7 +80,7 @@ Partial Class Acarreos_AcarreosPreEstimacion
Private Sub CargaDdlNumContrato()
Dim ObjAcar As New ClsAcarreos
If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, -1) Then
If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, "-1") Then
DdlNumContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlNumContrato.DataSource = ObjAcar.DtResultados
DdlNumContrato.DataBind()
@@ -94,7 +94,7 @@ Partial Class Acarreos_AcarreosPreEstimacion
GvPreEstimacion.DataBind()
If Not DdlTransportista.SelectedValue = "-1" Then
Dim ObjAcar As New ClsAcarreos
If ObjAcar.GetAcarreosConcluidos(DdlTransportista.SelectedValue, UsuarioActual.CveEmpresa, DdlNumContrato.SelectedValue, 0, DdlMaterial.SelectedValue) Then
If ObjAcar.GetAcarreosConcluidos(DdlTransportista.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlNumContrato.SelectedValue.ToEntero, 0, DdlMaterial.SelectedValue.ToEntero) Then
GvPreEstimacion.DataSource = ObjAcar.DtResultados
GvPreEstimacion.DataBind()
End If
@@ -113,7 +113,7 @@ Partial Class Acarreos_AcarreosPreEstimacion
If Not DdlNumContrato.SelectedValue = "-1" Then
DdlTransportista.Items.Clear()
Dim ObjAcar As New ClsAcarreos
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1, DdlNumContrato.SelectedValue) Then
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1, DdlNumContrato.SelectedValue.ToEntero) Then
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlTransportista.DataSource = ObjAcar.DtResultados
DdlTransportista.DataBind()
@@ -131,7 +131,7 @@ Partial Class Acarreos_AcarreosPreEstimacion
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlMaterial.DataBind()
Dim ObjAcar As New ClsAcarreos
If ObjAcar.GetAcarreosMaterialVolumen(DdlNumContrato.SelectedValue, UsuarioActual.CveEmpresa, -1) Then
If ObjAcar.GetAcarreosMaterialVolumen(DdlNumContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Then
DdlMaterial.DataSource = ObjAcar.DtResultados
DdlMaterial.DataBind()
End If