From 6aabc80eee8e95cab61bb96c9d3cc6cd87b030cb Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Thu, 15 Apr 2021 17:43:40 -0700 Subject: [PATCH 1/2] Cambios Comision --- Bancos/DepositosCaja.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 2cd68d821..7b5d4c120 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -71,7 +71,7 @@ Partial Class Bancos_DepositosCaja Dim TotalImporte As Decimal = 0 Dim TotalImportePrePoliza As Decimal - Dim Comision As Integer = IIf(TxtComision.Text.ToEntero > 0, TxtComision.Text.ToEntero, (TxtComision.Text.ToEntero * -1)).ToString.ToEntero + Dim Comision As Decimal = Abs(TxtComision.Text.ToDecimal) For Each Gvr As GridViewRow In GvFacturas.Rows If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal @@ -84,7 +84,7 @@ Partial Class Bancos_DepositosCaja TotalImportePrePoliza = TotalImporte If Comision > 0 Then - TotalImporte = TotalImporte - TxtComision.Text.ToEntero + TotalImporte = TotalImporte - Comision If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia) Exit Sub @@ -139,7 +139,7 @@ Partial Class Bancos_DepositosCaja CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero CveClasificacion = DdlClasificacion.SelectedValue.ToEntero If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtComision.Text.ToEntero, "Comisión", 51, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=TxtComision.Text.ToEntero * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Comision, "Comisión", 51, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then OcurrioError = True End If Else OcurrioError = True From b96598e3f0cb769746f0ccebdc247d1f7dc6afb8 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Thu, 15 Apr 2021 17:44:06 -0700 Subject: [PATCH 2/2] Cambio validacion de fechas documento para las empresas UsaAC --- Bancos/ProveedoresAbonar.aspx.vb | 17 +++++++++-------- Ventas/ClientesAbonar.aspx.vb | 16 +++++++++------- 2 files changed, 18 insertions(+), 15 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 6f9274c1e..3dd2dfad1 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -732,14 +732,15 @@ Partial Class Bancos_ProveedoresAbonar Dim AnioDocumento As Integer = FechaDocumento.Year Dim MesDocumento As Integer = FechaDocumento.Month - If AnioFactura > AnioDocumento Then - FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") - ValFechaDocumento = True - ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then - FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") - ValFechaDocumento = True + If UsuarioActual.Empresa.UsaAC = False Then + If AnioFactura > AnioDocumento Then + FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") + ValFechaDocumento = True + ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then + FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") + ValFechaDocumento = True + End If End If - End If Next @@ -782,7 +783,7 @@ Partial Class Bancos_ProveedoresAbonar Exit Sub End If - Dim ImporteSeleccionado As Decimal = 0 + Dim ImporteSeleccionado As Decimal = 0 If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then Dim Validada As Boolean = False Dim MsgValidadas As New StringBuilder diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index fc2aa4147..cf95982d6 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -671,14 +671,16 @@ Partial Class Ventas_ClientesAbonar Dim AnioDocumento As Integer = FechaDocumento.Year Dim MesDocumento As Integer = FechaDocumento.Month - If AnioFactura > AnioDocumento Then - FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") - ValFechaDocumento = True - ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then - FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") - ValFechaDocumento = True - End If + If UsuarioActual.Empresa.UsaAC = False Then + If AnioFactura > AnioDocumento Then + FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") + ValFechaDocumento = True + ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then + FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") + ValFechaDocumento = True + End If + End If End If Next