diff --git a/AC/RepEstadoActividades.aspx.vb b/AC/RepEstadoActividades.aspx.vb index b4c061882..f2cd112c1 100644 --- a/AC/RepEstadoActividades.aspx.vb +++ b/AC/RepEstadoActividades.aspx.vb @@ -339,7 +339,8 @@ Partial Class AC_RepEstadoActividades params.Add(New ReportParameter("pFirma1", "")) params.Add(New ReportParameter("pFirma2", "")) End If - params.Add(New ReportParameter("pFechaFin", String.Format("{0} al {1}", FechaI, FechaF))) + params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem, DdlEjercicio.SelectedItem))) + params.Add(New ReportParameter("pFechaFin", FechaF)) ImprimirPDF("AC/Reportes/RepEstadoActividades.rdlc", lrds, params, "EstadoActividades", Formato) End Sub diff --git a/AC/Reportes/RepEstadoActividades.rdlc b/AC/Reportes/RepEstadoActividades.rdlc index 73f518b5d..f17742f32 100644 --- a/AC/Reportes/RepEstadoActividades.rdlc +++ b/AC/Reportes/RepEstadoActividades.rdlc @@ -1325,6 +1325,12 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + Cm 163d4464-e41c-42b9-8827-487ff815b059 diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index c6caaeaef..25443bfa0 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1300,7 +1300,8 @@ Public Class ClsBancos Public Function AddBancos_IE(CveCuenta As Integer, CveTipoTransaccion As Integer, FechaDocumento As Date, Folio As String, PagueseA As String, Importe As Double, CveMoneda As Integer, TipoCambio As Double, Observaciones As String, NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1, - Optional Referencia As String = "-1", Optional CveIESustitucion As Integer = -1, Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False) As Integer + Optional Referencia As String = "-1", Optional CveIESustitucion As Integer = -1, Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False, + Optional MesesSinIntereses As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Banc_IEAdd") @@ -1334,6 +1335,7 @@ Public Class ClsBancos .Add("@CveCorte", SqlDbType.Int).Value = CveCorte .Add("@CveProveedorIntermediario", SqlDbType.Int).Value = CveProveedorIntermediario .Add("@FueConciliado", SqlDbType.Bit).Value = FueConciliado + .Add("@MesesSinIntereses", SqlDbType.Int).Value = MesesSinIntereses .Add("@CveIE", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@FolioRegistro", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index e02213eeb..46a58a11a 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1573,7 +1573,7 @@ Public Class ClsClientes .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@NumCuentaPago", SqlDbType.Int).Value = NumCuentaPago + .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago End With diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 62c6a036f..cbe00b5ee 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -3741,7 +3741,7 @@ Public Class ClsContPAQi StrSQL.Append(" ") StrSQL.Append(" SELECT * ") StrSQL.Append(" FROM ( ") - StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, D.Level, ") + StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, D.Level, C.CtaMayor as TipoCuenta, ") StrSQL.Append(" CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalActual ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, @FechaF, @Tipo, @SegmentoNegocio), 0) END AS ImporteActual, ") StrSQL.Append(" CASE ") StrSQL.Append(" WHEN @Tipo < 0 THEN CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalAnterior ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, DATEADD(yy,-1,@FechaF), @Tipo, @SegmentoNegocio), 0) END ") @@ -3806,7 +3806,7 @@ Public Class ClsContPAQi StrSQL.Append(" ") StrSQL.Append(" SELECT * ") StrSQL.Append(" FROM ( ") - StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, Level, ") + StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, Level, C.CtaMayor as TipoCuenta, ") StrSQL.Append(" CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalActual ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, @FechaF, @Tipo, @SegmentoNegocio), 0) END AS ImporteActual, ") StrSQL.Append(" CASE ") StrSQL.Append(" WHEN @Tipo < 0 AND @UsaAnterior > 0 THEN CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalAnterior ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, DATEADD(yyyy,-1,@FechaI), DATEADD(yyyy,-1,@FechaF), @Tipo, @SegmentoNegocio), 0) END ") diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index ca2e96e95..752e8074c 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -1,5 +1,5 @@ -<%@ WebHandler Language="VB" Class="SIGWeb" %> - +<%@ WebHandler Language="VB" Class="SIGWeb" %> + Imports System Imports System.Web Imports System.Data @@ -79,10 +79,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If End If - End Sub - + End Sub + #Region "File" - + Private Sub Downfile(ByVal context As HttpContext) Dim savepath As String = "" Dim tempPath As String = "" @@ -133,9 +133,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If context.Response.Write(tick) context.Response.StatusCode = 200 - End Sub + End Sub #End Region - + #Region "Get Cliente" Private Function GetClientes(ByVal context As HttpContext) As String Dim retorno As String = "" @@ -164,9 +164,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If Return retorno - End Function + End Function #End Region - + #Region "Get Proveedor" Private Function GetProveedores(ByVal context As HttpContext) As String Dim retorno As String = "" @@ -195,10 +195,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If Return retorno - End Function + End Function #End Region - - + + #Region " GET PS " Private Function getpsalmacen(ByVal context As HttpContext) As String @@ -219,7 +219,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim CvePS = IfNull(context.Request("cveps"), "0").ToString.ToEntero Dim objInv As New ClsInventarios - If objInv.GetExistenciasProducto(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then + If objInv.GetExistenciasPS(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then ' limpio los almacenes donde no tiene ningun producto existencia For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1 @@ -285,19 +285,28 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa) Then ' limpio los almacenes donde no tiene ningun producto existencia - For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1 - + For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1 + If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then objInv.DtResultados.Columns.RemoveAt(i) End If - Next - - DtPSRetorno = objInv.DtResultados + Next + + DtPSRetorno = objInv.DtResultados + End If - objInv.Dispose() + End If + + If usuario.Empresa.Funcionalidad(558) = 1 Then + Try + Dim NobreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName + DtPSRetorno = DtPSRetorno.FiltraParametros($"{NobreFiltroColumna} > 0") + Catch ex As Exception + End Try + End If If UsaGlobal Then @@ -386,19 +395,19 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If Return retorno - End Function + End Function #End Region - - - + + + Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable Get Return False End Get - End Property - - - + End Property + + + #Region "Funciones" Public Function GetJson(ByVal dt As DataTable) As String @@ -419,10 +428,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Get UsuarioActual = DirectCast(context.Session("UsuarioSIG"), Usuario) End Get - End Property + End Property #End Region - - + + #Region " GET PS SAT " Private Function GETPSSAT(ByVal context As HttpContext) As String Dim retorno As String = "" @@ -448,10 +457,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If DtPSRetorno.Dispose() Return retorno - End Function + End Function #End Region - - + + #Region " GET UM SAT " Private Function GETUMSAT(ByVal context As HttpContext) As String Dim retorno As String = "" @@ -476,9 +485,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState context.Response.Write("[]") End If Return retorno - End Function + End Function #End Region - + #Region " GET FRACCION ARANCELARIA " Private Function GetFraccionArancelaria(ByVal context As HttpContext) As String Dim retorno As String = "" @@ -504,12 +513,12 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If DtRetorno.Dispose() Return retorno - End Function + End Function #End Region - - + + #Region "USADOS" - + Private Function GETPSUSADOS(ByVal context As HttpContext) As String Dim retorno As String = "" Dim DtPSRetorno As DataTable = Nothing @@ -599,9 +608,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If Return retorno - End Function - - + End Function + + #End Region - + End Class \ No newline at end of file diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 3b9d4b659..6fb4ef422 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -2294,7 +2294,7 @@ - # + # @@ -5556,10 +5556,13 @@ function CalculaTotalOCEdit(PS, CantidadOriginal, TxtCantidad, TxtPU, TxtTotal, IEPSOriginal, HdnIEPS, IVAOriginal, HdnIVA, RetIVAOriginal, HdnRetIVA, RetISROriginal, HdnRetISR, IEPSIVAOriginal, HdnIEPSIVA, DescuentoOriginal, HdnDescuento, IVAPorcentaje, RetIVAPorcentaje, RetISRPorcentaje, IEPSPSPorcentaje, IEPSPSIVAPorcentaje) { //var Proporcional = ((ToDouble(TxtCantidad.value) * 100) / CantidadOriginal) / 100; + + HdnDescuento.value = ToDouble(DescuentoOriginal * ToDouble(TxtCantidad.value) / CantidadOriginal); - if (IEPSOriginal > 0) { + if (true) { HdnIEPS.value = ToDouble(IEPSPSPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value))); } + if (IVAOriginal > 0) { HdnIVA.value = ToDouble(IVAPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value))); } diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 7458819a9..44dac8093 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -416,6 +416,22 @@ Partial Class Compras_Compras ViewState("CveCuentaBancaria") = value End Set End Property + Private Property IdCuentaBancariaComplementaria As Integer + Get + Return ViewState("IdCuentaBancariaComplementaria").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("IdCuentaBancariaComplementaria") = value + End Set + End Property + Private Property CveCuentaBancariaComplementaria As Integer + Get + Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveCuentaBancariaComplementaria") = value + End Set + End Property Private Property IvaAcumulado As Double Get Return ViewState("IvaAcumulado").ToString.ToDouble @@ -1126,6 +1142,9 @@ Partial Class Compras_Compras CveCuentaBancaria = 0 End If + IdCuentaBancariaComplementaria = 0 + CveCuentaBancariaComplementaria = 0 + 'If UsuarioActual.TienePermisoProceso(259) Then DivEsNoDeducible.Visible = True 'End If @@ -4164,14 +4183,47 @@ Partial Class Compras_Compras If CvePrePoliza > 0 Then 'seria de contado, solo cuando no tenga vinculado ningun anticipo + Dim ImportePago As Decimal = 0 + Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal + Dim CveMonedaPago As Integer = DdlMoneda.SelectedValue.ToEntero + If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado If RBLContado.SelectedValue = "1" Then + ImportePago = TxtDocumentoImporte.Text.Trim.ToDecimal + Dim Dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0) + + If Dr IsNot Nothing Then + CveMonedaPago = Dr("CveMoneda").ToString.ToEntero + End If + + If CveMonedaPago = 1 AndAlso DdlMoneda.SelectedValue.ToEntero = 2 Then + ImportePago = (ImportePago * TCPago).RoundSQL + ElseIf CveMonedaPago = 2 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then + ImportePago = (ImportePago / TCPago).RoundSQL + ElseIf CveMonedaPago = 1 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then + TCPago = 1 + End If + 'se registra primero el movimiento en bancos para luego vincularlo en la compra - CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaPago.Text.Trim.ToDate, TxtDocumentoFolio.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, TxtDocumentoImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, 0.0, TxtDocumentoObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1)) + CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaPago.Text.Trim.ToDate, TxtDocumentoFolio.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, ImportePago, CveMonedaPago, TCPago, TxtDocumentoObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1)) ElseIf RBLContado.SelectedValue = "6" Then + ImportePago = TxtDocumentoImporteCaja.Text.Trim.ToDecimal + Dim Dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta = {DdlCuentaCaja.SelectedValue}").Rows(0) + If Dr IsNot Nothing Then + CveMonedaPago = Dr("CveMoneda").ToString.ToEntero + End If + + If CveMonedaPago = 1 AndAlso DdlMoneda.SelectedValue.ToEntero = 2 Then + ImportePago = (ImportePago * TCPago).RoundSQL + ElseIf CveMonedaPago = 2 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then + ImportePago = (ImportePago / TCPago).RoundSQL + ElseIf CveMonedaPago = 1 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then + TCPago = 1 + End If + 'se registra primero el movimiento en bancos para luego vincularlo en la compra - CveIE = ObjIE.AddBancos_IE(DdlCuentaCaja.SelectedValue.ToEntero, DdlTipoTransaccionCaja.SelectedValue.ToEntero, TxtFechaPago.Text.Trim.ToDate, TxtDocumentoFolioCaja.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, TxtDocumentoImporteCaja.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, 0.0, TxtDocumentoObservacionesCaja.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CveIE = ObjIE.AddBancos_IE(DdlCuentaCaja.SelectedValue.ToEntero, DdlTipoTransaccionCaja.SelectedValue.ToEntero, TxtFechaPago.Text.Trim.ToDate, TxtDocumentoFolioCaja.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, ImportePago, CveMonedaPago, TCPago, TxtDocumentoObservacionesCaja.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) End If If (RBLContado.SelectedValue = "1" OrElse RBLContado.SelectedValue = "6") AndAlso Not CveIE > 0 Then @@ -4225,6 +4277,9 @@ Partial Class Compras_Compras If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero End If + If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + CveConceptoContableAlmacen = 205 + End If Else CveConceptoContableAlmacen = 225 End If @@ -5212,7 +5267,6 @@ Partial Class Compras_Compras Dim PorcentajePagos As Decimal = 0 Dim sumaPagos As Decimal = 0 Dim tipoCambioActual As Decimal - Dim tipoCambioPago As Decimal Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

