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

Ventas/Ventas.aspx.vb

@@ -5576,7 +5576,6 @@ Partial Class Ventas
                         HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString()
                     End If
 
-
                     TxtOrdenCompra.Text = DbRowVenta("OrdenCompra").ToString()
                     TxtOrdenCompra.Enabled = False
 
@@ -12179,6 +12178,11 @@ Partial Class Ventas
             ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            ObjFactura.Medico = DdlMedico.SelectedItem.Text
+            ObjFactura.Procedimiento = DdlProcedimiento.SelectedItem.Text
+        End If
+
         'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
         If (ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True AndAlso ObjFactura.TipodeComprobante = "Ingresos" AndAlso RemisionesLista.Count > 0) Then
             Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal
@@ -25673,7 +25677,7 @@ Partial Class Ventas
                 Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000
                 SegundosRespuesta = SegundosRespuesta.ToEntero
 
-                If SegundosRespuesta >= 5 Then
+                If SegundosRespuesta >= 5 AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Ant", "Dev", "Egs") Then
                     Alert($"Los servicios de cancelación del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastAdventencia, "")
                 End If
 
@@ -32535,11 +32539,11 @@ Partial Class Ventas
 
                 For Each Dr As DataRow In dtSeleccionadas.Rows
 
-                    If Dr("Medico").ToString().Trim().Length > 0 Then
+                    If Dr("Medico").ToString.Trim.Length > 0 Then
                         MensajeRemisionesMedicas.Append($"Dr. {Dr("Medico").ToString}{vbCrLf}")
                         EsRemisionMedica = True
                     End If
-                    If Dr("Medico").ToString().Trim().Length > 0 Then
+                    If Dr("Procedimiento").ToString.Trim.Length > 0 Then
                         MensajeRemisionesMedicas.Append($"Procedimiento {Dr("Procedimiento")}{vbCrLf}")
                         EsRemisionMedica = True
                     End If
@@ -32562,7 +32566,6 @@ Partial Class Ventas
                     TxtObsFact.Text = If(MensajeRemisiones.ToString().Length > 0, MensajeRemisiones.ToString().Substring(0, MensajeRemisiones.ToString().Length - 2), "")
                 End If
 
-
                 TxtOrdenCompra.Text = If(ObsOC.ToString().Length > 0, ObsOC.ToString().Substring(0, ObsOC.ToString().Length - 2), "")
                 TxtPedidoContrato.Text = If(ObsPedido.ToString().Length > 0, ObsPedido.ToString().Substring(0, ObsPedido.ToString().Length - 2), "")
                 TxtObsAlmacen.Text = If(ObsInv.ToString().Length > 0, ObsInv.ToString().Substring(0, ObsInv.ToString().Length - 2), "")