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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-01-20 07:48:39 -07:00
parent 4c60ac8896
commit 1bf5d40c34
6 changed files with 166 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Inventarios/CatUnidades.aspx.vb
View File

@@ -95,6 +95,7 @@ Partial Class Inventarios_CatUnidades
TxtNumPolizaSeguroCarga.Text = ""
TxtLongitudCaja.Text = ""
TxtLineaTransportacion.Text = ""
TxtNumeroTrailer.Text = ""
TxtSCAC.Text = ""
TxtCAAT.Text = ""
ChkesRemolque.Checked = False
@@ -133,6 +134,7 @@ Partial Class Inventarios_CatUnidades
DdlTiposRemolque.SelectedValueExist(CveTipoRemolque)
TxtNumeroTrailer.Text = GvRow.DataKey("NumeroTrailer")
TxtLongitudCaja.Text = GvRow.DataKey("LongitudCaja")
TxtLineaTransportacion.Text = GvRow.DataKey("LineaTransportacion")
TxtSCAC.Text = GvRow.DataKey("SCAC")
@@ -187,15 +189,15 @@ Partial Class Inventarios_CatUnidades
Using ObjInventarios As New ClsInventarios
If CveCamion <= 0 Then
If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, 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) Then
If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, 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) Then
Alert("Unidad agregada correctamente")
Else
ErrorPrceso = True
End If
Else
If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, 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) Then
If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, 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) Then
Alert("Unidad actualizada correctamente")
Else
ErrorPrceso = True
@@ -228,7 +230,11 @@ Partial Class Inventarios_CatUnidades
DVNombreAseguradoraMedioAmbiente.Visible = True
DVNumPolizaSeguroMedioAmbient.Visible = True
DVLineaTransportacion.Visible = True
DVSCACCAAT.Visible = True
DVTiposRemolque.Visible = False
DVLongitudCaja.Visible = False
Else
DVAnio.Visible = False
DVConfigAuto.Visible = False
@@ -238,7 +244,11 @@ Partial Class Inventarios_CatUnidades
DVNombreAseguradoraMedioAmbiente.Visible = False
DVNumPolizaSeguroMedioAmbient.Visible = False
DVLineaTransportacion.Visible = False
DVSCACCAAT.Visible = False
DVTiposRemolque.Visible = True
DVLongitudCaja.Visible = True
End If