parametro subproyecto

2020-10-06 10:00:53 -07:00
parent 29ed6068b8
commit 99046d3216
7 changed files with 72 additions and 11 deletions
--- a/Compras/Compras.aspx.vb
+++ b/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
--- a/Compras/eFacturas.aspx
+++ b/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>
--- a/Inventarios/RepNotasSinAlmacen.aspx.vb
+++ b/Inventarios/RepNotasSinAlmacen.aspx.vb
@@ -146,7 +146,7 @@ Partial Class RepNotasSinAlmacen
                CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero
            End If

-            If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue.ToEntero, -1, UsuarioActual.Empresa.CveEmpresa) Then
+            If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
                GvCompras.DataSource = Reporte.DtResultados
                DtNotasSinAlmacenCompras = Reporte.DtResultados
            Else
--- a/Ventas/ActualizarPrecios.aspx.vb
+++ b/Ventas/ActualizarPrecios.aspx.vb
@@ -1,5 +1,6 @@

 Option Explicit On
+Option Strict On

 Imports Extensiones
 Imports System.Data
@@ -293,7 +294,7 @@ Partial Class Ventas_ActualizarPrecios
 #Region "C A R G A R  E X C E L "
    Private Sub BtnDescargarFormato_Click(sender As Object, e As EventArgs) Handles BtnDescargarFormato.Click

-        Dim DtExcel As DataTable = (From row As GridViewRow In GVPrecios.Rows
+        Dim DtExcel As DataTable = (From row As GridViewRow In GVPrecios.Rows.Cast(Of GridViewRow)
                                    Where row.RowType = DataControlRowType.DataRow
                                    Select New With
                                        {
@@ -408,7 +409,7 @@ Partial Class Ventas_ActualizarPrecios
                Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
                For Each row As DataRow In dt.Rows
                    Dim Correcto As Boolean = False
-                    Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa))
+                    Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa)).ToEntero
                    Dim CvePrecioLista As Integer = DdlPrecioListaCarga.SelectedValue.ToEntero()
                    Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal()
                    Dim Porcentaje As Decimal = -1
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -821,7 +821,6 @@ Partial Class ProductosyServicios
                lbTitulo.Text = $"{lbTitulo.Text}{ObjProductosServicios.PS}"
                LtProductoUnificar.Text = ObjProductosServicios.PS
                ddlMetodos.SelectedValue = ObjProductosServicios.CveMetodoInventario.ToString
-                TxtAlmacenSeccion.Text = ObjProductosServicios.AlmacenSeccion.ToString
                DdlConceptoRelacionado.SelectedValueExist(ObjProductosServicios.CveConceptoContable.ToString)

                DdlProveedor.SelectedValue = ObjProductosServicios.CveProveedorCompra.ToString
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2643,6 +2643,12 @@ Partial Class Ventas
            End If


+            'rmf.2020.09.30, codigo de prueba
+            If UsuarioActual.CveEmpresa = 1 Then
+                DivMesesSinIntereses.Visible = True
+                DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
+                DivContadoOtros.Visible = True
+            End If

            If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then

@@ -15133,7 +15139,7 @@ Partial Class Ventas

                If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
                    'VALIDA EXISTENCIA
-                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) Then
+                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153}) Then
                        If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
                            Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
                            Return False
@@ -18497,8 +18503,8 @@ Partial Class Ventas
        Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)

        DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
-        DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
-        DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND  (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
        DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
        DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))

--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -100,6 +100,18 @@
    
  
    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+