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

Compras pago deudores otros egresos ingresos, correciones efacturas, correciones redireccion anexo auxiliar 119, inicio ver inconcistencias en acciones

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-10-19 15:53:34 -07:00
parent 2342f39ba8
commit 1804d01ccb
19 changed files with 3481 additions and 3277 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
App_Code/ClsContabilidad.vb
View File

@@ -4156,6 +4156,7 @@ Public Class ClsContabilidad
DataAdapter("PA_Sis_InconsistenciasGet")
Try
SqlAdapter.SelectCommand.CommandTimeout = 0
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception

1
App_Code/ClsInventarios.vb
View File

@@ -1781,6 +1781,7 @@ Public Class ClsInventarios
End With
Try
SqlAdapter.SelectCommand.CommandTimeout = 0
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception

4
Bancos/RepIE.aspx.vb
View File

@@ -536,7 +536,7 @@ Partial Class Bancos_RepIE
Private Sub Imprimir(Formato As String)
Dim LogoRutaFisica As String = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)
Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
'Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
Dim params As New List(Of ReportParameter)
@@ -551,7 +551,7 @@ Partial Class Bancos_RepIE
params.Add(New ReportParameter("CajaChica", ParametrosReporte))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If

35
Compras/Compras.aspx
View File

@@ -4069,7 +4069,7 @@
</div>
</asp:Panel>
<asp:Panel ID="PnlContadoDeudores" Width="84%" Style="position: relative; margin: auto" runat="server" Visible="False">
<asp:Panel ID="PnlContadoDeudores" Width="100%" Style="position: relative; margin: auto" runat="server" Visible="False">
<asp:RadioButtonList ID="RBLTipoDeudor" runat="server" RepeatDirection="Horizontal" AutoPostBack="true">
<asp:ListItem Value="1" Selected="True">D.D</asp:ListItem>
@@ -4098,7 +4098,8 @@
<div class="col-md-12">
<asp:UpdatePanel ID="UPDeudores" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDeudores" runat="server" AutoGenerateColumns="False" CssClass="ScrollAD" data-heigth="200px" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,CveMoneda"
<asp:GridView ID="GvDeudores" runat="server" AutoGenerateColumns="False" CssClass="ScrollAD" data-heigth="200px" EmptyDataText="No se encontraron movimientos"
DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,CveMoneda"
ToolTip="Listado de Movimientos" data-height="300" Style="width: 100%; height: 100%; text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField>
@@ -4143,6 +4144,15 @@
<ajax:ValidatorCalloutExtender ID="VCOAmortAnti" runat="server" HighlightCssClass="vco" TargetControlID="CVAmortAnti" Width="300px"></ajax:ValidatorCalloutExtender>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Otros<br/>Gastos/Ingresos
</HeaderTemplate>
<ItemTemplate>
<asp:TextBox ID="TxtOtrosGastosIngresos" runat="server" Style="text-align: right;" CausesValidation="true" Enabled="false" MaxLength="12" Width="76px" onblur="FnSumOtrosIngEgs(this)" ></asp:TextBox>
<ajax:FilteredTextBoxExtender TargetControlID="TxtOtrosGastosIngresos" ValidChars="1234567890.-" runat="server" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<%--<RowStyle CssClass="TextoAlterno" />
<AlternatingRowStyle CssClass="TextoAlterno" />
@@ -4158,16 +4168,20 @@
</div>
<div class="chequesie1">
<div class="row">
<label class="col-md-2"></label>
<label class="col-md-1"></label>
<div class="col-md-4"></div>
<label class="col-md-2">Importe</label>
<div class="col-md-4 input-icon">
<div class="col-md-2 input-icon">
<i style="margin: 0px;">$</i>
<asp:TextBox ID="TxtContadoDeudor" runat="server" CssClass="form-control input-sm" MaxLength="12" Width="80px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FEContadoDeudor" runat="server" TargetControlID="TxtContadoDeudor" FilterType="Custom, Numbers" ValidChars=".," />
<asp:RangeValidator ID="RVContadoDeudor" runat="server" Type="Currency" MinimumValue="0" MaximumValue="0" ErrorMessage="Importe Excedido del Saldo del Deudor" ControlToValidate="TxtContadoDeudor" Display="None" ValidationGroup="GrpContado"></asp:RangeValidator>
<ajax:ValidatorCalloutExtender ID="VCEContadoDeudor" runat="server" HighlightCssClass="vco" TargetControlID="RVContadoDeudor" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-2 input-icon">
<asp:TextBox ID="TxtDeudoresOtrosGastosIngresos" runat="server" CssClass="form-control input-sm" MaxLength="12" Width="80px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FilTxtDeudoresOtrosGastosIngresos" runat="server" TargetControlID="TxtDeudoresOtrosGastosIngresos" FilterType="Custom, Numbers" ValidChars=".," />
</div>
</div>
</div>
</asp:Panel>
@@ -5567,13 +5581,14 @@
});
}
function ClickDeudorChk(Chk, Obj, total, saldo) {
function ClickDeudorChk(Chk, Obj, total, saldo,txtOtrIngEgs) {
debugger;
total = parseFloat(parseFloat(total).toFixed(2));
saldo = parseFloat(parseFloat(saldo).toFixed(2));
if ($("#" + Chk.id).is(":checked")) {
$('#' + Obj).attr('disabled', false);
$('#' + txtOtrIngEgs).attr('disabled', false);
if (parseFloat($get('TxtContadoDeudor').value) != total) {
@@ -5603,15 +5618,14 @@
}
}
else {
$('#' + Obj).val(0);
}
}
else {
$('#' + Obj).attr('disabled', true);
$('#' + txtOtrIngEgs).attr('disabled', true);
if (parseFloat($get(Obj).value) > 0) {
$get('TxtContadoDeudor').value = parseFloat(parseFloat($get('TxtContadoDeudor').value) - parseFloat($get(Obj).value)).toFixed(2);
if ($get('TxtContadoDeudor').value < 0) {
@@ -5619,6 +5633,8 @@
}
}
$('#' + Obj).val(0);
$('#' + txtOtrIngEgs).val(0);
$('#TxtDeudoresOtrosGastosIngresos').val('0');
}
if (parseFloat($('#TxtContadoDeudor').val()) == total) {
@@ -6765,6 +6781,11 @@
}
function FnSumOtrosIngEgs(txtOtrIngEgs) {
$('#TxtDeudoresOtrosGastosIngresos').val(txtOtrIngEgs.value);
}
</script>
</asp:Content>

141
Compras/Compras.aspx.vb
View File

@@ -5801,9 +5801,11 @@ Partial Class Compras_Compras
'Deudores (37)
Dim importeDD As Decimal = 0
Dim OtrosGastosIngresos As Decimal = 0
If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "4" Then
ConceptoPersonal = DdlDeudor.SelectedItem.ToString
importeDD = TxtContadoDeudor.Text.ToDecimal
OtrosGastosIngresos = TxtDeudoresOtrosGastosIngresos.Text.ToDecimal
sumaPagos += importeDD
End If
@@ -5987,10 +5989,15 @@ Partial Class Compras_Compras
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 41, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
If importeMovimiento <> 0 Then
Dim Pago As New CompraPago
Pago.ImportePago = importeMovimiento
@@ -5998,6 +6005,7 @@ Partial Class Compras_Compras
Pago.CveMonedaPago = 1
Pago.CveCompraAmortizacion = -1
Pago.CveCreditoDetalle = CveCreditoDetalle
'Pago.OtroGastoIngreso = OtrosGastosIngresos
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
@@ -6938,47 +6946,123 @@ Partial Class Compras_Compras
End If
Case 37 'Deudores
If RBLTipoDeudor.SelectedValue.ToEntero = 1 Then
Dim CveConceptoContableDeoudor As Integer = If(RBLTipoDeudor.SelectedValue.ToEntero = 1, 37, 254)
For Each rw As GridViewRow In GvDeudores.Rows
If rw.FCCheckBox("Chk").Checked Then
importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
OtrosGastosIngresos = rw.FCTextBox("TxtOtrosGastosIngresos").Text.ToDecimal
importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
Dim OtrosGastosIngresosMN As Decimal = (OtrosGastosIngresos * tipoCambioActual * Multiplicador).RoundSQL
Dim importeMNOtrosIngEgs As Decimal = ((importeMovimiento + OtrosGastosIngresos) * tipoCambioActual * Multiplicador).RoundSQL
IdCtaContable = CtaProveedorDeudores
Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero
'Conta ContPAQ
If CveConceptoContableDeoudor = 37 Then
If IdCtaContable = 0 Then
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", CveConceptoContableDeoudor))("ConceptoContable").ToString)
idCuentaContabilizacion = 0
End If
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
If OtrosGastosIngresos = 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, CveConceptoContableDeoudor, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True : Exit For
End If
Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE, .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero}
AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
End If
Next
Else
For Each rw As GridViewRow In GvDeudores.Rows
If rw.FCCheckBox("Chk").Checked Then
importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
IdCtaContable = CtaProveedorDeudores
Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
Exit For
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (importeMovimiento + OtrosGastosIngresos), Referencia, CveConceptoContableDeoudor, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNOtrosIngEgs, ImporteME:=If(tipoCambioActual = 1, 0, (importeMovimiento + OtrosGastosIngresos)), Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True : Exit For
End If
Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE, .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero}
End If
Dim Pago As New CompraPago With {
.ImportePago = importeMovimiento,
.CveIE = CveIE,
.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero,
.OtroGastoIngreso = OtrosGastosIngresos
}
AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
End If
Next
End If
'If RBLTipoDeudor.SelectedValue.ToEntero = 1 Then
' For Each rw As GridViewRow In GvDeudores.Rows
' If rw.FCCheckBox("Chk").Checked Then
' importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
' OtrosGastosIngresos = rw.FCTextBox("TxtDeudoresOtrosGastosIngresos").Text.ToDecimal
' importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
' Dim OtrosGastosIngresosMN As Decimal = (OtrosGastosIngresos * tipoCambioActual * Multiplicador).RoundSQL
' IdCtaContable = CtaProveedorDeudores
' Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero
' 'Conta ContPAQ
' If IdCtaContable = 0 Then
' CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
' idCuentaContabilizacion = 0
' End If
' If OtrosGastosIngresos = 0 Then
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
' ErrorPrepoliza = True : Exit For
' End If
' Else
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (importeMovimiento + OtrosGastosIngresos), Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
' ErrorPrepoliza = True : Exit For
' End If
' End If
' Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE, .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero}
' AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
' End If
' Next
'Else
' For Each rw As GridViewRow In GvDeudores.Rows
' If rw.FCCheckBox("Chk").Checked Then
' importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
' OtrosGastosIngresos = rw.FCTextBox("TxtDeudoresOtrosGastosIngresos").Text.ToDecimal
' importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
' Dim OtrosGastosIngresosMN As Decimal = (OtrosGastosIngresos * tipoCambioActual * Multiplicador).RoundSQL
' IdCtaContable = CtaProveedorDeudores
' Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero
' If OtrosGastosIngresos = 0 Then
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
' ErrorPrepoliza = True
' Exit For
' End If
' Else
' adasdasdasd
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (importeMovimiento + OtrosGastosIngresos), Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
' ErrorPrepoliza = True
' Exit For
' End If
' End If
' Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE, .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero}
' AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
' End If
' Next
'End If
importeMovimiento = 0
OtrosGastosIngresos = 0
Case 41 'Acreedores
importeMovimiento = importeAcreedores
@@ -10169,7 +10253,7 @@ Partial Class Compras_Compras
Dim total As Double = TxtTotal.Text.ToString.ToDouble
Dim saldo As Double = e.Row.DataKey("Saldo").ToDouble
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ClickDeudorChk(this, ""{0}"", ""{1}"", ""{2}"")", e.Row.FCTextBox("TxtSaldoDeudor").ClientID, total, saldo))
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ClickDeudorChk(this, ""{0}"", ""{1}"", ""{2}"",""{3}"")", e.Row.FCTextBox("TxtSaldoDeudor").ClientID, total, saldo, e.Row.FCTextBox("TxtOtrosGastosIngresos").ClientID))
e.Row.FCTextBox("TxtSaldoDeudor").Attributes.Add("onKeyUp", String.Format("AjustaTextboxDeudores(this);"))
Dim rv As RangeValidator = CType(e.Row.FindControl("RVSaldoDeudor"), RangeValidator)
@@ -10713,6 +10797,9 @@ Partial Class Compras_Compras
End Sub
Protected Sub GVINV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
'SI USA SERIE-LOTE INVENTARIO
@@ -10888,6 +10975,20 @@ Partial Class Compras_Compras
''CARGA ALMACEN CONSIGNACION
e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4)
e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataBind()
If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
If e.Row.FCDropDownList("ddlAlmacen").Items.Count > 1 Then
e.Row.FCDropDownList("ddlAlmacen").SelectedIndex = 1
e.Row.FCCheckBox("cbAll").Checked = True
cbAll_CheckedChanged(e.Row.FCCheckBox("cbAll"), Nothing)
ddlAlmacen_SelectedIndexChanged(e.Row.FCDropDownList("ddlAlmacen"), Nothing)
End If
End If
End If
End Sub

