From 83d48e7a27cff9e699949f21b268013fbb1c250c Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Wed, 8 Jan 2020 13:44:43 -0700 Subject: [PATCH 01/10] - --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9b858b8b5..76db0cc83 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14256,7 +14256,7 @@ Partial Class Ventas 'AGREGA PS ADICIONAL - If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza AndAlso Not UsuarioActual.TienePermisoProceso(284) Then + If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(284) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero From d60bf17132838a78caa7945202ce8fc8cf6fd313 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 8 Jan 2020 18:36:20 -0700 Subject: [PATCH 02/10] agregando catClasificacionPorcentaje, falta integrar en ClsPaginas --- Contabilidad/CatClasificacionPorcentaje.aspx | 97 +++++++ .../CatClasificacionPorcentaje.aspx.vb | 24 ++ Empresas/146/Formatos/Factura.rdlc | 255 +++++++++--------- 3 files changed, 243 insertions(+), 133 deletions(-) create mode 100644 Contabilidad/CatClasificacionPorcentaje.aspx create mode 100644 Contabilidad/CatClasificacionPorcentaje.aspx.vb diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx b/Contabilidad/CatClasificacionPorcentaje.aspx new file mode 100644 index 000000000..9e56dad31 --- /dev/null +++ b/Contabilidad/CatClasificacionPorcentaje.aspx @@ -0,0 +1,97 @@ +<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatClasificacionPorcentaje.aspx.vb" Inherits="Contabilidad_CatClasificacionPorcentaje" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + Catálogo de Clasificacion Porcentaje + + + + +
  • + +
  • + +
    +
    +
    + + + + + + + + + + + + + + +
    + +   +
    +
    + + + +
    + + + + + +
    + + +
    + + + +
    +
    +
    + + diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx.vb b/Contabilidad/CatClasificacionPorcentaje.aspx.vb new file mode 100644 index 000000000..c5f34dd68 --- /dev/null +++ b/Contabilidad/CatClasificacionPorcentaje.aspx.vb @@ -0,0 +1,24 @@ +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms + +Partial Class Contabilidad_CatClasificacionPorcentaje + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + CargaDatos() + + End If + End Sub + + Protected Sub CargaDatos() + Dim ObjGenerales As New ClsGenerales + If ObjGenerales.GetClasificacionPorcentaje(UsuarioActual.CveEmpresa, CveClasificacionPorcentaje:=-1, CveClasificacion:=-1, PorcentajeIVA:=-1, Opcion:=2) Then + GvDatos.DataSource = ObjGenerales.DtResultados + End If + ObjGenerales.Dispose() + GvDatos.DataBind() + End Sub +End Class diff --git a/Empresas/146/Formatos/Factura.rdlc b/Empresas/146/Formatos/Factura.rdlc index 5a5a4dc3a..b1b2951f4 100644 --- a/Empresas/146/Formatos/Factura.rdlc +++ b/Empresas/146/Formatos/Factura.rdlc @@ -23,9 +23,9 @@ Textbox3 1.37762in - 5.662in + 5.81465in 0.5cm - 2.24597in + 2.09332in @@ -73,9 +73,9 @@ Textbox3 0.93484in - 5.662in + 5.81465in 0.5cm - 2.24597in + 2.09332in 1 - - ; Método de Pago: - - - - =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) - - ; - ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a VICTOR MANUEL RAMIREZ CASTILLO o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Tijuana, Baja California a + ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a VICTOR MANUEL RAMIREZ CASTILLO o tenedor, desde el día siguiente a cobrar el 5% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Tijuana, Baja California a - - - - - - Textbox15 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #ff1037 - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!UsoCFDI.Value - - - - - - - Textbox17 - - - 2pt - 2pt - 2pt - 2pt - - - - - - 1.56188cm @@ -3462,13 +3355,12 @@ - DsOC 6.91306cm 0.11468cm - 5.76188cm + 5.16188cm 14.34413cm 31 + + true + + + + + Uso CFDI: + + + + =Parameters!UsoCFDI.Value + + + + + + + + + Régime: + + + + Personas Físicas con Actividades Empresariales y Profesionales + + + + + + + + + Método de Pago: + + + + + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) + + + + + + + + + + + Textbox10 + 0.99561in + 3.82301in + 0.62735in + 1.99164in + 37 + + + Top + + 25.59192cm @@ -35,6 +35,80 @@ + + +
    +
    +
    + + +
    +
    +
    + + +
    + + + + + + + +
    +
    + Fecha Inicio: +
    +
    +
    + + + + +
    + + + + + + +
    +
    + Fecha Fin: +
    +
    +
    + + + + +
    + + + + + + +
    +
    +
    +
    + +
    +
    +
    @@ -52,8 +126,13 @@
    + DataKeyNames="FolioFiscal,TipoDocto,ImporteTotal,Estatus,Fecha,Moneda,RFCReceptor,CveEmpresa,RutaXml,RFCEmisor,TipoDoctoTexto" OnRowDataBound="GVConciliacionemitidasSAT_RowDataBound"> + + + + + @@ -91,12 +170,13 @@ - + - + <%-- --%> + XML @@ -153,7 +233,6 @@