From 56f4f98e6d059d069731cd2e3ee3d519f5a0780b Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 17 Aug 2024 01:44:10 -0700
Subject: [PATCH] =?UTF-8?q?OC=20Grupo=20d=C3=ADaz=20correciones?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsOC.vb       |  2 ++
 Compras/Compras.aspx.vb | 32 ++++++++++++++++++++++----------
 OC/OC.aspx              |  7 ++++---
 OC/OC.aspx.vb           | 29 +++++++++++++++++++++++++----
 4 files changed, 53 insertions(+), 17 deletions(-)

diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb
index 08a417153..a9083317b 100644
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -30,6 +30,7 @@ Public Class ClsOC
     Public Property CveOrdenCompra As Integer
     Public Property CveOrdenCompraDetalle As Integer
     Public Property Folio As Integer
+    Public Property SerieFolio As String = ""
     Public Property Serie As String = ""
     Public Property CveIEAnticipo As Integer
     Public Property CveProveedorAnticipo As Integer
@@ -609,6 +610,7 @@ Public Class ClsOC
                 Dim dr As DataRow = Data.Rows(0)
                 _CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero
                 _Folio = dr("Folio").ToString.ToEntero
+                _SerieFolio = dr("SerieFolio").ToString
                 _Serie = dr("Serie").ToString
                 _CveIEAnticipo = dr("CveIEAnticipo").ToString.ToEntero
                 _FolioIEAnticipo = dr("FolioIEAnticipo").ToString.ToEntero
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 74017a021..36a6ab867 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6705,26 +6705,38 @@ Partial Class Compras_Compras
                                                                             End If
                                                                         Next
 
+
+                                                                        Dim importeMNTemp As Decimal = 0
+                                                                        Dim CveCompraAmortizacion As Integer = -1
+
                                                                         For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
                                                                             If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
-                                                                                Dim importeMNTemp As Decimal = 0
+
                                                                                 If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
                                                                                     ErrorMovInv = True
                                                                                     Exit For
                                                                                 End If
 
-                                                                                Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal
+                                                                                ' Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal
                                                                                 'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
                                                                                 'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
-                                                                                importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * tipoCambioActual).RoundSQL
+                                                                                importeMNTemp = importeMNTemp + (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * tipoCambioActual).RoundSQL
                                                                                 ImporteTransito += importeMNTemp
+                                                                                CveCompraAmortizacion = Gvr.DataKey("CveCompra").ToEntero
                                                                                 'se registra por cada compra relacionada
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
-                                                                                    ErrorPrepoliza = True
-                                                                                End If
+
                                                                             End If
                                                                         Next
 
+                                                                        If importeMNTemp > 0 Then
+                                                                            importeMNTemp = importeMNTemp - TxtDescuento.Text.ToDecimal
+
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraAmortizacion, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+                                                                        End If
+
+
                                                                         'si se marca que no se va a recibir, falta validación
                                                                         If Not ErrorMovInv AndAlso Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 1, UsuarioActual.CveUsuario) Then
                                                                             ErrorMovInv = True
@@ -7687,10 +7699,10 @@ Partial Class Compras_Compras
 
                                     If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then
                                         TieneError = True
-                                        'If ObjConta.ValorPolizaDescuadre > 0 Then
-                                        '    Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError)
-                                        '    ErrorPrepolizaDescuadre = True
-                                        'End If
+                                        If ObjConta.ValorPolizaDescuadre > 0 AndAlso UsuarioActual.CveRol = 1 Then
+                                            Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError)
+                                            ErrorPrepolizaDescuadre = True
+                                        End If
                                     End If
 
 
diff --git a/OC/OC.aspx b/OC/OC.aspx
index 9f94cd93f..3e9e10ea3 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -178,6 +178,7 @@
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
 
+   
 
     <asp:UpdatePanel runat="server" ID="uppBtns" UpdateMode="Conditional">
         <ContentTemplate>
@@ -696,7 +697,7 @@
             </asp:UpdatePanel>
         </div>
     </div>
-
+     <div id="DVSeccionGVD"></div>
     <asp:UpdatePanel ID="UPPTab" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%">
@@ -946,7 +947,7 @@
                                     <asp:Button ID="BtnVinculaAFEdit" ClientIDMode="Static" OnClick="BtnVinculaAFEdit_Click" Style="display: none;" runat="server" />
                                     <asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="$('#DivConceptosContenido').width()" ClientIDMode="Static" />
 
-
+                                   
 
                                     <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn"
                                         DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,CantidadNoEditable,CveCultivoCuadroDetalle" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0">
@@ -1704,7 +1705,7 @@
                         <table>
                             <tr>
                                    <td style="text-align: center;">
