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

App_Code/ClsNominas.vb

@@ -1008,6 +1008,29 @@ Public Class ClsNominas
         Return Retorno
     End Function
 
+    Public Function GetNom_NominasDataXML(CveNomina As Integer, CvePersonal As Integer, CvePeriodo As Integer, CveNominaTipo As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Nom_NominasDataXMLGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("CveNomina", SqlDbType.Int).Value = CveNomina
+            .Add("CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+            .Add("CveNominaTipo", SqlDbType.Int).Value = CveNominaTipo
+            .Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener La Nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function AutorizaNom_Nominas(CvePersonal As Integer, CvePeriodo As Integer, Optional Autorizado As Boolean = True) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Nom_Nominas_Autoriza")

App_Code/ClsPaginas.vb

@@ -4652,7 +4652,7 @@ Public Class ClsPaginas
             bdir = RutaEmpresa.Replace($"{CveEmpresa}/", "")
         End If
         RutaReporte.Replace("/", "\")
-        If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper())  Then
+        If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then
             RutaReporte = String.Format("{0}{1}", bdir, RutaReporte)
         End If
         If EsProduccion Then
@@ -6720,6 +6720,10 @@ Public Class ClsPaginas
                 DTPercepciones = Nothing
                 DTDeducciones = Nothing
             End If
+            Dim SalarioDiario As String
+            Dim SDI As String
+            Dim Departamento As String
+            Dim Puesto As String
             'DATOS DEL EMPLEADO 
             If ObjPersonal.GetPersonal(CvePersonal, CveEmpresa) Then
                 RptParametro.Add(New ReportParameter("NoEmpleado", ObjPersonal.Codigo))
@@ -6729,39 +6733,49 @@ Public Class ClsPaginas
                 RptParametro.Add(New ReportParameter("Regimen", ObjPersonal.RegimenContratacion))
                 RptParametro.Add(New ReportParameter("RiesgoPuesto", ObjPersonal.RiesgoPuesto))
                 RptParametro.Add(New ReportParameter("NSS", ObjPersonal.NumeroSS))
-                RptParametro.Add(New ReportParameter("Departamento", ObjPersonal.Departamento))
+                Departamento = ObjPersonal.Departamento
-                RptParametro.Add(New ReportParameter("Puesto", ObjPersonal.Puesto.ToString()))
+                Puesto = ObjPersonal.Puesto.ToString()
                 RptParametro.Add(New ReportParameter("FechaIngreso", ObjPersonal.FechaIngreso.ToString("dd/MM/yyyy")))
                 RptParametro.Add(New ReportParameter("Contrato", ObjPersonal.TipoContrato.ToString))
                 RptParametro.Add(New ReportParameter("Jornada", ObjPersonal.Jornada))
                 RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo))
-                RptParametro.Add(New ReportParameter("SalarioBase", ObjPersonal.SalarioDiario.ToString))
-                RptParametro.Add(New ReportParameter("SalarioDiarioInt", ObjPersonal.SDI.ToString))
                 RptParametro.Add(New ReportParameter("Banco", ObjPersonal.Banco))
                 RptParametro.Add(New ReportParameter("CLABE", ObjPersonal.CLABE))
-
+                SalarioDiario = ObjPersonal.SalarioDiario.ToString
+                SDI = ObjPersonal.SDI.ToString
+                If ObjNomina.GetNom_NominasDataXML(CveNomina, CvePersonal, CvePeriodo, 1, CveEmpresa) AndAlso ObjNomina.DtResultados.Rows.Count > 0 Then
+                    Dim drow As DataRow = ObjNomina.DtResultados.Rows(0)
+                    SalarioDiario = drow("SalarioDiario").ToString()
+                    SDI = drow("NomRSalarioDiarioIntegrado").ToString()
+                    Departamento = drow("NomRDepartamento").ToString()
+                    Puesto = drow("NomRPuesto").ToString()
+                End If
+                RptParametro.Add(New ReportParameter("SalarioBase", SalarioDiario))
+                RptParametro.Add(New ReportParameter("SalarioDiarioInt", SDI))
+                RptParametro.Add(New ReportParameter("Departamento", Departamento))
+                RptParametro.Add(New ReportParameter("Puesto", Puesto))
                 'DATOS NOMINA
                 If ObjNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, 1, CveEmpresa) Then
