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

RepVentas Cartas porte, Consignaciones, serie lote

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-08-11 19:26:03 -07:00
parent 6b7f0563a9
commit 2060894369
6 changed files with 224 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
App_Code/ClsVentas.vb
View File

@@ -860,6 +860,9 @@ Public Class ClsVentas
Return Retorno
End Function
Public Function UpdateVentaRNCUsado(CveVentaRNC As Integer, CveVenta As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -5544,6 +5547,29 @@ Public Class ClsVentas
#End Region
Public Function GetListadoCartaPorteRep(FechaI As Date, FechaF As Date, CveSubProyecto As String, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_RepListadoCartaPorteGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto
.Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error obtener el listado de carta porte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#Region "IDisposable Support"

9
Empresas/13/Formatos/ReciboDePago.rdlc
View File

@@ -1514,7 +1514,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -1869,7 +1868,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -2224,7 +2222,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -2579,7 +2576,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -2934,7 +2930,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -4948,7 +4943,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>EXPLORACIONES MINERAS DEL DESIERTO S.A. DE C.V. RFC: EMD950206SRA </Value>
<Value>EXPLORACIONES MINERAS DEL DESIERTO S.A. DE C.V. </Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontSize>8pt</FontSize>
@@ -4965,7 +4960,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Tipo de Comprobante: I - Ingreso </Value>
<Value>RFC: EMD950206SRA </Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontSize>8pt</FontSize>

128
Inventarios/Consignaciones.aspx
View File

@@ -361,8 +361,7 @@
<th width="100px">
<asp:Literal ID="LtCantidad" Text="Cantidad" runat="server" />
</th>
<th width="300px">Clasificación
<br />
<th width="300px">
Producto
</th>
<th width="90px">Unidad</th>
@@ -390,14 +389,18 @@
<td style="text-align: left;" align="center">
<div class="psagregar">
<div class="comboxes">
<asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="form-control input-sm select2me">
<%-- <asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList>
<br />
<asp:DropDownList ID="DdlProducto" runat="server" DataTextField="PSCodigo" AutoPostBack="true" DataValueField="CvePS" Class="form-control input-sm select2me"></asp:DropDownList>
<select id="DdlProductows" runat="server" class="form-control"></select><asp:Button ID="myhidenbutton" runat="server" Text="Button" Style="display: none;" />
<br />--%>
<%--<asp:DropDownList ID="DdlProducto" runat="server" DataTextField="PSCodigo" AutoPostBack="true" DataValueField="CvePS" Class="form-control input-sm select2me"></asp:DropDownList>--%>
<ADS:Dropdownlost Onselectedindexchange="DdlProducto_selectedindexchange" runat="server" ID="DdlProducto" CssStyle="width:100%%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
<%-- <select id="DdlProductows" runat="server" class="form-control"></select><asp:Button ID="myhidenbutton" runat="server" Text="Button" Style="display: none;" />
<asp:HiddenField ID="HFProducto" runat="server" />
<asp:HiddenField ID="HFTProducto" runat="server" />
<asp:HiddenField ID="HFTProducto" runat="server" />--%>
</div>
</div>
</td>
@@ -725,7 +728,8 @@
<script type="text/javascript">
function AddItem(Text, Value, idproductows) {
// Create an Option object <%= DdlProductows.ClientID%>
<%-- Create an Option object <%= DdlProductows.ClientID%> --%>
var opt = document.createElement("option");
@@ -741,7 +745,7 @@
}
Sys.Application.add_load(function (s, e) {
<%-- Sys.Application.add_load(function (s, e) {
var Tam = TamañoVentana();
var Alto = Tam.height - 300;
@@ -805,73 +809,73 @@
}
});
});--%>
var DdlProductows = '-1';
var DdlProducto = '-1';
var HFProducto = '-1';
var HFTProducto = '-1';
var Myhidenbutton = '-1';
function Asigna105(tDdlProductows, tDdlProducto, tHFProducto, tHFTProducto, tsMyhidenbutton) {
//function Asigna105(tDdlProductows, tDdlProducto, tHFProducto, tHFTProducto, tsMyhidenbutton) {
DdlProductoWS = tDdlProductows;
DdlProducto = tDdlProducto;
HFProducto = tHFProducto;
tHFTProducto = tHFTProducto;
Myhidenbutton = tsMyhidenbutton;
// DdlProductoWS = tDdlProductows;
// DdlProducto = tDdlProducto;
// HFProducto = tHFProducto;
// tHFTProducto = tHFTProducto;
// Myhidenbutton = tsMyhidenbutton;
Asigna1052(DdlProductows, DdlProducto, HFProducto, HFTProducto, sMyhidenbutton);
}
// Asigna1052(DdlProductows, DdlProducto, HFProducto, HFTProducto, sMyhidenbutton);
//}
function Asigna1052(DdlProductows, DdlProducto, HFProducto, HFTProducto, sMyhidenbutton) {
//function Asigna1052(DdlProductows, DdlProducto, HFProducto, HFTProducto, sMyhidenbutton) {
if ($(DdlProductows)) {
if (!($(HFProducto).val() === '')) {
AddItem($(HFTProducto).val(), $(HFProducto).val(), DdlProductows.replace('#', ''));
}
}
if ($(DdlProductows).data('creado') === '1') { } else {
$(DdlProductows).data('creado', '1')
$(DdlProductows).select2({
ajax: {
url: "/Ashx/SIGWeb.ashx",
dataType: 'json',
delay: 250,
data: function (params) {
return {
Name: params.term, // search term
Metodo: 'getps'
};
},
processResults: function (data, params) {
params.page = params.page || 1;
// if ($(DdlProductows)) {
// if (!($(HFProducto).val() === '')) {
// AddItem($(HFTProducto).val(), $(HFProducto).val(), DdlProductows.replace('#', ''));
// }
// }
// if ($(DdlProductows).data('creado') === '1') { } else {
// $(DdlProductows).data('creado', '1')
// $(DdlProductows).select2({
// ajax: {
// url: "/Ashx/SIGWeb.ashx",
// dataType: 'json',
// delay: 250,
// data: function (params) {
// return {
// Name: params.term, // search term
// Metodo: 'getps'
// };
// },
// processResults: function (data, params) {
// params.page = params.page || 1;
return {
results: data,
pagination: {
more: (params.page * 30) < data.total_count
}
};
},
cache: true
},
escapeMarkup: function (markup) { return markup; }, // let our custom formatter work
minimumInputLength: 3
});
}
if ($(DdlProductows)) {
if (!($(HFProducto).val() === '')) {
AddItem($(HFTProducto).val(), $(HFProducto).val(), DdlProductows.replace('#', ''));
}
$(DdlProductows).on("select2:select", function (e) { console.log(e); $(HFProducto).val(e.params.data.id); $(HFTProducto).val(e.params.data.text); $(sMyhidenbutton).click(); });
}
if ($(DdlProducto)) {
$(DdlProducto).on("select2:select", function (e) { console.log(e); $(HFProducto).val(e.params.data.id); $(HFTProducto).val(e.params.data.text); });
// return {
// results: data,
// pagination: {
// more: (params.page * 30) < data.total_count
// }
// };
// },
// cache: true
// },
// escapeMarkup: function (markup) { return markup; }, // let our custom formatter work
// minimumInputLength: 3
// });
// }
// if ($(DdlProductows)) {
// if (!($(HFProducto).val() === '')) {
// AddItem($(HFTProducto).val(), $(HFProducto).val(), DdlProductows.replace('#', ''));
// }
// $(DdlProductows).on("select2:select", function (e) { console.log(e); $(HFProducto).val(e.params.data.id); $(HFTProducto).val(e.params.data.text); $(sMyhidenbutton).click(); });
// }
// if ($(DdlProducto)) {
// $(DdlProducto).on("select2:select", function (e) { console.log(e); $(HFProducto).val(e.params.data.id); $(HFTProducto).val(e.params.data.text); });
}
// }
}
//}

159
Inventarios/Consignaciones.aspx.vb
View File

@@ -88,6 +88,24 @@ Partial Class Inventarios_Consignaciones
TxtFechaTraspaso.Text = Now.ToShortDateString
TxtFechaDevolucion.Text = Now.ToShortDateString
SoloLectura = False
'Carga Productos
DdlProducto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlProducto.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
DdlProducto.SelectedText = ""
DdlProducto.SelectedValue = "-1"
DdlProducto.ddl.Visible = False
Else
DdlProducto.ddl.Items.Clear()
DdlProducto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1)
DdlProducto.ddl.DataBind()
DdlProducto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
DdlProducto.ddlWS.Visible = False
End If
End Sub
Protected Sub CreaDT()
@@ -136,12 +154,12 @@ Partial Class Inventarios_Consignaciones
Private Sub CargaCombos()
'Llenar Clasificaciones
If UsuarioActual.CveEmpresa = 66 Then
DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
Else
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
End If
DdlClasificacion.DataBind()
'If UsuarioActual.CveEmpresa = 66 Then
' DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
'Else
' DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
'End If
'DdlClasificacion.DataBind()
'Llena unidades de medida
@@ -168,15 +186,19 @@ Partial Class Inventarios_Consignaciones
DdlProveedorFiltro.SelectedValue = "-1"
DdlProveedorFiltro.SelectedText = "Seleccione el Proveedor"
'Llenar el dropdownlist de Productos y servicios
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
DdlProducto.DataBind()
DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
DdlProductows.Visible = False
Else
DdlProducto.Visible = False
End If
''Llenar el dropdownlist de Productos y servicios
'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
' DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
' DdlProducto.DataBind()
' DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
' DdlProductows.Visible = False
'Else
' DdlProducto.Visible = False
'End If
DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
DdlSeccionAlmacen.DataBind()
@@ -411,9 +433,9 @@ Partial Class Inventarios_Consignaciones
ImgFecha.Enabled = Not Accion
TxtCantidad.Enabled = Not Accion
DdlClasificacion.Enabled = Not Accion
'DdlClasificacion.Enabled = Not Accion
DdlProducto.Enabled = Not Accion
DdlProductows.Disabled = Accion
' DdlProductows.Disabled = Accion
DdlUnidad.Enabled = Not Accion
TxtPU.Enabled = Not Accion
LbAgregar.Visible = Not Accion
@@ -486,7 +508,7 @@ Partial Class Inventarios_Consignaciones
Else
e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
End If
DdlClasificacion.DataBind()
'DdlClasificacion.DataBind()
e.Row.FCDropDownList("DdlClasificacion").DataBind()
e.Row.FCDropDownList("DdlClasificacion").SelectedValue = e.Row.DBCampo("CveClasificacion")
@@ -585,7 +607,7 @@ Partial Class Inventarios_Consignaciones
AddNew()
End Sub
Protected Sub AddNew()
Dim PSSelected As Integer = HFProducto.Value.ToEntero
Dim PSSelected As Integer = DdlProducto.SelectedValue.ToEntero
If PSSelected > 0 Then
@@ -632,7 +654,7 @@ Partial Class Inventarios_Consignaciones
registro.Item("CveUM") = DdlUnidad.SelectedValue.ToEntero
registro.Item("UnidadMedida") = DdlUnidad.SelectedItem.Text
registro.Item("CvePS") = PSSelected
registro.Item("PS") = HFTProducto.Value
registro.Item("PS") = DdlProducto.txtText.Value
registro.Item("PSCodigo") = PSCodigo
registro.Item("CveClasificacion") = CveClasificacion
registro.Item("EstatusExistencia") = "1"
@@ -838,10 +860,13 @@ Partial Class Inventarios_Consignaciones
DdlMoneda_SelectedIndexChanged(DdlMoneda, EventArgs.Empty)
TxtCantidad.Text = ""
DdlClasificacion.SelectedValueExist(-1)
DdlProducto.SelectedValueExist(-1)
DdlProductows.Items.Clear()
DdlProductows.DataBind()
'DdlClasificacion.SelectedValueExist(-1)
DdlProducto.txtText.Value = ""
DdlProducto.txtValue.Value = ""
'DdlProductows.Items.Clear()
'DdlProductows.DataBind()
TxtPU.Text = ""
'DEVOLUCION
@@ -916,7 +941,7 @@ Partial Class Inventarios_Consignaciones
End If
'AGREGAMOS MOVTOS DETALLE
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, "", "") Then
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("Serie").ToString, Gvr.DataKey("Lote").ToString) Then
ErrorMovInv = True
TextoError = "Ocurrió un Error al guardar los movimientos"
Exit For
@@ -1555,31 +1580,29 @@ Partial Class Inventarios_Consignaciones
#Region "DDL CLASIFICACION"
Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
ChangeDdlProducto()
End Sub
Private Sub ChangeDdlProducto()
If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
DdlProducto.DataBind()
DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
End If
HFProducto.Value = ""
HFTProducto.Value = ""
End Sub
'Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
' ChangeDdlProducto()
'End Sub
'Private Sub ChangeDdlProducto()
' If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
' DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
' DdlProducto.DataBind()
' DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
' End If
' HFProducto.Value = ""
' HFTProducto.Value = ""
'End Sub
Protected Sub DdlProducto_ValueChanged(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged
ElProductoChange()
End Sub
Protected Sub HFProducto_ValueChanged(sender As Object, e As EventArgs) Handles HFProducto.ValueChanged
ElProductoChange()
End Sub
'Protected Sub DdlProducto_ValueChanged(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged
' ElProductoChange()
'End Sub
'Protected Sub HFProducto_ValueChanged(sender As Object, e As EventArgs) Handles HFProducto.ValueChanged
' ElProductoChange()
'End Sub
Private Sub ElProductoChange()
If HFProducto.Value = "" Then
HFProducto.Value = DdlProducto.SelectedValue
End If
DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(HFProducto.Value.ToEntero, -1, UsuarioActual.CveEmpresa)
DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProducto.txtValue.Value.ToEntero, -1, UsuarioActual.CveEmpresa)
DdlUnidad.DataBind()
UpDatos.Update()
End Sub
@@ -1599,25 +1622,25 @@ Partial Class Inventarios_Consignaciones
Private Function isWhitFamily() As Boolean
Return (UsuarioActual.CveEmpresa = 66)
End Function
Protected Sub DdlProducto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProducto.SelectedIndexChanged
If Not DdlProducto.SelectedValue = "" Then
'If DtPS.FiltraParametros( string.Format("CvePS = {0} AND Inv_CveMetodoInventario = 3 ",DdlProducto.SelectedValue)).Rows.Count > 0 Then
' LblSerieLote.Visible = True
' TxtnSerieLote.Visible = True
'Else
' LblSerieLote.Visible = False
' TxtnSerieLote.Visible = False
'End If
End If
Dim dtpse As DataTable
dtpse = GlobalDTProductosServiciosEquivalencias(DdlProducto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
'dtpse.Columns("UM").ColumnName = "UnidadMedida"
'dtpse.Columns("CveUM").ColumnName = "CveUnidadMedida"
DdlUnidad.DataSource = dtpse
DdlUnidad.DataBind()
'Protected Sub DdlProducto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProducto.SelectedIndexChanged
' If Not DdlProducto.SelectedValue = "" Then
' 'If DtPS.FiltraParametros( string.Format("CvePS = {0} AND Inv_CveMetodoInventario = 3 ",DdlProducto.SelectedValue)).Rows.Count > 0 Then
' ' LblSerieLote.Visible = True
' ' TxtnSerieLote.Visible = True
' 'Else
' ' LblSerieLote.Visible = False
' ' TxtnSerieLote.Visible = False
' 'End If
' End If
' Dim dtpse As DataTable
' dtpse = GlobalDTProductosServiciosEquivalencias(DdlProducto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
' 'dtpse.Columns("UM").ColumnName = "UnidadMedida"
' 'dtpse.Columns("CveUM").ColumnName = "CveUnidadMedida"
' DdlUnidad.DataSource = dtpse
' DdlUnidad.DataBind()
End Sub
'End Sub
#End Region
@@ -1680,7 +1703,8 @@ Partial Class Inventarios_Consignaciones
#Region "Columnas Opcionales en PS"
Protected Sub DdlProducto_Click(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged
Protected Sub DdlProducto_selectedindexchange(sender As Object, e As EventArgs)
If DdlProducto.SelectedValue.ToEntero > 0 Then
Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto.SelectedValue.ToEntero).FiltroPrimero("")
@@ -1710,9 +1734,14 @@ Partial Class Inventarios_Consignaciones
End If
UpDatos.Update()
End If
ElProductoChange()
End Sub
#End Region
End Class

10
Ventas/RepVentas.aspx
View File

@@ -72,7 +72,7 @@
<li>
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i> Personalizar</asp:HyperLink>
</li>
</ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpLnkHP" runat="server" UpdateMode="Conditional">
<ContentTemplate>
@@ -89,7 +89,15 @@
<li>
<asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server"><i class="fa fa-signal"></i> Ver Grafica</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkDescargaCartaPorte" OnClick="LnkDescargaCartaPorte_Click" runat="server" Visible="false"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Descarga Carta Porte</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkDescargaCartaPorte" />
</Triggers>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">

27
Ventas/RepVentas.aspx.vb
View File

@@ -120,6 +120,11 @@ Partial Class Ventas_RepVentas
DdlVendedor.Attributes.Add("disabled", "disabled")
DdlVendedor.Enabled = False
End If
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
LnkDescargaCartaPorte.Visible = True
End If
End If
End Sub
@@ -936,4 +941,26 @@ Partial Class Ventas_RepVentas
Context.Response.End()
End Sub
Protected Sub LnkDescargaCartaPorte_Click(sender As Object, e As EventArgs)
Dim ObjVentas As New ClsVentas
Dim DTDataos As New DataTable
Dim CveSubProyectos As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
If ObjVentas.GetListadoCartaPorteRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveSubProyectos, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
DTDataos = ObjVentas.DtResultados
End If
ObjVentas.Dispose()
DTDataos.ExportToExcel("RepCartasPorte.xls")
End Sub
End Class