From 750e39430fb4eb883e1f6818faa06dc41a740871 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Sun, 6 Oct 2019 20:28:00 -0700 Subject: [PATCH 01/23] =?UTF-8?q?--=20actualiza=20prep=C3=B3liza=20contabi?= =?UTF-8?q?lizada=20--=20recdpci=C3=B3n=20entrega,=20con=20devoluci=C3=B3n?= =?UTF-8?q?=20cancelada?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ashx/SIGWeb.ashx | 37 +++++++++++++++++++++++++++- Inventarios/RecepcionEntrega.aspx.vb | 7 +++--- 2 files changed, 40 insertions(+), 4 deletions(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index ae2cd9e34..daee5c0f4 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -38,7 +38,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Case "getfraccionarancelaria" GetFraccionArancelaria(context) Case "GetUser" - GetUser(context) + GetUser(context) + Case "ActualizaPreP" + ActualizaPrePoliza(context) End Select Catch ex As Exception @@ -62,6 +64,39 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState context.Response.Write(CveUsuario.ToString()) context.Response.StatusCode = 200 + End Sub + + Private Sub ActualizaPrePoliza(ByVal context As HttpContext) + Dim CvePrePoliza As Integer = context.Request("CvePrePoliza").ToString.ToEntero + Dim CveEmpresa As Integer = context.Request("CveEmpresa").ToString.ToEntero + Dim CveUsuario As Integer = context.Request("CveUsuario").ToString.ToEntero + Dim Empresa As New Empresa + Dim ObjConta As New ClsContabilidad + Dim Retorno As Integer = 0 + + Dim ObjEmpresa As New ClsSisEmpresas() + If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then + Empresa = ObjEmpresa.Empresa + End If + ObjEmpresa.Dispose() + Dim IdPoliza As Integer = -1 + + ObjConta.GetPrePoliza(CvePrePoliza, CveEmpresa) + IdPoliza = ObjConta.DtResultados.FiltroPrimeroValor("IdPoliza", "").ToEntero + + If IdPoliza > 0 Then + + ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) + If ObjConta.ContabilizarPrePoliza(CvePrePoliza, CveUsuario, Empresa, pIDPoliza:=IdPoliza) Then + Retorno = 200 + End If + Else + Retorno = 200 + End If + ObjConta.Dispose() + + 'context.Response.Write(CveUsuario.ToString()) + context.Response.StatusCode = Retorno End Sub Private Sub GetImg(ByVal context As HttpContext) diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index 8bb30551f..804bab7ee 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -1894,7 +1894,7 @@ Partial Class Inventarios_RecepcionEntrega '' TERMINA: APARTADOS ' COMIENZA: GARANTIAS - If TipoDocto.Contiene("Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then + If TipoDocto.Contiene("Rem") AndAlso UsuarioActual.CveEmpresa = 14000 AndAlso TipoMovimiento = 1 Then Dim CveAlmacenGarantia As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() Dim DtGarantias As DataTable = Nothing @@ -2080,10 +2080,11 @@ Partial Class Inventarios_RecepcionEntrega If TipoMovimiento = 1 Then ValorMultiplicador = 1 - ElseIf TipoMovimiento = 2 Then - ValorMultiplicador = -1 + 'debe de ir primero esta condición, porque la siguiente impide que llegue a esta ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) And (EsDevolucionVenta = 1) Then ValorMultiplicador = 1 + ElseIf TipoMovimiento = 2 Then + ValorMultiplicador = -1 End If Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) From 85fd91afb18c33dc397127dcea3e1f7837819773 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 7 Oct 2019 13:57:21 -0500 Subject: [PATCH 02/23] Asignaciones de OS listo --- OS/Asignaciones.aspx | 2 +- OS/Asignaciones.aspx.vb | 25 +++++++++++++++++++++++-- 2 files changed, 24 insertions(+), 3 deletions(-) diff --git a/OS/Asignaciones.aspx b/OS/Asignaciones.aspx index ea189147a..fb112083e 100644 --- a/OS/Asignaciones.aspx +++ b/OS/Asignaciones.aspx @@ -175,7 +175,7 @@
- diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index ce7b69d13..ddec422b5 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -26,6 +26,15 @@ Partial Class OS_Asignaciones ViewState("DtOSSubProyectos") = value End Set End Property + + Private Property DtTecnicosSubProyectos As DataTable + Get + Return CType(ViewState("DtTecnicosSubProyectos"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtTecnicosSubProyectos") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then @@ -163,6 +172,7 @@ Partial Class OS_Asignaciones dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"}) TecnicosResultado.Merge(dtAuxiliar) Next + DtTecnicosSubProyectos = TecnicosResultado DdlTecnico.DataSource = TecnicosResultado DdlTecnico.DataBind() DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1")) @@ -184,10 +194,21 @@ Partial Class OS_Asignaciones If row.FCCheckBox("ChbxAsignar").Checked Then time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", row.FCTextBox("FechaOS").Text, picker.Hour, picker.Minute, picker.AmPm)) - If Not ObjOS.UpdateOrdenesServiciosAsignadas(row.DataKey("CveOSDetalle").ToEntero, DdlTecnico.SelectedValue.ToEntero, row.FCTextBox("FechaOS").Text.ToDate, time, UsuarioActual.CveEmpresa) Then - TieneError = True + + If ObjOS.GetSubProyectosEstatusInicial(DdlTecnico.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then + Dim subProyectoDelTecnico As DataTable + subProyectoDelTecnico = ObjOS.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0}", row.DataKey("CveSubProyecto"))) + If subProyectoDelTecnico.Rows.Count > 0 Then + If Not ObjOS.UpdateOrdenesServiciosAsignadas(row.DataKey("CveOSDetalle").ToEntero, DdlTecnico.SelectedValue.ToEntero, row.FCTextBox("FechaOS").Text.ToDate, time, UsuarioActual.CveEmpresa) Then + TieneError = True + End If + Else + Alert("El técnico y la Orden de Servicio deben pertenecer al mismo subProyecto", TipoMensaje.MsgAdvertencia) + TieneError = True + End If End If + If Not TieneError Then If Not ObjOS.UpdateOrdenesServiciosEstatus(CveEstatusOS.ToEntero, UsuarioActual.CveUsuario, row.DataKey("CveOS").ToEntero) Then TieneError = True From 2035766c199d8221eac64919de071ba2ec6c45f3 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 7 Oct 2019 13:38:30 -0700 Subject: [PATCH 03/23] Salida Automatica de Almacen al facturar Cot --- Ventas/Ventas.aspx.vb | 24 ++++++++++++++++++------ 1 file changed, 18 insertions(+), 6 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 24c458fb8..0b9e6e136 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1598,6 +1598,14 @@ Partial Class Ventas End Set End Property + Private Property CvePrecioLista As Integer + Get + Return ViewState("CvePrecioLista").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CvePrecioLista") = value + End Set + End Property #End Region @@ -1652,6 +1660,7 @@ Partial Class Ventas ViewState("ClienteDesglosaIEPS") = False ViewState("ClienteRetIVA") = 0 ViewState("ClienteRetISR") = 0 + ViewState("CvePrecioLista") = 0 idCuentaContabilizacion = 1 CveEmpresaCRM = 0 CveAcercamientoCRM = 0 @@ -3848,6 +3857,7 @@ Partial Class Ventas DdlSubProyectoDatos.Items.Insert(0, New ListItem("Seleccione", "-1")) End If DdlSubProyectoDatos.SelectedValueExistInsert(DbRowVenta("CveSubProyecto").ToString, DbRowVenta("SubProyecto").ToString) + CargarAlmacenes() If DdlSubProyectoCobranza.Items.Count = 0 Then DdlSubProyectoCobranza.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -4444,7 +4454,7 @@ Partial Class Ventas End Function Private Sub CargarAlmacenes() - If CveVenta > 0 Then + If CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot" Then DivAlmacen.Visible = False Else Dim DTAlmacen As DataTable @@ -4605,6 +4615,8 @@ Partial Class Ventas ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR ViewState("CodCliente") = ObjCliente.Codigo + ViewState("CvePrecioLista") = ObjCliente.CvePrecioLista + ViewState("CliNoExt") = ObjCliente.NoExt ViewState("CliNoInt") = ObjCliente.NoInt ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim) @@ -5780,7 +5792,7 @@ Partial Class Ventas End If - If CveVenta > 0 Then + If CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot" Then If e.Row.DBCampo("CveConcepto").ToEntero = 3 Then CveAlmacenDevolucion = e.Row.DBCampo("CveAlmacen").ToEntero e.Row.FCCheckBox("cbInv").Visible = False End If @@ -13851,10 +13863,10 @@ Partial Class Ventas PU = 0 Dim PrecioSugerido As Decimal = 0 - Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero - If CvePrecioListaPS > 0 Then + 'Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero + If CvePrecioLista > 0 Then Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSAdicional) Then + If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, CvePS:=CvePSAdicional) Then PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal If PrecioSugerido = 0 Then @@ -14500,7 +14512,7 @@ Partial Class Ventas GvPS.DataBind() 'RECARGA GV INVENTARIO - If Not CveVenta > 0 Then + If Not CveVenta > 0 Or DdlTipoComprobante.SelectedValue = "Cot" Then DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2") CargaGVInv(DtInv) End If From 01a0579acc4358dff906ddee3b59592dfd6eb368 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 7 Oct 2019 14:22:37 -0700 Subject: [PATCH 04/23] =?UTF-8?q?Formato=20de=20Pagos=20en=20pesta=C3=B1a?= =?UTF-8?q?=20de=20Bancos=20de=20Proveedores?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Formatos/RepProveedoresPagosBancos.rdlc | 969 ++++++++++++++++++ 1 file changed, 969 insertions(+) create mode 100644 Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc diff --git a/Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc b/Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc new file mode 100644 index 000000000..ea4c41db8 --- /dev/null +++ b/Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc @@ -0,0 +1,969 @@ + + + + + + true + true + + + + + =Parameters!AgrupadoPor.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 4.42895cm + + + 3.2021cm + + + 3.36938cm + + + 2.89562cm + + + 3.34667cm + + + 2.5cm + + + + + 0.6cm + + + + + true + true + + + + + Factura + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Compra + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Ven. + + + + + + + Textbox13 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Movto. + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonado + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abreviatura + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveCompra.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value) + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveCompra.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value) + + + + + + + FechaVencimiento + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveCompra.Value), Fields!FolioPago.Value,"") + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Abonado.Value + + + + + + + Abonado + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.74272cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE PAGOS PROVEEDORES + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + - - - - - - Textbox15 - - - #4f81bd - Middle - 2pt - 2pt - - - - - - - - true - true - - - - - Unidad - - - - - - - Textbox33 - - - #4f81bd - Middle - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox17 - - - #4f81bd - Middle - 2pt - 2pt - - - - - - - - true - true - - - - - P/U - - - - - - - Textbox21 - - - #4f81bd - Middle - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox23 - - - #4f81bd - Middle - 2pt - 2pt - - - - - - - - 0.25521in - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!UM.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value*Fields!PU.Value - - - - - - - PU2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.03125in - - - - - true - true - - - - - - - - - - - - Textbox71 - - - - #1414ff - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - #1414ff - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - #1414ff - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox74 - - - - #1414ff - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox75 - - - - #1414ff - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - After - - - - - - Before - - - - DsOC - 2.02937in - 0.11465cm - 0.5in - 7.86284in - - - - - - true - true - - - - - Tipo - - - - - - - Textbox3 - 0.912in - 5.662in - 0.5cm - 2.24597in - 1 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha y hora de emisión - - - - - - - - - - - - - - - - Textbox3 - 0.46414in - 5.662in - 0.5cm - 2.24597in - 2 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Serie.Value - - - - - - - - - =Parameters!Folio.Value - - - - - - - Textbox3 - 0.22455in - 5.662in - 0.60856cm - 2.24597in - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - FACTURA - - - - - - - Textbox3 - 0.0412cm - 5.662in - 0.5cm - 2.24597in - 4 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Empresa.Value - - - - - - - - - GralesR.F.C - - - - =Parameters!RFC.Value - - - - - - - Textbox4 - 1.78362in - 0.46414in - 3.96172in - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - SON: ( - - - - =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) - - - - ) - - - - - - - ImporteLetra - 2.53743in - 1.39103in - 0.23264in - 4.73657in - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SelloCFDI.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SelloSAT.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CadenaOriginal.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!QR.Value - FitProportional - 4.61035in - 0.03124in - 1.46528in - 1.56699in - 10 - - - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.2607cm - 0.03093cm - 2.88998cm - 4.56434cm - 11 - - - - - - true - true - - - - - =Parameters!Fecha.Value - - - - - - - Textbox3 - 0.66099in - 5.662in - 0.25114in - 2.24597in - 12 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Tipo.Value - - - - - - - Textbox3 - 1.10885in - 5.662in - 0.20721in - 2.24597in - 13 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Domicilio Fiscal - - - - - - - - - =Parameters!DomicilioExpedicion.Value - - - - - - - Textbox10 - 0.46414in - 1.87861in - 0.69679in - 1.65152in - 14 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Lugar de Expedición - - - - - - - - - =Parameters!DomicilioExpedicion.Value - - - - - - - Textbox10 - 0.46414in - 3.84822in - 0.69679in - 1.786in - 15 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Nombre - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Dirección - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteDireccion.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Cuidad - - - - - - - #4f81bd - - 1.25pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteLugar.Value - - - - RFC: - - - - =Parameters!ClienteRFC.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sub Total 1 - - - - - - - Textbox19 - 2.55788in - 6.15538in - 0.21875in - 0.84815in - 22 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Descuento - - - - - - - Textbox19 - 2.77396in - 6.15538in - 0.21875in - 0.84815in - 23 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Amort. Ant - - - - - - - Textbox19 - 2.99271in - 6.15538in - 0.21875in - 0.84815in - 24 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sub Total 2 - - - - - - - Textbox19 - 3.21146in - 6.15538in - 0.21875in - 0.84815in - 25 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IVA (16%) - - - - - - - Textbox19 - 3.43021in - 6.15538in - 0.21875in - 0.84815in - 26 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Total - - - - - - - Textbox19 - 3.64584in - 6.15538in - 0.21875in - 0.84815in - 27 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIF(Parameters!SubTotal.Value.ToString="","-",Parameters!SubTotal.Value) - - - - - - - Textbox42 - 2.5756in - 7.00353in - 0.19253in - 0.89055in - 28 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIF(Parameters!Amortizacion.Value.ToString="","-",Parameters!Amortizacion.Value) - - - - - - - Textbox42 - 2.97299in - 7.00353in - 0.22222in - 0.89054in - 29 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =iif(Parameters!Descuento.Value.ToString = "", "-",Parameters!Descuento.Value) - - - - - - - Textbox42 - 2.76813in - 7.00353in - 0.20486in - 0.89054in - 30 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIF(Parameters!SubTotal2.Value.ToString="","-",Parameters!SubTotal2.Value) - - - - - - - Textbox42 - 3.19521in - 7.00353in - 0.23803in - 0.89054in - 31 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =iif(Parameters!IVA.Value.ToString="","-",Parameters!IVA.Value) - - - - - - - Textbox42 - 3.43324in - 7.00353in - 0.2126in - 0.89054in - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Total.Value - - - - - - - Textbox42 - 3.64584in - 7.00353in - 0.21875in - 0.89054in - 33 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Importe con letra: - - - - - - - Textbox19 - 2.53316in - 0.03124in - 0.2053in - 1.35979in - 34 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Forma de pago: - - - - - - - Textbox19 - 2.73851in - 0.03124in - 0.22222in - 1.35979in - 35 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sello digital del CFDI: - - - - - - - Textbox19 - 2.96073in - 0.03124in - 0.61916in - 1.35979in - 36 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sello del SAT: - - - - - - - Textbox19 - 3.57989in - 0.03124in - 0.30208in - 1.36417in - 37 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Cadena original del complemento de certificación digital del SAT: - - - - - - - Textbox19 - 3.92015in - 0.03056in - 0.21875in - 7.87741in - 38 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FormaPago.Value - - - - - - - ImporteLetra - 2.73851in - 1.39103in - 0.20833in - 4.73657in - 39 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Folio Fiscal: - - - - - - - Textbox54 - 4.59646in - 1.65378in - 0.18056in - 4.388in - 40 - - - - - - - White - - - - - - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - No. Serie del Certificado del SAT: - - - - - - - Textbox54 - 4.79091in - 1.65378in - 0.18056in - 4.388in - 41 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha y Hora de certificación: - - - - - - - Textbox54 - 5.00196in - 1.65378in - 0.19444in - 4.40189in - 42 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Certificado del Contribuyente: - - - - - - - Textbox54 - 5.20757in - 1.65378in - 0.19445in - 4.40189in - 43 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FolioFiscal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaCertificacion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CertificadoContribuyente.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Regímen: Regímen General de Ley Personas Morales; Condiciones de pago: - - - - =Parameters!CondicionPago.Value - - - - ; Método de Pago: - - - - =Parameters!MetodoPago.Value - - - - ; Num. Cta Pago: - - - - =Parameters!NumCta.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Éste documento es una representacion impresa de un CFDi - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - P A G A R E con Folio - - - - =Parameters!Serie.Value - - - - - - - - - =Parameters!Folio.Value - - - - Por éste pagare prometo (emos) pagar incondicionalmente a la orden de - - - - =Parameters!Empresa.Value - - - - a su vencimiento el - - - - =Parameters!Vencimiento.Value - - - - , en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ - - - - =Parameters!Total.Value - - - - SON: ( - - - - =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) - - - - ). Valor recibido a mi (nuestra) entera satisfaccion. la falta de pago de éste documento a su vencimiento dará derecho a - - - - =Parameters!Empresa.Value - - - - o tenedor, desde el dia siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionén. Lugar y Fecha de Suscripcion: Hermosillo, Sonora a - - - - =Parameters!Fecha.Value - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Nombre: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Dirección: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteNombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteDireccion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Acepto de conformidad - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.26711cm - 0.05457cm - 0cm - 0.57653cm - 7 - - - - - - 0.26711cm - 0.69053cm - 0cm - 0.57653cm - 8 - - - - - - 0.26711cm - 1.32627cm - 0cm - 0.57653cm - 9 - - - - - - 0.26711cm - 1.63234cm - 0cm - 0.57653cm - 10 - - - - - - 0.26711cm - 2.2683cm - 0cm - 0.57653cm - 11 - - - - - - 0.26711cm - 2.90404cm - 0cm - 0.57653cm - 12 - - - - - - 0.26711cm - 3.57348cm - 0cm - 0.57653cm - 13 - - - - - - 0.26711cm - 4.20944cm - 0cm - 0.57653cm - 14 - - - - - - 0.26711cm - 4.84518cm - 0cm - 0.57653cm - 15 - - - - - - 0.26711cm - 5.15125cm - 0cm - 0.57653cm - 16 - - - - - - 0.26711cm - 5.78721cm - 0cm - 0.57653cm - 17 - - - - - - 0.26711cm - 6.42295cm - 0cm - 0.57653cm - 18 - - - - - - 0.26711cm - 7.10321cm - 0cm - 0.57653cm - 19 - - - - - - 0.26711cm - 7.73917cm - 0cm - 0.57653cm - 20 - - - - - - 0.26711cm - 8.37491cm - 0cm - 0.57653cm - 21 - - - - - - 0.26711cm - 8.68098cm - 0cm - 0.57653cm - 22 - - - - - - 0.26711cm - 9.31694cm - 0cm - 0.57653cm - 23 - - - - - - 0.26711cm - 9.95268cm - 0cm - 0.57653cm - 24 - - - - - - 0.26711cm - 14.03363cm - 0cm - 0.57653cm - 25 - - - - - - 0.26711cm - 14.66959cm - 0cm - 0.57653cm - 26 - - - - - - 0.26711cm - 15.30533cm - 0cm - 0.57653cm - 27 - - - - - - 0.26711cm - 15.6114cm - 0cm - 0.57653cm - 28 - - - - - - 0.26711cm - 16.24736cm - 0cm - 0.57653cm - 29 - - - - - - 0.26711cm - 16.8831cm - 0cm - 0.57653cm - 30 - - - - - - 0.26711cm - 10.5767cm - 0cm - 0.57653cm - 31 - - - - - - 0.26711cm - 11.21266cm - 0cm - 0.57653cm - 32 - - - - - - 0.26711cm - 11.8484cm - 0cm - 0.57653cm - 33 - - - - - - 0.26711cm - 12.15447cm - 0cm - 0.57653cm - 34 - - - - - - 0.26711cm - 12.79043cm - 0cm - 0.57653cm - 35 - - - - - - 0.26711cm - 13.42617cm - 0cm - 0.57653cm - 36 - - - - - - 0.26711cm - 18.37745cm - 0cm - 0.57653cm - 37 - - - - - - 0.26711cm - 19.01341cm - 0cm - 0.57653cm - 38 - - - - - - 0.26711cm - 17.71435cm - 0cm - 0.57653cm - 39 - - - - - - true - 18.57368cm - 0.09423cm - 4.36819cm - 20.04854cm - 50 - - - - - - - - true - true - - - - - CFDI Relacionados - - - - - - - Textbox5 - 0.11382cm - 0.05336cm - 0.54004cm - 20.00281cm - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tipo Relación: - - - - - - - Textbox29 - 0.83025cm - 4.33636cm - 0.41981cm - 5.31841cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!TipoRelacionTexto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.42456cm - - - 2.05585cm - - - 3.03631cm - - - 7.7847cm - - - - - 0.44125cm - - - - - true - true - - - - - Folio - - - - - - - Textbox10 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox12 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox21 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Folio Fiscal - - - - - - - Textbox11 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.41479cm - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Fecha.Value - - - - - - - Fecha - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FolioFiscal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet4 - 1.39643cm - 2.83462cm - 0.85604cm - 15.30142cm - 3 - - - - - - true - true - - - - - VERSION 3.3 - - - - - - - Textbox5 - 2.28775cm - 17.08931cm - 0.6cm - 3.06609cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 15.56744cm - 0.07745cm - 2.97096cm - 20.1554cm - 51 - - =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) - - - - - - - 22.94187cm - + + + + + + Textbox15 + + + #4f81bd + Middle + 2pt + 2pt + + + + + + + + true + true + + + + + Unidad + + + + + + + Textbox33 + + + #4f81bd + Middle + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox17 + + + #4f81bd + Middle + 2pt + 2pt + + + + + + + + true + true + + + + + P/U + + + + + + + Textbox21 + + + #4f81bd + Middle + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox23 + + + #4f81bd + Middle + 2pt + 2pt + + + + + + + + 0.25521in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value*Fields!PU.Value + + + + + + + PU2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.03125in + + + + + true + true + + + + + + + + + + + + Textbox71 + + + + #1414ff + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + #1414ff + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + #1414ff + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox74 + + + + #1414ff + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox75 + + + + #1414ff + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DsOC + 2.02937in + 0.11465cm + 0.5in + 7.86284in + + + + + + true + true + + + + + Tipo + + + + + + + Textbox3 + 0.912in + 5.662in + 0.5cm + 2.24597in + 1 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y hora de emisión + + + + + + + + + + + + + + + + Textbox3 + 0.46414in + 5.662in + 0.5cm + 2.24597in + 2 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Serie.Value + + + + - + + + + =Parameters!Folio.Value + + + + + + + Textbox3 + 0.22455in + 5.662in + 0.60856cm + 2.24597in + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FACTURA + + + + + + + Textbox3 + 0.0412cm + 5.662in + 0.5cm + 2.24597in + 4 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Empresa.Value + + + + + + + + + GralesR.F.C + + + + =Parameters!RFC.Value + + + + + + + Textbox4 + 1.78362in + 0.46414in + 3.96172in + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SON: ( + + + + =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + ) + + + + + + + ImporteLetra + 2.53743in + 1.39103in + 0.23264in + 4.73657in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SelloCFDI.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SelloSAT.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CadenaOriginal.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 4.61035in + 0.03124in + 1.46528in + 1.56699in + 10 + + + + + + External + + FitProportional + 0.2607cm + 0.03093cm + 2.88998cm + 4.56434cm + 11 + + + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox3 + 0.66099in + 5.662in + 0.25114in + 2.24597in + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Tipo.Value + + + + + + + Textbox3 + 1.10885in + 5.662in + 0.20721in + 2.24597in + 13 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Domicilio Fiscal + + + + + + + + + =Parameters!DomicilioExpedicion.Value + + + + + + + Textbox10 + 0.46414in + 1.87861in + 0.69679in + 1.65152in + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Lugar de Expedición + + + + + + + + + =Parameters!DomicilioExpedicion.Value + + + + + + + Textbox10 + 0.46414in + 3.84822in + 0.69679in + 1.786in + 15 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Nombre + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Dirección + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteDireccion.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Cuidad + + + + + + + #4f81bd + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteLugar.Value + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sub Total 1 + + + + + + + Textbox19 + 2.55788in + 6.15538in + 0.21875in + 0.84815in + 22 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Descuento + + + + + + + Textbox19 + 2.77396in + 6.15538in + 0.21875in + 0.84815in + 23 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Amort. Ant + + + + + + + Textbox19 + 2.99271in + 6.15538in + 0.21875in + 0.84815in + 24 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sub Total 2 + + + + + + + Textbox19 + 3.21146in + 6.15538in + 0.21875in + 0.84815in + 25 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IVA (16%) + + + + + + + Textbox19 + 3.43021in + 6.15538in + 0.21875in + 0.84815in + 26 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total + + + + + + + Textbox19 + 3.64584in + 6.15538in + 0.21875in + 0.84815in + 27 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!SubTotal.Value.ToString="","-",Parameters!SubTotal.Value) + + + + + + + Textbox42 + 2.5756in + 7.00353in + 0.19253in + 0.89055in + 28 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!Amortizacion.Value.ToString="","-",Parameters!Amortizacion.Value) + + + + + + + Textbox42 + 2.97299in + 7.00353in + 0.22222in + 0.89054in + 29 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Parameters!Descuento.Value.ToString = "", "-",Parameters!Descuento.Value) + + + + + + + Textbox42 + 2.76813in + 7.00353in + 0.20486in + 0.89054in + 30 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!SubTotal2.Value.ToString="","-",Parameters!SubTotal2.Value) + + + + + + + Textbox42 + 3.19521in + 7.00353in + 0.23803in + 0.89054in + 31 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Parameters!IVA.Value.ToString="","-",Parameters!IVA.Value) + + + + + + + Textbox42 + 3.43324in + 7.00353in + 0.2126in + 0.89054in + 32 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox42 + 3.64584in + 7.00353in + 0.21875in + 0.89054in + 33 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Importe con letra: + + + + + + + Textbox19 + 2.53316in + 0.03124in + 0.2053in + 1.35979in + 34 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Forma de pago: + + + + + + + Textbox19 + 2.73851in + 0.03124in + 0.22222in + 1.35979in + 35 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sello digital del CFDI: + + + + + + + Textbox19 + 2.96073in + 0.03124in + 0.61916in + 1.35979in + 36 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sello del SAT: + + + + + + + Textbox19 + 3.57989in + 0.03124in + 0.30208in + 1.36417in + 37 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + Textbox19 + 3.92015in + 0.03056in + 0.21875in + 7.87741in + 38 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FormaPago.Value + + + + + + + ImporteLetra + 2.73851in + 1.39103in + 0.20833in + 4.73657in + 39 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio Fiscal: + + + + + + + Textbox54 + 4.59646in + 1.65378in + 0.18056in + 4.388in + 40 + + + + + + + White + + + + + + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. Serie del Certificado del SAT: + + + + + + + Textbox54 + 4.79091in + 1.65378in + 0.18056in + 4.388in + 41 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora de certificación: + + + + + + + Textbox54 + 5.00196in + 1.65378in + 0.19444in + 4.40189in + 42 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Certificado del Contribuyente: + + + + + + + Textbox54 + 5.20757in + 1.65378in + 0.19445in + 4.40189in + 43 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaCertificacion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Regímen: Regímen General de Ley Personas Morales; Condiciones de pago: + + + + =Parameters!CondicionPago.Value + + + + ; Método de Pago: + + + + =Parameters!MetodoPago.Value + + + + ; Num. Cta Pago: + + + + =Parameters!NumCta.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Éste documento es una representacion impresa de un CFDi + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + P A G A R E con Folio + + + + =Parameters!Serie.Value + + + + - + + + + =Parameters!Folio.Value + + + + Por éste pagare prometo (emos) pagar incondicionalmente a la orden de + + + + =Parameters!Empresa.Value + + + + a su vencimiento el + + + + =Parameters!Vencimiento.Value + + + + , en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ + + + + =Parameters!Total.Value + + + + SON: ( + + + + =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + ). Valor recibido a mi (nuestra) entera satisfaccion. la falta de pago de éste documento a su vencimiento dará derecho a + + + + =Parameters!Empresa.Value + + + + o tenedor, desde el dia siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionén. Lugar y Fecha de Suscripcion: Hermosillo, Sonora a + + + + =Parameters!Fecha.Value + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Nombre: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Dirección: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteNombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteDireccion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Acepto de conformidad + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.26711cm + 0.05457cm + 0cm + 0.57653cm + 7 + + + + + + 0.26711cm + 0.69053cm + 0cm + 0.57653cm + 8 + + + + + + 0.26711cm + 1.32627cm + 0cm + 0.57653cm + 9 + + + + + + 0.26711cm + 1.63234cm + 0cm + 0.57653cm + 10 + + + + + + 0.26711cm + 2.2683cm + 0cm + 0.57653cm + 11 + + + + + + 0.26711cm + 2.90404cm + 0cm + 0.57653cm + 12 + + + + + + 0.26711cm + 3.57348cm + 0cm + 0.57653cm + 13 + + + + + + 0.26711cm + 4.20944cm + 0cm + 0.57653cm + 14 + + + + + + 0.26711cm + 4.84518cm + 0cm + 0.57653cm + 15 + + + + + + 0.26711cm + 5.15125cm + 0cm + 0.57653cm + 16 + + + + + + 0.26711cm + 5.78721cm + 0cm + 0.57653cm + 17 + + + + + + 0.26711cm + 6.42295cm + 0cm + 0.57653cm + 18 + + + + + + 0.26711cm + 7.10321cm + 0cm + 0.57653cm + 19 + + + + + + 0.26711cm + 7.73917cm + 0cm + 0.57653cm + 20 + + + + + + 0.26711cm + 8.37491cm + 0cm + 0.57653cm + 21 + + + + + + 0.26711cm + 8.68098cm + 0cm + 0.57653cm + 22 + + + + + + 0.26711cm + 9.31694cm + 0cm + 0.57653cm + 23 + + + + + + 0.26711cm + 9.95268cm + 0cm + 0.57653cm + 24 + + + + + + 0.26711cm + 14.03363cm + 0cm + 0.57653cm + 25 + + + + + + 0.26711cm + 14.66959cm + 0cm + 0.57653cm + 26 + + + + + + 0.26711cm + 15.30533cm + 0cm + 0.57653cm + 27 + + + + + + 0.26711cm + 15.6114cm + 0cm + 0.57653cm + 28 + + + + + + 0.26711cm + 16.24736cm + 0cm + 0.57653cm + 29 + + + + + + 0.26711cm + 16.8831cm + 0cm + 0.57653cm + 30 + + + + + + 0.26711cm + 10.5767cm + 0cm + 0.57653cm + 31 + + + + + + 0.26711cm + 11.21266cm + 0cm + 0.57653cm + 32 + + + + + + 0.26711cm + 11.8484cm + 0cm + 0.57653cm + 33 + + + + + + 0.26711cm + 12.15447cm + 0cm + 0.57653cm + 34 + + + + + + 0.26711cm + 12.79043cm + 0cm + 0.57653cm + 35 + + + + + + 0.26711cm + 13.42617cm + 0cm + 0.57653cm + 36 + + + + + + 0.26711cm + 18.37745cm + 0cm + 0.57653cm + 37 + + + + + + 0.26711cm + 19.01341cm + 0cm + 0.57653cm + 38 + + + + + + 0.26711cm + 17.71435cm + 0cm + 0.57653cm + 39 + + + + + + true + 18.57368cm + 0.09423cm + 4.36819cm + 20.04854cm + 50 + + + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.11382cm + 0.05336cm + 0.54004cm + 20.00281cm + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo Relación: + + + + + + + Textbox29 + 0.83025cm + 4.33636cm + 0.41981cm + 5.31841cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TipoRelacionTexto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.42456cm + + + 2.05585cm + + + 3.03631cm + + + 7.7847cm + + + + + 0.44125cm + + + + + true + true + + + + + Folio + + + + + + + Textbox10 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox21 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio Fiscal + + + + + + + Textbox11 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet4 + 1.39643cm + 2.83462cm + 0.85604cm + 15.30142cm + 3 + + + + + + true + true + + + + + VERSION 3.3 + + + + + + + Textbox5 + 2.28775cm + 17.08931cm + 0.6cm + 3.06609cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 15.56744cm + 0.07745cm + 2.97096cm + 20.1554cm + 51 + + =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) + + + + + + + 22.94187cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 2.93848cm + + + 2.03567cm + + + 2.05941cm + + + 1.81083cm + + + 2.57937cm + + + 2.63993cm + + + 1.15279cm + + + 2.12518cm + + + 2.5cm + + + + + 0.6cm + + + + + true + true + + + + + Factura + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Venc + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Días Venc + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo Orig + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonado + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % Pagado + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cheque + + + + + + + Textbox6 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaVencimiento.Value + + + + + + + FechaVencimiento + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!DiasVencidos.Value + + + + + + + DiasVencidos + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + =Fields!Original.Value + + + + + + + Original + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abonado.Value + + + + + + + Abonado1 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PorPagado.Value + + + + + + + Textbox5 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FolioPago.Value + + + + + + + FolioPago + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.84166cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + HISTORIAL DE COMPRAS PAGADAS + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 2.19765cm + + + 1.45359cm + + + 2.05941cm + + + 1.81083cm + + + 1.65333cm + + + 2.15604cm + + + 1.28417cm + + + 2.19105cm + + + 1.83854cm + + + 1.54967cm + + + 1.67385cm + + + + + 0.6cm + + + + + true + true + + + + + Banco + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + # Suc. + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Num. Cuenta + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CLABE + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SWIFT + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Plaza + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CIE + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Referencia + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cred. Prov. + + + + + + + Textbox5 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Moneda + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Estatus + + + + + + + Textbox13 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!BancoNombre.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Sucursal.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cuenta.Value + + + + + + + Cuenta + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CLABE.Value + + + + + + + CLABE + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SWIFT.Value + + + + + + + SWIFT + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Plaza.Value + + + + + + + Plaza + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CIE.Value + + + + + + + CIE + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Referencia.Value + + + + + + + Referencia + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!RefCrediProveedor.Value + + + + + + + RefCrediProveedor + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Moneda.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Estatus.Value + + + + + + + Estatus + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.86813cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE CUENTAS BANCARIAS + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 2.19765cm + + + 2.03567cm + + + 2.05941cm + + + 1.81083cm + + + 2.15604cm + + + 2.28833cm + + + 2.05146cm + + + 2.19105cm + + + 1.15279cm + + + 1.89843cm + + + + + 0.6cm + + + + + true + true + + + + + Factura + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Venc + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Días Venc + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo Orig + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonado + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % Abonado + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % A Pagar + + + + + + + Textbox20 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaVencimiento.Value + + + + + + + FechaVencimiento + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!DiasVencidos.Value + + + + + + + DiasVencidos + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + =Fields!Original.Value + + + + + + + Original + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abonado.Value + + + + + + + Abonado1 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!PorPagado.Value + + + + + + + PorPagado + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo1 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PorXPagar.Value + + + + + + + PorXPagar + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.84166cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE CXP ACTIVAS + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 1.53744cm + + + 2.19765cm + + + 3.74229cm + + + 2.05941cm + + + 2.23416cm + + + 2.15604cm + + + 2.5cm + + + 2.28834cm + + + 1.15279cm + + + + + 0.6cm + + + + + true + true + + + + + Tipo + + + + + + + Textbox6 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Factura + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sub Total + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descuento + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Amortización + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!TipoDocto.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descripcion.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( Fields!SubTotal.Value = 0, "",Fields!SubTotal.Value) + + + + + + + FolioCobro + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + = IIF( Fields!Descuento.Value = 0, "",Fields!Descuento.Value) + + + + + + + Textbox23 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + = IIF( Fields!Amortizacion.Value = 0, "",Fields!Amortizacion.Value) + + + + + + + Textbox25 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + true + + + + + + true + true + + + + + = IIF( Fields!Total.Value = 0, "",Fields!Total.Value) + + + + + + + Abonado + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.86812cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE HISTORIAL DE COMPRAS + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 5.2227cm + + + 3.89002cm + + + 4.04001cm + + + 4.18893cm + + + 2.5cm + + + + + 0.6cm + + + + + true + true + + + + + NC/Anticipo + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Original + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =IIf(Fields!SerieFolio.Value = "", Fields!TipoDocto.Value, Fields!SerieFolio.Value) + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + = IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Original.Value + + + + + + + Original + + + = IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo + + + = IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + true + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.84166cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + NOTAS DE CRÉDITO POR APLICAR / ANTICIPOS POR COMPROBAR + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + @@ -754,7 +754,9 @@ - Textbox10 @@ -780,14 +782,16 @@ - =Parameters!FechaImpresion.Value + =Globals!ExecutionTime - Textbox11 @@ -964,6 +968,7 @@ ReportParameter1 + es-MX Cm 40c94aad-a12a-44fb-ab0d-ea36a9656792 \ No newline at end of file From 4a3c288410ea4036360db499f2c00690d9a1c703 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 8 Oct 2019 14:11:12 -0700 Subject: [PATCH 11/23] Se agregaron campos para registrar el descuento por marca --- App_Code/ClsProductosServicios.vb | 8 ++++++-- Ventas/Clientes.aspx | 6 +++--- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index f32ed4378..43926b628 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -1858,7 +1858,7 @@ Public Class ClsProductosServicios Return Retorno End Function - Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, CveUsuario As Integer) As Boolean + Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, CveUsuario As Integer, Optional ProntoPago As Decimal = -1, Optional Plazo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PorcentajeMarcasAdd") @@ -1870,6 +1870,8 @@ Public Class ClsProductosServicios .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2 .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3 .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@ProntoPago", SqlDbType.SmallMoney).Value = ProntoPago + .Add("@Plazo", SqlDbType.SmallInt).Value = Plazo End With Try @@ -1881,7 +1883,7 @@ Public Class ClsProductosServicios Return Retorno End Function - Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal) As Boolean + Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, Optional ProntoPago As Decimal = -1, Optional Plazo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PorcentajeMarcasUpdate") @@ -1892,6 +1894,8 @@ Public Class ClsProductosServicios .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2 .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3 + .Add("@ProntoPago", SqlDbType.SmallMoney).Value = ProntoPago + .Add("@Plazo", SqlDbType.SmallInt).Value = Plazo End With Try diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 71d0fff76..c6897ef00 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -5501,9 +5501,9 @@ Marca <%-- Precio
General --%> - % - % - % + DCTO COM + DCTO ADIC 1 + DCTO ADIC 2 <%-- Precio
Aplicado --%> From f81ceedca35ef125ebb131f6f742149b1418f62a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 8 Oct 2019 17:45:01 -0700 Subject: [PATCH 12/23] Validar saldo de almacen al realizar devolucion,cancelacion de devoluciones --- App_Code/Modelos.vb | 132 ++++++++++++++++++++++++++++++++++++-------- 1 file changed, 110 insertions(+), 22 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 17149b773..3715fdc45 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2180,7 +2180,7 @@ Namespace Modelos IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria End If - Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) + Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) * ValorMultiplicador If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovtoFluctua, ImporteFluctuacion, Referencia, CveConceptoFluctua, Concepto, FechaMovimiento, IdCtaContableFluctua, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString.ToEntero, ImporteMX:=ImporteFluctuacion, ImporteME:=ImporteFluctuacion, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=TipoCambioNC, TipoCambioPago:=Dr("TCCambioValuacion").ToString.ToDecimal, CveCuenta:=CveCuenta) Then ErrorPrepoliza = True @@ -2273,7 +2273,7 @@ Namespace Modelos IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria End If - Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimientoDev * difFluctuacion).RoundSQL) + Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimientoDev * difFluctuacion).RoundSQL) * ValorMultiplicador If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovtoFluctua, ImporteFluctuacion, Referencia, CveConceptoFluctua, Concepto, FechaMovimiento, IdCtaContableFluctua, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=CveVentaDevolucion, ImporteMX:=ImporteFluctuacion, ImporteME:=ImporteFluctuacion, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, TipoCambioPago:=TipoCambioFactura, CveCuenta:=CveCuenta) Then ErrorPrepoliza = True @@ -2439,30 +2439,118 @@ Namespace Modelos CveSubProyectoContabilizar = CveSubProyectoVenta - If importeMovimiento <> 0 Then - - If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 251, Concepto, FechaMovimiento, - IdCtaContable, -1, CveVenta:=row2("CveVentaNC").ToString.ToEntero, - CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=ObjFactura.CveVenta, - ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), - CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, importeMovimiento, Referencia, 91, Concepto, - FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, - CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2("CveVentaNC").ToString.ToEntero, - ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, - CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then - ErrorPrepoliza = True - Exit For - End If - Else - ErrorPrepoliza = True - Exit For + If importeMovimiento <> 0 Then + + Dim Importe91 As Decimal = 0 + Dim ImporteMN91 As Decimal = 0 + Dim Importe251 As Decimal = 0 + Dim ImporteMN251 As Decimal = 0 + + If ObjFactura.CveMoneda = 1 AndAlso Not row2("TCCambioValuacion").ToString.ToDecimal > 1 Then + Importe251 = row2("Importe").ToString.ToDecimal + Importe91 = row2("Importe").ToString.ToDecimal + ImporteMN91 = row2("Importe").ToString.ToDecimal + tipoCambio = 1 + ElseIf ObjFactura.CveMoneda = 2 AndAlso Not row2("TCCambioValuacion").ToString.ToDecimal > 1 Then + Importe251 = row2("Importe").ToString.ToDecimal + Importe91 = row2("Importe").ToString.ToDecimal + ImporteMN91 = row2("Importe").ToString.ToDecimal * tipoCambio + ElseIf ObjFactura.CveMoneda = 2 AndAlso row2("TCCambioValuacion").ToString.ToDecimal > 1 Then + Importe251 = row2("Importe").ToString.ToDecimal + Importe91 = row2("Importe").ToString.ToDecimal + ImporteMN91 = row2("Importe").ToString.ToDecimal * tipoCambio + ElseIf ObjFactura.CveMoneda = 1 AndAlso row2("TCCambioValuacion").ToString.ToDecimal > 1 Then + + Importe91 = row2("Importe").ToString.ToDecimal / tipoCambio + ImporteMN91 = row2("Importe").ToString.ToDecimal + End If + + Dim TCFluctuacion As Decimal = row2("TCCambioValuacion").ToString.ToDecimal + + If TCFluctuacion = 1 AndAlso tipoCambio > 1 Then + TCFluctuacion = GlobalTipoCambio(ObjFactura.Fecha).ToDecimal + End If + + If ObjFactura.CveMoneda = 2 AndAlso Not row2("TCCambioValuacion").ToString.ToDecimal > 1 Then + ImporteMN251 = row2("Importe").ToString.ToDecimal * TCFluctuacion + ElseIf ObjFactura.CveMoneda = 2 AndAlso row2("TCCambioValuacion").ToString.ToDecimal > 1 Then + ImporteMN251 = row2("Importe").ToString.ToDecimal * TCFluctuacion + ElseIf ObjFactura.CveMoneda = 1 AndAlso row2("TCCambioValuacion").ToString.ToDecimal > 1 Then + Importe251 = row2("Importe").ToString.ToDecimal / TCFluctuacion + ImporteMN251 = row2("Importe").ToString.ToDecimal + Else + ImporteMN251 = row2("Importe").ToString.ToDecimal + End If + + Importe251 = (Importe251 * Multiplicador * ValorMultiplicador).RoundSQL + ImporteMN251 = ImporteMN251 * ValorMultiplicador + Importe91 = (Importe91 * ValorMultiplicador).RoundSQL + ImporteMN91 = (ImporteMN91 * Multiplicador * ValorMultiplicador).RoundSQL + + + If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${Importe91.FormatoNumero(2)}" + + Dim CveUltimaVenta = row2("CveVenta").ToString.ToEntero + + Dim ImporteComplementarioIngreso As Decimal = 0 + If UsaComplementariaClientes = True AndAlso tipoCambio > 1 Then + ImporteMN91 = Importe91 + ImporteComplementarioIngreso = ((Importe91 * tipoCambio) - Importe91).RoundSQL + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 203, Concepto, FechaMovimiento, ObjFactura.Cliente.IdCtaContComplementaria, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2("CveVenta").ToString.ToEntero, ImporteMX:=ImporteComplementarioIngreso, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, TipoCambioPago:=row2("TCCambioValuacion").ToString.ToDecimal) Then + ErrorPrepoliza = True + Exit For + End If + End If + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2("CveVenta").ToString.ToEntero, ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then + ErrorPrepoliza = True + Exit For + End If + + + If UsaComplementariaClientes = True AndAlso row2("TCCambioValuacion").ToString.ToDecimal > 1 Then + ImporteMN251 = Importe251 + Dim ImporteComplementarioNC As Decimal = ((Importe251 * row2("TCCambioValuacion").ToString.ToDecimal) - Importe251).RoundSQL + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, Importe251, Referencia, 207, Concepto, FechaMovimiento, ObjFactura.Cliente.IdCtaContComplementaria, -1, CveVenta:=row2("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, ImporteMX:=ImporteComplementarioNC, ImporteME:=If(row2("TCCambioValuacion").ToString.ToDecimal = 1, 0, Importe251), CveSubProyecto:=CveSubProyectoContabilizar, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=row2("TCCambioValuacion").ToString.ToDecimal) Then + ErrorPrepoliza = True + Exit For + End If + End If + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, Importe251, Referencia, 251, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, ImporteMX:=ImporteMN251, ImporteME:=If(row2("TCCambioValuacion").ToString.ToDecimal = 1, 0, Importe251), CveSubProyecto:=CveSubProyectoContabilizar, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=row2("TCCambioValuacion").ToString.ToDecimal, TipoCambioPago:=tipoCambio) Then + ErrorPrepoliza = True + Exit For + End If + + 'CONSIDERO FLUCTUACIÓN. + If tipoCambio <> TCFluctuacion AndAlso TCFluctuacion > 1 AndAlso tipoCambio > 1 Then + Dim difFluctuacion As Decimal = tipoCambio - TCFluctuacion + Dim CveConceptoFluctua As Integer = 64 '64.ganacia, 65.perdida + Dim TipoMovtoFluctua As Boolean = True + Dim IdCtaContableFluctua As Integer + If difFluctuacion < 0 Then + CveConceptoFluctua = 65 + TipoMovtoFluctua = False + IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria + CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria + Else + CveConceptoFluctua = 64 + TipoMovtoFluctua = True + IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria + CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria + End If + Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) * ValorMultiplicador + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovtoFluctua, ImporteFluctuacion, Referencia, CveConceptoFluctua, Concepto, FechaMovimiento, IdCtaContableFluctua, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2("CveVenta").ToString.ToEntero, ImporteMX:=ImporteFluctuacion, ImporteME:=ImporteFluctuacion, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, TipoCambioPago:=row2("TCCambioValuacion").ToString.ToDecimal, CveCuenta:=CveCuenta) Then + ErrorPrepoliza = True + Exit For + End If End If + End If End If Next End If - Else If ObjFactura.DtAnticipos IsNot Nothing Then For Each row2 As DataRow In ObjFactura.DtAnticipos.Rows @@ -4089,7 +4177,7 @@ Namespace Modelos Dim CveMovimiento As Integer = 0 Dim Folio As Integer = 0 - If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen Then + If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen AndAlso ObjFactura.SaldoAlmacen <> 0 Then Dim CveAlmacenDevolucion = ObjFactura.CveAlmacenDevolucion 'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN) From e437859f71f4c5f29f396c076f3b865837bc47bb Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 8 Oct 2019 17:45:38 -0700 Subject: [PATCH 13/23] Correccion de error al agregar geocercas --- GPS/EntradasSalidasGR.aspx | 4 ++-- GPS/GeoReferencias.aspx | 2 +- GPS/Rastreo.aspx | 12 ++++++------ GPS/RepPuntosDeInteres.aspx | 4 ++-- 4 files changed, 11 insertions(+), 11 deletions(-) diff --git a/GPS/EntradasSalidasGR.aspx b/GPS/EntradasSalidasGR.aspx index 0ea26b562..37d683f60 100644 --- a/GPS/EntradasSalidasGR.aspx +++ b/GPS/EntradasSalidasGR.aspx @@ -108,14 +108,14 @@
  • Fecha Inicio: -
    +
  • Fecha Fin: -
    +
    diff --git a/GPS/GeoReferencias.aspx b/GPS/GeoReferencias.aspx index 85c58731b..eda63fbc8 100644 --- a/GPS/GeoReferencias.aspx +++ b/GPS/GeoReferencias.aspx @@ -740,7 +740,7 @@ var r = polygon.getPath(); var s = ""; r.forEach(function (xy, i) { s += xy.lng() + ' ' + xy.lat() + ',' }); - s += r.j[0].lng() + ' ' + r.j[0].lat(); + //s += r.j[0].lng() + ' ' + r.j[0].lat(); $("#GeoCerca").val(s); $('#divAgregarTipo').modal({ backdrop: 'static', keyboard: false }); diff --git a/GPS/Rastreo.aspx b/GPS/Rastreo.aspx index afcb4ef52..ed844e803 100644 --- a/GPS/Rastreo.aspx +++ b/GPS/Rastreo.aspx @@ -398,14 +398,14 @@
    • Fecha Inicio: -
      +
    • Fecha Fin: -
      +
      @@ -474,7 +474,7 @@
      Minutos Tiempo Muerto:
      -
      +
      @@ -680,7 +680,7 @@
      • Fecha I.: -
        +
        <%-- @@ -688,7 +688,7 @@ --%>
      • Fecha F.: -
        +
        <%-- @@ -2360,7 +2360,7 @@ var r = polygon.getPath(); var s = ""; r.forEach(function (xy, i) { s += xy.lng() + ' ' + xy.lat() + ',' }) - s += r.j[0].lng() + ' ' + r.j[0].lat(); + //s += r.j[0].lng() + ' ' + r.j[0].lat(); $("#GeoCerca").val(s); $("#divAgregarGeoreferencia").modal(); diff --git a/GPS/RepPuntosDeInteres.aspx b/GPS/RepPuntosDeInteres.aspx index 934e353de..094b21a00 100644 --- a/GPS/RepPuntosDeInteres.aspx +++ b/GPS/RepPuntosDeInteres.aspx @@ -43,14 +43,14 @@
        • Fecha Inicio: -
          +
        • Fecha Fin: -
          +
          From fabc1e6ceb0ad95c486ed98bfa7e4274ab5e9d07 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Wed, 9 Oct 2019 10:26:22 -0700 Subject: [PATCH 14/23] Se agregaron campos para registrar el descuento por marca --- Ventas/Clientes.aspx | 56 ++++++++++++++++++++++++++++++++--------- Ventas/Clientes.aspx.vb | 14 +++++++++-- 2 files changed, 56 insertions(+), 14 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index c6897ef00..14e7030ea 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -5496,16 +5496,15 @@ - + - - <%-- --%> + - <%-- --%> + + + @@ -5532,7 +5531,7 @@ - <%-- --%> + + + + @@ -5576,7 +5586,7 @@ - + <%-- --%> @@ -5616,8 +5626,30 @@ + + + + + + + + + + + - <%-- --%> + + + + + + + + + + + + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index f5eaab928..1a9b73e99 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -8213,6 +8213,8 @@ Partial Class Clientes DTPorcentajeTemp.Columns.Add("PorcentajeProducto", GetType(Decimal)) DTPorcentajeTemp.Columns.Add("PorcentajeProducto2", GetType(Decimal)) DTPorcentajeTemp.Columns.Add("PorcentajeProducto3", GetType(Decimal)) + DTPorcentajeTemp.Columns.Add("ProntoPago", GetType(Decimal)) + DTPorcentajeTemp.Columns.Add("Plazo", GetType(Integer)) DTPorcentajeTemp.Columns.Add("Estatus", GetType(String)) DTPorcentajePrecios = DTPorcentajeTemp.Clone End Sub @@ -8252,6 +8254,8 @@ Partial Class Clientes txtPorcentaje.Text = "" txtPorcentaje2.Text = "" txtPorcentaje3.Text = "" + txtProntoPago.Text = "" + txtPlazo.Text = "" DdlMarcaPS.SelectedValue = "-1" End Sub @@ -8266,6 +8270,8 @@ Partial Class Clientes registro.Item("PorcentajeProducto") = txtPorcentaje.Text.ToDecimal registro.Item("PorcentajeProducto2") = txtPorcentaje2.Text.ToDecimal registro.Item("PorcentajeProducto3") = txtPorcentaje3.Text.ToDecimal + registro.Item("ProntoPago") = txtProntoPago.Text.ToDecimal + registro.Item("Plazo") = txtPlazo.Text.ToEntero registro.Item("Estatus") = "I" DTPorcentajePrecios.Rows.Add(registro) CargaDTPorcentajePrecios(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' ")) @@ -8317,6 +8323,8 @@ Partial Class Clientes Dim PorcentajeProducto As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPorcentajeP").Text.ToDouble Dim PorcentajeProducto2 As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPorcentajeP2").Text.ToDouble Dim PorcentajeProducto3 As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPorcentajeP3").Text.ToDouble + Dim ProntoPago As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtProntoPagoP").Text.ToDouble + Dim Plazo As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPlazoP").Text.ToDouble If PorcentajeProducto > 0 And PorcentajeProducto <= 100 And PorcentajeProducto2 >= 0 And PorcentajeProducto2 <= 100 And PorcentajeProducto3 >= 0 And PorcentajeProducto3 <= 100 Then Dim No As Integer = GvM.Rows(e.RowIndex).DataKey("No").ToEntero @@ -8327,6 +8335,8 @@ Partial Class Clientes Drs(0)("PorcentajeProducto") = PorcentajeProducto Drs(0)("PorcentajeProducto2") = PorcentajeProducto2 Drs(0)("PorcentajeProducto3") = PorcentajeProducto3 + Drs(0)("ProntoPago") = ProntoPago + Drs(0)("Plazo") = Plazo If Drs(0)("Estatus").ToString <> "I" Then Drs(0)("Estatus") = "U" End If @@ -8354,11 +8364,11 @@ Partial Class Clientes If Dr("Estatus").ToString <> "" Then If Dr("Estatus").ToString = "I" Then - If Not ObjPS.AddPorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal, UsuarioActual.CveUsuario) Then + If Not ObjPS.AddPorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal, UsuarioActual.CveUsuario, Dr("ProntoPago").ToString.ToDecimal, Dr("Plazo").ToString.ToEntero) Then TieneError = True End If ElseIf Dr("Estatus").ToString = "U" Then - If Not ObjPS.UpdatePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal) Then + If Not ObjPS.UpdatePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal, Dr("ProntoPago").ToString.ToDecimal, Dr("Plazo").ToString.ToEntero) Then TieneError = True End If ElseIf Dr("Estatus").ToString = "D" Then From f6b2882ba22c9c510ebae0f52071bf1c1def2722 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Wed, 9 Oct 2019 12:09:10 -0700 Subject: [PATCH 15/23] --- Compras/Compras.aspx | 1 + Compras/Compras.aspx.vb | 3 + Ventas/Clientes.aspx | 86 ++++- Ventas/Clientes.aspx.vb | 704 ++++++++++++++++++++++------------------ 4 files changed, 465 insertions(+), 329 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 7b6f8fcc3..7d98d7d6f 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -992,6 +992,7 @@ +
          TC: diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a09bfd53d..059d27dce 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2376,7 +2376,10 @@ Partial Class Compras_Compras CompraSaldo = TxtTotal.Text.ToDouble TipoCambio = dr("TipoCambio").ToString.ToDouble + Dim TipoCambioOriginal = dr("TipoCambioOriginal").ToString.ToDouble If TipoCambio > 1 Then LblTC.Text = String.Format("TC: {0}", TipoCambio.ToString("N4")) + If TipoCambio <> TipoCambioOriginal Then LblTCO.Text = String.Format("
          TC Original: {0}", TipoCambioOriginal.ToString("N4")) + AsignaValoresOriginales(TxtSubTotal.Text.ToDouble, TxtSubTotal2.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDouble) CalculaTotalPorDevengar() diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 14e7030ea..d848e5ff2 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1248,6 +1248,7 @@ Cotizaciones
          +
          + +
          +
          + + + + + + + + + + +
          +
          +
          @@ -1741,6 +1758,16 @@
          + + + + + + + + + +
          @@ -1814,6 +1841,16 @@
          + + + + + + + + + +
          @@ -1898,6 +1935,16 @@
          + + + + + + + + + +
          @@ -1944,6 +1991,16 @@
          + + + + + + + + + +
          @@ -2003,16 +2060,27 @@ Cuentas Bancarias -
          -
          -
          -
          + +
          +
          + + + + + + + + + + +
          +
          @@ -5496,7 +5564,7 @@
          #MarcaPrecio
          - General           		MARCA DCTO COM DCTO ADIC 1 DCTO ADIC 2Precio
          - Aplicado           		PRONTO PAGOPLAZO
          - + @@ -5547,9 +5546,20 @@ <%-- --%> - - + + +<%-- + --%> + + + +<%-- + --%> +
          - + @@ -5546,17 +5614,17 @@ <%-- --%> - + @@ -5638,7 +5706,7 @@ - + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 1a9b73e99..b35a407e5 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -9471,326 +9471,390 @@ Partial Class Clientes Next Return Timbre - End Function - - 'Private Function GenerarNotaCredito(CvePS As Integer, Tipo As Integer, CveUnidadMedida As Integer, Importe As Decimal, Iva As Decimal, Descripcion As String, CveClasificacion As Integer) As Boolean - - ' Dim Respuesta As Boolean = False - - ' Dim ObjVentas As New ClsVentas - ' Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL()) - ' Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL()) - - ' Dim ErrorVentas As Boolean = False - ' Dim SubTotal As Decimal = Importe - ' Dim Total As Decimal = Importe + Iva - - ' Dim RetIVA As Decimal = 0 - ' Dim RetISR As Decimal = 0 - ' Dim TipoCambio As Decimal = 0 - ' Dim FechaVencimiento As Date = Now - ' Dim fecha As Date = Now - - ' Dim Folio As Integer = 0 - ' Dim Serie As String = "" - - ' If FolioNotaCredito() Then - ' Folio = FolioNotaAcumulador - ' Serie = SerieNotaAcumulador - ' End If - - ' Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero - - ' Dim CveVenta As Integer - - ' If Folio > 0 Then - - ' Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas($"Clientes/{Descripcion}", 1, Total, Total, 1, fecha, "Nota de crédito por Cargo", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - ' If ObjVentas.AddVenta("Egs", Folio, CveCliente.ToEntero, -1, SubTotal, 0, 0, Iva, RetIVA, RetISR, Total, 1, TipoCambio, - ' 0, 0, 0, FechaVencimiento, fecha, "", "", fecha, -1, "", "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza, - ' UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=CveSubProyecto, CveSubProyectoEjecucion:=CveSubProyecto) Then - - ' CveVenta = ObjVentas.CveVenta - - ' If CveVenta > 0 Then - ' If ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, 0.16, SubTotal * 0.16, Descripcion, 0, 0, -1, 0) Then - - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio.ToString, 150, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=CveSubProyecto) Then - ' ErrorVentas = True - ' End If - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio.ToString, 12, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total) Then - ' ErrorVentas = True - ' End If - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Iva, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Iva) Then - ' ErrorVentas = True - ' End If - - ' If Not ErrorVentas Then - ' For Each GvRow As GridViewRow In GvAcum.Rows - ' Dim CveMovto As Integer = GvRow.DataKey("CveMovto").ToEntero - - ' If (Tipo = 1 And GvRow.FCCheckBox("ChkCargo").Checked) Or (Tipo = 2 And GvRow.FCCheckBox("ChkBonificacion").Checked) Then - - ' If ObjAcum.DistribuidorActualizarFacturados(CveMovto, UsuarioActual.CveEmpresa, Tipo, CveVenta) Then - ' Respuesta = True - ' ErrorVentas = False - ' CveVentaNota = CveVenta - ' Else - ' Respuesta = False - ' ErrorVentas = True - ' CveVentaNota = 0 - ' Exit For - ' End If - - ' End If - ' Next - ' End If - - - ' If Not ErrorVentas Then - ' Alert($"Nota de crédito generada correctamente {Serie}-{Folio}") - ' End If - - - ' Else - ' ErrorVentas = True - ' End If - ' Else - ' ErrorVentas = True - ' End If - - ' Else - ' ErrorVentas = True - ' End If - ' Else - ' Alert("No se pudo obtener el Folio.", TipoMensaje.MsgError) - ' End If - - - - ' If ErrorVentas Then - ' ObjVentas.RollBack() - ' Else - - ' ObjVentas.Commit() - ' CargaUsados() - - ' Dim DtDetallesVenta As New DataTable - - ' If ObjVentas.GetVentaDetalle(CveVenta) Then - - ' DtDetallesVenta = ObjVentas.DtResultados - ' 'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta) - - ' ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto) - - ' Dim ObjTimbrado As New Timbrado - ' Dim SeTimbro As Boolean = False - - ' SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) - - ' If SeTimbro Then - ' Alert("Se timbro correctamente") - ' Else - ' Alert("No se pudo timbrar, intente mas tarde.", TipoMensaje.MsgError) - ' End If - - ' Else - ' Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError) - ' End If - - ' End If - - - - ' ObjVentas.Dispose() - ' Return Respuesta - - 'End Function - 'Private Function generaNC(CveVenta As Integer, ByRef ObjVentas As ClsVentas, ByVal factura As Modelos.Factura) As List(Of Object) - - ' Dim Obj As New List(Of Object) - ' Dim CveVentaNueva As Integer = ObjVentas.CveVenta - ' Dim BanderaGeneraNC As Boolean = False - ' If UsuarioActual.CveEmpresa.Contiene(1, 119) Then BanderaGeneraNC = True - - ' If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then - ' If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - ' Dim drv As DataRow = ObjVentas.DtResultados.Rows(0) - ' Dim TmpDTconceptos As DataTable = Nothing - - ' ''CargaCliente - - ' Dim CveCliente As Integer = drv("CveCliente").ToString.ToEntero - ' If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not CveCliente.Contiene(10450, 10460, 10458) Then - ' Return Nothing - ' ElseIf UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 21 AndAlso Not CveCliente.Contiene(27448) Then - ' Return Nothing - ' End If - ' factura.TipoDocto = drv("TipoDocto").ToString - ' factura.Serie = drv("Serie").ToString - ' factura.FechaEjecucion = drv("FechaEjecucion").ToString.ToDateTime - ' factura.Fecha = drv("Fecha").ToString.ToDateTime - ' factura.CveSubProyectoEjecucion = drv("CveSubProyectoEjecucion").ToString.ToEntero - ' factura.CveSubProyectoCobranza = drv("CveSubProyectoCobranza").ToString.ToEntero - ' factura.CveClienteSucursal = drv("CveClienteSucursal").ToString.ToEntero - ' factura.CveSubProyecto = drv("CveSubProyecto").ToString.ToEntero - - - ' ''CargaDetalle - ' If ObjVentas.GetVentaDetalle(CveVenta) Then - ' TmpDTconceptos = ObjVentas.DtResultados - ' TmpDTconceptos.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) - ' GvPS.DataSource = TmpDTconceptos - ' GvPS.DataBind() - ' End If - - ' '' Carga Totales - ' factura.SubTotal = drv("SubTotal").ToString.ToDecimal - ' factura.Descuento = drv("Descuento").ToString.ToDecimal - ' factura.Amortizacion = drv("Amortizacion").ToString.ToDecimal - ' factura.IVA = drv("IVA").ToString.ToDecimal - ' factura.RetIVA = drv("RetIVA").ToString.ToDecimal - ' factura.RetISR = drv("RetISR").ToString.ToDecimal - ' factura.Total = drv("Total").ToString.ToDecimal - ' factura.MotivoDescuento = drv("MotivoDescuento").ToString - ' factura.Observaciones = drv("Observaciones").ToString - ' factura.CveMoneda = drv("CveMoneda").ToString.ToEntero - ' factura.TipoCambio = drv("TipoCambio").ToString.ToDecimal - ' factura.CveVendedor = drv("CveVendedor").ToString.ToEntero - ' factura.RefDocto = drv("Ref").ToString - - ' If factura.CveCliente > 0 Then - ' If Not IsNothing(TmpDTconceptos) AndAlso TmpDTconceptos.Rows.Count > 0 Then - - ' If Not drv("Total").ToString.ToDecimal = factura.Total Then - ' Return Nothing - ' End If - - - - ' End If - ' End If - ' End If - ' End If - - ' If Obj.Count > 0 Then - ' Return Obj - ' Else - ' Return Nothing - ' End If - - 'End Function - - 'Private Function PreParaTimbre(Obj As Modelos.Factura, CveSubProyecto As Integer) As CFDITimbre - - ' Dim Timbre As New CFDITimbre - ' Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", "")) - ' Timbre.Comprobante.Folio = Obj.Folio.ToString - ' Timbre.Comprobante.Serie = Obj.Serie - ' Timbre.Comprobante.Fecha = Obj.Fecha - ' Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - ' Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 - ' Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT - ' Timbre.Comprobante.Subtotal = Obj.SubTotal - - ' Timbre.Comprobante.Descuentos = Obj.Descuento - ' Timbre.Comprobante.Moneda = Obj.MonedaSAT - ' Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString) - ' Timbre.Comprobante.Total = Obj.Total - - ' Try - ' Obj.SetSubProyecto(Me) - ' Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP - ' Catch ex As Exception - - ' End Try - - ' Timbre.Comprobante.Confirmacion = "" - - ' Timbre.Receptor.RFC = TxtRFC.Text - ' Timbre.Receptor.Nombre = TxtNombre.Text - ' Timbre.Receptor.ResidenciaFiscal = "" - ' Timbre.Receptor.NumeroRegistroTributario = "" - ' Timbre.Receptor.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}") - - ' Dim totSubTotal As Decimal = Obj.SubTotal - ' Dim totIVA As Decimal = Obj.IVA - ' Dim totRetIVA As Decimal = Obj.RetIVA - ' Dim totRetISR As Decimal = Obj.RetISR - ' Dim TasaRetIVA As Decimal = 0 - ' Dim TasaRetISR As Decimal = 0 - ' Dim i As Integer = 1 - - ' ''detalles - ' Dim tPS As String = "" - - ' For Each drr As DataRow In Obj.DtDetalle.Rows - ' If drr("PS").ToString.Length = 1 Then - ' tPS = drr("Obs").ToString - ' Else - ' If drr("PS").ToString.Length = 0 Then - ' tPS = "" - ' Else - ' tPS = String.Format("{0} {1}", drr("PS"), drr("Obs")) - ' End If - ' End If - ' '' condicionante, especial - ' If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto - - ' Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal, - ' .Descripcion = tPS, - ' .ValorUnitario = drr("PU").ToString.ToDecimal, - ' .Importe = drr("TotalImporte").ToString.ToDecimal, - ' .Descuento = drr("Descuento").ToString.ToDecimal, - ' .Unidad = drr("UM").ToString, - ' .ClaveUnidad = drr("SATClaveUM").ToString, - ' .ClaveProdServ = drr("SATClaveProdServ").ToString, - ' .Noidentificacion = drr("Noidentificacion").ToString, - ' .CuentaPredial = drr("CuentaPredial").ToString} - ' '' verifica suma subtotales - ' If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales - ' concepto.Importe = totSubTotal - ' End If - ' totSubTotal = totSubTotal - concepto.Importe - - ' ''siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura - ' If drr("ImporteIVA").ToString.ToDouble > 0 Then - ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal}) - ' End If - - ' If drr("ImporteIEPS").ToString.ToDouble > 0 Then - ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal}) - ' End If - - ' If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones - ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal}) - ' End If - - ' If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR - ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal}) - ' End If - - ' Timbre.Conceptos.Add(concepto) - ' i += 1 - ' Next - - ' Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto)(0)("AplicaComercioExterior").ToString = "True", True, False) - ' Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto - - ' If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then - - ' Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais - ' Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib - - ' End If - - ' Return Timbre - 'End Function - + End Function + + 'Private Function GenerarNotaCredito(CvePS As Integer, Tipo As Integer, CveUnidadMedida As Integer, Importe As Decimal, Iva As Decimal, Descripcion As String, CveClasificacion As Integer) As Boolean + + ' Dim Respuesta As Boolean = False + + ' Dim ObjVentas As New ClsVentas + ' Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL()) + ' Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL()) + + ' Dim ErrorVentas As Boolean = False + ' Dim SubTotal As Decimal = Importe + ' Dim Total As Decimal = Importe + Iva + + ' Dim RetIVA As Decimal = 0 + ' Dim RetISR As Decimal = 0 + ' Dim TipoCambio As Decimal = 0 + ' Dim FechaVencimiento As Date = Now + ' Dim fecha As Date = Now + + ' Dim Folio As Integer = 0 + ' Dim Serie As String = "" + + ' If FolioNotaCredito() Then + ' Folio = FolioNotaAcumulador + ' Serie = SerieNotaAcumulador + ' End If + + ' Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero + + ' Dim CveVenta As Integer + + ' If Folio > 0 Then + + ' Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas($"Clientes/{Descripcion}", 1, Total, Total, 1, fecha, "Nota de crédito por Cargo", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + ' If ObjVentas.AddVenta("Egs", Folio, CveCliente.ToEntero, -1, SubTotal, 0, 0, Iva, RetIVA, RetISR, Total, 1, TipoCambio, + ' 0, 0, 0, FechaVencimiento, fecha, "", "", fecha, -1, "", "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza, + ' UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=CveSubProyecto, CveSubProyectoEjecucion:=CveSubProyecto) Then + + ' CveVenta = ObjVentas.CveVenta + + ' If CveVenta > 0 Then + ' If ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, 0.16, SubTotal * 0.16, Descripcion, 0, 0, -1, 0) Then + + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio.ToString, 150, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=CveSubProyecto) Then + ' ErrorVentas = True + ' End If + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio.ToString, 12, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total) Then + ' ErrorVentas = True + ' End If + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Iva, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Iva) Then + ' ErrorVentas = True + ' End If + + ' If Not ErrorVentas Then + ' For Each GvRow As GridViewRow In GvAcum.Rows + ' Dim CveMovto As Integer = GvRow.DataKey("CveMovto").ToEntero + + ' If (Tipo = 1 And GvRow.FCCheckBox("ChkCargo").Checked) Or (Tipo = 2 And GvRow.FCCheckBox("ChkBonificacion").Checked) Then + + ' If ObjAcum.DistribuidorActualizarFacturados(CveMovto, UsuarioActual.CveEmpresa, Tipo, CveVenta) Then + ' Respuesta = True + ' ErrorVentas = False + ' CveVentaNota = CveVenta + ' Else + ' Respuesta = False + ' ErrorVentas = True + ' CveVentaNota = 0 + ' Exit For + ' End If + + ' End If + ' Next + ' End If + + + ' If Not ErrorVentas Then + ' Alert($"Nota de crédito generada correctamente {Serie}-{Folio}") + ' End If + + + ' Else + ' ErrorVentas = True + ' End If + ' Else + ' ErrorVentas = True + ' End If + + ' Else + ' ErrorVentas = True + ' End If + ' Else + ' Alert("No se pudo obtener el Folio.", TipoMensaje.MsgError) + ' End If + + + + ' If ErrorVentas Then + ' ObjVentas.RollBack() + ' Else + + ' ObjVentas.Commit() + ' CargaUsados() + + ' Dim DtDetallesVenta As New DataTable + + ' If ObjVentas.GetVentaDetalle(CveVenta) Then + + ' DtDetallesVenta = ObjVentas.DtResultados + ' 'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta) + + ' ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto) + + ' Dim ObjTimbrado As New Timbrado + ' Dim SeTimbro As Boolean = False + + ' SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) + + ' If SeTimbro Then + ' Alert("Se timbro correctamente") + ' Else + ' Alert("No se pudo timbrar, intente mas tarde.", TipoMensaje.MsgError) + ' End If + + ' Else + ' Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError) + ' End If + + ' End If + + + + ' ObjVentas.Dispose() + ' Return Respuesta + + 'End Function + 'Private Function generaNC(CveVenta As Integer, ByRef ObjVentas As ClsVentas, ByVal factura As Modelos.Factura) As List(Of Object) + + ' Dim Obj As New List(Of Object) + ' Dim CveVentaNueva As Integer = ObjVentas.CveVenta + ' Dim BanderaGeneraNC As Boolean = False + ' If UsuarioActual.CveEmpresa.Contiene(1, 119) Then BanderaGeneraNC = True + + ' If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then + ' If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + ' Dim drv As DataRow = ObjVentas.DtResultados.Rows(0) + ' Dim TmpDTconceptos As DataTable = Nothing + + ' ''CargaCliente + + ' Dim CveCliente As Integer = drv("CveCliente").ToString.ToEntero + ' If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not CveCliente.Contiene(10450, 10460, 10458) Then + ' Return Nothing + ' ElseIf UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 21 AndAlso Not CveCliente.Contiene(27448) Then + ' Return Nothing + ' End If + ' factura.TipoDocto = drv("TipoDocto").ToString + ' factura.Serie = drv("Serie").ToString + ' factura.FechaEjecucion = drv("FechaEjecucion").ToString.ToDateTime + ' factura.Fecha = drv("Fecha").ToString.ToDateTime + ' factura.CveSubProyectoEjecucion = drv("CveSubProyectoEjecucion").ToString.ToEntero + ' factura.CveSubProyectoCobranza = drv("CveSubProyectoCobranza").ToString.ToEntero + ' factura.CveClienteSucursal = drv("CveClienteSucursal").ToString.ToEntero + ' factura.CveSubProyecto = drv("CveSubProyecto").ToString.ToEntero + + + ' ''CargaDetalle + ' If ObjVentas.GetVentaDetalle(CveVenta) Then + ' TmpDTconceptos = ObjVentas.DtResultados + ' TmpDTconceptos.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) + ' GvPS.DataSource = TmpDTconceptos + ' GvPS.DataBind() + ' End If + + ' '' Carga Totales + ' factura.SubTotal = drv("SubTotal").ToString.ToDecimal + ' factura.Descuento = drv("Descuento").ToString.ToDecimal + ' factura.Amortizacion = drv("Amortizacion").ToString.ToDecimal + ' factura.IVA = drv("IVA").ToString.ToDecimal + ' factura.RetIVA = drv("RetIVA").ToString.ToDecimal + ' factura.RetISR = drv("RetISR").ToString.ToDecimal + ' factura.Total = drv("Total").ToString.ToDecimal + ' factura.MotivoDescuento = drv("MotivoDescuento").ToString + ' factura.Observaciones = drv("Observaciones").ToString + ' factura.CveMoneda = drv("CveMoneda").ToString.ToEntero + ' factura.TipoCambio = drv("TipoCambio").ToString.ToDecimal + ' factura.CveVendedor = drv("CveVendedor").ToString.ToEntero + ' factura.RefDocto = drv("Ref").ToString + + ' If factura.CveCliente > 0 Then + ' If Not IsNothing(TmpDTconceptos) AndAlso TmpDTconceptos.Rows.Count > 0 Then + + ' If Not drv("Total").ToString.ToDecimal = factura.Total Then + ' Return Nothing + ' End If + + + + ' End If + ' End If + ' End If + ' End If + + ' If Obj.Count > 0 Then + ' Return Obj + ' Else + ' Return Nothing + ' End If + + 'End Function + + 'Private Function PreParaTimbre(Obj As Modelos.Factura, CveSubProyecto As Integer) As CFDITimbre + + ' Dim Timbre As New CFDITimbre + ' Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", "")) + ' Timbre.Comprobante.Folio = Obj.Folio.ToString + ' Timbre.Comprobante.Serie = Obj.Serie + ' Timbre.Comprobante.Fecha = Obj.Fecha + ' Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 + ' Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + ' Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT + ' Timbre.Comprobante.Subtotal = Obj.SubTotal + + ' Timbre.Comprobante.Descuentos = Obj.Descuento + ' Timbre.Comprobante.Moneda = Obj.MonedaSAT + ' Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString) + ' Timbre.Comprobante.Total = Obj.Total + + ' Try + ' Obj.SetSubProyecto(Me) + ' Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP + ' Catch ex As Exception + + ' End Try + + ' Timbre.Comprobante.Confirmacion = "" + + ' Timbre.Receptor.RFC = TxtRFC.Text + ' Timbre.Receptor.Nombre = TxtNombre.Text + ' Timbre.Receptor.ResidenciaFiscal = "" + ' Timbre.Receptor.NumeroRegistroTributario = "" + ' Timbre.Receptor.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}") + + ' Dim totSubTotal As Decimal = Obj.SubTotal + ' Dim totIVA As Decimal = Obj.IVA + ' Dim totRetIVA As Decimal = Obj.RetIVA + ' Dim totRetISR As Decimal = Obj.RetISR + ' Dim TasaRetIVA As Decimal = 0 + ' Dim TasaRetISR As Decimal = 0 + ' Dim i As Integer = 1 + + ' ''detalles + ' Dim tPS As String = "" + + ' For Each drr As DataRow In Obj.DtDetalle.Rows + ' If drr("PS").ToString.Length = 1 Then + ' tPS = drr("Obs").ToString + ' Else + ' If drr("PS").ToString.Length = 0 Then + ' tPS = "" + ' Else + ' tPS = String.Format("{0} {1}", drr("PS"), drr("Obs")) + ' End If + ' End If + ' '' condicionante, especial + ' If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto + + ' Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal, + ' .Descripcion = tPS, + ' .ValorUnitario = drr("PU").ToString.ToDecimal, + ' .Importe = drr("TotalImporte").ToString.ToDecimal, + ' .Descuento = drr("Descuento").ToString.ToDecimal, + ' .Unidad = drr("UM").ToString, + ' .ClaveUnidad = drr("SATClaveUM").ToString, + ' .ClaveProdServ = drr("SATClaveProdServ").ToString, + ' .Noidentificacion = drr("Noidentificacion").ToString, + ' .CuentaPredial = drr("CuentaPredial").ToString} + ' '' verifica suma subtotales + ' If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales + ' concepto.Importe = totSubTotal + ' End If + ' totSubTotal = totSubTotal - concepto.Importe + + ' ''siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura + ' If drr("ImporteIVA").ToString.ToDouble > 0 Then + ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal}) + ' End If + + ' If drr("ImporteIEPS").ToString.ToDouble > 0 Then + ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal}) + ' End If + + ' If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones + ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal}) + ' End If + + ' If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR + ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal}) + ' End If + + ' Timbre.Conceptos.Add(concepto) + ' i += 1 + ' Next + + ' Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto)(0)("AplicaComercioExterior").ToString = "True", True, False) + ' Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto + + ' If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then + + ' Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais + ' Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib + + ' End If + + ' Return Timbre + 'End Function + +#End Region + +#Region "C L I E N T E S G R I D S I M P R I M I R P D F/Excel" + Private Sub LnkCotizacionesPDF_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesPDF.Click + ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + Private Sub LnkCotizacionesExcel_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesExcel.Click + ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + + Private Sub LnkCxCActivasPDF_Click(sender As Object, e As EventArgs) Handles LnkCxCActivasPDF.Click + ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + Private Sub LnkCxCActivasExcel_Click(sender As Object, e As EventArgs) Handles LnkCxCActivasExcel.Click + ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + + Private Sub LnkHistorialCxCPDF_Click(sender As Object, e As EventArgs) Handles LnkHistorialCxCPDF.Click + ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + Private Sub LnkHistorialCxCExcel_Click(sender As Object, e As EventArgs) Handles LnkHistorialCxCExcel.Click + ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + + Private Sub LnkAnticipoClientePDF_Click(sender As Object, e As EventArgs) Handles LnkAnticipoClientePDF.Click + ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + Private Sub LnkAnticipoClienteExcel_Click(sender As Object, e As EventArgs) Handles LnkAnticipoClienteExcel.Click + ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + + Private Sub LnkAnticipoHistorialPDF_Click(sender As Object, e As EventArgs) Handles LnkAnticipoHistorialPDF.Click + ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + Private Sub LnkAnticipoHistorialExcel_Click(sender As Object, e As EventArgs) Handles LnkAnticipoHistorialExcel.Click + ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + + Private Sub LnkCuentasBancariasPDF_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancariasPDF.Click + ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + Private Sub LnkCuentasBancariasExcel_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancariasExcel.Click + ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") + End Sub + + Private Sub ImprimeGridsProveedores(Formato As String, DtTemp As DataTable, NombreFormato As String) + If DtTemp IsNot Nothing And DtTemp.Rows.Count > 0 Then + Dim params As New List(Of ReportParameter) + + 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) + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("AgrupadoPor", "Cliente: " & LtlCliente.Text)) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato) + Else + Alert("No se encontró información.", TipoMensaje.MsgAdvertencia) + End If + End Sub #End Region - - End Class From 5f2747692afb020ee40f1d717b5fc8a89b74bd86 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Wed, 9 Oct 2019 14:23:22 -0700 Subject: [PATCH 16/23] Se agrego columna Litraje a Layout de PS --- App_Code/ClsProductosServicios.vb | 6 ++++-- .../Grales/SaldosIniciales/FormatoPS.xlsx | Bin 8674 -> 9022 bytes General/SaldosIniciales.aspx.vb | 5 +++-- 3 files changed, 7 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 43926b628..3df18c5db 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -386,7 +386,7 @@ Public Class ClsProductosServicios Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1, Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "", - Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "") As Integer + Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -458,6 +458,7 @@ Public Class ClsProductosServicios .Add("@ClaveImpuestoEmpaque", SqlDbType.VarChar).Value = ClaveImpuestoEmpaque .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad + .Add("@Litraje", SqlDbType.Float).Value = Litraje End With @@ -604,7 +605,7 @@ Public Class ClsProductosServicios Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1, Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "", - Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "") As Boolean + Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ProductosServiciosUpdate") @@ -677,6 +678,7 @@ Public Class ClsProductosServicios .Add("@ClaveImpuestoEmpaque", SqlDbType.VarChar).Value = ClaveImpuestoEmpaque .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad + .Add("@Litraje", SqlDbType.Float).Value = Litraje End With diff --git a/Empresas/Grales/SaldosIniciales/FormatoPS.xlsx b/Empresas/Grales/SaldosIniciales/FormatoPS.xlsx index 9daf55123015ecd6c1c73050921f3b78bdfb7c07..010cbc780fc572a85f758c78bb7baca7340d7d84 100644 GIT binary patch delta 4155 zcmZ9PcQ_nOx4@URx~Ne$SiSe&LUeX@R;(5_MD$*wEfUd7EFwA)gor3BST$-y)aWIm zM{m)~^?u*IH}|{q&&)G(&OFbYGQV>cRa-Qu4PZb#8UQ|k5C8zM0(6vdDIZl)^WdU% z^*Tf-B2TntSr2GA-4HABHzYns7e{W%7ypP zd)cofE<7p?~s+c!Vwb9?;BVSsrs#dwV4y0M(*{X2*K{&)Gp19Wym)RDZ)RPA7Gh& zKRkZCjJ)gzl}{)JKvH&z1ABZ(KYvg=RW|)a%Rd`#d*moVIwEEs)AkIaMp8GcaAAXL zhX#&mPq678=9tJCy>m@dE8}p8U1i6T8@Ci;L7$+t-|Ou;w*qscRA%l^_MPdp;UQ5b ze0)x*!u1yu#6@+**9Zi|mUg>x=eX?EoR~7J{{t19JGC5fy_UI@aI*>?&0~(ts?4(D zoWb;OD_uvY0fDkGJ}nOI^$Q7!p3V{txDP0mPE z&+vC~z8z|zVk9p2s0GIGjOa#P#N>&U4(6e)09#08#_FV+t2ZCJy&spr+#9+m`ez2C ze}ZxCD~q^b$%?8EH%$0OpI_4Nbt%eiye-(xFQSvVwpo`2wyw!iD;=lg=XHLS8G1F6 z7q*U~Q9*--S7!>J(W#Zfl&dXH*>XmaT^U+KCJtn z@7Vne+opu0@Bp<;fv!EGi;+FKXCzoQ3A9B9WyE$j&Oe~LJ|7N z@dkJhgrnLUu2NR#IPFGWaUAT&h&BWDPY)PY9JlUf@Uxm2{)iS4xn9ls_PF~sR-#Hu zhfk=Q&~`?h_FJjho(n@kp3)OKRXbkYYLK>CH``G+O=EWOwZuH}S($0PBMH6O-Ga37 zXX`StAI+etf?nzEPyv)3RHCWx-CM7(y@euB>K^a87Bp3EK?-Z?nn$$EYN{^CszhLv zGscc+n4;Bu-*U`__kNTR=Yem|BZF6~4@B39Cfq^1)ka`N0ddx^3gJ!u^_ry^w8yi( z6KCnjmL=X56Jk!JE3n46dsY{<9M7n7uh{L{VR#{zed=Wv{toJWQ&QxM=P$p_pwA#2 zo6>g0mSUEN>MyPv$98c!q@?{(*6188eD_=& z#cl?uG$er#dc>2Ufye;KHUfi&wo>9STMm;$GOVpORRLYE$rW!%z^`v@rygMLs6k8z zqN=17>fDa3)9h{p7;{Gk4W4?vvy~NDHsNT)^XFd?@m^5m z#HzT#XdyH0ZGT9p8cofMBtz`2!N+{6$!P^^Q^2jnOPl~DTf*{4&Ez!J9j4Cv4$#4R zq7x2SD-s7$gI6a_>MZtQN2gp~;y>4Z;1mb%>8 z-LQ2si{g#7K1{vRaF&_<$-6>Ei^pF6@c{}N3QR10`F$Nlvq7?mY6rI0 z3dW{ikn1hZ9rV2i!92N`UJ}9nA`L-rfl#}50AcNymlTr*N+69?Ji zO9kLv%ThggALDFdUsb7@zTnsP4o2nUw_3LZSBV_A{T@p+iffCMkex@&^mh!U%JW6b z8k42%y)!kZAhBpB(|ybPK3<$kL8tI374a929ff}NGYamAb>Ryxp0uaY_V>Eq+z)s} zALDiH$DhV^?~cKY3@4}4QjDHKc@&HFxdmf8v?9K2o8goUZdH?VeaD}6K*b1^s}R0c z@+`JS1nRajzrh^{Rn>LRaE4e5IdN7fzng|-EfvuT(5><}vNBHJTk>e&x%&`|Sf`@- z3ge)x9j#}{c9rmUlBA4>$ayZ}wNy3d+88|HCbjAn+EZFm(>pu!43+`z)35cY4O$hl zmcp%*sI;qwctsntN)HG95|RzO-tBlX%g>}#xaYr`Ls^AP*;@wr~&87 z@@Ju{1$zTsDkF} zlh2B{;`UFEy0i$nFSsm~2ZsDG*rq9}b^( z4g~W_t~llo(gv7E3Ldke%H)oEU;CKY_lRa3d|ZE8B5^^yKexX?zs4{#?$5Vj9wH3C zCP*gmJie3Mv$k`FPkN6GHBuoeH$vG!E!d-k>dmBolCRS<;C38u!Nt^*@djVy zVtxCKef+2byL=fBDF{!B9k(0Y{wz9}mKwZ9jFz`!lhV}w}DyqzZv&6*)&5w#du zG5Sz|r&F{6Th_Mb0RR@!&Lm8zZD^+m#ij7+9oCy>6A-1gcQ#ykZz12G z{1ZozYtflVR;*(BDd7onl|s$@3bWNe&@aUQ+TG2jGNTv&(cz(b7egRZ{2#0D{xeZE z&I3HprA6?PBvG1+FyBD77%_fxeaT(#L}``eonah76}3khAzF959F4hoxbRf(BmJJE z>PyS`f3*b;_|S(4HN4JFm~V-nyaYf~;9}*)0;9K3Nm+~ze(SF#H&yy=+Sti?$)!m) znAvJlun12AzSSgYGYQsxZ(Pj~wl(i`%I{33JxEh7le$lf?s`APWn1;8FzF=A&krOc z6MPw@g`L*Bt1rbJaDA7zFX;!}?FWQL1F48b&o$%HZ!N+ItO0{raZtMMGa{rfcY((c z(m5t=qQ(l1MO=&FQDV}kFUhcuG+9md&O>Xf$aT0HSuV0z8nMkgjw!ZnEhU zI!zcN;Uqqy_;83#IBjX>SBhan?~hBgFKIA}#ATgdVI@0>Rld0Ms_86?(CHjBMATF2 zt5v0lbx_xF37h?DK%LSXIY)QYqKDgRrV1?i{wUXJb%VvK3DP~eVu>7WHM&Eb@WVhc zWOeJju;!tIB2FFG&>Gv)Y+eh^s9t&9rQ909_%6g%=A6J*quX%BOVNN(LDW1dgx*vz zXSW%b=FhZ>dLsD4#KF<>!}*)*=MNqS-l+!=kwu#P1n+)gKs6@5pWkv&@L`?mPoSgp zH}6ljm_@!d|0U- zF#-fS;rd~M=ahupih8?jmjYEvSMU&STPu;zv}st=00FWp292|1wjGg8b<=(*$9M@NyNzjSKibsrroIAJIK2}uvJo*a``URtr+m| z6pAHLG%T)*jv7`K&aEOR)VSIam5=)P+%6&WtvtA}BL?Pu)Op%D>i$^>NP_a>Vjif( ze1pHM#9U7wScz|}#T?(_^55x;gDVL5+ZKcV)fb~}A*MJP=z0h<0R`|t0W8(G=#OIiL=`!CC2dM5w? delta 3801 zcmZ8kXH*l~(hY)LN1AjHVx&kEq$MKoXwnry0qIEZ(gX#i z2ME0*0@CvEzW051y?cI~bJm(U=f}+6GkaRp7gd-Hbburv02zP+006)Njyu`zc9l&0 z#HaziPBD75W6g6FyomNpl_G`oc2qB;prJxr7q+L=$vVfwgOKz5j9xj9`GHI&<TTR% zsZ~$1r%-EzO~j*C{>1o0gVV;F%nMp!GHeADg#FD$`>`6x0{kdPDM^g_ zSs7F=OAG+Sk^lg7S7`|KLWKDGdpi31dWwd6dzG2k`c8>~kh#?ahu`c6N>3OWN|i0+ zrS6$d*C0OGz*OYVQznOr|8+DUf_;%tj>xV}JF$~fP&m%=)JM>1V-Pd9?+2_um9WBg#~-DEaPytl^>jLhIvtS^RS&o?AT!7!ok-1br^R@P zd2Ns2Uiy?RPI~|zLb__#&qdp5_*&6@3SM|5&Fb33{K6h;Ch#6f?$|(*bZ86L4pBDV zl72|J)gl-^_=XXFQ<)Owr6gb|Y`a}uS&?FK1c&4#i$@TZlYH#SDBtBVL48SyF!TkH z8GcKZ&-8hU*U#P}`FsF;vjWn3PO_TTuqQvVMqzCHbN;%Q>97#oPg)xzTiCu;!W;r- z!Xx?a)IsF!S+@;~If)7Hctwu##oPf6tGPn=Z=KHZOJ**zSWrSk$XmElQ`u|_J@Xn6 z?}i%RZ=%PChBo|~O@5HjqGnEeqVPT!00|kNB2p&r$JZr31@0l7$tL)jUPIWIL@$jq zCaXObZnS$I>-1dbL%Zb#7`uTGUHiiCr`O$5&bSNw(sds;XErT6nxDK#L`P4g;;0+F zAIaylKld4GkHn>yX#yUEP@!<3^2uiwO~8SJJdS$#Kg(Ns&y{Srq`nEM^9 zI;5uFs;(6(O?yKNVM80+jCW)_7R4ydSo410_m{P^L#%fC66&y{r-z5EQo>Xfm!rhf zOHBSFbpa25Oxh~-u^?qDY4w_1=ZXH{>>8fnBz|#)r~zymgdH`l-6ckkWI0DChsXqR zs`3t1nUQjW!BZDc;2GY)p>AElQ_IC0TS*ye2JXK+(gRkqBs=?tGNF?~*Q?sUpFcA7 zi?t(nLfZdSISvdOU~}0c>%mp7>}p07h$46mUDY<rspWZ@)Huwnh~|-LE9- zy+PU?BJiGQkg}V*r*0E9v8~Uw-c#LL)wVP%!9*G_Q>HaD z1{)7(mnA)VK^T`#`OU@R;NX^)tQlR?1cJ}EG7tLs&8>QyzNO`ZMh2q=8sM8V_c$G2 z&LI=|ES#=B?LxJQ(ZE!e(wO3ev`D{kS-b-S?%*Zr+E|OQ@k^5XGYlhNttbncjdo)C zle;~X5S%gR!jxy%q?EGFb2bojJgyGU4U$WWoQ=ZB;%IEL)g1J0C+Q5XsT*#ZIq6O2 zN%l_Q4%aVapFXg3a`2O1%KCD<^%54675kIlN#lq~2Sgo4*#XH{C4zpipXaoCE%2IL zu6}qI#W|PIf#%oC;e5?kkg7InlNc`-#HRk*s~HA3Cgy;?6->`l(h#zA`)sWK04Qx- zJvmjEA|fv{#_C=pU(WAS*fyvwrg})FY0cQPvz3J`)wqKxIh$gVvwIj|>q2pTB2Gq_ z$h>vyAPCw=D0xk>c*eEX>X(e3e#Pz+9HC-@TIl(ay;3IBds5x%P|c9_LzGN$c-c%# zMSDpU{9UF!UBA~yb?`HR(Dey<0g1J(&dg!?=JssoWGZa?#;7={56?9e!=44j$golD z;|Lb%36p4WZ&oI|ODyGps9k*|XJZ~+V2$B?jdmCUa6jL_auaGdMf=J>{} zBhs|%Qr>3hVm*fUlH0QU!ue5y)rWXBR&?6D`uAT#qMpZ|kvVb2Izu>Z^E;Cq=d=B< z@vVpK&iM;AnB4pT5Y7W#(lj$q6 zP$M}jQ1pj(1H*TeF!`RZYHZ1=n-m5l*r{rS^^Gt`yBfbS<3Wbbh&()u1B2#HOG^^G zK`v&t;iy)?RY*da$7H!>cDS0f-Ti`bGc;w-hNU83-(h|E^rC6mFq1r!NH&W4sqN@s zgMWKEGaJ7T&{jE;P&mcEgW7u#Jot(%)acgRESipo9iTMQayIY^j5fR2s7*b-IjUov zm&|`h43*hGR_mpmrBYHK_9Kl&`5mKxV}{PLNs3W^*J7}_d*>2t^YIIHo9dbIB8?A) zVpAL6NHu#mRL`VGCbQsQA7yBkwGHS|7YaRM7TMwXJTai1YtNW?G>OWP*aj7F8RhIRqAKnuSc5^BpKN8`!q*7Xy= zeKYE*RTeunxt7mnkY9VD$xVX`-^H~TQ!RP*p%ui|QEy42E0cHv6AMptUUt<%qSSEB0l-rclVvXe`MXjI?O&~~iw5kk`X-sTBnX7=8cr&N#L4+P(T zwOXYM0auGqy$W!p{My6jy(E8)?4zGl&bbDeY^*7}`!sdMUY(>v5P4~^Z~f9{(Wpk0 zQ*2Hx{;_+3TFlc=bIM!UU4^Mp3ajJRQkg+3&$H$Yk}#ky63{U8!D6vE<`#+| zWnIQbaIkI@hcgMci?_o%*~PvA8M2e3=rk`pHaNIsV-qJ1wI?m&=B6Kr)p|o~v^YCgOHRChoy>fIn3Xm$lbbk4mCOJF5(L1yrUq`I zCL6=%lAC6iW0{m)7kL&R%m=6m@72SNIM1H}8BX}u#ZN55?s0&Z8JWfNLg0Du>{LID z5e9>AhK7&MtI2`!9w&q@OU>f@y4tt3e0}8uRpo(k3dhSK{4Ia!2g(~nTSX~Xp}kV7 znH-!%C`|hww#V)Qk7#3e60&^wV-?K|3!(l$DgavHtIoGauj@p0vG&ioj#RNgy$hay z-2Mjb&prM1Jiqa7?fW$`7ia|E%10y6+PydB^QMa)XX`7`{1TBL+DVgAW$%NJPq(2p zdT>YX_yz~6T%pPvaZ~~yC!MImdaB%tuDvBiElO=WyF)zp#M4#cbMW4lb6WC@r;yFe z(3_xwrTl{L|C(q&jQAZE9!Fg^uJU3S!u7c5((xYUEh&=-c}SqPo?3SxR0{39UZ}%Y z@^*^#VZF1{?2~~v_@dWl6c=A69E>MQ3)IlD%7RrF{Z38H-7i}Omi{72Xj5sLu+F~MP* zxyTj1SIGzcpY5;H zgbJI=eI0uNhY&|oV^ipuv7+4cuzxD5zn@TouvXlhu)q5T0KodU_3Eb2f{mbtV7KA) nu)moM05JTI6EOt)otp>tHy!~1`u}lw3d4eVxXE 0 Then If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - CveModelo:=CveModelo) Then + CveModelo:=CveModelo, Litraje:=Litraje) Then 'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, ' CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) Then ErrorPS = True @@ -637,7 +638,7 @@ Partial Class General_SaldosIniciales Else If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - CveModelo:=CveModelo) <= 0 Then + CveModelo:=CveModelo, Litraje:=Litraje) <= 0 Then 'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, ' CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then ErrorPS = True From 53f02c6fd88bb15df26fb8474c414a92b97f7e41 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 10 Oct 2019 09:54:20 -0700 Subject: [PATCH 17/23] --- General/SaldosIniciales.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index b12624c4a..b1a65fa34 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -551,14 +551,14 @@ Partial Class General_SaldosIniciales If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1", GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - If ObjClas.GetClasificaciones() Then Application("GlobalDTClasificaciones") = ObjClas.DtResultados.AsEnumerable() + If ObjClas.GetClasificaciones() Then Application("GlobalDTClasificaciones") = ObjClas.DtResultados CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero End If End If If Not CveUnidadMedida > 0 AndAlso UnidadMedida <> "" Then If ObjUM.AddUnidadMedida(UnidadMedida, "", "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).ToEntero > 0 Then - If ObjUM.GetUnidadesMedida() Then Application("GlobalDTUnidadesMedida") = ObjUM.DtResultados.AsEnumerable() + If ObjUM.GetUnidadesMedida() Then Application("GlobalDTUnidadesMedida") = ObjUM.DtResultados CveUnidadMedida = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString.ToEntero End If End If From b2f3a698782c38a668efe735d26461ced9fff954 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 10 Oct 2019 10:59:46 -0700 Subject: [PATCH 18/23] Impresion de PDF PV, Verificar saldo de almacen al facturar REM --- App_Code/Modelos.vb | 191 +++++++++++++++++--------------- Compras/PopUpVerFactura.aspx.vb | 31 ++++-- Ventas/PV.aspx.vb | 36 +++++- Ventas/Ventas.aspx.vb | 2 +- 4 files changed, 155 insertions(+), 105 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 3715fdc45..d1ecd1e37 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4177,104 +4177,113 @@ Namespace Modelos Dim CveMovimiento As Integer = 0 Dim Folio As Integer = 0 - If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen AndAlso ObjFactura.SaldoAlmacen <> 0 Then + If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen Then Dim CveAlmacenDevolucion = ObjFactura.CveAlmacenDevolucion - 'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN) + 'VERIFICAR SI YA TIENE UNA DEVOLUCION + If ObjFactura.SaldoAlmacen <> 0 Then + 'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN) + CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenDevolucion, ConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1) + Folio = ObjInventario.Folio - CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenDevolucion, ConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1) - Folio = ObjInventario.Folio - - If CveMovimiento > 0 Then - For Each Dr As DataRow In DtExistencias.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, SerieLote:=Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then - ErrorCancelar = True - MensajeError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar." - Exit For - End If - Next - Else - MensajeError = "Ocurrió un error al agregar el movimiento" - ErrorCancelar = True - End If - - 'GENERA PREPOLIZA DEL MOVIMIENTO DE DEVOLUCION - If Not ErrorCancelar Then - Dim DtCostos As DataTable = Nothing - Dim ValorInventario As Decimal = 0 - If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then - DtCostos = ObjInventario.DtResultados - - Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"}) - Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero - Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero - Dim IdCtaContable As Integer = 0 - Dim CveCuenta As Integer = 0 - If tmpCostos.Rows.Count > 0 Then - - If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then - Dim Fecha As Date = Now - Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero - Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString - Dim SerieFolio As String = ObjVentas.DtResultados(0)("SerieFolio").ToString - Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL() - Dim TotalCostoAcumulado As Decimal = 0 - Dim cont As Integer = 1 - - Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - 'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER) - For Each RowInv As DataRow In tmpCostos.Rows - ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL() - TotalCostoAcumulado += ValorInventario - - 'CUANDO ES EL ÚLTIMO MOVIMIENTO Y HAY DIFERENCIAS EN LOS IMPORTES - If cont = DtCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then - ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado) - End If - - IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero - CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero - - If Not ErrorCancelar Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, False, -1 * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then - ErrorCancelar = True - End If - End If - - cont += 1 - Next - - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, -1 * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then - ErrorCancelar = True - End If - - 'AUTOCONTA - EL MOVIMIENTO 1 ES EL DE VENTA - - Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" - - If UsuarioActual.CveEmpresa = 119 AndAlso ObjFactura.TipoDocto.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "NC") Then - AutoConta = False - End If - - If AutoConta And Not ErrorCancelar Then - - If IdCtaContable > 0 Then - If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaDev, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then - ErrorCancelar = True - MensajeError = "Ocurrió un error al contabilizar la prepoliza." - End If - Else - Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia) - End If - - End If - - Else + If CveMovimiento > 0 Then + For Each Dr As DataRow In DtExistencias.Rows + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, SerieLote:=Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then ErrorCancelar = True - MensajeError = "Ocurrió un Error al ingresar las prepolizas" + MensajeError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar." + Exit For End If + Next + Else + MensajeError = "Ocurrió un error al agregar el movimiento" + ErrorCancelar = True + End If + 'GENERA PREPOLIZA DEL MOVIMIENTO DE DEVOLUCION + If Not ErrorCancelar Then + Dim DtCostos As DataTable = Nothing + Dim ValorInventario As Decimal = 0 + If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then + DtCostos = ObjInventario.DtResultados + + Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"}) + Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero + Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero + Dim IdCtaContable As Integer = 0 + Dim CveCuenta As Integer = 0 + If tmpCostos.Rows.Count > 0 Then + + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then + Dim Fecha As Date = Now + Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero + Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString + Dim SerieFolio As String = ObjVentas.DtResultados(0)("SerieFolio").ToString + Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL() + Dim TotalCostoAcumulado As Decimal = 0 + Dim cont As Integer = 1 + + Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + 'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER) + For Each RowInv As DataRow In tmpCostos.Rows + ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL() + TotalCostoAcumulado += ValorInventario + + 'CUANDO ES EL ÚLTIMO MOVIMIENTO Y HAY DIFERENCIAS EN LOS IMPORTES + If cont = DtCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then + ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado) + End If + + IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero + CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero + + If Not ErrorCancelar Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, False, -1 * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then + ErrorCancelar = True + End If + End If + + cont += 1 + Next + + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, -1 * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then + ErrorCancelar = True + End If + + 'AUTOCONTA - EL MOVIMIENTO 1 ES EL DE VENTA + + Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" + + If UsuarioActual.CveEmpresa = 119 AndAlso ObjFactura.TipoDocto.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "NC") Then + AutoConta = False + End If + + If AutoConta And Not ErrorCancelar Then + + If IdCtaContable > 0 Then + If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaDev, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then + ErrorCancelar = True + MensajeError = "Ocurrió un error al contabilizar la prepoliza." + End If + Else + Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia) + End If + + End If + + Else + ErrorCancelar = True + MensajeError = "Ocurrió un Error al ingresar las prepolizas" + End If + End If End If End If + Else + 'UTILIZA LA DEVOLUCION YA REALIZADA + If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then + CveMovimiento = ObjInventario.DtResultados.FiltroPrimeroValor("CveMovimiento", $"CvePS IS NULL AND CveConcepto = 18").ToEntero() + Else + ErrorCancelar = True + MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." + End If End If If Not ErrorCancelar Then diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 05a1015ba..2cdfa5f01 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -72,7 +72,6 @@ Partial Class PopUpVerFactura Return AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\" End Get End Property - Private ReadOnly Property DomicilioFiscalCompu As String Get Dim SisEmpresa As New ClsSisEmpresas() @@ -85,23 +84,31 @@ Partial Class PopUpVerFactura End If Return "" End Get - End Property + End Property + 'Private Property SessionPorImpresion As Boolean + ' Get + ' Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion"))) + ' End Get + ' Set(value As Boolean) + ' ViewState("SessionPorImpresion") = value + ' End Set + 'End Property #End Region - - + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then 'CREA EL OBJECTO USUARIO A PARTIR DEL TOKEN If Request.Headers("ADSToken") IsNot Nothing Then Dim UserParams As Hashtable = Parametros(Decripta((Request.Headers("ADSToken").ToString))) Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero() + Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero() - Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken) + Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario) - If UsuarioToken IsNot Nothing Then + If UsuarioToken IsNot Nothing AndAlso UsuarioActual Is Nothing Then Context.Session("UsuarioSIG") = UsuarioToken End If - End If If Request("RFC") IsNot Nothing AndAlso Request("File") IsNot Nothing Then @@ -168,15 +175,15 @@ Partial Class PopUpVerFactura End If - End Sub - + End Sub + #Region "U S U A R I O - T O K E N" - - Private Function ValidaUsuarioSistema(CveEmpresa As Integer) As Usuario + + Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario Dim UsuarioToken As Usuario = Nothing Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuarios(100) Then + If ObjUsuarios.GetUsuarios(CveUsuario) Then If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index e3d086277..d2cadd606 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -7,6 +7,7 @@ Imports System.IO Imports System.Linq Imports System.Security.Cryptography.X509Certificates Imports System.Globalization +Imports System.Net.Http Partial Class PV Inherits ClsPaginas @@ -2290,6 +2291,18 @@ Partial Class PV If ObjFactura.CveCliente > 0 Then If TmpDT.Rows.Count > 0 Then Dim Retorno = ObjFactura.EmitirFactura() + If Retorno.CveVenta > 0 Then + Dim SbAlert As New StringBuilder + SbAlert.AppendFormat("{0}
          ", Retorno.Mensajes(Retorno.Mensajes.Count - 1)) + + DescargarFactura(Retorno.CveVenta, UsuarioActual.CveEmpresa) + + SbAlert.AppendFormat("
          ", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))) + + + Retorno.Mensajes(Retorno.Mensajes.Count - 1) = SbAlert.ToString() + End If + For Each Mensaje In Retorno.Mensajes Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV)) Next @@ -2298,6 +2311,27 @@ Partial Class PV End If End Sub + Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, Optional GetBytes As Boolean = True) As Byte() + Dim Url = New Uri(String.Format("http://{0}:{1}/Compras/PopUpVerFactura.aspx?P={2}", HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))) + Dim File As Byte() = Nothing + Try + Using httpClient = New HttpClient() + httpClient.Timeout = New TimeSpan(0, 15, 0) + Using request = New HttpRequestMessage(HttpMethod.Get, Url) + request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CveUsuario={2}", CveEmpresa, DateTime.UtcNow.Ticks, UsuarioActual.CveUsuario))) + Dim response = httpClient.SendAsync(request).Result + If GetBytes AndAlso response.StatusCode = Net.HttpStatusCode.OK Then + File = response.Content.ReadAsByteArrayAsync().Result + End If + End Using + End Using + Catch ex As Exception + File = Nothing + OnError("Ocurrió un error al descargar la factura", ex) + End Try + + Return File + End Function #End Region #Region "OBJETO VENTA" @@ -2485,7 +2519,7 @@ Partial Class PV ObjFactura.DtRecepcionUsados = TmpDTRecepcionUsados - ObjFactura.GenerarPDFFactura = True + ObjFactura.GenerarPDFFactura = False Dim CveTipoAlmacen As Integer = If(TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0, 6, 22) If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows.Count > 0 Then diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 58044f407..e5c3f76e1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14926,7 +14926,7 @@ Partial Class Ventas Dim AplicaMovimientoDetalleEntrada As Boolean = False If RemisionesLista.Count > 0 Then AplicaMovimientoDetalleEntrada = True - MovDetalle = CuadrarFacturaMovimientos(DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND TieneSalidaxFactura IS NULL")) + MovDetalle = CuadrarFacturaMovimientos(DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND (TieneSalidaxFactura IS NULL OR SaldoAlmacen > 0)")) Else MovDetalle = DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}") End If From d8391b629802108f2717b9e814c7699618d3cfe8 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 10 Oct 2019 12:35:31 -0700 Subject: [PATCH 19/23] Formatos de Grids en Clientes --- .../RepClientesAnticipoHistorial.rdlc | 885 ++++++++++++ .../Grales/Formatos/RepClientesAnticipos.rdlc | 1038 ++++++++++++++ .../Formatos/RepClientesCotizaciones.rdlc | 1099 ++++++++++++++ .../Formatos/RepClientesCuentasBancarias.rdlc | 1254 ++++++++++++++++ .../Formatos/RepClientesCxCActivas.rdlc | 1277 +++++++++++++++++ .../Formatos/RepClientesHistorialCxC.rdlc | 1130 +++++++++++++++ 6 files changed, 6683 insertions(+) create mode 100644 Empresas/Grales/Formatos/RepClientesAnticipoHistorial.rdlc create mode 100644 Empresas/Grales/Formatos/RepClientesAnticipos.rdlc create mode 100644 Empresas/Grales/Formatos/RepClientesCotizaciones.rdlc create mode 100644 Empresas/Grales/Formatos/RepClientesCuentasBancarias.rdlc create mode 100644 Empresas/Grales/Formatos/RepClientesCxCActivas.rdlc create mode 100644 Empresas/Grales/Formatos/RepClientesHistorialCxC.rdlc diff --git a/Empresas/Grales/Formatos/RepClientesAnticipoHistorial.rdlc b/Empresas/Grales/Formatos/RepClientesAnticipoHistorial.rdlc new file mode 100644 index 000000000..cda290a77 --- /dev/null +++ b/Empresas/Grales/Formatos/RepClientesAnticipoHistorial.rdlc @@ -0,0 +1,885 @@ + + + + + + true + true + + + + + =Parameters!AgrupadoPor.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 5.30117cm + + + 3.82076cm + + + 4.81538cm + + + 4.72728cm + + + 1.17708cm + + + + + 0.6cm + + + + + true + true + + + + + Folio + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Original + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox5 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Folio.Value + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha1 + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIf(Fields!Original.Value = 0, "", Fields!Original.Value) + + + + + + + Original + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =IIf(Fields!Saldo.Value = 0, "", Fields!Saldo.Value) + + + + + + + Saldo1 + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + + Abreviatura + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.84166cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE ANTICIPO DEL CLIENTE HISTORIAL + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 3.31679cm + + + 3.0118cm + + + 3.16001cm + + + 2.92334cm + + + 3.22788cm + + + 3.02476cm + + + 1.17708cm + + + + + 0.6cm + + + + + true + true + + + + + Folio + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SubTotal + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IVA + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Original + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox5 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Folio.Value + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha1 + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIf(Fields!SubTotal.Value = 0, "", Fields!SubTotal.Value) + + + + + + + SubTotal + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =IIf(Fields!IVA.Value = 0, "", Fields!IVA.Value) + + + + + + + IVA + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =IIf(Fields!Original.Value = 0, "", Fields!Original.Value) + + + + + + + Original + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =IIf(Fields!Saldo.Value = 0, "", Fields!Saldo.Value) + + + + + + + Saldo1 + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + + Abreviatura + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.84166cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE ANTICIPO DEL CLIENTE + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 2.92303cm + + + 2.7347cm + + + 2.76458cm + + + 2.72501cm + + + 2.70029cm + + + 2.6323cm + + + 1.15279cm + + + 2.20896cm + + + + + 0.6cm + + + + + true + true + + + + + Cotización + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Atención A + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sub Total + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descuento + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Estatus + + + + + + + Textbox6 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!AtencionA.Value + + + + + + + AtencionA + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( Fields!SubTotal.Value = 0, "",Fields!SubTotal.Value) + + + + + + + FolioCobro + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + = IIF( Fields!Descuento.Value = 0, "",Fields!Descuento.Value) + + + + + + + Textbox23 + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + = IIF( Fields!Total.Value = 0, "",Fields!Total.Value) + + + + + + + Abonado + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!MonAbreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!EstatusFactura.Value + + + + + + + EstatusFactura + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.84166cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE COTIZACIONES + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 3.38828cm + + + 1.45359cm + + + 2.05941cm + + + 3.17906cm + + + 1.65333cm + + + 1.83854cm + + + 1.28417cm + + + 2.0323cm + + + 1.52321cm + + + 1.48864cm + + + + + 0.6cm + + + + + true + true + + + + + Banco + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + # Suc. + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Num. Cuenta + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CLABE + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SWIFT + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Plaza + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CIE + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Referencia + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Moneda + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Estatus + + + + + + + Textbox13 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!BancoNombre.Value + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Sucursal.Value + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cuenta.Value + + + + + + + Cuenta + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CLABE.Value + + + + + + + CLABE + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SWIFT.Value + + + + + + + SWIFT + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Plaza.Value + + + + + + + Plaza + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CIE.Value + + + + + + + CIE + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Referencia.Value + + + + + + + Referencia + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Moneda.Value + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIf(Fields!Estatus.Value = "True", "Activo", "Inactivo") + + + + + + + Estatus + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.90053cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE CUENTAS BANCARIAS DEL CLIENTE + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 1.53744cm + + + 2.19765cm + + + 2.03567cm + + + 2.05941cm + + + 1.81083cm + + + 2.15604cm + + + 2.28833cm + + + 2.19105cm + + + 1.15279cm + + + 2.5cm + + + + + 0.6cm + + + + + true + true + + + + + Tipo + + + + + + + Textbox5 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Venta + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Venc + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Días Venc + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Monto Venta + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonado + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Estatus + + + + + + + Textbox13 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!TipoDocto.Value + + + + + + + TipoDocto + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha1 + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaVencimiento.Value + + + + + + + FechaVencimiento + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!DiasVencidos.Value + + + + + + + DiasVencidos + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIf(Fields!Original.Value = 0, "", Fields!Original.Value) + + + + + + + Original + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =IIf(Fields!Abonado.Value = 0, "", Fields!Abonado.Value) + + + + + + + Abonado1 + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =IIf(Fields!Saldo.Value = 0, "", Fields!Saldo.Value) + + + + + + + Saldo1 + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CobranzaEstatus.Value + + + + + + + CobranzaEstatus + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.92921cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE CXC ACTIVAS + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 1.90786cm + + + 3.31679cm + + + 2.68575cm + + + 2.72087cm + + + 2.92334cm + + + 2.8175cm + + + 1.265cm + + + 2.20455cm + + + + + 0.6cm + + + + + true + true + + + + + Tipo + + + + + + + Textbox5 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Factura + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Venc + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Monto Venta + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonado + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox6 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!TipoDocto.Value + + + + + + + TipoDocto + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha1 + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaVencimiento.Value + + + + + + + FechaVencimiento + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIf(Fields!Original.Value = 0, "", Fields!Original.Value) + + + + + + + Original + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =IIf(Fields!Abonado.Value = 0, "", Fields!Abonado.Value) + + + + + + + Abonado1 + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + + Abreviatura + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIf(Fields!Saldo.Value = 0, "", Fields!Saldo.Value) + + + + + + + Saldo1 + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.84166cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE HISTORIAL DE CXC + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") 2pt @@ -551,8 +550,7 @@ Sucursal + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") 2pt @@ -586,8 +584,7 @@ Cuenta + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") 2pt @@ -621,8 +618,7 @@ CLABE + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") 2pt @@ -656,8 +652,7 @@ SWIFT + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") 2pt @@ -691,8 +686,7 @@ Plaza + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") 2pt @@ -726,8 +720,7 @@ CIE + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") 2pt @@ -761,8 +754,7 @@ Referencia + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") 2pt @@ -797,8 +789,7 @@ RefCrediProveedor + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") 2pt @@ -830,8 +821,7 @@ Moneda + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") 2pt @@ -851,7 +841,7 @@ - =Fields!Estatus.Value + =IIf(Fields!Estatus.Value = "True", "Activo", "Inactivo") @@ -865,8 +855,7 @@ Estatus + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") 2pt @@ -875,7 +864,6 @@ 2pt - true @@ -911,7 +899,7 @@ 1.00112cm 0.12912cm 1.2cm - 19.86813cm + 19.90053cm 2
          # MARCA DCTO COM -<%-- + <%-- --%> -<%-- + <%-- --%>