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

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

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
+                                        If ObjConta.ValorPolizaDescuadre > 0 AndAlso UsuarioActual.CveRol = 1 Then
-                                        '    Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError)
+                                            Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError)
-                                        '    ErrorPrepolizaDescuadre = True
+                                            ErrorPrepolizaDescuadre = True
-                                        'End If
+                                        End If
                                     End If
 
 

OC/OC.aspx

@@ -179,6 +179,7 @@
 <asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
 
    
+
     <asp:UpdatePanel runat="server" ID="uppBtns" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:Button ID="btnCargaCotizaciones" OnClick="btnCargaCotizaciones_Click" runat="server" ClientIDMode="Static" Style="display: none;" />
@@ -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%">
@@ -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>                             

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