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

cambios en formatos de usados y agregando nuevo filtro de busqueda a repCortes

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-01-02 18:26:30 -07:00
parent 200233f7b5
commit 37709395c4
5 changed files with 25 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Acumuladores/EntradasUsadosResumenRep.aspx
View File

@@ -80,17 +80,17 @@
ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False"
ShowFooter="False" DataKeyNames="CvePSCargo,Codigo,Inicial,E_Almacen,E_Pub,E_Traspaso,E_Compra,E_Otros,S_Almacen,S_Traspaso,S_Otros,Exist_Actual">
<Columns>
<asp:BoundField DataField="Codigo" HeaderText="Grupo" ReadOnly="true" />
<asp:BoundField DataField="Inicial" HeaderText="Inicial" ReadOnly="true" />
<asp:BoundField DataField="E_Almacen" HeaderText="E.Alm" ReadOnly="true" />
<asp:BoundField DataField="E_Pub" HeaderText="E.Alm" ReadOnly="true" />
<asp:BoundField DataField="E_Traspaso" HeaderText="E.Tras" ReadOnly="true" />
<asp:BoundField DataField="E_Compra" HeaderText="E.Compra" ReadOnly="true" />
<asp:BoundField DataField="E_Otros" HeaderText="Otros" ReadOnly="true" />
<asp:BoundField DataField="S_Almacen" HeaderText="E.Alm" ReadOnly="true" />
<asp:BoundField DataField="S_Traspaso" HeaderText="S.Tras" ReadOnly="true" />
<asp:BoundField DataField="S_Otros" HeaderText="Otros" ReadOnly="true" />
<asp:BoundField DataField="Exist_Actual" HeaderText="Exist. Actual" ReadOnly="true" />
<asp:BoundField DataField="Codigo" HeaderText="Grupo" ReadOnly="true" ></asp:BoundField>
<asp:BoundField DataField="Inicial" HeaderText="Inicial" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
<asp:BoundField DataField="E_Almacen" HeaderText="E.Alm" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
<asp:BoundField DataField="E_Pub" HeaderText="E.Alm" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
<asp:BoundField DataField="E_Traspaso" HeaderText="E.Tras" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
<asp:BoundField DataField="E_Compra" HeaderText="E.Compra" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
<asp:BoundField DataField="E_Otros" HeaderText="Otros" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
<asp:BoundField DataField="S_Almacen" HeaderText="E.Alm" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
<asp:BoundField DataField="S_Traspaso" HeaderText="S.Tras" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
<asp:BoundField DataField="S_Otros" HeaderText="Otros" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
<asp:BoundField DataField="Exist_Actual" HeaderText="Exist. Actual" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
</Columns>
</asp:GridView>
</ContentTemplate>

5
Acumuladores/EntradasUsadosResumenRep.aspx.vb
View File

@@ -53,14 +53,15 @@ Partial Class Acumuladores_RepEntradasUsados
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Direccion", "asdfasdfasdf"))
params.Add(New ReportParameter("Direccion", "dirección"))
params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
params.Add(New ReportParameter("FechaInicial", txtFechaI.Text))
params.Add(New ReportParameter("FechaFinal", txtFechaF.Text))
params.Add(New ReportParameter("Sucursal", "Sucursal"))
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsados}
ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados2.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "prueba", "PDF")
ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "Reporte entrada usados", "PDF")
End Sub
End Class

3
App_Code/ClsPuntoVenta.vb
View File

@@ -243,13 +243,14 @@ Public Class ClsPuntoVenta
Return Retorno
End Function
Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean
Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ReporteCortesGet")
SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
SqlAdapter.SelectCommand.Parameters.Add("@FechaInicio", SqlDbType.Date).Value = FechaI
SqlAdapter.SelectCommand.Parameters.Add("@FechaFin", SqlDbType.Date).Value = FechaF
SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
Try
SqlAdapter.Fill(Data)

5
Bancos/RepCortes.aspx
View File

@@ -112,6 +112,11 @@
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-2">
<asp:DropDownList runat="server" ID="DdlSubProyectos" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm">
</asp:DropDownList>
</div>
</div>
</div>
<%-- <div class="portlet-body magindate" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>

5
Bancos/RepCortes.aspx.vb
View File

@@ -61,6 +61,9 @@ Partial Class Bancos_RepCortes
txtFechaVI.Text = Now.ToShortDateString
txtFechaVF.Text = Now.ToShortDateString
Me.Form.DefaultButton = BtnConsultar.UniqueID
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End If
End Sub
@@ -70,7 +73,7 @@ Partial Class Bancos_RepCortes
Dim ObjPuntoVenta As New ClsPuntoVenta
Dim FechaI As Date = If(txtFechaVI.Text <> "", txtFechaVI.Text.ToDate, MinFecha)
Dim FechaF As Date = If(txtFechaVF.Text <> "", txtFechaVF.Text.ToDate, MaxFecha)
If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF) Then
If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF, DdlSubProyectos.SelectedValue.ToEntero) Then
GvDatos.DataSource = ObjPuntoVenta.DtResultados
GvDatos.DataBind()
UPDatos.Update()