Correciones saldos inicales,Compras documentos relacionados

Ventas/ProductosServicios.aspx.vb

@@ -1316,6 +1316,12 @@ Partial Class ProductosyServicios
     End Sub
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
 
+
+        If DdlFraccionArancelaria.SelectedValue.ToEntero > 0 AndAlso TxtCodigo.Text.Trim.Length = 0 Then
+            Alert("El campo Numero de Parte / Código es requerido (al seleccionar una Fracción Arancelaria el campo Numero de Parte / Código se vuelve requerido).", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If DdlSATPS.txtValue.Value.ToEntero > 0 Then
             If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then ' si tiene activada la carta porte