-- mejora

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="#" DataField="Consec" ItemStyle-Width="20px" ItemStyle-Font-Size="6pt" />
-                                                                            <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-Width="40px" />
+                                                                            <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 

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("", "CodigoPS")
-        TmpDT = TmpDT.FiltraParametros("", "PU")
 
         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