-                    RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString))
+                        RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString))
-                    RptParametro.Add(New ReportParameter("Serie", ObjNomina.Serie))
+                        RptParametro.Add(New ReportParameter("Serie", ObjNomina.Serie))
-                    RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString))
+                        RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString))
-                    RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo))
+                        RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo))
-                    RptParametro.Add(New ReportParameter("DiasPagados", ObjNomina.DiasPagados.ToString))
+                        RptParametro.Add(New ReportParameter("DiasPagados", ObjNomina.DiasPagados.ToString))
-                    RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) '"""PUE"" (Pago en una sola exhibición)"
+                        RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) '"""PUE"" (Pago en una sola exhibición)"
-                    RptParametro.Add(New ReportParameter("FormaPago", """99"" (Por definir)"))
+                        RptParametro.Add(New ReportParameter("FormaPago", """99"" (Por definir)"))
-                    RptParametro.Add(New ReportParameter("Cantidad", "1"))
+                        RptParametro.Add(New ReportParameter("Cantidad", "1"))
-                    RptParametro.Add(New ReportParameter("Unidad", "ACT"))
+                        RptParametro.Add(New ReportParameter("Unidad", "ACT"))
-                    RptParametro.Add(New ReportParameter("Descripcion", "PAGO DE NÓMINA"))
+                        RptParametro.Add(New ReportParameter("Descripcion", "PAGO DE NÓMINA"))
-                    RptParametro.Add(New ReportParameter("Total", If(indemnizacion, ajusteindemnizacion, ObjNomina.Total - ajusteindemnizacion).ToString()))
+                        RptParametro.Add(New ReportParameter("Total", If(indemnizacion, ajusteindemnizacion, ObjNomina.Total - ajusteindemnizacion).ToString()))
-                    Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+                        Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-                    cQr = CBB.GenerarCBBBytes(UsuarioActual.Empresa.RFC, ObjPersonal.RFC, ObjNomina.Total.ToString().ToDecimal(), FolioFiscal)
+                        cQr = CBB.GenerarCBBBytes(UsuarioActual.Empresa.RFC, ObjPersonal.RFC, ObjNomina.Total.ToString().ToDecimal(), FolioFiscal)
-                    RptParametro.Add(New ReportParameter("ImporteLetra", ObjNomina.Total.ToString.ToDouble.Texto2Letras))
+                        RptParametro.Add(New ReportParameter("ImporteLetra", ObjNomina.Total.ToString.ToDouble.Texto2Letras))
-                    RptParametro.Add(New ReportParameter("Clave", "84111505"))
+                        RptParametro.Add(New ReportParameter("Clave", "84111505"))
+                    Else
+                        TieneError = True
+                    End If
                 Else
                     TieneError = True
-                End If
-            Else
-                TieneError = True
             End If
             If Not TieneError Then
                 If ObjNomina.GetPeriodos(-1, CveEmpresa, -1, -1, CvePeriodo) Then

App_Code/ClsVentas.vb

@@ -616,6 +616,24 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
+
+    Public Function UpdateVentaTC(CveVenta As Integer, CveEmpresa As Integer, TipoCambio As Decimal) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_VentasTipoCambioUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@TipoCambio", SqlDbType.Decimal).Value = TipoCambio
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el TC de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
     Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasFechaVencimientoUpdate")

Compras/Compras.aspx

@@ -1141,6 +1141,7 @@
                                     <div class="col-md-6 ">
                                         <asp:Button runat="server" ID="btnProrateo" Visible="false" Text="Prorratear" CommandArgument="Compras" CssClass="btn btn-success" />
                                         <asp:Button runat="server" ID="btnProrateo2" Visible="false" Text="Prorratear Nomina" CommandArgument="Nomina" CssClass="btn btn-success" />
+                                        <asp:Button runat="server" ID="BtnProrateoDeducible" Visible="false" Text="Prorratear Deducible" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" />
                                     </div>
                                 </div>
 

Compras/Compras.aspx.vb

@@ -1408,6 +1408,11 @@ Partial Class Compras_Compras
 
                 End If
 
+
+                If UsuarioActual.TienePermisoProceso(360) Then
+                    BtnProrateoDeducible.Visible = True
+                End If
+
             ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
 
                 ViewState("CveCompra") = Request("CveCompra")
@@ -20333,6 +20338,73 @@ Partial Class Compras_Compras
     End Sub
 
 
+    Private Sub ProratearDeducible()
+
+
+        ChkEsNoDeducible_CheckedChanged1(Nothing, Nothing)
+
+
+        Dim DTProtateo As DataTable = TmpDT.Clone
+
+
+        Dim Consec As Integer = 1
+
+        For Each dRowOriginal As DataRow In TmpDT.Rows
+
+
+
+            Dim dRow91_5 As DataRow = DTProtateo.NewRow
+            Dim dRow8_5 As DataRow = DTProtateo.NewRow
+
+            dRow91_5.ItemArray = dRowOriginal.ItemArray
+            dRow8_5.ItemArray = dRowOriginal.ItemArray
+
+            Dim Mul91_5 As Decimal = 0.915D
+            Dim Mul85 As Decimal = 0.085D
+
+
+            dRow91_5("Consec") = Consec
+            dRow91_5("PU") = dRow91_5("PU").ToString.ToDecimal * Mul91_5
+            dRow91_5("IVA") = dRow91_5("IVA").ToString.ToDecimal * Mul91_5
+            dRow91_5("RetIVA") = dRow91_5("RetIVA").ToString.ToDecimal * Mul91_5
+            dRow91_5("RetISR") = dRow91_5("RetISR").ToString.ToDecimal * Mul91_5
+            dRow91_5("IEPSPS") = dRow91_5("IEPSPS").ToString.ToDecimal * Mul91_5
+            dRow91_5("IEPSPSIVA") = dRow91_5("IEPSPSIVA").ToString.ToDecimal * Mul91_5
+            dRow91_5("Total") = dRow91_5("Total").ToString.ToDecimal * Mul91_5
+            dRow91_5("NoDeducible") = 1
+
+
+            dRow8_5("Consec") = Consec + 1
+            dRow8_5("PU") = dRow8_5("PU").ToString.ToDecimal * Mul85
+            dRow8_5("IVA") = dRow8_5("IVA").ToString.ToDecimal * Mul85
+            dRow8_5("RetIVA") = dRow8_5("RetIVA").ToString.ToDecimal * Mul85
+            dRow8_5("RetISR") = dRow8_5("RetISR").ToString.ToDecimal * Mul85
+            dRow8_5("IEPSPS") = dRow8_5("IEPSPS").ToString.ToDecimal * Mul85
+            dRow8_5("IEPSPSIVA") = dRow8_5("IEPSPSIVA").ToString.ToDecimal * Mul85
+            dRow8_5("Total") = dRow8_5("Total").ToString.ToDecimal * Mul85
+            dRow8_5("NoDeducible") = 0
+
+
+            DTProtateo.Rows.Add(dRow91_5)
+            DTProtateo.Rows.Add(dRow8_5)
+
+            Consec = Consec + 2
+
+        Next
+
+        DTProtateo.AcceptChanges()
+        TmpDT = DTProtateo
+
+        BtnProrateoDeducible.Visible = False
+
+        AddPS2(True)
+
+    End Sub
+
+    Private Sub BtnProrateoDeducible_Click(sender As Object, e As EventArgs) Handles BtnProrateoDeducible.Click
+        ProratearDeducible()
+    End Sub
+
 
 #End Region
 

Contabilidad2/Reportes/RepSituacionFinanciera.rdlc

@@ -3056,6 +3056,7 @@ Fields!ImporteActual.Value, 0), "DataSet1")</Value>
     <Variable Name="TotalPatrimonioHActual">
       <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" 
 OR Fields!Sup.Value = "CAPITAL CONTABLE"  
