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

Compras/Compras.aspx.vb

@@ -13,6 +13,9 @@ Imports MoreLinq
 Imports System.Data.SqlClient
 Imports ClsPaginas
 Imports System.Activities.Expressions
+Imports Microsoft.Data.Edm.Expressions
+Imports Telerik.Web.UI
+Imports DocumentFormat.OpenXml.Math
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -3549,7 +3552,7 @@ Partial Class Compras_Compras
 
                 ViewState("CveProveedor") = ObjProveedor.CveProveedor
                 ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor
-				RFCProveedor = ObjProveedor.RFC
+                RFCProveedor = ObjProveedor.RFC
                 If ObjProveedor.CveTipoProveedor = 2 Then
                     LblProveedor.Text = "Acreedor:"
                 Else
@@ -8693,10 +8696,6 @@ Partial Class Compras_Compras
         Next
 
 
-        'If Not validaNumeroReembolso() Then
-        '    Exit Sub
-        'End If
-
         Dim ObjCompra As New ClsCompras
         Dim ObjProveedores As New ClsCompProveedores(ObjCompra.IniciaTransacSQL())
         Dim ObjInventario As New ClsInventarios(ObjCompra.IniciaTransacSQL)
@@ -9240,6 +9239,9 @@ Partial Class Compras_Compras
 
             End If
 
+            If Retorno AndAlso Not validaNumeroReembolso(ObjCompra.IniciaTransacSQL()) Then
+                Retorno = False
+            End If
 
         Catch ex As Exception
             Alert("Ocurrió un error al actualizar la compra", TipoMensaje.MsgError)
@@ -9248,6 +9250,9 @@ Partial Class Compras_Compras
 
 
         Finally
+
+
+
             If Retorno Then
                 If ObjContabilidad.MensajePolizaDescuadre IsNot Nothing AndAlso ObjContabilidad.MensajePolizaDescuadre.ToString <> "" Then
                     Alert(ObjContabilidad.MensajePolizaDescuadre.ToString)
@@ -9290,12 +9295,109 @@ Partial Class Compras_Compras
     End Sub
 
 
-    Private Function validaNumeroReembolso() As Boolean
+    Private Function validaNumeroReembolso(transaccionSql As SqlTransaction) As Boolean
 
