Inventarios/CatUnidades.aspx.vb

@@ -19,11 +19,17 @@ Partial Class Inventarios_CatUnidades
     Private Sub Catalogos_CatPtoSubFunsion_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaCombos()
+            CargaDdlProveedor()
             CargaDatos()
         End If
     End Sub
 
 
+    Private Sub CargaDdlProveedor()
+        DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.DataBind()
+    End Sub
 
 
 
@@ -88,6 +94,7 @@ Partial Class Inventarios_CatUnidades
         TxtEspecificacionNuevo.Text = ""
         TxtEspecificacionNuevo.Text = ""
         DdlConfigAuto.SelectedValueExist(-1)
+        DdlProveedor.SelectedValueExist(-1)
 
         TxtAnio.Text = ""
         'TxtTipoPermisoSCT.Text = ""
@@ -137,8 +144,9 @@ Partial Class Inventarios_CatUnidades
         TxtNumPolizaSeguroMedioAmbiente.Text = GvRow.DataKey("NumPolizaSeguroMedioAmbiente")
         TxtNombreAseguradoraCarga.Text = GvRow.DataKey("NombreAseguradoraCarga")
         TxtNumPolizaSeguroCarga.Text = GvRow.DataKey("NumPolizaSeguroCarga")
-
         DdlTiposRemolque.SelectedValueExist(CveTipoRemolque)
+        DdlProveedor.SelectedValueExist(-1)
+        DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor"))
 
         TxtNumeroTrailer.Text = GvRow.DataKey("NumeroTrailer")
         TxtLongitudCaja.Text = GvRow.DataKey("LongitudCaja")
@@ -207,6 +215,9 @@ Partial Class Inventarios_CatUnidades
                 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) Then
                     Alert("Unidad actualizada correctamente")
+                    Using objbase = New ClsClaseBase()
+                        objbase.runQuerystr(String.Format("UPDATE Inv_Camiones SET CveProveedor={1} WHERE  CveCamion={0}", CveCamion, DdlProveedor.SelectedValue))
+                    End Using
                 Else
                     ErrorPrceso = True
                 End If
@@ -214,6 +225,8 @@ Partial Class Inventarios_CatUnidades
         End Using
 
 
+
+
         If Not ErrorPrceso Then
             GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
             CargaDatos()