diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 3ef6962cb..56dc02260 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -132,6 +132,7 @@ Public Class ClsBancos
Public Property UsaTarjeta As Boolean
Public Property TieneTerminal As Boolean
+ Public Property CveCuentaPadre As Integer
#End Region
@@ -416,6 +417,7 @@ Public Class ClsBancos
Me.UsaLayoutGrupos = If(Data.Rows(0)("UsaLayoutGrupos").ToString = "True", True, False)
Me.UsaTarjeta = If(Data.Rows(0)("UsaTarjeta").ToString = "True", True, False)
Me.TieneTerminal = If(Data.Rows(0)("TieneTerminal").ToString = "True", True, False)
+ Me.CveCuentaPadre = Data.Rows(0)("CveCuentaPadre").ToString.ToEntero
End If
@@ -450,7 +452,7 @@ Public Class ClsBancos
Public Function AddBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer,
LimiteCredito As Double, FormatoCheque As String, CveUsuario As Integer, CveEmpresa As Integer, ConvenioPagoElectronico As String,
- UsaLayout As Boolean, UsaTarjeta As Boolean, Optional SaldoInicial As Double = 0, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False) As Boolean
+ UsaLayout As Boolean, UsaTarjeta As Boolean, Optional SaldoInicial As Double = 0, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False, Optional CveCuentaPadre As Integer = Nothing) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Banc_BancosCuentasAdd")
@@ -476,7 +478,7 @@ Public Class ClsBancos
.Add("@SaldoInicial", SqlDbType.Money).Value = SaldoInicial
.Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos
.Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal
-
+ .Add("@CveCuentaPadre", SqlDbType.Int).Value = CveCuentaPadre
End With
@@ -500,7 +502,7 @@ Public Class ClsBancos
Public Function UpdateBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer,
LimiteCredito As Double, FormatoCheque As String, Estatus As Boolean, CveCuenta As Integer, ConvenioPagoElectronico As String,
- UsaLayout As Boolean, UsaTarjeta As Boolean, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False) As Boolean
+ UsaLayout As Boolean, UsaTarjeta As Boolean, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False, Optional CveCuentaPadre As Integer = Nothing) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Banc_BancosCuentasUpdate")
@@ -524,6 +526,7 @@ Public Class ClsBancos
.Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta
.Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos
.Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal
+ .Add("@CveCuentaPadre", SqlDbType.Int).Value = CveCuentaPadre
End With
@@ -1489,7 +1492,7 @@ Public Class ClsBancos
NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer,
Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1,
Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
- Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1) As Integer
+ Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Banc_IEAdd")
@@ -1529,6 +1532,8 @@ Public Class ClsBancos
.Add("@FolioRegistro", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output
.Add("@Modulo", SqlDbType.VarChar).Value = Modulo
.Add("@CveOCAnticipo", SqlDbType.Int).Value = CveOCAnticipo
+ .Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago
+
End With
Try
diff --git a/Bancos/CuentasBancariasDetalle.aspx b/Bancos/CuentasBancariasDetalle.aspx
index dc51da521..a046b1e1a 100644
--- a/Bancos/CuentasBancariasDetalle.aspx
+++ b/Bancos/CuentasBancariasDetalle.aspx
@@ -80,6 +80,13 @@
+
+
+ | Cuenta Padre: |
+
+
+
+ |
| Usa Tarjeta: |
diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb
index 2eb2d4ff1..490c0b79c 100644
--- a/Bancos/CuentasBancariasDetalle.aspx.vb
+++ b/Bancos/CuentasBancariasDetalle.aspx.vb
@@ -2,18 +2,22 @@
Option Strict On
Imports Extensiones
-Imports System.Runtime.InteropServices
-Imports System.IO
Imports System.Data
-
+'Imports DocumentFormat.OpenXml.Office.CustomUI
+
Partial Class Bancos_CuentasBancariasDetalle
- Inherits ClsPaginas
-
- 'Configuración
+ Inherits ClsPaginas
+
+ 'Configuración
#Region "P R O P I E D A D E S"
Private ReadOnly Property CveCuenta As Integer
- Get
+ Get
+
+ If ViewState("CveCuenta") Is Nothing Then
+ ViewState("CveCuenta") = -1
+ End If
Return ViewState("CveCuenta").ToString.ToEntero
+
End Get
End Property
Private Property DTUsuarios As DataTable
@@ -23,14 +27,15 @@ Partial Class Bancos_CuentasBancariasDetalle
Set(value As DataTable)
ViewState("DTUsuarios") = value
End Set
- End Property
+ End Property
#End Region
-
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
CargarTipoCuenta()
CargarBanco()
CargarMoneda()
+ CargaCuentasPadre()
ViewState("DTUsuarios") = Nothing
Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"})
@@ -68,9 +73,36 @@ Partial Class Bancos_CuentasBancariasDetalle
ActivarRegistroAutomatico()
End If
- End Sub
-
-
+ End Sub
+
+ Private Sub CargaCuentasPadre()
+
+ Dim DTCuentasPadre As New DataTable
+
+ DdlCuentaPadre.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=-1).FiltraParametros($" CveCuenta <> {CveCuenta} ", "", {"CveCuenta", "NumCuentaMoneda"})
+
+ 'Dim ObjBancos As New ClsBancos
+ 'If ObjBancos.GetBancosCuentas(-1, UsuarioActual.CveEmpresa) Then
+ ' DTCuentasPadre = ObjBancos.DtResultados.FiltraParametros("", "", {"CveCuenta", "TipoCuenta", "Banco", "NumCuenta", "CLABE", "Moneda", "FInicial", "Estatus", "Fecha", "Usuario"})
+
+ ' If CveCuenta > 0 Then
+ ' DTCuentasPadre = DTCuentasPadre.FiltraParametros($" CveCuenta <> {CveCuenta} ")
+ ' End If
+
+ ' DdlCuentaPadre.DataSource = DTCuentasPadre
+
+ 'Else
+ ' DdlCuentaPadre.DataSource = Nothing
+ 'End If
+
+ 'ObjBancos.Dispose()
+
+ DdlCuentaPadre.DataBind()
+ DdlCuentaPadre.Items.Insert(0, New ListItem("Sin Selección", "-1"))
+
+ End Sub
+
+
#Region " CARGA VALORES INICIALES "
Private Sub SetValues()
ViewState("Orden") = ""
@@ -186,9 +218,10 @@ Partial Class Bancos_CuentasBancariasDetalle
ChkUsaTarjeta.Checked = ObjCuentasBancariasDetalle.UsaTarjeta
ChkTieneTerminal.Checked = ObjCuentasBancariasDetalle.TieneTerminal
-
ChkUsaTarjeta_CheckedChanged(Nothing, Nothing)
+ DdlCuentaPadre.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaPadre)
+
trFinicial.Visible = False
trLimiteCredito.Visible = True
TxtLimiteCredito.Text = ObjCuentasBancariasDetalle.LimiteCredito.ToString
@@ -256,7 +289,7 @@ Partial Class Bancos_CuentasBancariasDetalle
If ObjCuentasBancariasDetalle.AddBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim,
TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble,
"", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkLayout.Checked, TxtConvenio.Text, ""), ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked,
- TieneTerminal:=ChkTieneTerminal.Checked) Then
+ TieneTerminal:=ChkTieneTerminal.Checked, CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero) Then
ViewState("CveCuenta") = ObjCuentasBancariasDetalle.TCveCuenta
Else
ErrorUsuarios = True
@@ -289,7 +322,7 @@ Partial Class Bancos_CuentasBancariasDetalle
Else
If ObjCuentasBancariasDetalle.UpdateBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0,
TxtLimiteCredito.Text.Trim.ToDouble, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text,
- ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, TieneTerminal:=ChkTieneTerminal.Checked) Then
+ ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, TieneTerminal:=ChkTieneTerminal.Checked, CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero) Then
'CargaDatos()
GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
@@ -488,12 +521,18 @@ Partial Class Bancos_CuentasBancariasDetalle
Dim CuentaContable = DirectCast(sender, Button).CommandArgument.ToString
Dim Button = DirectCast(sender, Button)
- Select Case CuentaContable
- Case "CuentaContable"
- AgregarCuentaContable(Button, DDlCuentaContable)
- Case "CuentaContableComplementaria"
- AgregarCuentaContable(Button, DdlCuentaContableComplementaria)
- End Select
+ Try
+ Select Case CuentaContable
+ Case "CuentaContable"
+ AgregarCuentaContable(Button, DDlCuentaContable)
+ Case "CuentaContableComplementaria"
+ AgregarCuentaContable(Button, DdlCuentaContableComplementaria)
+ End Select
+ Catch ex As Exception
+
+ End Try
+
+
End Sub
Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList)
diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index c87d57e71..d9a7799a7 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -799,6 +799,12 @@
+
+
+ | Deducciones Pago: |
+
+
+ |
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 548e033f5..c674cd34c 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -794,6 +794,11 @@ Partial Class Bancos_IE
DvFolioACCondiciones.Visible = True
End If
+
+ If UsuarioActual.CveEmpresa = 13 Then
+ TRImporteDeduccionesPago.Visible = True
+ End If
+
End If
End Sub
@@ -885,6 +890,8 @@ Partial Class Bancos_IE
LblEstatusIE.Visible = True
LblEstatusIE.Text = ObjIE.EstatusIE.ToString
+ LblImporteDeduccionesPago.Text = ObjIE.DtResultados.Rows(0)("ImporteDeduccionesPago").ToString.ToDecimal.ToString("###,###,###.00")
+
If ObjIE.CveTipoTransaccion.Contiene(3, 4) Then 'cuando es cheque recibido
LnkChqDevuelto.Visible = True
End If
diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb
index ec71a8301..0b5c4a904 100644
--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -600,10 +600,11 @@ Partial Class Bancos_Transferencias
End Function
Private Sub chkMovimientoTarjeta_CheckedChanged(sender As Object, e As EventArgs) Handles chkMovimientoTarjeta.CheckedChanged
+
If chkMovimientoTarjeta.Checked Then
- If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then
- CargaGridTarjetas()
- End If
+ 'If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then
+ CargaGridTarjetas()
+ 'End If
Else
GvTC.Visible = False
UpGvTC.Update()
diff --git a/CRM/RepAcercamientosProcesos.aspx.cs b/CRM/RepAcercamientosProcesos.aspx.cs
index 49c73ae37..5a1c61648 100644
--- a/CRM/RepAcercamientosProcesos.aspx.cs
+++ b/CRM/RepAcercamientosProcesos.aspx.cs
@@ -11,6 +11,7 @@ using iTextSharp.text.pdf;
using iTextSharp.text;
using ADSNetLibrary.SIGAPI.Models.CRM.Request;
using ADSNetLibrary.SIGAPI.Services.CRM;
+using System.Activities.Statements;
public partial class CRM_RepAcercamientosProcesos : ClsPaginas
{
@@ -336,20 +337,34 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
private PdfPTable crearHeader()
{
- //Imagen de la empresa
- iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance($"{UsuarioActual.Empresa.Ruta}/Logo.png");
- pic.ScalePercent(20f);
-
BaseColor bordesBlancos = new BaseColor(255, 255, 255);
PdfPTable tableHeader = new PdfPTable(7);
tableHeader.WidthPercentage = 100f;
- PdfPCell imageCell = new PdfPCell(pic);
- imageCell.UseVariableBorders = true;
- imageCell.BorderColor = bordesBlancos;
- imageCell.Colspan = 2;
- imageCell.Rowspan = 2;
- tableHeader.AddCell(imageCell);
+
+ if (File.Exists(($"{UsuarioActual.Empresa.Ruta}/Logo.png"))) {
+ iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance($"{UsuarioActual.Empresa.Ruta}/Logo.png");
+ pic.ScalePercent(20f);
+
+ PdfPCell imageCell = new PdfPCell(pic);
+ imageCell.UseVariableBorders = true;
+ imageCell.BorderColor = bordesBlancos;
+ imageCell.Colspan = 2;
+ imageCell.Rowspan = 2;
+ tableHeader.AddCell(imageCell);
+ }
+ else
+ {
+ PdfPCell imageCell = new PdfPCell();
+ imageCell.UseVariableBorders = true;
+ imageCell.BorderColor = bordesBlancos;
+ imageCell.Colspan = 2;
+ imageCell.Rowspan = 2;
+ tableHeader.AddCell(imageCell);
+ }
+ //Imagen de la empresa
+
+
PdfPCell empresaCell = new PdfPCell(new Phrase(UsuarioActual.Empresa.Empresa));
empresaCell.UseVariableBorders = true;
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index a311cf493..b9b99b7da 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2069,9 +2069,11 @@ Partial Class Compras_Compras
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
End If
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) 'emp acumuladoras
+
+ DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
+
End If
If RetIVAFlete Then
- DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
DdlRetIVAConcepto.SelectedValueExist(2)
End If
@@ -2091,10 +2093,11 @@ Partial Class Compras_Compras
End If
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) 'emp acumuladoras
+ DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3"))
End If
If RetIVAFlete Then
- DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3"))
+
DdlRetIVAConcepto.SelectedValueExist(3)
End If
diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx
index afddeab53..7b720964e 100644
--- a/Ventas/ClientesAbonar.aspx
+++ b/Ventas/ClientesAbonar.aspx
@@ -246,6 +246,20 @@
+
+
+
+
Deducciones Pago:
+
+
+
+
+
+