-        If NumeroReembolsoOriginal <> TxtNumeroReembolso.Text Then
+
+        Dim objCompras As New ClsCompras(transaccionSql)
+        Dim objConta As New ClsContabilidad(transaccionSql)
+
+
+        Dim tienePagoContabilizado As Boolean = False
+        Dim ErrorProceso As Boolean = False
+
+        Dim CvePrePolizaReembolsoActual As Integer = CvePrePoliza
+        Dim CvePrePolizaReembolsoNuevo As Integer = -1
+
+        If TxtRembolsoNumero.Text.Trim.Length > 0 Then
+
+            Dim CvePersonalVal As Integer = -1
+            Dim CveCajaChicaVal As Integer = -1
+
+            If RblRembolso.SelectedValue.ToEntero = 1 Then
+                CvePersonalVal = DdlRembolsoPersonal.SelectedValue.ToEntero
+            Else
+                CveCajaChicaVal = DdlRembolsoCajaChica.SelectedValue.ToEntero
+            End If
+
+            If objCompras.GetComprobacion(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
+
+                If objCompras.DtResultados.Rows.Count > 0 Then
+                    CvePrePolizaReembolsoNuevo = objCompras.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
+                Else
+
+                    Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text)
+
+                    tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim)
+
+                    CvePrePolizaReembolsoNuevo = objConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                    If Not objCompras.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePrePolizaReembolsoNuevo, UsuarioActual.CveEmpresa) > 0 Then
+                        ErrorProceso = True
+                    End If
+
+
+                End If
+            End If
+
+
+            If NumeroReembolsoOriginal = "" And TxtRembolsoNumero.Text.Trim.Length > 0 Then
+
+
+                If objCompras.GetComprobacionPagosContabilizados(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
+
+                    If objCompras.DtResultados IsNot Nothing AndAlso objCompras.DtResultados.Rows.Count > 0 Then
+                        tienePagoContabilizado = True
+                    End If
+
+                    If tienePagoContabilizado Then
+                        Alert($"No se puede actualizar el número de reembolso {TxtRembolsoNumero.Text},  ya tiene pagos contabilizados.", TipoMensaje.MsgAdvertencia)
+                        Return False
+                    End If
+
+
+                    If objConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+
+                        Dim FolioPoliza As Integer = objConta.DtResultados.Rows(0)("FolioPoliza").ToString.ToEntero
+
+                        If FolioPoliza > 0 Then
+                            If Not objConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then
+                                ErrorProceso = True
+                            End If
+                        End If
+
+                    End If
+
+
+                Else
+                    ErrorProceso = True
+                End If
+
+
+
+            ElseIf NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length > 0 Then
+                'cambiar de  prepoliza la compra  actual, de la prepoliza  actual a la nueva
+                If Not objConta.PrePolizaCompraCambiaReembolso(CvePrePolizaReembolsoNuevo, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 1) Then
+                    ErrorProceso = True
+                End If
+            End If
+
+
+        Else
+
+            If NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length = 0 Then
+                'Actualizar PrePoliza Actual de Donde CveCompra = CveCompra  poner CvePrePolizaOriginal
+                If Not objConta.PrePolizaCompraCambiaReembolso(-1, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 2) Then
+                    ErrorProceso = True
+                End If
+            End If
 
         End If
 
+
+
+
+        Return If(ErrorProceso, False, True)
+
     End Function
 
     Private Sub MandaCorreoActualizacionDetalle()
@@ -10785,7 +10887,7 @@ Partial Class Compras_Compras
         If ChkConsignacion.Checked Then
         End If
 
-        UpINV.Update()
+        UpInv.Update()
 
     End Sub
 
@@ -11611,6 +11713,8 @@ Partial Class Compras_Compras
 #Region "  AJUSTA IMPORTES  "
     Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
 
+
+
         If ImporteAjuste = 0 Then Exit Sub
 
         Dim Amortizacion As Decimal = 0
@@ -17322,18 +17426,18 @@ Partial Class Compras_Compras
             End If
         End If
 
-        Select Case Modalidad
-            Case "A"
-                If Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> TmpDT.MAX("IVAPorcentaje").ToDouble And TmpDT.MAX("IVAPorcentaje").ToDouble <> 0 And Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> 0 And TmpDT.Rows.Count > 0 Then
-                    Alert("No puede haber dos tipos de IVA en la compra.", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
-                End If
-            Case "U"
-                If Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> TmpDT.FiltraParametros($"Consec <> {Index}").MAX("IVAPorcentaje").ToDouble And TmpDT.FiltraParametros($"Consec <> {Index}").MAX("IVAPorcentaje").ToDouble <> 0 And Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> 0 And TmpDT.FiltraParametros($"Consec <> {Index}").Rows.Count > 0 Then
-                    Alert("No puede haber dos tipos de IVA en la compra.", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
-                End If
-        End Select
+        'Select Case Modalidad
+        '    Case "A"
+        '        If Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> TmpDT.MAX("IVAPorcentaje").ToDouble And TmpDT.MAX("IVAPorcentaje").ToDouble <> 0 And Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> 0 And TmpDT.Rows.Count > 0 Then
+        '            Alert("No puede haber dos tipos de IVA en la compra.", TipoMensaje.MsgAdvertencia)
+        '            Exit Sub
+        '        End If
+        '    Case "U"
+        '        If Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> TmpDT.FiltraParametros($"Consec <> {Index}").MAX("IVAPorcentaje").ToDouble And TmpDT.FiltraParametros($"Consec <> {Index}").MAX("IVAPorcentaje").ToDouble <> 0 And Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> 0 And TmpDT.FiltraParametros($"Consec <> {Index}").Rows.Count > 0 Then
+        '            Alert("No puede haber dos tipos de IVA en la compra.", TipoMensaje.MsgAdvertencia)
+        '            Exit Sub
+        '        End If
+        'End Select
 
 
         Dim Total As Decimal = (TxtCantidad.Text.ToDecimal * TxtPrecio.Text.ToDecimal) - TxtDescuentoModal.Text.ToDecimal

Compras/eFacturas.aspx

@@ -69,9 +69,9 @@
             <li>                
                  <asp:LinkButton ID="LnkShowSolicitudes" OnClick="LnkShowSolicitudes_Click" runat="server"> <i class="fa fa-external-link"></i> Solicitudes SAT</asp:LinkButton>
             </li>
-            <li>
+            <%--<li>
                 <asp:LinkButton ID="LnkBitacoraFacturas" runat="server" OnClick="LnkBitacoraFacturas_Click"><i class="fa fa-book" ></i> Bitácora Facturas</asp:LinkButton>
-            </li>
+            </li>--%>
             <li>
                 <asp:LinkButton ID="LnkVinculacionMasivaComplementos" runat="server" OnClick="LnkVinculacionMasivaComplementos_Click" Visible ="false" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea realizar la vinculación masiva de complementos?" data-btn-ok-label="si"><i class="fa fa-tasks" ></i> Vinculación Masiva Complementos</asp:LinkButton>
             </li>
@@ -1360,7 +1360,7 @@
 
                                     <div class="row">
                                         <div class="col-md-12">
-                                            <asp:GridView ID="GVSolicitudesNominas" runat="server" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="False" OnRowDataBound="GVSolicitudesNominas_RowDataBound"
+                                            <asp:GridView ID="GVSolicitudesHistorial" runat="server" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="False" OnRowDataBound="GVSolicitudesHistorial_RowDataBound"
                                                 ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
                                                 DataKeyNames="CveSolicitudDetalle,CveSolicitud,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa,ArchivoXML,Folio,CveTipoSolicitud,TipoDescargaStr">
                                                 <Columns>