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

2020-02-26 08:54:22 -07:00
parent 3689b897c5 e34df69643
commit 7608dc2887
29 changed files with 2110 additions and 1104 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4396,7 +4396,7 @@ Partial Class Compras_Compras
                            'End If

                            'METODO DE PREPOLIZA DE ALMACEN
-                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
                                Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                If ImporteAlmacen > 0 Then
                                    If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -4412,8 +4412,6 @@ Partial Class Compras_Compras
                                            CveConceptoContableAlmacen = 205
                                        End If
                                    Else
-
-
                                        CveConceptoContableAlmacen = 225
                                    End If

@@ -6237,7 +6235,7 @@ Partial Class Compras_Compras
                                                            End If
                                                        Case 6 'Compra

-                                                            Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
+                                                            Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
                                                            Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"

                                                            If RBLPago.SelectedValue.ToEntero = 4 Then
@@ -7909,8 +7907,8 @@ Partial Class Compras_Compras
                                    'ACTUALIZA CVEFACTURA
                                    If Request("CveFactura") IsNot Nothing Then

-                                        If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
-                                            ErrorOC = True
+                                        If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
+                                            TieneError = True
                                        End If

                                        If UsuarioActual.Empresa.UsaAC Then
--- a/Compras/RepRembolsoComprobaciones.aspx
+++ b/Compras/RepRembolsoComprobaciones.aspx
@@ -187,7 +187,7 @@
                        <HeaderTemplate>Excedente</HeaderTemplate>
                        <ItemTemplate>
                            <asp:TextBox ID="TxtSaldoExcedente" Width="80px" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>&nbsp;
-                    <asp:RangeValidator ID="RVSaldoExcedente" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue='<%# Eval("Saldo", "{0:N2}") %>' ErrorMessage="*" ControlToValidate="TxtSaldoExcedente" Display="Dynamic"></asp:RangeValidator>
+                    <asp:RangeValidator ID="RVSaldoExcedente" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue='<%#If(Eval("Saldo").ToString().Contains("-"), "0", Eval("Saldo", "{0:N2}")) %>' ErrorMessage="*" ControlToValidate="TxtSaldoExcedente" Display="Dynamic"></asp:RangeValidator>
                        </ItemTemplate>
                    </asp:TemplateField>

--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/Compras/RepRembolsoComprobaciones.aspx.vb
@@ -161,64 +161,64 @@ Partial Class Compras_RepRembolsoComprobaciones
        Dim ObjComp As New ClsCompras()
        Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL)
        Dim ObjAC As ClsContPAQi = Nothing
-        If UsuarioActual.Empresa.UsaContabilidad Then
-            ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
-            ObjAC.IniciaTransacSQL()
-        End If
+
        Dim TieneError = False
        Dim CvePrePoliza As Integer = 0
        Dim IdPoliza As Integer = 0
        Dim Msg As New StringBuilder

-        CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, TxtFechaUnificacion.Text.Trim.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
+        Try
+            CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, TxtFechaUnificacion.Text.Trim.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)

-        If CvePrePoliza > 0 AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then
-            If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, DdlPersonal.SelectedValue.ToEntero, -1, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then
-                TieneError = True
-            End If
-        Else
-            If CvePrePoliza > 0 AndAlso DdlCajaChica.SelectedValue.ToEntero > 0 Then
-                If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, -1, DdlCajaChica.SelectedValue.ToEntero, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then
+            If CvePrePoliza > 0 AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then
+                If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, DdlPersonal.SelectedValue.ToEntero, -1, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then
                    TieneError = True
                End If
            Else
-                TieneError = True
-            End If
-
-        End If
-
-        If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
-            If ObjMov.ValorPolizaDescuadre > 0 Then
-                GuardaLogAD($"Compras/RepRembolsoComprobaciones - Unificar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                Alert(ObjMov.MensajePolizaDescuadre, TipoMensaje.MsgError)
-                TieneError = True
-            End If
-        End If
-
-        If Not TieneError Then
-            Msg.AppendFormat("Se unificaron todas las compras con éxito")
-        End If
-
-        If UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" AndAlso Not TieneError Then
-            If ObjAC Is Nothing Then
-                TieneError = True
-            End If
-
-            If Not TieneError Then
-                If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
-                    TieneError = True
-                    Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
+                If CvePrePoliza > 0 AndAlso DdlCajaChica.SelectedValue.ToEntero > 0 Then
+                    If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, -1, DdlCajaChica.SelectedValue.ToEntero, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then
+                        TieneError = True
+                    End If
                Else
-                    IdPoliza = ObjMov.ContaIdPoliza
+                    TieneError = True
+                End If
+
+            End If
+
+            If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                If ObjMov.ValorPolizaDescuadre > 0 Then
+                    GuardaLogAD($"Compras/RepRembolsoComprobaciones - Unificar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                    Alert(ObjMov.MensajePolizaDescuadre, TipoMensaje.MsgError)
+                    TieneError = True
                End If
            End If

-            If IdPoliza > 0 AndAlso Not TieneError Then
-                Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
+            If Not TieneError Then
+                Msg.AppendFormat("Se unificaron todas las compras con éxito")
            End If

-        End If
+            If UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" AndAlso Not TieneError Then
+                ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
+                ObjAC.IniciaTransacSQL()

+                If Not TieneError Then
+                    If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
+                        TieneError = True
+                        Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
+                    Else
+                        IdPoliza = ObjMov.ContaIdPoliza
+                    End If
+                End If
+
+                If IdPoliza > 0 AndAlso Not TieneError Then
+                    Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
+                End If
+
+            End If
+        Catch ex As Exception
+            TieneError = True
+            OnError("Ocurrió un error al unificar las compras", ex)
+        End Try

        If Not TieneError Then
            ObjComp.Commit()