Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

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()
@@ -26963,6 +26991,7 @@ Partial Class Ventas
             Dim DtTemporal As DataTable = ObjMovtos.DtResultados.FiltraParametros("TipoDocto NOT IN ('RNC','Rem') AND Tipo = 'Act' AND CveVenta > 0", "Moneda, OrdenVencimiento, FechaVencimiento")
             GvCxC.DataSource = DtTemporal
         End If
+        If UsuarioActual.Empresa.Funcionalidad(713) <> "" Then GvCxC.Columns(6).Visible = True 'columna de IEPS
         ObjMovtos.Dispose()
         GvCxC.DataBind()
         UpAplicarNC.Update()
@@ -30070,7 +30099,7 @@ Partial Class Ventas
 
             If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
                 'debo de cambiar la columna que se tomaria como total, por si tiene impuestos, la NC estaria abarcandolos
-
+                CargaDdlNCPS()
                 DivConceptoNC.Visible = True
             Else
                 DivConceptoNC.Visible = False
@@ -36029,6 +36058,7 @@ Partial Class Ventas
 
         GvProductosProcedimiento.DataSource = Nothing
         GvProductosProcedimiento.DataBind()
+        DVGvProductosProcedimiento.Visible = False
 
         UpDvModalTipoVenta.Update()
 
@@ -36153,6 +36183,7 @@ Partial Class Ventas
         End If
 
         GvProductosProcedimiento.DataBind()
+        DVGvProductosProcedimiento.Visible = True
 
         UpDvModalTipoVenta.Update()
 
@@ -36236,11 +36267,7 @@ Partial Class Ventas
     '            End If
 
     '        End If
-    '    End If
-
-
-
-
+    '    End If 
     'End Sub
 
     Protected Sub LBNotaCredito_Click(sender As Object, e As EventArgs)