Ventas ajustes viauales ventas medicas, Entradas salidas comportamientos modal agregar PS

Ventas/Ventas.aspx.vb

@@ -2599,9 +2599,13 @@ Partial Class Ventas
             CargaCuentasTerminal()
             'CargaDdlNCPS()
             CargarCamiones()
-            CargaMedicos()
-            CargaProcedimientos()
-            CargaDdlClientes()
+
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                CargaMedicos()
+                CargaProcedimientos()
+                CargaDdlClientes()
+            End If
+
 
 
 
@@ -5829,6 +5833,23 @@ Partial Class Ventas
             UpEstatus.Update()
             Retorno = True
 
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+
+                If DbRowVenta("CveMedico").ToString.ToEntero > 0 Then
+                    TrObsMedico1.Visible = True
+                    TrObsMedico2.Visible = True
+                    TrObsProcedimiento1.Visible = True
+                    TrObsProcedimiento2.Visible = True
+
+                    DdlMedicoObservaciones.SelectedValueExist(DbRowVenta("CveMedico").ToString)
+                    DdlProcedimientoObservaciones.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString)
+
+                End If
+
+            End If
+
+
+
         End If
         Return Retorno
     End Function
@@ -7785,6 +7806,10 @@ Partial Class Ventas
 
         DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlProcedimientoModal.DataBind()
+
+        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
+        DdlProcedimientoObservaciones.DataBind()
+
     End Sub
 
     Private Sub CargaMedicos()
@@ -7794,6 +7819,9 @@ Partial Class Ventas
         DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlMedicoModal.DataBind()
 
+        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
+        DdlMedicoObservaciones.DataBind()
+
     End Sub
 
     Private Sub CargaDdlClientes()
@@ -36007,6 +36035,7 @@ Partial Class Ventas
 
         GvProductosProcedimiento.DataSource = Nothing
         GvProductosProcedimiento.DataBind()
+        DVGvProductosProcedimiento.Visible = False
 
         UpDvModalTipoVenta.Update()
 
@@ -36131,6 +36160,7 @@ Partial Class Ventas
         End If
 
         GvProductosProcedimiento.DataBind()
+        DVGvProductosProcedimiento.Visible = True
 
         UpDvModalTipoVenta.Update()