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

-- se depuró/limpió la variables idctaXXX

Browse Source
This commit is contained in:
rrene
2023-08-17 18:56:22 -07:00
parent 70fce81f48
commit 2765dab757
74 changed files with 1350 additions and 5328 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Bancos/DepositosCaja.aspx
View File

@@ -299,7 +299,7 @@
<ContentTemplate>
<br />
<div style="height:450px;overflow-x:scroll">
<asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio,CveCuenta,CveSubProyecto" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None">
<asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, Importe, SerieFolio,CveCuenta,CveSubProyecto" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>
@@ -339,9 +339,7 @@
</ItemTemplate>
<ItemStyle HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
</Columns>
</Columns>
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</div>

16
Bancos/FluctuacionCambiaria.aspx
View File

@@ -260,7 +260,7 @@
</div>
<br />
<asp:GridView ID="GvProveedores" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveCompra,CveProveedor,TipoCambio, Fluctuacion,SerieFolio, CveConceptoContable,FluctuacionTotal,PerdidaGanancia,IdCtaContComplementaria,CveIE"
DataKeyNames="CveCompra,CveProveedor,TipoCambio, Fluctuacion,SerieFolio, CveConceptoContable,FluctuacionTotal,PerdidaGanancia,CveIE"
EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns>
@@ -363,7 +363,7 @@
</div>
<br />
<asp:GridView ID="GvProveedoresAnt" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveCompra,CveProveedor,TipoCambio, Fluctuacion,SerieFolio, CveConceptoContable,FluctuacionTotal,PerdidaGanancia,IdCtaContComplementaria,CveIE"
DataKeyNames="CveCompra,CveProveedor,TipoCambio, Fluctuacion,SerieFolio, CveConceptoContable,FluctuacionTotal,PerdidaGanancia,CveIE"
EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns>
@@ -475,7 +475,7 @@
<br />
<asp:GridView ID="GvVentas" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto,CveCliente" EmptyDataText="No se Encontraron Cuentas Bancarias."
DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,TipoDocto,CveCliente" EmptyDataText="No se Encontraron Cuentas Bancarias."
ToolTip="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns>
<asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
@@ -586,7 +586,7 @@
<br />
<asp:GridView ID="GvClientesAnt" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto" EmptyDataText="No se Encontraron Cuentas Bancarias."
DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,TipoDocto" EmptyDataText="No se Encontraron Cuentas Bancarias."
ToolTip="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns>
<asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
@@ -640,7 +640,7 @@
<br />
<asp:GridView ID="GvAcreedores" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveCompra,CveProveedor,TipoCambio,Fluctuacion,SerieFolio,IdCtaContComplementaria,CveIE"
DataKeyNames="CveCompra,CveProveedor,TipoCambio,Fluctuacion,SerieFolio,CveIE"
EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns>
@@ -691,7 +691,7 @@
<br />
<asp:GridView ID="GvAcreedoresAnt" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveCompra,CveProveedor,TipoCambio,Fluctuacion,SerieFolio,IdCtaContComplementaria,CveIE"
DataKeyNames="CveCompra,CveProveedor,TipoCambio,Fluctuacion,SerieFolio,CveIE"
EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns>
@@ -850,7 +850,7 @@
</div>
<asp:GridView ID="GvFiliales" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="IdCtaAfectable,TipoCambio,Fluctuacion,RazonSocial,CveIE,Folio"
DataKeyNames="TipoCambio,Fluctuacion,RazonSocial,CveIE,Folio"
EmptyDataText="No se Encontraron" ToolTip=""
CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns>
@@ -897,7 +897,7 @@
<br />
<asp:GridView ID="GvDeudores" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="IdCtaAfectable,TipoCambio,Fluctuacion,RazonSocial,CveIE"
DataKeyNames="TipoCambio,Fluctuacion,RazonSocial,CveIE"
EmptyDataText="No se Encontraron" ToolTip=""
CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns>

