parametro subproyecto

Compras/Compras.aspx.vb

@@ -5027,7 +5027,7 @@ Partial Class Compras_Compras
 
                                         'ACTUALIZAR PRODUCTO/SERVICIO SAT
                                         If Version = "3.3" Then
-                                            If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario) Then
+                                            If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                                                 ErrorSATPS = True
                                             End If
                                         End If
@@ -15973,6 +15973,46 @@ Partial Class Compras_Compras
 
     End Sub
 
+    Public Sub CargaIndirectosServicios()
+        If DtServicios Is Nothing Then CreaDTServicios()
+        DtServicios.Rows.Clear()
+
+        Dim objps As New ClsProductosServicios
+        Dim dr As DataRow
+        dvFacturas.Visible = False
+        GvFacturas.Visible = False
+
+        For Each DrGv As DataRow In TmpDT.Rows
+            If DrGv("CvePS").ToString.ToEntero > 0 Then
+                If objps.GetPS(DrGv("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+                    If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
+                        dr = DtServicios.NewRow()
+                        dr("Consec") = DrGv("Consec").ToString.ToEntero
+                        dr("Total") = DrGv("Total").ToString.ToDecimal
+                        dr("CvePS") = DrGv("CvePS").ToString.ToEntero
+                        dr("PS") = DrGv("PS").ToString
+                        DtServicios.Rows.Add(dr)
+                    End If
+                End If
+            End If
+        Next
+
+        objps.Dispose()
+
+        If DtServicios.Rows.Count > 0 Then
+            GVServicios.DataSource = DtServicios
+            GVServicios.DataBind()
+            GVServicios.Visible = True
+        Else
+            GVServicios.DataSource = Nothing
+            GVServicios.DataBind()
+        End If
+
+        UpGVServicios.Update()
+        UpFacturas.Update()
+        UPGVFacturas.Update()
+    End Sub
+
     Public Sub btnAgregarFlete_Click(sender As Object, e As EventArgs) Handles BtnAgregarFlete.Click
 
         Dim ListaConsecutivas As New List(Of String) 'Almacena los consecutivos que pertenecen al almacen
@@ -16025,7 +16065,7 @@ Partial Class Compras_Compras
         ''Marcamos todos los almacenes como check
         'GvInv.HeaderRow.FCCheckBox("cbAll").Checked = True
         'cbAll_CheckedChanged(Nothing, Nothing)
-
+        RegistraScript("$('#ModalFletesImportaciones').modal('hide');")
     End Sub
 
     Private Sub CargaGastosServicios(CvePS As Integer)
@@ -18157,7 +18197,7 @@ Partial Class Compras_Compras
         CvePS = DdlPSAlias2.SelectedValue.ToEntero
         tPS = DdlPSAlias2.SelectedText
 
-        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS) Then
+        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario) Then
             GlobalDTProductosServiciosAlias(-1) = PS.DtResultados
 
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS
@@ -20058,6 +20098,9 @@ Partial Class Compras_Compras
 
         DivGastosyServicios.Visible = MostrarGastosServicios
         DivGastosyServiciosFooter.Visible = MostrarGastosServicios
+        If MostrarGastosServicios Then
+            CargaIndirectosServicios()
+        End If
 
         DivVincularCrear.Visible = Not MostrarGastosServicios
         DivVincularCrearFooter.Visible = Not MostrarGastosServicios

Compras/eFacturas.aspx

@@ -216,7 +216,7 @@
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Importe">
                                     <ItemTemplate>
-                                        <asp:Literal ID="LtlTotal" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal>
+                                        <asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0} {1}", Eval("Total", "{0:N2}"), Eval("Abreviatura")) %>'></asp:Literal>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Right" />
                                 </asp:TemplateField>