From 20d1fd4dae608aabcc908abd29036fb9cc58abcc Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Fri, 10 Jan 2020 12:43:38 -0700 Subject: [PATCH 01/16] 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 27d04a32b61602aabd8ca8fc2310684a094d27c4 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 13 Jan 2020 13:58:39 -0700 Subject: [PATCH 02/16] agregando formatos de entradas.rdlc y salidas.rdlc a la 146 --- Compras/PopUpVerFactura.aspx.vb | 4 +- Empresas/146/Formatos/Factura.rdlc | 128 +++++++++++++++++++++++++++-- Empresas/80/Formatos/Entradas.rdlc | 6 ++ 3 files changed, 129 insertions(+), 9 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index afd814184..74cb73e65 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1471,7 +1471,7 @@ Partial Class PopUpVerFactura If Archivo.Exists Then 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH - If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145) Then + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then Dim CiudadSucursal As String = "" Dim DomicilioSucursal As String = "" Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) @@ -1487,7 +1487,7 @@ Partial Class PopUpVerFactura End If - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString)) diff --git a/Empresas/146/Formatos/Factura.rdlc b/Empresas/146/Formatos/Factura.rdlc index 593500dc1..ed8648fc9 100644 --- a/Empresas/146/Formatos/Factura.rdlc +++ b/Empresas/146/Formatos/Factura.rdlc @@ -1749,19 +1749,22 @@ - 2.12527cm + 1.34132cm - 2.02474cm + 1.32237cm - 10.17786cm + 2.53649cm + + + 8.96945cm 2.52862cm - 3.15415cm + 3.27979cm @@ -1776,7 +1779,7 @@ - Cantidad + Cant. + + + + + + Textbox1 + + + #ff1037 + 2pt + 2pt + 2pt + 2pt + + + + @@ -1973,7 +2012,7 @@ =Fields!Cantidad.Value @@ -2041,6 +2080,48 @@ + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -2225,6 +2306,38 @@ + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -2336,6 +2449,7 @@ + @@ -2355,7 +2469,7 @@ 5.75246cm 0.11468cm 1.07241cm - 20.01064cm + 19.97804cm 26 + + true + true + + + + + =Parameters!Cuenta.Value + + + + + + + Cuenta + 0.47708in + 1.82615in + 0.25in + 4.42313in + 3 + + + 2pt + 2pt + 2pt + 2pt + + + =Parameters!Cuenta.Value Cuenta - 0.47708in - 1.82615in + 0.84375in 0.25in - 4.42313in + 5.42127in 3