1
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -869,7 +869,6 @@ Partial Class Bancos_FluctuacionCambiaria
Dim cb As CheckBox = gvr.FCCheckBox("ChkGenerarBancos")
If cb.Checked Then
Total = gvr.DataKey("Fluctuacion").ToDecimal
' Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero
Dim ConceptoReferencia As String = String.Format("{0} - {1} {2}", gvr.DataKey("Banco"), gvr.DataKey("NumCuenta"), MesTCtexto)
'MOVIMIENTO DE FLUCTUACION

8
Bancos/IE.aspx.vb
View File

@@ -1517,7 +1517,6 @@ Partial Class Bancos_IE
Folio = Banco.GetNextFolio(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero)
Banco.Dispose()
TxtFolio.Text = Folio.ToString
Dim drI As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If drI IsNot Nothing Then
@@ -1525,11 +1524,12 @@ Partial Class Bancos_IE
Else
CargaNotas(-1)
End If
Else
TxtFolio.Text = ""
End If
If UsuarioActual.CveEmpresa = 140 AndAlso Request("Opcion").ToString = "INGPC" Then
CargaFolioAdicional()
End If
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then
@@ -1707,7 +1707,6 @@ Partial Class Bancos_IE
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1")
LtlTitulo.Text = "Egreso Por Comprobar"
RBL.Items.Remove(RBL.Items.FindByValue("C"))
ElseIf Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "DEV" Then
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 ")
@@ -3809,7 +3808,6 @@ Partial Class Bancos_IE
DdlPersonal.Visible = False
DdlProveedores.Visible = True
DdlCliente.Visible = False
CargaFolioAdicional()
ElseIf RBL.SelectedValue = "C" Then
DdlPersonal.Visible = False
DdlProveedores.Visible = False

24
Bancos/OtrosIE.aspx.vb
View File

@@ -214,7 +214,7 @@ Partial Class Bancos_OtrosIE
'SACO LA CLAVE DE LA CUENTA BANCARIA SELECCIONADO
If DdlCuenta.SelectedValue.ToEntero > 0 And DRt("CveConcepto").ToString = "30" Then 'DTCuentasContables
Dim DRr As DataRow = DTCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
' Dim DRr As DataRow = DTCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
If DRr IsNot Nothing Then
CodigoCuenta = DRr("CuentaFormato").ToString()
EsComodin = 1
@@ -463,27 +463,15 @@ Partial Class Bancos_OtrosIE
'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
If DdlCuenta.SelectedValue.ToEntero > 0 Then
Dim DR As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & DdlCuenta.SelectedValue)
If DR IsNot Nothing Then
TxtImporte.Text = DTMovimientos.SUM("Abono", "IdCuenta =" & DR("IdCtaContable").ToString).ToString
UPPDocumento.Update()
End If
'Dim DR As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & DdlCuenta.SelectedValue)
'If DR IsNot Nothing Then
' TxtImporte.Text = DTMovimientos.SUM("Abono", "IdCuenta =" & DR("Id0CtaContable").ToString).ToString
' UPPDocumento.Update()
'End If
End If
End Sub
Private Function IdCuentaBancos(CveCuenta As Integer) As Integer
Dim Retorno As Integer = 0
'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
If CveCuenta > 0 Then
Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & CveCuenta)
If drr IsNot Nothing Then
Retorno = drr("IdCtaContable").ToString.ToEntero
End If
End If
Return Retorno
End Function
Private Sub CargaCuentasDepositos(CveProveedor As Integer, CveCliente As Integer, CvePersonal As Integer, CveColectiva As Integer)
DdlCuentaDeposito.Items.Clear()
If DdlTipoTransaccion.SelectedValue = "2" Then

4
Bancos/PagoDeudor.aspx.cs
View File

@@ -249,8 +249,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas
}
}
// DEUDORES - DEUDORES COMPLEMENTARIAIDCtaContableDeudorPrestamo
if (UsaComplementaria) //(IDCtaContableDeudorCompPrestamo > 0)
// DEUDORES - DEUDORES COMPLEMENTARIAI
if (UsaComplementaria)
{
// DEUDOR COMPLEMENTARIA
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, 0, (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), 256, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))

