Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsNominas.vb

@@ -2828,7 +2828,7 @@ Public Class ClsNominas
         Dim retorno As Boolean = False
 
         Try
-            DataAdapter("PA_RH_PersonalVacacionesGET", CommandType.StoredProcedure)
+            DataAdapter("PA_RH_PersonalVacacionesDesgloseDiasGet", CommandType.StoredProcedure)
             With SqlAdapter.SelectCommand.Parameters
                 .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
                 .Add("@CvePersonal", SqlDbType.Decimal).Value = CvePersonal

App_Code/Modelos.vb

@@ -5664,16 +5664,16 @@ Namespace Modelos
         ''' <param name="RealizarDevolucionAlmacen"></param>
         ''' <param name="ListaRemisionesCancelar"></param>
         ''' <returns></returns>
-        Public Function CancelarFactura(RealizarDevolucionAlmacen As Integer, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False, Optional AplicaCancelacionConPagos As Boolean = False, Optional GeneraIxCconPago As Boolean = False) As MCancelacionVentaMensaje
+        Public Function CancelarFactura(RealizarDevolucionAlmacen As Integer, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False, Optional AplicaCancelacionConPagos As Boolean = False, Optional GeneraIxCconPago As Boolean = False, Optional ForzarDevolucion As Boolean = False) As MCancelacionVentaMensaje
             'Comprobante emitido con errores sin relación
-            Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion, CancelarBoletos:=CancelarBoletos, AplicaCancelacionConPagos:=AplicaCancelacionConPagos, GeneraIxCconPago:=GeneraIxCconPago)
+            Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion, CancelarBoletos:=CancelarBoletos, AplicaCancelacionConPagos:=AplicaCancelacionConPagos, GeneraIxCconPago:=GeneraIxCconPago, ForzarDevolucion:=ForzarDevolucion)
         End Function
 
         Private Function CancelarVenta(ObjFactura As Modelos.Factura, UsuarioActual As Usuario, Optional EsRefacturacion As Boolean = False, Optional RealizarDevolucionAlmacen As Integer = 0,
                                       Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveEstatusFacturaAsignado As Integer = -1, Optional FechaCancelacion As String = "-1",
                                       Optional AcuseCancelacion As String = "", Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "",
                                       Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0,
-                                      Optional CancelarBoletos As Boolean = False, Optional AplicaCancelacionConPagos As Boolean = False, Optional GeneraIxCconPago As Boolean = False) As MCancelacionVentaMensaje
+                                      Optional CancelarBoletos As Boolean = False, Optional AplicaCancelacionConPagos As Boolean = False, Optional GeneraIxCconPago As Boolean = False, Optional ForzarDevolucion As Boolean = False) As MCancelacionVentaMensaje
             Dim Retorno As New MCancelacionVentaMensaje()
             Dim ErrorList As New List(Of String)
 
@@ -6185,11 +6185,16 @@ Namespace Modelos
 
                 End If
 
+                Dim MoverInventario As Boolean = False
+
+                If TieneAlmacen Then
+                    MoverInventario = (Not EsRefacturacion AndAlso (CveEstatus > 0 AndAlso Not CveEstatus.Contiene(20, 23)) AndAlso CveEstatusRefacturacion = 0) OrElse ForzarDevolucion
+                End If
+
                 'CUANDO LA CANCELACION ESTA EN PROCESO NO DEBE REALIZAR NADA DE ESTE PROCESO
-                If Not ErrorCancelar AndAlso Not EsRefacturacion AndAlso (CveEstatus > 0 AndAlso Not CveEstatus.Contiene(20, 23)) AndAlso CveEstatusRefacturacion = 0 Then
+                If Not ErrorCancelar AndAlso MoverInventario Then
 
                     'DEVOLUCION DE ALMACEN
-                    If Not ErrorCancelar AndAlso TieneAlmacen Then
                     Dim TieneSalida As Boolean = False
                     Dim DtInventario As DataTable = Nothing
                     Dim DtSalidas As DataTable = Nothing
@@ -6269,7 +6274,6 @@ Namespace Modelos
                     End If
 
                     If Not ErrorCancelar AndAlso TieneSalida Then
-
                         If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen = 1 Then
                             'REALIZA DEVOLUCION A LAS SALIDAS PENDIENTES
                             If Not ObjFactura.TipoDocto.Contiene("Rem", "Ped") Then
@@ -6696,10 +6700,12 @@ Namespace Modelos
                             End If
                         End If
                     End If
+
                 End If
 
 
-
+                'CUANDO LA CANCELACION ESTA EN PROCESO NO DEBE REALIZAR NADA DE ESTE PROCESO
+                If Not ErrorCancelar AndAlso (Not EsRefacturacion AndAlso (CveEstatus > 0 AndAlso Not CveEstatus.Contiene(20, 23)) AndAlso CveEstatusRefacturacion = 0) Then
                     'CANCELA CONTRATOS
                     If Not ErrorCancelar Then
                         If ObjFactura.CveContrato > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
@@ -6822,7 +6828,6 @@ Namespace Modelos
                             End If
                         End If
                     End If
-
                 End If
 
                 'MARCA LA VENTA PARA REALIZAR LA DEVOLUCION POSTERIORMENTE

Ventas/PVCobranza.aspx

@@ -1282,9 +1282,9 @@
         let TipoAnticipo = $('#<%=  DdlTipoAmortizacionAnticipo.ClientID  %>').val();
 
         //si es con.nc,es.el.total
-        let Total = ToDouble($get("C_LtlSaldo").value);
+        let Total = ToDouble($get("C_LtlSaldo").value.replace(",",""));
 
-        let SaldoCompra = parseFloat(parseFloat($get("C_LtlSaldo").value).toFixed(2));
+        let SaldoCompra = parseFloat(parseFloat($get("C_LtlSaldo").value.replace(",", "")).toFixed(2));
 
         if (t.checked) {
 
@@ -1319,13 +1319,13 @@
 
     function FnCambiaAnt(chk, txt, saldo) {
 
-        let Total = ToDouble($get("C_LtlSaldo").value);// ToDouble($get('TxtSubTotal').value);
+        let Total = ToDouble($get("C_LtlSaldo").value.replace(",", ""));// ToDouble($get('TxtSubTotal').value);
 
         let TipoAnticipo = $('#<%=  DdlTipoAmortizacionAnticipo.ClientID  %>').val();
         let importeTxt = parseFloat(txt.value.replace(/,/g, ''));
 
         if (TipoAnticipo == '4') {
-            Total = ToDouble($get("C_LtlSaldo").value);
+            Total = ToDouble($get("C_LtlSaldo").value.replace(",", ""));
         }
 
         if (isNaN(importeTxt)) {

Ventas/PVCobranza.aspx.vb

@@ -659,8 +659,10 @@ Partial Class Ventas_PVCobranza
                 Dim msBuild As New StringBuilder()
                 Dim MsgTimbrado As String = ""
 
+                Dim DebeTimbrar As Boolean = False
+
                 'SI SE GENERO FACTURA DE INGRESO, TIMBRARLA DESPUES DE REALIZAR EL PAGO
-                If respFactura IsNot Nothing Then
+                If DebeTimbrar AndAlso respFactura IsNot Nothing Then
                     'VERIFICA SI SE GENERO NC
                     If respNC IsNot Nothing Then
                         AjustarTimbre(respFactura.Factura, respNC.Factura)
@@ -758,7 +760,9 @@ Partial Class Ventas_PVCobranza
 
     Private Function GenerarFactura(ByRef VentaRemision As Venta, ByRef ObjVentas As ClsVentas, ByRef ObjClientes As ClsClientes) As Modelos.Factura.MMensajeFactura
         Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing
+        Dim SbAlert As New StringBuilder()
 
+        Try
             Dim DtRemisiones As New DataTable
             DtRemisiones.Columns.Add(New DataColumn("CveVenta", GetType(Integer)))
             DtRemisiones.Columns.Add(New DataColumn("SerieFolio", GetType(String)))
@@ -872,9 +876,6 @@ Partial Class Ventas_PVCobranza
                 ObjFactura.DtAnticiposAplicados = DtAnticipos
             End If
 
-        Dim SbAlert As New StringBuilder()
-
-        Try
             Retorno = ObjFactura.EmitirFactura(False, Transac:=ObjVentas.IniciaTransacSQL(), Modulo:="Cobranza/GuardarVenta", MostrarURL:=True)
             Retorno.Factura = ObjFactura
 
@@ -944,6 +945,9 @@ Partial Class Ventas_PVCobranza
 
     Private Function GenerarNC(ByRef Venta As Venta, ByRef ObjVentas As ClsVentas) As Modelos.Factura.MMensajeFactura
         Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing
+        Dim SbAlert As New StringBuilder()
+
+        Try
             Dim ObjNC = Modelos.Factura.CrearVentaNueva(UsuarioActual, Venta.CveSubProyecto, Venta.CveCliente, Venta.CveMoneda, "Egs")
 
             Dim Total As Decimal = TxtNCDev.Text.ToDecimal()
@@ -1016,9 +1020,10 @@ Partial Class Ventas_PVCobranza
 
             ObjNC.PreparaTimbre()
 
-        Dim SbAlert As New StringBuilder()
+            ObjNC.CveFormaPago33 = 21 'Aplicación de anticipos
+            ObjNC.CveMetodoPago33 = 1
+            ObjNC.CveMetodoPago = 1
 
-        Try
             Retorno = ObjNC.EmitirFactura(False, Transac:=ObjVentas.IniciaTransacSQL(), Modulo:="Cobranza/GuardarVenta", MostrarURL:=True)
             Retorno.Factura = ObjNC
 

Ventas/Ventas.aspx.vb

@@ -7805,6 +7805,10 @@ Partial Class Ventas
                                     DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
                                 End If
                                 DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
+
+                                If (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then
+                                    BtnsFacturar.Visible = False
+                                End If
                             End If
 
                             Dim Bloqueo As Boolean = False
@@ -26673,7 +26677,13 @@ Partial Class Ventas
                         GenerarIxC = ChkGeneraIxC.Checked
                     End If
 
-                    resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos, GeneraIxCconPago:=GenerarIxC)
+                    Dim ForzarDevolucion As Boolean = False
+
+                    If ChkDevAlm.Checked AndAlso UsuarioActual.CveEmpresa = 189 Then
+                        ForzarDevolucion = True
+                    End If
+
+                    resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos, GeneraIxCconPago:=GenerarIxC, ForzarDevolucion:=ForzarDevolucion)
                     strMensaje.Append(resp.Mensaje)
                     Dim DtBonificaciones As DataTable = Nothing