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

tipopermisoSCT

Browse Source
This commit is contained in:
rrene
2021-10-05 08:26:18 -07:00
parent c12e0d1b82
commit 814f51d8c5
3 changed files with 21 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Inventarios/CatUnidades.aspx.vb
View File

@@ -48,9 +48,13 @@ Partial Class Inventarios_CatUnidades
If ObjGral.GetCartaPorteConfigAutoTransportes() Then
DdlConfigAuto.DataSource = ObjGral.DtResultados
End If
If ObjGral.GetCartaPorteTipoPermisoSCT() Then
DdlTipoPermisoSCT.DataSource = ObjGral.DtResultados
End If
End Using
DdlConfigAuto.DataBind()
DdlTipoPermisoSCT.DataBind()
UpModalUnidades.Update()
@@ -69,7 +73,7 @@ Partial Class Inventarios_CatUnidades
DdlConfigAuto.SelectedValueExist(-1)
TxtAnio.Text = ""
TxtTipoPermisoSCT.Text = ""
'TxtTipoPermisoSCT.Text = ""
TxtNumermisoSCT.Text = ""
TxtNombreAseguradora.Text = ""
TxtNumPolizaSeguro.Text = ""
@@ -94,7 +98,7 @@ Partial Class Inventarios_CatUnidades
DdlConfigAuto.SelectedValueExist(GvRow.DataKey("ConfigCartaPorte"))
TxtAnio.Text = GvRow.DataKey("Anio")
TxtTipoPermisoSCT.Text = GvRow.DataKey("TipoPermisoSCT")
DdlTipoPermisoSCT.SelectedValueExist(GvRow.DataKey("CveTipoPermisoSCT"))
TxtNumermisoSCT.Text = GvRow.DataKey("NumPermisoSCT")
TxtNombreAseguradora.Text = GvRow.DataKey("NombreAseguradora")
TxtNumPolizaSeguro.Text = GvRow.DataKey("NumPolizaSeguro")
@@ -140,13 +144,13 @@ Partial Class Inventarios_CatUnidades
Dim ObjInventarios As New ClsInventarios
If CveCamion <= 0 Then
If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), TxtTipoPermisoSCT.Text, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario) 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) Then
Alert("Unidad agregada correctamente")
Else
ErrorPrceso = True
End If
Else
If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), TxtTipoPermisoSCT.Text, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) 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) Then
Alert("Unidad actualizada correctamente")
Else
ErrorPrceso = True