13
Compras/eFacturas.aspx
View File

@@ -673,10 +673,14 @@
</div>
<div class="modal-body">
<div class="row" runat="server" id="DivVincularPagoManualmente" style="visibility:hidden!important">
<div class="row" runat="server" id="DivVincularPagoManualmente" style="display:none!important">
<div class="col-md-2">
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Bancos/PopUpBuscarIE.aspx?OPCION=Complementos',800,600,'N');"><i class='fa fa-plus'></i>Vincular IE Manualmente</a>
<asp:Button ID="BtnVincularManualmente" runat="server" ClientIDMode="Static" OnClick="BtnVincularManualmente_Click" Style="display: none;" class="btn btn-primary" />
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Bancos/PopUpBuscarIE.aspx?OPCION=Complementos',800,600,'N');">
<i class='fa fa-plus'></i>Vincular IE Manualmente
</a>
<asp:Button ID="BtnVincularManualmente" runat="server" ClientIDMode="Static" OnClick="BtnVincularManualmente_Click" class="btn btn-primary" Text="bincular manualmente" />
<asp:HiddenField runat="server" ID="HdnCveIE" ClientIDMode="Static" Value="-1" />
<asp:HiddenField runat="server" ID="HdnIdDocumento" ClientIDMode="Static" Value="-1" />
</div>
@@ -1293,9 +1297,6 @@
}
function CargaVinculacionTraslado(CveCompra, FolioCompra) {
$('#HdnCveCompraComplementoTraslado').val(CveCompra);
$('#HdnFolioCompraComplementoTraslado').val(FolioCompra ) ;
$('#BtnCargaCompraComplementoTraslado').click();

34
Compras/eFacturas.aspx.vb
View File

@@ -3514,11 +3514,11 @@ Partial Class Compras_eFacturas
BtnVincularPago.Visible = False
If DTDocumentosRelacionados.Rows.Count > 0 Then
SerieFolioIE = DTDocumentosRelacionados.Rows(0)("SerieFolio").ToString
DivVincularPagoManualmente.Visible = False
'DivVincularPagoManualmente.Visible = False
BtnVincularPago.Visible = True
TieneRegistros = True
Else
DivVincularPagoManualmente.Visible = True
'DivVincularPagoManualmente.Visible = True
BtnVincularPago.Visible = False
End If
@@ -3614,7 +3614,7 @@ Partial Class Compras_eFacturas
If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then
If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then
DivVincularPagoManualmente.Visible = True
'DivVincularPagoManualmente.Visible = True
End If
MSGComplemento = MSGComplemento & " Existen mas de 3 días de diferencia entre la fecha del documento y la fecha de complemento. "
@@ -3650,7 +3650,7 @@ Partial Class Compras_eFacturas
MSGComplemento = MSGComplemento & $" Existe una diferencia mayor a $5.00 ({Math.Abs(DiferenciaImportes).ToString("###,###,###.00")})"
If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then
DivVincularPagoManualmente.Visible = True
'DivVincularPagoManualmente.Visible = True
End If
End If
Else
@@ -3658,13 +3658,13 @@ Partial Class Compras_eFacturas
BtnVincularPago.Visible = False
MSGComplemento = MSGComplemento & $" No se encontraron pagos "
If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then
DivVincularPagoManualmente.Visible = True
' DivVincularPagoManualmente.Visible = True
End If
End If
Else
BtnVincularPago.Visible = False
MSGComplemento = MSGComplemento & $"No se encontraron compras relacionadas"
DivVincularPagoManualmente.Visible = False
'DivVincularPagoManualmente.Visible = False
End If
@@ -3697,7 +3697,7 @@ Partial Class Compras_eFacturas
Else
LblMensajeComlementoError.Text = ""
DVMensajecomplementoError.Visible = False
DivVincularPagoManualmente.Visible = False
' DivVincularPagoManualmente.Visible = False
End If
@@ -3708,18 +3708,18 @@ Partial Class Compras_eFacturas
ListaComprasPUE = ListaComprasPUEInterna
If DivVincularPagoManualmente.Visible Then
'If DivVincularPagoManualmente.Visible Then
For Each GvRowValidaCompra As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
If GvRowValidaCompra.DataKey("CveCompra").ToEntero > 0 Then
DivVincularPagoManualmente.Visible = True
Exit For
Else
DivVincularPagoManualmente.Visible = False
End If
Next
' For Each GvRowValidaCompra As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
' If GvRowValidaCompra.DataKey("CveCompra").ToEntero > 0 Then
' DivVincularPagoManualmente.Visible = True
' Exit For
' Else
' DivVincularPagoManualmente.Visible = False
' End If
' Next
End If
'End If
BtnVincularPago.Attributes.Add("data-toggle", "")
BtnVincularPago.Attributes.Add("data-popout", "")

2
Contabilidad2/RepAnexoCatalogo.aspx.vb
View File

@@ -74,7 +74,7 @@ Partial Class AC2_RepAnexoCatalogo
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.CveEmpresa <> 119 Then
Response.Redirect($"/Contabilidad/RepAnexoCatalogo.aspx")
End If

2
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
View File

@@ -97,7 +97,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.CveEmpresa <> 119 Then
Response.Redirect($"/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx")
End If

4
CxC/RepCxC.aspx.vb
View File

@@ -719,7 +719,7 @@ Partial Class RepCxC
If DtDatos.Rows(0)("TC9").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC9").ToString.ToEntero = 2 Then CantidadColumnas += 1
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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim params As New List(Of ReportParameter)
@@ -734,7 +734,7 @@ Partial Class RepCxC
params.Add(New ReportParameter("CantColumnas", CantidadColumnas.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If

402
Empresas/Grales/Formatos/RepCxC.rdlc
View File

@@ -1,24 +1,182 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet3">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>74f8a171-24f1-4404-809e-ec2e098f1907</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet3</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="GPO">
<DataField>GPO</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Saldo">
<DataField>Saldo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="vencido">
<DataField>vencido</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="por_vencer">
<DataField>por_vencer</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Orden">
<DataField>Orden</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna1">
<DataField>Columna1</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna2">
<DataField>Columna2</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna3">
<DataField>Columna3</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna4">
<DataField>Columna4</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna5">
<DataField>Columna5</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna6">
<DataField>Columna6</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna7">
<DataField>Columna7</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna8">
<DataField>Columna8</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna9">
<DataField>Columna9</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC1">
<DataField>NomC1</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC2">
<DataField>NomC2</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC3">
<DataField>NomC3</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC4">
<DataField>NomC4</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC5">
<DataField>NomC5</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC6">
<DataField>NomC6</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC7">
<DataField>NomC7</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC8">
<DataField>NomC8</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC9">
<DataField>NomC9</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC1">
<DataField>TC1</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC2">
<DataField>TC2</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC3">
<DataField>TC3</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC4">
<DataField>TC4</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC5">
<DataField>TC5</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC6">
<DataField>TC6</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC7">
<DataField>TC7</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC8">
<DataField>TC8</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC9">
<DataField>TC9</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet3</rd:DataSetName>
<rd:SchemaPath>C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet3.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
<ReportSections>
<ReportSection>
<Body>
<ReportItems>
<Tablix Name="Tablix1">
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>6.67628cm</Width>
<Width>6.46311cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.0503cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.07011cm</Width>
<Width>1.97908cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.07011cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.07011cm</Width>
<Width>2.05681cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.07011cm</Width>
@@ -481,7 +639,7 @@
<TextRun>
<Value>=Fields!GPO.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
</Style>
</TextRun>
@@ -520,7 +678,7 @@
<TextRun>
<Value>=IIF(Fields!Saldo.Value = 0, "-", Fields!Saldo.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
<Format>#,0.00;(#,0.00)</Format>
</Style>
@@ -560,7 +718,7 @@
<TextRun>
<Value>=IIF(Fields!Columna1.Value = 0, "-", Fields!Columna1.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
<Format>#,0.00</Format>
</Style>
@@ -600,7 +758,7 @@
<TextRun>
<Value>=IIF(Fields!Columna2.Value = 0, "-", Fields!Columna2.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
<Format>#,0.00;(#,0.00)</Format>
</Style>
@@ -640,7 +798,7 @@
<TextRun>
<Value>=IIF(Fields!Columna3.Value = 0, "-", Fields!Columna3.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
<Format>#,0.00;(#,0.00)</Format>
</Style>
@@ -680,7 +838,7 @@
<TextRun>
<Value>=IIF(Fields!Columna4.Value = 0, "-", Fields!Columna4.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
<Format>#,0.00;(#,0.00)</Format>
</Style>
@@ -720,7 +878,7 @@
<TextRun>
<Value>=IIF(Fields!Columna5.Value = 0, "-", Fields!Columna5.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
<Format>#,0.00;(#,0.00)</Format>
</Style>
@@ -760,7 +918,7 @@
<TextRun>
<Value>=IIF(Fields!Columna6.Value = 0, "-", Fields!Columna6.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
<Format>#,0.00</Format>
</Style>
@@ -800,7 +958,7 @@
<TextRun>
<Value>=IIF(Fields!Columna7.Value = 0, "-", Fields!Columna7.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
<Format>#,0.00;(#,0.00)</Format>
</Style>
@@ -840,7 +998,7 @@
<TextRun>
<Value>=IIF(Fields!Columna8.Value = 0, "-", Fields!Columna8.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
<Format>#,0.00</Format>
</Style>
@@ -880,7 +1038,7 @@
<TextRun>
<Value>=IIF(Fields!Columna9.Value = 0, "-", Fields!Columna9.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
<Format>0.00</Format>
</Style>
@@ -920,7 +1078,7 @@
<TextRun>
<Value>=IIF(Fields!por_vencer.Value = 0, "-", Fields!por_vencer.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!Orden.Value = "", "Bold","Default")</FontWeight>
<Format>#,0.00</Format>
</Style>
@@ -1007,8 +1165,9 @@
<FixedColumnHeaders>true</FixedColumnHeaders>
<DataSetName>DataSet1</DataSetName>
<Top>0.95222cm</Top>
<Left>0.635cm</Left>
<Height>0.94839cm</Height>
<Width>29.42768cm</Width>
<Width>29.11018cm</Width>
<Style>
<Border>
<Color>DimGray</Color>
@@ -1030,8 +1189,9 @@
</Tablix>
<Line Name="Line1">
<Top>0.14083cm</Top>
<Left>0.4445cm</Left>
<Height>0cm</Height>
<Width>29.42768cm</Width>
<Width>28.88945cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
@@ -1059,9 +1219,9 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.35222cm</Top>
<Left>8.72658cm</Left>
<Left>9.36158cm</Left>
<Height>0.6cm</Height>
<Width>20.7011cm</Width>
<Width>20.3836cm</Width>
<ZIndex>2</ZIndex>
<Visibility>
<Hidden>=iif(CInt(Parameters!CantColumnas.Value) = 9, False, True)</Hidden>
@@ -1097,7 +1257,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.35222cm</Top>
<Left>8.72658cm</Left>
<Left>9.36158cm</Left>
<Height>0.6cm</Height>
<Width>16.56088cm</Width>
<ZIndex>3</ZIndex>
@@ -1135,9 +1295,9 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.35222cm</Top>
<Left>8.72658cm</Left>
<Left>9.36158cm</Left>
<Height>0.6cm</Height>
<Width>18.63099cm</Width>
<Width>18.31349cm</Width>
<ZIndex>4</ZIndex>
<Visibility>
<Hidden>=iif(CInt(Parameters!CantColumnas.Value) = 8, False, True)</Hidden>
@@ -1173,9 +1333,9 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.35222cm</Top>
<Left>8.72658cm</Left>
<Left>9.36158cm</Left>
<Height>0.6cm</Height>
<Width>14.49077cm</Width>
<Width>14.17327cm</Width>
<ZIndex>5</ZIndex>
<Visibility>
<Hidden>=iif(CInt(Parameters!CantColumnas.Value) = 6, False, True)</Hidden>
@@ -1211,9 +1371,9 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.35222cm</Top>
<Left>8.72658cm</Left>
<Left>9.36158cm</Left>
<Height>0.6cm</Height>
<Width>12.42066cm</Width>
<Width>12.11646cm</Width>
<ZIndex>6</ZIndex>
<Visibility>
<Hidden>=iif(CInt(Parameters!CantColumnas.Value) = 5, False, True)</Hidden>
@@ -1249,9 +1409,9 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.35222cm</Top>
<Left>8.72658cm</Left>
<Left>9.14841cm</Left>
<Height>0.6cm</Height>
<Width>10.35055cm</Width>
<Width>10.24622cm</Width>
<ZIndex>7</ZIndex>
<Visibility>
<Hidden>=iif(CInt(Parameters!CantColumnas.Value) = 4, False, True)</Hidden>
@@ -1275,7 +1435,7 @@
</Border>
</Style>
</Body>
<Width>11.61695in</Width>
<Width>11.7107in</Width>
<Page>
<PageHeader>
<Height>3.96168cm</Height>
@@ -1287,6 +1447,7 @@
<Value>=Parameters!LogoPath.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>0.27375cm</Top>
<Left>0.635cm</Left>
<Height>2.22362cm</Height>
<Width>2.33715cm</Width>
<Style>
@@ -1316,7 +1477,7 @@
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.27375cm</Top>
<Left>2.53638cm</Left>
<Left>3.17138cm</Left>
<Height>0.6cm</Height>
<Width>23.24806cm</Width>
<ZIndex>1</ZIndex>
@@ -1351,7 +1512,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>1.19125cm</Top>
<Left>8.87625cm</Left>
<Left>9.51125cm</Left>
<Height>0.52945cm</Height>
<Width>9.98771cm</Width>
<ZIndex>2</ZIndex>
@@ -1384,8 +1545,9 @@
</Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName>
<Top>2.67376cm</Top>
<Left>0.635cm</Left>
<Height>1.28792cm</Height>
<Width>29.42768cm</Width>
<Width>28.69895cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
@@ -1430,7 +1592,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.21166cm</Top>
<Left>26.95058cm</Left>
<Left>27.26808cm</Left>
<Height>0.36335cm</Height>
<Width>2.06587cm</Width>
<Style>
@@ -1461,7 +1623,7 @@
</Paragraphs>
<rd:DefaultName>Textbox8</rd:DefaultName>
<Top>0.23989cm</Top>
<Left>0.127cm</Left>
<Left>0.4445cm</Left>
<Height>0.36335cm</Height>
<Width>1.60042cm</Width>
<ZIndex>1</ZIndex>
@@ -1495,7 +1657,7 @@
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Top>0.23989cm</Top>
<Left>1.67133cm</Left>
<Left>2.62383cm</Left>
<Height>0.36335cm</Height>
<Width>5.14936cm</Width>
<ZIndex>2</ZIndex>
@@ -1527,7 +1689,7 @@
</Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName>
<Top>0.23989cm</Top>
<Left>12.01358cm</Left>
<Left>12.33108cm</Left>
<Height>0.36335cm</Height>
<Width>2.92333cm</Width>
<ZIndex>3</ZIndex>
@@ -1543,9 +1705,9 @@
</Textbox>
<Line Name="Line2">
<Top>0.10583cm</Top>
<Left>0.3175cm</Left>
<Left>0.4445cm</Left>
<Height>0cm</Height>
<Width>29.11018cm</Width>
<Width>28.88945cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
@@ -1571,7 +1733,7 @@
</Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName>
<Top>0.63852cm</Top>
<Left>0.127cm</Left>
<Left>0.762cm</Left>
<Height>0.6cm</Height>
<Width>6.69369cm</Width>
<ZIndex>5</ZIndex>
@@ -1606,7 +1768,7 @@
</Paragraphs>
<rd:DefaultName>Textbox11</rd:DefaultName>
<Top>0.20285cm</Top>
<Left>15.1133cm</Left>
<Left>15.4308cm</Left>
<Height>0.40039cm</Height>
<Width>6.04724cm</Width>
<ZIndex>6</ZIndex>
@@ -1636,162 +1798,8 @@
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet3">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>74f8a171-24f1-4404-809e-ec2e098f1907</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet3</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="GPO">
<DataField>GPO</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Saldo">
<DataField>Saldo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="vencido">
<DataField>vencido</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="por_vencer">
<DataField>por_vencer</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Orden">
<DataField>Orden</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna1">
<DataField>Columna1</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna2">
<DataField>Columna2</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna3">
<DataField>Columna3</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna4">
<DataField>Columna4</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna5">
<DataField>Columna5</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna6">
<DataField>Columna6</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna7">
<DataField>Columna7</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna8">
<DataField>Columna8</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Columna9">
<DataField>Columna9</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC1">
<DataField>NomC1</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC2">
<DataField>NomC2</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC3">
<DataField>NomC3</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC4">
<DataField>NomC4</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC5">
<DataField>NomC5</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC6">
<DataField>NomC6</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC7">
<DataField>NomC7</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC8">
<DataField>NomC8</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomC9">
<DataField>NomC9</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC1">
<DataField>TC1</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC2">
<DataField>TC2</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC3">
<DataField>TC3</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC4">
<DataField>TC4</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC5">
<DataField>TC5</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC6">
<DataField>TC6</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC7">
<DataField>TC7</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC8">
<DataField>TC8</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TC9">
<DataField>TC9</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet3</rd:DataSetName>
<rd:SchemaPath>C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet3.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
</ReportSection>
</ReportSections>
<ReportParameters>
<ReportParameter Name="LogoPath">
<DataType>String</DataType>

160
Empresas/Grales/Formatos/RepRembolsosComprobacionesIE.rdlc
View File

@@ -1,15 +1,89 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet3">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>74f8a171-24f1-4404-809e-ec2e098f1907</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet3</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Banco">
<DataField>Banco</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NumCuenta">
<DataField>NumCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TipoTransaccion">
<DataField>TipoTransaccion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Tipo">
<DataField>Tipo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Folio">
<DataField>Folio</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="FechaDocumento">
<DataField>FechaDocumento</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Importe">
<DataField>Importe</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PagueseA">
<DataField>PagueseA</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Referencia">
<DataField>Referencia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="EstatusIE">
<DataField>EstatusIE</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet3</rd:DataSetName>
<rd:SchemaPath>C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet3.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
<ReportSections>
<ReportSection>
<Body>
<ReportItems>
<Tablix Name="Tablix1">
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>1.63097cm</Width>
<Width>3.36377cm</Width>
</TablixColumn>
<TablixColumn>
<Width>4.39739cm</Width>
<Width>2.5638cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.92226cm</Width>
@@ -1170,7 +1244,7 @@
<Top>0.17639cm</Top>
<Left>0.07091cm</Left>
<Height>1.60894cm</Height>
<Width>28.37447cm</Width>
<Width>28.27368cm</Width>
<Style>
<Border>
<Color>DimGray</Color>
@@ -1232,7 +1306,9 @@
</Style>
</TextRun>
</TextRuns>
<Style />
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
@@ -1555,78 +1631,8 @@
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet3">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>74f8a171-24f1-4404-809e-ec2e098f1907</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet3</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Banco">
<DataField>Banco</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NumCuenta">
<DataField>NumCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TipoTransaccion">
<DataField>TipoTransaccion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Tipo">
<DataField>Tipo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Folio">
<DataField>Folio</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="FechaDocumento">
<DataField>FechaDocumento</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Importe">
<DataField>Importe</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PagueseA">
<DataField>PagueseA</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Referencia">
<DataField>Referencia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="EstatusIE">
<DataField>EstatusIE</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet3</rd:DataSetName>
<rd:SchemaPath>C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet3.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
</ReportSection>
</ReportSections>
<ReportParameters>
<ReportParameter Name="LogoPath">
<DataType>String</DataType>

3
Inicio.aspx
View File

@@ -133,6 +133,9 @@
<li>
<asp:LinkButton ID="LnkAgregar" runat="server" Visible="false" OnClick="LnkAgregar_Click"><i class="fa fa-edit"></i><span style="padding: 10px">Editar Comunicado</span></asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkInconsistencias" runat="server" Visible="false" OnClick="LnkInconsistencias_Click1"><i class="fa fa fa-eye"></i><span style="padding: 10px">Inconsistencias</span></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>

21
Inicio.aspx.vb
View File

@@ -210,10 +210,11 @@ Partial Class Inicio
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
Dim EsDEV = Not UsuarioActual.Empresa.FacturaProduccion
If Not EsDEV Then
If UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then MuestraInconsistencias() '100
End If
'Dim EsDEV = Not UsuarioActual.Empresa.FacturaProduccion
'If Not EsDEV Then
' If UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then MuestraInconsistencias() '100
'End If
'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD
@@ -238,6 +239,11 @@ Partial Class Inicio
CargaDocumentacion()
If UsuarioActual.CveRol = 1 Or UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then
LnkInconsistencias.Visible = True
End If
End If
End Sub
@@ -1353,4 +1359,11 @@ Partial Class Inicio
#End Region
Protected Sub LnkInconsistencias_Click1(sender As Object, e As EventArgs)
MuestraInconsistencias()
End Sub
End Class

23
Inventarios/RepEntradasSalidas.aspx
View File

@@ -210,69 +210,90 @@
DataKeyNames="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Codigo,Codigo2,PS"
ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns>
<%--0--%>
<asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="Codigo" />
<%--1--%>
<asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código2" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" Visible="False" DataTextField="Codigo2" />
<%--2--%>
<asp:BoundField Visible="false" DataField="CodigoBarras" HeaderText="CodigoBarras" ItemStyle-Width="10%" />
<%--3--%>
<asp:BoundField Visible="false" DataField="Clasificacion" HeaderText="Clasificación 2" ItemStyle-Width="7%" />
<%--4--%>
<asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="22.5%" HeaderText="Descripción" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="PS" />
<%--5--%>
<asp:BoundField Visible="false" DataField="SeccionAlmacen" HeaderText="Sección Almacén" ItemStyle-Width="10%" />
<%--6--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Exist. Inicial" >
<ItemTemplate>
<asp:Label ID="lbSaldoI" runat="server" Text='<%# If(Eval("SaldoIniCant").ToString() = "0", "-", Eval("SaldoIniCant", "{0:#,###.######}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--7--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Entradas">
<ItemTemplate>
<asp:Label ID="lbEntradasCant" runat="server" Text='<%#If(Eval("EntradaCant").ToString() = "0", "-", Eval("EntradaCant", "{0:#,###.######}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--8--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Salidas">
<ItemTemplate>
<asp:Label ID="lbSalidasCant" runat="server" Text='<%# If(Eval("SalidaCant").ToString() = "0", "-", Eval("SalidaCant", "{0:#,###.######}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--9--%>
<asp:BoundField Visible="false" DataField="CantidadPendienteSurtir" HeaderText="Pte Surtir" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right"/>
<%--10--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Exist. Final" ItemStyle-CssClass="LightGray">
<ItemTemplate>
<asp:Label ID="lbSaldoF" runat="server" Text='<%# If(Eval("SaldoFCant").ToString() = "0", "-", Eval("SaldoFCant", "{0:#,###.######}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<asp:BoundField Visible="false" DataField="CantidadPendienteSurtir" HeaderText="Pte Surtir" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right"/>
<%--11--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Saldo Inicial">
<ItemTemplate>
<asp:Label ID="lbSaldoI2" runat="server" Text='<%# If(Eval("SaldoIniImp").ToString() = "0", "-", Eval("SaldoIniImp", "{0:N2}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--12--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Entradas">
<ItemTemplate>
<asp:Label ID="lbEntradaImp" runat="server" Text='<%# If(Eval("EntradaImp").ToString() = "0", "-", Eval("EntradaImp", "{0:N2}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--13--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Salidas">
<ItemTemplate>
<asp:Label ID="lbSalidaImp" runat="server" Text='<%# If(Eval("SalidaImp").ToString() = "0", "-", Eval("SalidaImp", "{0:N2}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--14--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Saldo Final" >
<ItemTemplate>
<asp:Label ID="lbSaldoF2" runat="server" Text='<%# If(Eval("SaldoFImp").ToString() = "0", "-", Eval("SaldoFImp", "{0:N2}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--15--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Último Costo">
<ItemTemplate>
<asp:Label ID="lbUltimoCosto" runat="server" Text='<%# If(Eval("UltimoCosto").ToString() = "0", "-", Eval("UltimoCosto", "{0:N2}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--16--%>
<asp:BoundField Visible="false" DataField="FechaCompra" HeaderText="Última Compra" DataFormatString="{0:d}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right"/>
<%--17--%>
<asp:BoundField Visible="false" DataField="FechaVenta" HeaderText="Última Venta" DataFormatString="{0:d}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right"/>
<%--18--%>
<asp:BoundField Visible="false" DataField="PUPromedio" HeaderText="PU Promedio" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right"/>
</Columns>

4
Inventarios/RepEntradasSalidas.aspx.vb
View File

@@ -108,7 +108,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
GvM.Columns(15).Visible = TienePermisoImportes
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
GvM.Columns(10).Visible = True
GvM.Columns(9).Visible = True
End If
End Sub
@@ -308,7 +308,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
'e.Row.Cells(4).Text = $"<a class='Texto' href='./RepExistenciasCostos.aspx?CvePS={e.Row.DataKey("CvePS")}&CveMoneda={e.Row.DataKey("CveMoneda")}&CveProveedor={e.Row.DataKey("CveProveedor")}&CveConcepto={e.Row.DataKey("CveConcepto")}&FechaI={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&FechaF={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CvePersonal={e.Row.DataKey("CvePersonal")}'>{e.Row.DataKey("PS")}</a>"
Else
e.Row.Cells(9).BackColor = Drawing.Color.LightGray
e.Row.Cells(10).BackColor = Drawing.Color.LightGray
e.Row.Cells(14).BackColor = Drawing.Color.LightGray
'e.Row.FCLabel("lbSaldoI").Text = If(e.Row.DBCampo("SaldoIniCant").ToString().ToEntero = 0, "-", e.Row.DBCampo("SaldoIniCant").ToDouble.ToString("N2"))

32
OS/OrdenesServicios.aspx.vb
View File

@@ -73,6 +73,10 @@ Partial Class OS_OrdenesServicios
End Property
Private Property CveOS As Integer
Get
If ViewState("CveOS") Is Nothing Then
ViewState("CveOS") = -1
End If
Return ViewState("CveOS").ToString.ToEntero
End Get
Set(value As Integer)
@@ -367,6 +371,12 @@ Partial Class OS_OrdenesServicios
DVDatosAdicionalesAcum1.Visible = True
DVDatosAdicionalesAcum2.Visible = True
DVDatosAdicionalesAcum3.Visible = True
If CveOS = -1 Then
CargaCliente(-1, 1, True)
End If
Else
LblCuentaEquipoTH.Visible = False
DdlCuentaEquipo.Visible = False
@@ -377,6 +387,8 @@ Partial Class OS_OrdenesServicios
End Sub
#Region "DDL'S "
Protected Sub DdlPSDetalle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPSDetalle.SelectedIndexChanged
If CveCliente > 0 OrElse DdlPSDetalle.SelectedValue = "-2" Then
@@ -759,12 +771,26 @@ Partial Class OS_OrdenesServicios
DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
End If
End Sub
Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = 1)
Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = 1, Optional CargaPublicoGeneral As Boolean = False)
Dim ObjCliente As New ClsClientes()
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus) Then
Dim NombreCliente As String = "-1"
If CargaPublicoGeneral Then
NombreCliente = "PUBLICO EN GENERAL"
End If
If ObjCliente.GetClientes(CveCliente, NombreCliente, "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
If CargaPublicoGeneral Then
CveCliente = ObjCliente.CveCliente
End If
TxtCodigo.Text = ObjCliente.Codigo
LblCliente.Text = String.Format("<a Class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente={0}"">{1}</a>", CveCliente, ObjCliente.Nombre)
NombreCliente = ObjCliente.Nombre
@@ -777,6 +803,8 @@ Partial Class OS_OrdenesServicios
ClienteRFC = ObjCliente.RFC
ClienteMail = ObjCliente.Mail
If ObjCliente.GetSucursales(CveCliente) Then
DdlSucursalCliente.DataSource = ObjCliente.DtResultados
DdlClienteSucursalCuenta.DataSource = ObjCliente.DtResultados

4
Ventas/RepRecuperacion.aspx.vb
View File

@@ -255,14 +255,14 @@ Partial Class Ventas_RepRecuperacion
End If
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 params As New List(Of ReportParameter)
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("Filtros", StrFiltro.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If

4
Ventas/RepRecuperacionDetalle.aspx.vb
View File

@@ -352,14 +352,14 @@ Partial Class Ventas_RepRecuperacionDetalle
End If
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 params As New List(Of ReportParameter)
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("Filtros", StrFiltro.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If