2
Bancos/PolizaCheque.aspx.vb
View File

@@ -431,7 +431,7 @@ Partial Class Bancos_PolizaCheque
Dim dr As DataRow = DtMovimientos.NewRow
If drt("CveNomina").ToString.ToEntero > 0 Then
Dim drr As DataRow = Nothing ' DtCuentasContables.FiltroPrimero(String.Format("Id={0}", If(ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa), ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero, -1)))
Dim drr As DataRow = Nothing ' DtCuentasContables.FiltroPrimero(String.Format("Id={0}", If(ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa), ObjConta.DtResultados.Rows(0)("Id0CtaContable").ToString.ToEntero, -1)))
TipoMovto = 0
CveConcepto = 31
IdCuenta = If(drr IsNot Nothing, drr("Id").ToString.ToEntero, -1)

4
Bancos/PopIECompras.aspx
View File

@@ -300,7 +300,7 @@
<div class="col-xs-12">
<asp:UpdatePanel ID="UpDeudores" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDeudores" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,SaldoVentas,CveMoneda,IdCtaContDeudor,TipoCambio"
<asp:GridView ID="GvDeudores" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,SaldoVentas,CveMoneda,TipoCambio"
ToolTip="Listado de Movimientos" data-height="300" Style="width: 100%; height: 100%; text-align: center;" GridLines="None" HeaderStyle-ForeColor="Black">
<Columns>
<asp:TemplateField>
@@ -371,7 +371,7 @@
<div class="col-xs-12">
<asp:UpdatePanel ID="UpAcreedores" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvAcreedores" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,CveMoneda,IdCtaContAcreedor,TipoCambio"
<asp:GridView ID="GvAcreedores" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,CveMoneda,TipoCambio"
ToolTip="Listado de Movimientos" data-height="300" Style="width: 100%; height: 100%; text-align: center;" GridLines="None" HeaderStyle-ForeColor="Black">
<Columns>
<asp:TemplateField>

4
Bancos/PopIEVentas.aspx
View File

@@ -222,7 +222,7 @@
<div class="col-xs-12">
<asp:UpdatePanel ID="UpIngresos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvIngresos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,SaldoVentas,CveMoneda,IdCtaContClientes,FechaDocumento"
<asp:GridView ID="GvIngresos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,SaldoVentas,CveMoneda,FechaDocumento"
ToolTip="Listado de Movimientos" Style="width: 100%; height: 100%; text-align: center;" GridLines="None" HeaderStyle-ForeColor="Black">
<Columns>
<asp:TemplateField>
@@ -293,7 +293,7 @@
<div class="col-xs-12">
<asp:UpdatePanel ID="UpDeudores" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDeudores" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,SaldoVentas,CveMoneda, IdCtaContDeudor"
<asp:GridView ID="GvDeudores" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,SaldoVentas,CveMoneda"
ToolTip="Listado de Movimientos" data-height="300" Style="width: 100%; height: 100%; text-align: center;" GridLines="None" HeaderStyle-ForeColor="Black">
<Columns>
<asp:TemplateField>

25
Bancos/PopIEVentas.aspx.vb
View File

@@ -1325,20 +1325,6 @@ Partial Class Bancos_PopIEVentas
MsgError = ObjMov.MensajePolizaDescuadre
End If
End If
''Conta ContPAQ
'If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
' If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
' IdPoliza = ObjMov.ContaIdPoliza
' ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
' Else
' Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
' End If
'End If
Else
MsgError = "No se pudo insertar la poliza detalle"
End If
@@ -1358,15 +1344,10 @@ Partial Class Bancos_PopIEVentas
StrMsg.Append("El Documento se guardó correctamente.<br/>")
'Alert("El Documento se guardó correctamente.", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
'07-05-2018 - Timbra Complemento de pago
Dim TextoComplementoPago As String = ""
If UsuarioActual.CveEmpresa = 119 Then
StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
End If
StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
If RBLContado.SelectedValue = "1" And ChkComplementoPago.Checked Then
Dim SeriesPago As New List(Of String)
@@ -1374,9 +1355,7 @@ Partial Class Bancos_PopIEVentas
Dim CveVentas As New List(Of Integer)
CveVentas.Add(CveVenta)
TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentas, SeriesPago)
StrMsg.Append($"<br/>{TextoComplementoPago}")
End If
@@ -1398,8 +1377,6 @@ Partial Class Bancos_PopIEVentas
ObjMov.Dispose()
ObjCliente.Dispose()
'CargaVenta(CveVenta)
'UpDatosVenta.Update()
End Sub
Private Sub LimpiarTodo()

