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

2024-08-15 18:06:31 -07:00
parent 82071aaf41 c5f26cbf75
commit be9b54bec4
3 changed files with 44 additions and 19 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6430,8 +6430,8 @@ Partial Class Compras_Compras
                                                                                    For Each gvRowInv As GridViewRow In GvInv.Rows
                                                                                        Dim gvCantidad As Decimal = gvRowInv.FCTextBox("TbCantidad").Text.ToDecimal
                                                                                        Dim gvPU As Decimal = gvRowInv.DataKey("PU").ToDecimal
-                                                                                        Dim gvDescuento As Decimal = gvRowInv.DataKey("PU").ToDecimal
-                                                                                        ImpPrepoliza = (ImpPrepoliza + (gvCantidad * gvPU)) - gvDescuento
+                                                                                        Dim gvDescuento As Decimal = gvRowInv.DataKey("Descuento").ToDecimal
+                                                                                        ImpPrepoliza = ImpPrepoliza + ((gvCantidad * gvPU)) - gvDescuento
                                                                                    Next
                                                                                    ImpPrepolizaMN = ImpPrepoliza * tipoCambioActual * Multiplicador

--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -39,6 +39,10 @@ Partial Class OC_OC
    End Property
    Private Property TipoOC As String
        Get
+            If ViewState("TipoOC") Is Nothing Then
+                ViewState("TipoOC") = ""
+            End If
+
            TipoOC = ViewState("TipoOC").ToString
        End Get
        Set(value As String)
@@ -656,6 +660,22 @@ 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
+                UPPDetalle.Update()
+
+            End If
+
+
+
+
            'CARGA YA REGISTRADO
            If Request("OC") IsNot Nothing AndAlso IsNumeric(Request("OC")) AndAlso Request("OC").ToEntero > 0 Then

@@ -746,18 +766,19 @@ Partial Class OC_OC
                'temporal

                'If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                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
-                    UPPDetalle.Update()

-                End If
+                '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
+                '    UPPDetalle.Update()
+
+                'End If

                BtnGeneraContrato.Visible = True : CargaClientesContrato()

@@ -1555,6 +1576,10 @@ Partial Class OC_OC

            TxtPorcentajeProntoPago.Text = (100 * objOC.PorcentajeProntoPago).ToString("###.00")

+            If UsuarioActual.CveEmpresa = 189 Then
+                DdlSubProyectoGral.SelectedValueExist(objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString)
+            End If
+
            If Not IsNothing(objOC.Tipo) Then

                Select Case objOC.Tipo.ToUpper
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -285,7 +285,7 @@ Partial Class RepOC
        If e.Row.RowType = DataControlRowType.DataRow Then

            '<asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra"  ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataTextField="Folio" HeaderText="#">
-            e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"))
+            e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("SerieFolio"))
            e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("Fecha").ToDate.Ticks.ToString)
            e.Row.Cells(15).Attributes.Add("data-order", e.Row.DBCampo("Total").ToDecimal.ToString)

@@ -301,7 +301,7 @@ Partial Class RepOC
            End Select

            If e.Row.DBCampo("Tipo") = "OC" Then
-                e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("FolioREQ"))
+                e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("SerieFolioREQ"))
            Else
                e.Row.FCLiteral("LtlLigaReq").Text = ""
            End If
@@ -327,7 +327,7 @@ Partial Class RepOC
        If e.Row.RowType = DataControlRowType.DataRow Then

            '<asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra"  ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataTextField="Folio" HeaderText="#">
-            e.Row.FCLiteral("LtlLiga").Text = String.Format(" <a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"))
+            e.Row.FCLiteral("LtlLiga").Text = String.Format(" <a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("SerieFolio"))
            e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("Fecha").ToDate.Ticks.ToString)
            e.Row.Cells(15).Attributes.Add("data-order", e.Row.DBCampo("Total").ToDecimal.ToString)

@@ -343,7 +343,7 @@ Partial Class RepOC
            End Select

            If e.Row.DBCampo("Tipo") = "OC" Then
-                e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("FolioREQ"))
+                e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("SerieFolioREQ"))
            Else
                e.Row.FCLiteral("LtlLigaReq").Text = ""
            End If
@@ -445,7 +445,7 @@ Partial Class RepOC
        If e.Row.RowType = DataControlRowType.DataRow Then

            '<asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra"  ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataTextField="Folio" HeaderText="#">
-            e.Row.FCLiteral("LtlLiga").Text = String.Format("<a Class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"))
+            e.Row.FCLiteral("LtlLiga").Text = String.Format("<a Class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("SerieFolio"))
            e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("Fecha").ToDate.Ticks.ToString)
            e.Row.Cells(15).Attributes.Add("data-order", e.Row.DBCampo("Total").ToDecimal.ToString)

@@ -461,7 +461,7 @@ Partial Class RepOC
            End Select

            If e.Row.DBCampo("Tipo") = "OC" Then
-                e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("FolioREQ"))
+                e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("SerieFolioREQ"))
            Else
                e.Row.FCLiteral("LtlLigaReq").Text = ""
            End If