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

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
+                                                                                        Dim gvDescuento As Decimal = gvRowInv.DataKey("Descuento").ToDecimal
-                                                                                        ImpPrepoliza = (ImpPrepoliza + (gvCantidad * gvPU)) - gvDescuento
+                                                                                        ImpPrepoliza = ImpPrepoliza + ((gvCantidad * gvPU)) - gvDescuento
                                                                                     Next
                                                                                     ImpPrepolizaMN = ImpPrepoliza * tipoCambioActual * Multiplicador
 

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

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