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

19
Acarreos/RegistroContratosAcarreos.aspx.vb
View File

@@ -93,11 +93,10 @@ Partial Class Acarreos_ContratosAcarreos
DdlSubProyectoOrigen.SelectedValue = dr("CveSubProyectoOrigen").ToString
TxtDescripcion.Text = dr("Descripcion").ToString
TxtNumContrato.Text = dr("NumContrato").ToString
TxtFechaInicio.Text = dr("FechaInicio").ToString.ToDate
TxtFechaFin.Text = dr("FechaFin").ToString.ToDate
TxtFechaInicio.Text = dr("FechaInicio").ToString.ToDate.ToShortDateString
TxtFechaFin.Text = dr("FechaFin").ToString.ToDate.ToShortDateString
BtnAgregarContratoAcarreo.Text = "Guardar Cambios"
DTMaterialVolumen = GvMaterialVolumen.DataSource
DTTarifa = GvTarifa.DataSource
End If
ObjAcar.Dispose()
End If
@@ -252,31 +251,31 @@ Partial Class Acarreos_ContratosAcarreos
ErrorClasif = True
End If
If Not ObjAcar.UpdateAcarreosProyectos(CveAcarreoProyecto, DdlSubProyectoOrigen.SelectedValue, DdlSubProyectoDestino.SelectedValue, TxtFechaInicio.Text, TxtFechaFin.Text, TxtNumContrato.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario) Then
If Not ObjAcar.UpdateAcarreosProyectos(CveAcarreoProyecto, DdlSubProyectoOrigen.SelectedValue.ToEntero, DdlSubProyectoDestino.SelectedValue.ToEntero, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, TxtNumContrato.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario) Then
ErrorClasif = True
End If
For Each Gvr As GridViewRow In GvMaterialVolumen.Rows
If Not ObjAcar.AddAcarreosMaterialVolumen(Gvr.DataKey("CveMaterial").ToEntero, Gvr.DataKey("Volumen"), Gvr.DataKey("Presupuesto"), Gvr.DataKey("VolumenTipo"), CveAcarreoProyecto, Gvr.DataKey("CveUnidadMedida").ToEntero) Then
If Not ObjAcar.AddAcarreosMaterialVolumen(Gvr.DataKey("CveMaterial").ToEntero, Gvr.DataKey("Volumen").ToDouble, Gvr.DataKey("Presupuesto").ToDouble, Gvr.DataKey("VolumenTipo").ToDouble, CveAcarreoProyecto, Gvr.DataKey("CveUnidadMedida").ToEntero) Then
ErrorClasif = True
End If
Next
For Each Gvr As GridViewRow In GvTarifa.Rows
If Not ObjAcar.AddAcarreosTarifas(Gvr.DataKey("Tarifa"), Gvr.DataKey("DistanciaInicio"), Gvr.DataKey("DistanciaFin"), CveAcarreoProyecto, Gvr.DataKey("CveTransportista"), Gvr.DataKey("CveMaterial")) Then
If Not ObjAcar.AddAcarreosTarifas(Gvr.DataKey("Tarifa").ToDouble, Gvr.DataKey("DistanciaInicio").ToDouble, Gvr.DataKey("DistanciaFin").ToDouble, CveAcarreoProyecto, Gvr.DataKey("CveTransportista").ToEntero, Gvr.DataKey("CveMaterial").ToEntero) Then
ErrorClasif = True
End If
Next
Else
If Not ObjAcar.AddAcarreosProyectos(DdlSubProyectoOrigen.SelectedValue, DdlSubProyectoDestino.SelectedValue, TxtFechaInicio.Text, TxtFechaFin.Text, UsuarioActual.CveEmpresa, TxtNumContrato.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario) Then
If Not ObjAcar.AddAcarreosProyectos(DdlSubProyectoOrigen.SelectedValue.ToEntero, DdlSubProyectoDestino.SelectedValue.ToEntero, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, UsuarioActual.CveEmpresa, TxtNumContrato.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario) Then
ErrorClasif = True
End If
_CveAcarreoProyecto = ObjAcar._CveAcarreoProyecto
For Each Gvr As GridViewRow In GvMaterialVolumen.Rows
If Not ObjAcar.AddAcarreosMaterialVolumen(Gvr.DataKey("CveMaterial").ToEntero, Gvr.DataKey("Volumen"), Gvr.DataKey("Presupuesto"), Gvr.DataKey("VolumenTipo"), _CveAcarreoProyecto, Gvr.DataKey("CveUnidadMedida").ToEntero) Then
If Not ObjAcar.AddAcarreosMaterialVolumen(Gvr.DataKey("CveMaterial").ToEntero, Gvr.DataKey("Volumen").ToDouble, Gvr.DataKey("Presupuesto").ToDouble, Gvr.DataKey("VolumenTipo").ToDouble, _CveAcarreoProyecto, Gvr.DataKey("CveUnidadMedida").ToEntero) Then
ErrorClasif = True
End If
Next
For Each Gvr As GridViewRow In GvTarifa.Rows
If Not ObjAcar.AddAcarreosTarifas(Gvr.DataKey("Tarifa"), Gvr.DataKey("DistanciaInicio"), Gvr.DataKey("DistanciaFin"), _CveAcarreoProyecto, Gvr.DataKey("CveTransportista"), Gvr.DataKey("CveMaterial")) Then
If Not ObjAcar.AddAcarreosTarifas(Gvr.DataKey("Tarifa").ToDouble, Gvr.DataKey("DistanciaInicio").ToDouble, Gvr.DataKey("DistanciaFin").ToDouble, _CveAcarreoProyecto, Gvr.DataKey("CveTransportista").ToEntero, Gvr.DataKey("CveMaterial").ToEntero) Then
ErrorClasif = True
End If
Next