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

Ventas/Ventas.aspx.vb

@@ -9,6 +9,7 @@ Imports System.Diagnostics
 Imports System.IO
 Imports System.Net.Http
 Imports System.Security.Cryptography.X509Certificates
+Imports System.ServiceModel.Security
 Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
 Imports ADSNetLibrary.SIGAPI.Services.CRM
 Imports ADSTimbrado
@@ -5062,6 +5063,10 @@ Partial Class Ventas
                                     '        End If
                                     '    End If
                                     'End If
+                                    'si utiliza cortes, y cajas, no permitir cancelar de días anteriores
+                                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso DbRowVenta("Fecha").ToString.ToDate.ToShortDateString.ToDate < Now.ToShortDateString.ToDate Then
+                                        LbCancelarDocumento.Visible = False
+                                    End If
                                 End If
 
                             End If
@@ -22633,6 +22638,7 @@ Partial Class Ventas
             DdlProcedimiento.Enabled = True
             TxtPaciente.Enabled = True
             TxtEpisodio.Enabled = True
+            TxtFolioRemision.Enabled = True
         End If
 
 
@@ -22812,6 +22818,7 @@ Partial Class Ventas
                 FechaParaSurtir = TxtFechaOS.Text.Replace(",", "").ToDateTime()
             End If
 
+
             If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
                                           UsuarioActual.CveEmpresa, CveVenta,
                                           Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
@@ -22819,7 +22826,7 @@ Partial Class Ventas
                                           CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
                                           OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
                                           CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero,
-                                          FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveCondicionEntrega:=DdlFormaEntrega.SelectedValue.ToEntero()) Then
+                                          FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveCondicionEntrega:=DdlFormaEntrega.SelectedValue.ToEntero(), FolioRemision:=TxtFolioRemision.Text.Trim) Then
                 OcurrioError = True
             End If