-                                   <asp:Button runat="server" ID="BtnEdicionMasiva" Text="Edición Masiva" CssClass="btn btn-success" OnClick="BtnEdicionMasiva_Click"  Width="170px" />
+                                   <asp:Button runat="server" ID="BtnEdicionMasiva" Text="Edición Masiva" CssClass="btn btn-success" OnClick="BtnEdicionMasiva_Click"  Width="170px" Visible="false" />
                                </td>
                             </tr>
                             <tr>                             
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 29b1e46d1..ba29176e6 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -661,11 +661,12 @@ Partial Class OC_OC
             CargarCentrosDeCosto(Nothing, DdlSubProyectoEntrega, Nothing, Nothing, "Seleccione")
 
             If UsuarioActual.CveEmpresa = 189 Then
-                'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
+
                 DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
                 DdlSubProyectoGral.DataBind()
                 DdlSubProyectoGral.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
                 DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
+
                 TdProyectoSubPrpyectoDdl.Visible = False
                 TdProyectoSubPrpyecto.Visible = False
                 GvD.Columns(4).Visible = False
@@ -1014,6 +1015,9 @@ Partial Class OC_OC
             If UsuarioActual.CveRol = 1 Then
                 TrDescuentoEscalonado.Visible = True
                 TrDescuentoProntoPago.Visible = True
+            End If
+
+            If UsuarioActual.Empresa.CveEmpresa = 189 AndAlso CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then
                 BtnEdicionMasiva.Visible = True
             End If
 
@@ -1577,6 +1581,21 @@ Partial Class OC_OC
             TxtPorcentajeProntoPago.Text = (100 * objOC.PorcentajeProntoPago).ToString("###.00")
 
             If UsuarioActual.CveEmpresa = 189 Then
+                Dim existeCvesubproyecto As Boolean = False
+                If objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString.ToEntero > 0 Then
+                    For Each tmpItem As ListItem In DdlSubProyectoGral.Items
+                        If tmpItem.Value.ToEntero = objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString.ToEntero Then
+                            existeCvesubproyecto = True
+                            Exit For
+                        End If
+                    Next
+                End If
+
+                If Not existeCvesubproyecto Then
+                    Dim tmpSubProyecto As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString.ToEntero, -1).FiltroPrimeroValor("SubProyecto")
+                    DdlSubProyectoGral.Items.Add(New ListItem(tmpSubProyecto, objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString))
+                End If
+
                 DdlSubProyectoGral.SelectedValueExist(objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString)
             End If
 
@@ -1609,7 +1628,7 @@ Partial Class OC_OC
                         HLGenerarVenta.Visible = True
                         HLGenerarVenta.NavigateUrl = $"/Ventas/Ventas.aspx?CveOC={pCveOrdenCompra}"
 
-                        lblFolio.Text = String.Format("OC {0}", objOC.Folio)
+                        lblFolio.Text = String.Format("OC {0}", objOC.SerieFolio)
                         lblTipoPadreHijo.Text = "REQ"
                         ChkCotizacion.Visible = False
 
@@ -1672,7 +1691,7 @@ Partial Class OC_OC
                     Case "REQ"
                         ViewState("TipoOC") = objOC.Tipo
                         ViewState("TipoLargo") = "Requisición"
-                        lblFolio.Text = "REQ " + objOC.Folio.ToString
+                        lblFolio.Text = "REQ " + objOC.SerieFolio.ToString
                         lblTipoPadreHijo.Text = "OC"
                         ChkCotizacion.Visible = True
                         DdlProveedores.SelectedValue = objOC.CveProveedor.ToString
@@ -1694,7 +1713,7 @@ Partial Class OC_OC
                     Case "OS"
                         ViewState("TipoOC") = "REQ"
                         ViewState("TipoLargo") = "Orden de Servicio"
-                        lblFolio.Text = "OS " + objOC.Folio.ToString
+                        lblFolio.Text = "OS " + objOC.SerieFolio.ToString
                         'lblTipoPadreHijo.Text = "OC"
                         ChkCotizacion.Visible = True
                         TipoOS = True
@@ -9515,6 +9534,7 @@ Partial Class OC_OC
 
 
         End If
+        RegistraScript("$(document).ready(function() {setTimeout(function() {document.getElementById('DVSeccionGVD').scrollIntoView({ behavior: 'smooth' }); }, 250);});", "100")
 
 
         UPPDetalle.Update()
@@ -9603,6 +9623,7 @@ Partial Class OC_OC
 
         CargaDatosDetalles()
 
+
         Return True
 
     End Function