30
Bancos/PrestamoPersonal.aspx.cs
View File

@@ -329,9 +329,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
//CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals(""))
{
//if (IDCtaContablePrestamo > 0 && IDCtaContableBancos > 0)
//{
{
if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa))
{
IDPoliza = ObjMov.ContaIdPoliza;
@@ -367,14 +365,6 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
{
archivo = new System.IO.FileInfo(String.Format("{0}Formatos/ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta, DdlCuenta.SelectedValue.ToEntero()));
}
//if (archivo.Length > 0)
//{
// if (archivo.Exists)
// {
// Msg.AppendFormat(@"<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">{1}</a> ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)), String.Format("Imprimir {0}", DdlTipoTransaccion.SelectedItem));
// }
//}
ObjIE.Commit();
@@ -617,9 +607,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
//CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals(""))
{
//if (IDCtaContablePrestamo > 0 && IDCtaContableBancosPrestamo > 0)
//{
{
if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa))
{
IDPoliza = ObjMov.ContaIdPoliza;
@@ -627,19 +615,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
else
{
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError);
}
//}
//else
//{
// if (IDCtaContablePrestamo < 1)
// {
// Alert("No se puede contabilizar la Prepoliza debido a que la cuenta de Acreedor es invalida", TipoMensaje.MsgAdvertencia);
// }
// if (IDCtaContableBancosPrestamo < 1)
// {
// Alert("No se puede contabilizar la Prepoliza debido a que la cuenta bancaria es invalida", TipoMensaje.MsgAdvertencia);
// }
//}
}
}
if (MsgError.Equals(""))

2
Bancos/ProductosFinancieros.aspx
View File

@@ -41,7 +41,7 @@
<div id="DivTarjeta" runat="server" visible="false" class="row">
<label class="col-md-2">Tarjeta:</label>
<div class="col-md-10">
<asp:DropDownList ID="DdlTarjeta" runat="server" CssClass="input-sm form-control" AppendDataBoundItems="true" DataValueField="IdCtaContableTarjeta" DataTextField="ConcatDatos" Width="250px"></asp:DropDownList>
<asp:DropDownList ID="DdlTarjeta" runat="server" CssClass="input-sm form-control" AppendDataBoundItems="true" DataTextField="ConcatDatos" Width="250px"></asp:DropDownList>
</div>
</div>
<div class="row">

2
Bancos/ProductosFinancieros.aspx.vb
View File

@@ -317,7 +317,7 @@ Partial Class Bancos_ProductosFinancieros
Dim CtaCuenta = -1
If DtCuentas.Rows.Count = 1 Then
CtaCuenta = DtCuentas.Rows(0)("IdCtaContable").ToString.ToEntero
CtaCuenta = DtCuentas.Rows(0)("Id0CtaContable").ToString.ToEntero
Else
ErrorTransaccion = True
End If

42
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -135,7 +135,6 @@ Partial Class Bancos_ProveedoresAbonar
ViewState("CveProveedorSucursal") = value
End Set
End Property
Private Property PermiteModificarImporte As Boolean
Get
Return CType(ViewState("PermiteModificarImporte").ToString, Boolean)
@@ -144,11 +143,6 @@ Partial Class Bancos_ProveedoresAbonar
ViewState("PermiteModificarImporte") = value
End Set
End Property
Private ReadOnly Property IdCtaContComplementaria As Integer
Get
Return ViewState("IdCtaContComplementaria").ToString.ToEntero
End Get
End Property
Private Property ComprobanteIE As String
Get
Return ViewState("ComprobanteIE").ToString
@@ -859,41 +853,7 @@ Partial Class Bancos_ProveedoresAbonar
MsgError = "No se pudo insertar la póliza"
End If
End If
'If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
' 'fluctuación.
' Dim TCPago = TxtTCDolares.Text.ToDecimal
' Dim ImporteFluctuacion As Decimal = 0 '((ImporteSeleccionado / TCPago) - TxtImporte.Text.ToDecimal)
' Dim DtPrePoliza As DataTable = Nothing
' If ObjMov.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
' DtPrePoliza = ObjMov.DtResultados.Copy
' End If
' Dim PagoProveedoresME = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 312 AND TipoMovto = 0")
' Dim Bancos = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 30 AND TipoMovto = 1")
' Dim BancosComplementaria = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 204 AND TipoMovto = 1")
' DtPrePoliza.Dispose()
' ImporteFluctuacion = PagoProveedoresME - (Bancos + BancosComplementaria)
' If MsgError = "" AndAlso ImporteFluctuacion.RoundSQL() <> 0 Then
' 'SI EL PAGO DE PROVEEDORES ME ES MAYOR QUE BANCOS METER EL CONCEPTO DE GANANCIA
' If ImporteFluctuacion > 0 Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Referencia, 64, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
' MsgError = "Ocurrio un error al saldar el movimiento"
' End If
' ElseIf ImporteFluctuacion < 0 Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Referencia, 65, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
' MsgError = "Ocurrio un error al saldar el movimiento"
' End If
' End If
' End If
'End If
End If
End If
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
If ObjMov.ValorPolizaDescuadre > 0 Then

10
Bancos/Reembolsos.aspx
View File

@@ -481,7 +481,7 @@
<asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" />
<asp:GridView ID="GvCxP" runat="server" GridLines="None" CssClass="table table-advance table-hover Widthall" AutoGenerateColumns="False" EmptyDataText="No se encontraron Reembolsos pendientes" DataKeyNames="CveCompra,FechaCompra,Proveedor,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,Descuento">
<asp:GridView ID="GvCxP" runat="server" GridLines="None" CssClass="table table-advance table-hover Widthall" AutoGenerateColumns="False" EmptyDataText="No se encontraron Reembolsos pendientes" DataKeyNames="CveCompra,FechaCompra,Proveedor,Original,SubTotal,IVA,RetIVA,RetISR,Descuento">
<Columns>
<asp:TemplateField>
<HeaderTemplate>
@@ -565,13 +565,7 @@
<ItemTemplate>
<asp:HyperLink ID="HLProv" CssClass="Texto" Text='<%# Eval("CveProveedor")%>' runat="server"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="False">
<HeaderTemplate>IdCtaContProveedores</HeaderTemplate>
<ItemTemplate>
<asp:HyperLink ID="HLIdCta" CssClass="Texto" Text='<%# Eval("IdCtaContProveedores")%>' runat="server"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
</asp:TemplateField>
</Columns>
</asp:GridView>

24
Bancos/Reembolsos.aspx.vb
View File

@@ -26,14 +26,6 @@ Partial Class Bancos_Reembolsos
ViewState("CveMoneda") = value
End Set
End Property
Private Property IdCuentaBancaria As Integer
Get
Return ViewState("IdCuentaBancaria").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("IdCuentaBancaria") = value
End Set
End Property
Private Property Beneficiario As String
Get
Return ViewState("Beneficiario").ToString
@@ -262,7 +254,6 @@ Partial Class Bancos_Reembolsos
If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
End If
If HdnTipoTransaccion.Value = "Egs" Then
@@ -394,7 +385,6 @@ Partial Class Bancos_Reembolsos
If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
End If
''AC - Poliza Vieja
@@ -606,7 +596,7 @@ Partial Class Bancos_Reembolsos
'AFECTAR MATRIZ EGRESOS
Total = gvr.FCTextBox("TxtAbonar").Text.ToDouble
If Not ObjAC.AddMovimiento(IDPolizaNueva, gvr.DataKey("IdCtaContProveedores").ToEntero, False, Total, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For
If Not ObjAC.AddMovimiento(IDPolizaNueva, 0, False, Total, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For
Else
ErrorAC = True
@@ -651,7 +641,7 @@ Partial Class Bancos_Reembolsos
'registro el movimiento en bancos y su comprobacion
If GeneroCheque Then
If Not ObjAC.AddMovimiento(IDPolizaVieja, IdCuentaBeneficiario, False, TxtImporteVinculado.Text.ToDouble, FolioPolizaVieja, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True
If Not ObjAC.AddMovimiento(IDPolizaVieja, IdCuentaBancaria, True, TxtImporteVinculado.Text.ToDouble, FolioPolizaVieja, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True
If Not ObjAC.AddMovimiento(IDPolizaVieja, 0, True, TxtImporteVinculado.Text.ToDouble, FolioPolizaVieja, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True
End If
End If
@@ -667,7 +657,7 @@ Partial Class Bancos_Reembolsos
'Poliza NUEVA
If Not ErrorAC And IDPolizaNueva > 0 Then
ConceptoRenglon = String.Format("Comprobación: {0}", Beneficiario)
If Not ObjAC.AddMovimiento(IDPolizaNueva, IdCuentaBancaria, True, TxtImporte.Text.ToDouble, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True
If Not ObjAC.AddMovimiento(IDPolizaNueva, 0, True, TxtImporte.Text.ToDouble, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True
End If
If Not ErrorAC And IDPolizaNueva > 0 Then
@@ -775,7 +765,6 @@ Partial Class Bancos_Reembolsos
If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
End If
Else
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDouble, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -901,7 +890,7 @@ Partial Class Bancos_Reembolsos
Next
ConceptoRenglon = String.Format("Pagado: {0}", TxtAboneA.Text)
If Not ObjAC.AddMovimiento(IDPoliza, IdCuentaBancaria, True, TxtImporte.Text.ToDouble, Referencia, ConceptoRenglon, 0, Fecha, "") Then
If Not ObjAC.AddMovimiento(IDPoliza, 0, True, TxtImporte.Text.ToDouble, Referencia, ConceptoRenglon, 0, Fecha, "") Then
ErrorAC = True
End If
@@ -1142,11 +1131,6 @@ Partial Class Bancos_Reembolsos
'recargo la moneda con la que se va a pagar
'Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentaDiferencia.SelectedValue)
'If dr IsNot Nothing Then
' CveMoneda = dr("CveMoneda").ToString.ToEntero
' IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
'End If
'If HdnTipoTransaccion.Value = "Egs" Then
' Dim Folio As Long
' Dim Banco As New ClsBancos

1
Bancos/RepEgresosSinComprobante.aspx.vb
View File

@@ -300,7 +300,6 @@ Partial Class Bancos_RepEgresosSinComprobante
Try
For Each gr As GridViewRow In GvPersonal.Rows
If gr.FCCheckBox("Chk").Checked Then
Dim IdCtaContPersonal As Integer = 0
Dim CveConceptoContable As Integer
Dim TipoMovtoOtIngresos As Boolean = True
Dim TipoMovtoConcepto As Boolean = False

2
Bancos/Transferencias.aspx
View File

@@ -181,7 +181,7 @@
<div>
<asp:UpdatePanel ID="UpGvTC" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvTC" runat="server" DataKeyNames="CveCuentaTarjeta, CveCuenta, IdCtaContable, IdCtaContableTarjeta" AutoGenerateColumns="False" EmptyDataText="No hay tarjetas vinculadas" ToolTip="Tarjetas de Credito" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
<asp:GridView ID="GvTC" runat="server" DataKeyNames="CveCuentaTarjeta, CveCuenta" AutoGenerateColumns="False" EmptyDataText="No hay tarjetas vinculadas" ToolTip="Tarjetas de Credito" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
<Columns>
<asp:BoundField DataField="Numero" HeaderText="Tarjeta de Credito" ItemStyle-HorizontalAlign="Right">
<ItemStyle HorizontalAlign="Right" />