Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

2019-10-25 15:57:06 -05:00
parent 9d270f5b95 04a5301742
commit 0f9ffefb39
14 changed files with 11114 additions and 97 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4190,7 +4190,7 @@ Partial Class Compras_Compras
                    Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal
                    Dim CveMonedaPago As Integer = DdlMoneda.SelectedValue.ToEntero

-                    If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
+                    If RBLPago.SelectedValue.ToEntero = 2 Then 'Contado

                        If RBLContado.SelectedValue = "1" Then
                            ImportePago = TxtDocumentoImporte.Text.Trim.ToDecimal
@@ -6740,7 +6740,7 @@ Partial Class Compras_Compras
                                                                '    End If
                                                                'End If

-                                                                For Each Ant As Anticipos In ArrAnticipos
+                                                                For Each Ant As Compras_Compras.Anticipos In ArrAnticipos

                                                                    Dim ConceptoContableAnticipo, ConceptoContableAnticipoComplementaria As Integer
                                                                    Dim CveCompraNC As Integer = CveCompra
@@ -7327,7 +7327,7 @@ Partial Class Compras_Compras
                                                Dim PorcentajePago As Decimal
                                                Dim CveConceptoAnt As Integer = 21
                                                Dim CveCompraNC As Integer
-                                                For Each Ant As Anticipos In ArrAnticipos
+                                                For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
                                                    CveCompraNC = CveCompra
                                                    Dim CveConceptoPago As Integer = 17
                                                    Select Case Ant.TipoMovto
@@ -8840,7 +8840,7 @@ Partial Class Compras_Compras

                Dim ImporteAnticipo As Decimal = 0
                If ArrAnticipos.Count > 0 Then
-                    For Each Ant As Anticipos In ArrAnticipos
+                    For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
                        ImporteAnticipo += Ant.Importe
                    Next
                End If
@@ -12255,7 +12255,7 @@ Partial Class Compras_Compras
        Select Case RBLContado.SelectedValue
            Case "1" ' Bancos
                PnlContadoBancos.Visible = True
-                TxtDocumentoImporte.Text = TxtTotal.Text
+                TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
            Case "2" ' F y E
                PnlContadoFyE.Visible = True
                CargaFuncionariosEmpleados()
@@ -12270,7 +12270,7 @@ Partial Class Compras_Compras
                CargaAcreedores()
            Case "6" ' Caja Chica
                PnlContadoCajaChica.Visible = True
-                TxtDocumentoImporteCaja.Text = TxtTotal.Text
+                TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
        End Select

        UpContado.Update()
@@ -14596,7 +14596,7 @@ Partial Class Compras_Compras
        'ANTICIPOS COMPRA
        Dim ImporteAnticipo As Decimal = 0
        If ArrAnticipos.Count > 0 Then
-            For Each Ant As Anticipos In ArrAnticipos
+            For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
                ImporteAnticipo += Ant.Importe
            Next
        End If
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -890,6 +890,7 @@ Partial Class PopUpVerFactura
            Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
            Vta.RefDocto = dtVentas(0)("Ref").ToString
            Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
+            Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
            Vta.Version = dtVentas(0)("Version").ToString

            Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString
--- a/Compras/RepComprasPrecios.aspx
+++ b/Compras/RepComprasPrecios.aspx
@@ -83,9 +83,9 @@
    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <li>
+    <%--    <li>
        <asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
-    </li>
+    </li>--%>
    <li>
        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
    </li>
@@ -141,18 +141,17 @@
    </div>
    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="True" EmptyDataText="No se encontró información"
-                CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
-                data-sort="true" Style="text-align: center;" GridLines="None" ShowHeader="true" DataKeyNames="CvePS">
+            <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True"
+                ShowFooter="True" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Texto" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
                <Columns>

-<%--                    <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
+                    <%--                    <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
                        <ItemTemplate>
                            <asp:Literal ID="HplREQ" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
                        </ItemTemplate>
-                    </asp:TemplateField>
+                    </asp:TemplateField>--%>

-                    <asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
+                    <%--                    <asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
                        <ItemTemplate>
                            <asp:Literal ID="HplOC" runat="server" Text='<%# Eval("UltCompra", "{0:N2}") %>'></asp:Literal>
                        </ItemTemplate>
