Clientes ajustes Cuentas Deposito, compras GVNCInvAlmacen pu 5 decimales, diario de pagos correcion control, proveedores carga tipo de operación

Compras/Compras.aspx

@@ -5042,7 +5042,7 @@
                                                     <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%" />
                                                     <asp:TemplateField HeaderText="P.U." ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">
                                                         <ItemTemplate>
-                                                            <asp:Textbox ID="TxtPU" Width="60px" Text='<%#   Eval("PU", "{0:N2}") %>' CssClass="textaslabel" runat="server"></asp:Textbox>
+                                                            <asp:Textbox ID="TxtPU" Width="60px" Text='<%#   Eval("PU", "{0:N5}") %>' CssClass="textaslabel" runat="server"></asp:Textbox>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">

Compras/Compras.aspx.vb

@@ -15524,6 +15524,9 @@ Partial Class Compras_Compras
             End If
         End If
 
+        Dim ivaPorcentaje As Decimal = DTOCGV.MAX("IVAPorcentaje").ToDecimal
+        Dim IVAPorcentajeTmp As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
+
         If DTOCGV.MAX("IVAPorcentaje").ToDecimal <> TmpDT.MAX("IVAPorcentaje").ToDecimal Then
             Alert("La orden de compra(s) tiene diferentes tasa de IVA.", TipoMensaje.MsgAdvertencia)
         End If

Compras/Proveedores.aspx.vb

@@ -5890,7 +5890,14 @@ Partial Class Compras_Proveedores
 
 
     Private Sub CargaTipoTransaccion()
+
+
+        If GlobalDTDIOTTipoOperacion IsNot Nothing AndAlso GlobalDTDIOTTipoOperacion.Rows.Count = 0 Then
+            GlobalDTDIOTTipoOperacion = Nothing
+        End If
+
         Dim Filtro As String = ""
+
         Select Case DDlDIOTTipoTercero.SelectedValue
             Case "1"
                 Filtro = "AplicaProvNacional = 1"
@@ -5900,8 +5907,11 @@ Partial Class Compras_Proveedores
                 Filtro = "AplicaProvGlobal = 1"
         End Select
 
+        GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro)
+
         DdlDIOTTipoOperacion.DataSource = GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro)
         DdlDIOTTipoOperacion.DataBind()
+
     End Sub