-- parametro de empresa en eliminar chofer

Acarreos/CatChoferes.aspx.vb

@@ -212,9 +212,11 @@ Partial Class Acarreos_CatChoferes
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         HdnID.Value = GvRow.DataKey("CveChofer")
         UpDatos.Update()
-        If ObjAcar.RemoveChofer(HdnID.Value) Then
+        If ObjAcar.RemoveChofer(HdnID.Value, UsuarioActual.CveEmpresa) Then
             CargaDatos()
             Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
+        Else
+            Alert("No se puede eliminar el chofer. verifique que no tenga movimientos registrados.", TipoMensaje.MsgError)
         End If
         ObjAcar.Dispose()
         UpDatos.Update()
@@ -312,7 +314,7 @@ Partial Class Acarreos_CatChoferes
         If CPTxt > 0 And CveColonia > 0 Then
             Dim CP As Integer = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=CveColonia).FiltroPrimeroValor("CP", "").ToEntero
             If CPTxt <> CP Then
-                Alert("El código postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
+                Alert("El código postal seleccionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
             End If
         End If
     End Sub