AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2020-08-21 11:46:07 -07:00
parent 3c12626cbd 7568a9bbef
commit 8b149b5ad8
35 changed files with 2342 additions and 1021 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Inventarios/Fletes.aspx
View File

@@ -8,6 +8,9 @@
Costo Indirecto
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
<li>
<asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>

26
Inventarios/Fletes.aspx.vb
View File

@@ -3,6 +3,8 @@ Option Strict On
Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class Compras_Fletes
Inherits ClsPaginas
@@ -402,6 +404,30 @@ Partial Class Compras_Fletes
#End Region
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Fletes.rdlc", UsuarioActual.Empresa.Ruta))
If Archivo.Exists Then
Dim ImporteGrid As Double = DtCompras.SUM("SubTotal")
Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
Dim ImporteData As Double = ImporteStr.ToDouble()
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Folio", LblFolio.Text))
params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text))
params.Add(New ReportParameter("Fecha", TxtFecha.Text))
params.Add(New ReportParameter("Modalidad", If(DdlModalidad.SelectedValue = "-1", "Por Orden de Compra", "Factura de Compra")))
params.Add(New ReportParameter("Proveedor", LbOCProveedor.Text))
params.Add(New ReportParameter("FolioModalidad", HLOCFolio.Text))
params.Add(New ReportParameter("Importe", (ImporteGrid + ImporteData).ToString()))
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Fletes.rdlc", DtCompras, params, String.Format("Costo Indirecto - {0}", LblFolio.Text), RDSName:="DataSet1")
End If
End Sub

2
Inventarios/RepFletes.aspx
View File

@@ -81,7 +81,7 @@
<table class="table Widthall ">
<tr>
<td style="font-size: 14px; width: 20%; border-right: 3px solid white;"></td>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Flete</td>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Facturas de Costo Indirecto</td>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td>
</tr>
</table>

2
Inventarios/RepMaximoMinimo.aspx
View File

@@ -127,7 +127,7 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div>
<asp:GridView ID="GvDatos" DataKeyNames="CvePS,PS,CodigoPS,Maximo,Minimo,CveAlmacen" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None">
<asp:GridView ID="GvDatos" DataKeyNames="CvePS,PS,CodigoPS,Maximo,Minimo,CveAlmacen,Almacen" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-Width="10%" HeaderText="Código">
<ItemTemplate>

8
Inventarios/RepMaximoMinimo.aspx.vb
View File

@@ -235,13 +235,19 @@ Partial Class Inventarios_RepMaximoMinimo
Dim CveAlmacen As Integer = GvRow.DataKey("CveAlmacen").ToString.ToEntero
Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
Dim strPS As String = GvRow.DataKey("PS").ToString()
Dim strAlmacen As String = GvRow.DataKey("Almacen").ToString()
Dim Maximo As String = GvRow.DataKey("Maximo").ToString
Dim Minimo As String = GvRow.DataKey("Minimo").ToString
DdlAlmacenModal.Enabled = False
DdlPSModal.Enabled = False
DdlAlmacenModal.SelectedValue = CveAlmacen.ToString()
DdlAlmacenModal.SelectedValue = "-1"
DdlAlmacenModal.SelectedValueExist(CveAlmacen.ToString())
If (DdlAlmacenModal.SelectedValue = "-1") Then
DdlAlmacenModal.Items.Add(New ListItem(strAlmacen, CveAlmacen.ToString()))
End If
DdlAlmacenModal.SelectedValueExist(CveAlmacen.ToString())
DdlPSModal.SelectedText = strPS
DdlPSModal.SelectedValue = CvePS.ToString
TxtMaximo.Text = Maximo