+OR Fields!Sup.Value = "Capital Contable"  
 OR Fields!Sup.Value = "Capital Social"
 OR Fields!Sup.Value = "Capital", 
 Fields!ImporteActual.Value, 0),"DataSet1")</Value>

Nomina/Nomina.aspx.cs

@@ -2776,8 +2776,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
         //NomAutorizado = gvrow.DataKey("NomAutorizado").ToUpper().Contiene(new string[] { "1", "TRUE" });
         SRCvePersonal = TxtCvePersonal.Text.ToEntero();
         showhideaccionesSR();
-        HypXmlSobreRecibo.Attributes.Add("onclick", string.Format("GETPDF({0},{1})", SRCvePersonal, CvePeriodoSeleccionado));
+        HypXmlSobreRecibo.Attributes.Add("onclick", string.Format("GETXML({0},{1})", SRCvePersonal, CvePeriodoSeleccionado));
-        HyppdfSobreRecibo.Attributes.Add("onclick", string.Format("GETXML({0},{1})", SRCvePersonal, CvePeriodoSeleccionado));
+        HyppdfSobreRecibo.Attributes.Add("onclick", string.Format("GETPDF({0},{1})", SRCvePersonal, CvePeriodoSeleccionado));
 
         DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
         string Nombre = "";

Ventas/Clientes.aspx.vb

@@ -3968,17 +3968,19 @@ Partial Class Clientes
             If ObjContabilidad.GetCuentasGlobales(UsuarioActual.CveEmpresa, 1) Then
                 Dim CvePadre As Integer = ObjContabilidad.DtResultados.FiltroPrimeroValor("CveCuenta").ToEntero
                 If CvePadre > 0 Then
-                    If ObjContabilidad.AddCuenta(CvePadre, CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, "A", 2, 1, CveCliente:=CveCliente, IdCompaq:=IdCuentaAltaCompaq) > 0 Then
+
-                        Respuesta = True
+                    Dim CvecuentaNueva As Integer = ObjContabilidad.AddCuenta(CvePadre, CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, "A", 2, 1, CveCliente:=CveCliente, IdCompaq:=IdCuentaAltaCompaq)
+
+                    If CvecuentaNueva > 0 Then
+                        If ObjContabilidad.AddCuentasAsignaciones(1, UsuarioActual.CveEmpresa, CvecuentaNueva, CveCliente:=CveCliente) Then
+                            Respuesta = True
+                        End If
                     End If
                 End If
             End If
 
