diff --git a/AC/RepPresupuestoEgresos.aspx b/AC/RepPresupuestoEgresos.aspx
index 587751c16..ba0579ec6 100644
--- a/AC/RepPresupuestoEgresos.aspx
+++ b/AC/RepPresupuestoEgresos.aspx
@@ -300,7 +300,7 @@
--%>
-
+
diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 0a78eb6fe..7cbae50f4 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -829,11 +829,12 @@ Public Class ClsBancos
Return Retorno
End Function
- Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean
+ Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_PrePolizasDetalleGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@CveOC", SqlDbType.Int).Value = CveOC
End With
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index d251f6f23..1621c3921 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -286,8 +286,18 @@ Public Class ClsContabilidad
Try
SqlAdapter.Fill(Data)
Retorno = True
+
Catch ex As Exception
- OnError("Ocurrió un error al Actualizar la Prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ If ex.Message.Contains("CuentasResultados_SubProyectos") Then
+ OnError("El concepto requiere que se le especifique centro de costo.", 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)
+ Else
+ OnError("Ocurrió un error al Actualizar la Prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End If
+ End If
+
End Try
Return Retorno
@@ -1080,12 +1090,13 @@ Public Class ClsContabilidad
Return Concepto
End Function
- Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, Optional CveIE As Integer = -1) As Boolean
+ Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_PrePolizasDetalleGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
.Add("@CveIE", SqlDbType.Int).Value = CveIE
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 6845d6528..005766e1f 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -813,10 +813,15 @@ Public Class Timbrado
'validación especial.
If Ventas.TipoDocto.Contiene("Ing", "Dev") Then
- Dim CodigoIncorrecto As Integer = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "84111506" Or c.ClaveProdServ = "01010101")
- Select c.ClaveProdServ).Count()
- If CodigoIncorrecto > 0 Then
- MensajeErrorCFDI = "SAT - Hay un concepto con Codigo no permitido."
+ Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "84111506" Or c.ClaveProdServ = "01010101")
+ Select c.ClaveProdServ, c.Descripcion)
+ Dim Str As New StringBuilder
+ Str.Append("Los siguentes productos tienen especificado un código no permitido por el SAT: ")
+ For Each dr In CodigoIncorrecto
+ Str.AppendFormat(" - {0} ", dr.Descripcion)
+ Next
+ If CodigoIncorrecto.Count > 0 Then
+ MensajeErrorCFDI = Str.ToString
Return False
End If
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 24e6e11b6..d6e6e324a 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -1777,7 +1777,7 @@ Namespace Extensiones
'Dim UsuarioResponsable As String = ""
Dim PreP As New ClsContabilidad
- If PreP.GetPrePolizasDetalle(-1, pCveIE) Then
+ If PreP.GetPrePolizasDetalle(-1, tCveEmpresa, CveIE:=pCveIE) Then
If PreP.DtResultados.Rows.Count > 0 Then
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
diff --git a/Ashx/E72.ashx b/Ashx/E72.ashx
index 660808dc7..310c93b60 100644
--- a/Ashx/E72.ashx
+++ b/Ashx/E72.ashx
@@ -25,48 +25,80 @@ Public Class E72 : Implements IHttpHandler, IRequiresSessionState
End Try
End Sub
-
Private Function contratoexistencia(ByVal context As HttpContext) As String
-
-
-
Dim retorno As String = ""
Dim ObjInv As New ClsInventarios
Try
- Dim DtMovimientos As DataTable = CreaDT()
+ Dim DtPS As DataTable = CreaDT()
ObjInv.GetRepEntradasSalidasXContrato(72, -1, MinFecha, Date.Now, -1, -1, 17, -1, -1, 3, -1, 1158)
Dim DtRepEntradasSalidasXContrato As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0")
ObjInv.ApartadosRep(-1, 70437, 259, 72, -1, MinFecha, Date.Now)
- Dim DtApartados As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0", "", {"CvePS", "Cantidad"})
+ Dim DtApartados As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0", "", {"CvePS", "Codigo", "Cantidad"})
Dim asd As Integer = DtApartados.Rows.Count
- For Each tempApartados As DataRow In DtApartados.Rows
- For Each tempEntradasSalidas As DataRow In DtRepEntradasSalidasXContrato.Rows
- Dim dr As DataRow = DtMovimientos.NewRow
- If tempEntradasSalidas("CvePS").ToString.ToEntero = tempApartados("CvePS").ToString.ToEntero Then
- dr("Codigo") = tempEntradasSalidas("Codigo")
- dr("Existencia") = tempEntradasSalidas("SaldoFCant")
- dr("Cantidad") = tempApartados("Cantidad")
- dr("Precio") = tempEntradasSalidas("PrecioVenta")
- Else
- dr("Codigo") = tempEntradasSalidas("Codigo")
- dr("Existencia") = tempEntradasSalidas("SaldoFCant")
- dr("Cantidad") = 0
- dr("Precio") = tempEntradasSalidas("PrecioVenta")
- End If
- DtMovimientos.Rows.Add(dr)
+ 'For Each tempApartados As DataRow In DtApartados.Rows
+ ' For Each tempEntradasSalidas As DataRow In DtRepEntradasSalidasXContrato.Rows
+ ' Dim dr As DataRow = DtMovimientos.NewRow
+ ' If tempEntradasSalidas("CvePS").ToString.ToEntero = tempApartados("CvePS").ToString.ToEntero Then
+ ' dr("Codigo") = tempEntradasSalidas("Codigo")
+ ' dr("Existencia") = tempEntradasSalidas("SaldoFCant")
+ ' dr("Cantidad") = tempApartados("Cantidad")
+ ' dr("Precio") = tempEntradasSalidas("PrecioVenta")
+ ' Else
+ ' dr("Codigo") = tempEntradasSalidas("Codigo")
+ ' dr("Existencia") = tempEntradasSalidas("SaldoFCant")
+ ' dr("Cantidad") = 0
+ ' dr("Precio") = tempEntradasSalidas("PrecioVenta")
+ ' End If
+ ' DtMovimientos.Rows.Add(dr)
+
+ ' Next
+ 'Next
+
+
+ For Each tempEntradasSalidas As DataRow In DtRepEntradasSalidasXContrato.Rows
+ Dim dr As DataRow = DtPS.NewRow
+ dr("Codigo") = tempEntradasSalidas("Codigo")
+ DtPS.Rows.Add(dr)
+ DtPS.AcceptChanges()
- Next
Next
- Dim dtExistencias = From row In DtMovimientos.FiltraParametros("", "", {"Codigo", "Existencia", "Cantidad", "Precio"})
- Group row By Codigo = row.Field(Of String)("Codigo"), Existencia = row.Field(Of Double)("Existencia"), Precio = row.Field(Of Double)("Precio") Into CodigoGroup = Group
- Select New With {
- .Codigo = Codigo,
- .Existencia = Existencia,
- .Cantidad = CodigoGroup.Sum(Function(r) r.Field(Of Double)("Cantidad")),
- .Precio = Precio}
+ For Each tempApartados As DataRow In DtApartados.Rows
+ Dim dr As DataRow = DtPS.NewRow
+ dr("Codigo") = tempApartados("Codigo")
+ DtPS.Rows.Add(dr)
+ DtPS.AcceptChanges()
+
+ Next
+ Dim DTtemp As DataTable = DtPS.FiltraParametros("", "", {"Codigo", "Existencia", "Cantidad", "Precio"})
+ For Each Movs As DataRow In DTtemp.Rows
+ For Each tempEntradasSalidas As DataRow In DtRepEntradasSalidasXContrato.Rows
+ If tempEntradasSalidas("Codigo").ToString = Movs("Codigo").ToString Then
+ Movs("Existencia") = tempEntradasSalidas("SaldoFCant").ToString.ToDouble
+ Movs("Cantidad") = 0
+ Movs("Precio") = tempEntradasSalidas("PrecioVenta").ToString.ToDouble
+ End If
+ Next
+ For Each tempApartados As DataRow In DtApartados.Rows
+ If tempApartados("Codigo").ToString = Movs("Codigo").ToString Then
+ Movs("Existencia") = IIf(Movs("Existencia").ToString.ToEntero > 0, Movs("Existencia"), 0)
+ Movs("Cantidad") = tempApartados("Cantidad").ToString.ToDouble
+ Movs("Precio") = IIf(Movs("Precio").ToString.ToEntero > 0, Movs("Existencia"), 0)
+ End If
+ Next
+ DtPS.AcceptChanges()
+
+ Next
+
+ 'Dim dtExistencias = From row In DtMovimientos.FiltraParametros("", "", {"Codigo", "Existencia", "Cantidad", "Precio"})
+ ' Group row By Codigo = row.Field(Of String)("Codigo"), Existencia = row.Field(Of Double)("Existencia"), Precio = row.Field(Of Double)("Precio") Into CodigoGroup = Group
+ ' Select New With {
+ ' .Codigo = Codigo,
+ ' .Existencia = Existencia,
+ ' .Cantidad = CodigoGroup.Sum(Function(r) r.Field(Of Double)("Cantidad")),
+ ' .Precio = Precio}
'Dim LINQEntradasSalidas = From row In DtRepEntradasSalidasXContrato.AsEnumerable
' Select New With {
@@ -89,11 +121,11 @@ Public Class E72 : Implements IHttpHandler, IRequiresSessionState
'Dim Dtnum As Integer = DtMovimientos.su
- retorno = JsonConvert.SerializeObject(dtExistencias).ToString
+ retorno = JsonConvert.SerializeObject(DTtemp).ToString
context.Response.Write(retorno)
Catch ex As Exception
-
+ context.Response.Write(String.Format("{0}", ex))
End Try
ObjInv.Dispose()
Return retorno
diff --git a/Bancos/Creditos.aspx.vb b/Bancos/Creditos.aspx.vb
index 708bd7064..b82881c22 100644
--- a/Bancos/Creditos.aspx.vb
+++ b/Bancos/Creditos.aspx.vb
@@ -422,7 +422,7 @@ Partial Class Bancos_Creditos
HLSaldoPrePoliza.NavigateUrl = $"/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={ObjCreditos.CvePrePoliza}"
LbSaldo.Text = $"Saldo Acreedor "
- If ObjPrepoliza.GetPrePolizasDetalle(ObjCreditos.CvePrePoliza) AndAlso ObjPrepoliza.DtResultados.Rows.Count > 0 Then
+ If ObjPrepoliza.GetPrePolizasDetalle(ObjCreditos.CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjPrepoliza.DtResultados.Rows.Count > 0 Then
LbSaldoAcreedor.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 42").Rows(0)("Importe").ToString.FormatoNumero
LbSaldoDocxPagar.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 50").Rows(0)("Importe").ToString.FormatoNumero
End If
@@ -469,7 +469,7 @@ Partial Class Bancos_Creditos
End If
'CARGA ANTICIPOS
- If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjPrepoliza.GetPrePolizasDetalle(-1, dr("CveIE").ToString.ToEntero) Then
+ If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjPrepoliza.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=dr("CveIE").ToString.ToEntero) Then
If ObjPrepoliza.DtResultados.Rows.Count > 0 Then
TxtVehiculoAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 53").Rows(0)("Importe").ToString.FormatoNumero
TxtComisionAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 54").Rows(0)("Importe").ToString.FormatoNumero
diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index 3295a33f7..accb3c4ed 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -137,7 +137,7 @@
-
+
@@ -166,13 +166,17 @@
-
+
Seleccionado: $0.00
+
+
+
+
@@ -265,7 +269,12 @@
-
+
+
+
+
+
+
@@ -614,8 +623,28 @@
debugger;
}
-
+ function Depositar() {
+ LimppiarVariables();
+
+ }
+ function Consultar() {
+ LimppiarVariables();
+
+ }
+
+ function LimppiarVariables() {
+
+ ValorTotalSeleccionado = 0;
+ comision = 0;
+ descuento = 0;
+ saldo = 0;
+ IVA = 0;
+ ComisionIntermediario = 0;
+
+ }
+
+
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index 21df2bcf2..8ad8491f4 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -31,7 +31,8 @@ Partial Class Bancos_DepositosCaja
ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);")
-
+ BtnConsultar.Attributes.Add("onclick", "Consultar(this);")
+ BtnDepositar.Attributes.Add("onclick", "Depositar(this);")
End If
End Sub
@@ -98,11 +99,24 @@ Partial Class Bancos_DepositosCaja
GvFacturas.DataSource = ObjBancos.DtResultados
ObjBancos.Dispose()
- UpGvFacturas.Update()
+
GvFacturas.DataBind()
- lblValorTotal.Text = "0.00"
+ ChkFaltante.Checked = False
+ ChkDescuento.Checked = False
+ ChkIntermediario.Checked = False
TxtComision.Text = ""
+ TxtDescuento.Text = ""
+ TxtIVA.Text = ""
+ TxtComisionIntermediario.Text = ""
+ lblValorTotal.Text = "0.0"
+ lblValorTotalSeleccionado.Text = "0.0"
divLabelTotal.Visible = True
+ DdlSubProyectoDeposito.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
+ DdlSubProyectoDescuento.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
+ DdlSubProyectoIntermediario.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
+ UpGvFacturas.Update()
+ UpParametros.Update()
+ UpComisiones.Update()
End Sub
Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click
@@ -165,14 +179,19 @@ Partial Class Bancos_DepositosCaja
Dim CveCuentaBancariaDestino As Integer = 0
Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
- Dim CveSubProyecto As Integer = -1
- Dim CveSubProyectoDescuento As Integer = -1
+ Dim CveSubProyecto As Integer = DdlSubProyectos.SelectedValue.ToEntero
Dim CveClasificacion As Integer = -1
- Dim CveClasificacionDescuento As Integer = -1
+
+ Dim CveSubProyectoComision As Integer
+ Dim CveClasificacionComision As Integer
+
+ Dim CveSubProyectoDescuento As Integer
+ Dim CveClasificacionDescuento As Integer
+
Dim documentos As String = "Los Depósitos se realizaron exitosamente
"
Dim imprimirFolios As String = ""
- Dim CveSubProyectoIntermediario As Integer = -1
- Dim CveClasificacionIntermediario As Integer = -1
+ Dim CveSubProyectoIntermediario As Integer
+ Dim CveClasificacionIntermediario As Integer
Dim CveProveedorIntermediario As Integer = -1
If drOrigen IsNot Nothing Then
@@ -231,10 +250,10 @@ Partial Class Bancos_DepositosCaja
If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio) Then
If ChkFaltante.Checked Then
- CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
- CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
+ CveSubProyectoComision = DdlSubProyectoDeposito.SelectedValue.ToEntero
+ CveClasificacionComision = DdlClasificacion.SelectedValue.ToEntero
If Comision <> 0 Then
- If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
+ If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision, ImporteMX:=Comision * TipoCambio) Then
OcurrioError = True
End If
End If
@@ -314,8 +333,9 @@ Partial Class Bancos_DepositosCaja
TxtDescuento.Text = ""
TxtIVA.Text = ""
TxtComisionIntermediario.Text = ""
- lblValorTotal.Text = ""
- lblValorTotalSeleccionado.Text = ""
+ lblValorTotal.Text = "0.0"
+ lblValorTotalSeleccionado.Text = "0.0"
+ CargaDatos()
ObjContabilidad.Dispose()
End Sub
@@ -329,6 +349,8 @@ Partial Class Bancos_DepositosCaja
Next
lblValorTotal.Text = Total.ToString("N")
UpGvFacturas.Update()
+ UpParametros.Update()
+
End Sub
Public Sub ChkFactura_Click(sender As Object, e As EventArgs)
diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index a7455d22e..ecc119d3f 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -1183,7 +1183,7 @@
-
+
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index a9e212a80..430b2e5e0 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -895,7 +895,7 @@ Partial Class Bancos_IE
End If
'Detectamos a quien se le hizo el cobro (Cliente, proveedor, Funcionario/Empleado, etc.)
- If ObjIE2.GetPrePolizasDetalle(-1, CveIE) Then
+ If ObjIE2.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If ObjIE2.DtResultados.Rows.Count > 0 Then
Dim CveConceptoContable As Integer = ObjIE2.DtResultados.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero
@@ -2845,7 +2845,7 @@ Partial Class Bancos_IE
'Agregamos el IVA
If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then
- If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, 61, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, 61, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
MsgError = "Ocurrió un error al registrar el asiento del ingreso."
End If
End If
@@ -2853,7 +2853,7 @@ Partial Class Bancos_IE
'Agregamos complementaria
Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
- If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 226, Concepto, FechaMovimiento, IDCtaBeneficiarioComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=0) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 226, Concepto, FechaMovimiento, IDCtaBeneficiarioComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC) Then
MsgError = "Ocurrió un error al registrar el asiento del ingreso."
End If
@@ -2869,7 +2869,7 @@ Partial Class Bancos_IE
'Agregamos complementaria
Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
- If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC) Then
MsgError = "Ocurrió un error al registrar el asiento del ingreso."
End If
Else
@@ -2958,7 +2958,7 @@ Partial Class Bancos_IE
End If
'IMPUESTOS
- If ObjMov.GetPrePolizasDetalle(CvePrePolizaDevDin) Then
+ If ObjMov.GetPrePolizasDetalle(CvePrePolizaDevDin, UsuarioActual.CveEmpresa) Then
Dim PorcentajePagoDevDin = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6)
Dim CveConceptoContableAplciar = -1
Dim TipoMovtoAplicar = False
@@ -3561,7 +3561,7 @@ Partial Class Bancos_IE
'Agregamos complementaria
Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
- If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC) Then
MsgError = "Ocurrió un error al registrar el asiento del ingreso."
End If
End If
@@ -4339,8 +4339,15 @@ Partial Class Bancos_IE
Protected Sub BtnCancelarIE_Click(sender As Object, e As EventArgs)
RegistraScript("$('#DivCancelarIE').modal('hide');")
+ Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
+
+ If Not ExistenComplementosVigentes Then
+ CancelarIE()
+ Else
+ Alert("No se puede cancelar documento con complementos de pago vigentes", TipoMensaje.MsgError)
+ End If
+
- CancelarIE()
End Sub
Private Sub CancelarIE(Optional CancelarComplemento As Boolean = False)
@@ -4350,8 +4357,8 @@ Partial Class Bancos_IE
Exit Sub
End If
- If ChkConciliado.Checked Then
- Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
+ If ChkConciliado.Checked AndAlso TxtFechaCancelacion.Text.ToDate < TxtFechaAplicado.Text.ToDate.FirstDayOfMonth.AddMonths(1) Then
+ Alert("El documento conciliado, no se puede cancelar con la fecha especificada.", TipoMensaje.MsgError)
Exit Sub
End If
@@ -5973,7 +5980,7 @@ Partial Class Bancos_IE
'TxtFechaDesconciliado.Text = Now.ToShortDateString
'UpDesconciliar.Update()
'RegistraScript("$('#DModalDesconciliar').modal()")
- Dim fechaCancelacion As String = DateTime.Now.AddMonths(1).FirstDayOfMonth.ToShortDateString
+ Dim fechaCancelacion As String = TxtFechaAplicado.Text.ToDate.AddMonths(1).FirstDayOfMonth.ToShortDateString
RVTxtFechaCancelacion.MinimumValue = fechaCancelacion
CalendarioCancelacion.StartDate = fechaCancelacion.ToDate
UpEliminarCotizacion.Update()
@@ -6451,13 +6458,12 @@ Partial Class Bancos_IE
Protected Sub LnkCancelarComplemetno_Click(sender As Object, e As EventArgs)
If ChkConciliado.Checked Then
- Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgAdvertencia)
+ Alert("El documento se encuentra conciliado, no se puede cancelar.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
-
CveComplementoPagoCancelar = GvRow.DataKey("CveComplementoPago").ToEntero
FolioFiscalCancelar = GvRow.DataKey("FolioFiscal").ToString
'' Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
@@ -6467,8 +6473,6 @@ Partial Class Bancos_IE
Dim ObjCancelacion As New Timbrado
Dim ObjBanco As New ClsBancos
-
-
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 0f8a67eae..5a804b329 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1538,7 +1538,6 @@ Partial Class Bancos_PopIECompras
Dim ImporteMovimientoNoDeducible As Decimal = 0
Dim ImporteMXNoDeducible As Decimal = 0
Dim IdCtaContable As Integer = 0
- Dim CveCuenta As Integer = 0
Dim ConceptoMovimiento = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreProveedor, TxtObservaciones.Text, TxtFolio.Text.Trim)
Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
Dim TimpocambioGeneral As Decimal = 1
@@ -1899,8 +1898,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -1932,8 +1931,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
ImporteMX = ImporteMovimiento * tipoCambioCompra
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -1966,8 +1965,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2000,8 +1999,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2033,9 +2032,9 @@ Partial Class Bancos_PopIECompras
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
- End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ End If
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2069,8 +2068,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2103,8 +2102,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2156,17 +2155,7 @@ Partial Class Bancos_PopIECompras
' End If
' End If
- ' 'Conta SIG
- ' If CveCuentaRetISR <> 0 Then
- ' CveCuenta = CveCuentaRetISR
- ' Else
- ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- ' If ObjMov.DtResultados.Rows.Count > 0 Then
- ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
- ' End If
- ' End If
- ' End If
- ' End If
+
'Case 23 'Ret ISR Acreditable
' If MovimientoPagar.ConceptoRetISR = 1 Then
' If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
@@ -2201,16 +2190,6 @@ Partial Class Bancos_PopIECompras
' End If
' End If
- ' 'Conta SIG
- ' If CveCuentaRetISR <> 0 Then
- ' CveCuenta = CveCuentaRetISR
- ' Else
- ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- ' If ObjMov.DtResultados.Rows.Count > 0 Then
- ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
- ' End If
- ' End If
- ' End If
' End If
'Case 243 'Ret ISR X Acreditar Terceros y Arrendamiento
' If MovimientoPagar.ConceptoRetISR = 2 Then
@@ -2246,16 +2225,7 @@ Partial Class Bancos_PopIECompras
' End If
' End If
- ' 'Conta SIG
- ' If CveCuentaRetISR <> 0 Then
- ' CveCuenta = CveCuentaRetISR
- ' Else
- ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- ' If ObjMov.DtResultados.Rows.Count > 0 Then
- ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
- ' End If
- ' End If
- ' End If
+
' End If
'Case 244 'Ret ISR Acreditable Terceros y Arrendamiento
' If MovimientoPagar.ConceptoRetISR = 2 Then
@@ -2291,16 +2261,7 @@ Partial Class Bancos_PopIECompras
' End If
' End If
- ' 'Conta SIG
- ' If CveCuentaRetISR <> 0 Then
- ' CveCuenta = CveCuentaRetISR
- ' Else
- ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- ' If ObjMov.DtResultados.Rows.Count > 0 Then
- ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
- ' End If
- ' End If
- ' End If
+
' End If
Case 14 'Iva por Acreditar
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
@@ -2331,8 +2292,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = MovimientoPagar.IVA
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2355,8 +2316,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.IVAPorPagar * PorcentajePago)
ImporteMX = ImporteMovimiento * tipoCambioCompra
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2409,8 +2370,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.IVADeducible)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2433,8 +2394,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2517,7 +2478,6 @@ Partial Class Bancos_PopIECompras
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
- CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero
End If
End If
@@ -2559,8 +2519,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = MovimientoPagar.IVA
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2582,8 +2542,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
ImporteMX = ImporteMovimiento * tipoCambioCompra
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
- ImporteMX = Math.Round(ImporteMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2603,7 +2563,6 @@ Partial Class Bancos_PopIECompras
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
- CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
End If
End If
@@ -2745,7 +2704,6 @@ Partial Class Bancos_PopIECompras
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
- CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
End If
End If
@@ -2828,7 +2786,6 @@ Partial Class Bancos_PopIECompras
' If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
' If ObjMov.DtResultados.Rows.Count > 0 Then
' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
- ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero
' End If
' End If
Case 25 'IEPS por Acreditar
@@ -2888,7 +2845,6 @@ Partial Class Bancos_PopIECompras
If CveMoneda <> 1 OrElse CveMonedaCompra <> 1 Then
IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
- CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
TimpocambioGeneral = TCImpuestos
'' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra
@@ -2914,7 +2870,6 @@ Partial Class Bancos_PopIECompras
If CveMoneda <> 1 OrElse CveMonedaCompra <> 1 Then
IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
- CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
'' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra
If tipoCambioPago > tipoCambioCompra AndAlso CveMonedaCompra = 2 Then
diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx
index fbf65add1..2a0b2c928 100644
--- a/CRM/Acercamiento.aspx
+++ b/CRM/Acercamiento.aspx
@@ -1011,8 +1011,8 @@
-
-
+
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 8ca21fd06..14ef4ef01 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8343,9 +8343,9 @@ Partial Class Compras_Compras
'ACTUALIZA CVEFACTURA
If Request("CveFactura") IsNot Nothing Then
- If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
- TieneError = True
- End If
+ 'If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
+ ' TieneError = True
+ 'End If
If UsuarioActual.Empresa.UsaAC Then
MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
@@ -10357,7 +10357,7 @@ Partial Class Compras_Compras
Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0
Dim ConceptoPersonal As String = "", Concepto As String = ""
- If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza) Then
+ If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
ErrorPrepoliza = True
Else
If ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176)").Rows.Count > 0 Then
@@ -15010,7 +15010,7 @@ Partial Class Compras_Compras
End If
Else
If CvePrePoliza > 0 Then
- If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza) Then
+ If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
dt = ObjContabilidad.DtResultados
CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -15062,11 +15062,11 @@ Partial Class Compras_Compras
'LIMPIA PRE-POLIZA PONIENDO IMPORTE EN CEROS
If CvePrePoliza > 0 Then
- If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza) Then
+ If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
dt = ObjContabilidad.DtResultados
For Each dr As DataRow In dt.Rows
- If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+ If Not ObjContabilidad.UpdatePrePolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
ErrorCancelar = True : Exit For
End If
Next
@@ -18689,7 +18689,7 @@ Partial Class Compras_Compras
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Clasificacion") = HdnPSAliasClasificacion.Value
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Obs") = TxtPSAlias.Text.Trim
- TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value
+ TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE
@@ -18701,7 +18701,7 @@ Partial Class Compras_Compras
drt("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
drt("Clasificacion") = HdnPSAliasClasificacion.Value
drt("Obs") = TxtPSAlias.Text.Trim
- drt("CveSATPS") = HdnPSAliasCveSATPS.Value
+ drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
Next
@@ -18710,14 +18710,12 @@ Partial Class Compras_Compras
GvPS.DataBind()
UpPS.Update()
- Alert("Registro actualizado con exito.", TipoMensaje.MsgInformacion)
+ Alert("Registro actualizado con éxito.", TipoMensaje.MsgInformacion)
RegistraScript("$('#ModalPSAlias').modal('hide');", "ModalPSAliasHide")
End If
PS.Dispose()
-
-
End Sub
Private Sub RecargaGlobalEquivalencias()
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 29ddcca3a..4b94f49f8 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2310,16 +2310,16 @@ Partial Class PopUpVerFactura
Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
- If Archivo.Exists Then
+ If Archivo.Exists Then
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
If UsuarioActual.CveEmpresa = 140 Then
- Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", logouri))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
params.Add(New ReportParameter("Origen", Almacen))
params.Add(New ReportParameter("Destino", AlmacenDestino))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
@@ -2329,7 +2329,19 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
- Else
+ ElseIf UsuarioActual.CveEmpresa = 153 Then
+ params.Add(New ReportParameter("Origen", Almacen))
+ params.Add(New ReportParameter("Destino", AlmacenDestino))
+ params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
+ params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
+ params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
+ params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
+ params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+ params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
+ Else
params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
@@ -2414,7 +2426,21 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
- params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+ params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+ ElseIf UsuarioActual.CveEmpresa = 153 Then
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+ params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
+ params.Add(New ReportParameter("Destino", Almacen))
+ params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
End If
@@ -3975,7 +4001,7 @@ Partial Class PopUpVerFactura
End If
ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
Dim PreP As New ClsContabilidad
- If PreP.GetPrePolizasDetalle(-1, CveIE) Then
+ If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
DtMovimientosPoliza = New DataTable
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
@@ -4055,7 +4081,7 @@ Partial Class PopUpVerFactura
tIdPoliza = ObjIE.IDPoliza
Dim PreP As New ClsContabilidad
- If PreP.GetPrePolizasDetalle(-1, CveIE) Then
+ If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If PreP.DtResultados.Rows.Count > 0 Then
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
@@ -4256,7 +4282,7 @@ Partial Class PopUpVerFactura
Dim dtMovs As New DataTable
Dim Mov As New ClsContabilidad
- If Mov.GetPrePolizasDetalle(-1, CveIE) Then
+ If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)")
diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb
index df68997dd..f31632150 100644
--- a/Contabilidad/FiltraPolizas.aspx.vb
+++ b/Contabilidad/FiltraPolizas.aspx.vb
@@ -379,7 +379,7 @@ Partial Class Contabilidad_FiltraPolizas
'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
- If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+ If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
Dim dtVC As DataTable
Dim dr As DataRow
dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx
index 1d6823ab4..172b43029 100644
--- a/Contabilidad/RegPrePoliza.aspx
+++ b/Contabilidad/RegPrePoliza.aspx
@@ -317,7 +317,9 @@
-
+ Cuenta
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index ec1965253..6fd47f81b 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -133,6 +133,14 @@ Partial Class ContabilidadC_RegPrePoliza
ViewState("Actualizar") = value
End Set
End Property
+ Public Property IDMovEditar As Integer
+ Get
+ Return CType(ViewState("IDMovEditar"), Integer)
+ End Get
+ Set(value As Integer)
+ ViewState("IDMovEditar") = value
+ End Set
+ End Property
Private ReadOnly Property CvePeriodo As Integer
Get
@@ -357,6 +365,12 @@ Partial Class ContabilidadC_RegPrePoliza
.Add("TC", Type.GetType("System.Decimal"))
.Add("PorcentajeImpuesto", Type.GetType("System.Decimal"))
.Add("CveCuenta", Type.GetType("System.Int32"))
+ .Add("ContadoTipoTransaccion", Type.GetType("System.Int32"))
+ .Add("ContadoCuenta", Type.GetType("System.Int32"))
+ .Add("ContadoNumeroFolio", Type.GetType("System.String"))
+ .Add("ContadoImporte", Type.GetType("System.Double"))
+ .Add("ContadoBeneficiario", Type.GetType("System.String"))
+ .Add("ContadoObservaciones", Type.GetType("System.String"))
End With
End Sub
@@ -518,7 +532,7 @@ Partial Class ContabilidadC_RegPrePoliza
'Asignamos los Subproyectos
e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlSubProyecto").DataBind()
- 'e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1"))
+ e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1"))
e.Row.FCDropDownList("DdlSubProyecto").SelectedValueExist(e.Row.DataKey("CveSubProyecto"))
'Asignamos los Tipos de Gasto
@@ -931,9 +945,13 @@ Partial Class ContabilidadC_RegPrePoliza
If e.Row.DataKey("CveConcepto").ToEntero().Contiene(30) Then
e.Row.FCLinkButton("ImgBancos").Visible = True
- If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then
+ If e.Row.DataKey("ContadoTipoTransaccion").ToEntero > 0 And e.Row.DataKey("ContadoCuenta").ToEntero > 0 And e.Row.DataKey("ContadoNumeroFolio").ToString.Length > 0 And
+ e.Row.DataKey("ContadoImporte").ToDecimal > 0 And e.Row.DataKey("ContadoBeneficiario").ToString.Length > 0 Then
e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
End If
+ 'If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then
+ ' e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
+ 'End If
End If
If e.Row.DataKey("CveConcepto").ToEntero().Contiene(17) Then
@@ -971,10 +989,6 @@ Partial Class ContabilidadC_RegPrePoliza
If CvePrePoliza > 0 Then
'Nuevo Modulo Charlie
ActualizarPrePoliza()
-
-
-
-
Else
Dim MensajeAlert = New StringBuilder
Dim ObjIE As New ClsBancos()
@@ -999,10 +1013,6 @@ Partial Class ContabilidadC_RegPrePoliza
Dim TipoMovto As Boolean = False
Dim IdCtaContable As Integer = 0
Dim PorcentajeImpuesto As Decimal = 0
-
-
-
-
Dim CveProveedor As Integer = -1
Dim CveCompra As Integer = -1
@@ -1035,7 +1045,11 @@ Partial Class ContabilidadC_RegPrePoliza
If CveConcepto = 30 AndAlso Importe <> 0 Then
'Registra movimieno bancario
If CveConcepto = 30 Then
- CveIE = ObjIE.AddBancos_IE(CveCuenta, CveTipoTransaccion, TxtFecha.Text, Folio, Beneficiario, ImporteDocumento, CveMoneda, 0, Observaciones, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+ CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
+ gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
+ False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario"
CveIEInsertado = CveIE
If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
@@ -1069,6 +1083,9 @@ Partial Class ContabilidadC_RegPrePoliza
Exit For
End If
End If
+ If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then
+ MensajeAlert.AppendFormat("
Folio Bancario: {1}", CveIE, FolioIE)
+ End If
Next
@@ -1144,7 +1161,6 @@ Partial Class ContabilidadC_RegPrePoliza
If Conta IsNot Nothing Then Conta.Dispose()
End If
End Sub
-
Private Sub ActualizarPrePoliza()
Dim contador As Integer = 0
'Dim diferencia As String = ""
@@ -1483,6 +1499,18 @@ Partial Class ContabilidadC_RegPrePoliza
CargaTipoTransaccion("Egs")
End If
+ Dim IdMov As Integer = GvRow.DataKey("IdMov").ToString.ToEntero
+ Dim Rows As DataRow() = DtMovimientos.Select("IdMov = " & IdMov)
+ IDMovEditar = IdMov
+
+ If Rows.Count > 0 Then
+ Dim dr As DataRow = Rows(0)
+ DdlTipoTransaccion.SelectedValueExist(dr("ContadoTipoTransaccion").ToString.ToEntero)
+ DdlCuenta.SelectedValueExist(dr("ContadoCuenta").ToString.ToEntero)
+ TxtDocumentoFolio.Text = dr("ContadoNumeroFolio").ToString
+ TxtDocumentoObservaciones.Text = dr("ContadoObservaciones").ToString
+ TxtDocumentoBeneficiario.Text = dr("ContadoBeneficiario").ToString
+ End If
TxtDocumentoImporte.Text = If(GvRow.FCTextBox("TxtAbono").Text = "", GvRow.FCTextBox("TxtCargo").Text.FormatoNumero, GvRow.FCTextBox("TxtAbono").Text.FormatoNumero)
UpBancos.Update()
@@ -1501,13 +1529,30 @@ Partial Class ContabilidadC_RegPrePoliza
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
Private Sub BtnContado_Click(sender As Object, e As EventArgs) Handles BtnContado.Click
- CveConcepto = 30
- CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero()
- CveCuenta = DdlCuenta.SelectedValue.ToEntero()
- Folio = TxtDocumentoFolio.Text
- ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal()
- Observaciones = TxtDocumentoObservaciones.Text
- Beneficiario = TxtDocumentoBeneficiario.Text
+ Dim Rows As DataRow() = DtMovimientos.Select("IdMov = " & IDMovEditar)
+
+ If Rows.Count > 0 Then
+ Dim dr As DataRow = Rows(0)
+
+
+ dr("ContadoTipoTransaccion") = DdlTipoTransaccion.SelectedValue.ToEntero
+ dr("ContadoCuenta") = DdlCuenta.SelectedValue.ToEntero
+ dr("ContadoNumeroFolio") = TxtDocumentoFolio.Text
+ dr("ContadoImporte") = TxtDocumentoImporte.Text.ToDecimal
+ dr("ContadoBeneficiario") = TxtDocumentoBeneficiario.Text
+ dr("ContadoObservaciones") = TxtDocumentoObservaciones.Text
+ End If
+ DtMovimientos.AcceptChanges()
+ GvMov.DataSource = DtMovimientos
+ GvMov.DataBind()
+ 'CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero
+ 'CveCuenta = DdlCuenta.SelectedValue.ToEntero
+ 'Folio = TxtDocumentoFolio.Text
+ 'ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal
+ 'Observaciones = TxtDocumentoObservaciones.Text
+ 'Beneficiario = TxtDocumentoBeneficiario.Text
+
+
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
GvMov.Rows(RowIndex).FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
UPMovs.Update()
@@ -1900,7 +1945,7 @@ Partial Class ContabilidadC_RegPrePoliza
'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
- If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+ If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
Dim dtVC As DataTable
Dim dr As DataRow
dtVC = ObjConta.DtResultados
diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 11d26abf9..f579a6d2d 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -206,7 +206,7 @@
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index e9f305103..cd2a48d00 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1,5 +1,4 @@
-
-
+
Imports System.Data
Imports Extensiones
Imports System.Linq
@@ -625,12 +624,15 @@ Partial Class ContabilidadC_RegPrePolizaS
Private Sub CargaCuentasContables()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
- DdlCtaContable.DataSource = ObjConta.DtResultados
+ DdlCuentaContableE.DataSource = ObjConta.DtResultados
+ DdlCuentaContable.DataSource = ObjConta.DtResultados
DtCuentasContables = ObjConta.DtResultados
End If
- ObjConta.Dispose()
- DdlCtaContable.DataBind()
- DdlCtaContable.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+ ObjConta.Dispose()
+ DdlCuentaContable.DataBind()
+ DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0"))
+ DdlCuentaContableE.DataBind()
+ DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
End Sub
Private Sub CargaTiposGasto()
@@ -729,20 +731,20 @@ Partial Class ContabilidadC_RegPrePolizaS
IdCuenta = 0
CodigoCuenta = ""
NombreCuenta = ""
- If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
- Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
- If drr IsNot Nothing Then
- IdCuenta = drt("IdCtaContable").ToString.ToEntero
- CodigoCuenta = drr("CuentaFormato").ToString()
- NombreCuenta = drr("Nombre").ToString()
- 'Cuenta = drr("Nombre").ToString()
- End If
- EsComodin = 0
- End If
+ 'If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
+ ' Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
+ ' If drr IsNot Nothing Then
+ ' IdCuenta = drt("IdCtaContable").ToString.ToEntero
+ ' CodigoCuenta = drr("CuentaFormato").ToString()
+ ' NombreCuenta = drr("Nombre").ToString()
+ ' 'Cuenta = drr("Nombre").ToString()
+ ' End If
+ ' EsComodin = 0
+ 'End If
Dim dr As DataRow = DtMovimientos.NewRow
- dr("CodigoCuenta") = CodigoCuenta & " " & NombreCuenta
+ dr("CodigoCuenta") = drt("Codigo").ToString & " " & drt("Nombre").ToString
dr("Cuenta") = Cuenta 'TxtCuentaContable.Text
dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
dr("Concepto") = TxtObservaciones.Text
@@ -838,7 +840,7 @@ Partial Class ContabilidadC_RegPrePolizaS
e.Row.FCLinkButton("ImgBancos").Visible = True
If e.Row.DataKey("ContadoTipoTransaccion").ToEntero > 0 And e.Row.DataKey("ContadoCuenta").ToEntero > 0 And e.Row.DataKey("ContadoNumeroFolio").ToString.Length > 0 And
- e.Row.DataKey("ContadoImporte").ToEntero > 0 And e.Row.DataKey("ContadoBeneficiario").ToString.Length > 0 Then
+ e.Row.DataKey("ContadoImporte").ToDecimal > 0 And e.Row.DataKey("ContadoBeneficiario").ToString.Length > 0 Then
e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
End If
End If
@@ -902,10 +904,13 @@ Partial Class ContabilidadC_RegPrePolizaS
CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario"
- If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
- FolioIE = ObjIE.Folio
+ If CveIE < 0 Then
+ MsgError = "No se pudo registrar movimiento bancario"
+ Exit For
End If
+ 'If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
+ ' FolioIE = ObjIE.Folio
+ 'End If
End If
@@ -1045,7 +1050,7 @@ Partial Class ContabilidadC_RegPrePolizaS
ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero,
CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
- CvePersonal:=row.DataKey("CvePersonal").ToEntero) Then
+ CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero) Then
OcurrioError = True
Exit For
End If
@@ -1123,7 +1128,7 @@ Partial Class ContabilidadC_RegPrePolizaS
CargaTipoGastoE()
DdlTipoGastoE.SelectedValueExist(CveTipoGasto)
CargaCtaContableE()
- DdlCtaContableE.SelectedValueExist(CveCuenta)
+ DdlCuentaContableE.SelectedValueExist(CveCuenta)
If Cargo <> 0 Then
TxtCargoE.Text = Cargo
@@ -1160,12 +1165,12 @@ Partial Class ContabilidadC_RegPrePolizaS
Private Sub CargaCtaContableE()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
- DdlCtaContableE.DataSource = ObjConta.DtResultados
+ DdlCuentaContableE.DataSource = ObjConta.DtResultados
End If
ObjConta.Dispose()
- DdlCtaContableE.DataBind()
- DdlCtaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+ DdlCuentaContableE.DataBind()
+ DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
End Sub
Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged
If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
@@ -1266,7 +1271,8 @@ Partial Class ContabilidadC_RegPrePolizaS
If DtMovimientos Is Nothing Then CreaDT()
If CvePrePoliza > 0 Then
Dim dr As DataRow = DtMovimientos.NewRow
- dr("IdCtaContable") = DdlCtaContableE.SelectedValue
+ dr("IdCtaContable") = DdlCuentaContableE.SelectedValue
+ dr("CveCuenta") = DdlCuentaContableE.SelectedValue
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
dr("Concepto") = TxtConceptoE.Text
@@ -1351,7 +1357,9 @@ Partial Class ContabilidadC_RegPrePolizaS
If Rows.Count > 0 Then
Dim dr As DataRow = Rows(0)
- dr("IdCtaContable") = DdlCtaContableE.SelectedValue
+ dr("IdCtaContable") = DdlCuentaContableE.SelectedValue
+ dr("CveCuenta") = DdlCuentaContableE.SelectedValue
+ dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
dr("Concepto") = TxtConceptoE.Text
@@ -1366,8 +1374,6 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
- dr("CveCuenta") = DdlCtaContableE.SelectedValue.ToEntero
- dr("CodigoNombreCuenta") = DdlCtaContableE.SelectedItem.Text
dr("Modificado") = True
@@ -1445,10 +1451,10 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim dr As DataRow = Rows(0)
Dim CodigoCuenta As String = ""
Dim NombreCuenta As String = ""
- dr("CveCuenta") = DdlCtaContable.SelectedValue
+ dr("CveCuenta") = DdlCuentaContable.SelectedValue
- If DdlCtaContable.SelectedValue.ToEntero > 0 Then
- Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue))
+ If DdlCuentaContable.SelectedValue.ToEntero > 0 Then
+ Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCuentaContable.SelectedValue))
If drr IsNot Nothing Then
CodigoCuenta = drr("CuentaFormato").ToString()
NombreCuenta = drr("Nombre").ToString()
@@ -1472,7 +1478,6 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("CveClasificacion") = -1
dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
- dr("CveCuenta") = DdlCtaContable.SelectedValue.ToEntero
End If
GvMov.DataSource = DtMovimientos
GvMov.DataBind()
@@ -1484,7 +1489,8 @@ Partial Class ContabilidadC_RegPrePolizaS
If CvePrePoliza > 0 Then
Dim dr As DataRow = DtMovimientos.NewRow
- dr("IdCtaContable") = -1 'DdlCtaContable.SelectedValue
+ dr("IdCtaContable") = -1 'DdlCtaContable.SelectedValue
+ dr("CveCuenta") = DdlCuentaContable.SelectedValue
dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
dr("Concepto") = TxtDescripcion.Text
@@ -1517,10 +1523,10 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim CodigoCuenta As String = ""
Dim NombreCuenta As String = ""
- dr("CveCuenta") = DdlCtaContable.SelectedValue
+ dr("CveCuenta") = DdlCuentaContable.SelectedValue
- If DdlCtaContable.SelectedValue.ToEntero > 0 Then
- Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue))
+ If DdlCuentaContable.SelectedValue.ToEntero > 0 Then
+ Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCuentaContable.SelectedValue))
If drr IsNot Nothing Then
CodigoCuenta = drr("CuentaFormato").ToString()
NombreCuenta = drr("Nombre").ToString()
@@ -1716,7 +1722,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If DrM IsNot Nothing Then
HdnCve.Value = idMov.ToString
- DdlCtaContable.SelectedValue = DrM("CveCuenta")
+ DdlCuentaContable.SelectedValue = DrM("CveCuenta")
TxtReferencia.Text = DrM("Referencia")
TxtObservaciones.Text = DrM("Concepto")
' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto")
@@ -2024,7 +2030,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim CveClasificacion As Integer = -1
Dim CveCuentaExcel As Integer = -1
Dim ObjConta2 As New ClsContabilidad
- Dim FolioExcel As Integer = -1
+ Dim FolioExcel As Long = -1
Dim TipoMov As Integer = -1
Dim CveBancoCuenta As Integer = -1
If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then
@@ -2040,17 +2046,34 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
If CveConceptoContable = 30 Then
+
Dim objconta3 As New ClsContabilidad
objconta3.GetConta_CuentasDataContabilidad(CveCuentaExcel, UsuarioActual.CveEmpresa)
If objconta3.DtResultados.Rows.Count > 0 Then
Dim rowcc As DataRow = objconta3.DtResultados.Rows(0)
CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
DdlCuenta.SelectedValue = CveBancoCuenta
+ Else
+ CveBancoCuenta = 0
End If
+ objconta3.Dispose()
+
+ If CveBancoCuenta = 0 Then
+ Alert(String.Format("La cuenta {0} no está vinculada a una cuenta bancaria administrativa favor de verificar el archivo.", Row("Cuenta").ToString), TipoMensaje.MsgAdvertencia)
+ DtMovimientos.Clear()
+ Exit For
+ End If
+
TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
- FolioExcel = Row("Folio").ToString
+ FolioExcel = Row("Folio").ToString.ToEntero
CveTipoTransaccion = TipoMov
CveCuenta = CveBancoCuenta
+ 'carga el consecutivo
+
+ If FolioExcel = 0 Then
+ FolioExcel = SiguienteFolioBancos(CveBancoCuenta, TipoMov)
+ End If
+
Folio = FolioExcel
ImporteDocumento = IIf(Row("Abono").ToString.ToEntero > 0, Row("Abono").ToString, Row("Cargo").ToString)
Observaciones = Row("Referencia").ToString
@@ -2062,7 +2085,6 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
-
'sino viene el cveconcepto, busca por le nombre del concepto
If CveConceptoContable = 0 Then
Alert(String.Format("El concepto {0} no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo")))
@@ -2110,8 +2132,8 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("CveCuenta") = CveCuentaExcel
dr("ContadoTipoTransaccion") = CveTipoTransaccion
- dr("ContadoCuenta") = CveCuenta
- dr("ContadoNumeroFolio") = Folio
+ dr("ContadoCuenta") = CveBancoCuenta
+ dr("ContadoNumeroFolio") = FolioExcel
dr("ContadoImporte") = ImporteDocumento
dr("ContadoBeneficiario") = Beneficiario
dr("ContadoObservaciones") = Observaciones
@@ -2135,6 +2157,63 @@ Partial Class ContabilidadC_RegPrePolizaS
#End Region
+#Region "Siguiente Folio"
+ Public Property ArregloCuentasFolios As DataTable
+ Get
+
+ If ViewState("ArregloCuentasFolios") Is Nothing Then
+ Dim dt = New DataTable("CuentasBancos")
+ With dt.Columns
+ .Add("CveCuenta", Type.GetType("System.Int32"))
+ .Add("CveTipoTransaccion", Type.GetType("System.Int32"))
+ .Add("Folio", Type.GetType("System.Double"))
+ End With
+ ViewState("ArregloCuentasFolios") = dt
+ End If
+
+ Return CType(ViewState("ArregloCuentasFolios"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("ArregloCuentasFolios") = value
+ End Set
+ End Property
+
+
+
+ Public Function SiguienteFolioBancos(CveCuentaBancos As Integer, CveTipoTransaccionBancos As Integer) As String
+ Dim Retorno As String = "0"
+
+ Dim Folio As Long = ArregloCuentasFolios.FiltroPrimeroValor("Folio", String.Format("CveCuenta = {0} and CveTipoTransaccion = {1}", CveCuentaBancos, CveTipoTransaccionBancos)).ToLong
+
+ If Folio = 0 Then
+ Dim Banco As New ClsBancos
+ Folio = Banco.GetNextFolio(CveCuentaBancos, CveTipoTransaccionBancos)
+ Banco.Dispose()
+ End If
+
+ Folio += 1
+
+ Dim a As DataRow() = ArregloCuentasFolios.Select(String.Format("CveCuenta = {0} and CveTipoTransaccion = {1}", CveCuentaBancos, CveTipoTransaccionBancos))
+
+ If a.Count = 0 Then
+ Dim dr As DataRow = ArregloCuentasFolios.NewRow
+ dr("Folio") = Folio
+ dr("CveCuenta") = CveCuentaBancos
+ dr("CveTipoTransaccion") = CveTipoTransaccionBancos
+ ArregloCuentasFolios.Rows.Add(dr)
+ Else
+ a(0)("Folio") = Folio 'actualizo el folio
+ End If
+
+ ArregloCuentasFolios.AcceptChanges()
+
+ Return Folio
+ End Function
+#End Region
+
+
+
+
#Region "Paquete Egresos"
Protected Sub LnkImprimirPDF_Click(sender As Object, e As EventArgs)
ImprimirPolizaPDF(IdPoliza)
@@ -2149,7 +2228,7 @@ Partial Class ContabilidadC_RegPrePolizaS
'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
- If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+ If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
Dim dtVC As DataTable
Dim dr As DataRow
dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx
index 8e0b6c729..ad6288165 100644
--- a/Contabilidad2/CatCuentas.aspx
+++ b/Contabilidad2/CatCuentas.aspx
@@ -225,6 +225,15 @@
(0% - 100% )
+
+