diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index c42ee329b..7f31c7a9d 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -475,6 +475,29 @@ Public Class ClsContabilidad
Return Retorno
End Function
+ Public Function TraspasarSaldosPrePolizasRefacturacion(CveVenta As Integer, CveVentaNueva As Integer, CvePrePolizaNueva As Integer, CvePlantillaPoliza As Integer, CveEmpresa As Integer) As Boolean
+
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Conta_PrePolizasSaldosRefacturacionTraspasar")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+ .Add("@CveVentaNueva", SqlDbType.Int).Value = CveVentaNueva
+ .Add("@CvePrePolizaNueva", SqlDbType.Int).Value = CvePrePolizaNueva
+ .Add("@CvePlantillaPoliza", SqlDbType.Int).Value = CvePlantillaPoliza
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al traspasar el saldo al refacturar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
''' Venta a la que se le van a cancelar los pagos
''' PrePoliza donde van a quedar los movimientos (No necesariamente la PrePoliza de la venta)
'''
@@ -5747,6 +5770,104 @@ Public Class ClsContabilidad
Return Retorno
End Function
+ Public Function GetCuentasAsignaciones(CveEmpresa As Integer) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Conta_CuentasAsignacionesGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al obtener el catálogo de cuentas asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
+ Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1,
+ Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Conta_CuentasAsignacionesAdd")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+ .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+ .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
+ .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+ .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+ .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+ .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al agregar la cuenta asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function RemoveCuentasAsignaciones(CveCuentaAsignacion As Integer) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Conta_CuentasAsignacionesDelete")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveCuentaAsignacion", SqlDbType.Int).Value = CveCuentaAsignacion
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al eliminar el catálogo de cuentas asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function UpdateCuentasAsignaciones(CveConceptoAsignacion As Integer, Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1,
+ Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1,
+ Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
+ Optional PorcentajeIVA As Decimal = -1) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Conta_CuentasAsignacionesAdd")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveCuentaAsignacion", SqlDbType.Int).Value = CveConceptoAsignacion
+ .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+ .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+ .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
+ .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+ .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+ .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+ .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al agregar la cuenta asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
#Region " RECONSTRUCCION DE PREPOLIZAS "
Public Function ReconstruirPP_PagoCompra(CvePrePoliza As Integer) As Boolean
Dim Retorno = False
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 58f56f166..e00e24ed8 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4070,6 +4070,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoSAT.aspx".ToUpper(), 618)
PaginaDict.Add("/Contabilidad2/MovimientosConProveedores.aspx".ToUpper(), 619)
PaginaDict.Add("/Contabilidad2/RepBalanceGeneral.aspx".ToUpper(), 530)
+ PaginaDict.Add("/Contabilidad2/CatCuentasAsignaciones.aspx".ToUpper(), 724)
#End Region
'CONTRATOS
#Region "Contratos"
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index f6ab19071..113c3243f 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4025,7 +4025,7 @@ Namespace Modelos
End If
'LA VALIDACION DE SALDOS CUANDO ES REFACTURACION SE HACE ANTES ASI QUE SI ES REFACTURACION IGNORAMOS ESTA CONDICION, SI ES ANTICIPO VERIFICA QUE NO ESTÉ APLICADO
- If ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Rem") AndAlso ObjFactura.Pagado > 0 AndAlso DTDocumentosRelacionados.Rows.Count > 0 Then
+ If Not EsRefacturacion AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Rem") AndAlso ObjFactura.Pagado > 0 AndAlso DTDocumentosRelacionados.Rows.Count > 0 Then
Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados."
Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index afb2a7464..8af09f525 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3030,6 +3030,12 @@ Partial Class Compras_Compras
ddlAlmacenAdd.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)") 'solo muestra tipo material y herramientas
ddlAlmacenAdd.DataBind()
+
+ DdlAlmacenDevolucion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)") 'solo muestra tipo material y herramientas
+ DdlAlmacenDevolucion.DataBind()
+
+ DdlAlmacenDevolucion.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
End Sub
Protected Sub CargaFuncionariosEmpleados()
@@ -13767,13 +13773,13 @@ Partial Class Compras_Compras
Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Double, Fecha As Date) As Boolean
Dim ErrorMovInv As Boolean = False
- Dim CveAlmacen As Integer
+ Dim CveAlmacen As Integer = DdlAlmacenDevolucion.SelectedValue.ToEntero()
Dim subtotaldevolucion As Double = 0
Dim realizadevolucion As Boolean = False
'Calculo los subtotales para comparar con la NC
Dim cantidad As Double = 0.0
For Each Dr As GridViewRow In GVDevolucion.Rows
- CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero
+ 'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero
cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble
If cantidad > 0 Then
realizadevolucion = True
@@ -13823,12 +13829,24 @@ Partial Class Compras_Compras
Protected Sub DDLDevolucion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLDevolucion.SelectedIndexChanged
+ If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then
+ DivAlmacenDev.Visible = True
+ End If
+
Dim objcompras As New ClsCompras()
If objcompras.GetCompraDetallealmacen(DDLDevolucion.SelectedValue.ToEntero) Then
GVDevolucion.DataSource = objcompras.DtResultados
GVDevolucion.DataBind()
End If
objcompras.Dispose()
+ Dim CveAlmacen As Integer = -1
+ For Each GvRow As GridViewRow In GVDevolucion.Rows
+ If GvRow.RowType = DataControlRowType.DataRow Then
+ CveAlmacen = GvRow.DataKey("CveAlmacen").ToString.ToEntero
+ End If
+ Next
+ DdlAlmacenDevolucion.SelectedValueExist(CveAlmacen)
+
UPDevolucion.Update()
End Sub
'Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
@@ -16056,6 +16074,9 @@ Partial Class Compras_Compras
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
paneldevolucion.Visible = True
Pnlalmaceninventarios.Visible = False
+ If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then
+ DivAlmacenDev.Visible = True
+ End If
cargaddldevoluciones(CveProveedor, TxtSubTotal.Text.ToDouble)
InicializaAplicaNCFact()
DivReembolso.Visible = False
@@ -16063,6 +16084,9 @@ Partial Class Compras_Compras
UpPS.Update()
End If
+
+
+
End If
UPCondicionesPago.Update()
End Sub
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx
new file mode 100644
index 000000000..8bd7dba81
--- /dev/null
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -0,0 +1,124 @@
+<%@ Page Title="Contabilidad2 - Catálogo Cuentas Asignación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCuentasAsignaciones.aspx.vb" Inherits="Contabilidad2_CatCuentasAsignaciones" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+
+
+
+
+
+
+
+ Catálogo de Cuentas Asignación.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
new file mode 100644
index 000000000..dab34ed30
--- /dev/null
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -0,0 +1,147 @@
+Imports System.Data
+Imports System.Linq
+Imports Extensiones
+
+Partial Class Contabilidad2_CatCuentasAsignaciones
+ Inherits ClsPaginas
+
+ Private Property CveConceptoAsignacion() As Integer 'Guardamos el ID de registro para saber cual registro Editar
+ Get
+ Return If(IsNothing(ViewState("CveConceptoAsignacion")), -1, CInt(ViewState("CveConceptoAsignacion")))
+ End Get
+ Set
+ ViewState("CveConceptoAsignacion") = Value
+ End Set
+ End Property
+
+ Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+ If Not Page.IsPostBack Then
+ CargaDatos()
+ CargaDatosModal()
+ End If
+ End Sub
+
+ Private Sub CargaDatos()
+ Dim ObjConta As New ClsContabilidad
+ If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then
+ GvDatos.DataSource = ObjConta.DtResultados
+ End If
+ ObjConta.Dispose()
+ GvDatos.DataBind()
+ End Sub
+
+ Private Sub CargaDatosModal()
+ Dim ObjConta As New ClsContabilidad
+ Dim ObjProveedores As New ClsCompProveedores
+ Dim ObjRH As New ClsRH
+ Dim ObjClasificaciones As New ClsClasificaciones
+ Dim ObjInv As New ClsInventarios
+
+ If ObjConta.GetConta_ConceptosContables() Then
+ DdlCconceptosContables.DataSource = ObjConta.DtResultados
+ End If
+
+ If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+ DdlCuenta.DataSource = ObjConta.DtResultados
+ End If
+
+ If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+ DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+ End If
+
+ DdlClientes.setEsWebService(True)
+
+ If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+ DdlPersonal.DataSource = ObjRH.DtResultados
+ End If
+
+ If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then
+ DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
+ End If
+
+ If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+ DdlAlmacen.DataSource = ObjInv.DtResultados
+ End If
+
+ ObjConta.Dispose()
+ ObjProveedores.Dispose()
+ ObjRH.Dispose()
+ ObjClasificaciones.Dispose()
+ ObjInv.Dispose()
+
+
+ DdlCconceptosContables.DataBind()
+ DdlCuenta.DataBind()
+ DdlProveedor.DataBind()
+ DdlPersonal.DataBind()
+ DdlClasificacion.DataBind()
+ DdlAlmacen.DataBind()
+
+ DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ End Sub
+
+ Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+ CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
+ DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
+ DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
+ DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
+ DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
+ DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
+ TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
+ TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
+ LbAgregar.Text = "Actualizar"
+ UpModalModulos.Update()
+ RegistraScript("$('#ModalCat').modal();")
+ End Sub
+
+ Protected Sub EliminarRow(sender As Object, e As EventArgs)
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+ Dim ObjConta As New ClsContabilidad
+ If ObjConta.RemoveCuentasAsignaciones(GvRow.DataKey("CveCuentaAsignacion").ToEntero) Then
+ Alert("se elimino correctamente")
+ End If
+ ObjConta.Dispose()
+ End Sub
+
+ Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click
+ CveConceptoAsignacion = -1
+ DdlCconceptosContables.SelectedValue = -1
+ DdlCuenta.SelectedValue = -1
+ DdlProveedor.SelectedValue = -1
+ DdlClasificacion.SelectedValue = -1
+ DdlAlmacen.SelectedValue = -1
+ TxtIdCuentaContable.Text = ""
+ TxtPorcentajeIVA.Text = ""
+ LbAgregar.Text = "Agregar"
+ UpModalModulos.Update()
+ RegistraScript("$('#ModalCat').modal();")
+ End Sub
+
+ Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
+ Dim ObjConta As New ClsContabilidad
+ Dim ErrorString As String = ""
+ If LbAgregar.Text = "Agregar" Then
+ If ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
+ DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
+ DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
+ ErrorString = "Error al Agregar"
+ End If
+ ElseIf LbAgregar.Text = "Actualizar" Then
+ If ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
+ DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
+ DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
+ ErrorString = "Error al Actualizar"
+ End If
+ End If
+ ObjConta.Dispose()
+ RegistraScript("$('#ModalCat').modal('hide');")
+ If ErrorString.Length > 0 Then
+ Alert(ErrorString)
+ End If
+ End Sub
+End Class
diff --git a/Empresas/1/Formatos/ResguardoAF.rdlc b/Empresas/1/Formatos/ResguardoAF.rdlc
index b6ae1303e..93ec0fd17 100644
--- a/Empresas/1/Formatos/ResguardoAF.rdlc
+++ b/Empresas/1/Formatos/ResguardoAF.rdlc
@@ -535,7 +535,7 @@
- 7.35216cm
+ 7.37187cm
true
true
@@ -557,7 +557,7 @@
Textbox31
- 0.07054cm
+ 0.07053cm
0.11166cm
0.6cm
2.77516cm
@@ -588,7 +588,7 @@
Textbox31
- 0.10581cm
+ 0.1058cm
2.9221cm
1.2cm
13.85147cm
@@ -604,7 +604,7 @@
- 0.10582cm
+ 0.10581cm
0.05604cm
0cm
16.76689cm
@@ -616,7 +616,7 @@
- 1.30581cm
+ 1.3058cm
0.11166cm
0cm
16.71127cm
@@ -646,7 +646,7 @@
Textbox21
- 1.65887cm
+ 1.65886cm
0.55741cm
0.63528cm
7.11779cm
@@ -692,7 +692,7 @@
Textbox21
- 2.85338cm
+ 2.85337cm
0.55115cm
0.90367cm
7.11779cm
@@ -726,7 +726,7 @@
Textbox22
- 1.30581cm
+ 1.3058cm
0.56367cm
0.6cm
7.11153cm
@@ -760,7 +760,7 @@
Textbox21
- 1.62359cm
+ 1.62358cm
9.66204cm
0.63528cm
7.11779cm
@@ -806,7 +806,7 @@
Textbox21
- 2.85338cm
+ 2.85337cm
9.65578cm
0.90367cm
7.11779cm
@@ -840,7 +840,7 @@
Textbox22
- 1.30581cm
+ 1.3058cm
9.66204cm
0.6cm
7.11779cm
@@ -873,7 +873,7 @@
Textbox17
- 3.8276cm
+ 3.82759cm
0.00042cm
1.36498cm
16.77315cm
@@ -888,6 +888,51 @@
2pt
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+
+ =Today
+
+
+
+
+
+
+ Textbox8
+ 6.50728cm
+ 0.11166cm
+ 0.6cm
+ 6.86562cm
+ 11
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+
+ =Today
+
+
+
+
+
+
+ Textbox8
+ 8.22649cm
+ 0.16462cm
+ 0.6cm
+ 6.86562cm
+ 11
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+ =Today
+
+
+
+
+
+
+ Textbox8
+ 0.04925cm
+ 0.09525cm
+ 0.46771cm
+ 6.86562cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
27.94cm
21.59cm
0.5cm
diff --git a/Empresas/109/Formatos/Factura.rdlc b/Empresas/109/Formatos/Factura.rdlc
index 6fb8aab0c..14ae7feb2 100644
--- a/Empresas/109/Formatos/Factura.rdlc
+++ b/Empresas/109/Formatos/Factura.rdlc
@@ -4355,6 +4355,51 @@
2pt
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+
+ =Today
+
+
+
+
+
+
+ Textbox8
+ 0.10583cm
+ 0.20791cm
+ 0.46771cm
+ 6.86562cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+
+ =Today
+
+
+
+
+
+
+ Textbox8
+ 0.10583cm
+ 0.14084cm
+ 0.46771cm
+ 6.86562cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+
+ =Today
+
+
+
+
+
+
+ Textbox8
+ 14.71932cm
+ 0.46771cm
+ 6.86562cm
+ 22
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
- 5.93748in
+ 6.03123in