-            'If ObjContabilidad.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, 7, -1, 1) Then
 
 
-            'End If
-
         End If
 
         Return Respuesta
@@ -4856,6 +4858,7 @@ Partial Class Clientes
 
 #Region "Cuentas/Equipos"
     Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs)
+
         HdnModalidad.Value = "I"
         DivCicloComercial.Visible = False
         TxtIdentificador.Text = ""

Ventas/Ventas.aspx.vb

@@ -33193,7 +33193,7 @@ Partial Class Ventas
             ErrorTrans = True
         End If
 
-        If Not ObjEventos.AddEventoBitacora($"Se actualizo la fecha de pago. Anterior:{FechaVencimientoAnterior} Actual:{TxtFechaPago.Text}.", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
+        If Not ObjEventos.AddEventoBitacora($"Se actualizó la fecha de pago. Anterior:{FechaVencimientoAnterior} Actual:{TxtFechaPago.Text}.", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
             ErrorTrans = True
         End If
 
@@ -34425,15 +34425,15 @@ Partial Class Ventas
             TFuenteRecaudacion.Visible = False
         End If
 
-        If UsuarioActual.CveRol = 1 Then
+        'If UsuarioActual.CveRol = 1 Then
-            If ChkEmitirComercioExterior.Checked Then
+        '    If ChkEmitirComercioExterior.Checked Then
-                TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString()
+        '        TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString()
-            Else
+        '    Else
-                TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
+        '        TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
-            End If
+        '    End If
 
-            UpPS.Update()
+        '    UpPS.Update()
-        End If
+        'End If
 
 
     End Sub
@@ -34574,6 +34574,13 @@ Partial Class Ventas
             DdlUsoCFDI.Enabled = True
         End If
 
+        If LblSeTimbro.Text = "No" AndAlso DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso ChkEmitirComercioExterior.Checked AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then
+            TxtTipoCambio.Enabled = True
+            TxtTipoCambio.ReadOnly = False
+
+            UpPS.Update()
+        End If
+
         UpParametros.Update()
         UPObservaciones.Update()
         UpFacturar.Update()
@@ -34581,18 +34588,42 @@ Partial Class Ventas
     End Sub
 
     Private Sub GuardarValoresEditados()
+        Dim TieneError As Boolean = False
+        Dim AplicaUpdateTC As Boolean = False
+
+        If LblSeTimbro.Text = "No" AndAlso DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso ChkEmitirComercioExterior.Checked AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then
+            AplicaUpdateTC = True
+        End If
+
         Dim ObjVentas As New ClsVentas()
-        If ObjVentas.UpdateObservacionesVenta(CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
+        ObjVentas.IniciaTransacSQL()
+
+        If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
                                               TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text) Then
-            CargaVenta()
+            TieneError = True
+        End If
+
+        If Not TieneError AndAlso AplicaUpdateTC Then
+            If Not ObjVentas.UpdateVentaTC(Me.CveVenta, UsuarioActual.CveEmpresa, TxtTipoCambio.Text.ToDecimal()) Then
+                TieneError = True
+            End If
+        End If
+
+        If Not TieneError Then
+            ObjVentas.Commit()
             BtnEditar.Text = "Editar"
-            Alert("Actualizado correctamente")
+
+            Dim Liga = $"document.location.href=""/Ventas/Ventas.aspx?CveVenta={Me.CveVenta}"";"
+            Alert("La venta se actualizó correctamente", TipoMensaje.MsgInformacion, Liga, TextoConfirmacion:="Aceptar", TextoSegundoBoton:=Nothing, JSBtn2:=Nothing, ShowCloseButton:=False)
+
             UpParametros.Update()
             UPObservaciones.Update()
             UpFacturar.Update()
+        Else
+            ObjVentas.RollBack()
         End If
-        ObjVentas.Dispose()
 
+        ObjVentas.Dispose()
         'REGENERAR EL PDF
         Try
             Dim CveEmpresaPDF As Integer = UsuarioActual.CveEmpresa
@@ -34600,8 +34631,6 @@ Partial Class Ventas
 
             Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
             RegenerarPDF(CveVenta, CveEmpresaPDF, CveUsuarioPDF, strURLHOST)
-            'Dim Hilo As New System.Threading.Thread(Sub() )
-            'Hilo.Start()
         Catch ex As Exception
             OnError("Ocurrió un error al regenerar el PDF", ex)
         End Try