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

- cambio no usar prepolizasdetalle, para obtenr facturas pagadas o movtos de bancos, afecta a la obtención de prepolizas

Browse Source
This commit is contained in:
rrene
2023-06-27 15:30:49 -07:00
parent d22e648582
commit 33d41836dd
7 changed files with 148 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
Bancos/IE.aspx.vb
View File

@@ -966,13 +966,14 @@ Partial Class Bancos_IE
End If
'Detectamos a quien se le hizo el cobro (Cliente, proveedor, Funcionario/Empleado, etc.)
If ObjIE2.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If ObjIE2.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
If ObjIE2.DtResultados.Rows.Count > 0 Then
Dim dtMovtos As DataTable = ObjIE2.DtResultados
Dim CveConceptoContable As Integer = ObjIE2.DtResultados.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero
CveCliente = ObjIE2.DtResultados.Rows(0)("CveCliente").ToString.ToEntero
CvePersonal = ObjIE2.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
CveProveedor = ObjIE2.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
Dim CveConceptoContable As Integer = dtMovtos.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero
CveCliente = dtMovtos.Rows(0)("CveCliente").ToString.ToEntero
CvePersonal = dtMovtos.Rows(0)("CvePersonal").ToString.ToEntero
CveProveedor = dtMovtos.Rows(0)("CveProveedor").ToString.ToEntero
Select Case CveConceptoContable
Case 66
@@ -986,10 +987,28 @@ Partial Class Bancos_IE
PnlRecibidoPor.Visible = True
End Select
'codigo reubicado, para no consultar 2 veces
GvM.DataSource = dtMovtos.FiltraParametros("CveConceptoContable <> 30")
If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then
GvM.Columns(8).Visible = True
End If
If dtMovtos.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then
GvM.Columns(7).Visible = True
End If
If dtMovtos.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then
GvM.Columns(5).Visible = True
GvM.Columns(6).Visible = True
End If
GvM.DataBind()
End If
End If
End If
If CveCliente > 0 Then
DdlCliente.SelectedText = ObjIE.PagueseA
DdlCliente.SelectedValue = CveCliente.ToString
@@ -1224,27 +1243,27 @@ Partial Class Bancos_IE
'End If
' codigo se reubicó a linea 969
''DETALLES - MOVIMIENTOS
'If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
' GvM.DataSource = ObjIE.DtResultados.FiltraParametros("CveConceptoContable <> 30")
'DETALLES - MOVIMIENTOS
If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
GvM.DataSource = ObjIE.DtResultados
' If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then
' GvM.Columns(8).Visible = True
' End If
If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then
GvM.Columns(8).Visible = True
End If
' If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then
' GvM.Columns(7).Visible = True
' End If
If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then
GvM.Columns(7).Visible = True
End If
' If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then
' GvM.Columns(5).Visible = True
' GvM.Columns(6).Visible = True
' End If
If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then
GvM.Columns(5).Visible = True
GvM.Columns(6).Visible = True
End If
' GvM.DataBind()
GvM.DataBind()
End If
'End If
'Movimientos Relacionados Padre
If ObjIE.GetBancosIEMovimientosPadre(CveIE, UsuarioActual.CveEmpresa) Then
@@ -6328,29 +6347,26 @@ Partial Class Bancos_IE
End Sub
'Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
' RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
'End Sub
Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
End Sub
'Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
' Dim ObjBanco As New ClsBancos
' ObjBanco.IniciaTransacSQL()
' If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
' ObjBanco.Commit()
' RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
' Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
' Else
' ObjBanco.RollBack()
' End If
' ObjBanco.Dispose()
'End Sub
Dim ObjBanco As New ClsBancos
ObjBanco.IniciaTransacSQL()
If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ObjBanco.Commit()
RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
Else
ObjBanco.RollBack()
End If
ObjBanco.Dispose()
End Sub
Protected Sub LnkCancelaMovimiento_Click(sender As Object, e As EventArgs)