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

Editar IE CArgar Tipos de transacciones se gun naturaleza de la transacción

Browse Source
This commit is contained in:
rakcsle
2022-03-10 12:29:50 -07:00
parent a020d99579
commit acbfc081bf
5 changed files with 33 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsContabilidad.vb
View File

@@ -324,6 +324,8 @@ Public Class ClsContabilidad
Catch ex As Exception
If ex.Message.Contains("CuentasResultados_SubProyectos") Then
OnError("El concepto requiere que se le especifique centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
ElseIf ex.Message.Contains("50015") Then
OnError("No se puede eliminar una póliza en un ejercicio Cerrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else
If ex.Message.Contains("concepto de bancos con un importe diferente") Then
OnError("No se puede editar el valor del bancos con un valor diferente a movimiento registrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)

11
Bancos/IE.aspx.vb
View File

@@ -886,6 +886,10 @@ Partial Class Bancos_IE
RegistraScript("if($get('imgBuscarProveedor')) $get('imgBuscarProveedor').style.display='none';")
'DdlBanco.SelectedValue = ObjIE.CveBanco.ToString
'Abono es Egreso Egs
CargaTipoTransaccion(If(Tipo = "Abono", "Egs", "Ing"))
DdlTipoTransaccion.SelectedValue = ObjIE.CveTipoTransaccion.ToString
@@ -1823,7 +1827,7 @@ Partial Class Bancos_IE
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
Private Sub CargaTipoTransaccion()
Private Sub CargaTipoTransaccion(Optional Tipo As String = "")
Dim dt As DataTable
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
@@ -1869,6 +1873,11 @@ Partial Class Bancos_IE
DdlTipoTransaccion.DataSource = dt
End If
If Tipo.Length > 0 Then
DdlTipoTransaccion.Items.Clear()
DdlTipoTransaccion.DataSource = dt.FiltraParametros($"Tipo = '{Tipo}' ")
End If
DdlTipoTransaccion.DataBind()
DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))

1
Compras/Compras.aspx.vb
View File

@@ -6289,6 +6289,7 @@ Partial Class Compras_Compras
importeMovimiento = importeRetIVAxAcreditar
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
If CtaProveedorRetIVA > 0 Then
IdCtaContable = CtaProveedorRetIVA
ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then

6
Contabilidad/RepOrigenAplicacion.aspx
View File

@@ -235,7 +235,7 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveCuenta">
<Columns>
<asp:TemplateField HeaderText="Concepto">
<ItemTemplate>
@@ -246,14 +246,14 @@
<asp:TemplateField HeaderText="" Visible="false">
<ItemTemplate>
<asp:Label ID="LblImporteBase" runat="server" Text='<%# Eval("ImporteBase", "{0:N2}")%>' ></asp:Label>
<asp:HyperLink ID="HLlImporteBase" runat="server" Text='<%# Eval("ImporteBase", "{0:N2}")%>' CssClass="Texto" Target="_blank" ></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="100" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="" Visible="false">
<ItemTemplate>
<asp:Label ID="ImporteActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' ></asp:Label>
<asp:HyperLink ID="HLImporteActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank" ></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="100" HorizontalAlign="Right" />
</asp:TemplateField>

19
Contabilidad/RepOrigenAplicacion.aspx.vb
View File

@@ -82,7 +82,7 @@ Partial Class Contabilidad_RepOrigenAplicacion
TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty)
If UsuarioActual.Empresa.UsaContabilidadSIG Then
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
TabMensual.Enabled = False
TabAnual.Enabled = False
@@ -156,7 +156,7 @@ Partial Class Contabilidad_RepOrigenAplicacion
If UsuarioActual.Empresa.UsaContabilidadSIG Then
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim AnioActual As Integer = TxtFechaAl.Text.ToDate.Year
Dim AnioAnteior As Integer = AnioActual - 1
@@ -234,6 +234,21 @@ Partial Class Contabilidad_RepOrigenAplicacion
e.Row.FCLabel("LbNombre").Text = "TOTAL"
End If
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
'Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta=55274&FF=31/12/2021
Dim FechaFinBase As Date = New Date(TxtFechaAl.Text.ToDate.Year - 1, 12, 31)
If e.Row.DataKey("CveCuenta").ToEntero > 0 Then
e.Row.FCHyperLink("HLlImporteBase").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={FechaFinBase.ToString("dd/MM/yyyy")}"
e.Row.FCHyperLink("HLImporteActual").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
e.Row.FCHyperLink("HLOrigen").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
e.Row.FCHyperLink("HLAplicacion").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
End If
End If
End If
End Sub
#End Region