From 20d1fd4dae608aabcc908abd29036fb9cc58abcc Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Fri, 10 Jan 2020 12:43:38 -0700 Subject: [PATCH 01/17] Correciones iva 6% --- Compras/Compras.aspx | 6 ++++-- Compras/Compras.aspx.vb | 10 +++++++--- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 40e4e3811..e79fadb0c 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -907,8 +907,10 @@ - - + + + Deglose 6% + <%----%> <%-- diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 6d3b6c35f..9b80eb72f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2087,8 +2087,12 @@ Partial Class Compras_Compras End If DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) - DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5")) - + + If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then + DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5")) + End If + + End If @@ -19300,7 +19304,7 @@ Partial Class Compras_Compras DdlRetIVAConcepto.SelectedValueExist("5") - LblRetIVA.Text = "0.06%" + LblRetIVA.Text = "6.0%" RetencionIVA = TmpDT.SUMD("RetIVA") TxtRetIVA.Text = RetencionIVA.ToString("###,###,###.00") From 5c36795ac05e0cf95dc82fd263db6c7e83ffb10d Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Tue, 14 Jan 2020 11:11:33 -0700 Subject: [PATCH 02/17] - --- App_Code/ClsContabilidad.vb | 2 ++ Inventarios/ResguardoMaterial.aspx.vb | 6 ++++-- OC/OC.aspx.vb | 2 +- 3 files changed, 7 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 597854f57..75aaea0c6 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5778,6 +5778,8 @@ Public Class ClsContabilidad ValorPolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@Valor").Value.ToString.ToEntero MensajePolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@MsgSalida").Value.ToString ValorDiferencia = SqlAdapter.SelectCommand.Parameters("@Diferencia").Value.ToString + Dim MsgPrePoliza As String = SqlAdapter.SelectCommand.Parameters("@MsgPrePolizaSalida").Value.ToString + If MsgPrePoliza <> "" Then MsgPrePoliza.GuardaLogAD("LogPrePoliza") Catch ex As Exception OnError("Ocurrió un error al validar la PrePoliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index 5311877ee..272fa5234 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -945,10 +945,12 @@ Partial Class Inventarios_ResguardoMaterial Dim Fecha As DateTime = TxtFechaVigencia.Text.Trim().ToDateTime() Dim FechaI As DateTime = Fecha Dim FechaF As DateTime = Fecha.AddHours(22) - - TieneError = Not ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + If Fecha > MinFecha Then + TieneError = Not ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=CveTipoEvento, Importe:=Importe) + End If + Return Not TieneError End Function diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index d77b1c6be..0ac68a0f0 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2240,7 +2240,7 @@ Partial Class OC End If 'Valida que tenga proveedore - If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC"4) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then + If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC") AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia) TieneError = True End If From a67928092d928825e8639c54c942bcc61ba340d3 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Tue, 14 Jan 2020 11:12:25 -0700 Subject: [PATCH 03/17] -- se activo que saque de apartados cuando es pedido --- Inventarios/RecepcionEntrega.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index f53f4291d..88bc69fb7 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -1640,7 +1640,7 @@ Partial Class Inventarios_RecepcionEntrega Dim CantidadSaldo As Decimal = 0 - If CveVendedor > 0 AndAlso (UsuarioActual.Empresa.Funcionalidad(146) = "1" Or CveCliente > 0) AndAlso TipoDocto <> "Ped" Then 'no debe considerar cuando es pedido de contrato + If CveVendedor > 0 AndAlso (UsuarioActual.Empresa.Funcionalidad(146) = "1" Or CveCliente > 0) Then 'no debe considerar cuando es pedido de contrato If TipoMovimiento = 1 Then ' SI ES DEVOLUCION NO APLICA APARTADO ' SALIDA POR TRASPASO DE LOS ALMACENES DE APARTADO For Each Dr As DataRow In DtDatos.Rows From 1c90f96759c239138c89a677212696b9658c667b Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 14 Jan 2020 13:17:16 -0700 Subject: [PATCH 04/17] Permiso vinculacion manual --- Compras/eFacturas.aspx.vb | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index bf1189f9b..9ad938988 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2815,6 +2815,9 @@ Partial Class Compras_eFacturas CveProveedor = gvRow.DataKey("CveProveedor").ToEntero Dim ObjCompras As New ClsCompras + + Dim TieneRegistros As Boolean = False + If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa) Then GvVincularPago.DataSource = ObjCompras.DtResultados @@ -2822,7 +2825,7 @@ Partial Class Compras_eFacturas SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString DivVincularPagoManualmente.Visible = False BtnVincularPago.Visible = True - + TieneRegistros = True Else DivVincularPagoManualmente.Visible = True BtnVincularPago.Visible = False @@ -2835,6 +2838,7 @@ Partial Class Compras_eFacturas + For Each drow As DataRow In ObjCompras.DtResultados.FiltraParametros("CveIE > 0 AND FechaDocumento IS NOT NULL", "", {"FechaDocumento"}).Rows Dim FechaDocumento As Date = drow("FechaDocumento").ToString.ToDate @@ -2873,12 +2877,18 @@ Partial Class Compras_eFacturas TextoDiferenciaImporte = $"  -   IE ${ImporteIES.FormatoNumero}
Diferencia { DiferenciaImportes.FormatoNumero() }
" BtnVincularPago.Visible = False MSGComplemento = MSGComplemento & $" Existe una diferencia mayor a $5.00 ({Math.Abs(DiferenciaImportes)})" + + If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then + DivVincularPagoManualmente.Visible = True + End If + Else 'BtnVincularPago.Visible = True 'TextoDiferenciaImporte = "" End If + LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}" LblImportePago.Text = Monto.ToString("###,###,###.00") 'ImportePago.FormatoNumero LblPagosCantidad.Text = PagosCantidad.ToString @@ -2893,7 +2903,7 @@ Partial Class Compras_eFacturas Else LblMensajeComlementoError.Text = "" DVMensajecomplementoError.Visible = False - + DivVincularPagoManualmente.Visible = False End If From 9c0acebca35c65b5a7bc5fc5ff9fec00444c833b Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 14 Jan 2020 15:41:02 -0700 Subject: [PATCH 05/17] Agregando el nombre de cuenta al reporte --- .../RepMovimientosAuxiliaresCatalogo.rdlc | 21 +++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/Contabilidad2/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc b/Contabilidad2/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc index 0cbc414c6..2068a25b8 100644 --- a/Contabilidad2/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc +++ b/Contabilidad2/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc @@ -1334,7 +1334,7 @@ 8.01986in - 0.81597in + 1.14931in true true @@ -1444,23 +1444,32 @@ + + Cuenta: + + =Parameters!Cuenta.Value Cuenta - 0.47708in - 1.82615in + 0.84375in 0.25in - 4.42313in + 5.42127in 3