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..972139eaa 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.Contiene(13, 1) 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 b/Bancos/Transferencias.aspx
index 612e4b413..d48cdc4c6 100644
--- a/Bancos/Transferencias.aspx
+++ b/Bancos/Transferencias.aspx
@@ -181,19 +181,19 @@
-
+
-
-
+
+
-
+
-
+
-
+
diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb
index ec71a8301..b9e04594f 100644
--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -1,6 +1,7 @@
Imports System.IO
Imports Extensiones
Imports System.Data
+Imports System.Data.SqlClient
Partial Class Bancos_Transferencias
Inherits ClsPaginas
@@ -188,7 +189,7 @@ Partial Class Bancos_Transferencias
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
'VALIDACIONES
- Dim SumaImportesTarjeta As Decimal
+ Dim SumaImportesTarjeta As Decimal = 0D
If GvTC.Visible Then
For Each row As GridViewRow In GvTC.Rows
SumaImportesTarjeta += row.FCTextBox("TxtAbono").Text.ToDecimal
@@ -303,7 +304,11 @@ Partial Class Bancos_Transferencias
End If
CveIE = ObjIE.AddBancos_IE(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, CuentaDestino, TxtImporte.Text.Trim.ToDouble, CveMonedaOrigen, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- CveIEDestino = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), ImporteDestino, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+ If Not chkMovimientoTarjeta.Checked Then
+ CveIEDestino = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), ImporteDestino, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ End If
+
End If
@@ -313,7 +318,7 @@ Partial Class Bancos_Transferencias
CveIEDevolucion = DdlCajaChica.SelectedValue.ToEntero()
End If
- If (CveIE > 0 AndAlso CveIEDestino > 0) Then
+ If (CveIE > 0 AndAlso CveIEDestino > 0 Or CveIE > 0 AndAlso chkMovimientoTarjeta.Checked AndAlso SumaImportesTarjeta <> 0) Then
If filemove <> "" Then
filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
@@ -354,13 +359,22 @@ Partial Class Bancos_Transferencias
'Agregamos los Movimientos de Acreedor cuando es tarjeta
If GvTC.Visible Then
+ AlertaGlobal.Append("
Recepción:
")
+
For Each row As GridViewRow In GvTC.Rows
- If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal, 41,
+ CveIEDestino = ObjIE.AddBancos_IE(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), row.FCTextBox("TxtAbono").Text.ToDecimal, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal, 30,
$"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}",
CveIE:=CveIEDestino) Then
+
MsgError = "Ocurrio un error al ingresar la prepoliza"
+ Exit For
+ Else
+ AlertaGlobal.AppendFormat("{1}
", CveIEDestino, FolioDestino)
+ FolioDestino = (FolioDestino.ToLong + 1).ToString
End If
+
Next
'Agregamos la contraria a bancos cuando es cuenta
@@ -418,7 +432,12 @@ Partial Class Bancos_Transferencias
AlertaGlobal.AppendFormat("
Movimiento: {1}", CveIE, FolioOrigen)
End If
If CveIEDestino > 0 AndAlso CveIE <> CveIEDestino Then
- AlertaGlobal.AppendFormat("
Recepción: {1}", CveIEDestino, FolioDestino)
+
+ If Not chkMovimientoTarjeta.Checked Then
+ AlertaGlobal.AppendFormat("
Recepción: {1}", CveIEDestino, FolioDestino)
+ End If
+
+
End If
Else
MsgError = "no se pudo insertar el detalle de la póliza2"
@@ -592,18 +611,22 @@ Partial Class Bancos_Transferencias
End Sub
Private Function GetFolio(CveCuenta As Integer, CveTipoTransaccion As Integer) As String
+
Dim Folio As String
- Dim Banco As New ClsBancos
+ Dim Banco As ClsBancos
+ Banco = New ClsBancos
Folio = Banco.GetNextFolio(CveCuenta, CveTipoTransaccion).ToString
Banco.Dispose()
Return Folio
+
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 9a1f41b98..6fabcd32a 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:
+
+
+
+
+
+