Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -2997,9 +2997,51 @@ Public Class ClsCompras
|
|||||||
OnError("Ocurrió un error al obtener las compras con método de pago PUE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
OnError("Ocurrió un error al obtener las compras con método de pago PUE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
End Try
|
End Try
|
||||||
Return retorno
|
Return retorno
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
#Region "Reporte de REQ-OC-Compra-Inv"
|
||||||
|
Public Function GetRepReqOCCompraInv(FI As Date, FF As Date, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
DataAdapter("PA_Comp_ReqOCCompraInvGet")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@FI", SqlDbType.Date).Value = FI
|
||||||
|
.Add("@FF", SqlDbType.Date).Value = FF
|
||||||
|
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
||||||
|
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||||
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al obtener el reporte de REQ-OC-Compra-Inv", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
|
#Region "Reporte de Precios de Compras"
|
||||||
|
Public Function GetRepComprasPrecios(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
DataAdapter("PA_Comp_ComprasPreciosGet")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
||||||
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al obtener el reporte de Precios de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -3757,15 +3757,16 @@ Public Class ClsPaginas
|
|||||||
PaginaDict.Add("/Compras/ProveedoresAuxiliar.aspx".ToUpper(), 536)
|
PaginaDict.Add("/Compras/ProveedoresAuxiliar.aspx".ToUpper(), 536)
|
||||||
PaginaDict.Add("/Compras/RepComprasInventarios.aspx".ToUpper(), 537)
|
PaginaDict.Add("/Compras/RepComprasInventarios.aspx".ToUpper(), 537)
|
||||||
PaginaDict.Add("/Compras/RepAnt-NC-EXC.aspx".ToUpper(), 538)
|
PaginaDict.Add("/Compras/RepAnt-NC-EXC.aspx".ToUpper(), 538)
|
||||||
PaginaDict.Add("/Compras/RepAnt-NC-EXCDetalle.aspx".ToUpper(), 538)
|
PaginaDict.Add("/Compras/RepAnt-NC-EXCDetalle.aspx".ToUpper(), 538)
|
||||||
'EvaluacionProveedor.aspx
|
PaginaDict.Add("/Compras/EvaluacionProveedor.aspx".ToUpper(), 715) 'EvaluacionProveedor.aspx
|
||||||
PaginaDict.Add("/Compras/EvaluacionProveedor.aspx".ToUpper(), 715)
|
PaginaDict.Add("/Compras/RepPUESinPago.aspx".ToUpper(), 675)
|
||||||
PaginaDict.Add("/Compras/RepPUESinPago.aspx".ToUpper(), 675)
|
PaginaDict.Add("/Compras/RepReqOCCompraInv.aspx".ToUpper(), 689)
|
||||||
|
PaginaDict.Add("/Compras/RepComprasPrecios.aspx".ToUpper(), 690)
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
'CONTABILIDAD
|
'CONTABILIDAD
|
||||||
#Region "Contabilidad"
|
#Region "Contabilidad"
|
||||||
'CONTABILIDAD ELECTRONICA
|
'CONTABILIDAD ELECTRONICA
|
||||||
PaginaDict.Add("/Contabilidad/ContabilidadElectronica.aspx".ToUpper(), 566)
|
PaginaDict.Add("/Contabilidad/ContabilidadElectronica.aspx".ToUpper(), 566)
|
||||||
PaginaDict.Add("/Contabilidad/RepGastosCC.aspx".ToUpper(), 535)
|
PaginaDict.Add("/Contabilidad/RepGastosCC.aspx".ToUpper(), 535)
|
||||||
PaginaDict.Add("/Contabilidad/ContabilizarPagosCliente.aspx".ToUpper(), 52)
|
PaginaDict.Add("/Contabilidad/ContabilizarPagosCliente.aspx".ToUpper(), 52)
|
||||||
|
|||||||
@@ -3228,10 +3228,24 @@ Public Class Timbrado
|
|||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
|
|
||||||
Dim Resultados = Newtonsoft.Json.Linq.JArray.Parse(resultadoTimbre.Detalle)
|
Dim Resultados = Newtonsoft.Json.Linq.JArray.Parse(resultadoTimbre.Detalle)
|
||||||
|
|
||||||
If Resultados.Count > 0 Then
|
If Resultados.Count > 0 Then
|
||||||
Retorno = Resultados(0)("Value").ToString()
|
|
||||||
MensajeErrorCFDI = Resultados(0)("Value").ToString()
|
If resultadoTimbre.Descripcion.Contains("RFC del receptor no existe") Then
|
||||||
|
|
||||||
|
Retorno = $"El RFC { Resultados(0)("Value").ToString() } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente"
|
||||||
|
MensajeErrorCFDI = $"El RFC { Resultados(0)("Value").ToString() } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente"
|
||||||
|
|
||||||
|
Else
|
||||||
|
|
||||||
|
Retorno = Resultados(0)("Value").ToString()
|
||||||
|
MensajeErrorCFDI = Resultados(0)("Value").ToString()
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
Retorno = resultadoTimbre.Detalle
|
Retorno = resultadoTimbre.Detalle
|
||||||
MensajeErrorCFDI = resultadoTimbre.Detalle
|
MensajeErrorCFDI = resultadoTimbre.Detalle
|
||||||
|
|||||||
@@ -4190,7 +4190,7 @@ Partial Class Compras_Compras
|
|||||||
Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal
|
Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal
|
||||||
Dim CveMonedaPago As Integer = DdlMoneda.SelectedValue.ToEntero
|
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
|
If RBLContado.SelectedValue = "1" Then
|
||||||
ImportePago = TxtDocumentoImporte.Text.Trim.ToDecimal
|
ImportePago = TxtDocumentoImporte.Text.Trim.ToDecimal
|
||||||
@@ -6740,7 +6740,7 @@ Partial Class Compras_Compras
|
|||||||
' End If
|
' End If
|
||||||
'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 ConceptoContableAnticipo, ConceptoContableAnticipoComplementaria As Integer
|
||||||
Dim CveCompraNC As Integer = CveCompra
|
Dim CveCompraNC As Integer = CveCompra
|
||||||
@@ -7327,7 +7327,7 @@ Partial Class Compras_Compras
|
|||||||
Dim PorcentajePago As Decimal
|
Dim PorcentajePago As Decimal
|
||||||
Dim CveConceptoAnt As Integer = 21
|
Dim CveConceptoAnt As Integer = 21
|
||||||
Dim CveCompraNC As Integer
|
Dim CveCompraNC As Integer
|
||||||
For Each Ant As Anticipos In ArrAnticipos
|
For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
|
||||||
CveCompraNC = CveCompra
|
CveCompraNC = CveCompra
|
||||||
Dim CveConceptoPago As Integer = 17
|
Dim CveConceptoPago As Integer = 17
|
||||||
Select Case Ant.TipoMovto
|
Select Case Ant.TipoMovto
|
||||||
@@ -8840,7 +8840,7 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
Dim ImporteAnticipo As Decimal = 0
|
Dim ImporteAnticipo As Decimal = 0
|
||||||
If ArrAnticipos.Count > 0 Then
|
If ArrAnticipos.Count > 0 Then
|
||||||
For Each Ant As Anticipos In ArrAnticipos
|
For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
|
||||||
ImporteAnticipo += Ant.Importe
|
ImporteAnticipo += Ant.Importe
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
@@ -12255,7 +12255,7 @@ Partial Class Compras_Compras
|
|||||||
Select Case RBLContado.SelectedValue
|
Select Case RBLContado.SelectedValue
|
||||||
Case "1" ' Bancos
|
Case "1" ' Bancos
|
||||||
PnlContadoBancos.Visible = True
|
PnlContadoBancos.Visible = True
|
||||||
TxtDocumentoImporte.Text = TxtTotal.Text
|
TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
|
||||||
Case "2" ' F y E
|
Case "2" ' F y E
|
||||||
PnlContadoFyE.Visible = True
|
PnlContadoFyE.Visible = True
|
||||||
CargaFuncionariosEmpleados()
|
CargaFuncionariosEmpleados()
|
||||||
@@ -12270,7 +12270,7 @@ Partial Class Compras_Compras
|
|||||||
CargaAcreedores()
|
CargaAcreedores()
|
||||||
Case "6" ' Caja Chica
|
Case "6" ' Caja Chica
|
||||||
PnlContadoCajaChica.Visible = True
|
PnlContadoCajaChica.Visible = True
|
||||||
TxtDocumentoImporteCaja.Text = TxtTotal.Text
|
TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
UpContado.Update()
|
UpContado.Update()
|
||||||
@@ -14596,7 +14596,7 @@ Partial Class Compras_Compras
|
|||||||
'ANTICIPOS COMPRA
|
'ANTICIPOS COMPRA
|
||||||
Dim ImporteAnticipo As Decimal = 0
|
Dim ImporteAnticipo As Decimal = 0
|
||||||
If ArrAnticipos.Count > 0 Then
|
If ArrAnticipos.Count > 0 Then
|
||||||
For Each Ant As Anticipos In ArrAnticipos
|
For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
|
||||||
ImporteAnticipo += Ant.Importe
|
ImporteAnticipo += Ant.Importe
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -2972,6 +2972,7 @@ Partial Class PopUpVerFactura
|
|||||||
params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
|
params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
|
||||||
params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
|
params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
|
||||||
params.Add(New ReportParameter("Copia", "Copia: Original"))
|
params.Add(New ReportParameter("Copia", "Copia: Original"))
|
||||||
|
params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|||||||
316
Compras/RepComprasPrecios.aspx
Normal file
316
Compras/RepComprasPrecios.aspx
Normal file
@@ -0,0 +1,316 @@
|
|||||||
|
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasPrecios.aspx.vb" Inherits="RepComprasPrecios" %>
|
||||||
|
|
||||||
|
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||||
|
<style>
|
||||||
|
.Widthall {
|
||||||
|
width: 100% !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scrollHeadInner {
|
||||||
|
width: 100% !important;
|
||||||
|
background-color: #dddddd;
|
||||||
|
padding-left: 0px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scrollFoot {
|
||||||
|
display: none;
|
||||||
|
position: static;
|
||||||
|
}
|
||||||
|
|
||||||
|
.table-scrollable {
|
||||||
|
margin: 0px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scroll {
|
||||||
|
margin-bottom: 0px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.table.dataTable {
|
||||||
|
margin-top: 0px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scrollBody table th {
|
||||||
|
padding: 0px !important;
|
||||||
|
padding-right: 4px !important;
|
||||||
|
padding-left: 4px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.sinlink td a {
|
||||||
|
pointer-events: none;
|
||||||
|
cursor: default;
|
||||||
|
color: black;
|
||||||
|
font-size: small;
|
||||||
|
}
|
||||||
|
|
||||||
|
.white a {
|
||||||
|
color: white !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2 .select2-selection__rendered {
|
||||||
|
line-height: 1;
|
||||||
|
color: #111;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2 .select2-selection--multiple {
|
||||||
|
box-sizing: border-box;
|
||||||
|
cursor: pointer;
|
||||||
|
display: block;
|
||||||
|
min-height: 20px;
|
||||||
|
user-select: none;
|
||||||
|
-webkit-user-select: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-container--default .select2-selection--multiple .select2-selection__choice {
|
||||||
|
margin-top: 10px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-selection__rendered {
|
||||||
|
margin-top: 0px;
|
||||||
|
height: 25px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-selection {
|
||||||
|
margin-top: 0px;
|
||||||
|
height: 31px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-container--default.select2-container--focus .select2-selection--multiple {
|
||||||
|
border: none;
|
||||||
|
outline: 0;
|
||||||
|
}
|
||||||
|
</style>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||||
|
<asp:Label ID="LblTitulo" runat="server" Text="Reporte de Precios de Compras"></asp:Label>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
|
||||||
|
<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
|
||||||
|
|
||||||
|
<%-- <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="btn-group pull-right btn-separete">
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>--%>
|
||||||
|
</asp:Content>
|
||||||
|
|
||||||
|
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server" defaultbutton="BtnConsultar">
|
||||||
|
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="portlet solid grey-cascade portlet-filter" style="">
|
||||||
|
<div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px; position: relative;">
|
||||||
|
<div class="tools">
|
||||||
|
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
|
||||||
|
<a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
|
||||||
|
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
|
||||||
|
</div>
|
||||||
|
<div class="portlet-body">
|
||||||
|
<div class="row">
|
||||||
|
<label class="col-md-1 truncate" data-toggle="tooltip" title="Almacén Destino">Proveedor:</label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<asp:DropDownList ID="DdlProveedor" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control input-sm input-small select2me" Width="150px" runat="server"></asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
<br />
|
||||||
|
<div class="row">
|
||||||
|
<div align="right">
|
||||||
|
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; width: 150px;" />
|
||||||
|
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||||
|
</div>
|
||||||
|
</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">
|
||||||
|
<Columns>
|
||||||
|
|
||||||
|
<%-- <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="HplREQ" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="HplOC" runat="server" Text='<%# Eval("UltCompra", "{0:N2}") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField HeaderText="Precio Venta" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="HplOC2" runat="server" Text='<%# Eval("PrecioLista", "{0:N2}") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>--%>
|
||||||
|
|
||||||
|
</Columns>
|
||||||
|
<HeaderStyle CssClass="Titulos" />
|
||||||
|
<RowStyle CssClass="Texto" />
|
||||||
|
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||||
|
</asp:GridView>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div id="DivPersonalizar" class="modal fade" role="dialog">
|
||||||
|
<div class="modal-dialog">
|
||||||
|
|
||||||
|
<!-- Modal content-->
|
||||||
|
<div class="modal-content">
|
||||||
|
<div class="modal-header">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">
|
||||||
|
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
<table class="table table-striped table-advance table-hover Widthall">
|
||||||
|
<tbody>
|
||||||
|
<tr>
|
||||||
|
<td style="text-align: left;">
|
||||||
|
<asp:CheckBox ID="ChkUsuarioCancelacion" runat="server" Text="Usuario Cancelación" /></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td style="text-align: left;">
|
||||||
|
<asp:CheckBox ID="ChkTipo" runat="server" Text="Cargo/Abono" /></td>
|
||||||
|
</tr>
|
||||||
|
|
||||||
|
</tbody>
|
||||||
|
</table>
|
||||||
|
</div>
|
||||||
|
<div class="modal-footer">
|
||||||
|
<asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
|
||||||
|
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||||
|
<%--<script type="text/javascript">
|
||||||
|
|
||||||
|
function Scroll() {
|
||||||
|
$(document).ready(function () {
|
||||||
|
var Tam = TamañoVentana();
|
||||||
|
var Alto = Tam.height - 300;
|
||||||
|
$('#<%=GvDatos.ClientID%>').gridviewScroll({
|
||||||
|
width: 995,
|
||||||
|
height: Alto
|
||||||
|
});
|
||||||
|
});
|
||||||
|
}
|
||||||
|
</script>--%>
|
||||||
|
|
||||||
|
<script type="text/javascript">
|
||||||
|
function GetSelectedRow(lnk, txtf, txtoi) {
|
||||||
|
|
||||||
|
|
||||||
|
//var row = lnk.parentNode.parentNode;
|
||||||
|
//var txtoi = row.cells[10].getElementsByTagName("input")[1];
|
||||||
|
if (lnk.checked) {
|
||||||
|
debugger;
|
||||||
|
if (txtf) { txtf.style.display = ""; }
|
||||||
|
if (txtoi) { txtoi.style.display = ""; }
|
||||||
|
// try {
|
||||||
|
// row.cells[10].getElementsByTagName("input")[0].style.display = "";
|
||||||
|
// if (txtoi) { txtoi.style.display = ""; }
|
||||||
|
// }
|
||||||
|
// catch (err) {
|
||||||
|
// row = row.parentNode;
|
||||||
|
// row.cells[10].getElementsByTagName("input")[0].style.display = "";
|
||||||
|
// }
|
||||||
|
} else {
|
||||||
|
if (txtf) { txtf.style.display = "none"; }
|
||||||
|
if (txtoi) { txtoi.style.display = "none"; }
|
||||||
|
// try {
|
||||||
|
// row.cells[10].getElementsByTagName("input")[0].style.display = "none";
|
||||||
|
// }
|
||||||
|
// catch (err) {
|
||||||
|
// row = row.parentNode;
|
||||||
|
// row.cells[10].getElementsByTagName("input")[0].style.display = "none";
|
||||||
|
// }
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
function FechaGeneral(lnk, FechaDocumento) {
|
||||||
|
debugger;
|
||||||
|
var row = lnk.parentNode.parentNode;
|
||||||
|
|
||||||
|
var parts = FechaDocumento.split("/");
|
||||||
|
var F1 = new Date(parts[2], parts[1], parts[0]);
|
||||||
|
|
||||||
|
|
||||||
|
if (lnk.checked) {
|
||||||
|
try {
|
||||||
|
parts = $get("TxtFechaAplicadoHeader").value.split("/");
|
||||||
|
var F2 = new Date(parts[2], parts[1], parts[0]);
|
||||||
|
|
||||||
|
if (F1 < F2) {
|
||||||
|
row.cells[10].getElementsByTagName("input")[0].value = $get("TxtFechaAplicadoHeader").value;
|
||||||
|
} else {
|
||||||
|
row.cells[10].getElementsByTagName("input")[0].value = FechaDocumento;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
catch (err) {
|
||||||
|
row = row.parentNode;
|
||||||
|
row.cells[10].getElementsByTagName("input")[0].value = $get("TxtFechaAplicadoHeader").value;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
</script>
|
||||||
|
|
||||||
|
<script type="text/javascript">
|
||||||
|
function OnClientShown(sender, args) {
|
||||||
|
sender._popupBehavior._element.style.zIndex = 10005;
|
||||||
|
sender._popupBehavior._element.style.position = "absolute";
|
||||||
|
sender._popupBehavior._element.style.top = "0px";
|
||||||
|
document.getElementById("C_GvDatosPanelItem").style.overflow = "initial";
|
||||||
|
}
|
||||||
|
</script>
|
||||||
|
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||||
|
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
|
||||||
|
<script type="text/javascript">
|
||||||
|
|
||||||
|
//function OrdenarGV() {
|
||||||
|
// var Tam = TamañoVentana();
|
||||||
|
// var Alto = Tam.height - 270;
|
||||||
|
// if (Alto < 100) {
|
||||||
|
// Alto = 100;
|
||||||
|
// }
|
||||||
|
// $('#C_GvDatos').DataTable({
|
||||||
|
// scrollY: Alto + 'px',
|
||||||
|
// scrollCollapse: true,
|
||||||
|
// paging: false,
|
||||||
|
// searching: false,
|
||||||
|
// info: false
|
||||||
|
// });
|
||||||
|
// $('#C_GvDatos').parent().parent().children().first().css("position", "static");
|
||||||
|
//}
|
||||||
|
</script>
|
||||||
|
</asp:Content>
|
||||||
140
Compras/RepComprasPrecios.aspx.vb
Normal file
140
Compras/RepComprasPrecios.aspx.vb
Normal file
@@ -0,0 +1,140 @@
|
|||||||
|
Option Explicit On
|
||||||
|
Option Strict On
|
||||||
|
|
||||||
|
Imports System.Data
|
||||||
|
Imports Microsoft.Reporting.WebForms
|
||||||
|
Imports Extensiones
|
||||||
|
Partial Class RepComprasPrecios
|
||||||
|
Inherits ClsPaginas
|
||||||
|
Private Shared missing As Object = System.Reflection.Missing.Value
|
||||||
|
|
||||||
|
#Region "PROPIEDADES"
|
||||||
|
Private Property DtCompras As DataTable
|
||||||
|
Get
|
||||||
|
Return DirectCast(ViewState("DtCompras"), DataTable)
|
||||||
|
End Get
|
||||||
|
Set(value As DataTable)
|
||||||
|
ViewState("DtCompras") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||||
|
If Not Page.IsPostBack Then
|
||||||
|
CargaProveedor()
|
||||||
|
CargaDatos()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#Region " C A R G A - D A T O S "
|
||||||
|
Public Sub CargaDatos()
|
||||||
|
Dim ObjCompras As New ClsCompras
|
||||||
|
|
||||||
|
If ObjCompras.GetRepComprasPrecios(DdlProveedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||||
|
GvDatos.DataSource = ObjCompras.DtResultados
|
||||||
|
DtCompras = ObjCompras.DtResultados
|
||||||
|
GvDatos.DataBind()
|
||||||
|
UPDatos.Update()
|
||||||
|
End If
|
||||||
|
|
||||||
|
ObjCompras.Dispose()
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "G V - D A T O S "
|
||||||
|
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.HeaderRow.Cells(0).Visible = False
|
||||||
|
e.Row.Cells(0).Visible = False
|
||||||
|
|
||||||
|
e.Row.HorizontalAlign = HorizontalAlign.Right
|
||||||
|
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||||
|
|
||||||
|
If e.Row.DBCampo("CvePS") = "" Then
|
||||||
|
e.Row.CssClass = "Totales"
|
||||||
|
End If
|
||||||
|
|
||||||
|
For Each Cells As TableCell In e.Row.Cells
|
||||||
|
Dim Celda As String = Cells.Text
|
||||||
|
If IsNumeric(Celda) Then
|
||||||
|
'If Celda.ToDouble = 0 Then
|
||||||
|
' Cells.Text = ""
|
||||||
|
'Else
|
||||||
|
Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell)
|
||||||
|
|
||||||
|
If Not ce.ContainingField.HeaderText = "PS" Then
|
||||||
|
Cells.Text = Cells.Text.FormatoNumero(2)
|
||||||
|
End If
|
||||||
|
'End If
|
||||||
|
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} Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
|
||||||
|
'End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "CARGA COMBOS FILTRO"
|
||||||
|
Private Sub CargaProveedor()
|
||||||
|
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||||
|
DdlProveedor.DataBind()
|
||||||
|
DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||||
|
DdlProveedor.SelectedValue = "-1"
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "IMPRESION"
|
||||||
|
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(" <b>Fecha Inicio:</b> {0}", txtFechaI.Text.ToDate.ToShortDateString)
|
||||||
|
' If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" <b>Fecha Fin:</b> {0}", txtFechaF.Text.ToDate.ToShortDateString)
|
||||||
|
|
||||||
|
' If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Almacén Origen:</b> {0}", DdlAlmacenOrigen.SelectedItem.Text)
|
||||||
|
' If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
|
||||||
|
' If ChkRecibido.Checked Then StrFiltro.AppendFormat(" <b>Recibidos: </b>Si") Else StrFiltro.AppendFormat(" <b>Recibidos: </b>No")
|
||||||
|
|
||||||
|
' 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 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 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
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||||
|
CargaDatos()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
||||||
|
Imprime("Excel")
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
365
Compras/RepReqOCCompraInv.aspx
Normal file
365
Compras/RepReqOCCompraInv.aspx
Normal file
@@ -0,0 +1,365 @@
|
|||||||
|
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepReqOCCompraInv.aspx.vb" Inherits="RepReqOCCompraInv" %>
|
||||||
|
|
||||||
|
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||||
|
<style>
|
||||||
|
.Widthall {
|
||||||
|
width: 100% !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scrollHeadInner {
|
||||||
|
width: 100% !important;
|
||||||
|
background-color: #dddddd;
|
||||||
|
padding-left: 0px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scrollFoot {
|
||||||
|
display: none;
|
||||||
|
position: static;
|
||||||
|
}
|
||||||
|
|
||||||
|
.table-scrollable {
|
||||||
|
margin: 0px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scroll {
|
||||||
|
margin-bottom: 0px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.table.dataTable {
|
||||||
|
margin-top: 0px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scrollBody table th {
|
||||||
|
padding: 0px !important;
|
||||||
|
padding-right: 4px !important;
|
||||||
|
padding-left: 4px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.sinlink td a {
|
||||||
|
pointer-events: none;
|
||||||
|
cursor: default;
|
||||||
|
color: black;
|
||||||
|
font-size: small;
|
||||||
|
}
|
||||||
|
|
||||||
|
.white a {
|
||||||
|
color: white !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2 .select2-selection__rendered {
|
||||||
|
line-height: 1;
|
||||||
|
color: #111;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2 .select2-selection--multiple {
|
||||||
|
box-sizing: border-box;
|
||||||
|
cursor: pointer;
|
||||||
|
display: block;
|
||||||
|
min-height: 20px;
|
||||||
|
user-select: none;
|
||||||
|
-webkit-user-select: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-container--default .select2-selection--multiple .select2-selection__choice {
|
||||||
|
margin-top: 10px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-selection__rendered {
|
||||||
|
margin-top: 0px;
|
||||||
|
height: 25px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-selection {
|
||||||
|
margin-top: 0px;
|
||||||
|
height: 31px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-container--default.select2-container--focus .select2-selection--multiple {
|
||||||
|
border: none;
|
||||||
|
outline: 0;
|
||||||
|
}
|
||||||
|
</style>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||||
|
<%-- <li>
|
||||||
|
<asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
|
||||||
|
</li>--%>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||||
|
<asp:Label ID="LblTitulo" runat="server" Text="Reporte de REQ-OC-Compra-Inv"></asp:Label>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
|
||||||
|
<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
|
||||||
|
|
||||||
|
<%-- <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="btn-group pull-right btn-separete">
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>--%>
|
||||||
|
</asp:Content>
|
||||||
|
|
||||||
|
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server" defaultbutton="BtnConsultar">
|
||||||
|
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="portlet solid grey-cascade portlet-filter" style="">
|
||||||
|
<div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px; position: relative;">
|
||||||
|
<div class="tools">
|
||||||
|
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
|
||||||
|
<a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
|
||||||
|
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
|
||||||
|
</div>
|
||||||
|
<div class="portlet-body">
|
||||||
|
<div class="row">
|
||||||
|
|
||||||
|
|
||||||
|
<label class="col-md-1 truncate">F.I.:</label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px; margin-top: 10px;">
|
||||||
|
<asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
|
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||||
|
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<label class="col-md-1 truncate">F.F.:</label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px; margin-top: 10px;">
|
||||||
|
<asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
|
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||||
|
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<label class="col-md-1">Sucursal:</label>
|
||||||
|
<div class="col-md-3">
|
||||||
|
<asp:DropDownList ID="DdlSucursal" Width="150px" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm input-small select2me"></asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
|
||||||
|
<div class="row">
|
||||||
|
<label class="col-md-1 truncate" data-toggle="tooltip" title="Almacén Destino">Proveedor:</label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<asp:DropDownList ID="DdlProveedor" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control input-sm input-small select2me" Width="150px" runat="server"></asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<%-- <label class="col-md-1 truncate">Recibido:</label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<asp:CheckBox ID="ChkRecibido" runat="server" CssClass="make-switchsd" data-size="small" Text=" " />
|
||||||
|
</div>--%>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
<br />
|
||||||
|
<div class="row">
|
||||||
|
<div align="right">
|
||||||
|
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; width: 150px;" />
|
||||||
|
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" 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">
|
||||||
|
<Columns>
|
||||||
|
<asp:TemplateField HeaderText="REQ" ItemStyle-HorizontalAlign="Left">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:HyperLink ID="HplREQ" runat="server" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CveOCREQ", "/OC/OC.aspx?OC={0}")%>' Text='<%# Eval("FolioREQ") %>'></asp:HyperLink>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField HeaderText="OC" ItemStyle-HorizontalAlign="Left">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:HyperLink ID="HplOC" runat="server" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CveOC", "/OC/OC.aspx?OC={0}")%>' Text='<%# Eval("FolioOC") %>'></asp:HyperLink>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField HeaderText="Compra" ItemStyle-HorizontalAlign="Left">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:HyperLink ID="HplCompra" runat="server" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}")%>' Text='<%# Eval("FolioCompra") %>'></asp:HyperLink>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField HeaderText="Inventario" ItemStyle-HorizontalAlign="Left">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:HyperLink ID="HplInv" runat="server" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Text='<%# Eval("FolioMov") %>'></asp:HyperLink>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
</Columns>
|
||||||
|
<HeaderStyle CssClass="Titulos" />
|
||||||
|
<RowStyle CssClass="Texto" />
|
||||||
|
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||||
|
</asp:GridView>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div id="DivPersonalizar" class="modal fade" role="dialog">
|
||||||
|
<div class="modal-dialog">
|
||||||
|
|
||||||
|
<!-- Modal content-->
|
||||||
|
<div class="modal-content">
|
||||||
|
<div class="modal-header">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">
|
||||||
|
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
<table class="table table-striped table-advance table-hover Widthall">
|
||||||
|
<tbody>
|
||||||
|
<tr>
|
||||||
|
<td style="text-align: left;">
|
||||||
|
<asp:CheckBox ID="ChkUsuarioCancelacion" runat="server" Text="Usuario Cancelación" /></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td style="text-align: left;">
|
||||||
|
<asp:CheckBox ID="ChkTipo" runat="server" Text="Cargo/Abono" /></td>
|
||||||
|
</tr>
|
||||||
|
|
||||||
|
</tbody>
|
||||||
|
</table>
|
||||||
|
</div>
|
||||||
|
<div class="modal-footer">
|
||||||
|
<asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
|
||||||
|
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||||
|
<%--<script type="text/javascript">
|
||||||
|
|
||||||
|
function Scroll() {
|
||||||
|
$(document).ready(function () {
|
||||||
|
var Tam = TamañoVentana();
|
||||||
|
var Alto = Tam.height - 300;
|
||||||
|
$('#<%=GvDatos.ClientID%>').gridviewScroll({
|
||||||
|
width: 995,
|
||||||
|
height: Alto
|
||||||
|
});
|
||||||
|
});
|
||||||
|
}
|
||||||
|
</script>--%>
|
||||||
|
|
||||||
|
<script type="text/javascript">
|
||||||
|
function GetSelectedRow(lnk, txtf, txtoi) {
|
||||||
|
|
||||||
|
|
||||||
|
//var row = lnk.parentNode.parentNode;
|
||||||
|
//var txtoi = row.cells[10].getElementsByTagName("input")[1];
|
||||||
|
if (lnk.checked) {
|
||||||
|
debugger;
|
||||||
|
if (txtf) { txtf.style.display = ""; }
|
||||||
|
if (txtoi) { txtoi.style.display = ""; }
|
||||||
|
// try {
|
||||||
|
// row.cells[10].getElementsByTagName("input")[0].style.display = "";
|
||||||
|
// if (txtoi) { txtoi.style.display = ""; }
|
||||||
|
// }
|
||||||
|
// catch (err) {
|
||||||
|
// row = row.parentNode;
|
||||||
|
// row.cells[10].getElementsByTagName("input")[0].style.display = "";
|
||||||
|
// }
|
||||||
|
} else {
|
||||||
|
if (txtf) { txtf.style.display = "none"; }
|
||||||
|
if (txtoi) { txtoi.style.display = "none"; }
|
||||||
|
// try {
|
||||||
|
// row.cells[10].getElementsByTagName("input")[0].style.display = "none";
|
||||||
|
// }
|
||||||
|
// catch (err) {
|
||||||
|
// row = row.parentNode;
|
||||||
|
// row.cells[10].getElementsByTagName("input")[0].style.display = "none";
|
||||||
|
// }
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
function FechaGeneral(lnk, FechaDocumento) {
|
||||||
|
debugger;
|
||||||
|
var row = lnk.parentNode.parentNode;
|
||||||
|
|
||||||
|
var parts = FechaDocumento.split("/");
|
||||||
|
var F1 = new Date(parts[2], parts[1], parts[0]);
|
||||||
|
|
||||||
|
|
||||||
|
if (lnk.checked) {
|
||||||
|
try {
|
||||||
|
parts = $get("TxtFechaAplicadoHeader").value.split("/");
|
||||||
|
var F2 = new Date(parts[2], parts[1], parts[0]);
|
||||||
|
|
||||||
|
if (F1 < F2) {
|
||||||
|
row.cells[10].getElementsByTagName("input")[0].value = $get("TxtFechaAplicadoHeader").value;
|
||||||
|
} else {
|
||||||
|
row.cells[10].getElementsByTagName("input")[0].value = FechaDocumento;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
catch (err) {
|
||||||
|
row = row.parentNode;
|
||||||
|
row.cells[10].getElementsByTagName("input")[0].value = $get("TxtFechaAplicadoHeader").value;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
</script>
|
||||||
|
|
||||||
|
<script type="text/javascript">
|
||||||
|
function OnClientShown(sender, args) {
|
||||||
|
sender._popupBehavior._element.style.zIndex = 10005;
|
||||||
|
sender._popupBehavior._element.style.position = "absolute";
|
||||||
|
sender._popupBehavior._element.style.top = "0px";
|
||||||
|
document.getElementById("C_GvDatosPanelItem").style.overflow = "initial";
|
||||||
|
}
|
||||||
|
</script>
|
||||||
|
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||||
|
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
|
||||||
|
<script type="text/javascript">
|
||||||
|
|
||||||
|
//function OrdenarGV() {
|
||||||
|
// var Tam = TamañoVentana();
|
||||||
|
// var Alto = Tam.height - 270;
|
||||||
|
// if (Alto < 100) {
|
||||||
|
// Alto = 100;
|
||||||
|
// }
|
||||||
|
// $('#C_GvDatos').DataTable({
|
||||||
|
// scrollY: Alto + 'px',
|
||||||
|
// scrollCollapse: true,
|
||||||
|
// paging: false,
|
||||||
|
// searching: false,
|
||||||
|
// info: false
|
||||||
|
// });
|
||||||
|
// $('#C_GvDatos').parent().parent().children().first().css("position", "static");
|
||||||
|
//}
|
||||||
|
</script>
|
||||||
|
</asp:Content>
|
||||||
161
Compras/RepReqOCCompraInv.aspx.vb
Normal file
161
Compras/RepReqOCCompraInv.aspx.vb
Normal file
@@ -0,0 +1,161 @@
|
|||||||
|
Option Explicit On
|
||||||
|
Option Strict On
|
||||||
|
|
||||||
|
Imports System.Data
|
||||||
|
Imports Microsoft.Reporting.WebForms
|
||||||
|
Imports Extensiones
|
||||||
|
Partial Class RepReqOCCompraInv
|
||||||
|
Inherits ClsPaginas
|
||||||
|
Private Shared missing As Object = System.Reflection.Missing.Value
|
||||||
|
|
||||||
|
#Region "PROPIEDADES"
|
||||||
|
Private Property FechaI As String
|
||||||
|
Get
|
||||||
|
Return ViewState("FechaI").ToString
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("FechaI") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property FechaF As String
|
||||||
|
Get
|
||||||
|
Return ViewState("FechaF").ToString
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("FechaF") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
'Private Property CveCliente As Integer
|
||||||
|
' Get
|
||||||
|
' Return ViewState("CveCliente").ToString.ToEntero
|
||||||
|
' End Get
|
||||||
|
' Set(value As Integer)
|
||||||
|
' ViewState("CveCliente") = value
|
||||||
|
' End Set
|
||||||
|
'End Property
|
||||||
|
'Private Property Sucursales As String
|
||||||
|
' Get
|
||||||
|
' Return ViewState("Sucursales").ToString
|
||||||
|
' End Get
|
||||||
|
' Set(value As String)
|
||||||
|
' ViewState("Sucursales") = value
|
||||||
|
' End Set
|
||||||
|
'End Property
|
||||||
|
Private Property DtCompras As DataTable
|
||||||
|
Get
|
||||||
|
Return DirectCast(ViewState("DtCompras"), DataTable)
|
||||||
|
End Get
|
||||||
|
Set(value As DataTable)
|
||||||
|
ViewState("DtCompras") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||||
|
If Not Page.IsPostBack Then
|
||||||
|
txtFechaI.Text = Now.ToShortDateString
|
||||||
|
txtFechaF.Text = Now.ToShortDateString
|
||||||
|
|
||||||
|
CargaSucursal()
|
||||||
|
CargaProveedor()
|
||||||
|
CargaDatos()
|
||||||
|
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#Region " C A R G A - D A T O S "
|
||||||
|
Public Sub CargaDatos()
|
||||||
|
Dim ObjCompras As New ClsCompras
|
||||||
|
|
||||||
|
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
|
||||||
|
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString)
|
||||||
|
|
||||||
|
If ObjCompras.GetRepReqOCCompraInv(FechaI.ToDate, FechaF.ToDate, DdlProveedor.SelectedValue.ToEntero, DdlSucursal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||||
|
GvDatos.DataSource = ObjCompras.DtResultados
|
||||||
|
DtCompras = ObjCompras.DtResultados
|
||||||
|
GvDatos.DataBind()
|
||||||
|
UPDatos.Update()
|
||||||
|
End If
|
||||||
|
|
||||||
|
ObjCompras.Dispose()
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "G V - D A T O S "
|
||||||
|
'Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||||
|
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
|
|
||||||
|
' '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} Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
|
||||||
|
' 'End If
|
||||||
|
|
||||||
|
' End If
|
||||||
|
'End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "CARGA COMBOS FILTRO"
|
||||||
|
Private Sub CargaSucursal()
|
||||||
|
DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
|
||||||
|
DdlSucursal.DataBind()
|
||||||
|
DdlSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||||
|
DdlSucursal.SelectedValue = "-1"
|
||||||
|
End Sub
|
||||||
|
Private Sub CargaProveedor()
|
||||||
|
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||||
|
DdlProveedor.DataBind()
|
||||||
|
DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||||
|
DdlProveedor.SelectedValue = "-1"
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "IMPRESION"
|
||||||
|
'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(" <b>Fecha Inicio:</b> {0}", txtFechaI.Text.ToDate.ToShortDateString)
|
||||||
|
' If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" <b>Fecha Fin:</b> {0}", txtFechaF.Text.ToDate.ToShortDateString)
|
||||||
|
|
||||||
|
' If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Almacén Origen:</b> {0}", DdlAlmacenOrigen.SelectedItem.Text)
|
||||||
|
' If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
|
||||||
|
' If ChkRecibido.Checked Then StrFiltro.AppendFormat(" <b>Recibidos: </b>Si") Else StrFiltro.AppendFormat(" <b>Recibidos: </b>No")
|
||||||
|
|
||||||
|
' 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 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 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
|
||||||
|
'End Sub
|
||||||
|
#End Region
|
||||||
|
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||||
|
CargaDatos()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
||||||
|
' Imprime("Excel")
|
||||||
|
'End Sub
|
||||||
|
End Class
|
||||||
@@ -394,12 +394,12 @@ Partial Class Contabilidad_RepBalanceGeneral
|
|||||||
End Sub
|
End Sub
|
||||||
Private Sub ConfiguraFiltros()
|
Private Sub ConfiguraFiltros()
|
||||||
|
|
||||||
FiltroActivoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO CIRCULANTE' OR Nombre = 'ACTIVO CIRCULANTE' OR Sup = 'CIRCULANTE' OR Nombre ='CIRCULANTE')"
|
FiltroActivoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO CIRCULANTE' OR Nombre = 'ACTIVO CIRCULANTE' OR Sup = 'CIRCULANTE' OR Nombre ='CIRCULANTE' OR Sup = 'Activo a corto plazo' OR Nombre ='Activo a corto plazo' )"
|
||||||
FiltroActivoNoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO NO CIRCULANTE' OR Nombre = 'ACTIVO NO CIRCULANTE' OR Sup = 'FIJO' OR Nombre ='FIJO')"
|
FiltroActivoNoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO NO CIRCULANTE' OR Nombre = 'ACTIVO NO CIRCULANTE' OR Sup = 'FIJO' OR Nombre ='FIJO' OR Sup = 'Activo a largo plazo' OR Nombre ='Activo a largo plazo')"
|
||||||
FiltroActivoDiferido = "Tipo In ('A','B','C') AND (Sup = 'DIFERIDO' OR Nombre = 'DIFERIDO')"
|
FiltroActivoDiferido = "Tipo In ('A','B','C') AND (Sup = 'DIFERIDO' OR Nombre = 'DIFERIDO')"
|
||||||
|
|
||||||
FiltroPasivoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO CIRCULANTE' OR (Sup = 'PASIVO' AND Nombre <> 'DIFERIDO' AND Nombre <> 'PASIVO NO CIRCULANTE' ) OR Sup = 'CIRCULANTE' OR Nombre = 'PASIVO CIRCULANTE' OR Sup = 'CORTO PLAZO' OR Nombre = 'CORTO PLAZO')"
|
FiltroPasivoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO CIRCULANTE' OR (Sup = 'PASIVO' AND Nombre <> 'DIFERIDO' AND Nombre <> 'PASIVO NO CIRCULANTE' ) OR Sup = 'CIRCULANTE' OR Nombre = 'PASIVO CIRCULANTE' OR Sup = 'CORTO PLAZO' OR Nombre = 'CORTO PLAZO' OR Sup = 'Pasivo a corto plazo' OR Nombre = 'Pasivo a corto plazo')"
|
||||||
FiltroPasivoNoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO NO CIRCULANTE' OR Nombre = 'PASIVO NO CIRCULANTE' OR Sup = 'LARGO PLAZO' OR Nombre = 'LARGO PLAZO' OR Nombre = 'PASIVO LARGO PLAZO')"
|
FiltroPasivoNoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO NO CIRCULANTE' OR Nombre = 'PASIVO NO CIRCULANTE' OR Sup = 'LARGO PLAZO' OR Nombre = 'LARGO PLAZO' OR Nombre = 'PASIVO LARGO PLAZO' OR Sup = 'Pasivo a largo plazo' OR Nombre = 'Pasivo a largo plazo')"
|
||||||
FiltroPasivoDiferido = "Tipo in ('D') AND (Sup = 'DIFERIDO' OR Nombre = 'DIFERIDO')"
|
FiltroPasivoDiferido = "Tipo in ('D') AND (Sup = 'DIFERIDO' OR Nombre = 'DIFERIDO')"
|
||||||
|
|
||||||
FiltroCapital = "Tipo in ('F') AND (Sup = 'PATRIMONIO CONTRIBUIDO' OR Nombre = 'PATRIMONIO CONTRIBUIDO' OR Sup = 'CAPITAL CONTABLE' OR Sup = 'CAPITAL' OR Nombre = 'CAPITAL CONTABLE' OR Nombre = 'CAPITAL')"
|
FiltroCapital = "Tipo in ('F') AND (Sup = 'PATRIMONIO CONTRIBUIDO' OR Nombre = 'PATRIMONIO CONTRIBUIDO' OR Sup = 'CAPITAL CONTABLE' OR Sup = 'CAPITAL' OR Nombre = 'CAPITAL CONTABLE' OR Nombre = 'CAPITAL')"
|
||||||
|
|||||||
2872
Empresas/72/Formatos/OrdenServicio.rdlc
Normal file
2872
Empresas/72/Formatos/OrdenServicio.rdlc
Normal file
File diff suppressed because it is too large
Load Diff
@@ -10,7 +10,8 @@ Imports GemBox.Spreadsheet
|
|||||||
Partial Class General_SaldosIniciales
|
Partial Class General_SaldosIniciales
|
||||||
Inherits ClsPaginas
|
Inherits ClsPaginas
|
||||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||||
If Not IsPostBack Then
|
If Not IsPostBack Then
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -68,7 +69,92 @@ Partial Class General_SaldosIniciales
|
|||||||
'End Try
|
'End Try
|
||||||
'Conexion.Close()
|
'Conexion.Close()
|
||||||
If Not ErrorArchivo Then
|
If Not ErrorArchivo Then
|
||||||
|
|
||||||
If RblFormato.SelectedValue = "1" Or RblFormato.SelectedValue = "2" Then
|
If RblFormato.SelectedValue = "1" Or RblFormato.SelectedValue = "2" Then
|
||||||
|
If Not dt.Columns(0).ColumnName = "Codigo" Then
|
||||||
|
Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(1).ColumnName = "RazonSocial" Then
|
||||||
|
Alert("El nombre de la segunda columna debe ser 'Fecha'.Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(2).ColumnName = "RFC" Then
|
||||||
|
Alert("El nombre de la tercera columna debe ser 'RFC'.Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(3).ColumnName = "Calle" Then
|
||||||
|
Alert("El nombre de la cuarta columna debe ser 'Calle'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(4).ColumnName = "Número exterior" Then
|
||||||
|
Alert("El nombre de la quinta columna debe ser 'Número exterior' .Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(5).ColumnName = "Colonia" Then
|
||||||
|
Alert("El nombre de la sexta columna debe ser 'Colonia'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(6).ColumnName = "Código postal" Then
|
||||||
|
Alert("El nombre de la séptima columna debe ser 'Código postal'.Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(7).ColumnName = "Población" Then
|
||||||
|
Alert("El nombre de la octava columna debe ser 'Población'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(8).ColumnName = "Estado" Then
|
||||||
|
Alert("El nombre de la novena columna debe ser 'Estado'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(9).ColumnName = "Teléfono" Then
|
||||||
|
Alert("El nombre de la décima columna debe ser 'Teléfono'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(10).ColumnName = "Contacto" Then
|
||||||
|
Alert("El nombre de la onceava columna debe ser 'Contacto'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(11).ColumnName = "Celular Contacto" Then
|
||||||
|
Alert("El nombre de la doceava columna debe ser 'Celular Contacto'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(12).ColumnName = "Limite Credito" Then
|
||||||
|
Alert("El nombre de la treceava columna debe ser 'Limite Credito'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Not dt.Columns(13).ColumnName = "Plazo Cobranza" Then
|
||||||
|
Alert("El nombre de la catorceava columna debe ser 'Plazo Cobranza'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
'If Not dt.Columns(14).ColumnName = "Pais" Then
|
||||||
|
' Alert("El nombre de la quinceava columna debe ser 'Plazo Cobranza'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
' Exit Sub
|
||||||
|
'End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If Not dt.Columns(14).ColumnName.ToUpper = "BANCO" Then
|
||||||
|
Alert("El nombre de la quinceava columna debe ser 'Banco'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(15).ColumnName.ToUpper = "N° CUENTA" Then
|
||||||
|
Alert("El nombre de la dieciseisava columna debe ser 'N° Cuenta'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(16).ColumnName.ToUpper = "CLABE INTER" Then
|
||||||
|
Alert("El nombre de la diecisieteava columna debe ser 'Clabe Inter'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ElseIf RblFormato.SelectedValue = "2" Then
|
||||||
|
|
||||||
If Not dt.Columns(0).ColumnName = "Codigo" Then
|
If Not dt.Columns(0).ColumnName = "Codigo" Then
|
||||||
Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
|
Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
@@ -124,22 +210,24 @@ Partial Class General_SaldosIniciales
|
|||||||
If Not dt.Columns(13).ColumnName = "Plazo Cobranza" Then
|
If Not dt.Columns(13).ColumnName = "Plazo Cobranza" Then
|
||||||
Alert("El nombre de la treceava columna debe ser 'Plazo Cobranza'. Favor de corregirlo", TipoMensaje.MsgError)
|
Alert("El nombre de la treceava columna debe ser 'Plazo Cobranza'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
If RblFormato.SelectedValue = "1" Then
|
|
||||||
If Not dt.Columns(14).ColumnName = "Vendedor" Then
|
|
||||||
|
If Not dt.Columns(14).ColumnName = "Vendedor" Then
|
||||||
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
If Not dt.Columns(15).ColumnName = "Clasificación" Then
|
If Not dt.Columns(15).ColumnName = "Clasificación" Then
|
||||||
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
If Not dt.Columns(16).ColumnName = "Es distribuidor" Then
|
If Not dt.Columns(16).ColumnName = "Es distribuidor" Then
|
||||||
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
ElseIf RblFormato.SelectedValue = "3" Or RblFormato.SelectedValue = "4" Then
|
ElseIf RblFormato.SelectedValue = "3" Or RblFormato.SelectedValue = "4" Then
|
||||||
If Not dt.Columns(0).ColumnName = "Sucursal" Then
|
If Not dt.Columns(0).ColumnName = "Sucursal" Then
|
||||||
Alert("El nombre de la primera columna debe ser 'Sucursal'. Favor de corregirlo", TipoMensaje.MsgError)
|
Alert("El nombre de la primera columna debe ser 'Sucursal'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
@@ -517,7 +605,8 @@ Partial Class General_SaldosIniciales
|
|||||||
If Not ErrorArchivo Then
|
If Not ErrorArchivo Then
|
||||||
|
|
||||||
'P R O D U C T O S / S E R V I C I O S
|
'P R O D U C T O S / S E R V I C I O S
|
||||||
If RblFormato.SelectedValue = "5" Then
|
If RblFormato.SelectedValue = "5" Then
|
||||||
|
|
||||||
Dim ObjPS As New ClsProductosServicios
|
Dim ObjPS As New ClsProductosServicios
|
||||||
Dim ObjGral As New ClsGenerales(ObjPS.IniciaTransacSQL())
|
Dim ObjGral As New ClsGenerales(ObjPS.IniciaTransacSQL())
|
||||||
Dim ObjClas As New ClsClasificaciones(ObjPS.IniciaTransacSQL())
|
Dim ObjClas As New ClsClasificaciones(ObjPS.IniciaTransacSQL())
|
||||||
@@ -654,10 +743,14 @@ Partial Class General_SaldosIniciales
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then
|
If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then
|
||||||
Dim CveCategoria As Integer
|
Dim CveCategoria As Integer
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If ObjGral.GetCategorias(UsuarioActual.CveEmpresa, 4) Then
|
If ObjGral.GetCategorias(UsuarioActual.CveEmpresa, 4) Then
|
||||||
CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero
|
CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not CveCategoria > 0 Then
|
If Not CveCategoria > 0 Then
|
||||||
If ObjGral.AddCategorias(Clasificacion2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) Then
|
If ObjGral.AddCategorias(Clasificacion2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) Then
|
||||||
|
|
||||||
@@ -665,12 +758,27 @@ Partial Class General_SaldosIniciales
|
|||||||
CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero
|
CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
If ObjClas.AddClasificaciones(Clasificacion2, "", -1, "-1", -1, "-1", -1, "-1", CveCategoria, UsuarioActual.CveUsuario,
|
|
||||||
UsuarioActual.CveEmpresa) Then
|
|
||||||
If ObjClas.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClas.DtResultados
|
If ObjClas.GetClasificaciones(UsuarioActual.CveEmpresa) Then
|
||||||
CveClasificacion2 = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero
|
CveClasificacion2 = ObjClas.DtResultados.FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{ Clasificacion2.Trim }'").ToEntero
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If CveClasificacion2 = 0 Then
|
||||||
|
|
||||||
|
If ObjClas.AddClasificaciones(Clasificacion2, "", -1, "-1", -1, "-1", -1, "-1", CveCategoria, UsuarioActual.CveUsuario,
|
||||||
|
UsuarioActual.CveEmpresa) Then
|
||||||
|
If ObjClas.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClas.DtResultados
|
||||||
|
CveClasificacion2 = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then Alert("No se encontró la Clasificación: " + Clasificacion, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
|
If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then Alert("No se encontró la Clasificación: " + Clasificacion, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
|
||||||
@@ -680,7 +788,7 @@ Partial Class General_SaldosIniciales
|
|||||||
If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
|
If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
|
||||||
If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
|
If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
|
||||||
If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
|
If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
|
||||||
If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then Alert("No se encontró la Serie: " + Clasificacion2, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
|
'If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then Alert("No se encontró la Serie: " + Clasificacion2, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
|
||||||
|
|
||||||
If CvePS > 0 Then
|
If CvePS > 0 Then
|
||||||
If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
|
If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
|
||||||
@@ -739,43 +847,106 @@ Partial Class General_SaldosIniciales
|
|||||||
Dim ExisteProveedor As Boolean = False
|
Dim ExisteProveedor As Boolean = False
|
||||||
|
|
||||||
ObjProv.IniciaTransacSQL()
|
ObjProv.IniciaTransacSQL()
|
||||||
For Each Row As DataRow In dt.Rows
|
For Each Row As DataRow In dt.Rows
|
||||||
|
|
||||||
Dim Codigo As String = Row("Codigo").ToString
|
Dim Codigo As String = Row("Codigo").ToString
|
||||||
Dim RazonSocial As String = Row("RazonSocial").ToString
|
Dim RazonSocial As String = Row("RazonSocial").ToString
|
||||||
Dim RFC As String = Row("RFC").ToString.Trim
|
Dim RFC As String = Row("RFC").ToString.Trim
|
||||||
Dim Calle As String = Row("Calle").ToString
|
|
||||||
Dim NumExt As Decimal = Row("Número exterior").ToString.ToDecimal
|
Dim Dirrecion As String = $"{ Row("Población").ToString}, { Row("Estado").ToString} , Colonia { Row("Colonia").ToString}, {Row("Calle").ToString} #{Row("Número exterior").ToString}"
|
||||||
Dim Colonia As String = Row("Colonia").ToString
|
|
||||||
Dim CodigoPostal As Decimal = Row("Código Postal").ToString.ToDecimal
|
'Dim NumExt As String = Row("Número exterior").ToString
|
||||||
Dim Poblacion As String = Row("Población").ToString
|
|
||||||
Dim Estado As String = Row("Estado").ToString
|
|
||||||
|
' Dim Colonia As String = Row("Colonia").ToString
|
||||||
|
Dim CodigoPostal As Integer = Row("Código Postal").ToString.ToEntero
|
||||||
|
|
||||||
|
' Dim Poblacion As String = Row("Población").ToString
|
||||||
|
|
||||||
|
'Dim Estado As String = Row("Estado").ToString
|
||||||
Dim Telefono As String = Row("Teléfono").ToString
|
Dim Telefono As String = Row("Teléfono").ToString
|
||||||
Dim Contacto As String = Row("Contacto").ToString
|
Dim ContactoMail As String = Row("Contacto").ToString
|
||||||
Dim CelularContacto As String = Row("Celular Contacto").ToString
|
Dim CelularContacto As String = Row("Celular Contacto").ToString
|
||||||
Dim LimiteCredito As Double = Row("Limite Credito").ToString.ToDouble
|
Dim LimiteCredito As Double = Row("Limite Credito").ToString.ToDouble
|
||||||
Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString.ToEntero
|
Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString.ToEntero
|
||||||
|
|
||||||
|
Dim Banco As String = Row("Banco").ToString
|
||||||
|
Dim NumeroCuenta As String = Row("N° CUENTA").ToString.Replace("-", "").Replace(" ", "")
|
||||||
|
Dim ClabeInter As String = Row("Clabe Inter").ToString.Replace("-", "").Replace(" ", "")
|
||||||
|
|
||||||
Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero
|
Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero
|
||||||
Dim CveProveedor2 As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RazonSocial = '{RazonSocial}'").ToString.ToEntero
|
Dim CveProveedor2 As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RazonSocial = '{RazonSocial}'").ToString.ToEntero
|
||||||
Dim CveProveedor3 As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString.ToEntero
|
Dim CveProveedor3 As Integer = 0
|
||||||
|
|
||||||
If CveProveedor > 0 Or CveProveedor2 > 0 Or CveProveedor3 > 0 Then
|
If Codigo.Trim.Length > 0 Then
|
||||||
Contador = Contador + 1
|
CveProveedor3 = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString.ToEntero
|
||||||
'If Not ObjProv.UpdateProveedor(Codigo, RazonSocial, RazonSocial, RazonSocial, RFC, Calle, Telefono,
|
End If
|
||||||
' Contacto, "", Telefono, LimiteCredito, PlazoCobranza, "", 0, 0, 0, -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "",
|
|
||||||
' -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, -1, True, "", "", False, CveProveedor) Then
|
|
||||||
' ErrorProv = True
|
|
||||||
' Exit For
|
' If CveProveedor > 0 Or CveProveedor2 > 0 Or CveProveedor3 > 0 Then
|
||||||
'End If
|
If CveProveedor > 0 Or CveProveedor2 > 0 Or CveProveedor3 > 0 Then
|
||||||
Else
|
Contador = Contador + 1
|
||||||
If Not ObjProv.AddProveedor(Codigo, RazonSocial, RazonSocial, RazonSocial, RFC, Calle, Telefono,
|
|
||||||
Contacto, "", Telefono, LimiteCredito, PlazoCobranza, "", 0, 0, 0, -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "",
|
'If Not ObjProv.UpdateProveedor(Codigo, RazonSocial, RazonSocial, RazonSocial, RFC, Calle, Telefono,
|
||||||
-1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, -1, "", "", False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
' Contacto, "", Telefono, LimiteCredito, PlazoCobranza, "", 0, 0, 0, -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "",
|
||||||
|
' -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, -1, True, "", "", False, CveProveedor) Then
|
||||||
|
' ErrorProv = True
|
||||||
|
' Exit For
|
||||||
|
'End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
|
||||||
|
Telefono = Telefono.Replace("-", "").Replace("(", "").Replace(")", "").Trim
|
||||||
|
CelularContacto = CelularContacto.Replace("-", "").Replace("(", "").Replace(")", "").Trim
|
||||||
|
|
||||||
|
Telefono = If(Telefono.Length > 10, "", Telefono)
|
||||||
|
CelularContacto = If(CelularContacto.Length > 10, "", Telefono)
|
||||||
|
|
||||||
|
If Not ObjProv.AddProveedor(Codigo, RazonSocial, RazonSocial, RazonSocial, RFC, Dirrecion, Telefono,
|
||||||
|
"", ContactoMail, CelularContacto, LimiteCredito, PlazoCobranza, "", 0, 0, 0, -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "",
|
||||||
|
-1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, -1, "", "", False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CP:=CodigoPostal) Then
|
||||||
ErrorProv = True
|
ErrorProv = True
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Next
|
Else
|
||||||
|
|
||||||
|
Dim ErrorCuentaDeposito As Boolean = False
|
||||||
|
'RESTRICCIONES GENERALES
|
||||||
|
'QUE TENGA ALGUN DATO DE TIPO DE CUENTA
|
||||||
|
If NumeroCuenta.Trim.Length = 0 AndAlso ClabeInter.Trim.Length = 0 Then
|
||||||
|
ErrorCuentaDeposito = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
|
||||||
|
If ClabeInter.Trim.Length <> 0 AndAlso ClabeInter.Trim.Length <> 18 Then
|
||||||
|
ErrorCuentaDeposito = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Not ErrorCuentaDeposito Then
|
||||||
|
Dim ObjGrales As New ClsGenerales(ObjProv.IniciaTransacSQL)
|
||||||
|
If Not ObjGrales.AddCuentasDepositos(Banco, "-1", "-1", NumeroCuenta, ClabeInter, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario, 1, CveProveedor:=ObjProv.CveProveedor) Then
|
||||||
|
'ErrorProv = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If Not ErrorProv Then
|
If Not ErrorProv Then
|
||||||
ObjProv.Commit()
|
ObjProv.Commit()
|
||||||
If ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProv.DtResultados
|
If ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProv.DtResultados
|
||||||
@@ -1772,10 +1943,12 @@ Partial Class General_SaldosIniciales
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
|
Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
|
||||||
Dim Directorio As String = ""
|
|
||||||
|
Dim Directorio As String = ""
|
||||||
|
|
||||||
If RblFormato.SelectedValue = "1" Then
|
If RblFormato.SelectedValue = "1" Then
|
||||||
Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoClientes.xlsx"
|
Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoProveedor.xlsx"
|
||||||
ElseIf RblFormato.SelectedValue = "2" Then
|
ElseIf RblFormato.SelectedValue = "2" Then
|
||||||
Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoClientes.xlsx"
|
Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoClientes.xlsx"
|
||||||
ElseIf RblFormato.SelectedValue = "3" Then
|
ElseIf RblFormato.SelectedValue = "3" Then
|
||||||
|
|||||||
@@ -2409,83 +2409,11 @@ Partial Class OS_OrdenesServicios
|
|||||||
|
|
||||||
#Region "I M P R I M I R PDF"
|
#Region "I M P R I M I R PDF"
|
||||||
Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
|
Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
|
||||||
Dim params As New List(Of ReportParameter)
|
Dim mensajeImprimir As New StringBuilder
|
||||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
mensajeImprimir.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", CveOS)))
|
||||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
Alert(mensajeImprimir.ToString, TipoMensaje.MsgInformacion)
|
||||||
|
|
||||||
Dim dt As DataTable = TmpDT
|
|
||||||
Dim DtMateriales As DataTable = TmpDTMaterialesDetalle
|
|
||||||
|
|
||||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
||||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
||||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
||||||
params.Add(New ReportParameter("Cliente", NombreCliente))
|
|
||||||
params.Add(New ReportParameter("Solicito", TxtSolicito.Text))
|
|
||||||
params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text))
|
|
||||||
params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre))
|
|
||||||
params.Add(New ReportParameter("FechaRecibido", TxtFechaRecibido.Text.ToDate.ToShortDateString))
|
|
||||||
params.Add(New ReportParameter("FolioOS", CveFolio.ToString))
|
|
||||||
params.Add(New ReportParameter("ClienteTelefono", TelefonoCliente))
|
|
||||||
params.Add(New ReportParameter("ClienteCalle", ClienteDireccion))
|
|
||||||
params.Add(New ReportParameter("ClienteColonia", ClienteColonia))
|
|
||||||
params.Add(New ReportParameter("ClienteCiudad", ClienteCiudad))
|
|
||||||
params.Add(New ReportParameter("ClienteEstado", ClienteEstado))
|
|
||||||
|
|
||||||
If Imagen.Exists Then
|
|
||||||
params.Add(New ReportParameter("LogoPath", logouri))
|
|
||||||
Else
|
|
||||||
params.Add(New ReportParameter("LogoPath", ""))
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim lrds As New List(Of ReportDataSource)
|
|
||||||
Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = DtMateriales}
|
|
||||||
Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = dt}
|
|
||||||
|
|
||||||
lrds.Add(rds)
|
|
||||||
lrds.Add(rds2)
|
|
||||||
|
|
||||||
ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ImprimirAlGenerar()
|
|
||||||
Dim params As New List(Of ReportParameter)
|
|
||||||
Dim report As LocalReport = New LocalReport()
|
|
||||||
|
|
||||||
Dim dt As DataTable = TmpDT
|
|
||||||
Dim DtMateriales As DataTable = TmpDTMaterialesDetalle
|
|
||||||
|
|
||||||
report.ReportPath = String.Format("Empresas/{0}/Formatos/FormatoOS.rdlc", UsuarioActual.CveEmpresa)
|
|
||||||
|
|
||||||
params.Add(New ReportParameter("Cliente", NombreCliente))
|
|
||||||
params.Add(New ReportParameter("Direccion", ClienteDireccion))
|
|
||||||
params.Add(New ReportParameter("NoDeCliente", TxtCodigo.Text))
|
|
||||||
params.Add(New ReportParameter("RFC", ClienteRFC))
|
|
||||||
params.Add(New ReportParameter("Poblacion", ClienteCiudad))
|
|
||||||
params.Add(New ReportParameter("Vendedor", UsuarioActual.Nombre))
|
|
||||||
params.Add(New ReportParameter("Contacto", TxtSolicito.Text))
|
|
||||||
params.Add(New ReportParameter("Correo", ClienteMail))
|
|
||||||
params.Add(New ReportParameter("Sucursal", DdlSubProyecto.SelectedItem.Value))
|
|
||||||
params.Add(New ReportParameter("TipoServicio", "Reparación/Diagnostico"))
|
|
||||||
params.Add(New ReportParameter("DiaFecha", Date.Today.Day.ToString))
|
|
||||||
params.Add(New ReportParameter("MesFecha", Date.Today.Month.ToString))
|
|
||||||
params.Add(New ReportParameter("AñoFecha", Date.Today.Year.ToString))
|
|
||||||
params.Add(New ReportParameter("DiaVigencia", Date.Today.Day.ToString))
|
|
||||||
params.Add(New ReportParameter("MesVigencia", Date.Today.Month.ToString))
|
|
||||||
params.Add(New ReportParameter("AñoVigencia", Date.Today.Year.ToString))
|
|
||||||
params.Add(New ReportParameter("Folio", CveFolio.ToString))
|
|
||||||
params.Add(New ReportParameter("CodigoDeServicio", CveOS.ToString))
|
|
||||||
params.Add(New ReportParameter("FallaReportada", TxtDescripcion.Text))
|
|
||||||
params.Add(New ReportParameter("Copia", "Copia: Cliente"))
|
|
||||||
|
|
||||||
Dim lrds As New List(Of ReportDataSource)
|
|
||||||
Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = DtMateriales}
|
|
||||||
Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = dt}
|
|
||||||
|
|
||||||
lrds.Add(rds)
|
|
||||||
lrds.Add(rds2)
|
|
||||||
|
|
||||||
ImprimirPDF(String.Format("Empresas/{0}/Formatos/FormatoOS.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
|
|
||||||
End Sub
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "S O L I C I T A R M A T E R I A L"
|
#Region "S O L I C I T A R M A T E R I A L"
|
||||||
|
|||||||
@@ -271,6 +271,14 @@
|
|||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
<asp:UpdatePanel runat="server" ID="UPUsadosReset" RenderMode="Inline" UpdateMode="Conditional" Visible="false">
|
||||||
|
<ContentTemplate>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkUsadosReset" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" data-placement="left" title="Inicializar Usados" runat="server" Text="<i class='fa fa-pencil'></i> Inicializar Usados"></asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
<asp:UpdatePanel runat="server" ID="UpReporteGpsButton" RenderMode="Inline" UpdateMode="Conditional">
|
<asp:UpdatePanel runat="server" ID="UpReporteGpsButton" RenderMode="Inline" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<li>
|
<li>
|
||||||
|
|||||||
@@ -1654,6 +1654,10 @@ Partial Class Clientes
|
|||||||
DivBonificacionUsado.Visible = True
|
DivBonificacionUsado.Visible = True
|
||||||
CargaUsados()
|
CargaUsados()
|
||||||
|
|
||||||
|
If UsuarioActual.TienePermisoProceso(280) Then
|
||||||
|
UPUsadosReset.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
@@ -9909,6 +9913,10 @@ Partial Class Clientes
|
|||||||
Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
|
Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub LnkUsadosReset_Click(sender As Object, e As EventArgs) Handles LnkUsadosReset.Click
|
||||||
|
Alert("Puntuación Inicializada")
|
||||||
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|||||||
@@ -608,7 +608,8 @@ Partial Class Ventas_ClientesAbonar
|
|||||||
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1}); FnCambia({2},this,{1},0,{3},{4});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda))
|
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1}); FnCambia({2},this,{1},0,{3},{4});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda))
|
||||||
|
|
||||||
If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
|
If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
|
||||||
If e.Row.DBCampo("TipoDocto") = "Rem" Then
|
'si es remisión y factura no timbrada
|
||||||
|
If e.Row.DBCampo("TipoDocto") = "Rem" OrElse (e.Row.DBCampo("TipoDocto") = "Ing" AndAlso e.Row.DBCampo("FolioFiscal") = "") Then
|
||||||
e.Row.FCCheckBox("Chk").Visible = False ' que no se pueda pagar si es remisión
|
e.Row.FCCheckBox("Chk").Visible = False ' que no se pueda pagar si es remisión
|
||||||
e.Row.Cells(0).ToolTip = "El documento es remisión y no se puede realizar el pago"
|
e.Row.Cells(0).ToolTip = "El documento es remisión y no se puede realizar el pago"
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -6107,7 +6107,7 @@ Partial Class Ventas
|
|||||||
CveProducto = dr("CvePS").ToString.ToEntero
|
CveProducto = dr("CvePS").ToString.ToEntero
|
||||||
CveUnidad = dr("CveUM").ToString.ToEntero
|
CveUnidad = dr("CveUM").ToString.ToEntero
|
||||||
Cantidad = TmpDT.SUM("Cantidad", $"CvePS = {CveProducto}") 'VALIDA CONTRA LA SUMA DEL MISMO PS
|
Cantidad = TmpDT.SUM("Cantidad", $"CvePS = {CveProducto}") 'VALIDA CONTRA LA SUMA DEL MISMO PS
|
||||||
If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString.ToEntero < 1 Then
|
If UsuarioActual.Empresa.UsaInventarios AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString.ToEntero < 1 Then
|
||||||
Existencia = ObjInventarios.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1)
|
Existencia = ObjInventarios.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1)
|
||||||
If Existencia < Cantidad Then
|
If Existencia < Cantidad Then
|
||||||
MensajeCosto.AppendFormat("<br/>El Producto <b>{0}</b>. No cuenta con la cantidad suficiente en inventario. Cuenta con {1}.", dr("CodigoPS").ToString, Existencia.FormatoNumero(2))
|
MensajeCosto.AppendFormat("<br/>El Producto <b>{0}</b>. No cuenta con la cantidad suficiente en inventario. Cuenta con {1}.", dr("CodigoPS").ToString, Existencia.FormatoNumero(2))
|
||||||
|
|||||||
Reference in New Issue
Block a user