" Dim idCuentaContabilizacion As Long = 1 Dim CveCuentaContabilizacion As Long = 1 @@ -5365,13 +5419,19 @@ Partial Class Compras_Compras '************************************************************************************************************************** + Dim TipoCambioCompra As Decimal = 1 + TipoCambioCompra = GlobalTipoCambio(FechaMovimiento).ToString.ToDecimal + TipoCambioCompra = If(DivTC.Visible, TipoCambio.ToDecimal, TipoCambioCompra) + + If CveMonedaPago = 1 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then + TipoCambioCompra = 1 + End If + If DdlMoneda.SelectedValue.ToString.ToEntero = 2 Then tipoCambioActual = GlobalTipoCambio(FechaMovimiento).ToString.ToDecimal tipoCambioActual = If(DivTC.Visible, TipoCambio.ToDecimal, tipoCambioActual) - tipoCambioPago = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal Else tipoCambioActual = 1 - tipoCambioPago = 1 End If 'CASO ESPECIAL CREDITOS @@ -5409,7 +5469,10 @@ Partial Class Compras_Compras Case 17 'Pago Proveedores importeMovimiento = importePagoProv - importeMN = importeMovimiento * tipoCambioActual * Multiplicador + If CveMonedaPago = 2 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then + importeMovimiento = importeMovimiento / TipoCambioCompra + End If + importeMN = importeMovimiento * TipoCambioCompra * Multiplicador IdCtaContable = CtaProveedor CveCuenta = CveCuentaProveedor @@ -5506,9 +5569,9 @@ Partial Class Compras_Compras End If - If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" + If TipoCambioCompra > 1 Then Concepto += $" TC:{TipoCambioCompra} ${importeMovimiento.FormatoNumero(2)}" - If tipoCambioActual = 1 Then + If TipoCambioCompra = 1 Then IdCtaContable = CtaProveedor CveCuenta = CveCuentaProveedor Else @@ -5516,7 +5579,7 @@ Partial Class Compras_Compras CveCuenta = CveCuentaProveedorComplementaria If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0) Then 'Cuando tiene complementaria lo dividimos en dos importeMN = importeMovimiento - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, 201, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, 201, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * TipoCambioCompra - importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=TipoCambioCompra) Then ErrorPrepoliza = True End If End If @@ -5527,11 +5590,30 @@ Partial Class Compras_Compras Case 30 'Bancos importeMovimiento = importeBanco + importeCajaChica 'Uno de los dos debe ser 0 - importeMN = importeMovimiento * tipoCambioPago * Multiplicador - IdCtaContable = IdCuentaBancaria - CveCuenta = CveCuentaBancaria - If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}" - '' falta complementaria + If CveMonedaPago = 2 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then + importeMovimiento = importeMovimiento / TCPago + End If + importeMN = importeMovimiento * TCPago * Multiplicador + + If TCPago > 1 Then Concepto += $" TC:{TCPago} ${importeMovimiento.FormatoNumero(2)}" + + If TCPago = 1 Then + IdCtaContable = IdCuentaBancaria + CveCuenta = CveCuentaBancaria + Else + IdCtaContable = IdCuentaBancariaComplementaria + CveCuenta = CveCuentaBancariaComplementaria + If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0) Then 'Cuando tiene complementaria lo dividimos en dos + importeMN = importeMovimiento + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, 201, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * TCPago - importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=TCPago) Then + ErrorPrepoliza = True + End If + End If + + IdCtaContable = IdCuentaBancaria + CveCuenta = CveCuentaBancaria + End If + Case 19 'IVA Acreditable If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then @@ -5544,7 +5626,7 @@ Partial Class Compras_Compras importeMovimiento = importeIVAAcreditable End If - importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador + importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador PorcentajeImpuesto = PorcentajeIVA IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0) @@ -5574,7 +5656,7 @@ Partial Class Compras_Compras End If End If - If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}" + If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" Case 14 'IVA X Acreditar importeMovimiento = importeIVAxAcreditar importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador @@ -5611,7 +5693,7 @@ Partial Class Compras_Compras Case 26 'IEPS Acreditable If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then importeMovimiento = ImporteIEPSAcreditable - importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador + importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero @@ -5635,7 +5717,7 @@ Partial Class Compras_Compras End If End If - If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}" + If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" End If Case 22 'RetIVA Acreditable Honorarios/Serv. Prof. @@ -5643,7 +5725,7 @@ Partial Class Compras_Compras If DdlRetIVAConcepto.Items.Count > 0 Then If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then importeMovimiento = importeRetIVAAcreditable - importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador + importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA CveCuenta = CveCuentaProveedorRetIVA @@ -5665,7 +5747,7 @@ Partial Class Compras_Compras End If End If - If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}" + If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" End If End If End If @@ -5697,7 +5779,7 @@ Partial Class Compras_Compras If DdlRetIVAConcepto.Items.Count > 0 Then If DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then importeMovimiento = importeRetIVAAcreditable - importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador + importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA CveCuenta = CveCuentaProveedorRetIVA @@ -5719,7 +5801,7 @@ Partial Class Compras_Compras End If End If - If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}" + If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" End If End If End If @@ -5773,7 +5855,7 @@ Partial Class Compras_Compras If DdlRetIVAConcepto.Items.Count > 0 Then If DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then importeMovimiento = importeRetIVAAcreditable - importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador + importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA CveCuenta = CveCuentaProveedorRetIVA @@ -5795,7 +5877,7 @@ Partial Class Compras_Compras End If End If - If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}" + If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" End If End If End If @@ -5826,7 +5908,7 @@ Partial Class Compras_Compras If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then importeMovimiento = importeRetIVAAcreditable - importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador + importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA CveCuenta = CveCuentaProveedorRetIVA @@ -5841,7 +5923,7 @@ Partial Class Compras_Compras End If End If - If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}" + If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" End If End If @@ -5849,7 +5931,7 @@ Partial Class Compras_Compras If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 1 Then importeMovimiento = importeRetISRAcreditable - importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador + importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetISR > 0 Then IdCtaContable = CtaProveedorRetISR CveCuenta = CveCuentaProveedorRetISR @@ -5871,7 +5953,7 @@ Partial Class Compras_Compras End If End If - If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}" + If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" End If End If Case 16 'Ret ISR X Acreditar @@ -5899,7 +5981,7 @@ Partial Class Compras_Compras If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then importeMovimiento = importeRetISRxAcreditar - importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador + importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetISR > 0 Then IdCtaContable = CtaProveedorRetISR CveCuenta = CveCuentaProveedorRetISR @@ -5914,14 +5996,14 @@ Partial Class Compras_Compras End If End If - If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}" + If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" End If End If Case 244 'RetISR Acreditable Terceros y Arrendamiento If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then importeMovimiento = importeRetISRAcreditable - importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador + importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetISR > 0 Then IdCtaContable = CtaProveedorRetISR CveCuenta = CveCuentaProveedorRetISR @@ -5941,18 +6023,18 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If End If - If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}" + If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" End If End If Case 64 'Ganancia - If tipoCambioActual <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then + If TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria - If tipoCambioPago < tipoCambioActual Then - importeMovimiento = Math.Abs(tipoCambioPago - tipoCambioActual) * importePagoProv - importeMovimiento -= Math.Abs(tipoCambioPago - tipoCambioActual) * importeIVAAcreditable - importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetIVAAcreditable - importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetISRAcreditable + If TCPago < TipoCambioCompra Then + importeMovimiento = Math.Abs(TCPago - TipoCambioCompra) * importePagoProv + importeMovimiento -= Math.Abs(TCPago - TipoCambioCompra) * importeIVAAcreditable + importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetIVAAcreditable + importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetISRAcreditable importeMN = importeMovimiento End If Else @@ -5960,14 +6042,14 @@ Partial Class Compras_Compras End If Case 65 'Perdida - If tipoCambioActual <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then + If TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria - If tipoCambioActual < tipoCambioPago Then - importeMovimiento = Math.Abs(tipoCambioPago - tipoCambioActual) * importePagoProv - importeMovimiento -= Math.Abs(tipoCambioPago - tipoCambioActual) * importeIVAAcreditable - importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetIVAAcreditable - importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetISRAcreditable + If TCPago < TipoCambioCompra Then + importeMovimiento = Math.Abs(TCPago - TipoCambioCompra) * importePagoProv + importeMovimiento -= Math.Abs(TCPago - TipoCambioCompra) * importeIVAAcreditable + importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetIVAAcreditable + importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetISRAcreditable importeMN = importeMovimiento End If Else @@ -6196,6 +6278,7 @@ Partial Class Compras_Compras End If + Dim RegistroCuentaPuente As Boolean = False 'NC CON PRODUCTOS - CUENTA PUENTE If UsuarioActual.CveEmpresa.Contiene(119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then @@ -6213,6 +6296,7 @@ Partial Class Compras_Compras Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then + RegistroCuentaPuente = True 'Conta ContPAQ If IdCtaContable = 0 Then CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString) @@ -6255,7 +6339,7 @@ Partial Class Compras_Compras - If Not ChkNCInvNC.Checked OrElse Not ListaDocumentos.Count > 0 Then + If Not ChkNCInvNC.Checked OrElse Not RegistroCuentaPuente Then 'GASTO If UsuarioActual.CveEmpresa = 119 Then DT = TmpDT @@ -6494,7 +6578,7 @@ Partial Class Compras_Compras If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then IdCtaContable = CtaProveedorComplementaria CveCuenta = CveCuentaProveedorComplementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, 234, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, 234, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then ErrorPrepoliza = True Exit Select End If @@ -11097,12 +11181,12 @@ Partial Class Compras_Compras Private Sub CargaCuentas() DdlCuenta.Items.Clear() - DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue)) + DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta <> 1")) DdlCuenta.DataBind() DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuentaCaja.Items.Clear() - DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", DdlMoneda.SelectedValue)) + DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta = 1")) DdlCuentaCaja.DataBind() DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -11881,6 +11965,8 @@ Partial Class Compras_Compras CveMoneda = dr("CveMoneda").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero + IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero + CveCuentaBancariaComplementaria = dr("IdCtaContableSIGComplementaria").ToString.ToEntero If dr("UsaTarjeta").ToString = "True" Then CargaGridTarjetas() Else diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index 50fd8aed0..33994b2a3 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/Compras/RepRembolsoComprobaciones.aspx.vb @@ -190,6 +190,7 @@ Partial Class Compras_RepRembolsoComprobaciones If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Compras/RepRembolsoComprobaciones - Unificar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + Alert(ObjMov.MensajePolizaDescuadre, TipoMensaje.MsgError) TieneError = True End If End If diff --git a/Empresas/141/Formatos/Cotizacion.rdlc b/Empresas/141/Formatos/Cotizacion.rdlc index 99f104b63..e06f45764 100644 --- a/Empresas/141/Formatos/Cotizacion.rdlc +++ b/Empresas/141/Formatos/Cotizacion.rdlc @@ -1,5347 +1,5329 @@ - - - 0 - - - - System.Data.DataSet - /* Local Connection */ - - 06ae5329-8ff5-42b5-b7f4-6d68e5186420 - - - - System.Data.DataSet - /* Local Connection */ - - 3fde81d4-b9ca-4175-9160-5293ca8b9aa9 - - - - System.Data.DataSet - /* Local Connection */ - - c220a38d-e45b-4e04-917e-7dfd9cc3345f - - - - System.Data.DataSet - /* Local Connection */ - - c220a38d-e45b-4e04-917e-7dfd9cc3345f - - - - System.Data.DataSet - /* Local Connection */ - - c220a38d-e45b-4e04-917e-7dfd9cc3345f - - - - System.Data.DataSet - /* Local Connection */ - - c220a38d-e45b-4e04-917e-7dfd9cc3345f - - - - - - DsOC - /* Local Query */ - - - - CveOrdenCompraDetalle - System.Int64 - - - CveOrdenCompra - System.Int64 - - - Cantidad - System.Double - - - CveUnidadMedida - System.Int64 - - - Abreviatura - System.String - - - PS - System.String - - - CveClasificacion - System.Int64 - - - Clasificacion - System.String - - - CveActivoFijo - System.Int64 - - - Codigo - System.String - - - TipoDato - System.Int64 - - - CodigoAF - System.String - - - CodigoPS - System.String - - - UnidadMedida - System.String - - - Importe - System.Decimal - - - Total - System.Decimal - - - UM - System.String - - - Obs - System.String - - - SubProyecto - System.String - - - PU - System.String - - - Descuento - System.String - - - Marca - System.String - - - SATClaveProdServ - System.String - - - - DsOC - C:\Users\Orlando Bojorquez\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd - DtOCDetalle - - - - - - - - DataSet2 - /* Local Query */ - - - - ImpuestoLocal - System.String - - - Importe - System.Double - - - Nombre - System.String - - - ImporteT - System.String - - - Orden - System.String - - - - DataSet2 - C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet2.xsd - DataTable1 - - - - - - - - DsFirmas - /* Local Query */ - - - - Titulo - System.String - - - Nombre - System.String - - - Puesto - System.String - - - Lado - System.String - - - - DsFirmas - C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd - DataTable1 - - - - - - - - DsDesgloseImpuestos - /* Local Query */ - - - - Impuesto - System.String - - - tasa - System.String - - - Importe - System.String - - - Orden - System.String - - - - DsDesgloseImpuestos - C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd - DataTable1 - - - - - - - - DsDesgloseImpuestos - /* Local Query */ - - - - SerieFolio - System.String - - - Fecha - System.String - - - Importe - System.String - - - FolioFiscal - System.String - - - - DsDocumentosRelacionados - C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd - DataTable1 - - - - - - - - DsDesgloseImpuestos - /* Local Query */ - - - - SerieFolio - System.String - - - Fecha - System.String - - - SubTotal - System.String - - - Importe - System.String - - - Moneda - System.String - - - - DsNCVinculadas - C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd - DataTable1 - - - - - - - - - - - - - - External - =Parameters!QR.Value - FitProportional - 0.1632in - 0.02254in - 1.2939in - 1.53682in - - - - - - true - true - - - - - Sello Digital del CFDI: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - Start - - true - 7.53709in - 0.05514in - 1.67778in - 8.23221in - - - - - - - - - 0.63263in - - - 0.58129in - - - 0.90001in - - - 0.65422in - - - 2.11153in - - - 0.98425in - - - 0.63048in - - - 0.68106in - - - 1.03419in - - - - - 0.19645in - - - - - true - true - - - - - # Cant. - - - - - - - - 2pt - - - - 2pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Unidad - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Clave Pr./Se - - - - - - - Textbox29 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Clave U. - - - - - - - Textbox2 - - - - - 2pt - - - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nombre - - - - - - - Textbox17 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Precio - - - - - - - Textbox53 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Tasa IVA - - - - - - - Textbox21 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descto. - - - - - - - Textbox23 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - SubTotal - - - - - - - Textbox1 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.14436in - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!UM.Value - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SATClaveProdServ.Value - - - - - - - SATClaveProdServ - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value & " " & Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Descuento - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value * Fields!PU.Value - - - - - - - TiempoEntrega - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 2.7169in - 0.08802in - 0.34081in - 8.20966in - 1 - - - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - ID2 - FitProportional - 0.31432cm - 0.6509cm - 2.36008cm - 3.25594cm - 4 - - - - - - true - true - - - - - ECONOLLANTAS SERVICIOS Y ACCESORIOS SA DE CV - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Expedido en Sucursal: 2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - COTIZACIÓN - - - - - - - Textbox8 - 0.31432cm - 18.23008cm - 0.6cm - 2.79101cm - 7 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) - - - - - - - Textbox8 - 0.91432cm - 18.23008cm - 0.6cm - 2.79101cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha y Hora: - - - - - - - - - =Parameters!Fecha.Value - - - - - - - Textbox8 - 1.51432cm - 18.23008cm - 0.86903cm - 2.79101cm - 9 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ='www.econollantas.com' - - - - www.econollantas.com - - - - - - - - - - - - 01800 560-6757 - - - - - - - Textbox15 - 2.38336cm - 4.32565cm - 0.82021cm - 7.93893cm - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Folio Fiscal: - - - - =Parameters!FolioFiscal.Value - - - - - - - =Parameters!FechaCertificacion.Value - - - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - No. de Serie del Certificado del CSD: - - - - =Parameters!CertificadoContribuyente.Value - - - - - - - =Parameters!Fecha.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - - - =Parameters!ClienteColonia.Value - - - - - - - - =Parameters!ClienteCiudad.Value - - - - - - - - =Parameters!ClienteEstado.Value - - - - CP - - - - =Parameters!ClienteCP.Value - - - - - - - - =Parameters!ClientePais.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CondicionPago.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteRFC.Value - - - - - - - Textbox35 - 6.27447cm - 0.24145cm - 0.52062cm - 13.85894cm - 15 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Esta Póliza cubre cualquier daño que presente la llanta que no esté cubierta por el fabricante, Esta será reemplazada solo si el daño no es reparable, por una llanta nueva igual o equivalente, cargo al cliente el desgaste por el uso que presente la banda de rodamiento, paq. de serv. y póliza nueva. *NO APLICA EN DESGASTE, ROBO O INCENDIO. - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sonora: Veracruz (662) 210-0041 - Morelos (662) 211-0805 - Colosio (662) 2608088 - Colosio2 (662) 1189939 - Reforma (662) 213-8724 - Perisur (662) 254-4849 - Rodríguez (662) 213-0388 - - - - - - - - - Sahuaro (662) 2161471 - Solidaridad (662) 216-0935 - Palo Verde (662) 4363254 - Progreso (662) 3105781 - Quiroga (662) 261- 0838 - Caborca (637) 3724214 - Magdalena (632) 322-4080 - - - - - - - - - Nogales (631) 319-0093 - Cananea (645) 332 20 40 - Guaymas (622) 222-2417 - Obregón (644)412-2002 Obregón II (644) 413-1543- Obregón III (644) 4134501 - Navojoa (642) 422-9852 - - - - - - - - - Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667 - - - - - - - - - Tres Ríos (667) 455-4621 - Mazatlán (669) 910-2122 - Baja California: Tijuana1 (664) 622-5221 - Tijuana3 (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali3 (686) 326 02 79 - - - - - - - - - Tecate (665) 5212080 - Ensenada (646) 172-4075 - Ensenada2 (646) 176-2703 - Baja California Sur: La Paz (612) 146-3656 - La Paz 2 (612) 121-3185 - Los Cabos (624) 688 3552 - - - - - - - Textbox4 - 11.52298cm - 0.22358cm - 2.03224cm - 20.79751cm - 17 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - Embedded - ID5 - FitProportional - 14.39611cm - 0.14775cm - 0.96488cm - 3.75909cm - 19 - - - - - - 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 - ID4 - FitProportional - 14.39611cm - 4.32565cm - 0.91769cm - 3.03541cm - 21 - - - - - - Embedded - ID1 - FitProportional - 14.39611cm - 7.53745cm - 0.97656cm - 4.16281cm - 22 - - - - - - Embedded - ID6 - FitProportional - 14.39611cm - 11.88258cm - 1.01184cm - 3.76809cm - 23 - - - - - - Embedded - ID3 - FitProportional - 14.74294cm - 15.65067cm - 0.93046cm - 5.37042cm - 24 - - - - - - true - true - - - - - DESCARGA NUESTRA APLICACIÓN - - - - - - - Textbox60 - 14.20467cm - 15.65067cm - 0.50299cm - 5.42547cm - 25 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Ord. Compra: - - - - =Parameters!OC.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tipo de Comprobante:I Ingreso,Moneda: - - - - =Parameters!MonedaAbreviatura.Value - - - - , Uso de CFDI: - - - - =Parameters!UsoCFDI.Value - - - - , Forma de Pago: - - - - =Parameters!FormaPago.Value - - - - , Método de Pago: - - - - =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Precio Total: - - - - - - - Textbox19 - 6.33116in - 6.23113in - 0.21875in - 0.94607in - 29 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Descuento: - - - - - - - Textbox19 - 6.54724in - 6.23112in - 0.21875in - 0.94607in - 30 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sub Total: - - - - - - - Textbox19 - 6.76011in - 6.23112in - 0.21875in - 0.94607in - 31 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IVA (16%): - - - - - - - Textbox19 - 6.97886in - 6.23112in - 0.21875in - 0.94607in - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - T O T A L : - - - - - - - Textbox19 - 7.19449in - 6.23112in - 0.21875in - 0.94607in - 33 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Parameters!SubTotal.Value.ToString() = "", "-", Parameters!SubTotal.Value) - - - - - - - Textbox42 - 6.33116in - 7.1772in - 0.21875in - 0.98426in - 34 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.iif(Parameters!Descuento.Value.ToString() = "", "-", Parameters!Descuento.Value) - - - - - - - Textbox42 - 6.54991in - 7.1772in - 0.20486in - 0.98425in - 35 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Parameters!SubTotal2.Value.ToString() = "", "-", Parameters!SubTotal2.Value) - - - - - - - Textbox42 - 6.76011in - 7.1772in - 0.19899in - 0.98425in - 36 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.iif(Parameters!IVA.Value.ToString() = "", "-", Parameters!IVA.Value) - - - - - - - Textbox42 - 6.97886in - 7.1772in - 0.19284in - 0.98425in - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Total.Value - - - - - - - Textbox42 - 7.19449in - 7.1772in - 0.19596in - 0.98425in - 38 - - - 2pt - 2pt - 2pt - 2pt - - - - 23.48349cm - - - - - - - Textbox35 - 0.17639cm - 18.52109cm - 0.50624cm - 2.5cm - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0cm - 0cm - 0.5cm - 0.5cm - 1.27cm - + + + + + true + true + + + + + Sello Digital del CFDI: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + Start + + true + 6.39675in + 0.0645in + 1.67778in + 8.23221in + + + + + + + + + 0.63263in + + + 0.58129in + + + 0.90001in + + + 0.65422in + + + 2.11153in + + + 0.98425in + + + 0.63048in + + + 0.68106in + + + 1.03419in + + + + + 0.19645in + + + + + true + true + + + + + # Cant. + + + + + + + + 2pt + + + + 2pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Unidad + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Clave Pr./Se + + + + + + + Textbox29 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Clave U. + + + + + + + Textbox2 + + + + + 2pt + + + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Textbox17 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Precio + + + + + + + Textbox53 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tasa IVA + + + + + + + Textbox21 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descto. + + + + + + + Textbox23 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SubTotal + + + + + + + Textbox1 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveProdServ.Value + + + + + + + SATClaveProdServ + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Descuento + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value * Fields!PU.Value + + + + + + + TiempoEntrega + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 2.25278in + 0.09836in + 0.34081in + 8.20966in + 1 + + + + + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + ID2 + FitProportional + 0.61418cm + 1.15361cm + 2.413cm + 2.75323cm + 4 + + + + + + true + true + + + + + ECONOLLANTAS SERVICIOS Y ACCESORIOS SA DE CV + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Expedido en Sucursal: 2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + COTIZACIÓN + + + + + + + Textbox8 + 0.31432cm + 18.23008cm + 0.6cm + 2.79101cm + 7 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) + + + + + + + Textbox8 + 0.91432cm + 18.23008cm + 0.6cm + 2.79101cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora: + + + + + + + + + =Parameters!Fecha.Value + + + + + + + Textbox8 + 1.51432cm + 18.23008cm + 0.86903cm + 2.79101cm + 9 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio Fiscal: + + + + =Parameters!FolioFiscal.Value + + + + + + + =Parameters!FechaCertificacion.Value + + + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. de Serie del Certificado del CSD: + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + =Parameters!Fecha.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + =Parameters!ClienteColonia.Value + + + + + + + + =Parameters!ClienteCiudad.Value + + + + + + + + =Parameters!ClienteEstado.Value + + + + CP + + + + =Parameters!ClienteCP.Value + + + + + + + + =Parameters!ClientePais.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CondicionPago.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteRFC.Value + + + + + + + Textbox35 + 5.09559cm + 0.26772cm + 0.52062cm + 9.72441cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Esta Póliza cubre cualquier daño que presente la llanta que no esté cubierta por el fabricante, Esta será reemplazada solo si el daño no es reparable, por una llanta nueva igual o equivalente, cargo al cliente el desgaste por el uso que presente la banda de rodamiento, paq. de serv. y póliza nueva. *NO APLICA EN DESGASTE, ROBO O INCENDIO. + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sonora: Veracruz (662) 210-0041 - Morelos (662) 211-0805 - Colosio (662) 2608088 - Colosio2 (662) 1189939 - Reforma (662) 213-8724 - Perisur (662) 254-4849 - Rodríguez (662) 213-0388 + + + + + + + + + Sahuaro (662) 2161471 - Solidaridad (662) 216-0935 - Palo Verde (662) 4363254 - Progreso (662) 3105781 - Quiroga (662) 261- 0838 - Caborca (637) 3724214 - Magdalena (632) 322-4080 + + + + + + + + + Nogales (631) 319-0093 - Cananea (645) 332 20 40 - Guaymas (622) 222-2417 - Obregón (644)412-2002 Obregón II (644) 413-1543- Obregón III (644) 4134501 - Navojoa (642) 422-9852 + + + + + + + + + Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667 + + + + + + + + + Tres Ríos (667) 455-4621 - Mazatlán (669) 910-2122 - Baja California: Tijuana1 (664) 622-5221 - Tijuana3 (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali3 (686) 326 02 79 + + + + + + + + + Tecate (665) 5212080 - Ensenada (646) 172-4075 - Ensenada2 (646) 176-2703 - Baja California Sur: La Paz (612) 146-3656 - La Paz 2 (612) 121-3185 - Los Cabos (624) 688 3552 + + + + + + + Textbox4 + 9.21745cm + 0.22108cm + 2.03224cm + 20.79751cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + + + Embedded + ID5 + FitProportional + 11.49964cm + 0.17151cm + 0.96488cm + 3.75909cm + 18 + + + + + + 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 + ID4 + FitProportional + 11.49964cm + 4.34941cm + 0.91769cm + 3.03541cm + 20 + + + + + + Embedded + ID1 + FitProportional + 11.49964cm + 7.56121cm + 0.97656cm + 4.16281cm + 21 + + + + + + Embedded + ID6 + FitProportional + 11.49964cm + 11.90634cm + 1.01184cm + 3.76809cm + 22 + + + + + + Embedded + ID3 + FitProportional + 11.84646cm + 15.67443cm + 0.93046cm + 5.37042cm + 23 + + + + + + true + true + + + + + DESCARGA NUESTRA APLICACIÓN + + + + + + + Textbox60 + 11.3082cm + 15.67443cm + 0.50299cm + 5.42547cm + 24 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ord. Compra: + + + + =Parameters!OC.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo de Comprobante:I Ingreso,Moneda: + + + + =Parameters!MonedaAbreviatura.Value + + + + , Uso de CFDI: + + + + =Parameters!UsoCFDI.Value + + + + , Forma de Pago: + + + + =Parameters!FormaPago.Value + + + + , Método de Pago: + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Precio Total: + + + + + + + Textbox19 + 5.19081in + 6.24049in + 0.21875in + 0.94607in + 27 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Descuento: + + + + + + + Textbox19 + 5.40689in + 6.24048in + 0.21875in + 0.94607in + 28 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sub Total: + + + + + + + Textbox19 + 5.61977in + 6.24048in + 0.21875in + 0.94607in + 29 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IVA (16%): + + + + + + + Textbox19 + 5.83852in + 6.24048in + 0.21875in + 0.94607in + 30 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + T O T A L : + + + + + + + Textbox19 + 6.05415in + 6.24048in + 0.21875in + 0.94607in + 31 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Parameters!SubTotal.Value.ToString() = "", "-", Parameters!SubTotal.Value) + + + + + + + Textbox42 + 5.19081in + 7.18656in + 0.21875in + 0.98426in + 32 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.iif(Parameters!Descuento.Value.ToString() = "", "-", Parameters!Descuento.Value) + + + + + + + Textbox42 + 5.40956in + 7.18656in + 0.20486in + 0.98425in + 33 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Parameters!SubTotal2.Value.ToString() = "", "-", Parameters!SubTotal2.Value) + + + + + + + Textbox42 + 5.61977in + 7.18656in + 0.19899in + 0.98425in + 34 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.iif(Parameters!IVA.Value.ToString() = "", "-", Parameters!IVA.Value) + + + + + + + Textbox42 + 5.83852in + 7.18656in + 0.19284in + 0.98425in + 35 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox42 + 6.05415in + 7.18656in + 0.19596in + 0.98425in + 36 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + www.econollantas.com +01800 560-6757 + + + + + + + Textbox90 + 2.38336cm + 4.32565cm + 0.82021cm + 7.93893cm + 37 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + + + 20.50931cm + + + + + + + Textbox35 + 0.17639cm + 18.52109cm + 0.50624cm + 2.5cm + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0.5cm + 0.5cm + 1.27cm + - - - - - true - true - - - - - Sello Digital del CFDI: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - Start - - true - 7.02873in - 0.04381in - 1.67778in - 8.23221in - - - - - - - - - 0.63263in - - - 0.58129in - - - 0.90001in - - - 0.65422in - - - 2.11153in - - - 0.98425in - - - 0.63048in - - - 0.68106in - - - 1.03419in - - - - - 0.19645in - - - - - true - true - - - - - # Cant. - - - - - - - - 2pt - - - - 2pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Unidad - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Clave Pr./Se - - - - - - - Textbox29 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Clave U. - - - - - - - Textbox2 - - - - - 2pt - - - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nombre - - - - - - - Textbox17 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Precio - - - - - - - Textbox53 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Tasa IVA - - - - - - - Textbox21 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descto. - - - - - - - Textbox23 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - SubTotal - - - - - - - Textbox1 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.14436in - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!UM.Value - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SATClaveProdServ.Value - - - - - - - SATClaveProdServ - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value & " " & Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Descuento - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value * Fields!PU.Value - - - - - - - TiempoEntrega - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 2.7169in - 0.08802in - 0.34081in - 8.20967in - 1 - - - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - ID2 - FitProportional - 0.31432cm - 0.6509cm - 2.36008cm - 3.25594cm - 4 - - - - - - true - true - - - - - ECONOLLANTAS SERVICIOS Y ACCESORIOS SA DE CV - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Expedido en Sucursal: 2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - FACTURA - - - - - - - Textbox8 - 0.31432cm - 18.23008cm - 0.6cm - 2.79101cm - 7 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) - - - - - - - Textbox8 - 0.91432cm - 18.23008cm - 0.6cm - 2.79101cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha y Hora: - - - - - - - - - =Parameters!Fecha.Value - - - - - - - Textbox8 - 1.51432cm - 18.23008cm - 0.86903cm - 2.79101cm - 9 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Folio Fiscal: - - - - =Parameters!FolioFiscal.Value - - - - - - - =Parameters!FechaCertificacion.Value - - - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - No. de Serie del Certificado del CSD: - - - - =Parameters!CertificadoContribuyente.Value - - - - - - - =Parameters!Fecha.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - - - =Parameters!ClienteColonia.Value - - - - - - - - =Parameters!ClienteCiudad.Value - - - - - - - - =Parameters!ClienteEstado.Value - - - - CP - - - - =Parameters!ClienteCP.Value - - - - - - - - =Parameters!ClientePais.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CondicionPago.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteRFC.Value - - - - - - - Textbox35 - 6.27447cm - 0.24145cm - 0.52062cm - 13.85894cm - 14 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Esta Póliza cubre cualquier daño que presente la llanta que no esté cubierta por el fabricante, Esta será reemplazada solo si el daño no es reparable, por una llanta nueva igual o equivalente, cargo al cliente el desgaste por el uso que presente la banda de rodamiento, paq. de serv. y póliza nueva. *NO APLICA EN DESGASTE, ROBO O INCENDIO. - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sonora: Veracruz (662) 210-0041 - Morelos (662) 211-0805 - Colosio (662) 2608088 - Colosio2 (662) 1189939 - Reforma (662) 213-8724 - Perisur (662) 254-4849 - Rodríguez (662) 213-0388 - - - - - - - - - Sahuaro (662) 2161471 - Solidaridad (662) 216-0935 - Palo Verde (662) 4363254 - Progreso (662) 3105781 - Quiroga (662) 261- 0838 - Caborca (637) 3724214 - Magdalena (632) 322-4080 - - - - - - - - - Nogales (631) 319-0093 - Cananea (645) 332 20 40 - Guaymas (622) 222-2417 - Obregón (644)412-2002 Obregón II (644) 413-1543- Obregón III (644) 4134501 - Navojoa (642) 422-9852 - - - - - - - - - Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667 - - - - - - - - - Tres Ríos (667) 455-4621 - Mazatlán (669) 910-2122 - Baja California: Tijuana1 (664) 622-5221 - Tijuana3 (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali3 (686) 326 02 79 - - - - - - - - - Tecate (665) 5212080 - Ensenada (646) 172-4075 - Ensenada2 (646) 176-2703 - Baja California Sur: La Paz (612) 146-3656 - La Paz 2 (612) 121-3185 - Los Cabos (624) 688 3552 - - - - - - - Textbox4 - 10.82269cm - 0.16854cm - 2.03224cm - 20.79751cm - 16 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - Embedded - ID5 - FitProportional - 13.10488cm - 0.11897cm - 0.96488cm - 3.75909cm - 18 - - - - - - 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 - ID4 - FitProportional - 13.10488cm - 4.29687cm - 0.91769cm - 3.03541cm - 20 - - - - - - Embedded - ID1 - FitProportional - 13.10488cm - 7.50867cm - 0.97656cm - 4.16281cm - 21 - - - - - - Embedded - ID6 - FitProportional - 13.10488cm - 11.8538cm - 1.01184cm - 3.76809cm - 22 - - - - - - Embedded - ID3 - FitProportional - 13.4517cm - 15.62189cm - 0.93046cm - 5.37042cm - 23 - - - - - - true - true - - - - - DESCARGA NUESTRA APLICACIÓN - - - - - - - Textbox60 - 12.91344cm - 15.62189cm - 0.50299cm - 5.42547cm - 24 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Ord. Compra: - - - - =Parameters!OC.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tipo de Comprobante:I Ingreso,Moneda: - - - - =Parameters!MonedaAbreviatura.Value - - - - , Uso de CFDI: - - - - =Parameters!UsoCFDI.Value - - - - , Forma de Pago: - - - - =Parameters!FormaPago.Value - - - - , Método de Pago: - - - - =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Precio Total: - - - - - - - Textbox19 - 5.82279in - 6.2198in - 0.21875in - 0.94607in - 28 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Descuento: - - - - - - - Textbox19 - 6.03887in - 6.21979in - 0.21875in - 0.94607in - 29 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sub Total: - - - - - - - Textbox19 - 6.25175in - 6.21979in - 0.21875in - 0.94607in - 30 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IVA (16%): - - - - - - - Textbox19 - 6.4705in - 6.21979in - 0.21875in - 0.94607in - 31 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - T O T A L : - - - - - - - Textbox19 - 6.68613in - 6.21979in - 0.21875in - 0.94607in - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Parameters!SubTotal.Value.ToString() = "", "-", Parameters!SubTotal.Value) - - - - - - - Textbox42 - 5.82279in - 7.16587in - 0.21875in - 0.98426in - 33 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.iif(Parameters!Descuento.Value.ToString() = "", "-", Parameters!Descuento.Value) - - - - - - - Textbox42 - 6.04154in - 7.16587in - 0.20486in - 0.98425in - 34 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Parameters!SubTotal2.Value.ToString() = "", "-", Parameters!SubTotal2.Value) - - - - - - - Textbox42 - 6.25175in - 7.16587in - 0.19899in - 0.98425in - 35 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.iif(Parameters!IVA.Value.ToString() = "", "-", Parameters!IVA.Value) - - - - - - - Textbox42 - 6.4705in - 7.16587in - 0.19284in - 0.98425in - 36 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Total.Value - - - - - - - Textbox42 - 6.68613in - 7.16587in - 0.19596in - 0.98425in - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - www.econollantas.com -01800 560-6757 - - - - - - - Textbox90 - 2.38336cm - 4.32565cm - 0.82021cm - 7.93893cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - - - 22.12049cm - - - - - - - Textbox35 - 0.17639cm - 18.52109cm - 0.50624cm - 2.5cm - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0cm - 0cm - 0.5cm - 0.5cm - 1.27cm - + + + + + true + true + + + + + Sello Digital del CFDI: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + Start + + true + 6.39675in + 0.0645in + 1.67778in + 8.23221in + + + + + + + + + 0.63263in + + + 0.58129in + + + 0.90001in + + + 0.65422in + + + 2.11153in + + + 0.98425in + + + 0.63048in + + + 0.68106in + + + 1.03419in + + + + + 0.19645in + + + + + true + true + + + + + # Cant. + + + + + + + + 2pt + + + + 2pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Unidad + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Clave Pr./Se + + + + + + + Textbox29 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Clave U. + + + + + + + Textbox2 + + + + + 2pt + + + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Textbox17 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Precio + + + + + + + Textbox53 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tasa IVA + + + + + + + Textbox21 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descto. + + + + + + + Textbox23 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SubTotal + + + + + + + Textbox1 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveProdServ.Value + + + + + + + SATClaveProdServ + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Descuento + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value * Fields!PU.Value + + + + + + + TiempoEntrega + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 2.25278in + 0.09836in + 0.34081in + 8.20966in + 1 + + + + + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + ID2 + FitProportional + 0.61418cm + 1.15361cm + 2.413cm + 2.75323cm + 4 + + + + + + true + true + + + + + ECONOLLANTAS SERVICIOS Y ACCESORIOS SA DE CV + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Expedido en Sucursal: 2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FACTURA + + + + + + + Textbox8 + 0.31432cm + 18.23008cm + 0.6cm + 2.79101cm + 7 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) + + + + + + + Textbox8 + 0.91432cm + 18.23008cm + 0.6cm + 2.79101cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora: + + + + + + + + + =Parameters!Fecha.Value + + + + + + + Textbox8 + 1.51432cm + 18.23008cm + 0.86903cm + 2.79101cm + 9 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio Fiscal: + + + + =Parameters!FolioFiscal.Value + + + + + + + =Parameters!FechaCertificacion.Value + + + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. de Serie del Certificado del CSD: + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + =Parameters!Fecha.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + =Parameters!ClienteColonia.Value + + + + + + + + =Parameters!ClienteCiudad.Value + + + + + + + + =Parameters!ClienteEstado.Value + + + + CP + + + + =Parameters!ClienteCP.Value + + + + + + + + =Parameters!ClientePais.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CondicionPago.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteRFC.Value + + + + + + + Textbox35 + 5.09559cm + 0.26772cm + 0.52062cm + 9.72441cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Esta Póliza cubre cualquier daño que presente la llanta que no esté cubierta por el fabricante, Esta será reemplazada solo si el daño no es reparable, por una llanta nueva igual o equivalente, cargo al cliente el desgaste por el uso que presente la banda de rodamiento, paq. de serv. y póliza nueva. *NO APLICA EN DESGASTE, ROBO O INCENDIO. + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sonora: Veracruz (662) 210-0041 - Morelos (662) 211-0805 - Colosio (662) 2608088 - Colosio2 (662) 1189939 - Reforma (662) 213-8724 - Perisur (662) 254-4849 - Rodríguez (662) 213-0388 + + + + + + + + + Sahuaro (662) 2161471 - Solidaridad (662) 216-0935 - Palo Verde (662) 4363254 - Progreso (662) 3105781 - Quiroga (662) 261- 0838 - Caborca (637) 3724214 - Magdalena (632) 322-4080 + + + + + + + + + Nogales (631) 319-0093 - Cananea (645) 332 20 40 - Guaymas (622) 222-2417 - Obregón (644)412-2002 Obregón II (644) 413-1543- Obregón III (644) 4134501 - Navojoa (642) 422-9852 + + + + + + + + + Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667 + + + + + + + + + Tres Ríos (667) 455-4621 - Mazatlán (669) 910-2122 - Baja California: Tijuana1 (664) 622-5221 - Tijuana3 (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali3 (686) 326 02 79 + + + + + + + + + Tecate (665) 5212080 - Ensenada (646) 172-4075 - Ensenada2 (646) 176-2703 - Baja California Sur: La Paz (612) 146-3656 - La Paz 2 (612) 121-3185 - Los Cabos (624) 688 3552 + + + + + + + Textbox4 + 9.21745cm + 0.22108cm + 2.03224cm + 20.79751cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + + + Embedded + ID5 + FitProportional + 11.49964cm + 0.17151cm + 0.96488cm + 3.75909cm + 18 + + + + + + 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 + ID4 + FitProportional + 11.49964cm + 4.34941cm + 0.91769cm + 3.03541cm + 20 + + + + + + Embedded + ID1 + FitProportional + 11.49964cm + 7.56121cm + 0.97656cm + 4.16281cm + 21 + + + + + + Embedded + ID6 + FitProportional + 11.49964cm + 11.90634cm + 1.01184cm + 3.76809cm + 22 + + + + + + Embedded + ID3 + FitProportional + 11.84646cm + 15.67443cm + 0.93046cm + 5.37042cm + 23 + + + + + + true + true + + + + + DESCARGA NUESTRA APLICACIÓN + + + + + + + Textbox60 + 11.3082cm + 15.67443cm + 0.50299cm + 5.42547cm + 24 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ord. Compra: + + + + =Parameters!OC.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo de Comprobante:I Ingreso,Moneda: + + + + =Parameters!MonedaAbreviatura.Value + + + + , Uso de CFDI: + + + + =Parameters!UsoCFDI.Value + + + + , Forma de Pago: + + + + =Parameters!FormaPago.Value + + + + , Método de Pago: + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Precio Total: + + + + + + + Textbox19 + 5.19081in + 6.24049in + 0.21875in + 0.94607in + 27 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Descuento: + + + + + + + Textbox19 + 5.40689in + 6.24048in + 0.21875in + 0.94607in + 28 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sub Total: + + + + + + + Textbox19 + 5.61977in + 6.24048in + 0.21875in + 0.94607in + 29 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IVA (16%): + + + + + + + Textbox19 + 5.83852in + 6.24048in + 0.21875in + 0.94607in + 30 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + T O T A L : + + + + + + + Textbox19 + 6.05415in + 6.24048in + 0.21875in + 0.94607in + 31 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Parameters!SubTotal.Value.ToString() = "", "-", Parameters!SubTotal.Value) + + + + + + + Textbox42 + 5.19081in + 7.18656in + 0.21875in + 0.98426in + 32 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.iif(Parameters!Descuento.Value.ToString() = "", "-", Parameters!Descuento.Value) + + + + + + + Textbox42 + 5.40956in + 7.18656in + 0.20486in + 0.98425in + 33 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Parameters!SubTotal2.Value.ToString() = "", "-", Parameters!SubTotal2.Value) + + + + + + + Textbox42 + 5.61977in + 7.18656in + 0.19899in + 0.98425in + 34 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.iif(Parameters!IVA.Value.ToString() = "", "-", Parameters!IVA.Value) + + + + + + + Textbox42 + 5.83852in + 7.18656in + 0.19284in + 0.98425in + 35 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox42 + 6.05415in + 7.18656in + 0.19596in + 0.98425in + 36 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + www.econollantas.com +01800 560-6757 + + + + + + + Textbox90 + 2.38336cm + 4.32565cm + 0.82021cm + 7.93893cm + 37 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + + + 20.5093cm + + + + + + + Textbox35 + 0.17639cm + 18.52109cm + 0.50624cm + 2.5cm + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0.5cm + 0.5cm + 1.27cm + Nominas @@ -129,331 +175,331 @@
- - + +
- - + - + Nombre - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -474,11 +520,102 @@
+ + + + + + + + + + + + diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 18d76d330..44d0bf5ca 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -220,12 +220,16 @@ public partial class Nomina_Nomina2 : ClsPaginas CvePeriodoSeleccionado = 0; dtempleados = null; dtConceptos = null; + DataTable dtPeriodo = new DataTable(); + DataTable dtasistencia = new DataTable(); using (ClsNominas objnom = new ClsNominas()) { if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador) && objnom.DTSetResultados.Tables.Count > 1) { dtempleados = objnom.DTSetResultados.Tables[0]; dtConceptos = objnom.DTSetResultados.Tables[1]; + dtPeriodo = objnom.DTSetResultados.Tables[2]; + dtasistencia = objnom.DTSetResultados.Tables[3]; CvePeriodoSeleccionado = CvePeriodo; continuar = true; } @@ -512,6 +516,57 @@ public partial class Nomina_Nomina2 : ClsPaginas GvNominas.DataBind(); } + try + { + + DateTime FechaInicio = (DateTime)dtPeriodo.Rows[0]["FechaInicio"]; + DateTime FechaFin = (DateTime)dtPeriodo.Rows[0]["FechaFin"]; + StringBuilder gvasistencia = new StringBuilder(); + gvasistencia.Append(""); + if (true) + { + DateTime fecha = FechaInicio; + + gvasistencia.Append(""); + gvasistencia.Append(""); + while (fecha <= FechaFin) + { + gvasistencia.AppendFormat("", fecha); + fecha = fecha.AddDays(1); + } + gvasistencia.Append(""); + } + string tipo = ""; + foreach (DataRow rempl in dtempleados.Rows) + { + int CvePersonal = rempl["CvePersonal"].ToString().ToEntero(); + string nombre = rempl["Nombre"].ToString(); + DateTime fecha = FechaInicio; + gvasistencia.Append(""); + gvasistencia.AppendFormat("", nombre); + while (fecha <= FechaFin) + { + DataRow drow = dtasistencia.FiltroPrimero(string.Format("Fecha='{0:yyyy/MM/dd}' AND CvePersonal={1}", fecha, CvePersonal)); + fecha = fecha.AddDays(1); + tipo = "-"; + if (drow != null) + { + tipo = string.Format("{0} ({1}%)", drow["Tipo"], drow["PorcentajePago"]); + drow.Delete(); + } + gvasistencia.AppendFormat("", tipo); + } + gvasistencia.Append(""); + } + gvasistencia.Append("
Nombre{0:dd/MM/yyyy}
{0}{0}
"); + ltlGvAsistencia.Text = gvasistencia.ToString(); + } + catch (Exception) + { + + throw; + } + #endregion UpDatos.Update(); } @@ -573,13 +628,6 @@ public partial class Nomina_Nomina2 : ClsPaginas } #endregion - #region SobreRecibo - - protected void LnkSobreRecibo_Click(object sender, EventArgs e) - { - } - #endregion - protected void LnkTimbrar_Click(object sender, EventArgs e) @@ -770,6 +818,137 @@ public partial class Nomina_Nomina2 : ClsPaginas } + + #region SobreRecibo + + protected void LnkSobreRecibo_Click(object sender, EventArgs e) + { + GridViewRow gvrow = (GridViewRow)(((LinkButton)sender).NamingContainer); + + string Nombre = gvrow.DataKey("Nombre").ToString(); + int cvePersonal = gvrow.DataKey("CvePersonal").ToEntero(); + int CvePeriodo = gvrow.DataKey("CvePeriodo").ToEntero(); + int CveNomina = gvrow.DataKey("CveNomina").ToEntero(); + LblEmpleado.Text = Nombre; + DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 "); + DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 "); + dtper.Columns.Add("BorradoLogico", typeof(int)); + dtded.Columns.Add("BorradoLogico", typeof(int)); + + foreach (DataRow row in dtper.Rows) + { + int BorradoLogico = 0; + int CveConcepto = row["CveConcepto"].ToString().ToEntero(); + if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0)) + { + BorradoLogico = 1; + } + row["BorradoLogico"] = BorradoLogico; + } + dtper.AcceptChanges(); + foreach (DataRow row in dtded.Rows) + { + int BorradoLogico = 0; + int CveConcepto = row["CveConcepto"].ToString().ToEntero(); + if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0)) + { + BorradoLogico = 1; + } + row["BorradoLogico"] = BorradoLogico; + } + dtded.AcceptChanges(); + dtper = dtper.FiltraParametros("BorradoLogico=0"); + dtded = dtded.FiltraParametros("BorradoLogico=0"); + int maxper = dtper.Rows.Count; + int maxded = dtded.Rows.Count; + int i = 0; + List lconc = new List(); + for (i = 0; i < maxper || i < maxded; i++) + { + NConcepto nConcepto = new NConcepto(); + DataRow row; + if (maxper > i) + { + row = dtper.Rows[i]; + int CveConcepto = row["CveConcepto"].ToString().ToEntero(); + string Concepto = row["Concepto"].ToString(); + //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); + double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", cvePersonal)); + nConcepto.CveConceptoP = CveConcepto; + nConcepto.ConceptoP = Concepto; + nConcepto.ImporteP = Importe; + nConcepto.ValorP = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", cvePersonal)); + } + if (maxded > i) + { + row = dtded.Rows[i]; + int CveConcepto = row["CveConcepto"].ToString().ToEntero(); + string Concepto = row["Concepto"].ToString(); + //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); + double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", cvePersonal)); + nConcepto.CveConceptoD = CveConcepto; + nConcepto.ConceptoD = Concepto; + nConcepto.ImporteD = Importe; + nConcepto.ValorD = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", cvePersonal)); + } + lconc.Add(nConcepto); + } + + lconc.Add(new NConcepto()); + + NConcepto SubTotales = new NConcepto(); + SubTotales.CveConceptoP = 0; + SubTotales.ConceptoP = "Total Percepciones"; + SubTotales.EstatusP = -2; + SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", cvePersonal)); + ///Alert(SubTotales.ImporteP.ToString()); + + SubTotales.CveConceptoD = 0; + SubTotales.ConceptoD = "Total Deducciones"; + SubTotales.EstatusD = -2; + SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", cvePersonal)); + + NConcepto Totales = new NConcepto(); + Totales.CveConceptoD = 0; + Totales.ConceptoD = "Total"; + Totales.EstatusD = -3; + Totales.ImporteD = dtempleados.SUM("Total", string.Format("CvePersonal = {0}", cvePersonal)); + + lconc.Add(SubTotales); + lconc.Add(Totales); + GvConceptos.DataSource = lconc; + GvConceptos.DataBind(); + UpModalConceptos.Update(); + RegistraScript("$('#ModalConceptos').modal();"); + //if (true) + //{ + // BoundField field = (BoundField)GvNominas.Columns[CurrentColumn]; + + // field.HeaderText = "Percepciones"; + // field.DataField = "SumaPercepciones"; + // field.ItemStyle.BackColor = System.Drawing.Color.LightGray; + // GvNominas.Columns[CurrentColumn].Visible = true; + // CurrentColumn++; + //} + + //if (true) + //{ + // BoundField field = (BoundField)GvNominas.Columns[CurrentColumn]; + // field.HeaderText = "Deducciones"; + // field.DataField = "SumaDeducciones"; + // field.ItemStyle.BackColor = System.Drawing.Color.LightGray; + // GvNominas.Columns[CurrentColumn].Visible = true; + // CurrentColumn++; + + // field = (BoundField)GvNominas.Columns[CurrentColumn]; + // field.HeaderText = "Total"; + // field.DataField = "Total"; + // field.ItemStyle.BackColor = System.Drawing.Color.LightGray; + // GvNominas.Columns[CurrentColumn].Visible = true; + // CurrentColumn++; + //} + } + protected void LnkFormato_Click(object sender, EventArgs e) { try @@ -852,4 +1031,80 @@ public partial class Nomina_Nomina2 : ClsPaginas Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString()); } } + private class NConcepto + { + public string ConceptoP { get; set; } + public int CveConceptoP { get; set; } + public double ImporteP { get; set; } + public double ValorP { get; set; } + public int EstatusP { get; set; } + + + public string ConceptoD { get; set; } + public int CveConceptoD { get; set; } + public double ImporteD { get; set; } + public double ValorD { get; set; } + public int EstatusD { get; set; } + } + + protected void GvConceptos_RowDataBound(object sender, GridViewRowEventArgs e) + { + + if (e.Row.RowType == DataControlRowType.DataRow) + { + // Datakeys + // Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD + int CveConcepto = e.Row.DataKey("CveConceptoP").ToEntero(); + int CveConceptoD = e.Row.DataKey("CveConceptoD").ToEntero(); + // Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal() + // Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal() + int Estatus = e.Row.DataKey("EstatusP").ToEntero(); + int EstatusD = e.Row.DataKey("EstatusD").ToEntero(); + + // Controles + Label LtlConcepto = e.Row.FCLabel("LtlConcepto"); + LinkButton LnkConcepto = e.Row.FCLinkButton("LnkConcepto"); + Label LtlConceptoD = e.Row.FCLabel("LtlConceptoD"); + LinkButton LnkConceptoD = e.Row.FCLinkButton("LnkConceptod"); + Label LtlImporte = e.Row.FCLabel("LtlImporte"); + LinkButton LnkImporte = e.Row.FCLinkButton("LnkImporte"); + Label LtlImporteD = e.Row.FCLabel("LtlImporteD"); + LinkButton LnkImporteD = e.Row.FCLinkButton("LnkImporteD"); + + if (Estatus < -1 | EstatusD < -1) + e.Row.CssClass = "ConceptosTotales"; + if (CveConcepto == 0 && (Estatus == 0 || Estatus == -1 || Estatus == -3)) + LtlImporte.Text = ""; + + if (CveConceptoD == 0 && (EstatusD == 0 || EstatusD == -1)) + LtlImporteD.Text = ""; + + if (Estatus == -1) + LtlConcepto.Visible = false; + else if (Estatus > 0) + LtlImporte.Visible = false; + + if (EstatusD == -1) + LtlConceptoD.Visible = false; + else if (EstatusD > 0) + LtlImporteD.Visible = false; + + + LnkConcepto.Visible = !LtlConcepto.Visible; + LnkConceptoD.Visible = !LtlConceptoD.Visible; + LnkImporte.Visible = !LtlImporte.Visible; + LnkImporteD.Visible = !LtlImporteD.Visible; + } + } + #endregion + + protected void LnkConcepto_Click(object sender, EventArgs e) + { + + } + + protected void LnkConceptoD_Click(object sender, EventArgs e) + { + + } } \ No newline at end of file diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 820e11b88..77c33867c 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -4794,7 +4794,7 @@ Partial Class OC Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual) Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto - Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text)) + Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedItem.Text)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra)) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Hilo.Start(Param) @@ -4808,7 +4808,7 @@ Partial Class OC Dim DtPara As DataTable = GlobalDTUsuarios(Dr("CveUsuarioPara").ToString.ToEntero, CveEmpresaActual) Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add("Solicitud de anticipo de Orden de Compra Cancelada") 'Asunto - Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), "")) + Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), "", DdlProveedores.SelectedItem.Text)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra)) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Hilo.Start(Param) @@ -4839,8 +4839,9 @@ Partial Class OC End If End Sub - Private Function GeneraCorreoAnticipo(folio As String, para As String, link As String, importe As String) As String + Private Function GeneraCorreoAnticipo(folio As String, para As String, link As String, importe As String, Proveedor As String) As String 'NOTA: CUANDO EL IMPORTE SEA "" QUIERE DECIR QUE ES EL CORREO DE CANCELACIÓN + Dim Abreviatura As String = GlobalDTMonedas().FiltroPrimeroValor("Abreviatura", $"CveMoneda={DdlMoneda.SelectedValue}") Dim strBody As New StringBuilder strBody.Append("") @@ -4868,6 +4869,18 @@ Partial Class OC strBody.Append("
") strBody.Append(" ") strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") strBody.Append(" ") strBody.Append(" ") If importe.ToDouble > 0 Then - strBody.Append(" ") + strBody.Append(" ") strBody.Append(" ") + End If + If LblTotal.Text.Trim.ToDouble > 0 Then + strBody.Append(" ") + strBody.Append(" ") End If strBody.Append("
Empresa") + strBody.Append(UsuarioActual.Empresa.Empresa) + strBody.Append("
Proveedor") + strBody.Append(Proveedor) + strBody.Append("
Fecha") strBody.Append(DateTime.Now.ToString("dd/MM/yy")) @@ -4888,9 +4901,15 @@ Partial Class OC strBody.Append(folio) strBody.Append("
Importe:Importe Anticipo:") - strBody.Append(importe) + strBody.AppendFormat("{0} {1}", importe, Abreviatura) + strBody.Append("
Importe OC:") + strBody.AppendFormat("{0} {1}", LblTotal.Text, Abreviatura) strBody.Append("
+ CssClass="btn btn-circle btn-sm green" Text="" />
@@ -992,12 +992,12 @@
- +
- Generar PDF + Generar PDF
@@ -1027,7 +1027,7 @@
- + @@ -1038,7 +1038,7 @@
- + @@ -1051,7 +1051,7 @@
- + @@ -1120,7 +1120,7 @@
-
+
@@ -1650,60 +1650,73 @@
+
+
+
+
+ + + + + + + + +
+
+ +
+
+
+
+ + + + + + + + +
+
-
-
- - - - - - - -
-
-
- - - - - - - - +
+
+ +
+ + + + + +
+ +
+
+
+ + + + + +
+
- -
- - - - - -
- -
- - - - - +
+
- -
- -
- +
- - + +
diff --git a/Site.master b/Site.master index 89a6083b8..c5c00f712 100644 --- a/Site.master +++ b/Site.master @@ -78,7 +78,6 @@
+ + <%-- Agregar un Nuevo CLiente --%> + @@ -6486,7 +6683,18 @@ var totalDebito = ToDouble($get("TxtImporteDebito").value); var totalCheque = ToDouble($get("TxtImporteCheque").value); var totalTransferencia = ToDouble($get("TxtImporteTransferencia").value); - var total = totalEfectivo + totalCredito + totalDebito + totalCheque + totalTransferencia; + + var TotalOtrosContado = 0; + + try{ + if ($('#DdlOtroFormaPago').val() != "-1") { + TotalOtrosContado = ToDouble($get("TxtImporteOtrosContado").value); + } + } catch (e) {} + + + + var total = totalEfectivo + totalCredito + totalDebito + totalCheque + totalTransferencia + TotalOtrosContado; $get("TxtImporteContado").value = total; } @@ -6894,7 +7102,7 @@ indexd += 1; }); } - function CargaExistenciasSucursales(id,ps) { + function CargaExistenciasSucursales(id, ps) { $.ajax({ url: '/Ashx/SIGWeb.ashx?metodo=getpsalmacen&cveps=' + id, type: 'get', @@ -7097,7 +7305,28 @@ } } + + function showDivEC() { + $('#<%= TxtRFCCliente.ClientID %>').val(''); + $('#<%= TxtNombreCliente.ClientID %>').val(''); + $('#<%= TxtDireccionCliente.ClientID %>').val(''); + $('#<%= TxtNumExtCliente.ClientID %>').val(''); + $('#<%= TxtNumIntCliente.ClientID %>').val(''); + $('#<%= TxtCPCliente.ClientID %>').val(''); + $('#<%= TxtColoniaCliente.ClientID %>').val(''); + $('#<%= TxtTelefonoCliente.ClientID %>').val(''); + $('#<%= TxtCiudadCliente.ClientID %>').val(''); + $('#<%= TxtLocalidadCliente.ClientID %>').val(''); + $('#<%= TxtEstadoCliente.ClientID %>').val(''); + $('#<%= TxtPaisCliente.ClientID %>').val(''); + $('#<%= TxtCorreoCliente.ClientID %>').val(''); + $('#divAgregarCliente').modal(); + } + + function hideDivEC() { + $('#divAgregarCliente').modal('hide'); + } diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 718048713..926400c13 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1725,6 +1725,10 @@ Partial Class Ventas DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Autorización", "PA")) End If + If UsuarioActual.CveEmpresa <> 141 Then + LnkAgregarCliente.Visible = False + End If + DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Pd2")) If UsuarioActual.Empresa.Funcionalidad(344).ToString = "1" Then @@ -1802,7 +1806,10 @@ Partial Class Ventas TxtImporteDebito.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") TxtImporteCheque.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") TxtImporteTransferencia.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") + TxtImporteOtrosContado.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") + TxtEfectivoEnCaja.Attributes.Add("onKeyUp", "CalculaDiferencia();") + 'ImgCerrarTerminoCorte.Attributes.Add("OnClick", "$('#DivTerminarCorte').hide();") 'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")DdlTipoComprobante 'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();") @@ -1907,6 +1914,8 @@ Partial Class Ventas CargaOrdenProduccion() End If + + 'Carga Venta If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero > 0 Then ViewState("CveVenta") = Request("CveVenta") @@ -2422,6 +2431,16 @@ Partial Class Ventas End If End If + + + If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then + + DivMesesSinIntereses.Visible = True + DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-3") + DivContadoOtros.Visible = True + + End If + End If ''EN REALIDAD SE OCUPAN ESTAS COSAS DENTRO DEL POSTABCK ??? @@ -4345,6 +4364,11 @@ Partial Class Ventas DdlFormaPago33.DataSource = dtt DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "") DdlFormaPago33.DataBind() + + DdlFormaCliente.DataSource = GlobalDTVtaFormaPago + DdlFormaCliente.DataBind() + DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago + DdlMetodoCliente.DataBind() 'End If End Sub Private Sub CargaUsoCFDI() @@ -4500,6 +4524,8 @@ Partial Class Ventas EnviarCorreoCliente = ObjCliente.EnviarFactura EstatusCliente = ObjCliente.Estatus + LnkAgregarCliente.Visible = False + ClienteEsDistribuidor = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("EsDistribuidor").ToString) If EstatusCliente = False And Not DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") And (CveVenta <= 0 Or EsCreaApartirDe) Then @@ -7267,7 +7293,7 @@ Partial Class Ventas Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False) - If Me.CveVenta > 0 Then + If Me.CveVenta > 0 AndAlso NuevaFactura <> 1 Then ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa) Else ObjFactura = New Modelos.Factura @@ -10083,7 +10109,7 @@ Partial Class Ventas Exit For End If - CveIEPago = ObjBancos.AddBancos_IE(DrPago("CveCuenta").ToString.ToEntero, DrPago("CveTipoMovimiento").ToString.ToEntero, Fecha, FolioIE.ToString, String.Format("PAGO: {0}", TxtFolio.Text), DrPago("Importe").ToString.ToDouble, DdlMoneda.SelectedValue.ToEntero, tipoCambio, DrPago("Observaciones").ToString, "", False, False, -1, ObjFactura.CvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=CveCorte) + CveIEPago = ObjBancos.AddBancos_IE(DrPago("CveCuenta").ToString.ToEntero, DrPago("CveTipoMovimiento").ToString.ToEntero, Fecha, FolioIE.ToString, String.Format("PAGO: {0}", TxtFolio.Text), DrPago("Importe").ToString.ToDouble, DdlMoneda.SelectedValue.ToEntero, tipoCambio, DrPago("Observaciones").ToString, "", False, False, -1, ObjFactura.CvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=CveCorte, MesesSinIntereses:=DrPago("MesesSinIntereses").ToString.ToEntero) If CveIEPago > 0 Then @@ -15234,7 +15260,7 @@ Partial Class Ventas Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante) Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text) - Asunto = Asunto.Replace("{""SerieFolio""}", $"{LblSerie.Text} - {TxtFolio.Text}") + Asunto = Asunto.Replace("{""SerieFolio""}", ObjFactura.SerieFolio) End If If Not EnviarFactura Then @@ -16088,6 +16114,7 @@ Partial Class Ventas DtPagos.Columns.Add("Observaciones", GetType(String)) DtPagos.Columns.Add("Tipo", GetType(String)) DtPagos.Columns.Add("CveMetodoPago", GetType(Integer)) + DtPagos.Columns.Add("MesesSinIntereses", GetType(Integer)) CargaCuentas() @@ -16101,6 +16128,8 @@ Partial Class Ventas TxtImporteCheque.Text = "0.00" TxtImporteTransferencia.Text = "0.00" TxtImporteContado.Text = "0.00" + TxtImporteOtrosContado.Text = "0.00" + End Sub Private Sub LimpiaEscondeContado() 'LIMPIA @@ -16149,6 +16178,39 @@ Partial Class Ventas DdlCuentaTransferencia.DataBind() End Sub + + + Protected Sub DdlOtroFormaPago_SelectedIndexChanged(sender As Object, e As EventArgs) + + DivContadoOtrosCuenta.Attributes.Add("class", "col-md-6") + DivMesesSinIntereses2.Visible = False + + Select Case DdlOtroFormaPago.SelectedValue.ToEntero + Case 1 + DivContadoOtrosCuenta.Attributes.Add("class", "col-md-3") + DivMesesSinIntereses2.Visible = True + DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) + Exit Select + Case 2 + DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) + Exit Select + Case 3 + DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) + Exit Select + Case -1 + DdlCuentaOtrosContado.DataSource = Nothing + Exit Select + End Select + + DdlCuentaOtrosContado.DataBind() + UpContado.Update() + + End Sub + + + 'DdlOtroFormaPago + + Private Function CargaFolioContado(CveCuenta As Integer, TipoTransaccion As Integer) As Long Dim Folio As Long @@ -16204,6 +16266,8 @@ Partial Class Ventas DrEfectivo("Observaciones") = "" DrEfectivo("Tipo") = "Caja Chica" DrEfectivo("CveMetodoPago") = 1 + DrEfectivo("MesesSinIntereses") = -1 + DtPagos.Rows.Add(DrEfectivo) Else Alert("Debe seleccionar una cuenta válida de caja", TipoMensaje.MsgAdvertencia) @@ -16212,6 +16276,7 @@ Partial Class Ventas 'Pago Tarjeta Credito If TxtImporteCredito.Text.ToDecimal > 0 Then + If DdlCuentaTarjetaCredito.Items.Count > 0 Then Dim DrCredito = DtPagos.NewRow DrCredito("CveTipoMovimiento") = 12 @@ -16223,10 +16288,20 @@ Partial Class Ventas DrCredito("Observaciones") = "" DrCredito("Tipo") = "Tarjeta de Crédito" DrCredito("CveMetodoPago") = 4 + + If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then + DrCredito("MesesSinIntereses") = DDlMesesSinIntereses.SelectedValue.ToEntero + Else + DrCredito("MesesSinIntereses") = -1 + End If + + DtPagos.Rows.Add(DrCredito) Else Alert("Debe seleccionar una cuenta válida de crédito", TipoMensaje.MsgAdvertencia) End If + + End If 'Pago Tarjeta Debito @@ -16242,6 +16317,7 @@ Partial Class Ventas DrDebito("Observaciones") = "" DrDebito("Tipo") = "Tarjeta de Débito" DrDebito("CveMetodoPago") = 5 + DrDebito("MesesSinIntereses") = -1 DtPagos.Rows.Add(DrDebito) Else @@ -16262,6 +16338,7 @@ Partial Class Ventas DrCheque("Observaciones") = "" DrCheque("Tipo") = "Cheque" DrCheque("CveMetodoPago") = 2 + DrCheque("MesesSinIntereses") = -1 DtPagos.Rows.Add(DrCheque) Else @@ -16282,6 +16359,7 @@ Partial Class Ventas DrCheque("Observaciones") = "" DrCheque("Tipo") = "Transferencia" DrCheque("CveMetodoPago") = 3 + DrCheque("MesesSinIntereses") = -1 DtPagos.Rows.Add(DrCheque) Else @@ -16289,6 +16367,82 @@ Partial Class Ventas End If End If + + 'Otro Metodo de pago + Select Case DdlOtroFormaPago.SelectedValue.ToEntero + Case -1 + Exit Select + Case 1 + If TxtImporteOtrosContado.Text.ToDecimal > 0 Then + If DdlCuentaOtrosContado.Items.Count > 0 Then + Dim DrCredito = DtPagos.NewRow + DrCredito("CveTipoMovimiento") = 12 + DrCredito("TipoMovimiento") = "Tarjeta de Crédito" + DrCredito("CveCuenta") = DdlCuentaOtrosContado.SelectedValue + DrCredito("Cuenta") = DdlCuentaOtrosContado.SelectedItem.Text + DrCredito("Importe") = TxtImporteOtrosContado.Text + DrCredito("Folio") = CargaFolioContado(DdlCuentaOtrosContado.SelectedValue.ToEntero, 12) + DrCredito("Observaciones") = "" + DrCredito("Tipo") = "Tarjeta de Crédito" + DrCredito("CveMetodoPago") = 4 + If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then + DrCredito("MesesSinIntereses") = DdlMesesSinIntereses2.SelectedValue.ToEntero + Else + DrCredito("MesesSinIntereses") = -1 + End If + + DtPagos.Rows.Add(DrCredito) + Else + Alert("Debe seleccionar una cuenta válida de crédito( Otra condición de pago)", TipoMensaje.MsgAdvertencia) + End If + End If + + + Exit Select + Case 2 + If TxtImporteOtrosContado.Text.ToDecimal > 0 Then + If DdlCuentaOtrosContado.Items.Count > 0 Then + Dim DrDebito = DtPagos.NewRow + DrDebito("CveTipoMovimiento") = 11 + DrDebito("TipoMovimiento") = "Tarjeta de Debito" + DrDebito("CveCuenta") = DdlCuentaOtrosContado.SelectedValue + DrDebito("Cuenta") = DdlCuentaOtrosContado.SelectedItem.Text + DrDebito("Importe") = TxtImporteOtrosContado.Text + DrDebito("Folio") = CargaFolioContado(DdlCuentaOtrosContado.SelectedValue.ToEntero, 11) + DrDebito("Observaciones") = "" + DrDebito("Tipo") = "Tarjeta de Débito" + DrDebito("CveMetodoPago") = 5 + DrDebito("MesesSinIntereses") = -1 + + DtPagos.Rows.Add(DrDebito) + Else + Alert("Debe seleccionar una cuenta válida de débito( Otra condición de pago)", TipoMensaje.MsgAdvertencia) + End If + End If + Exit Select + Case 3 + If TxtImporteOtrosContado.Text.ToDecimal > 0 Then + If DdlCuentaOtrosContado.Items.Count > 0 Then + Dim DrCheque = DtPagos.NewRow + DrCheque("CveTipoMovimiento") = 3 + DrCheque("TipoMovimiento") = "Cheque" + DrCheque("CveCuenta") = DdlCuentaOtrosContado.SelectedValue + DrCheque("Cuenta") = DdlCuentaOtrosContado.SelectedItem.Text + DrCheque("Importe") = TxtImporteOtrosContado.Text + DrCheque("Folio") = CargaFolioContado(DdlCuentaOtrosContado.SelectedValue.ToEntero, 3) + DrCheque("Observaciones") = "" + DrCheque("Tipo") = "Cheque" + DrCheque("CveMetodoPago") = 2 + DrCheque("MesesSinIntereses") = -1 + + DtPagos.Rows.Add(DrCheque) + Else + Alert("Debe seleccionar una cuenta de cheque( Otra condición de pago)", TipoMensaje.MsgAdvertencia) + End If + End If + Exit Select + End Select + 'JJMQ 20160506: Validacion para no pagar de mas a peticion de I.P. abonado = DtPagos.SUM("Importe") saldo = TxtTotal.Text.Replace(",", "").ToDouble - abonado @@ -16398,6 +16552,97 @@ Partial Class Ventas VerificarContrato() End Sub + Private Sub LnkAgregarCliente_Click(sender As Object, e As EventArgs) Handles LnkAgregarCliente.Click + DivNombreCliente.Visible = False + DivDireccionCliente.Visible = False + DivNumeroCPCliente.Visible = False + DivColoniaTelefonoCliente.Visible = False + DivCiudadLocalidadCliente.Visible = False + DivEstadoPaisCliente.Visible = False + DivCorreoCuentaCliente.Visible = False + DivBotonesAgregarCliente.Visible = False + DivFormaCliente.Visible = False + UpAgregarCliente.Update() + + RegistraScript("showDivEC();") + End Sub + + Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click + + If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then + DivNombreCliente.Visible = True + DivDireccionCliente.Visible = True + DivNumeroCPCliente.Visible = True + DivColoniaTelefonoCliente.Visible = True + DivCiudadLocalidadCliente.Visible = True + DivEstadoPaisCliente.Visible = True + DivCorreoCuentaCliente.Visible = True + DivBotonesAgregarCliente.Visible = True + DivFormaCliente.Visible = True + + RFVDireccionC.Visible = False + RFVNoEC.Visible = False + RFVColoniaC.Visible = False + RFVCiudadC.Visible = False + RFVLocalidadC.Visible = False + RFVEstadoC.Visible = False + RFVPaisC.Visible = False + + DdlMetodoCliente.SelectedValueExist(1) + DdlFormaCliente.SelectedValueExist(1) + Else + Dim ObjCliente As New ClsClientes + If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then + If ObjCliente.DtResultados.Rows.Count > 0 Then + RegistraScript("hideDivEC();") + ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero + HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString + CargaCliente(CveCliente) + UpCliente.Update() + Else + DivNombreCliente.Visible = True + DivDireccionCliente.Visible = True + DivNumeroCPCliente.Visible = True + DivColoniaTelefonoCliente.Visible = True + DivCiudadLocalidadCliente.Visible = True + DivEstadoPaisCliente.Visible = True + DivCorreoCuentaCliente.Visible = True + DivBotonesAgregarCliente.Visible = True + DivFormaCliente.Visible = True + End If + End If + ObjCliente.Dispose() + + RFVDireccionC.Visible = True + RFVNoEC.Visible = True + RFVColoniaC.Visible = True + RFVCiudadC.Visible = True + RFVLocalidadC.Visible = True + RFVEstadoC.Visible = True + RFVPaisC.Visible = True + + DdlMetodoCliente.SelectedValueExist(-1) + DdlFormaCliente.SelectedValueExist(-1) + + End If + + End Sub + + Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click + Dim ObjCliente As New ClsClientes + + If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then + If ObjCliente.DtResultados.Rows.Count > 0 Then + RegistraScript("hideDivEC();") + ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero + HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString + CargaCliente(CveCliente) + UpCliente.Update() + End If + End If + + ObjCliente.Dispose() + End Sub #End Region @@ -22665,4 +22910,5 @@ Partial Class Ventas #End Region + End Class \ No newline at end of file