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 Return Retorno
End Function End Function
Public Function UpdateVentaRNCUsado(CveVentaRNC As Integer, CveVenta As Integer) As Boolean Public Function UpdateVentaRNCUsado(CveVentaRNC As Integer, CveVenta As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -5544,6 +5547,29 @@ Public Class ClsVentas
#End Region #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" #Region "IDisposable Support"

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

@@ -1514,7 +1514,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -1869,7 +1868,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -2224,7 +2222,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -2579,7 +2576,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -2934,7 +2930,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -4948,7 +4943,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <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> <Style>
<FontStyle>Normal</FontStyle> <FontStyle>Normal</FontStyle>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -4965,7 +4960,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Tipo de Comprobante: I - Ingreso </Value> <Value>RFC: EMD950206SRA </Value>
<Style> <Style>
<FontStyle>Normal</FontStyle> <FontStyle>Normal</FontStyle>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>

128
Inventarios/Consignaciones.aspx
View File

@@ -361,8 +361,7 @@
<th width="100px"> <th width="100px">
<asp:Literal ID="LtCantidad" Text="Cantidad" runat="server" /> <asp:Literal ID="LtCantidad" Text="Cantidad" runat="server" />
</th> </th>
<th width="300px">Clasificación <th width="300px">
<br />
Producto Producto
</th> </th>
<th width="90px">Unidad</th> <th width="90px">Unidad</th>
@@ -390,14 +389,18 @@
<td style="text-align: left;" align="center"> <td style="text-align: left;" align="center">
<div class="psagregar"> <div class="psagregar">
<div class="comboxes"> <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:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<br /> <br />--%>
<asp:DropDownList ID="DdlProducto" runat="server" DataTextField="PSCodigo" AutoPostBack="true" DataValueField="CvePS" Class="form-control input-sm select2me"></asp:DropDownList> <%--<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;" />
<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="HFProducto" runat="server" />
<asp:HiddenField ID="HFTProducto" runat="server" /> <asp:HiddenField ID="HFTProducto" runat="server" />--%>
</div> </div>
</div> </div>
</td> </td>
@@ -725,7 +728,8 @@
<script type="text/javascript"> <script type="text/javascript">
function AddItem(Text, Value, idproductows) { function AddItem(Text, Value, idproductows) {
// Create an Option object <%= DdlProductows.ClientID%>
<%-- Create an Option object <%= DdlProductows.ClientID%> --%>
var opt = document.createElement("option"); 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 Tam = TamañoVentana();
var Alto = Tam.height - 300; var Alto = Tam.height - 300;
@@ -805,73 +809,73 @@
} }
}); });--%>
var DdlProductows = '-1'; var DdlProductows = '-1';
var DdlProducto = '-1'; var DdlProducto = '-1';
var HFProducto = '-1'; var HFProducto = '-1';
var HFTProducto = '-1'; var HFTProducto = '-1';
var Myhidenbutton = '-1'; var Myhidenbutton = '-1';
function Asigna105(tDdlProductows, tDdlProducto, tHFProducto, tHFTProducto, tsMyhidenbutton) { //function Asigna105(tDdlProductows, tDdlProducto, tHFProducto, tHFTProducto, tsMyhidenbutton) {
DdlProductoWS = tDdlProductows; // DdlProductoWS = tDdlProductows;
DdlProducto = tDdlProducto; // DdlProducto = tDdlProducto;
HFProducto = tHFProducto; // HFProducto = tHFProducto;
tHFTProducto = tHFTProducto; // tHFTProducto = tHFTProducto;
Myhidenbutton = tsMyhidenbutton; // 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 ($(DdlProductows)) {
if (!($(HFProducto).val() === '')) { // if (!($(HFProducto).val() === '')) {
AddItem($(HFTProducto).val(), $(HFProducto).val(), DdlProductows.replace('#', '')); // AddItem($(HFTProducto).val(), $(HFProducto).val(), DdlProductows.replace('#', ''));
} // }
} // }
if ($(DdlProductows).data('creado') === '1') { } else { // if ($(DdlProductows).data('creado') === '1') { } else {
$(DdlProductows).data('creado', '1') // $(DdlProductows).data('creado', '1')
$(DdlProductows).select2({ // $(DdlProductows).select2({
ajax: { // ajax: {
url: "/Ashx/SIGWeb.ashx", // url: "/Ashx/SIGWeb.ashx",
dataType: 'json', // dataType: 'json',
delay: 250, // delay: 250,
data: function (params) { // data: function (params) {
return { // return {
Name: params.term, // search term // Name: params.term, // search term
Metodo: 'getps' // Metodo: 'getps'
}; // };
}, // },
processResults: function (data, params) { // processResults: function (data, params) {
params.page = params.page || 1; // params.page = params.page || 1;
return { // return {
results: data, // results: data,
pagination: { // pagination: {
more: (params.page * 30) < data.total_count // more: (params.page * 30) < data.total_count
} // }
}; // };
}, // },
cache: true // cache: true
}, // },
escapeMarkup: function (markup) { return markup; }, // let our custom formatter work // escapeMarkup: function (markup) { return markup; }, // let our custom formatter work
minimumInputLength: 3 // minimumInputLength: 3
}); // });
} // }
if ($(DdlProductows)) { // if ($(DdlProductows)) {
if (!($(HFProducto).val() === '')) { // if (!($(HFProducto).val() === '')) {
AddItem($(HFTProducto).val(), $(HFProducto).val(), DdlProductows.replace('#', '')); // 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(); }); // $(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)) { // if ($(DdlProducto)) {
$(DdlProducto).on("select2:select", function (e) { console.log(e); $(HFProducto).val(e.params.data.id); $(HFTProducto).val(e.params.data.text); }); // $(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 TxtFechaTraspaso.Text = Now.ToShortDateString
TxtFechaDevolucion.Text = Now.ToShortDateString TxtFechaDevolucion.Text = Now.ToShortDateString
SoloLectura = False 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 End Sub
Protected Sub CreaDT() Protected Sub CreaDT()
@@ -136,12 +154,12 @@ Partial Class Inventarios_Consignaciones
Private Sub CargaCombos() Private Sub CargaCombos()
'Llenar Clasificaciones 'Llenar Clasificaciones
If UsuarioActual.CveEmpresa = 66 Then 'If UsuarioActual.CveEmpresa = 66 Then
DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion") ' DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
Else 'Else
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") ' DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
End If 'End If
DdlClasificacion.DataBind() 'DdlClasificacion.DataBind()
'Llena unidades de medida 'Llena unidades de medida
@@ -168,15 +186,19 @@ Partial Class Inventarios_Consignaciones
DdlProveedorFiltro.SelectedValue = "-1" DdlProveedorFiltro.SelectedValue = "-1"
DdlProveedorFiltro.SelectedText = "Seleccione el Proveedor" DdlProveedorFiltro.SelectedText = "Seleccione el Proveedor"
'Llenar el dropdownlist de Productos y servicios ''Llenar el dropdownlist de Productos y servicios
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then 'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) ' DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
DdlProducto.DataBind() ' DdlProducto.DataBind()
DdlProducto.Items.Insert(0, New ListItem("----", "-1")) ' DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
DdlProductows.Visible = False ' DdlProductows.Visible = False
Else 'Else
DdlProducto.Visible = False ' DdlProducto.Visible = False
End If 'End If
DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
DdlSeccionAlmacen.DataBind() DdlSeccionAlmacen.DataBind()
@@ -411,9 +433,9 @@ Partial Class Inventarios_Consignaciones
ImgFecha.Enabled = Not Accion ImgFecha.Enabled = Not Accion
TxtCantidad.Enabled = Not Accion TxtCantidad.Enabled = Not Accion
DdlClasificacion.Enabled = Not Accion 'DdlClasificacion.Enabled = Not Accion
DdlProducto.Enabled = Not Accion DdlProducto.Enabled = Not Accion
DdlProductows.Disabled = Accion ' DdlProductows.Disabled = Accion
DdlUnidad.Enabled = Not Accion DdlUnidad.Enabled = Not Accion
TxtPU.Enabled = Not Accion TxtPU.Enabled = Not Accion
LbAgregar.Visible = Not Accion LbAgregar.Visible = Not Accion
@@ -486,7 +508,7 @@ Partial Class Inventarios_Consignaciones
Else Else
e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion") e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
End If End If
DdlClasificacion.DataBind() 'DdlClasificacion.DataBind()
e.Row.FCDropDownList("DdlClasificacion").DataBind() e.Row.FCDropDownList("DdlClasificacion").DataBind()
e.Row.FCDropDownList("DdlClasificacion").SelectedValue = e.Row.DBCampo("CveClasificacion") e.Row.FCDropDownList("DdlClasificacion").SelectedValue = e.Row.DBCampo("CveClasificacion")
@@ -585,7 +607,7 @@ Partial Class Inventarios_Consignaciones
AddNew() AddNew()
End Sub End Sub
Protected Sub AddNew() Protected Sub AddNew()
Dim PSSelected As Integer = HFProducto.Value.ToEntero Dim PSSelected As Integer = DdlProducto.SelectedValue.ToEntero
If PSSelected > 0 Then If PSSelected > 0 Then
@@ -632,7 +654,7 @@ Partial Class Inventarios_Consignaciones
registro.Item("CveUM") = DdlUnidad.SelectedValue.ToEntero registro.Item("CveUM") = DdlUnidad.SelectedValue.ToEntero
registro.Item("UnidadMedida") = DdlUnidad.SelectedItem.Text registro.Item("UnidadMedida") = DdlUnidad.SelectedItem.Text
registro.Item("CvePS") = PSSelected registro.Item("CvePS") = PSSelected
registro.Item("PS") = HFTProducto.Value registro.Item("PS") = DdlProducto.txtText.Value
registro.Item("PSCodigo") = PSCodigo registro.Item("PSCodigo") = PSCodigo
registro.Item("CveClasificacion") = CveClasificacion registro.Item("CveClasificacion") = CveClasificacion
registro.Item("EstatusExistencia") = "1" registro.Item("EstatusExistencia") = "1"
@@ -838,10 +860,13 @@ Partial Class Inventarios_Consignaciones
DdlMoneda_SelectedIndexChanged(DdlMoneda, EventArgs.Empty) DdlMoneda_SelectedIndexChanged(DdlMoneda, EventArgs.Empty)
TxtCantidad.Text = "" TxtCantidad.Text = ""
DdlClasificacion.SelectedValueExist(-1) 'DdlClasificacion.SelectedValueExist(-1)
DdlProducto.SelectedValueExist(-1)
DdlProductows.Items.Clear() DdlProducto.txtText.Value = ""
DdlProductows.DataBind() DdlProducto.txtValue.Value = ""
'DdlProductows.Items.Clear()
'DdlProductows.DataBind()
TxtPU.Text = "" TxtPU.Text = ""
'DEVOLUCION 'DEVOLUCION
@@ -916,7 +941,7 @@ Partial Class Inventarios_Consignaciones
End If End If
'AGREGAMOS MOVTOS DETALLE '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 ErrorMovInv = True
TextoError = "Ocurrió un Error al guardar los movimientos" TextoError = "Ocurrió un Error al guardar los movimientos"
Exit For Exit For
@@ -1555,31 +1580,29 @@ Partial Class Inventarios_Consignaciones
#Region "DDL CLASIFICACION" #Region "DDL CLASIFICACION"
Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged 'Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
ChangeDdlProducto() ' ChangeDdlProducto()
End Sub 'End Sub
Private Sub ChangeDdlProducto() 'Private Sub ChangeDdlProducto()
If UsuarioActual.Empresa.Funcionalidad(105) = "" Then ' If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) ' DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
DdlProducto.DataBind() ' DdlProducto.DataBind()
DdlProducto.Items.Insert(0, New ListItem("----", "-1")) ' DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
End If ' End If
HFProducto.Value = "" ' HFProducto.Value = ""
HFTProducto.Value = "" ' HFTProducto.Value = ""
End Sub 'End Sub
Protected Sub DdlProducto_ValueChanged(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged 'Protected Sub DdlProducto_ValueChanged(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged
ElProductoChange() ' ElProductoChange()
End Sub 'End Sub
Protected Sub HFProducto_ValueChanged(sender As Object, e As EventArgs) Handles HFProducto.ValueChanged 'Protected Sub HFProducto_ValueChanged(sender As Object, e As EventArgs) Handles HFProducto.ValueChanged
ElProductoChange() ' ElProductoChange()
End Sub 'End Sub
Private Sub ElProductoChange() 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() DdlUnidad.DataBind()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
@@ -1599,25 +1622,25 @@ Partial Class Inventarios_Consignaciones
Private Function isWhitFamily() As Boolean Private Function isWhitFamily() As Boolean
Return (UsuarioActual.CveEmpresa = 66) Return (UsuarioActual.CveEmpresa = 66)
End Function End Function
Protected Sub DdlProducto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProducto.SelectedIndexChanged 'Protected Sub DdlProducto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProducto.SelectedIndexChanged
If Not DdlProducto.SelectedValue = "" Then ' If Not DdlProducto.SelectedValue = "" Then
'If DtPS.FiltraParametros( string.Format("CvePS = {0} AND Inv_CveMetodoInventario = 3 ",DdlProducto.SelectedValue)).Rows.Count > 0 Then ' 'If DtPS.FiltraParametros( string.Format("CvePS = {0} AND Inv_CveMetodoInventario = 3 ",DdlProducto.SelectedValue)).Rows.Count > 0 Then
' LblSerieLote.Visible = True ' ' LblSerieLote.Visible = True
' TxtnSerieLote.Visible = True ' ' TxtnSerieLote.Visible = True
'Else ' 'Else
' LblSerieLote.Visible = False ' ' LblSerieLote.Visible = False
' TxtnSerieLote.Visible = False ' ' TxtnSerieLote.Visible = False
'End If ' 'End If
End If ' End If
Dim dtpse As DataTable ' Dim dtpse As DataTable
dtpse = GlobalDTProductosServiciosEquivalencias(DdlProducto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) ' dtpse = GlobalDTProductosServiciosEquivalencias(DdlProducto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
'dtpse.Columns("UM").ColumnName = "UnidadMedida" ' 'dtpse.Columns("UM").ColumnName = "UnidadMedida"
'dtpse.Columns("CveUM").ColumnName = "CveUnidadMedida" ' 'dtpse.Columns("CveUM").ColumnName = "CveUnidadMedida"
DdlUnidad.DataSource = dtpse ' DdlUnidad.DataSource = dtpse
DdlUnidad.DataBind() ' DdlUnidad.DataBind()
End Sub 'End Sub
#End Region #End Region
@@ -1680,7 +1703,8 @@ Partial Class Inventarios_Consignaciones
#Region "Columnas Opcionales en PS" #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 If DdlProducto.SelectedValue.ToEntero > 0 Then
Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto.SelectedValue.ToEntero).FiltroPrimero("") Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto.SelectedValue.ToEntero).FiltroPrimero("")
@@ -1710,9 +1734,14 @@ Partial Class Inventarios_Consignaciones
End If End If
UpDatos.Update() UpDatos.Update()
End If End If
ElProductoChange()
End Sub End Sub
#End Region #End Region
End Class End Class

8
Ventas/RepVentas.aspx
View File

@@ -89,7 +89,15 @@
<li> <li>
<asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server"><i class="fa fa-signal"></i> Ver Grafica</asp:LinkButton> <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server"><i class="fa fa-signal"></i> Ver Grafica</asp:LinkButton>
</li> </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> </ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkDescargaCartaPorte" />
</Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server"> <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.Attributes.Add("disabled", "disabled")
DdlVendedor.Enabled = False DdlVendedor.Enabled = False
End If End If
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
LnkDescargaCartaPorte.Visible = True
End If
End If End If
End Sub End Sub
@@ -936,4 +941,26 @@ Partial Class Ventas_RepVentas
Context.Response.End() Context.Response.End()
End Sub 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 End Class