-

Ventas/ProductosServicios.aspx.vb

@@ -3503,6 +3503,7 @@ Partial Class ProductosyServicios
             DVNomQuimico.Visible = True
             DVNumCAS.Visible = True
         ElseIf DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 5 Then '  5 - Plaguicidas y fertilizantes
+            DVNombreIngredienteActivo.Visible = True
             DVNumRegistroPlagCOFEPRIS.Visible = True
             DVDatosFabricante.Visible = True
             DVDatosFormulador.Visible = True
@@ -3534,10 +3535,10 @@ Partial Class ProductosyServicios
         CamposStringCCP = CamposStringCCP + TxtDatosMaquilador.Text.Trim()
         CamposStringCCP = CamposStringCCP + TxtUsoAutorizado.Text.Trim()
 
-        If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtPesoKg.Text = "") Then
-            Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg son requeridos", TipoMensaje.MsgAdvertencia)
-            Respuesta = False
-        Else
+        'If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtPesoKg.Text = "") Then
+        '    Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg son requeridos", TipoMensaje.MsgAdvertencia)
+        '    Respuesta = False
+        'Else
 
         'If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 And DdlEmbalaje.SelectedValue.ToEntero > 0 And DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 And CamposStringCCP.Length > 0 Then
         Dim ObjPS As New ClsProductosServicios(transaccionSQL)
@@ -3548,7 +3549,7 @@ Partial Class ProductosyServicios
                 Respuesta = False
             End If
         ' End If 
-        End If
+        'End If
 
         Return Respuesta