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

-- CP3.0 Activación peso bruto vehicular

Browse Source
This commit is contained in:
rrene
2023-12-13 19:38:14 -07:00
parent e2d1945990
commit 9eed8ad1dc
3 changed files with 37 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Inventarios/CatUnidades.aspx.vb
View File

@@ -179,11 +179,12 @@ Partial Class Inventarios_CatUnidades
TxtCAAT.Text = GvRow.DataKey("CAAT")
TxtMarca.Text = GvRow.DataKey("Marca")
TxtColor.Text = GvRow.DataKey("Color")
TxtPesoBrutoVehicular.Text = GvRow.DataKey("PesoBrutoVehicular")
ChkEstatus.Checked = If(Boolean.Parse(GvRow.DataKey("Estatus")), True, False)
DdlChoferAsignado.SelectedValueExist(GvRow.DataKey("CveChoferAsignado").ToEntero)
DdlRemolque1Asignado.SelectedValueExist(GvRow.DataKey("CveRemolque1Asignado").ToEntero)
DdlRemolque2Asignado.SelectedValueExist(GvRow.DataKey("CveRemolque2Asignado").ToEntero)
LblFechaIng.Text = GvRow.DataKey("FechaIng")
'ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
RdTipoUnidad.SelectedValue = GvRow.DataKey("CveTipoCamion")
@@ -235,14 +236,16 @@ Partial Class Inventarios_CatUnidades
If CveCamion <= 0 Then
If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario,
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text, CveChoferAsignado:=DdlChoferAsignado.SelectedValue.ToEntero, CveRemolque1Asignado:=DdlRemolque1Asignado.SelectedValue.ToEntero, CveRemolque2Asignado:=DdlRemolque2Asignado.SelectedValue.ToEntero) Then
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text,
ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text, CveChoferAsignado:=DdlChoferAsignado.SelectedValue.ToEntero, CveRemolque1Asignado:=DdlRemolque1Asignado.SelectedValue.ToEntero, CveRemolque2Asignado:=DdlRemolque2Asignado.SelectedValue.ToEntero, PesoBrutoVehicular:=TxtPesoBrutoVehicular.Text.ToDecimal) Then
Alert("Unidad agregada correctamente")
Else
ErrorPrceso = True
End If
Else
If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text, CveChoferAsignado:=DdlChoferAsignado.SelectedValue.ToEntero, CveRemolque1Asignado:=DdlRemolque1Asignado.SelectedValue.ToEntero, CveRemolque2Asignado:=DdlRemolque2Asignado.SelectedValue.ToEntero) Then
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text,
ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text, CveChoferAsignado:=DdlChoferAsignado.SelectedValue.ToEntero, CveRemolque1Asignado:=DdlRemolque1Asignado.SelectedValue.ToEntero, CveRemolque2Asignado:=DdlRemolque2Asignado.SelectedValue.ToEntero, PesoBrutoVehicular:=TxtPesoBrutoVehicular.Text.ToDecimal) Then
Alert("Unidad actualizada correctamente")
Else
ErrorPrceso = True