-- mejora

2024-08-01 19:44:30 -07:00
parent 6f054204c0
commit 0a938008e7
2 changed files with 37 additions and 33 deletions
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -1885,10 +1885,10 @@
                                                        <asp:UpdatePanel runat="server" ID="UpGvOC2" UpdateMode="Conditional">
                                                            <ContentTemplate>
                                                                <div id="DivDatosCompra" style="height: 250px; overflow-y: auto;">
-                                                                    <asp:GridView AutoGenerateColumns="false" runat="server" ID="GvOC2" GridLines="None" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover gridconheader Widthall" RowStyle-HorizontalAlign="Center" DataKeyNames="Cantidad,UM,PS,SATClaveProductoServicio,PU,Total,Descuento">
+                                                                    <asp:GridView AutoGenerateColumns="false" runat="server" ID="GvOC2" GridLines="None" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover gridconheader Widthall" RowStyle-HorizontalAlign="Center" DataKeyNames="Cantidad,UM,PS,CvePS,CodigoPS,SATClaveProductoServicio,PU,Total,Descuento">
                                                                        <Columns>
-                                                                            <asp:BoundField HeaderText="#" DataField="Consec" ItemStyle-Width="20px" />
-                                                                            <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-Width="40px" />
+                                                                            <asp:BoundField HeaderText="#" DataField="Consec" ItemStyle-Width="20px" ItemStyle-Font-Size="6pt" />
+                                                                            <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.######}" ItemStyle-Width="40px" />
                                                                            <asp:BoundField HeaderText="UM" DataField="UM" ItemStyle-Width="40px" />
                                                                            <asp:TemplateField HeaderText="UM" ItemStyle-HorizontalAlign="Left">
                                                                                <ItemTemplate>
@@ -1896,7 +1896,7 @@
                                                                                        <asp:Label ID="LblClasificacion" runat="server" Text='<%# Eval("Clasificacion") %>'></asp:Label>
                                                                                    </span>
                                                                                    <br />
-                                                                                    <asp:Label ID="LbProductoServicio" runat="server" Text='<%# Eval("PS")%>'></asp:Label>
+                                                                                    <asp:Label ID="LbProductoServicio" runat="server" Text='<%# Eval("CodigoPS")%>'></asp:Label>
                                                                                </ItemTemplate>
                                                                                <HeaderTemplate>
                                                                                    Clasificación 
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1647,15 +1647,10 @@ Partial Class Compras_Compras
                DdlTipoComprobante.SelectedValueExist("DEV")
            End If

-
-
            If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso DdlTipoComprobante.SelectedValue = "NC" Then

-
-
                ConfiguraseleccionRemisionNotaCredito()

-
            End If

        End If
@@ -7693,7 +7688,6 @@ Partial Class Compras_Compras
                                        End If
                                    End If

-
                                    If Not TieneError Then
                                        ObjCompras.Commit()
                                        If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
@@ -7735,7 +7729,7 @@ Partial Class Compras_Compras
                            Else
                                ObjCompras.RollBack()
                                If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
-                                Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
+                                Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente..", TipoMensaje.MsgError)
                            End If


@@ -13491,7 +13485,7 @@ Partial Class Compras_Compras
        CargaGVsAF()

        CargaTipoCentroCostoOC()
-        GvOC1.DataSource = DTOCTemp
+        GvOC1.DataSource = DTOCTemp.FiltraParametros("", "CodigoPS")

        Dim DTCVEOCS As DataTable = DTOCTemp.FiltraParametros("", "", {"CveOrdenCompra"})
        If DTCVEOCS IsNot Nothing AndAlso DTCVEOCS.Rows.Count > 1 Then
@@ -13502,7 +13496,7 @@ Partial Class Compras_Compras
        GvOC1.DataBind()

        ' TmpDT = OrdenarTablas("CvePS", DTOCTemp, TmpDT)
-        GvOC2.DataSource = TmpDT
+        GvOC2.DataSource = TmpDT.FiltraParametros("", "CodigoPS")
        GvOC2.DataBind()

        UpGvOC1.Update()
@@ -14547,24 +14541,10 @@ Partial Class Compras_Compras

        CargaTipoCentroCostoOC()

-        GvOC1.DataSource = DTOCGV
+        GvOC1.DataSource = DTOCGV.FiltraParametros("", "CveOrdenCompra, CodigoPS")
        GvOC1.DataBind()

-        'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
-        If UsuarioActual.Empresa.Funcionalidad(382).ToEntero > 0 Then
-            For Each Gvr As GridViewRow In GvOC1.Rows
-                Dim Change As Boolean = False
-                For Each Dr2 As DataRow In TmpDT.Rows
-                    If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then
-                        Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
-                        Change = True
-                    End If
-                Next
-                If Not Change Then
-                    Gvr.FCTextBox("TxtCantidad").Text = "0"
-                End If
-            Next
-        End If
+

        Dim DTCVEOGV As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"})
        If DTCVEOGV.Rows.Count > 1 Then
@@ -14578,15 +14558,39 @@ Partial Class Compras_Compras
            RegistraScript($"CalculaTotalOCEdit('{ gvr.DataKey("PS").Replace("'", "").Replace(vbLf, " ").Replace(vbCrLf, " ")  }', {gvr.DataKey("Cantidad").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}")
            Cont += 1
        Next
-
        UpGvOC1.Update()
-
-        TmpDT = TmpDT.FiltraParametros("", "PU")
+        TmpDT = TmpDT.FiltraParametros("", "CodigoPS")

        GvOC2.DataSource = TmpDT
        GvOC2.DataBind()
-        'condicion temporal rmf
+
+        'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            For Each Gvr As GridViewRow In GvOC1.Rows
+                Dim Change As Boolean = False
+                For Each Dr2 As DataRow In TmpDT.Rows
+                    If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then
+                        Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
+                        Change = True
+                    End If
+                Next
+                If Not Change Then
+                    Gvr.FCTextBox("TxtCantidad").Text = ""
+                End If
+            Next
+            'detectar los ps que no están en la OC, códigos que no están en la OC
+            'mostrar los ps que no están en la oc
+            Dim strMsg As New StringBuilder
+            For Each Gvr As GridViewRow In GvOC2.Rows
+                Dim i As Integer = DTOCGV.FiltraParametros($"CvePS = '{Gvr.DataKey("CvePS")}'").Rows.Count
+                If i = 0 Then
+                    strMsg.AppendFormat("- {0} <br/>", Gvr.DataKey("CodigoPS"))
+                    Gvr.BackColor = Drawing.Color.Red
+                End If
+            Next
+            If strMsg.Length > 0 Then Alert("Los siguientes productos facturados no están en la Orden de compra<br/>" & strMsg.ToString, TipoMensaje.MsgAdvertencia)
+
+            'condicion temporal rmf
            GvOC1.Columns(6).Visible = False
            GvOC2.Columns(4).Visible = False
        End If