diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 5b34123a5..8540c06cf 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -2985,7 +2985,7 @@ Public Class ClsContratos End Function - Public Function AddPresupuestosDetalle(CvePresupuesto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Importe As Decimal, Observacion As String) As Boolean + Public Function AddPresupuestosDetalle(CvePresupuesto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Importe As Decimal, Observacion As String, Optional CveConceptoContableNom As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosDetalleAdd") @@ -2996,6 +2996,7 @@ Public Class ClsContratos .Add("@Importe", SqlDbType.Money).Value = Importe .Add("@Observacion", SqlDbType.VarChar).Value = Observacion .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto + .Add("@CveConceptoContableNom", SqlDbType.Int).Value = CveConceptoContableNom End With Try @@ -3029,7 +3030,7 @@ Public Class ClsContratos Return Retorno End Function - Public Function UpdatePresupuestosDetalle(CvePresupuestoDetalle As Integer, CveClasificacion As Integer, ImporteVigente As Decimal, Observacion As String) As Boolean + Public Function UpdatePresupuestosDetalle(CvePresupuestoDetalle As Integer, CveClasificacion As Integer, ImporteVigente As Decimal, Observacion As String, Optional CveConceptoContableNom As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosDetalleUpdate") @@ -3039,6 +3040,7 @@ Public Class ClsContratos .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@ImporteVigente", SqlDbType.Money).Value = ImporteVigente .Add("@Observacion", SqlDbType.VarChar).Value = Observacion + .Add("@CveConceptoContableNom", SqlDbType.Int).Value = CveConceptoContableNom End With Try @@ -3068,7 +3070,7 @@ Public Class ClsContratos End Try Return Retorno End Function - Public Function GetPresupuestosRep(CvePresupuesto As Integer, CveTipoGasto As Integer, Agrupador As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveUsuarioConsulta As Integer, CveClasificacion As Integer) As Boolean + Public Function GetPresupuestosRep(CvePresupuesto As Integer, CveTipoGasto As Integer, Agrupador As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveUsuarioConsulta As Integer, CveAgrupador As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosRep") @@ -3082,7 +3084,7 @@ Public Class ClsContratos .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveAgrupador", SqlDbType.Int).Value = CveAgrupador End With Try @@ -3121,7 +3123,7 @@ Public Class ClsContratos Return Retorno End Function - Public Function GetPresupuestosRepDetalle(CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Agrupador As Integer, Gpo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer) As Boolean + Public Function GetPresupuestosRepDetalle(CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Agrupador As Integer, Gpo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer, Optional CveConceptoContableNom As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosRepDetalle") @@ -3129,6 +3131,7 @@ Public Class ClsContratos .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveConceptoContableNom", SqlDbType.Int).Value = CveConceptoContableNom .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto .Add("@Agrupador", SqlDbType.Int).Value = Agrupador .Add("@Gpo", SqlDbType.Int).Value = Gpo diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 4019544a7..a2a76e664 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -605,7 +605,12 @@ Public Class ClsNominas End If retorno = True Catch ex As Exception - OnError("Ocurrió un error al registrar la provisión de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + If ex.Message.Contains("No se puede registrar una prepóliza en un periodo cerrado") Then + OnError("No se puede registrar la provisión, periodo contable cerrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Else + OnError("Ocurrió un error al registrar la provisión de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + End If End Try Return retorno End Function diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index eb20408ad..96d4d0143 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4002,28 +4002,28 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, Optional PorcentajeIVA As Double = -1) As DataTable - Get - Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" - If HttpContext.Current.Application(AppNombre) Is Nothing Then - Using ObjVenta As New ClsGenerales - If ObjVenta.GetClasificacionPorcentaje(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados - End Using - End If + 'Public Shared Property GlobalDTClasificacionPorcentaje2(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, Optional PorcentajeIVA As Double = -1) As DataTable + ' Get + ' Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" + ' If HttpContext.Current.Application(AppNombre) Is Nothing Then + ' Using ObjVenta As New ClsGenerales + ' If ObjVenta.GetClasificacionPorcentaje(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados + ' End Using + ' End If - Dim Str As StringBuilder = New StringBuilder() - If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje) - If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion) - If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA) - Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) - GlobalDTClasificacionPorcentaje = Dv.ToTable - Dv.Dispose() - End Get - Set(value As DataTable) - Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" - HttpContext.Current.Application(AppNombre) = value - End Set - End Property + ' Dim Str As StringBuilder = New StringBuilder() + ' If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje) + ' If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion) + ' If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA) + ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + ' GlobalDTClasificacionPorcentaje2 = Dv.ToTable + ' Dv.Dispose() + ' End Get + ' Set(value As DataTable) + ' Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" + ' HttpContext.Current.Application(AppNombre) = value + ' End Set + 'End Property Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaqueteria As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTPaqueterias-{CveEmpresa}" @@ -6326,6 +6326,10 @@ Public Class ClsPaginas Dim rds4 As New ReportDataSource With {.Name = "DataSet4", .Value = If(Vta.DtDocumentosRelacionados IsNot Nothing, Vta.DtDocumentosRelacionados, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte lrds.Add(rds4) If UsuarioActual.Empresa.Funcionalidad(707) = "1" OrElse UsarStimulsoft Then + If Vta.Cliente.CodigoRegimenFiscal.ToString.Length > 0 Then + params.Add(New ReportParameter("ClienteRegimenFiscal", $"{Vta.Cliente.CodigoRegimenFiscal}-{Vta.Cliente.RegimenFiscal}")) + End If + If Vta.DtDocumentosRelacionados IsNot Nothing AndAlso Vta.DtDocumentosRelacionados.Rows.Count > 0 Then params.Add(New ReportParameter("TieneDocumentosRelacionados", "True")) Else @@ -7321,6 +7325,7 @@ Public Class ClsPaginas Dim Importe = "" Dim TotalLetra = "" Dim FechaRecibo = "" + Dim ProveedorIntermediario As String = "" Dim RegimenFiscalCodigo As String = "" Dim CFDIVersion As String = If(UsuarioActual.Empresa.Funcionalidad(350) = "1", "4.0", "3.3") @@ -7385,6 +7390,7 @@ Public Class ClsPaginas CveCliente = ObjBancos.DtResultados.FiltroPrimeroValor("CveCliente").ToEntero CveMoneda = ObjBancos.DtResultados.FiltroPrimeroValor("CveMoneda").ToEntero FechaComprobante = ObjBancos.DtResultados.FiltroPrimeroValor("Fecha").ToDate + ProveedorIntermediario = ObjBancos.DtResultados.FiltroPrimeroValor("ProveedorIntermediario") SerieFolio = $"{Serie}-{Folio}" End If ObjBancos.Dispose() @@ -7628,6 +7634,11 @@ Public Class ClsPaginas Else params.Add(New ReportParameter("LogoPath", "")) End If + + If UsuarioActual.CveEmpresa = 145 Then + params.Add(New ReportParameter("ProveedorIntermediario", ProveedorIntermediario)) + End If + If File.Exists($"{UsuarioActual.Empresa.Ruta}Formatos\ReciboDePago.rdlc") Then rutaArchivo = $"{UsuarioActual.Empresa.Ruta}Formatos\ReciboDePago.rdlc" Else @@ -7772,9 +7783,10 @@ Public Class ClsPaginas If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True End If End If + 'si tiene otros gastos/ingresos - ImporteMovimiento = Pago.OtroGastoIngreso - If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then + If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then + ImporteMovimiento = (Pago.OtroGastoIngreso * If(Pago.CveMonedaPago = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados Dim tOtCveCon As Integer = 211 Dim tOtTipoMovto As Boolean = False Dim IdCta As Integer = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.Funcionalidad(266).ToEntero(), 0) @@ -7834,10 +7846,10 @@ Public Class ClsPaginas Dim Diferencia As Decimal = 0 If tImporteCompra <> tImportePago Then If tImporteCompra > tImportePago Then - ConceptoContable = 64 : IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria + ConceptoContable = 64 TipoMovimiento = True Else - ConceptoContable = 65 : IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria + ConceptoContable = 65 TipoMovimiento = False End If Diferencia = (tImporteCompra - tImportePago).Abs.RoundSQL @@ -7913,18 +7925,18 @@ Public Class ClsPaginas Ret.CveConceptoAcreditable = 19 Ret.CveConceptoxAcreditar = 14 End If - If UsuarioActual.Empresa.TipoContabilidad = 2 Then - Dim IdCtaIVAXAcreditar, IdCtaIVAAcreditable, IdCtaIVANOAcreditable As Integer - Dim dt As DataTable = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA) - If dt.Rows.Count > 0 Then - IdCtaIVAXAcreditar = dt.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - IdCtaIVAAcreditable = dt.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero - IdCtaIVANOAcreditable = dt.Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero - End If - Ret.IdCtaContableAcreditable = IdCtaIVAAcreditable - Ret.IdCtaContablexAcreditar = IdCtaIVAXAcreditar - Ret.IdCtaContIVANoAcreditable = IdCtaIVANOAcreditable - End If + 'If UsuarioActual.Empresa.TipoContabilidad = 2 Then + ' Dim IdCtaIVAXAcreditar, IdCtaIVAAcreditable, IdCtaIVANOAcreditable As Integer + ' Dim dt As DataTable = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA) + ' If dt.Rows.Count > 0 Then + ' IdCtaIVAXAcreditar = dt.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero + ' IdCtaIVAAcreditable = dt.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero + ' IdCtaIVANOAcreditable = dt.Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero + ' End If + ' Ret.IdCtaContableAcreditable = IdCtaIVAAcreditable + ' Ret.IdCtaContablexAcreditar = IdCtaIVAXAcreditar + ' Ret.IdCtaContIVANoAcreditable = IdCtaIVANOAcreditable + 'End If Return Ret End Get End Property @@ -8283,8 +8295,9 @@ Public Class ClsPaginas End If End If 'si tiene otros gastos/ingresos - ImporteMovimiento = Pago.OtroGastoIngreso - If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then + + If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then + ImporteMovimiento = (Pago.OtroGastoIngreso * If(Pago.CveMonedaPago = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados Dim tOtCveCon As Integer = 78 Dim tOtTipoMovto As Boolean = True If ImporteMovimiento < 0 Then @@ -8300,10 +8313,10 @@ Public Class ClsPaginas tImportePago += Pago.ImporteFluctuacionAdicional 'para los casos de aplicación de If tImporteVenta <> tImportePago Then If tImporteVenta < tImportePago Then - ConceptoContable = 64 : IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria + ConceptoContable = 64 TipoMovimiento = True Else - ConceptoContable = 65 : IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria + ConceptoContable = 65 TipoMovimiento = False End If Diferencia = (tImporteVenta - tImportePago).Abs.RoundSQL diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 2ca94fb56..97542eac4 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -404,18 +404,18 @@ Public Class ClsSisEmpresas 'Nuevos Datos _Empresa.AreaGeografica = Data.Rows(0)("AreaGeografica").ToString - _Empresa.IdCuentaIVAxAcreditar = Data.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero - _Empresa.IdCuentaIVAAcreditable = Data.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero - _Empresa.IdCuentaIVAxTrasladar = Data.Rows(0)("IdCuentaIVAxTrasladar").ToString.ToEntero - _Empresa.IdCuentaIVATrasladado = Data.Rows(0)("IdCuentaIVATrasladado").ToString.ToEntero - _Empresa.IdCuentaRetIVACirculacion = Data.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero - _Empresa.IdCuentaRetISRCirculacion = Data.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - _Empresa.IdCuentaDSV = Data.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString.ToEntero - _Empresa.IdCuentaImpuestosLocales = Data.Rows(0)("Conta_IdCuentaImpuestosLocales").ToString.ToEntero - _Empresa.IdCuentaIEPSxAcreditar = Data.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero - _Empresa.IdCuentaIEPSAcreditable = Data.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero - _Empresa.IdCuentaIEPSxTrasladar = Data.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero - _Empresa.IdCuentaIEPSTrasladado = Data.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero + '_Empresa.IdCuentaIVAxAcreditar = Data.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero + '_Empresa.IdCuentaIVAAcreditable = Data.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero + '_Empresa.IdCuentaIVAxTrasladar = Data.Rows(0)("IdCuentaIVAxTrasladar").ToString.ToEntero + '_Empresa.IdCuentaIVATrasladado = Data.Rows(0)("IdCuentaIVATrasladado").ToString.ToEntero + '_Empresa.IdCuentaRetIVACirculacion = Data.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero + '_Empresa.IdCuentaRetISRCirculacion = Data.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero + '_Empresa.IdCuentaDSV = Data.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString.ToEntero + '_Empresa.IdCuentaImpuestosLocales = Data.Rows(0)("Conta_IdCuentaImpuestosLocales").ToString.ToEntero + '_Empresa.IdCuentaIEPSxAcreditar = Data.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero + '_Empresa.IdCuentaIEPSAcreditable = Data.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero + '_Empresa.IdCuentaIEPSxTrasladar = Data.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero + '_Empresa.IdCuentaIEPSTrasladado = Data.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero _Empresa.IdCuentaOtrosIngresos = Data.Rows(0)("Conta_IdCuentaOtrosIngresos").ToString.ToEntero '_Empresa.IdCtaProveedor = Data.Rows(0)("IdCtaProveedor").ToString.ToEntero @@ -428,7 +428,7 @@ Public Class ClsSisEmpresas '_Empresa.IdCtaAnticipoProveedores = Data.Rows(0)("IdCtaAnticipoProveedores").ToString.ToEntero _Empresa.Buzon_Tipo = Data.Rows(0)("Buzon_Tipo").ToString - _Empresa.ContaContabilizacionNC = Data.Rows(0)("Conta_ContabilizacionNC").ToString.ToEntero + '_Empresa.ContaContabilizacionNC = Data.Rows(0)("Conta_ContabilizacionNC").ToString.ToEntero '_Empresa.Ruta = String.Format("{0}Empresas\{1}\", ModExtensiones.DirectorioBaseEmpresas, _Empresa.CveEmpresa) _Empresa.PV_TerminalTipo = Data.Rows(0)("PV_TerminalTipo").ToString.ToEntero _Empresa.EjercicioActual = Data.Rows(0)("EjercicioActual").ToString.ToEntero @@ -437,8 +437,8 @@ Public Class ClsSisEmpresas _Empresa.MetodoOC = Data.Rows(0)("MetodoOC").ToString.ToEntero _Empresa.CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero _Empresa.RequiereCentroCostos = Data.Rows(0)("RequiereCentroCostos").ToString <> "No" - _Empresa.IdCuentaPerdidaCambiaria = Data.Rows(0)("IdCuentaPerdidaCambiaria").ToString.ToEntero - _Empresa.IdCuentaGananciaCambiaria = Data.Rows(0)("IdCuentaGananciaCambiaria").ToString.ToEntero + '_Empresa.IdCuentaPerdidaCambiaria = Data.Rows(0)("IdCuentaPerdidaCambiaria").ToString.ToEntero + '_Empresa.IdCuentaGananciaCambiaria = Data.Rows(0)("IdCuentaGananciaCambiaria").ToString.ToEntero _Empresa.Tipo_CentroCosto = Data.Rows(0)("Tipo_CentroCosto").ToString.ToEntero _Empresa.GrupoEmpresa = Data.Rows(0)("GrupoEmpresa").ToString.ToEntero _Empresa.PlantillaMailVenta = Data.Rows(0)("PlantillaMailVenta").ToString @@ -467,7 +467,6 @@ Public Class ClsSisEmpresas _Empresa.RutaArchivos = Data.Rows(0)("RutaArchivos").ToString - Else 'Alert("No se encontró la Empresa solicitada.", TipoMensaje.MsgAdvertencia) End If diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index 666880f07..de0648139 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -53,7 +53,6 @@ Public Class Empresa Public CvePAC As Integer Public CveRegimenFiscal As Integer - Public Property Tipo_CentroCosto As Integer Public Property MostrarRetISR As Boolean Public Property Regimen As String @@ -63,7 +62,6 @@ Public Class Empresa Public Property RegistroCompleto As Integer Public Property Importe As Decimal Public Property CveMetodoPago As Integer - Public Property CodigoRegimenFiscal As String Public Property RegimenFiscal As String Public Property EstatusFacturacion As Boolean @@ -108,23 +106,23 @@ Public Class Empresa Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa) End If End Get - End Property - Public Property IdCuentaIVAxTrasladar As Integer - Public Property IdCuentaIVATrasladado As Integer - Public Property IdCuentaPerdidaCambiaria As Integer - Public Property IdCuentaGananciaCambiaria As Integer - Public Property ContaContabilizacionNC As Integer + End Property + 'Public Property IdCuentaIVAxTrasladar As Integer + 'Public Property IdCuentaIVATrasladado As Integer + 'Public Property IdCuentaPerdidaCambiaria As Integer + 'Public Property IdCuentaGananciaCambiaria As Integer + ' Public Property ContaContabilizacionNC As Integer Public Property PV_TerminalTipo As Integer Public Property PlantillaMailVenta As String Public Property AsuntoPlantillaMailVenta As String 'Nuevas - Public Property IdCuentaIVAxAcreditar As Integer - Public Property IdCuentaIVAAcreditable As Integer - Public Property IdCuentaRetIVACirculacion As Integer - Public Property IdCuentaRetISRCirculacion As Integer - Public Property IdCuentaDSV As Integer - Public Property IdCuentaImpuestosLocales As Integer + 'Public Property IdCuentaIVAxAcreditar As Integer + 'Public Property IdCuentaIVAAcreditable As Integer + 'Public Property IdCuentaRetIVACirculacion As Integer + 'Public Property IdCuentaRetISRCirculacion As Integer + 'Public Property IdCuentaDSV As Integer + 'Public Property IdCuentaImpuestosLocales As Integer Public Property IdCtaProveedor As Integer Public Property IdCtaCliente As Integer Public Property IdCtaDeudores As Integer @@ -134,10 +132,6 @@ Public Class Empresa Public Property IdCtaAnticipoProveedores As Integer 'Nuevos Datos - Public Property IdCuentaIEPSxAcreditar As Integer - Public Property IdCuentaIEPSAcreditable As Integer - Public Property IdCuentaIEPSxTrasladar As Integer - Public Property IdCuentaIEPSTrasladado As Integer Public Property PorDepreciacion As Decimal Public Property CvePlataforma As Integer Public Property CveDistribuidor As Integer diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 640d0d915..7033ba0c5 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -158,8 +158,13 @@ Public Class LogicNominas Dim drow As DataRow = objNomina.DtResultados.Rows(0) CvePersonal = drow("CvePersonal").ToString().ToEntero() CvePeriodo = drow("CvePeriodo").ToString().ToEntero() - totalDb = drow("Total").ToString().ToDecimal() - subTotalDb = drow("SubTotal").ToString().ToDecimal() + If TimbreIndemnizacion Then + totalDb = drow("TotalFin").ToString().ToDecimal() + subTotalDb = drow("SubTotalFin").ToString().ToDecimal() + Else + totalDb = drow("Total").ToString().ToDecimal() + subTotalDb = drow("SubTotal").ToString().ToDecimal() + End If cfdi.Nomina.Antiguedad = drow("Antiguedad").ToString().ToEntero() cfdi.Nomina.UltimoSueldoOrdinario = drow("UltimoSueldoOrdinario").ToString().ToDecimal() Serie = objNomina.Serie diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 888460422..26c66ef60 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2421,10 +2421,10 @@ Namespace Modelos SeContabiliza = False End If - If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=ObjFactura.DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then - IdCtaIVAXTrasladar = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero - IdCtaIVATrasladado = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero - End If + 'If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=ObjFactura.DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then + ' IdCtaIVAXTrasladar = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero + ' IdCtaIVATrasladado = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero + 'End If Dim UsaComplementariaClientes As Boolean = True 'If UsuarioActual.CveEmpresa.Contiene(1, 119) Then UsaComplementariaClientes = True @@ -2491,11 +2491,9 @@ Namespace Modelos If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimiento * difFluctuacion).RoundSQL) @@ -2798,11 +2796,9 @@ Namespace Modelos If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) * ValorMultiplicador @@ -2889,11 +2885,9 @@ Namespace Modelos If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimientoDev * difFluctuacion).RoundSQL) * ValorMultiplicador @@ -3183,11 +3177,9 @@ Namespace Modelos If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) * ValorMultiplicador @@ -3332,20 +3324,20 @@ Namespace Modelos CveVentaAmortizacionAplicar = ObjFactura.CveVenta End If - 'código fijo en base el porcentaje iva, que se afecten las clasificaciones - For i = 0 To TmpDTDetalle.Rows.Count - 1 + ''código fijo en base el porcentaje iva, que se afecten las clasificaciones + 'For i = 0 To TmpDTDetalle.Rows.Count - 1 - 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso - If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933") Then + ' 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso + ' If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933") Then - 'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva - If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows(0)("CveClasificacion").ToString - End If + ' 'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva + ' If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows.Count > 0 Then + ' TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows(0)("CveClasificacion").ToString + ' End If - End If + ' End If - Next + 'Next DT = TmpDTDetalle.FiltraParametros($"CvePS <> {ObjFactura.CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) @@ -3396,23 +3388,23 @@ Namespace Modelos CveVentaAmortizacionAplicar = ObjFactura.CveVenta End If - If UsuarioActual.CveEmpresa = 119 Then + 'If UsuarioActual.CveEmpresa = 119 Then - 'código fijo en base el porcentaje iva, que se afecten las clasificaciones - For i = 0 To TmpDTDetalle.Rows.Count - 1 + ' 'código fijo en base el porcentaje iva, que se afecten las clasificaciones + ' For i = 0 To TmpDTDetalle.Rows.Count - 1 - 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso - If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then + ' 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso + ' If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then - If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString - End If + ' If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then + ' TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString + ' End If - End If + ' End If - Next + ' Next - End If + 'End If DT = TmpDTDetalle.FiltraParametros($"CvePS <> {ObjFactura.CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) @@ -3583,9 +3575,6 @@ Namespace Modelos importeMovimiento = importeMovimiento * -1 importeMX = importeMX * -1 - IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) - Else - IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) End If CveSubProyectoContabilizar = CveSubProyectoVenta @@ -3693,7 +3682,6 @@ Namespace Modelos End If 'IVA X TRASLADAR - IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True @@ -3701,7 +3689,6 @@ Namespace Modelos End If 'IVA PAGADO - IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True @@ -3710,14 +3697,14 @@ Namespace Modelos 'IEPS X TRASLADAR Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) - If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For End If 'IEPS PAGADO Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) - If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For End If diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index d56227c77..4ed591cec 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -1,176 +1,176 @@ -Imports System.Data -Imports Extensiones - -Public Class Timbres - Private _MsgError As StringBuilder - Private _MensajeAlert As StringBuilder - Public Property TieneError As Boolean - Public ReadOnly Property MsgError As String - Get - Return _MsgError.ToString - End Get - End Property - - Public ReadOnly Property MensajeAlert As String - Get - Return _MensajeAlert.ToString - End Get - End Property - - Private Property CveMovimiento As Integer - Private Property UsuarioActual As Usuario - Private Property AplicaCP As Boolean - Private Property FechaSalida As Date - Private Property Serie As String - Private Property Folio As Integer - Private Property CveTimbre As Integer - - Private Property CPCliente As Integer - Public Property ObjFactura As Modelos.Factura - - Public Sub New() - - End Sub - - Public Sub New(TipoDocto As String, tCveTimbre As Integer, tUsuarioActual As Usuario) - _MsgError = New StringBuilder - UsuarioActual = tUsuarioActual - CveTimbre = tCveTimbre - CreaObjetosTraslados(TipoDocto, tCveTimbre) - End Sub - - - Private Sub CreaObjetosTraslados(TipoDocto As String, CveTimbre As Integer) +Imports System.Data +Imports Extensiones + +Public Class Timbres + Private _MsgError As StringBuilder + Private _MensajeAlert As StringBuilder + Public Property TieneError As Boolean + Public ReadOnly Property MsgError As String + Get + Return _MsgError.ToString + End Get + End Property + + Public ReadOnly Property MensajeAlert As String + Get + Return _MensajeAlert.ToString + End Get + End Property + + Private Property CveMovimiento As Integer + Private Property UsuarioActual As Usuario + Private Property AplicaCP As Boolean + Private Property FechaSalida As Date + Private Property Serie As String + Private Property Folio As Integer + Private Property CveTimbre As Integer + + Private Property CPCliente As Integer + Public Property ObjFactura As Modelos.Factura + + Public Sub New() + + End Sub + + Public Sub New(TipoDocto As String, tCveTimbre As Integer, tUsuarioActual As Usuario) + _MsgError = New StringBuilder + UsuarioActual = tUsuarioActual + CveTimbre = tCveTimbre + CreaObjetosTraslados(TipoDocto, tCveTimbre) + End Sub + + + Private Sub CreaObjetosTraslados(TipoDocto As String, CveTimbre As Integer) ObjFactura = New Modelos.Factura - ObjFactura.Version = "3.3" + ObjFactura.Version = "3.3" If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then ObjFactura.Version = "4.0" - ObjFactura.CveUsuario = UsuarioActual.CveUsuario - ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa - ObjFactura.UsuarioActual = UsuarioActual - 'ObjFactura.TipoCambio = 1 - ObjFactura.ConvertirPesos = False - ObjFactura.CveMoneda = 1 - ObjFactura.Moneda = "XXX" - ObjFactura.MonedaSAT = "XXX" - ObjFactura.MonedaAbreviatura = "XXX" - ObjFactura.TipoDocto = TipoDocto - ObjFactura.TipoComprobante = "T" - - ObjFactura.Fecha = Now - ObjFactura.FechaPago = Now - ObjFactura.FechaEjecucion = Now - ObjFactura.UsuarioCreo = UsuarioActual.Usuario - ObjFactura.TipoDocumento = "Traspaso" - - - ObjFactura.RFCReceptor = "XAXX010101000" ' RFC empresa traslado , si es entrega RFC Cliente - - ObjFactura.Inv_CveMovimiento = CveMovimiento - ObjFactura.CveTimbre = CveTimbre - - If CveTimbre > 0 AndAlso ObjFactura.TipoComprobante = "T" Then - - ObjFactura.Timbre = PreParaTimbreCartaPorte(ObjFactura) - - End If - - End Sub - - Private Function PreParaTimbreCartaPorte(Obj As Modelos.Factura) As CFDITimbre - Dim Timbre As New CFDITimbre - Timbre.Comprobante.TipoComprobante = "T" - Timbre.Comprobante.Fecha = Obj.Fecha - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT - Timbre.Comprobante.SubTotal = Obj.SubTotal - Timbre.Comprobante.Descuentos = Obj.Descuento - Timbre.Comprobante.Moneda = "XXX" + ObjFactura.CveUsuario = UsuarioActual.CveUsuario + ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa + ObjFactura.UsuarioActual = UsuarioActual + 'ObjFactura.TipoCambio = 1 + ObjFactura.ConvertirPesos = False + ObjFactura.CveMoneda = 1 + ObjFactura.Moneda = "XXX" + ObjFactura.MonedaSAT = "XXX" + ObjFactura.MonedaAbreviatura = "XXX" + ObjFactura.TipoDocto = TipoDocto + ObjFactura.TipoComprobante = "T" + + ObjFactura.Fecha = Now + ObjFactura.FechaPago = Now + ObjFactura.FechaEjecucion = Now + ObjFactura.UsuarioCreo = UsuarioActual.Usuario + ObjFactura.TipoDocumento = "Traspaso" + + + ObjFactura.RFCReceptor = "XAXX010101000" ' RFC empresa traslado , si es entrega RFC Cliente + + ObjFactura.Inv_CveMovimiento = CveMovimiento + ObjFactura.CveTimbre = CveTimbre + + If CveTimbre > 0 AndAlso ObjFactura.TipoComprobante = "T" Then + + ObjFactura.Timbre = PreParaTimbreCartaPorte(ObjFactura) + + End If + + End Sub + + Private Function PreParaTimbreCartaPorte(Obj As Modelos.Factura) As CFDITimbre + Dim Timbre As New CFDITimbre + Timbre.Comprobante.TipoComprobante = "T" + Timbre.Comprobante.Fecha = Obj.Fecha + Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 + Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT + Timbre.Comprobante.SubTotal = Obj.SubTotal + Timbre.Comprobante.Descuentos = Obj.Descuento + Timbre.Comprobante.Moneda = "XXX" Timbre.Comprobante.TipoCambio = "" ' CONDICIÓN SI LA MONEDA ES 'XXX' Timbre.Receptor.UsoCFDI = "S01" - If ObjFactura.Version = "3.3" Then Timbre.Receptor.UsoCFDI = "P01" - - 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 i As Integer = 1 - - - Timbre.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString - - - 'DETALLES - Dim tPS As String = "" - - Dim CartaPorte As New CFDICartaPorte - CartaPorte.TranspInternac = "No" - CartaPorte.EntradaSalidaMercancia = "" - CartaPorte.ViaEntradaSalida = "" - - CartaPorte.Mercancias.UnidadPeso = "KGM" - CartaPorte.Mercancias.CargoporTasacion = 0 - - Dim FI As Date = New Date(1900, 1, 1) - Dim FF As Date = New Date(9999, 1, 1) - - Dim FechaLlegada As DateTime - Dim Distancia As Integer = 1 - - Dim ObjGrales As New ClsGenerales - - If ObjGrales.GetGralTimbre(CveTimbre, Obj.TipoDocto, FI, FF, -1, UsuarioActual.CveEmpresa, -1) Then - - If ObjGrales.DtResultados.Rows.Count = 1 Then - Dim DtMovimientos As DataTable = Nothing - Dim drT As DataRow = ObjGrales.DtResultados.Rows(0) - - Timbre.Receptor.RFC = drT("EmpresaRFC").ToString - Timbre.Receptor.Nombre = drT("EmpresaNombre").ToString - Timbre.Receptor.DomicilioFiscalReceptor = drT("DomicilioFiscalReceptor").ToString - Timbre.Receptor.RegimenFiscalReceptor = drT("CodigoRegimenFiscalReceptor").ToString - - CveMovimiento = drT("CveMovimientoAlmacen").ToString.ToEntero - FechaSalida = drT("FechaEntrega").ToString.ToDateTime - FechaLlegada = drT("FechaLlegada").ToString.ToDateTime - Distancia = drT("Distancia").ToString.ToEntero - - ObjFactura.Folio = drT("Folio").ToString.ToEntero - ObjFactura.Serie = drT("Serie").ToString - Timbre.Comprobante.Serie = Obj.Serie - Timbre.Comprobante.Folio = Obj.Folio.ToString - - If drT("FolioFiscalRelacionado").ToString <> "" Then - - Timbre.CFDIRelacionados.TipoRelacion = "05" - Timbre.CFDIRelacionados.UUID.Add(drT("FolioFiscalRelacionado").ToString) - - End If - - If ObjGrales.GetGralMovimientosDetalleTimbre(CveTimbre, UsuarioActual.CveEmpresa) Then - DtMovimientos = ObjGrales.DtResultados - Else - TieneError = True - _MsgError.AppendLine("Error al obtener Movimientos") - End If - - ObjFactura.DtDetalle = DtMovimientos - - AplicaCP = Boolean.Parse(drT("AplicaCP").ToString) - - ObjFactura.CveSubProyecto = drT("CveSubProyecto").ToString.ToEntero - - ObjFactura.SetSubProyecto() - ObjFactura.SetSubProyectoMatriz() - - If AplicaCP Then - - CartaPorte.FiguraTransporte.AutoTransporte.PermisoSCT = drT("ClaveTipoPermisoSCT").ToString '"TPAF01" - CartaPorte.FiguraTransporte.AutoTransporte.NumPermisoSCT = drT("NumPermisoSCT").ToString - CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil = drT("NombreAseguradora").ToString - CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil = drT("NumPolizaSeguro").ToString - + If ObjFactura.Version = "3.3" Then Timbre.Receptor.UsoCFDI = "P01" + + 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 i As Integer = 1 + + + Timbre.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString + + + 'DETALLES + Dim tPS As String = "" + + Dim CartaPorte As New CFDICartaPorte + CartaPorte.TranspInternac = "No" + CartaPorte.EntradaSalidaMercancia = "" + CartaPorte.ViaEntradaSalida = "" + + CartaPorte.Mercancias.UnidadPeso = "KGM" + CartaPorte.Mercancias.CargoporTasacion = 0 + + Dim FI As Date = New Date(1900, 1, 1) + Dim FF As Date = New Date(9999, 1, 1) + + Dim FechaLlegada As DateTime + Dim Distancia As Integer = 1 + + Dim ObjGrales As New ClsGenerales + + If ObjGrales.GetGralTimbre(CveTimbre, Obj.TipoDocto, FI, FF, -1, UsuarioActual.CveEmpresa, -1) Then + + If ObjGrales.DtResultados.Rows.Count = 1 Then + Dim DtMovimientos As DataTable = Nothing + Dim drT As DataRow = ObjGrales.DtResultados.Rows(0) + + Timbre.Receptor.RFC = drT("EmpresaRFC").ToString + Timbre.Receptor.Nombre = drT("EmpresaNombre").ToString + Timbre.Receptor.DomicilioFiscalReceptor = drT("DomicilioFiscalReceptor").ToString + Timbre.Receptor.RegimenFiscalReceptor = drT("CodigoRegimenFiscalReceptor").ToString + + CveMovimiento = drT("CveMovimientoAlmacen").ToString.ToEntero + FechaSalida = drT("FechaEntrega").ToString.ToDateTime + FechaLlegada = drT("FechaLlegada").ToString.ToDateTime + Distancia = drT("Distancia").ToString.ToEntero + + ObjFactura.Folio = drT("Folio").ToString.ToEntero + ObjFactura.Serie = drT("Serie").ToString + Timbre.Comprobante.Serie = Obj.Serie + Timbre.Comprobante.Folio = Obj.Folio.ToString + + If drT("FolioFiscalRelacionado").ToString <> "" Then + + Timbre.CFDIRelacionados.TipoRelacion = "05" + Timbre.CFDIRelacionados.UUID.Add(drT("FolioFiscalRelacionado").ToString) + + End If + + If ObjGrales.GetGralMovimientosDetalleTimbre(CveTimbre, UsuarioActual.CveEmpresa) Then + DtMovimientos = ObjGrales.DtResultados + Else + TieneError = True + _MsgError.AppendLine("Error al obtener Movimientos") + End If + + ObjFactura.DtDetalle = DtMovimientos + + AplicaCP = Boolean.Parse(drT("AplicaCP").ToString) + + ObjFactura.CveSubProyecto = drT("CveSubProyecto").ToString.ToEntero + + ObjFactura.SetSubProyecto() + ObjFactura.SetSubProyectoMatriz() + + If AplicaCP Then + + CartaPorte.FiguraTransporte.AutoTransporte.PermisoSCT = drT("ClaveTipoPermisoSCT").ToString '"TPAF01" + CartaPorte.FiguraTransporte.AutoTransporte.NumPermisoSCT = drT("NumPermisoSCT").ToString + CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil = drT("NombreAseguradora").ToString + CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil = drT("NumPolizaSeguro").ToString + If Obj.DtDetalle IsNot Nothing AndAlso Obj.DtDetalle.Rows.Count > 0 Then If Obj.DtDetalle.MAX("ClaveMaterialPeligroso") <> "" Then CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente = drT("NombreAseguradoraMedioAmbiente").ToString @@ -178,43 +178,43 @@ Public Class Timbres End If End If - CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroCarga = drT("NombreAseguradoraCarga").ToString - CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroCarga = drT("NumPolizaSeguroCarga").ToString - CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular = drT("ConfigCartaPorte").ToString - CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM = drT("Placa").ToString - CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = drT("Anio").ToString.ToEntero - - If drT("ClaveTipoRemolque1").ToString <> "" Then - Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")} - CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1) - End If - - If drT("ClaveTipoRemolque2").ToString <> "" Then - Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")} - CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) - End If - - Dim DomOrigen As CFDICartaPorteDomicilio = Nothing - DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString, - .Colonia = drT("DirOriClaveSATColonia").ToString, - .CP = drT("DirOriCP").ToString, - .Estado = drT("DirOriClaveSATEstado").ToString, - .Pais = drT("DirOriClaveSATPais").ToString, - .Municipio = drT("DIrOriClaveSATMunicipio").ToString, - .Localidad = drT("DirOriClaveSATLocalidad").ToString} - - Dim DomDestino As CFDICartaPorteDomicilio = Nothing - - - DomDestino = New CFDICartaPorteDomicilio With {.Calle = drT("DirDesCalle").ToString, - .Colonia = drT("DirDesClaveSATColonia").ToString, - .CP = drT("DirDesCP").ToString, - .Estado = drT("DirDesClaveSATEstado").ToString, - .Pais = drT("DirDesClaveSATPais").ToString, - .Municipio = drT("DirDesClaveSATMunicipio").ToString, - .Localidad = drT("DirDesClaveSATLocalidad").ToString} - - Dim NumRegIdTrib As String = "" + CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroCarga = drT("NombreAseguradoraCarga").ToString + CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroCarga = drT("NumPolizaSeguroCarga").ToString + CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular = drT("ConfigCartaPorte").ToString + CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM = drT("Placa").ToString + CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = drT("Anio").ToString.ToEntero + + If drT("ClaveTipoRemolque1").ToString <> "" Then + Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")} + CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1) + End If + + If drT("ClaveTipoRemolque2").ToString <> "" Then + Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")} + CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) + End If + + Dim DomOrigen As CFDICartaPorteDomicilio = Nothing + DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString, + .Colonia = drT("DirOriClaveSATColonia").ToString, + .CP = drT("DirOriCP").ToString, + .Estado = drT("DirOriClaveSATEstado").ToString, + .Pais = drT("DirOriClaveSATPais").ToString, + .Municipio = drT("DIrOriClaveSATMunicipio").ToString, + .Localidad = drT("DirOriClaveSATLocalidad").ToString} + + Dim DomDestino As CFDICartaPorteDomicilio = Nothing + + + DomDestino = New CFDICartaPorteDomicilio With {.Calle = drT("DirDesCalle").ToString, + .Colonia = drT("DirDesClaveSATColonia").ToString, + .CP = drT("DirDesCP").ToString, + .Estado = drT("DirDesClaveSATEstado").ToString, + .Pais = drT("DirDesClaveSATPais").ToString, + .Municipio = drT("DirDesClaveSATMunicipio").ToString, + .Localidad = drT("DirDesClaveSATLocalidad").ToString} + + Dim NumRegIdTrib As String = "" Dim ResidenciaFiscal As String = "" If drT("DestinatarioRFC").ToString.Contiene("XEXX010101000") Then ' cuando es Extranjero, debe de llevar un numregidtrib ResidenciaFiscal = DomDestino.Pais @@ -324,62 +324,62 @@ Public Class Timbres '' T R A S L A D O S 'DETALLES - If Obj.DtDetalle IsNot Nothing Then - 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 IR LA ETIQUETA DE LA 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 = "", - .ObjetoImpuesto = "01"} - '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 - - Timbre.Conceptos.Add(concepto) - i += 1 - Next - Else - TieneError = True - _MsgError.AppendLine("timbrado son detalle de productos") - End If - - End If - - Else - TieneError = True - _MsgError.AppendLine("Consultar datos de timbrado") - End If - - ObjGrales.Dispose() - Else - Timbre = Nothing - _MsgError.AppendLine("Consultar datos de timbrado") - End If - Return Timbre - End Function - + If Obj.DtDetalle IsNot Nothing Then + 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 IR LA ETIQUETA DE LA 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 = "", + .ObjetoImpuesto = "01"} + '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 + + Timbre.Conceptos.Add(concepto) + i += 1 + Next + Else + TieneError = True + _MsgError.AppendLine("timbrado son detalle de productos") + End If + + End If + + Else + TieneError = True + _MsgError.AppendLine("Consultar datos de timbrado") + End If + + ObjGrales.Dispose() + Else + Timbre = Nothing + _MsgError.AppendLine("Consultar datos de timbrado") + End If + Return Timbre + End Function + Public Class MMensajeCartaPorte Public Property TieneError As Boolean Public Property Mensaje As String @@ -633,4 +633,4 @@ Public Class Timbres End Function -End Class +End Class diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index a8437e242..9b8998052 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -3975,6 +3975,7 @@ Namespace Extensiones HeaderBar = New StringBuilder("
  • Inicio
    • ") MenuHTML = New StringBuilder() modpadres = New List(Of String) + headerstr = New List(Of String) End Sub Property CveModuloSeleccionado As Integer @@ -3986,6 +3987,7 @@ Namespace Extensiones Property ScriptColorGrupoModulo As String Property strdomain As String Property modpadres As List(Of String) + Property headerstr As List(Of String) End Class diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 0bfb003be..7f6bf47cb 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -1851,7 +1851,8 @@ Public Class E141 : Implements IHttpHandler New JProperty("short_description", ""), New JProperty("description", ""), New JProperty("currency", 1), - New JProperty("promo_price", RowPS("PrecioPromocion")) + New JProperty("promo_price", RowPS("PrecioPromocion")), + New JProperty("product_related", RowPS("CodigosRelacionados")) ) ArrayPS.Add(producto) diff --git a/Bancos/DepositoTerminal.aspx.vb b/Bancos/DepositoTerminal.aspx.vb index 1a4095086..aea73499c 100644 --- a/Bancos/DepositoTerminal.aspx.vb +++ b/Bancos/DepositoTerminal.aspx.vb @@ -345,7 +345,6 @@ Partial Class Bancos_DepositoTerminal ImporteMovimiento = gvr.DataKey("IVA").ToDecimal * PorcentajePago importeMX = Math.Round(ImporteMovimiento * tipoCambioVenta, 2) - IdCtaContable = UsuarioActual.Empresa.IdCuentaIVAxTrasladar If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}" Case 62 'Ret IVA Trasladado @@ -387,7 +386,6 @@ Partial Class Bancos_DepositoTerminal ImporteMovimiento = gvr.DataKey("IVA").ToDecimal * PorcentajePago importeMX = Math.Round(ImporteMovimiento * tipoCambioManual, 2) - IdCtaContable = UsuarioActual.Empresa.IdCuentaIVATrasladado If tipoCambioManual > 1 Then ConceptoMovimiento += $" TC:{tipoCambioManual} ${ImporteMovimiento.FormatoNumero(2)}" Case 38 'IEPS por trasladar @@ -395,14 +393,10 @@ Partial Class Bancos_DepositoTerminal ImporteMovimiento = gvr.DataKey("IEPS").ToDecimal * PorcentajePago importeMX = Math.Round(ImporteMovimiento * tipoCambioVenta, 2) - IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar - Case 39 'IEPS Trasladado ImporteMovimiento = gvr.DataKey("IEPS").ToDecimal * PorcentajePago importeMX = Math.Round(ImporteMovimiento * tipoCambioManual, 2) - IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado - Case 78 'Otros Ingresos If ChkAjusteOI.Checked Then ImporteMovimiento = gvr.FCTextBox("TxtComision").Text.ToDecimal diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index 9bcabe81d..a3bf3ec35 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -540,12 +540,12 @@ public partial class Bancos_Devoluciones : ClsPaginas } //IVA - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 13, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 13, Conc, DateTime.Now, 0, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal())) { MsgError = "No se pudo insertar concepto de IVA"; } - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 61, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 61, Conc, DateTime.Now,0, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal())) { MsgError = "No se pudo insertar concepto de IVA"; } diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx index c7634465c..db024ed8d 100644 --- a/Bancos/FluctuacionCambiaria.aspx +++ b/Bancos/FluctuacionCambiaria.aspx @@ -758,8 +758,60 @@ + + + + +
    +
    + +
    + + + + +
    + +
    + + + + + +
    + +
    + + + + + +
    +
    + +
    + +
    +
    + + + + + + + + + +     +     - +
    @@ -806,17 +858,7 @@ - - - - - - - - +     diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 75f553751..ec1245098 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -36,6 +36,8 @@ Partial Class Bancos_FluctuacionCambiaria CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreeedoresAnt, Nothing, LblSubProyectoAcreedoresAnt, "") CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyectoBancos, "") CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales, "") + CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedoresDiversos, Nothing, LblSubProyectoAcreedoresDiversos, "") + CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores, "") CargaUltimaFluctuacion() @@ -66,6 +68,10 @@ Partial Class Bancos_FluctuacionCambiaria End Sub Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + CargaDatos() + End Sub + + Private Sub CargaDatos() CargaTipoCambio() If T.ActiveTabIndex = 0 Then CargaDatosProveedores() If T.ActiveTabIndex = 1 Then CargaDatosProveedoresAnticipos() @@ -77,7 +83,7 @@ Partial Class Bancos_FluctuacionCambiaria If T.ActiveTabIndex = 7 Then CargaDatosAcreedoresDiversos() 'CargaDatosFiliales() If T.ActiveTabIndex = 8 Then CargaDatosDeudores() - UpTabs.Update() + UpTabs.Update() End Sub @@ -288,8 +294,9 @@ Partial Class Bancos_FluctuacionCambiaria HdnAcreedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString BtnAcreedoresAntRemove.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 BtnGeneraAcreedoresAnt.Visible = Not HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 + HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString - HplAcreedorAntLiga.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0 + HplAcreedorAntLiga.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 HplAcreedorAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) GvAcreedoresAnt.DataSource = ObjBancos.DtResultados LblTotalAcreedoresAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero @@ -379,9 +386,17 @@ Partial Class Bancos_FluctuacionCambiaria Private Sub CargaDatosAcreedoresDiversos() Dim ObjBancos As New ClsBancos LblTotalAcreedores.Text = "0.00" - If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 88, UsuarioActual.CveEmpresa) Then - GvAcreedorDiversos.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0") - LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero + If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 88, UsuarioActual.CveEmpresa) Then + HdnAcreedoresDiversosCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString + HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString + BtnAcreedoresDiversosRemove.Visible = HdnAcreedoresDiversosCvePrePoliza.Value.ToEntero > 0 + BtnGeneraAcreeedoresDiversos.Visible = Not HdnAcreedoresDiversosCvePrePoliza.Value.ToEntero > 0 + + HplAcreedoresDiversosPoliza.Visible = HdnAcreedoresDiversosCvePrePoliza.Value.ToEntero > 0 + HplAcreedoresDiversosPoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) + + GvAcreedorDiversos.DataSource = ObjBancos.DtResultados + LblTotalAcreedoresDiversos.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero Else GvAcreedorDiversos.DataSource = Nothing Alert("Ocurrio un error al cargar los acreedores", TipoMensaje.MsgAdvertencia) @@ -413,9 +428,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Total = LblTotal.ToDecimal @@ -493,9 +506,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Total = LblTotal.ToDecimal @@ -577,9 +588,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal() @@ -674,9 +683,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal() @@ -780,9 +787,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Total = LblTotalAcreedores.Text.ToDecimal @@ -869,9 +874,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Total = LblTotalAcreedoresAnt.Text.ToDecimal @@ -952,9 +955,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoBancos.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CveCuentaPerdida = 0 ' 55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Total = LblTotalBancos.Text.ToDecimal @@ -1038,9 +1039,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal @@ -1102,8 +1101,8 @@ Partial Class Bancos_FluctuacionCambiaria Dim Total As Decimal = 0 Dim Conta As New ClsContabilidad Dim Banco As New ClsBancos(Conta.IniciaTransacSQL()) - Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa) - ObjContPaq.IniciaTransacSQL() + 'Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa) + 'ObjContPaq.IniciaTransacSQL() Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaFilial", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoFiliales.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim idCta As Integer = 0 Dim CveCuenta As Integer = 0 @@ -1116,9 +1115,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal @@ -1157,9 +1154,6 @@ Partial Class Bancos_FluctuacionCambiaria Banco.UpdateBancosTipoCambioValuacion(TCCierreFluctuacion, gvr.DataKey("CveIE").ToEntero, UsuarioActual.CveEmpresa) End If - - - Next If Not ErrorRegistrar Then @@ -1168,28 +1162,96 @@ Partial Class Bancos_FluctuacionCambiaria Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" If AutoConta Then - If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then + If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then Else Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError) End If - End If - - If ObjContPaq IsNot Nothing Then ObjContPaq.Commit() - 'Fin autoconta + End If + + ' If ObjContPaq IsNot Nothing Then ObjContPaq.Commit() + 'Fin autoconta Conta.Commit() - Alert(String.Format("La Fluctuación se ha generado
    Ver Póliza", CvePrePoliza), TipoMensaje.MsgInformacion) + Alert(String.Format("La Fluctuación se ha generado
    Ver Póliza", CvePrePoliza), TipoMensaje.MsgInformacion) Else Conta.RollBack() - ObjContPaq.RollBack() + 'ObjContPaq.RollBack() End If Conta.Dispose() Banco.Dispose() - ObjContPaq.Dispose() + 'ObjContPaq.Dispose() End Sub + + #End Region + +#Region "FLUCTUACION ACREEDORES DIVEROS" + Protected Sub BtnGeneraAcreeedoresDiversos_Click(sender As Object, e As EventArgs) + + Dim Conta As New ClsContabilidad + Dim Banco As New ClsBancos(Conta.IniciaTransacSQL()) + Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaAD", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoAcreedoresDiversos.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim CveConceptoContable As Integer + Dim TipoMovto As Boolean + Dim ErrorRegistrar As Boolean = False + + Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias + Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal + Dim TotalAcumulado As Decimal = 0 + Dim ConceptoFluctuacion As String = String.Format("Fluctuación Acreedores Diversos {0:d} ", FechaUltimoDiaMes) + + + For Each gvr As GridViewRow In GvAcreedorDiversos.Rows + TotalAcumulado += gvr.DataKey("Fluctuacion").ToDecimal + Next + 'TotalAcumulado = GvAcreedorDiversos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) Convert.ToDecimal(GvAcreedorDiversos.DataKeys(gvr.RowIndex)("Fluctuacion"))) + + + If TotalAcumulado < 0 Then + CveConceptoContable = 64 : TipoMovto = True + Else + CveConceptoContable = 65 : TipoMovto = False + End If + + 'saco las cuentas de pérdida y ganancia + For Each gvr As GridViewRow In GvAcreedorDiversos.Rows + + If gvr.DataKey("Fluctuacion").ToDecimal <> 0 Then + 'movimiento de complementaria + If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, gvr.DataKey("Fluctuacion").ToDecimal, ConceptoFluctuacion, 351, ConceptoFluctuacion & gvr.DataKey("RazonSocial"), Now, 0, 0, TipoCambio:=TC, ImporteMX:=gvr.DataKey("Fluctuacion").ToDecimal, ImporteME:=gvr.DataKey("Fluctuacion").ToDecimal, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveSubProyecto:=DdlSubProyectoAcreedoresDiversos.SelectedValue.ToEntero) Then + ErrorRegistrar = True + Exit For + End If + End If + + Next + If Not ErrorRegistrar Then + + If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(TotalAcumulado), ConceptoFluctuacion, CveConceptoContable, ConceptoFluctuacion, Now, 0, 0, ImporteMX:=Math.Abs(TotalAcumulado), CveSubProyecto:=DdlSubProyectoAcreedoresDiversos.SelectedValue.ToEntero) Then + ErrorRegistrar = True + End If + End If + + If Not ErrorRegistrar Then + + If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 9, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then + ErrorRegistrar = True + End If + + Conta.Commit() + + Alert(String.Format("La Fluctuación se ha generado
    Ver Póliza", CvePrePoliza), TipoMensaje.MsgInformacion) + Else + Conta.RollBack() + 'ObjContPaq.RollBack() + End If + Conta.Dispose() + Banco.Dispose() + 'ObjContPaq.Dispose() + End Sub +#End Region #Region "GRIDVIEWS" @@ -1236,7 +1298,7 @@ Partial Class Bancos_FluctuacionCambiaria If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorCvePrePoliza.Value.ToEntero, 1, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then Banco.Commit() BtnProveedoresRemove.visible = False - Alert("Flucturación eliminada.") + Alert("Fluctuación eliminada.") Else Banco.RollBack() End If @@ -1251,7 +1313,7 @@ Partial Class Bancos_FluctuacionCambiaria If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorAntCvePrePoliza.Value.ToEntero, 2, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then Banco.Commit() BtnProveedoresAntRemove.Visible = False - Alert("Flucturación eliminada.") + Alert("Fluctuación eliminada.") Else Banco.RollBack() End If @@ -1265,7 +1327,7 @@ Partial Class Bancos_FluctuacionCambiaria If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnClienteCvePrePoliza.Value.ToEntero, 3, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then Banco.Commit() BtnClientesRemove.Visible = False - Alert("Flucturación eliminada.") + Alert("Fluctuación eliminada.") Else Banco.RollBack() End If @@ -1279,7 +1341,7 @@ Partial Class Bancos_FluctuacionCambiaria If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnClienteAntCvePrePoliza.Value.ToEntero, 4, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then Banco.Commit() BtnClientesAntRemove.Visible = False - Alert("Flucturación eliminada.") + Alert("Fluctuación eliminada.") Else Banco.RollBack() End If @@ -1293,7 +1355,7 @@ Partial Class Bancos_FluctuacionCambiaria If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnAcreedorCvePrePoliza.Value.ToEntero, 5, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then Banco.Commit() BtnAcreedoresRemove.Visible = False - Alert("Flucturación eliminada.") + Alert("Fluctuación eliminada.") Else Banco.RollBack() End If @@ -1307,7 +1369,7 @@ Partial Class Bancos_FluctuacionCambiaria If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnAcreedorAntCvePrePoliza.Value.ToEntero, 6, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then Banco.Commit() BtnAcreedoresAntRemove.Visible = False - Alert("Flucturación eliminada.") + Alert("Fluctuación eliminada.") Else Banco.RollBack() End If @@ -1352,4 +1414,19 @@ Partial Class Bancos_FluctuacionCambiaria End Sub #End Region + + Protected Sub BtnAcreedoresDiversosRemove_Click(sender As Object, e As EventArgs) + Dim Banco As New ClsBancos + Banco.IniciaTransacSQL() + + If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnAcreedoresDiversosCvePrePoliza.Value.ToEntero, 9, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then + Banco.Commit() + BtnAcreedoresDiversosRemove.Visible = False + CargaDatos() + Alert("Fluctuación eliminada.") + Else + Banco.RollBack() + End If + Banco.Dispose() + End Sub End Class diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index a707d96a5..f7095185e 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -265,6 +265,7 @@ Clientes Proveedor Viáticos + Acreedor diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index d887529d1..a1c19340e 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2818,7 +2818,7 @@ Partial Class Bancos_IE If TxtIvaIxC.Text.ToDouble > 0 Then Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2) 'Iva - ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=If(PorcentajeIVA.ToString().Contiene("0.08", "0.16"), PorcentajeIVA, 0)) + ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, 0, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=If(PorcentajeIVA.ToString().Contiene("0.08", "0.16"), PorcentajeIVA, 0)) End If 'Bancos @@ -2935,7 +2935,7 @@ Partial Class Bancos_IE Dim CveConIVA As Integer = 61 If UsuarioActual.CveEmpresa = 70 Then CveConIVA = 299 Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2) - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=PorcentajeIVA) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, 0, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=PorcentajeIVA) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If End If @@ -3244,14 +3244,14 @@ Partial Class Bancos_IE If DiferenciaTC < 0 Then '64 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria" Exit Select End If Else '65 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria" Exit Select End If @@ -3282,9 +3282,9 @@ Partial Class Bancos_IE Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal - Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC) - Dim IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - Dim IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero + 'Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC) + 'Dim IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero + 'Dim IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero Dim IVADevMN As Decimal = 0 Dim IEPSDevMN As Decimal = 0 Dim PorcentajeDevolucion As Decimal = ((ImporteAplicar * 100D / TotalCompraDev) / 100).RoundSQL(2) @@ -3305,11 +3305,11 @@ Partial Class Bancos_IE If IVADev > 0 Then - IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC + ' IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then - IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC + ' IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución" @@ -3453,14 +3453,14 @@ Partial Class Bancos_IE If DiferenciaTC < 0 Then '64 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria" Exit Select End If Else '65 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria" Exit Select End If @@ -3489,17 +3489,17 @@ Partial Class Bancos_IE Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal - Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC) + 'Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC) Dim IdCtaIVAXAcreditarDevDinC As Integer Dim IdCtaIVAAcreditableDevDinC As Integer - If DTCuentas IsNot Nothing AndAlso DTCuentas.Rows.Count > 0 Then - IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero - Else - MsgError = "Sin Registros de porcentaje impuesto" - End If + 'If DTCuentas IsNot Nothing AndAlso DTCuentas.Rows.Count > 0 Then + ' IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero + ' IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero + 'Else + ' MsgError = "Sin Registros de porcentaje impuesto" + 'End If Dim IVADevMN As Decimal = 0 Dim IEPSDevMN As Decimal = 0 diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index 5dbf0ec6c..d7fb87350 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -409,13 +409,11 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (TCPago > TC) { CveConceptoDiferenciaCambiaria = 65; - IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria; TipoMovto = false; } else if (TCPago < TC) { CveConceptoDiferenciaCambiaria = 64; - IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria; TipoMovto = true; } Importe = ((Importe * TCPago) - (Importe * TC)).Abs(); diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 3a210032b..df9520fbd 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -780,16 +780,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas if (TC < TCDoc) { CveConceptoDiferenciaCambiaria = 65; - IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria; TipoMovto = false; Importe = (Importe * gvr.DataKey("TipoCambio").ToDecimal()) - (Importe * TC); } else if (TC > TCDoc) { CveConceptoDiferenciaCambiaria = 64; - IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria; TipoMovto = true; - Importe = (Importe * TC) - (Importe * gvr.DataKey("TipoCambio").ToDecimal()); } ImporteMN = Importe; diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 33211d3ff..0b28dc305 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -108,7 +108,7 @@ Partial Class Bancos_PolizaCheque DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True Dim dt As DataTable = Nothing - If UsuarioActual.Empresa.UsaContabilidad Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) If Conta.GetCuentas(-1, "-1", 1) Then @@ -118,6 +118,17 @@ Partial Class Bancos_PolizaCheque End If Conta.Dispose() + End If + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + Dim Conta As New ClsContabilidad + + If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then + dt = Conta.DtResultados + DtCuentasContables = Conta.DtResultados + Session("DtCuentas") = Conta.DtResultados + End If + Conta.Dispose() + End If TipoPlantilla = 0 @@ -405,9 +416,8 @@ Partial Class Bancos_PolizaCheque NombreCuenta = "" If UsuarioActual.Empresa.UsaContabilidad Then - If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) - + If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso drt("CveCuenta").ToString.ToEntero > 0 Then + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString)) If drr IsNot Nothing Then IdCuenta = drt("IdCtaContable").ToString.ToEntero @@ -416,41 +426,43 @@ Partial Class Bancos_PolizaCheque 'Cuenta = drr("Nombre").ToString() End If EsComodin = 0 + End If + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) - - ElseIf drt("CveConcepto").ToString = "30" Then - 'saco la clave de la cuenta bancaria seleccionada - If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) If drr IsNot Nothing Then - IdCuenta = drr("Id").ToString.ToEntero + IdCuenta = drt("IdCtaContable").ToString.ToEntero CodigoCuenta = drr("CuentaFormato").ToString() NombreCuenta = drr("Nombre").ToString() - ' Cuenta = drr("Nombre").ToString() - EsComodin = 1 - Else - - ' Rad.Checked = False - If UsuarioActual.CveEmpresa <> 126 Then - Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) - GvMov.DataBind() - UPMovs.Update() - Exit Sub - End If - + 'Cuenta = drr("Nombre").ToString() End If + EsComodin = 0 + + + ElseIf drt("CveConcepto").ToString = "30" Then + 'saco la clave de la cuenta bancaria seleccionada + If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) + If drr IsNot Nothing Then + IdCuenta = drr("Id").ToString.ToEntero + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + ' Cuenta = drr("Nombre").ToString() + EsComodin = 1 + End If + End If + ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then + + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia)) + + IdCuenta = IdCtaFondoGarantia + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + 'Cuenta = drr("Nombre").ToString() + + EsComodin = 0 End If - ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then - - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia)) - - IdCuenta = IdCtaFondoGarantia - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() - - EsComodin = 0 - End If End If diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 0ee519115..28ee2316a 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1122,7 +1122,7 @@ Partial Class Bancos_PopIEVentas trCuentaDeposito.Visible = False Dim Dep As New ClsGenerales - If Dep.GetCuentasDepositos(CveCliente:=CveCliente) Then + If Dep.GetCuentasDepositos(CveCliente:=CveCliente, CveEmpresa:=UsuarioActual.CveEmpresa) Then If DdlTipoTransaccion.SelectedValue = "9" Then DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") @@ -1905,13 +1905,6 @@ Partial Class Bancos_PopIEVentas PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA - Dim IdCtaIVAXTrasladar As Integer = 0 - - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero - End If - - IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) Case 61 'Iva Trasladado If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then @@ -1937,13 +1930,7 @@ Partial Class Bancos_PopIEVentas If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA - Dim IdCtaIVATrasladado As Integer = 0 - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero - End If - - IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) Case 38 'IEPS por trasladar If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then @@ -2078,7 +2065,6 @@ Partial Class Bancos_PopIEVentas Case 64 'Ganancia If CveMoneda <> 1 OrElse CveMonedaVenta <> 1 Then - IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria Dim tImporteVenta, tImportePago, Diferencia As Decimal ImporteMovimiento = 0 @@ -2100,11 +2086,9 @@ Partial Class Bancos_PopIEVentas If tImporteVenta <> tImportePago Then If tImporteVenta < tImportePago Then ConceptoContable = 64 - IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria TipoMovimiento = True Else ConceptoContable = 65 - IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria TipoMovimiento = False End If Diferencia = Math.Abs(tImporteVenta - tImportePago) diff --git a/Bancos/PrestamoPersonal.aspx b/Bancos/PrestamoPersonal.aspx index 332b6e4ad..10daa5b36 100644 --- a/Bancos/PrestamoPersonal.aspx +++ b/Bancos/PrestamoPersonal.aspx @@ -115,18 +115,18 @@
    -
    +
    -
    +
    -
    +
    -
    +
    <%-- @@ -137,18 +137,18 @@
    -
    +
    -
    +
    -
    +
    -
    +
    0 Then - IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero - End If + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then + ' IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero + ' IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero + 'End If Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal @@ -1930,11 +1930,11 @@ Partial Class Bancos_ProveedoresAbonar End If If TCCompra > TCPago Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then MsgError = "Ocurrio un error al saldar el movimiento" End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then MsgError = "Ocurrio un error al saldar el movimiento" End If End If diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 008afe0f8..c4a1c727b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -5908,10 +5908,10 @@ Partial Class Compras_Compras ' Dim IdCtaIVAAcreditable As Integer = 0 Dim GuardoConcepto18 As Boolean = False - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows.Count > 0 Then - IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - ' IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero - End If + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows.Count > 0 Then + ' IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero + ' ' IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero + 'End If '********************** Variables '********************** @@ -6363,11 +6363,9 @@ Partial Class Compras_Compras If TipoCambioCompra > TCPago Then ConceptoContable = 64 - IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria TipoMovimiento = True Else ConceptoContable = 65 - IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria TipoMovimiento = False End If If TCPago <> TipoCambioCompra Then @@ -6828,10 +6826,8 @@ Partial Class Compras_Compras If diferenciaTransito <> 0 Then Dim tCveCon As Integer = 65 - IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria If diferenciaTransito < 0 Then tCveCon = 64 - IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If diferenciaTransito = Math.Abs(diferenciaTransito) @@ -7368,11 +7364,9 @@ Partial Class Compras_Compras If importeMovimiento > 0 Then ConceptoContable = 64 TipoMovimiento = True - IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria ElseIf importeMovimiento < 0 Then ConceptoContable = 65 TipoMovimiento = False - IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria End If importeMovimiento = importeMovimiento.Abs.RoundSQL() diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 15dc5bff8..17f4b9ac2 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -1823,11 +1823,8 @@ Partial Class Compras_Proveedores If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() 'ACTUALIZAR GLOBAL - 'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing - 'Else - ' ErrorBancos = True - 'End If + GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing Alert("El Proveedor se guardó correctamente. " & "
    " & MsgCuentaContable, TipoMensaje.MsgInformacion, If(Request("CveFactura") Is Nothing, "document.location.href=""/Compras/CatProveedores.aspx""", "window.opener.location.href = window.opener.location.href; window.close();")) RecargaGlobalCuentasBancarias() @@ -3416,7 +3413,9 @@ Partial Class Compras_Proveedores If CveProveedor > 0 Then If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DTCuentasBancos.Clear() - DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) + 'recargar las cuentas + GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing + DTCuentasBancos = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor) Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion) Else @@ -3430,12 +3429,11 @@ Partial Class Compras_Proveedores CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) ObjCuentasBancos.Dispose() - RecargaGlobalCuentasBancarias() + End Sub Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1) If CveProveedor > 0 Then GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing - End If End Sub diff --git a/Compras/RepComprasAF.aspx b/Compras/RepComprasAF.aspx index 20b3912ae..41d634712 100644 --- a/Compras/RepComprasAF.aspx +++ b/Compras/RepComprasAF.aspx @@ -1,330 +1,326 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasAF.aspx.vb" Inherits="Compras_RepComprasAF" %> - - - - - - - - Reporte de Compras Activo Fijo - - - - -
  • - Generar PDF -
    • -
  • - Generar Excel -
    • -
  • - Ver Dlls en pesos -
    • -
  • -   -
    • - - -
  • - Ver Grafica -
    • -     -     -     - - - - - -
    -
    -
    - - -
    -
    -
    -
    Fecha Inicio:
    -
    -
    - - - - - - - - - - -
    -
    -
    Fecha Fin:
    -
    -
    - - - - - - - - - - -
    -
    -
    Grupo:
    -
    - - - - - - - - - - - - - -
    -
    -
    -
    - -
    -     -     -
    -
    - - - - - - - - - - - - - - - - - - - - - - - -
    - - - + + + +     + + + + + + + - - + + + diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb index fbd61c616..781f65a9a 100644 --- a/Compras/RepComprasAF.aspx.vb +++ b/Compras/RepComprasAF.aspx.vb @@ -59,16 +59,20 @@ Partial Class Compras_RepComprasAF txtFechaI.Text = $"01/{Now.Month}/{Now.Year}" DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedores.DataBind() + DdlProveedores.DataBind() + DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlMonedas.DataSource = GlobalDTMonedas() - DdlMonedas.DataBind() + DdlMonedas.DataBind() + DdlMonedas.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo") DdlTipoActivoFijo.DataBind() + DdlTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") DdlClasificacion.DataBind() + DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) Dim ObjClasificacion As New ClsClasificaciones @@ -81,9 +85,11 @@ Partial Class Compras_RepComprasAF ObjClasificacion.Dispose() DdlClasificacion2.DataBind() + DdlClasificacion2.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlActivoFijo.DataBind() + DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb index b06371f16..0b7e4d24c 100644 --- a/Compras/RepNotasCredito.aspx.vb +++ b/Compras/RepNotasCredito.aspx.vb @@ -181,11 +181,9 @@ Partial Class Compras_RepNotasCredito If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((Importe * difFluctuacion).RoundSQL) diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx.vb b/Contabilidad/CatClasificacionPorcentaje.aspx.vb index 4c7f79bc3..fa155e307 100644 --- a/Contabilidad/CatClasificacionPorcentaje.aspx.vb +++ b/Contabilidad/CatClasificacionPorcentaje.aspx.vb @@ -93,9 +93,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue, UsuarioActual.CveEmpresa) Then RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) Alert("Clasificación porcentaje agregado correctamente") - If ObjGenerales.GetClasificacionPorcentaje(-1) Then - GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados - End If + 'If ObjGenerales.GetClasificacionPorcentaje(-1) Then + ' GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados + 'End If CargaDatos() CargaContPaq() UpDatos.Update() @@ -105,9 +105,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje DdlIdCtaIVAAcreditable.SelectedValue, DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue) Then RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) Alert("Clasificación porcentaje actualizado correctamente") - If ObjGenerales.GetClasificacionPorcentaje(-1) Then - GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados - End If + 'If ObjGenerales.GetClasificacionPorcentaje(-1) Then + ' GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados + 'End If CargaDatos() CargaContPaq() UpDatos.Update() @@ -120,9 +120,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje Dim objgenerales As New ClsGenerales If objgenerales.RemoveClasificacionPorcentaje(GvDatos.DataKeys(e.RowIndex).Value.ToString) Then Alert("la clasificación porcentaje se eliminó correctamente") - If objgenerales.GetClasificacionPorcentaje(-1) Then - GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados - End If + 'If objgenerales.GetClasificacionPorcentaje(-1) Then + ' GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados + 'End If CargaDatos() CargaContPaq() UpDatos.Update() diff --git a/Contabilidad/DIOTChilo.aspx b/Contabilidad/DIOTChilo.aspx deleted file mode 100644 index abe8b969a..000000000 --- a/Contabilidad/DIOTChilo.aspx +++ /dev/null @@ -1,29 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="DIOTChilo.aspx.vb" Inherits="Contabilidad_DIOTChilo" %> - - - - - - - - - - - - - - - - -
    -
    - - -
    -
    - - -     - - - diff --git a/Contabilidad/DIOTChilo.aspx.vb b/Contabilidad/DIOTChilo.aspx.vb deleted file mode 100644 index bd0ee463a..000000000 --- a/Contabilidad/DIOTChilo.aspx.vb +++ /dev/null @@ -1,121 +0,0 @@ -Imports System.Data -Imports Extensiones - -Partial Class Contabilidad_DIOTChilo - Inherits Page - - Private Sub Contabilidad_DIOTChilo_Load(sender As Object, e As EventArgs) Handles Me.Load - - End Sub - - - - Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click - Dim ObjContabilidad As New ClsContabilidad - Dim ObjConta As ClsContPAQi = Nothing - Dim ObjEmpres As New Empresa() - - ObjEmpres.Empresa = "EXPLORACIONES MINERAS DEL DESIERTO S.A DE C.V" - ObjEmpres.ServerContPAQi = "192.168.0.2\COMPAC,1430" - ObjEmpres.BDContPAQi = "ctEMD" - ObjEmpres.UsrContPAQi = "sa" - ObjEmpres.PwdContPAQi = "AsS151026r37" - - Dim OcurrioError = False - Dim Mensaje = "" - - If ObjConta Is Nothing Then - ObjConta = New ClsContPAQi(ObjEmpres) - ObjConta.IniciaTransacSQL() - End If - - Dim tIdPoliza As Integer - Dim Fecha As Date - Dim ContaFolio As Integer - - If ObjContabilidad.GetPrePoliza(TxtPoliza.Text.ToEntero, 13) Then - tIdPoliza = ObjContabilidad.DtResultados(0)("IdPoliza").ToString.ToEntero - Fecha = ObjContabilidad.DtResultados(0)("Fecha").ToString.ToDate - ContaFolio = ObjContabilidad.DtResultados(0)("FolioPoliza").ToString.ToEntero - End If - - - If ObjContabilidad.GetDIOTValores(TxtPoliza.Text.ToEntero) Then - - If ObjContabilidad.DtResultados.Rows.Count.ToEntero > 0 Then - Dim IdProveedor As Integer - - Dim RFC As String = "" - Dim RazonSocial As String = "" - Dim IdCtaContProveedores As Integer - - - For Each dr As DataRow In ObjContabilidad.DtResultados.Rows - RFC = dr("RFC").ToString - RazonSocial = dr("RazonSocial").ToString - IdCtaContProveedores = dr("IdCtaContProveedores").ToString.ToEntero - - If IdCtaContProveedores > 0 Then - - 'busco la clave del proveedor en la contabilidad por su cuenta contable - If ObjConta.GetProveedores(IdCuentaContable:=IdCtaContProveedores) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - Dim drt As DataRow = ObjConta.DtResultados.Rows(0) : IdProveedor = drt("Id").ToString.ToEntero - End If - End If - Else - 'busco la clave del proveedor en la contabilidad por su cuenta contable - If ObjConta.GetProveedores(RFC:=RFC) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - Dim drtt As DataRow = ObjConta.DtResultados.Rows(0) : IdProveedor = drtt("Id").ToString.ToEntero - End If - Else - 'registro el proveedor generico - Select Case 13 - Case Else : IdProveedor = 0 - End Select - End If - - End If - - - If IdProveedor <= 0 Then - IdProveedor = ObjConta.AddProveedor(IdCtaContProveedores, RFC, RazonSocial, "") - If IdProveedor <= 0 Then - OcurrioError = True - End If - End If - - If Not OcurrioError Then - If dr("Total").ToString.ToDecimal <> 0.00 Then - If Not ObjConta.AddDevolucionesIVA(tIdPoliza, dr("CuentaBancos").ToString.ToEntero, - IdProveedor, - 16, - dr("SubTotal").ToString.ToDecimal, - dr("IvaAcreditable").ToString.ToDecimal, - dr("IVARetenido").ToString.ToDecimal, - dr("ISRRetenido").ToString.ToDecimal, - Fecha, - ContaFolio, - dr("Serie").ToString.ToString, - dr("Folio").ToString.StrToNum, dr("FolioFiscal").ToString, 13) Then - OcurrioError = True - Mensaje = "La Poliza o la Cuenta no son válidas" - Exit For - End If - End If - End If - Next - - - If OcurrioError Then - ObjConta.RollBack() - Else - 'Alert(String.Format("{1}
    ", tIdPoliza, ObjConta.Folio)) - ObjConta.Commit() - End If - - End If - End If - End Sub -End Class diff --git a/Contabilidad/DiarioAmortizaciones.aspx.vb b/Contabilidad/DiarioAmortizaciones.aspx.vb index c3d194a80..433b55244 100644 --- a/Contabilidad/DiarioAmortizaciones.aspx.vb +++ b/Contabilidad/DiarioAmortizaciones.aspx.vb @@ -810,9 +810,9 @@ Partial Class Contabilidad_DiarioAmortizaciones FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA If FluctuacionCambiariaIVA < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuacion IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera @@ -823,9 +823,9 @@ Partial Class Contabilidad_DiarioAmortizaciones If Dif < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero) @@ -858,9 +858,9 @@ Partial Class Contabilidad_DiarioAmortizaciones FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA If FluctuacionCambiariaIVA < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuacion IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera @@ -871,9 +871,9 @@ Partial Class Contabilidad_DiarioAmortizaciones If Dif < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero) @@ -1123,7 +1123,7 @@ Partial Class Contabilidad_DiarioAmortizaciones IVAxAcreditar = IVAAcreditable IVAAcreditable = 0 - If UsuarioActual.Empresa.ContaContabilizacionNC = 1 Then + If 1 = 1 Then TipoCambioCompra = TipoCambioCompra * -1 'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores TipoCambioPago = TipoCambioPago * -1 TipoCambioFechaCompra = TipoCambioFechaCompra * -1 @@ -1301,9 +1301,9 @@ Partial Class Contabilidad_DiarioAmortizaciones If UsuarioActual.CveEmpresa = 66 Then FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA If FluctuacionCambiariaIVA < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuación IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera @@ -1320,9 +1320,9 @@ Partial Class Contabilidad_DiarioAmortizaciones If Dif < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero) diff --git a/Contabilidad/DiarioCompras.aspx.vb b/Contabilidad/DiarioCompras.aspx.vb index 8f3e2ebeb..b199e4ac2 100644 --- a/Contabilidad/DiarioCompras.aspx.vb +++ b/Contabilidad/DiarioCompras.aspx.vb @@ -344,7 +344,7 @@ Partial Class Contabilidad_DiarioCompras If gvr.DataKey("TipoDocto") = "NC" Then - If UsuarioActual.Empresa.ContaContabilizacionNC <> 0 Then + If 1 <> 0 Then 'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores MultNC = -1 Else diff --git a/Contabilidad/DiarioPagos.aspx.vb b/Contabilidad/DiarioPagos.aspx.vb index ec96f64eb..f6e19b1f6 100644 --- a/Contabilidad/DiarioPagos.aspx.vb +++ b/Contabilidad/DiarioPagos.aspx.vb @@ -697,7 +697,7 @@ Partial Class Contabilidad_DiarioPagos If gvrc.FCHiddenField("HdnTipoDocto").Value = "NC" Then - If UsuarioActual.Empresa.ContaContabilizacionNC = 1 Then + If 1 = 1 Then TipoCambioCompra = TipoCambioCompra * -1 'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores TipoCambioPago = TipoCambioPago * -1 TipoCambioFechaCompra = TipoCambioFechaCompra * -1 @@ -1054,9 +1054,9 @@ Partial Class Contabilidad_DiarioPagos If UsuarioActual.CveEmpresa = 66 Then FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA If FluctuacionCambiariaIVA < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuación IVA " & ConceptoDetalle, IdSegNeg, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera @@ -1073,9 +1073,9 @@ Partial Class Contabilidad_DiarioPagos If Dif < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index a55b9af04..318d0706f 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -479,7 +479,7 @@ Partial Class ContabilidadC_RegPrePolizaS ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza) DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") - If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial") Then + If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial", "Banc/FluctuaAD") Then BtnEliminar.Enabled = False BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo" End If @@ -1382,7 +1382,7 @@ Partial Class ContabilidadC_RegPrePolizaS If CveCliente > 0 Then DvModalconceptoCliente.Visible = True - DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "") + 'DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "") DdlClientesE.ddl.Items.Insert(0, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", ""), CveCliente)) DdlClientesE.SelectedValue = CveCliente diff --git a/Contabilidad/Reportes/RepCuadreContaAdmon.aspx.vb b/Contabilidad/Reportes/RepCuadreContaAdmon.aspx.vb index afaa68d82..d4c2d6f79 100644 --- a/Contabilidad/Reportes/RepCuadreContaAdmon.aspx.vb +++ b/Contabilidad/Reportes/RepCuadreContaAdmon.aspx.vb @@ -74,19 +74,6 @@ Partial Class RepCuadreContaAdmon Case 8 'Ant Proveedores Return 204 - - Case 9 'IVA x Acreditar - Return UsuarioActual.Empresa.IdCuentaIVAxAcreditar - - Case 10 'IVA Acreditado - Return UsuarioActual.Empresa.IdCuentaIVAAcreditable - - Case 11 'IVA x Trasladar - Return UsuarioActual.Empresa.IdCuentaIVAxTrasladar - - Case 12 'IVA Trasladado - Return UsuarioActual.Empresa.IdCuentaIVATrasladado - Case 13 'Ingresos Return 222 diff --git a/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb b/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb index 4b711bc3a..42d35bd3f 100644 --- a/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb +++ b/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb @@ -83,18 +83,6 @@ Partial Class RepCuadreContaAdmonDetalle Case 8 'Ant Proveedores Return 204 - Case 9 'IVA x Acreditar - Return UsuarioActual.Empresa.IdCuentaIVAxAcreditar - - Case 10 'IVA Acreditado - Return UsuarioActual.Empresa.IdCuentaIVAAcreditable - - Case 11 'IVA x Trasladar - Return UsuarioActual.Empresa.IdCuentaIVAxTrasladar - - Case 12 'IVA Trasladado - Return UsuarioActual.Empresa.IdCuentaIVATrasladado - Case 13 'Ingresos Return 222 diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 59e0d8c68..685958e85 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -105,7 +105,8 @@ - + + diff --git a/Contratos/Presupuestos.aspx b/Contratos/Presupuestos.aspx index bfb6aca06..073d6cec2 100644 --- a/Contratos/Presupuestos.aspx +++ b/Contratos/Presupuestos.aspx @@ -1,318 +1,342 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Presupuestos.aspx.vb" Inherits="Contratos_Presupuestos" %> - - - - - - - - Presupuestos - - - - - - -
  • - Autorizar -
    • -
  • - Cargar Presupuesto -
    • -
  • - Modificar Presupuesto -
    • -     -     -     - - - -
    -
    -
    -
    -
    +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Presupuestos.aspx.vb" Inherits="Contratos_Presupuestos" %> + + + + + + + + Presupuestos + + + + + + +
  • + Autorizar +
    • +
  • + Cargar Presupuesto +
    • +
  • + Modificar Presupuesto +
    • +     +     +     + + + +
    +
    +
    +
    +
    Datos Generales -
    -
    - - -
    -
    -
    - - -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    -
    -
    - -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    - -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    -     -     -
    -
    -
    -
    - - -
    -
    -

    Estatus: -

    -
    -
    -
    -
    -
    -
    -
    -

    - $ - - -

    - IMPORTE -
    + +
    +
    + + +
    +
    +
    + + +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    +     +     +
    +
    +
    +
    +
    +
    +
    + Configuración + +
    +
    + + +
    +
    +
    + + +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    +     +     +
    +
    +
    +
    + + +
    +
    +

    Estatus: +

    +
    +
    +
    +
    +
    +
    +
    +

    + $ + + +

    + IMPORTE +
    <%--
    -
    --%> -
    -
    -
    - -
    -
    -
    -
    -

    - $ - - -

    - EJERCIDO -
    +
    --%> +
    +
    +
    + +
    +
    +
    +
    +

    + $ + + +

    + EJERCIDO +
    <%--
    -
    --%> -
    -
    -
    - - - - -
    -
    -
    Porcentaje Ejercido
    -
    - -
    -
    -
    -
    -
    -
    -
    -
    -
    -

    - $ - - -

    - POR EJERCER -
    +
    --%> +
    +
    +
    + + + + +
    +
    +
    Porcentaje Ejercido
    +
    + +
    +
    +
    +
    +
    +
    +
    +
    +
    +

    + $ + + +

    + POR EJERCER +
    <%--
    -
    --%> -
    -
    -
    - - - - -
    -
    -
    Porcentaje Por Ejercer
    -
    - -
    -
    -
    -
    -
    - -
    - - -
    -
    -
    -
    -
    -
    -
    -
    +
    --%> +
    +
    +
    + + + + +
    +
    +
    Porcentaje Por Ejercer
    +
    + +
    +
    +
    +
    +
    + +
    + + +
    +
    +
    +
    +
    +
    +
    +
    Presupuestos -
    -
    - - -
    -
    -
    -
    - - - - - - - - - - - - - Total : - - - - - - - - - - - - - - -
    -
    -
    -
    -
    - - -
    -
    -
    - -
    -
    -
    -     -     - + + +
    +
    +
    + +
    +
    +
    +     +     + - - + --> + +
    +
    +
    + +
    + + + Procesar + + +
    +
    + + + + + +
    + + - - + + + diff --git a/Contratos/Presupuestos.aspx.vb b/Contratos/Presupuestos.aspx.vb index dc344f772..15b704ed9 100644 --- a/Contratos/Presupuestos.aspx.vb +++ b/Contratos/Presupuestos.aspx.vb @@ -5,10 +5,10 @@ Imports System.Data Imports Extensiones Partial Class Contratos_Presupuestos - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "P R O P I E D A D E S" - + Public Property CvePresupuesto() As Integer Get Return ViewState("CvePresupuesto").ToString.ToEntero @@ -37,10 +37,10 @@ Partial Class Contratos_Presupuestos Set(ByVal value As DataTable) ViewState("DtClasificaciones") = value End Set - End Property - + End Property + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then CvePresupuesto = IfNull(Request("CvePresupuesto"), -1).ToString.ToEntero @@ -56,8 +56,8 @@ Partial Class Contratos_Presupuestos UpGvClasificaciones.Update() UpIndicadores.Update() End If - End Sub - + End Sub + #Region "I N I C I A L I Z A - V A L O R E S" Private Sub InicializaValores() TxtFechaI.Text = $"01/01/{Now.Year}" @@ -125,13 +125,13 @@ Partial Class Contratos_Presupuestos End Select End If If e.Row.RowType = DataControlRowType.Footer Then - Dim Importe = DtClasificaciones.SUM("Importe", "CveClasificacion IS NOT NULL") + Dim Importe = DtClasificaciones.SUM("Importe", "CveAgrupador IS NOT NULL") e.Row.FCLabel("LblTotal").Text = String.Format("{0:C}", Importe) End If - End Sub - + End Sub + #End Region - + #Region "C A R G A - D A T O S" Private Sub CargaDatos() CargaMoneda() @@ -245,9 +245,9 @@ Partial Class Contratos_Presupuestos HlModificar.Visible = True HlModificar.NavigateUrl = $"/Contratos/ModificarPresupuesto.aspx?CvePresupuesto={CvePresupuesto}" End If - End Sub + End Sub #End Region - + #Region "G U A R D A R " Private Function ValidaDatos() As Boolean If String.IsNullOrEmpty(TxtPresupuesto.Text.Trim) Then @@ -327,23 +327,39 @@ Partial Class Contratos_Presupuestos For Each GvRow As GridViewRow In GvPresupuestos.Rows If GvRow.RowType = DataControlRowType.DataRow Then - Dim CveClasificacion = GvRow.DataKey("CveClasificacion").ToEntero - Dim CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero + Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero + + Dim CveTipoGasto = -1 + Dim CveClasificacion As Integer = -1 + Dim CveConceptoContableNom As Integer = -1 + + If Tipo = 1 Then + CveClasificacion = CveAgrupador + CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + End If + + If Tipo = 2 Then + CveConceptoContableNom = CveAgrupador + End If + + Dim CvePresupuestoDetalle = GvRow.DataKey("CvePresupuestoDetalle").ToEntero Dim Importe = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal Dim Obs = GvRow.FCTextBox("TxtObservacion").Text.Trim + 'ACTUALIZA EL REGISTRO EXISTENTE If CvePresupuestoDetalle > 0 Then - TieneError = Not ObjCont.UpdatePresupuestosDetalle(CvePresupuestoDetalle, CveClasificacion, Importe, Obs) + TieneError = Not ObjCont.UpdatePresupuestosDetalle(CvePresupuestoDetalle, CveClasificacion, Importe, Obs, CveConceptoContableNom:=CveConceptoContableNom) If TieneError Then Exit For End If 'AGREGA LA CLASIFICACION SI NO EXISTE EN EN EL DT DETALLE Else - If Importe > 0 And CveClasificacion > 0 Then - TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuesto, CveClasificacion, CveTipoGasto, Importe, Obs) + If Importe > 0 And CveAgrupador > 0 Then + TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuesto, CveClasificacion, CveTipoGasto, Importe, Obs, CveConceptoContableNom:=CveConceptoContableNom) If TieneError Then Exit For End If @@ -385,18 +401,33 @@ Partial Class Contratos_Presupuestos If CvePresupuestoNuevo > 0 Then Dim ImporteClasi = 0.0D - Dim CveClasificacion = -1 Dim ObsDetalle = "" For Each GvRow As GridViewRow In GvPresupuestos.Rows If GvRow.RowType = DataControlRowType.DataRow Then - ImporteClasi = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal - CveClasificacion = GvRow.DataKey("CveClasificacion").ToEntero - Dim CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + ImporteClasi = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal + ObsDetalle = GvRow.FCTextBox("TxtObservacion").Text.Trim + + Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero + Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero + + Dim CveClasificacion As Integer = -1 + Dim CveConceptoContableNom As Integer = -1 + Dim CveTipoGasto As Integer = -1 + + If Tipo = 1 Then + CveClasificacion = CveAgrupador + CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + End If + + If Tipo = 2 Then + CveConceptoContableNom = CveAgrupador + End If + If CveClasificacion > 0 Then If ImporteClasi > 0 Then - TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuestoNuevo, CveClasificacion, CveTipoGasto, ImporteClasi, ObsDetalle) + TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuestoNuevo, CveClasificacion, CveTipoGasto, ImporteClasi, ObsDetalle, CveConceptoContableNom:=CveConceptoContableNom) If TieneError Then Exit For End If @@ -427,11 +458,11 @@ Partial Class Contratos_Presupuestos Alert("Se agregó el presupuesto correctamente.", TipoMensaje.MsgInformacion, Liga) End If - End Sub + End Sub #End Region - - - + + + Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs) Handles LnkAutorizar.Click If ValidaDatos() Then If ActualizarPresupuesto() Then diff --git a/Contratos/RepPresupuestos.aspx b/Contratos/RepPresupuestos.aspx index ba7cfd71f..500e6ef34 100644 --- a/Contratos/RepPresupuestos.aspx +++ b/Contratos/RepPresupuestos.aspx @@ -233,7 +233,7 @@
    Clasificacion:
    - +
    Tipo Gasto:
    diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index 07cfc6d1f..4800f3850 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -8,9 +8,9 @@ Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Contratos_RepPresupuestos - Inherits ClsPaginas + Inherits ClsPaginas #Region "P R O P I E D A D E S" - + Public Property DtPresupuestos() As DataTable Get Return DirectCast(ViewState("DtPresupuestos"), DataTable) @@ -18,15 +18,15 @@ Partial Class Contratos_RepPresupuestos Set(ByVal value As DataTable) ViewState("DtPresupuestos") = value End Set - End Property - + End Property + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then InicializaValores() End If - End Sub - + End Sub + #Region " INICIALIZA VALORES " Private Sub InicializaValores() @@ -36,9 +36,14 @@ Partial Class Contratos_RepPresupuestos DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataBind() - DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Dim dtAgrupador = (From dr In GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Select New With {.CveAgrupador = dr("CveClasificacion").ToString().ToEntero(), .Agrupador = dr("Clasificacion").ToString()} + ).Union(From dr In GlobalDTContaConceptosContables(-1) + Select New With {.CveAgrupador = dr("CveConceptoContable").ToString().ToEntero(), .Agrupador = dr("ConceptoContable").ToString()}).QueryToDataTable(True) + + DdlClasificacion.DataSource = dtAgrupador + DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) - DdlClasificacion.DataBind() DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})) DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) @@ -46,12 +51,12 @@ Partial Class Contratos_RepPresupuestos CargaSubProyecto() UpFiltros.Update() - End Sub + End Sub #End Region - - + + #Region " CARGA DATOS " - + Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then @@ -362,15 +367,15 @@ Partial Class Contratos_RepPresupuestos EsProyecto = True End If Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If - End Sub + End Sub #End Region - - - + + + Protected Sub ChkMensual_CheckedChanged(sender As Object, e As EventArgs) Handles ChkMensual.CheckedChanged DivRepDatos.Visible = Not ChkMensual.Checked @@ -492,7 +497,7 @@ Partial Class Contratos_RepPresupuestos Dim FechaFin = e.Row.DBCampo("FechaFFiltro").ToDate.ToShortDateString Dim FechaInicio = e.Row.DBCampo("FechaIFiltro").ToDate.ToShortDateString Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If Else @@ -506,7 +511,7 @@ Partial Class Contratos_RepPresupuestos Dim FechaFin = e.Row.DBCampo("FechaFFiltro").ToDate.ToShortDateString Dim FechaInicio = e.Row.DBCampo("FechaIFiltro").ToDate.ToShortDateString Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If @@ -515,8 +520,8 @@ Partial Class Contratos_RepPresupuestos End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) CargaSubProyecto() - End Sub - + End Sub + #Region " IMPRESION - NUEVO " Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click GenerarPDF("EXCEL") @@ -555,7 +560,7 @@ Partial Class Contratos_RepPresupuestos Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) End If - End Sub + End Sub #End Region - + End Class diff --git a/Contratos/RepPresupuestosDetalle.aspx b/Contratos/RepPresupuestosDetalle.aspx index 05b3668d8..35ed80fe3 100644 --- a/Contratos/RepPresupuestosDetalle.aspx +++ b/Contratos/RepPresupuestosDetalle.aspx @@ -226,7 +226,7 @@
    Clasificacion:
    - +
    Tipo Gasto:
    diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index 75fdbd48b..af74319ad 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -45,9 +45,14 @@ Partial Class Contratos_RepPresupuestosDetalle TxtFiltrosFechaInicio.Text = $"01/09/{Now.Year - 1}" TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}" - DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Dim dtAgrupador = (From dr In GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Select New With {.CveAgrupador = dr("CveClasificacion").ToString().ToEntero(), .Agrupador = dr("Clasificacion").ToString()} + ).Union(From dr In GlobalDTContaConceptosContables(-1) + Select New With {.CveAgrupador = dr("CveConceptoContable").ToString().ToEntero(), .Agrupador = dr("ConceptoContable").ToString()}).QueryToDataTable(True) + + DdlClasificacion.DataSource = dtAgrupador + DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1")) - DdlClasificacion.DataBind() DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataBind() @@ -181,7 +186,7 @@ Partial Class Contratos_RepPresupuestosDetalle EsProyecto = True End If Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If @@ -302,7 +307,7 @@ Partial Class Contratos_RepPresupuestosDetalle EsProyecto = True End If Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 67cb0f92c..09de3e8e3 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -346,8 +346,9 @@ =Parameters!QR.Value FitProportional 0.04167in + 0.04352in 1.37377in - 1.7524in + 1.73969in @@ -489,7 +490,7 @@ Textbox88 0.07057cm - 4.6275cm + 4.54701cm 2.25463cm 16.27211cm 1 @@ -505,10 +506,10 @@ true - 6.32868in - 0.06752in + 6.61175in + 0.09419in 1.42169in - 8.23953in + 8.20784in @@ -519,34 +520,34 @@ - 0.54014in + 0.5387in - 0.59111in + 0.58967in - 0.80359in + 0.80215in - 0.66404in + 0.64011in - 2.11562in + 2.06124in - 0.6863in + 0.68486in - 0.69852in + 0.69708in - 0.6403in + 0.63886in - 0.67895in + 0.67751in - 0.80447in + 0.80303in @@ -1384,9 +1385,9 @@ DsOC 1.75278in - 0.09836in + 0.13771in 0.36206in - 8.22304in + 8.13325in 1 - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.20293cm - 0.22108cm - 2.03224cm - 20.79751cm - 15 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2353,11 +2244,11 @@ Textbox5 - 13.27434cm - 0.24983cm + 14.04286cm + 0.23924cm 0.05496cm 20.88652cm - 16 + 15 @@ -2369,57 +2260,6 @@ 2pt - - Embedded - ID3 - FitProportional - 24.6983cm - 0.28014cm - 0.93046cm - 5.37042cm - 17 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 22.36352cm - 0.28014cm - 0.6882cm - 20.71217cm - 18 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2459,10 +2299,10 @@ Textbox32 3.57397cm - 17.11694cm + 17.05344cm 0.64028cm - 3.90165cm - 19 + 3.82781cm + 16 @@ -2625,11 +2465,11 @@ Textbox4 - 13.43513cm - 0.16383cm + 14.20365cm + 0.23068cm 2.44366cm - 15.51057cm - 20 + 15.43864cm + 17 @@ -2660,11 +2500,11 @@ Textbox19 - 5.27553in - 6.21617in + 5.5781in + 6.212in 0.17608in 0.94607in - 21 + 18 @@ -2695,11 +2535,11 @@ Textbox19 - 5.4305in - 6.21616in + 5.73307in + 6.21199in 0.17608in 0.94607in - 22 + 19 @@ -2730,11 +2570,11 @@ Textbox19 - 5.59199in - 6.21616in + 5.89456in + 6.21199in 0.17608in 0.94607in - 23 + 20 @@ -2765,11 +2605,11 @@ Textbox19 - 5.76074in - 6.22658in + 6.06331in + 6.22241in 0.17608in 0.94607in - 24 + 21 @@ -2801,11 +2641,11 @@ Textbox19 - 5.92637in - 6.237in + 6.22894in + 6.23283in 0.19596in 0.94607in - 25 + 22 @@ -2837,11 +2677,11 @@ Textbox42 - 5.27553in - 7.16224in + 5.5781in + 7.15807in 0.17608in 0.98426in - 26 + 23 @@ -2872,11 +2712,11 @@ Textbox42 - 5.4305in - 7.16224in + 5.73307in + 7.15807in 0.17608in 0.98425in - 27 + 24 @@ -2907,11 +2747,11 @@ Textbox42 - 5.59199in - 7.17266in + 5.89456in + 7.16849in 0.17608in 0.98425in - 28 + 25 @@ -2943,11 +2783,11 @@ Textbox42 - 5.76074in - 7.17266in + 6.06331in + 7.16849in 0.17608in 0.98425in - 29 + 26 @@ -2979,11 +2819,11 @@ Textbox42 - 5.92637in - 7.18308in + 6.22894in + 7.17891in 0.19596in 0.98425in - 30 + 27 @@ -3015,10 +2855,10 @@ Textbox90 1.77125cm - 7.90108cm + 7.83758cm 0.78cm 4.3635cm - 31 + 28 @@ -3044,11 +2884,11 @@ Textbox5 - 15.94935cm - 0.10579cm + 16.71787cm + 0.23924cm 0.05496cm - 20.88652cm - 32 + 20.75387cm + 29 @@ -3092,10 +2932,10 @@ Textbox3 6.48388cm - 1.15361cm + 1.05836cm 1.32415cm 19.15078cm - 33 + 30 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") > 0),false,true) @@ -3109,110 +2949,6 @@ 2pt - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.3435in - 6.67743in - 0.6035in - 0.78275in - 34 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 22.8083cm - 0.28014cm - 1.49135cm - 5.37042cm - 35 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - true true @@ -3228,11 +2964,11 @@ Textbox5 - 25.69578cm - 0.28014cm + 20.40466cm + 0.25268cm 0.05496cm - 20.88652cm - 37 + 20.6857cm + 31 @@ -3244,138 +2980,6 @@ 2pt - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 22.8083cm - 7.45145cm - 2.45709cm - 6.56105cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 22.79852cm - 14.67145cm - 1.46939cm - 6.32076cm - 39 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -3401,10 +3005,10 @@ Textbox15 7.98442cm - 1.15361cm + 1.04171cm 1.05791cm 19.15078cm - 40 + 32 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") > 0),false,true) @@ -3442,7 +3046,7 @@ Textbox5 - 0.14926cm + 0.16514cm 0.07193cm 0.54004cm 20.7077cm @@ -3478,7 +3082,7 @@ Textbox29 - 0.83025cm + 0.84613cm 4.78817cm 0.41981cm 5.31841cm @@ -3511,7 +3115,7 @@ Textbox29 - 0.83025cm + 0.84613cm 10.10658cm 0.41981cm 7.14985cm @@ -3856,7 +3460,7 @@ DataSet4 - 1.39643cm + 1.41231cm 3.28643cm 0.85604cm 15.30142cm @@ -3867,13 +3471,44 @@ + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + true - 19.97297cm - 0.13424cm - 2.25247cm - 20.89818cm - 41 + 20.4949cm + 0.15875cm + 2.26835cm + 20.98078cm + 33 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3922,10 +3557,10 @@ Textbox1 9.14816cm - 13.59221cm + 13.52871cm 0.54281cm 7.38429cm - 42 + 34 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -3941,13 +3576,13 @@ Embedded - LogoLlantas1 + logoLlantas21 FitProportional - 12.27878cm - 0.20617cm + 13.24423cm + 0.34979cm 0.85359cm - 20.86494cm - 43 + 20.65846cm + 35 @@ -3979,10 +3614,10 @@ Textbox4 9.73684cm - 0.20617cm + 0.23924cm 0.44183cm - 20.83436cm - 44 + 20.69914cm + 36 @@ -3993,11 +3628,281 @@ 2pt + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.16167cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.23532cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.50476cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.61666in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.17511cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.24923cm + 0.17468cm + 2.92445cm + 20.96485cm + 37 + + + + - 25.75074cm + 22.76325cm - - - - - - Textbox24 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - UM - - - - - - - Textbox27 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox26 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - P. Unitario - - - - - - - Textbox36 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox38 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Parameters!Cantidad.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!UnidadMedida.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!Descripcion.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!PU.Value - - - - - - - Textbox37 - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Parameters!Importe.Value - - - - - - - Textbox39 - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - - - - - - - - - - - - - - - - - DataSet2 - 3.35585cm - 0.01844cm - 1.09cm - 20.53564cm - - - - - - - - - 4.5cm - - - 1.74905cm - - - 1.5cm - - - 2.96606cm - - - 6.82934cm - - - 2.98695cm - - - - - 0.49cm - - - - - true - true - - - - - Fecha y hora de pago - - - - - - - Textbox45 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Moneda - - - - - - - Textbox21 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - TC - - - - - - - Textbox5 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cta Ordenante - - - - - - - Textbox12 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Forma de Pago - - - - - - - Textbox48 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total de Pago - - - - - - - Textbox50 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - - - true - true - - - - - =CDate(Fields!FechaPago.Value).ToString("dd-MM-yyyy") & "T12:00:00" - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!MonedaP.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!TipoCambioP.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Fields!CtaOrdenante.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FormaDePagoP.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Monto.Value - - - - - - - Monto - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cantidad con letra: - - - - =Parameters!CantidadLetra.Value - - - - - - - Textbox16 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - - - - - - - - - - - - - - - After - - - - - - Before - - - - DataSet1 - 7.05357cm - 0.01844cm - 1.61062cm - 20.5314cm - 1 - - - - - - true - true - - - - - CFDI Relacionados - - - - - - - Textbox5 - 4.71462cm - 0.01844cm - 0.49cm - 20.5314cm - 2 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!QR.Value - FitProportional - 3.60753in - 0.00726in - 1.3in - 1.5in - 3 - - - - - - true - true - - - - - Cadena original del complemento de certificación digital del SAT: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CadenaOriginal.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - No. Certificado: - - - - - - - White - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - UUID: - - - - - - - White - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Sello.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SelloSAT.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!NoCertificado.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UUIDPago.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Regímen: Regímen General de Ley Personas Morales - - - - - - - - - Éste documento es una representación impresa de un CFDi - - - - - - - Textbox171 - 15.46313cm - 4.02751cm - 0.89979cm - 16.53791cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Datos del Cliente: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Cliente: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Cliente.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteDireccion.Value - - - - , - - - - =Parameters!ClienteColonia.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Dirección: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Ciudad: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteCiudad.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteCP.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - CP: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - RFC Ordenante: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RFCOrdenante.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sello: - - - - - - - White - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sello digital del SAT: - - - - - - - White - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Reg. Fiscal: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RegimenFiscalCodigo.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.13038cm - - - 1.64459cm - - - 1.80415cm - - - 1.76995cm - - - 1.8cm - - - 1.8cm - - - 1.8cm - - - 1.99576cm - - - 2.49576cm - - - 3.2908cm - - - - - 0.56938cm - - - - - true - true - - - - - UUID - - - - - - - Textbox6 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - SERIE - - - - - - - Textbox3 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - FOLIO - - - - - - - Textbox9 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - MONEDA - - - - - - - Textbox31 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - NO.PARC. - - - - - - - Textbox8 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - SALDO ANT. - - - - - - - Textbox19 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - MONTO PAGADO - - - - - - - Textbox25 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.42016cm - - - - - true - true - - - - - =Fields!IdDocumento.Value - - - - - - - - 4 - - - - - - - - - true - true - - - - - =Fields!Serie.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Folio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!MonedaDR.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!NumParcialidad.Value - - - - - - - NumParcialidad - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImpSaldoAnt.Value - - - - - - - ImpSaldoAnt - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.07938cm - - - - - true - true - - - - - Impuesto - - - - - - - Textbox108 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - Tipo - - - - - - - Textbox109 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - Base - - - - - - - Textbox110 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - Tipo Factor - - - - - - - Textbox111 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - Tasa/Cuota - - - - - - - Textbox112 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox113 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - - - - - - - - Textbox114 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - - - - - - - - Textbox115 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - - - - - - - Top - - - - - - - - true - true - - - - - - - - - - - Top - - - - - - - - 0.07938cm - - - - - true - true - - - - - ISR - - - - - - - Textbox61 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Traslado - - - - - - - Textbox204 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra001TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra001TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra001ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox4 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox13 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - 0.07938cm - - - - - true - true - - - - - IVA - - - - - - - Textbox61 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Traslado - - - - - - - Textbox204 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra002TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra002TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra002ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox67 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox68 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - 0.07938cm - - - - - true - true - - - - - IEPS - - - - - - - Textbox61 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Traslado - - - - - - - Textbox204 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra003TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra003TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra003ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox51 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox55 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - 0.07938cm - - - - - true - true - - - - - ISR - - - - - - - Textbox61 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Retención - - - - - - - Textbox207 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret001TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret001TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret001ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox75 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox76 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - 0.07938cm - - - - - true - true - - - - - IVA - - - - - - - Textbox61 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Retención - - - - - - - Textbox207 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret002TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret002TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret002ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox85 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox86 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - 0.07938cm - - - - - true - true - - - - - IEPS - - - - - - - Textbox59 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Retención - - - - - - - Textbox207 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret003TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret003TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret003ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - es-MX - - - - - - - - true - true - - - - - - - - - - - - Textbox95 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox96 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - - - - - - - - - - - DataSet2 - 5.31865cm - 0.03403cm - 1.5452cm - 20.53139cm - 28 - - - - - - 16.36292cm - - - - - 20.56542cm - - - 2.96202cm - true - true - - - true - - - - - COMPLEMENTO PARA LA RECEPCIÓN DE PAGO - - - - - - - Textbox3 - 0.16028cm - 5.70051in - 0.8175cm - 2.38885in - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!SerieFolio.Value - - - - - - - Textbox3 - 0.39643in - 5.70051in - 0.60856cm - 2.38885in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Fecha Timbre - - - - - - - - - - - - - - - - Textbox3 - 0.63602in - 5.70051in - 0.5cm - 2.38885in - 2 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!FechaTimbre.Value - - - - - - - Textbox3 - 0.83287in - 5.70051in - 0.25114in - 2.38885in - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo2 - FitProportional - 0.01134cm - 2.88998cm - 4.56434cm - 4 - - - - - - true - - - - - VSH Proteccion, S.A. DE C.V. - - - - - - - - - R.F.C VPR091222R63 | Permiso SSP: LSP-R-2012-M-310 - - - - - - - Textbox4 - 0.01318cm - 2.00721in - 0.50583in - 3.62386in - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Domicilio Fiscal - - - - - - - - - Calle Benito Juarez #32, Local 4, Col.: Hermosillo Centro C.P 83000 Hermosillo, Sonora, México Tel.:(662)210-64-00 - - - - - - - Textbox10 - 0.49713in - 2.92105in - 0.65513in - 1.79619in - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 0.84667cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 0.21343cm - 17.10903cm - 0.41981cm - 2.94979cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 0.5cm - 0.5cm - 1.27cm - + + + + + + Textbox24 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UM + + + + + + + Textbox27 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox26 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P. Unitario + + + + + + + Textbox36 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox38 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Cantidad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!UnidadMedida.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Descripcion.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PU.Value + + + + + + + Textbox37 + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Parameters!Importe.Value + + + + + + + Textbox39 + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + + + + + + + + + + + + + + + + + DataSet2 + 4.3401cm + 0.01844cm + 1.09cm + 20.53564cm + + + + + + + + + 4.5cm + + + 1.74905cm + + + 1.5cm + + + 2.96606cm + + + 6.82934cm + + + 2.98695cm + + + + + 0.49cm + + + + + true + true + + + + + Fecha y hora de pago + + + + + + + Textbox45 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Moneda + + + + + + + Textbox21 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TC + + + + + + + Textbox5 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cta Ordenante + + + + + + + Textbox12 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Forma de Pago + + + + + + + Textbox48 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total de Pago + + + + + + + Textbox50 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + + + true + true + + + + + =CDate(Fields!FechaPago.Value).ToString("dd-MM-yyyy") & "T12:00:00" + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!MonedaP.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TipoCambioP.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!CtaOrdenante.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FormaDePagoP.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Monto.Value + + + + + + + Monto + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cantidad con letra: + + + + =Parameters!CantidadLetra.Value + + + + + + + Textbox16 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DataSet1 + 8.03782cm + 0.01844cm + 1.61062cm + 20.5314cm + 1 + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 5.69887cm + 0.01844cm + 0.49cm + 20.5314cm + 2 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 3.99503in + 0.00726in + 1.3in + 1.5in + 3 + + + + + + true + true + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CadenaOriginal.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. Certificado: + + + + + + + White + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + UUID: + + + + + + + White + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Sello.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SelloSAT.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!NoCertificado.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UUIDPago.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Regímen: Regímen General de Ley Personas Morales + + + + + + + + + Éste documento es una representación impresa de un CFDi + + + + + + + Textbox171 + 16.44738cm + 4.02751cm + 0.89979cm + 16.53791cm + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Datos del Cliente: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Cliente: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Cliente.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteDireccion.Value + + + + , + + + + =Parameters!ClienteColonia.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Dirección: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Ciudad: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteCiudad.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteCP.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + CP: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + RFC Ordenante: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!RFCOrdenante.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sello: + + + + + + + White + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sello digital del SAT: + + + + + + + White + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Reg. Fiscal: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!RegimenFiscalCodigo.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.13038cm + + + 1.64459cm + + + 1.80415cm + + + 1.76995cm + + + 1.8cm + + + 1.8cm + + + 1.8cm + + + 1.99576cm + + + 2.49576cm + + + 3.2908cm + + + + + 0.56938cm + + + + + true + true + + + + + UUID + + + + + + + Textbox6 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + SERIE + + + + + + + Textbox3 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + FOLIO + + + + + + + Textbox9 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + MONEDA + + + + + + + Textbox31 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + NO.PARC. + + + + + + + Textbox8 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SALDO ANT. + + + + + + + Textbox19 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + MONTO PAGADO + + + + + + + Textbox25 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.42016cm + + + + + true + true + + + + + =Fields!IdDocumento.Value + + + + + + + + 4 + + + + + + + + + true + true + + + + + =Fields!Serie.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Folio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!MonedaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!NumParcialidad.Value + + + + + + + NumParcialidad + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpSaldoAnt.Value + + + + + + + ImpSaldoAnt + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + Impuesto + + + + + + + Textbox108 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + Tipo + + + + + + + Textbox109 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + Base + + + + + + + Textbox110 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + Tipo Factor + + + + + + + Textbox111 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + Tasa/Cuota + + + + + + + Textbox112 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox113 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + + + + + + + + Textbox114 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + + + + + + + + Textbox115 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + + + + + + + Top + + + + + + + + true + true + + + + + + + + + + + Top + + + + + + + + 0.07938cm + + + + + true + true + + + + + ISR + + + + + + + Textbox61 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra001TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra001TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra001ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox4 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox13 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + 0.07938cm + + + + + true + true + + + + + IVA + + + + + + + Textbox61 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra002TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra002TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra002ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox67 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox68 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + 0.07938cm + + + + + true + true + + + + + IEPS + + + + + + + Textbox61 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra003TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra003TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra003ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox51 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox55 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + 0.07938cm + + + + + true + true + + + + + ISR + + + + + + + Textbox61 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret001TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret001TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret001ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox75 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox76 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + 0.07938cm + + + + + true + true + + + + + IVA + + + + + + + Textbox61 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret002TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret002TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret002ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox85 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox86 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + 0.07938cm + + + + + true + true + + + + + IEPS + + + + + + + Textbox59 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret003TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret003TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret003ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + es-MX + + + + + + + + true + true + + + + + + + + + + + + Textbox95 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox96 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + + + + + + + + + + + DataSet2 + 6.3029cm + 0.03403cm + 1.5452cm + 20.53139cm + 28 + + + + + + true + true + + + + + Intermediario: + + + + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Proveedor: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ProveedorIntermediario.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 17.34717cm + + + + + 20.56542cm + + + 2.96202cm + true + true + + + true + + + + + COMPLEMENTO PARA LA RECEPCIÓN DE PAGO + + + + + + + Textbox3 + 0.16028cm + 5.70051in + 0.8175cm + 2.38885in + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!SerieFolio.Value + + + + + + + Textbox3 + 0.39643in + 5.70051in + 0.60856cm + 2.38885in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Fecha Timbre + + + + + + + + + + + + + + + + Textbox3 + 0.63602in + 5.70051in + 0.5cm + 2.38885in + 2 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!FechaTimbre.Value + + + + + + + Textbox3 + 0.83287in + 5.70051in + 0.25114in + 2.38885in + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo2 + FitProportional + 0.01134cm + 2.88998cm + 4.56434cm + 4 + + + + + + true + + + + + VSH Proteccion, S.A. DE C.V. + + + + + + + + + R.F.C VPR091222R63 | Permiso SSP: LSP-R-2012-M-310 + + + + + + + Textbox4 + 0.01318cm + 2.00721in + 0.50583in + 3.62386in + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Domicilio Fiscal + + + + + + + + + Calle Benito Juarez #32, Local 4, Col.: Hermosillo Centro C.P 83000 Hermosillo, Sonora, México Tel.:(662)210-64-00 + + + + + + + Textbox10 + 0.49713in + 2.92105in + 0.65513in + 1.79619in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.84667cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 0.21343cm + 17.10903cm + 0.41981cm + 2.94979cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 1.27cm + - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.55218cm - 0.28679cm - 2.03224cm - 20.79751cm - 13 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2251,11 +2141,11 @@ Textbox5 - 14.13159cm + 14.60784cm 0.31554cm 0.05496cm 20.88652cm - 14 + 13 @@ -2309,7 +2199,7 @@ 17.15637cm 0.64028cm 3.90165cm - 15 + 14 @@ -2472,11 +2362,11 @@ Textbox4 - 14.29238cm + 14.76863cm 0.22954cm 2.44366cm 15.5106cm - 16 + 15 @@ -2507,11 +2397,11 @@ Textbox19 - 5.61303in + 5.80053in 6.24204in 0.17708in 0.94607in - 17 + 16 @@ -2542,11 +2432,11 @@ Textbox19 - 5.8055in + 5.993in 6.24203in 0.17966in 0.94607in - 18 + 17 @@ -2577,11 +2467,11 @@ Textbox19 - 6.00449in + 6.19199in 6.24203in 0.18819in 0.94607in - 19 + 18 @@ -2612,11 +2502,11 @@ Textbox19 - 6.21074in + 6.39824in 6.25245in 0.17119in 0.94607in - 20 + 19 @@ -2648,11 +2538,11 @@ Textbox19 - 6.40137in + 6.58887in 6.26287in 0.19596in 0.94607in - 21 + 20 @@ -2684,11 +2574,11 @@ Textbox42 - 5.61303in + 5.79903in 7.18811in 0.17708in 0.98426in - 22 + 21 @@ -2719,11 +2609,11 @@ Textbox42 - 5.8055in + 5.9915in 7.18811in 0.17966in 0.98425in - 23 + 22 @@ -2754,11 +2644,11 @@ Textbox42 - 6.00449in + 6.19049in 7.19853in 0.18819in 0.98425in - 24 + 23 @@ -2790,11 +2680,11 @@ Textbox42 - 6.21074in + 6.39674in 7.19853in 0.17119in 0.98425in - 25 + 24 @@ -2826,11 +2716,11 @@ Textbox42 - 6.40137in + 6.58737in 7.20895in 0.19596in 0.98425in - 26 + 25 @@ -2856,11 +2746,11 @@ Textbox5 - 16.93361cm + 17.40986cm 0.1428cm 0.05496cm 20.88652cm - 27 + 26 @@ -2880,7 +2770,7 @@ 1.21932cm 2.413cm 2.75323cm - 28 + 27 @@ -2937,7 +2827,7 @@ 1.22666cm 0.62233cm 9.17089cm - 29 + 28 @@ -2974,11 +2864,11 @@ Textbox1 - 9.92663cm - 10.53866cm + 9.72009cm + 10.83734cm 0.64039cm 9.53276cm - 30 + 29 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -3027,7 +2917,7 @@ 1.21932cm 1.32415cm 19.15078cm - 31 + 30 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20775,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20774,1,0), "DsOC") > 0),false,true) @@ -3069,7 +2959,7 @@ 1.21932cm 1.05791cm 19.15078cm - 32 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20775,1,0), "DsOC") > 0),false,true) @@ -3106,11 +2996,11 @@ Textbox4 - 13.6904cm + 14.16665cm 0.20852cm 0.40655cm 12.88812cm - 33 + 32 @@ -3121,21 +3011,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.6957cm - 0.22461cm - 0.85359cm - 20.86494cm - 34 - - - - @@ -3587,11 +3462,11 @@ true - 20.69313cm + 21.16938cm 0.1428cm 2.25247cm 20.89818cm - 35 + 33 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3601,14 +3476,299 @@ + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.40145cm + 0.1258cm + 2.92445cm + 20.98078cm + 34 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.33295cm + 0.22931cm + 0.85359cm + 20.86494cm + 35 + + + + - 22.9456cm + 23.5806cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.55218cm - 0.22108cm - 2.03224cm - 20.79751cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1400,11 +1290,11 @@ Textbox5 - 14.19509cm + 15.05234cm 0.24983cm 0.05496cm 20.88652cm - 13 + 12 @@ -1458,7 +1348,7 @@ 17.09066cm 0.64028cm 3.90165cm - 14 + 13 @@ -1621,11 +1511,11 @@ Textbox4 - 14.35588cm + 15.21313cm 0.16383cm 2.44366cm 15.5106cm - 15 + 14 @@ -1656,11 +1546,11 @@ Textbox19 - 5.63803in + 5.97553in 6.21617in 0.17708in 0.94607in - 16 + 15 @@ -1691,11 +1581,11 @@ Textbox19 - 5.8305in + 6.168in 6.21616in 0.17966in 0.94607in - 17 + 16 @@ -1726,11 +1616,11 @@ Textbox19 - 6.02949in + 6.36699in 6.21616in 0.18819in 0.94607in - 18 + 17 @@ -1761,11 +1651,11 @@ Textbox19 - 6.23574in + 6.57324in 6.22658in 0.17119in 0.94607in - 19 + 18 @@ -1797,11 +1687,11 @@ Textbox19 - 6.42637in + 6.76387in 6.237in 0.19596in 0.94607in - 20 + 19 @@ -1833,11 +1723,11 @@ Textbox42 - 5.66303in + 5.97553in 7.16224in 0.17708in 0.98426in - 21 + 20 @@ -1868,11 +1758,11 @@ Textbox42 - 5.8555in + 6.168in 7.16224in 0.17966in 0.98425in - 22 + 21 @@ -1903,11 +1793,11 @@ Textbox42 - 6.05449in + 6.36699in 7.17266in 0.18819in 0.98425in - 23 + 22 @@ -1939,11 +1829,11 @@ Textbox42 - 6.26074in + 6.57324in 7.17266in 0.17119in 0.98425in - 24 + 23 @@ -1975,11 +1865,11 @@ Textbox42 - 6.45137in + 6.76387in 7.18308in 0.19596in 0.98425in - 25 + 24 @@ -2016,7 +1906,7 @@ 6.75122cm 0.82021cm 5.51336cm - 26 + 25 @@ -2042,11 +1932,11 @@ Textbox5 - 16.8701cm + 17.72735cm 0.10579cm 0.05496cm 20.88652cm - 27 + 26 @@ -2093,7 +1983,7 @@ 1.15361cm 1.32415cm 19.15078cm - 28 + 27 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21085,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21083,1,0), "DsOC") > 0),false,true) @@ -2130,11 +2020,11 @@ Textbox4 - 13.71798cm + 14.57523cm 0.19008cm 0.40655cm 12.88812cm - 29 + 28 @@ -2152,137 +2042,13 @@ 0.28014cm 2.81551cm 3.93968cm - 30 + 29 - - Embedded - ID3 - FitProportional - 25.46336cm - 0.26815cm - 0.93046cm - 5.37042cm - 31 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 23.12858cm - 0.26815cm - 0.6882cm - 20.71217cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.6447in - 6.67271in - 0.6035in - 0.78275in - 33 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.57336cm - 0.26815cm - 1.49135cm - 5.37042cm - 34 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2298,11 +2064,11 @@ Textbox5 - 23.11271cm - 0.16383cm + 21.48334cm + 0.10579cm 0.05496cm - 20.88652cm - 35 + 21.03056cm + 30 @@ -2314,169 +2080,6 @@ 2pt - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.57336cm - 7.43946cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.56358cm - 14.65946cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2505,7 +2108,7 @@ 1.10319cm 1.05791cm 19.15078cm - 39 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21085,1,0), "DsOC") > 0),false,true) @@ -2569,7 +2172,7 @@ 1.16095cm 0.62233cm 9.17089cm - 40 + 32 @@ -2610,7 +2213,7 @@ 10.47295cm 0.64039cm 9.53276cm - 41 + 33 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -2624,21 +2227,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.78697cm - 0.15086cm - 0.85359cm - 20.86494cm - 42 - - - - @@ -3509,7 +3097,7 @@ 0.07079in 0.36206in 8.23497in - 43 + 34 @@ -3967,11 +3555,11 @@ true - 20.80555cm + 21.6628cm 0.16383cm 2.25247cm 20.89818cm - 44 + 35 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3981,8 +3569,293 @@ + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.62436cm + 0.17236cm + 2.92445cm + 20.98078cm + 36 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.55586cm + 0.27587cm + 0.85359cm + 20.86494cm + 37 + + + + - 26.54755cm + 24.02492cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.36168cm - 0.18933cm - 2.03224cm - 20.79751cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1387,11 +1277,11 @@ Textbox5 - 13.87759cm + 14.76659cm 0.24983cm 0.05496cm 20.88652cm - 13 + 12 @@ -1445,7 +1335,7 @@ 17.09066cm 0.64028cm 3.90165cm - 14 + 13 @@ -1608,11 +1498,11 @@ Textbox4 - 14.03838cm + 14.92738cm 0.16383cm 2.44366cm 15.5106cm - 15 + 14 @@ -1643,11 +1533,11 @@ Textbox19 - 5.51303in + 5.86303in 6.21617in 0.17708in 0.94607in - 16 + 15 @@ -1678,11 +1568,11 @@ Textbox19 - 5.7055in + 6.0555in 6.21616in 0.17966in 0.94607in - 17 + 16 @@ -1713,11 +1603,11 @@ Textbox19 - 5.90449in + 6.25449in 6.21616in 0.18819in 0.94607in - 18 + 17 @@ -1748,11 +1638,11 @@ Textbox19 - 6.11074in + 6.46074in 6.22658in 0.17119in 0.94607in - 19 + 18 @@ -1784,11 +1674,11 @@ Textbox19 - 6.30137in + 6.65137in 6.237in 0.19596in 0.94607in - 20 + 19 @@ -1820,11 +1710,11 @@ Textbox42 - 5.53803in + 5.88803in 7.16224in 0.17708in 0.98426in - 21 + 20 @@ -1855,11 +1745,11 @@ Textbox42 - 5.7305in + 6.0805in 7.16224in 0.17966in 0.98425in - 22 + 21 @@ -1890,11 +1780,11 @@ Textbox42 - 5.92949in + 6.27949in 7.17266in 0.18819in 0.98425in - 23 + 22 @@ -1926,11 +1816,11 @@ Textbox42 - 6.13574in + 6.48574in 7.17266in 0.17119in 0.98425in - 24 + 23 @@ -1962,11 +1852,11 @@ Textbox42 - 6.32637in + 6.67637in 7.18308in 0.19596in 0.98425in - 25 + 24 @@ -2003,7 +1893,7 @@ 6.75122cm 0.82021cm 5.51336cm - 26 + 25 @@ -2029,11 +1919,11 @@ Textbox5 - 16.5526cm + 17.4416cm 0.10579cm 0.05496cm 20.88652cm - 27 + 26 @@ -2080,7 +1970,7 @@ 1.15361cm 1.32415cm 19.15078cm - 28 + 27 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21094,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21092,1,0), "DsOC") > 0),false,true) @@ -2117,11 +2007,11 @@ Textbox4 - 13.40048cm + 14.28948cm 0.19008cm 0.40655cm 12.88812cm - 29 + 28 @@ -2139,137 +2029,13 @@ 0.28014cm 2.81551cm 3.93968cm - 30 + 29 - - Embedded - ID3 - FitProportional - 25.23024cm - 0.15211cm - 0.93046cm - 5.37042cm - 31 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 22.89546cm - 0.15211cm - 0.6882cm - 20.71217cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.55292in - 6.62703in - 0.6035in - 0.78275in - 33 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.34024cm - 0.15211cm - 1.49135cm - 5.37042cm - 34 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2285,11 +2051,11 @@ Textbox5 - 22.87959cm + 23.76859cm 0.18789cm 0.05496cm 20.88652cm - 35 + 30 @@ -2301,169 +2067,6 @@ 2pt - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.34024cm - 7.32342cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.33046cm - 14.54342cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2492,7 +2095,7 @@ 1.00794cm 1.05791cm 19.15078cm - 39 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21094,1,0), "DsOC") > 0),false,true) @@ -2556,7 +2159,7 @@ 1.16095cm 0.62233cm 9.17089cm - 40 + 32 @@ -2593,11 +2196,11 @@ Textbox1 - 9.73614cm + 9.62688cm 10.47295cm 0.64039cm 9.53276cm - 41 + 33 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -2611,21 +2214,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.46153cm - 0.15086cm - 0.85359cm - 20.86494cm - 42 - - - - @@ -3496,7 +3084,7 @@ 0.08272in 0.36206in 8.23497in - 43 + 34 @@ -3954,11 +3542,11 @@ true - 20.48601cm + 21.37501cm 0.16383cm 2.25247cm 20.89818cm - 44 + 35 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3983,11 +3571,11 @@ Textbox5 - 20.40392cm + 21.29292cm 0.18789cm 0.05496cm 20.88652cm - 45 + 36 @@ -3999,8 +3587,293 @@ 2pt + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.37311cm + 0.06799cm + 2.92445cm + 20.98078cm + 37 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.30461cm + 0.1715cm + 0.85359cm + 20.86494cm + 38 + + + + - 26.31443cm + 23.82355cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.42623cm - 0.22908cm - 2.03224cm - 20.79751cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1865,11 +1755,11 @@ Textbox5 - 13.87759cm + 14.51259cm 0.25783cm 0.05496cm 20.88652cm - 13 + 12 @@ -1923,7 +1813,7 @@ 17.09866cm 0.64028cm 3.90165cm - 14 + 13 @@ -2086,11 +1976,11 @@ Textbox4 - 14.03838cm + 14.67338cm 0.17183cm 2.44366cm 15.5106cm - 15 + 14 @@ -2121,11 +2011,11 @@ Textbox19 - 5.51303in + 5.76303in 6.21932in 0.17708in 0.94607in - 16 + 15 @@ -2156,11 +2046,11 @@ Textbox19 - 5.7055in + 5.9555in 6.21931in 0.17966in 0.94607in - 17 + 16 @@ -2191,11 +2081,11 @@ Textbox19 - 5.90449in + 6.15449in 6.21931in 0.18819in 0.94607in - 18 + 17 @@ -2226,11 +2116,11 @@ Textbox19 - 6.11074in + 6.36074in 6.22973in 0.17119in 0.94607in - 19 + 18 @@ -2262,11 +2152,11 @@ Textbox19 - 6.30137in + 6.55137in 6.24015in 0.19596in 0.94607in - 20 + 19 @@ -2298,11 +2188,11 @@ Textbox42 - 5.53803in + 5.78803in 7.16539in 0.17708in 0.98426in - 21 + 20 @@ -2333,11 +2223,11 @@ Textbox42 - 5.7305in + 5.9805in 7.16539in 0.17966in 0.98425in - 22 + 21 @@ -2368,11 +2258,11 @@ Textbox42 - 5.92949in + 6.17949in 7.17581in 0.18819in 0.98425in - 23 + 22 @@ -2404,11 +2294,11 @@ Textbox42 - 6.13574in + 6.38574in 7.17581in 0.17119in 0.98425in - 24 + 23 @@ -2440,11 +2330,11 @@ Textbox42 - 6.32637in + 6.57637in 7.18623in 0.19596in 0.98425in - 25 + 24 @@ -2481,7 +2371,7 @@ 6.75922cm 0.82021cm 5.51336cm - 26 + 25 @@ -2507,11 +2397,11 @@ Textbox5 - 16.5526cm + 17.1876cm 0.11379cm 0.05496cm 20.88652cm - 27 + 26 @@ -2558,7 +2448,7 @@ 1.16161cm 1.32415cm 19.15078cm - 28 + 27 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21076,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21074,1,0), "DsOC") > 0),false,true) @@ -2595,11 +2485,11 @@ Textbox4 - 13.40048cm + 14.03548cm 0.19808cm 0.40655cm 12.88812cm - 29 + 28 @@ -2617,137 +2507,13 @@ 0.28814cm 2.81551cm 3.93968cm - 30 + 29 - - Embedded - ID3 - FitProportional - 25.06207cm - 0.25386cm - 0.93046cm - 5.37042cm - 31 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 22.72729cm - 0.25386cm - 0.6882cm - 20.71217cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.48671in - 6.66708in - 0.6035in - 0.78275in - 33 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.17207cm - 0.25386cm - 1.49135cm - 5.37042cm - 34 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2763,11 +2529,11 @@ Textbox5 - 22.71142cm + 23.34642cm 0.11379cm 0.05496cm 20.88652cm - 35 + 30 @@ -2779,169 +2545,6 @@ 2pt - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.17207cm - 7.42517cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.16229cm - 14.64517cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2970,7 +2573,7 @@ 1.01594cm 1.05791cm 19.15078cm - 39 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21076,1,0), "DsOC") > 0),false,true) @@ -3034,7 +2637,7 @@ 1.16895cm 0.62233cm 9.17089cm - 40 + 32 @@ -3075,7 +2678,7 @@ 10.48095cm 0.64039cm 9.53276cm - 41 + 33 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -3089,21 +2692,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.55413cm - 0.15886cm - 0.85359cm - 20.86494cm - 42 - - - - @@ -3974,15 +3562,300 @@ 0.07394in 0.36206in 8.23497in - 43 + 34 + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.29195cm + 0.04403cm + 2.92445cm + 20.98078cm + 35 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.22345cm + 0.14754cm + 0.85359cm + 20.86494cm + 36 + + + + - 26.14626cm + 23.40138cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.36168cm - 0.22108cm - 2.03224cm - 20.79751cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1400,11 +1290,11 @@ Textbox5 - 13.87759cm + 14.51259cm 0.24983cm 0.05496cm 20.88652cm - 13 + 12 @@ -1458,7 +1348,7 @@ 17.09066cm 0.64028cm 3.90165cm - 14 + 13 @@ -1621,11 +1511,11 @@ Textbox4 - 14.03838cm + 14.67338cm 0.16383cm 2.44366cm 15.5106cm - 15 + 14 @@ -1656,11 +1546,11 @@ Textbox19 - 5.51303in + 5.76303in 6.21617in 0.17708in 0.94607in - 16 + 15 @@ -1691,11 +1581,11 @@ Textbox19 - 5.7055in + 5.9555in 6.21616in 0.17966in 0.94607in - 17 + 16 @@ -1726,11 +1616,11 @@ Textbox19 - 5.90449in + 6.15449in 6.21616in 0.18819in 0.94607in - 18 + 17 @@ -1761,11 +1651,11 @@ Textbox19 - 6.11074in + 6.36074in 6.22658in 0.17119in 0.94607in - 19 + 18 @@ -1797,11 +1687,11 @@ Textbox19 - 6.30137in + 6.55137in 6.237in 0.19596in 0.94607in - 20 + 19 @@ -1833,11 +1723,11 @@ Textbox42 - 5.53803in + 5.78803in 7.16224in 0.17708in 0.98426in - 21 + 20 @@ -1868,11 +1758,11 @@ Textbox42 - 5.7305in + 5.9805in 7.16224in 0.17966in 0.98425in - 22 + 21 @@ -1903,11 +1793,11 @@ Textbox42 - 5.92949in + 6.17949in 7.17266in 0.18819in 0.98425in - 23 + 22 @@ -1939,11 +1829,11 @@ Textbox42 - 6.13574in + 6.38574in 7.17266in 0.17119in 0.98425in - 24 + 23 @@ -1975,11 +1865,11 @@ Textbox42 - 6.32637in + 6.57637in 7.18308in 0.19596in 0.98425in - 25 + 24 @@ -2016,7 +1906,7 @@ 6.75122cm 0.82021cm 5.51336cm - 26 + 25 @@ -2042,11 +1932,11 @@ Textbox5 - 16.5526cm + 17.1876cm 0.10579cm 0.05496cm 20.88652cm - 27 + 26 @@ -2093,7 +1983,7 @@ 1.15361cm 1.32415cm 19.15078cm - 28 + 27 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21103,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21101,1,0), "DsOC") > 0),false,true) @@ -2130,11 +2020,11 @@ Textbox4 - 13.40048cm + 14.03548cm 0.19008cm 0.40655cm 12.88812cm - 29 + 28 @@ -2152,137 +2042,13 @@ 0.28014cm 2.81551cm 3.93968cm - 30 + 29 - - Embedded - ID3 - FitProportional - 25.12654cm - 0.15086cm - 0.93046cm - 5.37042cm - 31 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 22.79176cm - 0.15086cm - 0.6882cm - 20.71217cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.5121in - 6.62653in - 0.6035in - 0.78275in - 33 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.23654cm - 0.15086cm - 1.49135cm - 5.37042cm - 34 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2298,11 +2064,11 @@ Textbox5 - 22.77589cm + 23.41089cm 0.04654cm 0.05496cm 20.88652cm - 35 + 30 @@ -2314,169 +2080,6 @@ 2pt - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.23654cm - 7.32217cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.22676cm - 14.54217cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2505,7 +2108,7 @@ 1.00794cm 1.05791cm 19.15078cm - 39 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21103,1,0), "DsOC") > 0),false,true) @@ -2569,7 +2172,7 @@ 1.15361cm 0.62233cm 9.17089cm - 40 + 32 @@ -2610,7 +2213,7 @@ 10.46561cm 0.64039cm 9.53276cm - 41 + 33 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -2624,21 +2227,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.48799cm - 0.15086cm - 0.85359cm - 20.86494cm - 42 - - - - @@ -3509,7 +3097,7 @@ 0.11029in 0.36206in 8.23497in - 43 + 34 @@ -3967,11 +3555,11 @@ true - 20.28961cm + 20.92461cm 0.12291cm 2.25247cm 20.89818cm - 44 + 35 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3981,8 +3569,293 @@ + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.30922cm + 0.02823cm + 2.92445cm + 20.98078cm + 36 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.24072cm + 0.13174cm + 0.85359cm + 20.86494cm + 37 + + + + - 26.21073cm + 23.46585cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.32993cm - 0.22908cm - 2.03224cm - 20.79751cm - 13 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2149,11 +2039,11 @@ Textbox5 - 13.87759cm + 14.51259cm 0.25783cm 0.05496cm 20.88652cm - 14 + 13 @@ -2207,7 +2097,7 @@ 17.09866cm 0.64028cm 3.90165cm - 15 + 14 @@ -2370,11 +2260,11 @@ Textbox4 - 14.03838cm + 14.67338cm 0.17183cm 2.44366cm 15.5106cm - 16 + 15 @@ -2405,11 +2295,11 @@ Textbox19 - 5.51303in + 5.76303in 6.21932in 0.17708in 0.94607in - 17 + 16 @@ -2440,11 +2330,11 @@ Textbox19 - 5.7055in + 5.9555in 6.21931in 0.17966in 0.94607in - 18 + 17 @@ -2475,11 +2365,11 @@ Textbox19 - 5.90449in + 6.15449in 6.21931in 0.18819in 0.94607in - 19 + 18 @@ -2510,11 +2400,11 @@ Textbox19 - 6.11074in + 6.36074in 6.22973in 0.17119in 0.94607in - 20 + 19 @@ -2546,11 +2436,11 @@ Textbox19 - 6.30137in + 6.55137in 6.24015in 0.19596in 0.94607in - 21 + 20 @@ -2582,11 +2472,11 @@ Textbox42 - 5.53803in + 5.78803in 7.16539in 0.17708in 0.98426in - 22 + 21 @@ -2617,11 +2507,11 @@ Textbox42 - 5.7305in + 5.9805in 7.16539in 0.17966in 0.98425in - 23 + 22 @@ -2652,11 +2542,11 @@ Textbox42 - 5.92949in + 6.17949in 7.17581in 0.18819in 0.98425in - 24 + 23 @@ -2688,11 +2578,11 @@ Textbox42 - 6.13574in + 6.38574in 7.17581in 0.17119in 0.98425in - 25 + 24 @@ -2724,11 +2614,11 @@ Textbox42 - 6.32637in + 6.57637in 7.18623in 0.19596in 0.98425in - 26 + 25 @@ -2765,7 +2655,7 @@ 6.75922cm 0.82021cm 5.51336cm - 27 + 26 @@ -2791,11 +2681,11 @@ Textbox5 - 16.5526cm + 17.1876cm 0.11379cm 0.05496cm 20.88652cm - 28 + 27 @@ -2842,7 +2732,7 @@ 1.16161cm 1.32415cm 19.15078cm - 29 + 28 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") > 0),false,true) @@ -2879,11 +2769,11 @@ Textbox4 - 13.40048cm + 14.03548cm 0.19808cm 0.40655cm 12.88812cm - 30 + 29 @@ -2901,309 +2791,7 @@ 0.28814cm 2.81551cm 3.93968cm - 31 - - - - - - Embedded - ID3 - FitProportional - 25.48712cm - 0.11379cm - 0.93046cm - 5.37042cm - 32 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 23.15234cm - 0.11379cm - 0.6882cm - 20.71217cm - 33 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.65406in - 6.61194in - 0.6035in - 0.78275in - 34 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.59712cm - 0.11379cm - 1.49135cm - 5.37042cm - 35 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.59712cm - 7.2851cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.58734cm - 14.5051cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - logosmarcaseconollantas - FitProportional - 12.46377cm - 0.19258cm - 0.81208cm - 20.79751cm - 39 + 30 @@ -3238,7 +2826,7 @@ 1.01594cm 1.05791cm 19.15078cm - 40 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") > 0),false,true) @@ -3302,7 +2890,7 @@ 1.16895cm 0.62233cm 9.17089cm - 41 + 32 @@ -3343,7 +2931,7 @@ 10.48095cm 0.64039cm 9.53276cm - 42 + 33 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -3839,11 +3427,11 @@ true - 20.74389cm + 21.37889cm 0.13824cm 2.29928cm 20.95845cm - 43 + 34 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3853,14 +3441,299 @@ + + Embedded + logoLlantas21 + FitProportional + 13.19686cm + 0.14754cm + 0.85359cm + 20.86494cm + 35 + + + + + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.26536cm + 0.04403cm + 2.92445cm + 20.98078cm + 36 + + + + - 26.54309cm + 23.67817cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.36168cm - 0.18933cm - 2.08516cm - 20.79751cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1400,11 +1290,11 @@ Textbox5 - 13.87759cm + 14.51259cm 0.24983cm 0.05496cm 20.88652cm - 13 + 12 @@ -1458,7 +1348,7 @@ 17.09066cm 0.64028cm 3.90165cm - 14 + 13 @@ -1621,11 +1511,11 @@ Textbox4 - 14.03838cm + 14.67338cm 0.16383cm 2.44366cm 15.5106cm - 15 + 14 @@ -1656,11 +1546,11 @@ Textbox19 - 5.51303in + 5.76303in 6.21617in 0.17708in 0.94607in - 16 + 15 @@ -1691,11 +1581,11 @@ Textbox19 - 5.7055in + 5.9555in 6.21616in 0.17966in 0.94607in - 17 + 16 @@ -1726,11 +1616,11 @@ Textbox19 - 5.90449in + 6.15449in 6.21616in 0.18819in 0.94607in - 18 + 17 @@ -1761,11 +1651,11 @@ Textbox19 - 6.11074in + 6.36074in 6.22658in 0.17119in 0.94607in - 19 + 18 @@ -1797,11 +1687,11 @@ Textbox19 - 6.30137in + 6.55137in 6.237in 0.19596in 0.94607in - 20 + 19 @@ -1833,11 +1723,11 @@ Textbox42 - 5.53803in + 5.78803in 7.16224in 0.17708in 0.98426in - 21 + 20 @@ -1868,11 +1758,11 @@ Textbox42 - 5.7305in + 5.9805in 7.16224in 0.17966in 0.98425in - 22 + 21 @@ -1903,11 +1793,11 @@ Textbox42 - 5.92949in + 6.17949in 7.17266in 0.18819in 0.98425in - 23 + 22 @@ -1939,11 +1829,11 @@ Textbox42 - 6.13574in + 6.38574in 7.17266in 0.17119in 0.98425in - 24 + 23 @@ -1975,11 +1865,11 @@ Textbox42 - 6.32637in + 6.57637in 7.18308in 0.19596in 0.98425in - 25 + 24 @@ -2016,7 +1906,7 @@ 6.75122cm 0.82021cm 5.51336cm - 26 + 25 @@ -2042,11 +1932,11 @@ Textbox5 - 16.5526cm + 17.1876cm 0.10579cm 0.05496cm 20.88652cm - 27 + 26 @@ -2093,7 +1983,7 @@ 1.15361cm 1.32415cm 19.15078cm - 28 + 27 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21673,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21669,1,0), "DsOC") > 0),false,true) @@ -2107,44 +1997,6 @@ 2pt - - true - true - true - - - - - < ** Toda corrección de los datos del comprobante debera efectuarse a más tardar tres dias despues de su expedición. ** > - - - - - - 2pt - 2pt - 2pt - 2pt - - Embedded LogoEditado @@ -2152,137 +2004,13 @@ 0.28014cm 2.81551cm 3.93968cm - 30 + 28 - - Embedded - ID3 - FitProportional - 25.88698cm - 0.10579cm - 0.93046cm - 5.37042cm - 31 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 23.5522cm - 0.10579cm - 0.6882cm - 20.71217cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.81148in - 6.60879in - 0.6035in - 0.78275in - 33 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.99698cm - 0.10579cm - 1.49135cm - 5.37042cm - 34 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2298,11 +2026,11 @@ Textbox5 - 20.94197cm + 21.57697cm 0.10579cm 0.05496cm 20.88652cm - 35 + 29 @@ -2314,169 +2042,6 @@ 2pt - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.99698cm - 7.2771cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.9872cm - 14.4971cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2505,7 +2070,7 @@ 1.00794cm 1.05791cm 19.15078cm - 39 + 30 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21673,1,0), "DsOC") > 0),false,true) @@ -2569,7 +2134,7 @@ 1.16095cm 0.62233cm 9.17089cm - 40 + 31 @@ -2606,11 +2171,11 @@ Textbox1 - 9.73614cm + 9.70439cm 10.47295cm 0.64039cm 9.53276cm - 41 + 32 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -2624,21 +2189,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.49328cm - 0.15086cm - 0.85359cm - 20.86494cm - 42 - - - - @@ -3509,7 +3059,7 @@ 0.11029in 0.36206in 8.23497in - 43 + 33 @@ -3967,11 +3517,11 @@ true - 21.10276cm + 21.73776cm 0.14939cm 2.25247cm 20.89818cm - 44 + 34 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3981,8 +3531,331 @@ + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.38711cm + 0.10809cm + 2.92445cm + 20.98078cm + 35 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.28686cm + 0.2116cm + 0.85359cm + 20.86494cm + 36 + + + + + + true + true + true + + + + + < ** Toda corrección de los datos del comprobante debera efectuarse a más tardar tres dias despues de su expedición. ** > + + + + + + 2pt + 2pt + 2pt + 2pt + + - 26.97823cm + 23.99023cm '); + } + + let myTick = 0; + let textoOld = ''; + let LimpiarAlmacen = function () { + divAlmacen.empty(); + } + let Limpiarresultado = function () { + divPS.empty(); + LimpiarAlmacen(); + } + let buscaPSTimer = function (texto) { + let Tick = myTick + 1; + myTick = Tick; + setTimeout( + function () { + if (myTick == Tick) { + if (textoOld != texto) { + buscaPS(texto); + } + textoOld = texto + } + }, 500); + }; + let buscaPS = function (texto) { + myTick = 0; + if (datos == null) { + datos = { Name: texto, metodo: 'getps' } + } + let sdata = datos; + sdata.Name = texto; + sdata.metodo = 'getps'; + Limpiarresultado(); + if (texto.length > 0) { + $.ajax({ + url: "/Ashx/SIGWeb.ashx", + data: sdata + }).done(function (data) { + //console.log(data) + if (data.length > 0) { + data = JSON.parse(data) + let dul = $('
      ') + for (i = 0; i < data.length; i++) { + dul.append('
    • ' + data[i].text + '
      • '); + } + divPS.append(dul); + } + }); + + } + textoOld = texto; + + }; + let GETPSALMACEN = function () { + PSModal.empty(); + buscador.empty(); + divResult.empty(); + Mbody.empty(); + content.append(Mheader); + content.append(Mbody); + content.append(MFotter); + buscador.append(Minput); + buscador.append($('').append(lupa)); + divResult.append('
      Productos
      Existencia
      Almacen
      ') + divResult.append($('
      ').append($('
      ').append(divPS)).append($('
      ').append(divAlmacen))) + Mbody.append($('
      ').append(buscador)); + Mbody.append(divResult); + + PSModal.append($('
      ').append(content)); + PSModal.modal(); + }; + lupa.bind("click", function () { + buscaPS(Minput.val()); + }); + Minput.bind("copy paste cut", function () { + buscaPS(Minput.val()); + }); + Minput.bind("keyup ", function (e) { + if (e.keyCode == 13) { + buscaPS(Minput.val()); + e.preventDefault(); + } else { + buscaPSTimer(Minput.val()); + } + }); + + PSModal.on('click', '.list-group-item ', function (e) { + let $this = $(this).hasClass('list-group-item') ? $(this) : $(this).closest('.list-group-item'); + let cve = $this.data('cve'); + let text = $this.text(); + let datos = { cveps: cve, metodo: 'getpsalmacen' } + $(PSModal.find('.active')).removeClass('active') + $this.addClass('active'); + //console.log('' + cve + ' : ' + text) + LimpiarAlmacen(); + $.ajax({ + url: "/Ashx/SIGWeb.ashx", + data: datos + }).done(function (data) { + //console.log(data) + LimpiarAlmacen(); + if (data.length > 0) { + data = JSON.parse(data) + for (i = 0; i < data.length; i++) { + divAlmacen.append('
      ' + data[i].existencia + '
      ' + data[i].almacen + '
      '); + } + } + }); + }); + PSModal.on('shown.bs.modal', function () { + Minput.focus(); + }); + PSModal.on('click', '.item-almacen', function (e) { + let $this = $(this).hasClass('item-almacen') ? $(this) : $(this).closest('.item-almacen'); + let cveps = $(PSModal.find('.active')).data('cve'); + let cveAlmacen = $this.data('cve'); + if ($(inputProducto).length > 0) { $(inputProducto).val(cveps) } + if ($(inputAlmace).length > 0) { $(inputAlmace).val(cveAlmacen) } + PSModal.modal('hide'); + }); + $('body').append(PSModal); + $('head').append($(style)); + $("body").keyup(function (e) { + if (e.keyCode == 113) { + GETPSALMACEN(); + } + }); + + + * + * + * + * + * + * + * + * + * + */ \ No newline at end of file diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb index 601001c2d..c980a831c 100644 --- a/Sistemas/Empresa.aspx.vb +++ b/Sistemas/Empresa.aspx.vb @@ -340,93 +340,93 @@ Partial Class Sistemas_Empresa CargaCuentasContables() CargaDDLs() - Dim Row As DataRow - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxAcreditar.ToString)) - If Not IsNothing(Row) Then - DdlIVAxAcreditar.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAxAcreditar.ToString)) - DdlIVAxAcreditar.SelectedValue = .IdCuentaIVAxAcreditar.ToString - End If + 'Dim Row As DataRow + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxAcreditar.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIVAxAcreditar.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAxAcreditar.ToString)) + ' DdlIVAxAcreditar.SelectedValue = .IdCuentaIVAxAcreditar.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAAcreditable.ToString)) - If Not IsNothing(Row) Then - DdlIVAAcreditable.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAAcreditable.ToString)) - DdlIVAAcreditable.SelectedValue = .IdCuentaIVAAcreditable.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAAcreditable.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIVAAcreditable.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAAcreditable.ToString)) + ' ' DdlIVAAcreditable.SelectedValue = .IdCuentaIVAAcreditable.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString)) - If Not IsNothing(Row) Then - DdlIVAxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIVAxTrasladar.ToString)) - DdlIVAxTrasladar.SelectedValue = .IdCuentaIVAxTrasladar.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIVAxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIVAxTrasladar.ToString)) + ' DdlIVAxTrasladar.SelectedValue = .IdCuentaIVAxTrasladar.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString)) - If Not IsNothing(Row) Then - DdlIVATrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIVATrasladado.ToString)) - DdlIVATrasladado.SelectedValue = .IdCuentaIVATrasladado.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIVATrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIVATrasladado.ToString)) + ' DdlIVATrasladado.SelectedValue = .IdCuentaIVATrasladado.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString)) - If Not IsNothing(Row) Then - DdlIVARetenciones.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetIVACirculacion.ToString)) - DdlIVARetenciones.SelectedValue = .IdCuentaRetIVACirculacion.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIVARetenciones.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetIVACirculacion.ToString)) + ' DdlIVARetenciones.SelectedValue = .IdCuentaRetIVACirculacion.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString)) - If Not IsNothing(Row) Then - DdlISRCirculacion.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetISRCirculacion.ToString)) - DdlISRCirculacion.SelectedValue = .IdCuentaRetISRCirculacion.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString)) + 'If Not IsNothing(Row) Then + ' DdlISRCirculacion.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetISRCirculacion.ToString)) + ' DdlISRCirculacion.SelectedValue = .IdCuentaRetISRCirculacion.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString)) - If Not IsNothing(Row) Then - DdlCuentaPerdidaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaPerdidaCambiaria.ToString)) - DdlCuentaPerdidaCambiaria.SelectedValue = .IdCuentaPerdidaCambiaria.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString)) + 'If Not IsNothing(Row) Then + ' DdlCuentaPerdidaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaPerdidaCambiaria.ToString)) + ' DdlCuentaPerdidaCambiaria.SelectedValue = .IdCuentaPerdidaCambiaria.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString)) - If Not IsNothing(Row) Then - DddlCuentaGananciaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaGananciaCambiaria.ToString)) - DddlCuentaGananciaCambiaria.SelectedValue = .IdCuentaGananciaCambiaria.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString)) + 'If Not IsNothing(Row) Then + ' DddlCuentaGananciaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaGananciaCambiaria.ToString)) + ' DddlCuentaGananciaCambiaria.SelectedValue = .IdCuentaGananciaCambiaria.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString)) - If Not IsNothing(Row) Then - DdlDSV.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))("CtaCodigo").ToString, .IdCuentaDSV.ToString)) - DdlDSV.SelectedValue = .IdCuentaDSV.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString)) + 'If Not IsNothing(Row) Then + ' DdlDSV.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))("CtaCodigo").ToString, .IdCuentaDSV.ToString)) + ' DdlDSV.SelectedValue = .IdCuentaDSV.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString)) - If Not IsNothing(Row) Then - DdlImpuestosLocales.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))("CtaCodigo").ToString, .IdCuentaImpuestosLocales.ToString)) - DdlImpuestosLocales.SelectedValue = .IdCuentaImpuestosLocales.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString)) + 'If Not IsNothing(Row) Then + ' DdlImpuestosLocales.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))("CtaCodigo").ToString, .IdCuentaImpuestosLocales.ToString)) + ' DdlImpuestosLocales.SelectedValue = .IdCuentaImpuestosLocales.ToString + 'End If 'NUEVOS DATOS - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString)) - If Not IsNothing(Row) Then - DdlIEPSxAcreditar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxAcreditar.ToString)) - DdlIEPSxAcreditar.SelectedValue = .IdCuentaIEPSxAcreditar.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIEPSxAcreditar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxAcreditar.ToString)) + ' DdlIEPSxAcreditar.SelectedValue = .IdCuentaIEPSxAcreditar.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString)) - If Not IsNothing(Row) Then - DdlIEPSAcreditable.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))("CtaCodigo").ToString, .IdCuentaIEPSAcreditable.ToString)) - DdlIEPSAcreditable.SelectedValue = .IdCuentaIEPSAcreditable.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIEPSAcreditable.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))("CtaCodigo").ToString, .IdCuentaIEPSAcreditable.ToString)) + ' DdlIEPSAcreditable.SelectedValue = .IdCuentaIEPSAcreditable.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString)) - If Not IsNothing(Row) Then - DdlIEPSxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxTrasladar.ToString)) - DdlIEPSxTrasladar.SelectedValue = .IdCuentaIEPSxTrasladar.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIEPSxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxTrasladar.ToString)) + ' DdlIEPSxTrasladar.SelectedValue = .IdCuentaIEPSxTrasladar.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString)) - If Not IsNothing(Row) Then - DdlIEPSTrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIEPSTrasladado.ToString)) - DdlIEPSTrasladado.SelectedValue = .IdCuentaIEPSTrasladado.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIEPSTrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIEPSTrasladado.ToString)) + ' DdlIEPSTrasladado.SelectedValue = .IdCuentaIEPSTrasladado.ToString + 'End If End If @@ -665,7 +665,7 @@ Partial Class Sistemas_Empresa Next End If - GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing + ' GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing End If diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 8f39f2c0a..8cdcf4ad9 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1383,14 +1383,12 @@ Partial Class Sistemas_UsuarioDetalle GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing - GlobalDTUsuarios(CveEmpresa:=-1) = Nothing - If UsuarioActual.CveUsuario = 100 Or UsuarioActual.CveRol = 1 Then - Alert("Globals Recargados " & UsuarioActual.CveEmpresa) - End If - 'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then - ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") - 'End If + GlobalDTUsuarios(CveEmpresa:=-1) = Nothing + + 'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then + ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados + ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") + 'End If End Sub Private Sub EnviaCorreo() diff --git a/Site.master b/Site.master index 7101ccf0b..171b0707d 100644 --- a/Site.master +++ b/Site.master @@ -15,7 +15,7 @@ <%: Scripts.Render("~/bundles/modernizr") %> @@ -346,8 +346,8 @@
      -
      -
      +
      +
        @@ -356,28 +356,28 @@
        - - - <%--
      • - -
        -
        -
        - - - -
        +
        +
        + + + + + +
        - - -
        • --%> - - - +
      +
      +
      +
      +
        + +
      +
      +
      diff --git a/Site.master.vb b/Site.master.vb index 531d5b740..f00b5f222 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -321,7 +321,8 @@ Partial Class Site estilo = If(drP("Estilo").ToString() <> "", String.Format("", drP("Estilo")), "") If menuobj.CveModuloSeleccionado = cveModuloActual Then - menuobj.HeaderBar.AppendFormat("
    • {1}
      • ", liga, modulo) + 'menuobj.HeaderBar.AppendFormat("
    • {1}
      • ", liga, modulo) + menuobj.headerstr.Add(String.Format("
    • {1}
      • ", liga, modulo)) menuobj.CveModuloSeleccionadoPadre = CveModulo menuobj.ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero()) End If @@ -345,8 +346,8 @@ Partial Class Site 'menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", cveModuloActual), String.Format("id='m{0}' class='active open'", cveModuloActual)) 'menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", cveModuloActual), String.Format("id='j{0}' class='selected'", cveModuloActual)) - - menuobj.HeaderBar.AppendFormat("
    • {1}
      • ", liga, modulo) + menuobj.headerstr.Insert(0, String.Format("
    • {1}
      • ", liga, modulo)) + 'menuobj.HeaderBar.AppendFormat("
    • {1}
      • ", liga, modulo) menuobj.CveModuloSeleccionadoPadre = CveModulo End If menuobj.MenuHTML.Append("") @@ -397,7 +398,9 @@ Partial Class Site menuobj.strdomain = menuobj.strdomain.Replace(String.Format(":{0}", Request.Url.Port), "") End If Dim newmenuobj As MenuModal = ArmarMenu(0, menuobj) - + For Each stritem As String In menuobj.headerstr + menuobj.HeaderBar.Append(stritem) + Next 'Dim MenuHTML As New StringBuilder 'For Each drP As DataRow In Inicio diff --git a/Ventas/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb index ffc9ae574..ebd33afe3 100644 --- a/Ventas/CatMetasVendedores.aspx.vb +++ b/Ventas/CatMetasVendedores.aspx.vb @@ -193,7 +193,7 @@ Partial Class CatMetasVendedores DtExcel.Rows.Add(dr) Next - + SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) Dim FileExcel As New ExcelFile() Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index e9a1071eb..d72745756 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -378,7 +378,7 @@
      - + @@ -419,7 +419,7 @@
      - + diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index e6ab3292d..1d4659597 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -2504,11 +2504,11 @@ Partial Class Ventas_ClientesAbonar End If If TCPago > TCVenta Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then MsgError = "Ocurrio un error al saldar el movimiento" End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then MsgError = "Ocurrio un error al saldar el movimiento" End If End If @@ -2525,12 +2525,11 @@ Partial Class Ventas_ClientesAbonar Dim IdCtaIVAXTrasladar As Integer = 0 Dim CveCuentaIVAxTrasladar As Integer = 0 - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero - CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAxTrasladar").ToString.ToEntero - End If + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then + ' IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero + ' CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAxTrasladar").ToString.ToEntero + 'End If - IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) If (IVA > 0 Or UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) And IVA < 0) AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 13, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then MsgError = "Ocurrio un error al saldar el movimiento" @@ -2540,7 +2539,6 @@ Partial Class Ventas_ClientesAbonar MsgError = "Ocurrio un error al saldar el movimiento" End If - IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 38, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then MsgError = "Ocurrio un error al saldar el movimiento" End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 72ee6b0d0..caebcc4a0 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6709,7 +6709,7 @@ Partial Class Ventas CargaDatosEstimaciones(CveCliente) End If - If ObjCliente.GetClienteImpuestosLocales(CveCliente) Then + If ObjCliente.GetClienteImpuestosLocales(CveCliente) AndAlso CveVenta <= 0 Then 'se cargan impuestos locales Dim DtClienteImpuesto As DataTable = ObjCliente.DtResultados.FiltraParametros("Seleccionado = 1", "Orden") @@ -8415,6 +8415,7 @@ Partial Class Ventas TmpDT.Rows(e.RowIndex)("TiempoEntrega") = GvPS.Rows(e.RowIndex).FCTextBox("TxtTiempoEntrega").Text.Trim TmpDT.Rows(e.RowIndex)("PU") = PU TmpDT.Rows(e.RowIndex)("Descuento") = ObjDescuento.ImporteDescuento + TmpDT.Rows(e.RowIndex)("Total") = (Cantidad * PU) TmpDT.Rows(e.RowIndex)("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteIVA") = (TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteIEPS") = (TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString().ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) @@ -9364,10 +9365,13 @@ Partial Class Ventas If (Archivo.Exists Or Archivo2.Exists Or ArchivoSti.Exists Or ArchivoSti2.Exists Or ArchivoSti3.Exists) And IfNull(CveVenta, 0).ToString().ToEntero() > 0 Then HplDownPDF.Visible = True HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))) - If UsuarioActual.CveRol = 1 Then + + If UsuarioActual.TienePermisoProceso(359) Then HplRenerarPDF.Visible = True HplRenerarPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1®ENERAR=1", CveVenta))) + End If + If UsuarioActual.CveRol = 1 Then HplImprimirPDFStimulsoft.Visible = True HplImprimirPDFStimulsoft.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=0&STIMULSOFT=1", CveVenta))) End If @@ -13862,10 +13866,10 @@ Partial Class Ventas SeContabiliza = False End If - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() - IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero() - End If + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then + ' IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() + ' IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero() + 'End If Dim UsaComplementariaClientes As Boolean = True @@ -14236,14 +14240,12 @@ Partial Class Ventas If IngresoIVA > 0 Then - IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, Dr("Folio").ToString, FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True Exit For End If 'IVA PAGADO - IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, Dr("Folio").ToString, FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True @@ -14255,14 +14257,14 @@ Partial Class Ventas If IngresoIEPS > 0 Then 'IEPS X TRASLADAR Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, Dr("Folio").ToString, FolioIE.ToString()) - If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 38, Concepto, Fecha, 0, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For End If 'IEPS PAGADO Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, Dr("Folio").ToString, FolioIE.ToString()) - If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 39, Concepto, Fecha, 0, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For End If @@ -14319,11 +14321,9 @@ Partial Class Ventas If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) @@ -14429,11 +14429,9 @@ Partial Class Ventas If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimientoDev * difFluctuacion).RoundSQL) @@ -14790,30 +14788,30 @@ Partial Class Ventas ' If UsuarioActual.CveEmpresa = 119 Then 'código fijo en base el porcentaje iva, que se afecten las clasificaciones - For i = 0 To TmpDTDetalle.Rows.Count - 1 + 'For i = 0 To TmpDTDetalle.Rows.Count - 1 - 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso - If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then + ' 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso + ' If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097", "24479") Then - 'If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal > 0 Then - ' If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal = 0.08 Then - ' TmpDTDetalle(i)("CveClasificacion") = 20242 'clasif: ventas tasa 8% - ' Else - ' TmpDTDetalle(i)("CveClasificacion") = 19929 'clasif: ventas tasa 16% - ' End If + ' 'If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal > 0 Then + ' ' If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal = 0.08 Then + ' ' TmpDTDetalle(i)("CveClasificacion") = 20242 'clasif: ventas tasa 8% + ' ' Else + ' ' TmpDTDetalle(i)("CveClasificacion") = 19929 'clasif: ventas tasa 16% + ' ' End If - ' Else - ' TmpDTDetalle(i)("CveClasificacion") = 19930 'clasif: ventas tasa 0% - ' End If + ' ' Else + ' ' TmpDTDetalle(i)("CveClasificacion") = 19930 'clasif: ventas tasa 0% + ' ' End If - 'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows(0)("CveClasificacion").ToString() - End If + ' 'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva + ' If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows.Count > 0 Then + ' TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows(0)("CveClasificacion").ToString() + ' End If - End If + ' End If - Next + 'Next ' End If @@ -14863,23 +14861,23 @@ Partial Class Ventas Dim CveVentaAplicar = ObjFactura.CveVenta Dim CveVentaAmortizacionAplicar = -1 - If UsuarioActual.CveEmpresa = 119 Then + 'If UsuarioActual.CveEmpresa = 119 Then - 'código fijo en base el porcentaje iva, que se afecten las clasificaciones - For i = 0 To TmpDTDetalle.Rows.Count - 1 + ' 'código fijo en base el porcentaje iva, que se afecten las clasificaciones + ' For i = 0 To TmpDTDetalle.Rows.Count - 1 - 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso - If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then + ' 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso + ' If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString() - End If + ' If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then + ' TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString() + ' End If - End If + ' End If - Next + ' Next - End If + 'End If DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) @@ -15090,13 +15088,8 @@ Partial Class Ventas ConceptoContable = 61 importeMovimiento = importeMovimiento * -1 importeMX = importeMX * -1 - - IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) - Else - IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) End If - CveSubProyectoContabilizar = CveSubProyectoVenta If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" End If @@ -15245,13 +15238,10 @@ Partial Class Ventas End If - - If ObjFactura.IVA <> 0 Then Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIVA").ToDecimal 'IVA X TRASLADAR - IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True @@ -15259,7 +15249,6 @@ Partial Class Ventas End If 'IVA PAGADO - IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True @@ -15267,21 +15256,19 @@ Partial Class Ventas End If End If - - If ObjFactura.IEPS <> 0 Then Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIEPS").ToDecimal 'IEPS X TRASLADAR Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then + If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True Exit For End If 'IEPS PAGADO Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then + If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True Exit For End If @@ -16968,17 +16955,17 @@ Partial Class Ventas Dim FechaMovimiento As Date = Now Dim Concepto As String = ViewState("VentaFolio").ToString() Dim PrePolizaCorrecta = True - Dim PorcentajeImpuesto As Decimal = 0 + ' Dim PorcentajeImpuesto As Decimal = 0 Dim IdCtaIVAXTrasladar As Integer = 0 '13 Iva x Trasladar ImporteMovimiento = Importe13 * PorcentajeAmortizacion ImporteMX = Math.Round(ImporteMovimiento, 2) * TipoCambio - PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() - End If - IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) + 'PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then + ' IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() + 'End If + 'IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) ' CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) If ImporteMovimiento > 0 Then @@ -16988,7 +16975,7 @@ Partial Class Ventas End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, PorcentajeImpuesto:=PorcentajeImpuesto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then PrePolizaCorrecta = False End If End If @@ -17065,11 +17052,10 @@ Partial Class Ventas ImporteMovimiento = TxtIVA.Text.ToDecimal * PorcentajeAmortizacion ImporteMX = Math.Round(ImporteMovimiento * TipoCambio, 2) PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero() - CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero() - End If - IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then + ' IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero() + ' CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero() + 'End If 'CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) If ImporteMovimiento > 0 Then @@ -23679,7 +23665,7 @@ Partial Class Ventas End If End If Else - If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Dev") Then + If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Dev", "RNC") Then CargaInventario(Me.CveVenta) End If End If @@ -25277,9 +25263,9 @@ Partial Class Ventas ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion - 'If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Dev") Then - ' ChkDevAlm.Checked = True - 'End If + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Dev") Then + ChkDevAlm.Checked = True + End If If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso ObjFacturaCancelacion.TipoDocto = "Rem" Then ChkDevAlm.Checked = True @@ -27396,11 +27382,11 @@ Partial Class Ventas Dim ImporteFluctuacion As Decimal = 0 ImporteFluctuacion = Saldo * (TCPago - TCVenta) If TCPago > TCVenta Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), SerieFolio, 64, ConceptoPartida, FechaPago, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), SerieFolio, 64, ConceptoPartida, FechaPago, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then MsgError = "Ocurrio un error al saldar el movimiento" End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), SerieFolio, 65, ConceptoPartida, FechaPago, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), SerieFolio, 65, ConceptoPartida, FechaPago, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then MsgError = "Ocurrio un error al saldar el movimiento" End If End If @@ -27412,15 +27398,14 @@ Partial Class Ventas Dim IdCtaIVAXTrasladar As Integer = 0 - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() - End If + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then + ' IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() + 'End If If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, SerieFolio, 13, ConceptoPartida, FechaPago, IdCtaIVAXTrasladar, -1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=If(tCveMoneda = 1, IVA, IVA * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then MsgError = "Ocurrio un error al saldar el movimiento" End If - IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, SerieFolio, 38, ConceptoPartida, FechaPago, IdCtaContable, -1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=If(tCveMoneda = 1, IEPS, IEPS * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then MsgError = "Ocurrio un error al saldar el movimiento" End If @@ -33428,6 +33413,9 @@ Partial Class Ventas Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp }").ToDecimal + If DtUsadosDevolucion IsNot Nothing Then + Cargo = DtUsadosDevolucion.FiltroPrimeroValor("PU", $"CvePS = {CvePsTemp}").ToString().ToDecimal() + End If If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then