SMS Sub Especialidades, Genrar almacen a cliente en fnc 404 fnc 578

Ventas/ProductosServicios.aspx.vb

@@ -1664,7 +1664,9 @@ Partial Class ProductosyServicios
         End Try
 
         If Not TieneError Then
-            GuardaDatosCartPorte()
+            If Not GuardaDatosCartPorte(ObjProductosServicios.IniciaTransacSQL) Then
+                TieneError = True
+            End If
         End If
 
         If Not TieneError Then
@@ -3437,4 +3439,17 @@ Partial Class ProductosyServicios
 
     End Function
 
+    '    Private Function validaGuardadoCCP()
+
+
+    '        TxtPesoKg.Text.Trim, DdlMaterialPeligroso.SelectedValue, DdlEmbalaje.SelectedValue, TxtDimensiones.Text, DdlClaveSectorCOFEPRIS.SelectedValue,
+    'TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, TxtCondicionesTransporte.Text.Trim,
+    'TxtRegistroSanitarioAutorizacion.Text.Trim, TxtPermisoImportacion.Text.Trim, TxtFolioImportacionVUCEM.Text.Trim, TxtNumCAS.Text.Trim, TxtRazonSocialEmpImportacion.Text, TxtNumRegistroPlagCOFEPRIS.Text.Trim, TxtDatosFabricante.Text.Trim,
+    'TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text
+
+
+    '        Return False
+
+    '    End Function
+
 End Class