diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 907d3f8ac..e02213eeb 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -162,6 +162,9 @@ Public Class ClsClientes Public Property Nombres As String Public Property RequiereOC As Boolean + Public Property CargoUsados As Boolean + Public Property BonificacionUsado As Boolean + Public ReadOnly Property DtResultados() As DataTable Get @@ -417,6 +420,8 @@ Public Class ClsClientes _ApellidoMaterno = Data(0)("ApellidoMaterno").ToString _Nombres = Data(0)("Nombres").ToString _RequiereOC = CBool(Data(0)("RequiereOC")) + _CargoUsados = CBool(Data(0)("CargoUsado")) + _BonificacionUsado = CBool(Data(0)("BonificacionUsado")) End If Retorno = True @@ -563,7 +568,7 @@ Public Class ClsClientes Optional ObservacionRevsion As String = "-1", Optional ReferenciaFiscal As String = "-1", Optional Celular As String = "-1", Optional ExtOtros As String = "-1", Optional CveUsoCFDI As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional DesglosaIEPS As Boolean = True, Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, - Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1) As Boolean + Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -695,6 +700,8 @@ Public Class ClsClientes .Add("@LG", SqlDbType.VarChar).Value = LG .Add("@EsDistribuidor", SqlDbType.Bit).Value = EsDistribuidor .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado + .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -740,7 +747,7 @@ Public Class ClsClientes Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, - Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1) As Boolean + Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -888,6 +895,8 @@ Public Class ClsClientes .Add("@LG", SqlDbType.VarChar).Value = LG .Add("@EsDistribuidor", SqlDbType.Bit).Value = EsDistribuidor .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado + .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 94e9995b4..8b7a8ebff 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5809,6 +5809,27 @@ Public Class ClsContabilidad #End Region +#Region "OCDETALLE ALMACEN" + + Public Function GetOCDetalleAlmacen(MaxDiferencia As Decimal, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Conta_OCDetalleAlmacen") + With SqlAdapter.SelectCommand.Parameters + .Add("@MaxDiferencia", SqlDbType.Money).Value = MaxDiferencia + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos de oc detalle almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + +#End Region + #Region "IDisposable Support" ' IDisposable Protected Overridable Sub Dispose(disposing As Boolean) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 70be6dfdb..9e75b20fa 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1541,7 +1541,7 @@ Public Class ClsInventarios End Function - Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, CveAlmacen As Integer, + Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String, CveFamilia As Integer, CveSubFamilia As Integer, CvePS As Integer, CveClasificacion As Integer, Tipo As Integer, Optional CveMarca As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1556,7 +1556,7 @@ Public Class ClsInventarios .Add("@FechaF", SqlDbType.VarChar).Value = FechaF .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia .Add("@CvePS", SqlDbType.Int).Value = CvePS diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 4588d1c1e..f0d7a5286 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4531,31 +4531,38 @@ Public Class ClsPaginas 'Pyme 2017 PaginaDict.Add("/PyME/Sistemas/RegistroEmpresa.aspx".ToUpper(), -1) - PaginaDict.Add("/PyME/Sistemas/WizardRegistro.aspx".ToUpper(), -1) - 'PaginaDict.Add("/Compras/Efacturas.aspx".ToUpper(), 2007) - 'PaginaDict.Add("/Compras/Compras.aspx".ToUpper(), 2008) - 'PaginaDict.Add("/Compras/Proveedores.aspx".ToUpper(), 2009) - 'PaginaDict.Add("/OC/OC.aspx".ToUpper(), 2011) - 'PaginaDict.Add("/OC/RepOC.aspx".ToUpper(), 2012) - - - 'PaginaDict.Add("/Ventas/CatPS.aspx".ToUpper(), 2033) - 'PaginaDict.Add("/Ventas/CatPS.aspx".ToUpper(), 2034) - - ''PaginaDict.Add("/Sistemas/WizardRegistro.aspx".ToUpper(), 2035) - 'PaginaDict.Add("/Planeacion/CatSucursales.aspx".ToUpper(), 2036) - 'PaginaDict.Add("/Planeacion/CatFolios.aspx".ToUpper(), 2037) - 'PaginaDict.Add("/Sistemas/CatRoles.aspx".ToUpper(), 2038) - 'PaginaDict.Add("/Sistemas/Usuarios.aspx".ToUpper(), 2039) - 'PaginaDict.Add("/Sistemas/CatProcesos.aspx".ToUpper(), 2040) - - - - - 'CONTSIG (CONTabilidad al SIGuiente nivel) - - - + PaginaDict.Add("/PyME/Sistemas/WizardRegistro.aspx".ToUpper(), -1) + + + PaginaDict.Add("/Contabilidad/OCDetalleAlmacen.aspx".ToUpper(), -1) + + + + + 'PaginaDict.Add("/Compras/Efacturas.aspx".ToUpper(), 2007) + 'PaginaDict.Add("/Compras/Compras.aspx".ToUpper(), 2008) + 'PaginaDict.Add("/Compras/Proveedores.aspx".ToUpper(), 2009) + 'PaginaDict.Add("/OC/OC.aspx".ToUpper(), 2011) + 'PaginaDict.Add("/OC/RepOC.aspx".ToUpper(), 2012) + + + 'PaginaDict.Add("/Ventas/CatPS.aspx".ToUpper(), 2033) + 'PaginaDict.Add("/Ventas/CatPS.aspx".ToUpper(), 2034) + + ''PaginaDict.Add("/Sistemas/WizardRegistro.aspx".ToUpper(), 2035) + 'PaginaDict.Add("/Planeacion/CatSucursales.aspx".ToUpper(), 2036) + 'PaginaDict.Add("/Planeacion/CatFolios.aspx".ToUpper(), 2037) + 'PaginaDict.Add("/Sistemas/CatRoles.aspx".ToUpper(), 2038) + 'PaginaDict.Add("/Sistemas/Usuarios.aspx".ToUpper(), 2039) + 'PaginaDict.Add("/Sistemas/CatProcesos.aspx".ToUpper(), 2040) + + + + + 'CONTSIG (CONTabilidad al SIGuiente nivel) + + + PaginaDict.Add("/Compras/RepCxPCaudillo.aspx".ToUpper(), -1) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 960390491..f32ed4378 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -1858,7 +1858,7 @@ Public Class ClsProductosServicios Return Retorno End Function - Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, CveUsuario As Integer) As Boolean + Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PorcentajeMarcasAdd") @@ -1867,6 +1867,8 @@ Public Class ClsProductosServicios .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto + .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2 + .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3 .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With @@ -1879,7 +1881,7 @@ Public Class ClsProductosServicios Return Retorno End Function - Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal) As Boolean + Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PorcentajeMarcasUpdate") @@ -1888,6 +1890,8 @@ Public Class ClsProductosServicios .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto + .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2 + .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3 End With Try diff --git a/Bancos/RepProgramarRecursos.aspx b/Bancos/RepProgramarRecursos.aspx index ead04bf6c..4867d2c07 100644 --- a/Bancos/RepProgramarRecursos.aspx +++ b/Bancos/RepProgramarRecursos.aspx @@ -372,7 +372,7 @@
- + diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index 966a818bc..11c343b68 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -680,8 +680,8 @@ Partial Class Bancos_RepProgramarRecursos strBody.Append("
") strBody.Append("
") strBody.Append(" Compras Programadas ") - strBody.Append(" ") - strBody.Append(" ") + strBody.Append("
Serie-Folio FechaImporteImporte Programado
") + strBody.Append(" ") For Each gvr As GridViewRow In Gv.Rows If gvr.FCCheckBox("Chk").Checked Then @@ -689,8 +689,9 @@ Partial Class Bancos_RepProgramarRecursos Dim Importe = gvr.DataKey("Original").ToDouble.FormatoNumero() Dim ImporteProgramo = gvr.FCTextBox("TxtS").Text.ToDouble.FormatoNumero() Dim Fecha As String = gvr.DataKey("Fecha").ToDateTime().ToString("dd/MM/yyyy") + Dim Proveedor As String = gvr.DataKey("RazonSocial") - strBody.Append($"") + strBody.Append($"") End If Next diff --git a/CRM/RepAcercamientosProcesos.aspx.cs b/CRM/RepAcercamientosProcesos.aspx.cs index 72cb92394..638ebb44d 100644 --- a/CRM/RepAcercamientosProcesos.aspx.cs +++ b/CRM/RepAcercamientosProcesos.aspx.cs @@ -125,7 +125,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas hypt.DataTextField = $"Total"; hypt.HeaderText = $"Total"; hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2" }; - hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}"; + hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}"; GVRepAcercamientosEtapas.Columns.Add(hypt); foreach (DataRow row in dte.Rows) { @@ -133,7 +133,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas hyp.DataTextField = $"C_{row["CveEtapaProceso"]}"; hyp.HeaderText = $"{row["EtapaProceso"]}"; hyp.DataNavigateUrlFields = new string[]{ "CveGrupo1","CveGrupo2"}; - hyp.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}&cveEtapaProceso={row["CveEtapaProceso"]}"; + hyp.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}&cveEtapaProceso={row["CveEtapaProceso"]}"; GVRepAcercamientosEtapas.Columns.Add(hyp); } } diff --git a/Contabilidad/OCDetalleAlmacen.aspx b/Contabilidad/OCDetalleAlmacen.aspx new file mode 100644 index 000000000..49a17fbd0 --- /dev/null +++ b/Contabilidad/OCDetalleAlmacen.aspx @@ -0,0 +1,53 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="OCDetalleAlmacen.aspx.vb" Inherits="Contabilidad_OCDetalleAlmacen" %> + + + + + + + + + + + + + + + + + + + +
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Contabilidad/OCDetalleAlmacen.aspx.vb b/Contabilidad/OCDetalleAlmacen.aspx.vb new file mode 100644 index 000000000..1c74b5520 --- /dev/null +++ b/Contabilidad/OCDetalleAlmacen.aspx.vb @@ -0,0 +1,163 @@ + +Imports System.Data +Imports Extensiones + +Partial Class Contabilidad_OCDetalleAlmacen + Inherits ClsPaginas + + + Property DTDatos As DataTable + Get + If ViewState("DTDatos") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DTDatos"), DataTable) + End If + End Get + Set(value As DataTable) + ViewState("DTDatos") = value + End Set + End Property + + + Private Sub Contabilidad_OCDetalleAlmacen_Load(sender As Object, e As EventArgs) Handles Me.Load + + If Not Page.IsPostBack Then + CargaDatos() + End If + + End Sub + + Private Sub CargaDatos() + + + Dim ObjConta As New ClsContabilidad + + + + If ObjConta.GetOCDetalleAlmacen(1000D, UsuarioActual.CveEmpresa) Then + + If ObjConta.DtResultados.Rows.Count > 0 Then + DTDatos = ObjConta.DtResultados + GvDAtos.DataSource = DTDatos + Alert($"Se encontraron {ObjConta.DtResultados.Rows.Count} registros.") + Else + DTDatos = Nothing + Alert("Nos se encontraron registros por proocesar ") + GvDAtos.DataSource = Nothing + End If + Else + DTDatos = Nothing + GvDAtos.DataSource = Nothing + End If + + GvDAtos.DataBind() + + ObjConta.Dispose() + + End Sub + + + Protected Sub BtnProcesarRegistros_Click(sender As Object, e As EventArgs) + + + Dim ObjConta As New ClsContabilidad + ObjConta.IniciaTransacSQL() + + Dim modulo As String = "OC Ajuste Manual" + Dim ErrorProcesamiento As Boolean = False + Dim mensaje As String = "" + Dim ContadorProcesados As Integer = 0 + + For Each GvDrow As GridViewRow In GvDAtos.Rows + + Dim CvePrePoliza As Integer = 0 + Dim Cargo As Decimal = GvDrow.DataKey("Cargo").ToString.ToDecimal + Dim Abono As Decimal = GvDrow.DataKey("Abono").ToString.ToDecimal + Dim Diferencia As Decimal = Math.Abs(GvDrow.DataKey("dif").ToString.ToDecimal) + Dim CveMoneda As Integer = GvDrow.DataKey("CveMoneda").ToString.ToEntero + Dim Fecha As Date = GvDrow.DataKey("Fecha").ToString.ToDate + Dim Referencia As String = GvDrow.DataKey("Referencia").ToString + Dim CveOCDetalle As Integer = GvDrow.DataKey("CveOrdenCompraDetalle").ToString.ToEntero + Dim CveOC As Integer = GvDrow.DataKey("CveOrdenCompra").ToString.ToEntero + Dim CveProveedor As Integer = GvDrow.DataKey("CveProveedor").ToString.ToEntero + Dim CveCompra As Integer = GvDrow.DataKey("CveCompra").ToString.ToEntero + Dim Folio As String = GvDrow.DataKey("Folio").ToString + + + Dim CveCuenta176 As Integer = 55169 + Dim IdCtaCuenta176 As Integer = 1245 + + Dim CveCuenta177 As Integer = 55294 + Dim IdCtaCuenta177 As Integer = 1148 + + Dim Chk As CheckBox = GvDrow.FCCheckBox("Chk") + + + If Chk IsNot Nothing AndAlso Chk.Checked Then + CvePrePoliza = ObjConta.AddPrePolizas(modulo, 3, Diferencia, Diferencia, CveMoneda, Fecha, modulo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + GvDrow.Cells(1).Text = CvePrePoliza.ToString + mensaje = mensaje & $"CvePrePoliza {CvePrePoliza } OC: {Folio} Importe :{Diferencia}
" + + + If CvePrePoliza > 0 Then + + If Cargo > Abono Then + If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 176, Referencia, Fecha, IdCtaCuenta176, -1, ImporteME:=0, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then + + If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then + ContadorProcesados = ContadorProcesados + 1 + Else + ErrorProcesamiento = True + Exit For + End If + Else + ErrorProcesamiento = True + Exit For + End If + + Else + If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 176, Referencia, Fecha, IdCtaCuenta176, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then + + If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=0, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then + ContadorProcesados = ContadorProcesados + 1 + Else + ErrorProcesamiento = True + Exit For + End If + Else + ErrorProcesamiento = True + Exit For + End If + + End If + + End If + End If + + + Next + + + DTDatos.AcceptChanges() + + If Not ErrorProcesamiento Then + + ObjConta.Commit() + 'ObjConta.RollBack() ' + 'BtnProcesarRegistros.Enabled = False + Alert($"PrePolizas agregadas correctamente
registros procesados: {ContadorProcesados}
{mensaje}") + Else + ObjConta.RollBack() + End If + + ObjConta.Dispose() + + + CargaDatos() + + End Sub + + +End Class diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index a8be470c3..0d3eefe4f 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -158,6 +158,14 @@ Partial Class ContabilidadC_RegPrePoliza ViewState("IndiceGrid") = value End Set End Property + Public Property IdPoliza As Integer + Get + Return CType(ViewState("IdPoliza"), Integer) + End Get + Set(value As Integer) + ViewState("IdPoliza") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -174,6 +182,7 @@ Partial Class ContabilidadC_RegPrePoliza Observaciones = "-1" Beneficiario = "-1" Actualizar = False + IdPoliza = -1 Dim dt As DataTable = Nothing ' If UsuarioActual.Empresa.UsaContabilidad Then @@ -401,10 +410,15 @@ Partial Class ContabilidadC_RegPrePoliza LnkComplementoPago.Visible = True End If + IdPoliza = dr("IdPoliza").ToString.ToEntero If dr("IdPoliza").ToString.ToEntero > 0 Then HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza")) divContabilziada.Visible = True BtnEliminar.Visible = False + If UsuarioActual.CveUsuario = 100 Then + BtnContabilizar.Visible = True + BtnContabilizar.Text = "Actualizar Poliza" + End If ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then 'sino está contabilizada, se activa el botón BtnContabilizar.Visible = True @@ -1428,7 +1442,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim ObjConta As New ClsContabilidad - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1)) Then Alert(String.Format("Prepóliza contabilizada.

Folio:Ver Póliza", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion) Else diff --git a/Empresas/141/Formatos/Cotizacion.rdlc b/Empresas/141/Formatos/Cotizacion.rdlc new file mode 100644 index 000000000..99f104b63 --- /dev/null +++ b/Empresas/141/Formatos/Cotizacion.rdlc @@ -0,0 +1,5347 @@ + + + 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 + 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 +
Serie-FolioProveedorUsuario Programó FechaImporteImporte Programado
{SerieFolio}{Fecha}{Importe}{ImporteProgramo}
{SerieFolio}{Proveedor}{UsuarioActual.Nombre}{Fecha}{Importe}{ImporteProgramo}