@@ -163,11 +162,10 @@
                            <asp:Literal ID="HplOC2" runat="server" Text='<%# Eval("PrecioLista", "{0:N2}") %>'></asp:Literal>
                        </ItemTemplate>
                    </asp:TemplateField>--%>
-
                </Columns>
-                <HeaderStyle CssClass="Titulos" />
+                <%--                <HeaderStyle CssClass="Titulos" />
                <RowStyle CssClass="Texto" />
-                <AlternatingRowStyle CssClass="TextoAlterno" />
+                <AlternatingRowStyle CssClass="TextoAlterno" />--%>
            </asp:GridView>
        </ContentTemplate>
    </asp:UpdatePanel>
--- a/Compras/RepComprasPrecios.aspx.vb
+++ b/Compras/RepComprasPrecios.aspx.vb
@@ -22,7 +22,7 @@ Partial Class RepComprasPrecios
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargaProveedor()
-            CargaDatos()
+            'CargaDatos()
        End If
    End Sub

@@ -45,6 +45,8 @@ Partial Class RepComprasPrecios
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

+            'GvDatos.Columns(1).ItemStyle.Width = New Unit("500px")
+
            GvDatos.HeaderRow.Cells(0).Visible = False
            e.Row.Cells(0).Visible = False

@@ -70,15 +72,6 @@ Partial Class RepComprasPrecios
                End If
            Next

-            'Cuando es titulo
-            'If e.Row.DBCampo("PS").ToString.Trim = "" Then
-            '    e.Row.CssClass = "Totales"
-
-            '    e.Row.Cells(0).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
-            '    e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
-            '    e.Row.Cells(3).Text = String.Format("Almacen Destino: {0} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
-            'End If
-
        End If
    End Sub
 #End Region
@@ -93,41 +86,36 @@ Partial Class RepComprasPrecios
 #End Region

 #Region "IMPRESION"
-    Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
-        Imprime("PDF")
-    End Sub
+    'Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
+    '    Imprime("PDF")
+    'End Sub
    Private Sub Imprime(Formato As String)
-        'If DtInventarios IsNot Nothing Then
-        '    Dim StrFiltro As New StringBuilder
-        '    If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio:</b> {0}", txtFechaI.Text.ToDate.ToShortDateString)
-        '    If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin:</b> {0}", txtFechaF.Text.ToDate.ToShortDateString)
+        If DtCompras IsNot Nothing Then
+            Dim StrFiltro As New StringBuilder
+            If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedItem.Text)
+            GvDatos.ExportToExcelG("RepComprasPrecios.xlsx", "Reporte de Precios de Compras", UsuarioActual, StrFiltro.ToString, 100, 200)

-        '    If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Origen:</b> {0}", DdlAlmacenOrigen.SelectedItem.Text)
-        '    If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
-        '    If ChkRecibido.Checked Then StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>Si") Else StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>No")
+            'Dim StrFiltro As New StringBuilder

-        '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            'If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Proveedor:</b> {0}", DdlProveedor.SelectedItem.Text)

-        '    Dim FechaI, FechaF As String
-        '    FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
-        '    FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
+            'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

-        '    Dim params As New List(Of ReportParameter)
-        '    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        '    params.Add(New ReportParameter("FechaInicio", FechaI))
-        '    params.Add(New ReportParameter("FechaFin", FechaF))
-        '    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-        '    params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
-        '    If Imagen.Exists Then
-        '        params.Add(New ReportParameter("LogoPath", logouri))
-        '    Else
-        '        params.Add(New ReportParameter("LogoPath", ""))
-        '    End If
-        '    ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato)
-        'Else
-        '    Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
-        'End If
+
+            'Dim params As New List(Of ReportParameter)
+            'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            'params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            'params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
+            'If Imagen.Exists Then
+            '    params.Add(New ReportParameter("LogoPath", logouri))
+            'Else
+            '    params.Add(New ReportParameter("LogoPath", ""))
+            'End If
+            'ImprimirPDF("Empresas/Grales/Formatos/RepComprasPrecios.rdlc", DtCompras, params, String.Format("RepComprasPrecios-{0}", Now.ToDateTime.ToShortDateString), Formato)
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
    End Sub
 #End Region
    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -137,4 +125,6 @@ Partial Class RepComprasPrecios
    Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
        Imprime("Excel")
    End Sub
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
 End Class