AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
RPimienta
2024-11-14 22:49:11 -06:00
parent 14564014e1 93605d925b
commit c8771a541e
59 changed files with 65302 additions and 10732 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Acumuladores/CatFoliosGarantia.aspx
View File

@@ -449,7 +449,7 @@
<ContentTemplate> <ContentTemplate>
<asp:Button ID="BtnGenerarTxt" Text="Generar Archivo" CssClass="btn btn-primary" runat="server" OnClick="BtnGenerarTxt_Click" /> <asp:Button ID="BtnGenerarTxt" Text="Generar Archivo" CssClass="btn btn-primary" runat="server" OnClick="BtnGenerarTxt_Click" />
<asp:Button ID="BtnExportarExcel" Text="Generar Excel" CssClass="btn btn-success" runat="server" OnClick="BtnExportarExcel_Click" /> <asp:Button ID="BtnExportarExcel" Text="Generar Excel" CssClass="btn btn-success" runat="server" OnClick="BtnExportarExcel_Click" />
<asp:HyperLink ID="HplGenerarSalida" Text="Generar Salida" CssClass="btn btn-warning " runat="server" /> <asp:HyperLink ID="HplGenerarSalida" Text="Generar Salida" Target="_blank" CssClass="btn btn-warning " runat="server" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button> <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</ContentTemplate> </ContentTemplate>
<Triggers> <Triggers>

2
Acumuladores/CatFoliosGarantia.aspx.vb
View File

@@ -133,7 +133,7 @@ Partial Class Acumuladores_CatFoliosGarantia
ObjAcum.Dispose() ObjAcum.Dispose()
Else Else
'si se marca como enviado, debe de revisar que tenga el movto de traslado 'si se marca como enviado, debe de revisar que tenga el movto de traslado
If HdnCveMovimientoSalida.Value = "" AndAlso DdlEstatusEditar.SelectedValue = "2" Then If HdnCveMovimientoSalida.Value.ToEntero = 0 AndAlso DdlEstatusEditar.SelectedValue = "2" Then
Alert("No se ha realizado la salida del almacen de garantía, al de 'devolución al proveedor'.</br> Favor de aplicar la salida y luego cambiar el estatus a enviado. ", TipoMensaje.MsgAdvertencia) Alert("No se ha realizado la salida del almacen de garantía, al de 'devolución al proveedor'.</br> Favor de aplicar la salida y luego cambiar el estatus a enviado. ", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If

2
App_Code/ClsOC.vb
View File

@@ -766,6 +766,7 @@ Public Class ClsOC
.Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@vSerieFolio", SqlDbType.VarChar, 25).Direction = ParameterDirection.Output
End With End With
Try Try
@@ -773,6 +774,7 @@ Public Class ClsOC
_CveOrdenCompra = SqlAdapter.SelectCommand.Parameters("@vCveOrdenCompra").Value.ToString.ToEntero _CveOrdenCompra = SqlAdapter.SelectCommand.Parameters("@vCveOrdenCompra").Value.ToString.ToEntero
_Folio = SqlAdapter.SelectCommand.Parameters("@vFolio").Value.ToString.ToEntero _Folio = SqlAdapter.SelectCommand.Parameters("@vFolio").Value.ToString.ToEntero
_SerieFolio = SqlAdapter.SelectCommand.Parameters("@vSerieFolio").Value.ToString
'GetOC(_CveOrdenCompra, pCveEmpresa) 'GetOC(_CveOrdenCompra, pCveEmpresa)
Retorno = True Retorno = True

93
App_Code/ClsPaginas.vb
View File

@@ -6960,8 +6960,11 @@ Public Class ClsPaginas
End If End If
params.Add(New ReportParameter("CFDIVersion", Vta.Version)) params.Add(New ReportParameter("CFDIVersion", Vta.Version))
If Vta.Cliente.CodigoRegimenFiscal.ToString.Length > 0 Then
params.Add(New ReportParameter("RegimenFiscalCodigo", $"{Vta.Cliente.CodigoRegimenFiscal}-{Vta.Cliente.RegimenFiscal}")) If Vta.Cliente IsNot Nothing Then
If Vta.Cliente.CodigoRegimenFiscal.ToString.Length > 0 Then
params.Add(New ReportParameter("RegimenFiscalCodigo", $"{Vta.Cliente.CodigoRegimenFiscal}-{Vta.Cliente.RegimenFiscal}"))
End If
End If End If
'CLIENTE 'CLIENTE
@@ -7808,59 +7811,60 @@ Public Class ClsPaginas
End If End If
If Not Archivo.Exists Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then ' If Not Archivo.Exists Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(197, 189)) Then
Dim SBDomicilioSucursal As New StringBuilder() Dim SBDomicilioSucursal As New StringBuilder()
Dim CiudadSucursal As String = "" Dim CiudadSucursal As String = ""
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
If ObjOC.GetSucursalOC(ObjOC.CveOrdenCompra) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
params.Add(New ReportParameter("Proyecto", ObjOC.SucSubProyecto.ToString))
params.Add(New ReportParameter("Telefono", ObjOC.SucTelefono.ToString))
CiudadSucursal = String.Format("{0},{1}", ObjOC.SucMunicipio, ObjOC.SucEstado)
SBDomicilioSucursal.AppendFormat("{0}", ObjOC.SucCalle)
If ObjOC.SucNoExt.Length > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", ObjOC.SucNoExt)
If ObjOC.SucNoInt.Length > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", ObjOC.SucNoInt)
If ObjOC.SucColonia.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", ObjOC.SucColonia)
If ObjOC.SucCP.Length > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", ObjOC.SucCP)
If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
If ObjOC.SucPais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", ObjOC.SucPais)
DomicilioSucursal = SBDomicilioSucursal.ToString
Dim DirecconSubProyectoEntrega As String = "" params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
Dim CveSubProyectoEntrega As Integer = dtOC(0)("CveSubProyectoEntrega").ToString.ToEntero params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
If CveSubProyectoEntrega > 0 Then If ObjOC.GetSucursalOC(ObjOC.CveOrdenCompra) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyectoEntrega) params.Add(New ReportParameter("Proyecto", ObjOC.SucSubProyecto.ToString))
params.Add(New ReportParameter("Telefono", ObjOC.SucTelefono.ToString))
params.Add(New ReportParameter("SubProyectoEntrega", DTSubProyectoEntrega(0)("SubProyecto").ToString)) CiudadSucursal = String.Format("{0},{1}", ObjOC.SucMunicipio, ObjOC.SucEstado)
Dim SubProyectoEntregaDir As String = $"Calle {DTSubProyectoEntrega(0)("Calle").ToString}" SBDomicilioSucursal.AppendFormat("{0}", ObjOC.SucCalle)
SubProyectoEntregaDir = $"{SubProyectoEntregaDir} No. {DTSubProyectoEntrega(0)("NoExt").ToString()}" If ObjOC.SucNoExt.Length > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", ObjOC.SucNoExt)
If ObjOC.SucNoInt.Length > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", ObjOC.SucNoInt)
If ObjOC.SucColonia.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", ObjOC.SucColonia)
If ObjOC.SucCP.Length > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", ObjOC.SucCP)
If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
If ObjOC.SucPais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", ObjOC.SucPais)
If DTSubProyectoEntrega(0)("NoInt").ToString().Trim.Length > 0 Then DomicilioSucursal = SBDomicilioSucursal.ToString
SubProyectoEntregaDir = $"{SubProyectoEntregaDir} No. int.{DTSubProyectoEntrega(0)("NoInt").ToString()}"
End If
SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{vbCrLf}"
SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{DTSubProyectoEntrega(0)("Colonia").ToString()} C.P. {DTSubProyectoEntrega(0)("CP").ToString()}{vbCrLf}" Dim DirecconSubProyectoEntrega As String = ""
SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{DTSubProyectoEntrega(0)("Municipio").ToString()},{DTSubProyectoEntrega(0)("Estado").ToString()}{vbCrLf}Tel. { DTSubProyectoEntrega(0)("Telefono").ToString()}" Dim CveSubProyectoEntrega As Integer = dtOC(0)("CveSubProyectoEntrega").ToString.ToEntero
params.Add(New ReportParameter("SubProyectoEntregaDir", SubProyectoEntregaDir)) If CveSubProyectoEntrega > 0 Then
Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyectoEntrega)
params.Add(New ReportParameter("SubProyectoEntrega", DTSubProyectoEntrega(0)("SubProyecto").ToString))
Dim SubProyectoEntregaDir As String = $"Calle {DTSubProyectoEntrega(0)("Calle").ToString}"
SubProyectoEntregaDir = $"{SubProyectoEntregaDir} No. {DTSubProyectoEntrega(0)("NoExt").ToString()}"
If DTSubProyectoEntrega(0)("NoInt").ToString().Trim.Length > 0 Then
SubProyectoEntregaDir = $"{SubProyectoEntregaDir} No. int.{DTSubProyectoEntrega(0)("NoInt").ToString()}"
End If End If
SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{vbCrLf}"
SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{DTSubProyectoEntrega(0)("Colonia").ToString()} C.P. {DTSubProyectoEntrega(0)("CP").ToString()}{vbCrLf}"
SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{DTSubProyectoEntrega(0)("Municipio").ToString()},{DTSubProyectoEntrega(0)("Estado").ToString()}{vbCrLf}Tel. { DTSubProyectoEntrega(0)("Telefono").ToString()}"
params.Add(New ReportParameter("SubProyectoEntregaDir", SubProyectoEntregaDir))
End If End If
End If End If
'End If
Dim CveUsuarioSol As Integer = dtOC(0)("CveUsuarioSolicito").ToString.ToEntero Dim CveUsuarioSol As Integer = dtOC(0)("CveUsuarioSolicito").ToString.ToEntero
Dim CveUsuarioAut As Integer = dtOC(0)("CveUsuarioAutorizo").ToString.ToEntero Dim CveUsuarioAut As Integer = dtOC(0)("CveUsuarioAutorizo").ToString.ToEntero
@@ -7984,16 +7988,17 @@ Public Class ClsPaginas
params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, ImageToBase64(Drawing.Image.FromFile(FirmaAut.FullName), Drawing.Imaging.ImageFormat.Png), ""))) params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, ImageToBase64(Drawing.Image.FromFile(FirmaAut.FullName), Drawing.Imaging.ImageFormat.Png), "")))
If Not Archivo.Exists Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then 'If Not Archivo.Exists Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then
Dim ObjProveedor As New ClsCompProveedores Dim ObjProveedor As New ClsCompProveedores
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ObjOC.CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, EmpresaActual.CveEmpresa) Then If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ObjOC.CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, EmpresaActual.CveEmpresa) Then
If ObjProveedor.DtResultados.Rows.Count > 0 Then If ObjProveedor.DtResultados.Rows.Count > 0 Then
params.Add(New ReportParameter("PlazoPago", ObjProveedor.PlazoPago.ToString)) params.Add(New ReportParameter("PlazoPago", ObjProveedor.PlazoPago.ToString))
End If End If
End If End If
ObjProveedor.Dispose()
End If 'End If
If Archivo.Exists Then If Archivo.Exists Then
bytes = StreamPDF(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta), DtDetalle, params, $"OC_{ObjOC.Folio.ToString}", RDSName:="DsOC", MR:=MR) bytes = StreamPDF(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta), DtDetalle, params, $"OC_{ObjOC.Folio.ToString}", RDSName:="DsOC", MR:=MR)
@@ -8108,7 +8113,7 @@ Public Class ClsPaginas
End If End If
End If End If
ObjOC.Dispose() ObjOC.Dispose()
DtDetalle.Dispose() 'DtDetalle.Dispose()
Catch ex As Exception Catch ex As Exception
GuardaLog(String.Format("Ocurrio un error al generar el strem de la oc={0}. {1}", tCveOrdenCompra, ex.Message)) GuardaLog(String.Format("Ocurrio un error al generar el strem de la oc={0}. {1}", tCveOrdenCompra, ex.Message))
End Try End Try

16
App_Code/ClsProductosServicios.vb
View File

@@ -537,7 +537,21 @@ Public Class ClsProductosServicios
If Ex1.Message.Contains("Número: 2627;") Then If Ex1.Message.Contains("Número: 2627;") Then
Alert("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) Alert("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
ElseIf Ex1.Message.Contains("Número: 2601;") Then ElseIf Ex1.Message.Contains("Número: 2601;") Then
Alert("El Nuevo Producto o Servicio tiene Codigo duplicado:" & Codigo, TipoMensaje.MsgAdvertencia)
If Ex1.Message.Contains("UK_ProductosServicios_Codigo_Empresa") Then
Alert("El Nuevo Producto o Servicio tiene Codigo duplicado:" & Codigo, TipoMensaje.MsgAdvertencia)
ElseIf Ex1.Message.Contains("UK_ProductosServicios_CveEmpresa_CodigoBarras") Then
Alert("El Nuevo Producto o Servicio tiene Codigo de barras duplicado:" & CodigoBarras, TipoMensaje.MsgAdvertencia)
ElseIf Ex1.Message.Contains("UK_ProductosServicios_CveEmpresa_NumeroParte") Then
Alert("El Nuevo Producto o Servicio tiene Numero de Parte duplicado:" & NumeroParte, TipoMensaje.MsgAdvertencia)
ElseIf Ex1.Message.Contains("UK_ProductosServicios_EmpresaNumeroParte") Then
Alert("El Nuevo Producto o Servicio tiene Numero de Parte duplicado:" & NumeroParte, TipoMensaje.MsgAdvertencia)
Else
Alert("El Nuevo Producto o Servicio duplicado(ND):" & NumeroParte, TipoMensaje.MsgAdvertencia)
End If
Else Else
Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If End If

14
App_Code/Timbrado.vb
View File

@@ -2886,6 +2886,13 @@ concep.DescripcionesEspecificas.NumeroSerie)
ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key" ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key"
ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.cer" ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.cer"
If Ventas.Timbre.Comprobante.TipoComprobante = "T" Then
Ventas.Timbre.Receptor.RFC = "EKU9003173C9"
Ventas.Timbre.Receptor.Nombre = "ESCUELA KEMPER URGATE"
Ventas.Timbre.Receptor.DomicilioFiscalReceptor = "42501"
Ventas.Timbre.Receptor.RegimenFiscalReceptor = "601"
End If
Clave = "12345678a" Clave = "12345678a"
TimbraProduccion = False TimbraProduccion = False
UsuarioServicio = "UserTest" UsuarioServicio = "UserTest"
@@ -3124,6 +3131,13 @@ concep.DescripcionesEspecificas.NumeroSerie)
Clave = "12345678a" Clave = "12345678a"
TimbraProduccion = False TimbraProduccion = False
If Ventas.Timbre.Comprobante.TipoComprobante = "T" Then
Ventas.Timbre.Receptor.RFC = "EKU9003173C9"
Ventas.Timbre.Receptor.Nombre = "ESCUELA KEMPER URGATE"
Ventas.Timbre.Receptor.DomicilioFiscalReceptor = "42501"
Ventas.Timbre.Receptor.RegimenFiscalReceptor = "601"
End If
End If End If
#Region "Valida" #Region "Valida"

4
App_Code/Timbres.vb
View File

@@ -395,6 +395,10 @@ Public Class Timbres
_MsgError.AppendLine("timbrado son detalle de productos") _MsgError.AppendLine("timbrado son detalle de productos")
End If End If
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
Timbre.Receptor.UsoCFDI = "CP01"
End If
End If End If
Else Else

11
Compras/Compras.aspx
View File

@@ -1329,7 +1329,16 @@
</ItemTemplate> </ItemTemplate>
<HeaderStyle CssClass="Titulos" /> <HeaderStyle CssClass="Titulos" />
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-Width="5%" />
<asp:TemplateField>
<HeaderTemplate>
Unidad
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LtlUnidadMedida" runat="server" Text='<%# Eval("UM") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--<asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-Width="5%" />--%>
<asp:BoundField ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" HeaderText=" Servicio" DataField="PS" /> <asp:BoundField ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" HeaderText=" Servicio" DataField="PS" />
<asp:BoundField ItemStyle-Width="7.5%" HeaderText="P.U." DataField="PU" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField ItemStyle-Width="7.5%" HeaderText="P.U." DataField="PU" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
<asp:TemplateField ItemStyle-Width="10%"> <asp:TemplateField ItemStyle-Width="10%">

630
Compras/Compras.aspx.vb
View File

@@ -1962,10 +1962,12 @@ Partial Class Compras_Compras
Dim BaseIVA As Decimal = 0 Dim BaseIVA As Decimal = 0
Dim TasaIEPS As String = "" Dim TasaIEPS As String = ""
Dim traslados As XmlNodeList = impuestosNode.SelectNodes("cfdi:Traslados/cfdi:Traslado", namespaces) Dim traslados As XmlNodeList = impuestosNode.SelectNodes("cfdi:Traslados/cfdi:Traslado", namespaces)
Dim tieneIEPS As Boolean = False
For Each traslado As XmlNode In traslados For Each traslado As XmlNode In traslados
' Obtener los valores de los atributos Base e Importe ' Obtener los valores de los atributos Base e Importe
Dim baseValue As Decimal = Decimal.Parse(ValorXML(traslado, "Base")).RoundSQL(2) Dim baseValue As Decimal = Decimal.Parse(ValorXML(traslado, "Base")).RoundSQL(2)
Dim impuesto As String = ValorXML(traslado, "Impuesto") Dim impuesto As String = ValorXML(traslado, "Impuesto")
Dim importeImpuesto As Decimal = ValorXML(traslado, "Importe").ToDecimal.RoundSQL(2)
If impuesto = "001" Then If impuesto = "001" Then
impuesto = "ISR" impuesto = "ISR"
@@ -1975,12 +1977,12 @@ Partial Class Compras_Compras
ElseIf impuesto = "003" Then ElseIf impuesto = "003" Then
impuesto = "IEPS" impuesto = "IEPS"
TasaIEPS = ValorXML(traslado, "TasaOCuota") TasaIEPS = ValorXML(traslado, "TasaOCuota")
BaseIEPS += baseValue BaseIEPS = baseValue + importeImpuesto
tieneIEPS = True
End If End If
Next Next
' Validar si Base coincide con Importe ' Validar si Base coincide con Importe
If BaseIVA <> BaseIEPS AndAlso BaseIEPS > 0 Then If tieneIEPS AndAlso Math.Abs(BaseIVA - BaseIEPS) > 0.01 Then 'subTotal + IEPS
'SbValRet.Append($"La base e importe de la retención del impuesto {impuesto} no coinciden para {descripcion}. Base: {baseValue.ToString()}, Importe: {importeValue.ToString()} <br>")
SbValRet.Append($"Producto: {descripcion} La base del IEPS es no coincide con el subtotal, favor de desglosarlo en una base : {BaseIEPS.ToString()}, Tasa: {TasaIEPS} <br>") SbValRet.Append($"Producto: {descripcion} La base del IEPS es no coincide con el subtotal, favor de desglosarlo en una base : {BaseIEPS.ToString()}, Tasa: {TasaIEPS} <br>")
End If End If
End If End If
@@ -2306,6 +2308,7 @@ Partial Class Compras_Compras
GvPS.DataSource = TmpDT GvPS.DataSource = TmpDT
GvPS.DataBind() GvPS.DataBind()
UpPS.Update() UpPS.Update()
CargaGvInv()
End If End If
End If End If
Else Else
@@ -2447,11 +2450,12 @@ Partial Class Compras_Compras
Msg &= String.Format("- Los descuentos del detalle no coinciden con el descuento general <br>") Msg &= String.Format("- Los descuentos del detalle no coinciden con el descuento general <br>")
End If End If
If Math.Abs(Math.Round(IVATemp, 6) - Math.Round(TrasladoIVA, 6)) > 0.01 Then If Math.Abs(Math.Round(IVATemp, 6) - Math.Round(TrasladoIVA, 6)) > 0.01 Then
Msg &= String.Format("- Los IVAS del detalle no coinciden con el IVA general <br>") Msg &= String.Format("- Los IVAS del detalle no coinciden con el IVA general <br>")
End If End If
If Math.Abs(Math.Round(IEPSTemp, 6) - Math.Round(TrasladoIEPS, 6)) > 0.01 Then If Math.Abs(Math.Round(IEPSTemp, 6) - Math.Round(TrasladoIEPS, 6)).RoundAD(2) > 0.01 Then
Msg &= String.Format("- Los IEPS del detalle no coinciden con el IEPS general <br>") Msg &= String.Format("- Los IEPS del detalle no coinciden con el IEPS general <br>")
End If End If
@@ -4462,11 +4466,14 @@ Partial Class Compras_Compras
End If End If
If UsuarioActual.TienePermisoProceso(121) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'valida que de salida, pero sino es importación o costoindirecto If UsuarioActual.TienePermisoProceso(121) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'valida que de salida, pero sino es importación o costoindirecto
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
If Not NCDevolucion And Not ChkNCInvNC.Checked Then If Not NCDevolucion And Not ChkNCInvNC.Checked Then
Alert("Favor de seleccionar un producto en la pestaña de almacen", TipoMensaje.MsgAdvertencia) Alert("Favor de seleccionar un producto en la pestaña de almacen", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
ValidaFechaDeAlamacen()
Else Else
Dim x As Integer = 0 Dim x As Integer = 0
For Each Dr As GridViewRow In GvInv.Rows For Each Dr As GridViewRow In GvInv.Rows
@@ -4480,11 +4487,13 @@ Partial Class Compras_Compras
Exit Sub Exit Sub
End If End If
End If End If
End If End If
If Not ValidaFechaDeAlamacen() Then
Exit Sub
End If
End If End If
If UsuarioActual.Empresa.Funcionalidad(538) = "1" Then If UsuarioActual.Empresa.Funcionalidad(538) = "1" Then
@@ -5093,306 +5102,306 @@ Partial Class Compras_Compras
End If End If
End If End If
'-------INICIA U S A A C ------------------------------------------------------------------- '-------INICIA U S A A C -------------------------------------------------------------------
'If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then 'If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
' If TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0 Then ' If TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0 Then
' ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ' ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
' ObjContaAC.IniciaTransacSQL() ' ObjContaAC.IniciaTransacSQL()
' ''POLIZA COMPROMETIDO SOLO SI NO SE VINCULA OC ' ''POLIZA COMPROMETIDO SOLO SI NO SE VINCULA OC
' If HdnVCveOC.Value.ToEntero > 0 Then ' If HdnVCveOC.Value.ToEntero > 0 Then
' IDPolizaComprometido = 1 ' IDPolizaComprometido = 1
' TotalPorDevengar = TotalPorDevengar * 2 ' TotalPorDevengar = TotalPorDevengar * 2
' Else ' Else
' TotalPorDevengar = TotalPorDevengar * 3 ' TotalPorDevengar = TotalPorDevengar * 3
' End If ' End If
' IdPoliza = ObjContaAC.AddPoliza(3, TxtDescripcion.Text.Trim, TotalPorDevengar, TotalPorDevengar, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate) ' IdPoliza = ObjContaAC.AddPoliza(3, TxtDescripcion.Text.Trim, TotalPorDevengar, TotalPorDevengar, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
' 'Dim filtro As New StringBuilder ' 'Dim filtro As New StringBuilder
' If IdPoliza > 0 Then ' If IdPoliza > 0 Then
' PolizaFolio = ObjContaAC.Folio ' PolizaFolio = ObjContaAC.Folio
' 'Dim RegistroMatriz As DataRow ' 'Dim RegistroMatriz As DataRow
' 'Dim CuentaCargo As Integer ' 'Dim CuentaCargo As Integer
' Dim CuentaAbono As Integer ' Dim CuentaAbono As Integer
' Dim Importe As Decimal ' Dim Importe As Decimal
' 'CUENTA PROVEEDOR ' 'CUENTA PROVEEDOR
' 'If tIdContaProveedor <= 0 Then ' 'If tIdContaProveedor <= 0 Then
' ' 'normalmente debe de ser la cuenta 021120000000000000, para el caso de APH, se el cmabio al 2119 ' ' 'normalmente debe de ser la cuenta 021120000000000000, para el caso de APH, se el cmabio al 2119
' ' If ObjContaAC.GetCuentas(-1, "021190000000000000", -1) Then ' ' If ObjContaAC.GetCuentas(-1, "021190000000000000", -1) Then
' ' Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("") ' ' Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
' ' If drCuenta IsNot Nothing Then ' ' If drCuenta IsNot Nothing Then
' ' CuentaAbono = drCuenta("Id").ToString.ToEntero ' ' CuentaAbono = drCuenta("Id").ToString.ToEntero
' ' Dim FolioProveedor = ObjContaAC.GetFolioProveedores("021190000000000000").ToString ' ' Dim FolioProveedor = ObjContaAC.GetFolioProveedores("021190000000000000").ToString
' ' ViewState("CtaProveedor") = ObjContaAC.AddCuenta(String.Format("02119{0}000000000", FolioProveedor.PadLeft(4, "0"c)), NombreProveedor, "D", 2, 0, 1, 0, "", 1, CuentaAbono) ' ' ViewState("CtaProveedor") = ObjContaAC.AddCuenta(String.Format("02119{0}000000000", FolioProveedor.PadLeft(4, "0"c)), NombreProveedor, "D", 2, 0, 1, 0, "", 1, CuentaAbono)
' ' ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, CtaProveedor) ' ' ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, CtaProveedor)
' ' Else ' ' Else
' ' ErrorAC = True ' ' ErrorAC = True
' ' ErrorACMEnsaje.Append(" - DrCuenta Nula") ' ' ErrorACMEnsaje.Append(" - DrCuenta Nula")
' ' End If ' ' End If
' ' Else ' ' Else
' ' ErrorACMEnsaje.Append(" - Error al consultar cuenta 021190000000000000 ") ' ' ErrorACMEnsaje.Append(" - Error al consultar cuenta 021190000000000000 ")
' ' ErrorAC = True ' ' ErrorAC = True
' ' End If ' ' End If
' 'End If ' 'End If
' Dim ConceptoRenglon As String = "" ' Dim ConceptoRenglon As String = ""
' If Not ErrorAC Then ' If Not ErrorAC Then
' 'INVENTARIOS EN AC ' 'INVENTARIOS EN AC
' Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) ' Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked)
' Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal ' Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal
' Dim ipresup As Integer = 0 ' Dim ipresup As Integer = 0
' 'COMIENZA: PRUEBA AGRUPACION CONCEPTOS ' 'COMIENZA: PRUEBA AGRUPACION CONCEPTOS
' Dim Presup = From gvr As DataRow In TmpDT.Rows.Cast(Of DataRow)() ' Dim Presup = From gvr As DataRow In TmpDT.Rows.Cast(Of DataRow)()
' Group gvr By Grp = New With { ' Group gvr By Grp = New With {
' Key .CvePresupuestoEgreso = gvr("CvePresupuestoEgreso").ToString.ToEntero, ' Key .CvePresupuestoEgreso = gvr("CvePresupuestoEgreso").ToString.ToEntero,
' Key .CveOrdencompraDetalle = If(gvr("CveOrdencompraDetalle").ToString.ToEntero > 0, 1, -1), ' Key .CveOrdencompraDetalle = If(gvr("CveOrdencompraDetalle").ToString.ToEntero > 0, 1, -1),
' Key .CveActivoFijo = If(gvr("TipoAF").ToString.ToEntero = 2, gvr("CveActivoFijo").ToString.ToEntero, -1) ' Key .CveActivoFijo = If(gvr("TipoAF").ToString.ToEntero = 2, gvr("CveActivoFijo").ToString.ToEntero, -1)
' } Into Group ' } Into Group
' Select Grp.CvePresupuestoEgreso, Grp.CveActivoFijo, Grp.CveOrdencompraDetalle, ' Select Grp.CvePresupuestoEgreso, Grp.CveActivoFijo, Grp.CveOrdencompraDetalle,
' TotalImporte = Group.Sum(Function(r) r("Total").ToString.ToDecimal) ' TotalImporte = Group.Sum(Function(r) r("Total").ToString.ToDecimal)
' Dim Fecha As Date = TxtFecha.Text.ToDate ' Dim Fecha As Date = TxtFecha.Text.ToDate
' 'Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA As Double ' 'Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA As Double
' tTotalIVA = TxtIVA.Text.ToDecimal ' tTotalIVA = TxtIVA.Text.ToDecimal
' tRetIVA = TxtRetIVA.Text.ToDecimal ' tRetIVA = TxtRetIVA.Text.ToDecimal
' tRetISR = TxtRetISR.Text.ToDecimal ' tRetISR = TxtRetISR.Text.ToDecimal
' 'tTotalIVA = tTotalIVA - tRetIVA - tRetISR ' 'tTotalIVA = tTotalIVA - tRetIVA - tRetISR
' tTotalGral = TxtTotal.Text.ToDecimal + tRetIVA + tRetISR ' EL TOTAL GENERAL DEBE DE SER EL SUBTOTAL + IVA, NO SE DEBEN DE INCLUIR LAS RETENCIONES, POR ESO SE RESTA ' tTotalGral = TxtTotal.Text.ToDecimal + tRetIVA + tRetISR ' EL TOTAL GENERAL DEBE DE SER EL SUBTOTAL + IVA, NO SE DEBEN DE INCLUIR LAS RETENCIONES, POR ESO SE RESTA
' tDiferenciaIVA = tTotalIVA ' tDiferenciaIVA = tTotalIVA
' ipresup = 0 ' ipresup = 0
' Dim CuentaMatrizAlmacen As Integer ' Dim CuentaMatrizAlmacen As Integer
' 'PresupuestoEgresos ' 'PresupuestoEgresos
' Dim DtPresupuestosTemp As DataTable ' Dim DtPresupuestosTemp As DataTable
' Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz As Integer ' Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz As Integer
' ' Dim DescuentoConIVA As Decimal ' ' Dim DescuentoConIVA As Decimal
' Dim tPorIVA As Decimal = tTotalIVA / (tTotalGral - tTotalIVA) ' Dim tPorIVA As Decimal = tTotalIVA / (tTotalGral - tTotalIVA)
' Dim tAjusteTotal As Decimal ' Dim tAjusteTotal As Decimal
' For Each grp In Presup ' For Each grp In Presup
' Importe = grp.TotalImporte ' Importe = grp.TotalImporte
' TotalDetalle += Importe ' TotalDetalle += Importe
' ipresup += 1 ' ipresup += 1
' If Importe > 0 Then ' If Importe > 0 Then
' 'saco la proporcion de iva que le corresponde ' 'saco la proporcion de iva que le corresponde
' tIVA = Math.Round(Importe * tPorIVA, 2) ' tIVA = Math.Round(Importe * tPorIVA, 2)
' tDiferenciaIVA -= tIVA ' tDiferenciaIVA -= tIVA
' 'identifico si es el ultimo registro, para ver si es necesario un ajuste ' 'identifico si es el ultimo registro, para ver si es necesario un ajuste
' If ipresup = Presup.Count Then ' If ipresup = Presup.Count Then
' If Math.Round(TotalDetalle - tTotalGral, 2) <= 0.01 AndAlso tDiferenciaIVA > 0 Then ' If Math.Round(TotalDetalle - tTotalGral, 2) <= 0.01 AndAlso tDiferenciaIVA > 0 Then
' tIVA += tDiferenciaIVA ' tIVA += tDiferenciaIVA
' End If ' End If
' End If ' End If
' 'le sumo el iva al concepto ' 'le sumo el iva al concepto
' Importe += tIVA ' Importe += tIVA
' 'codigo Provisional, para cuand tenga descuento, solo tome el subtotal * el iva,RMF ' 'codigo Provisional, para cuand tenga descuento, solo tome el subtotal * el iva,RMF
' If TxtDescuento.Text.ToDouble > 0 Then ' If TxtDescuento.Text.ToDouble > 0 Then
' Importe = grp.TotalImporte * 1.16D ' Importe = grp.TotalImporte * 1.16D
' End If ' End If
' tAjusteTotal += Importe ' tAjusteTotal += Importe
' 'valido que la sumas de lo detalles no exceda al totalgeneral ' 'valido que la sumas de lo detalles no exceda al totalgeneral
' If Math.Round(tAjusteTotal, 2) > tTotalGral Then ' If Math.Round(tAjusteTotal, 2) > tTotalGral Then
' 'le resto la diferencia ' 'le resto la diferencia
' Importe -= (tAjusteTotal - tTotalGral) ' Importe -= (tAjusteTotal - tTotalGral)
' End If ' End If
' 'Presupuesto Egresos ' 'Presupuesto Egresos
' DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", grp.CvePresupuestoEgreso)) ' DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", grp.CvePresupuestoEgreso))
' If DtPresupuestosTemp.Rows.Count <> 1 Then ' If DtPresupuestosTemp.Rows.Count <> 1 Then
' ErrorAC = True ' ErrorAC = True
' ErrorACMEnsaje.Append(" - DtPresupuestosTemp.Rows.Count <> 1 ") ' ErrorACMEnsaje.Append(" - DtPresupuestosTemp.Rows.Count <> 1 ")
' Exit For ' Exit For
' End If ' End If
' IdCuentaComprometido = DtPresupuestosTemp.Rows(0)("IdCuentaComprometido").ToString.ToEntero ' IdCuentaComprometido = DtPresupuestosTemp.Rows(0)("IdCuentaComprometido").ToString.ToEntero
' IdCuentaPorEjercer = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero ' IdCuentaPorEjercer = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero
' IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero ' IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero
' IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero ' IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero
' 'COMPROMETIDO DEPENDIENTE SI EXISTE SU POLIZA ' 'COMPROMETIDO DEPENDIENTE SI EXISTE SU POLIZA
' If grp.CveOrdencompraDetalle = -1 Then ' If grp.CveOrdencompraDetalle = -1 Then
' ConceptoRenglon = String.Format("GC Fact: {0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text) ' ConceptoRenglon = String.Format("GC Fact: {0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
' If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then ' If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
' If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjercer, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then ' If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjercer, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
' ErrorAC = True ' ErrorAC = True
' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 1") ' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 1")
' Exit For ' Exit For
' End If ' End If
' Else ' Else
' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 2") ' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 2")
' ErrorAC = True ' ErrorAC = True
' Exit For ' Exit For
' End If ' End If
' End If ' End If
' ConceptoRenglon = String.Format("GD Fact:{0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text) ' ConceptoRenglon = String.Format("GD Fact:{0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
' 'DEVENGADO ' 'DEVENGADO
' If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then ' If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
' If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then ' If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 3") ' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 3")
' ErrorAC = True ' ErrorAC = True
' Exit For ' Exit For
' End If ' End If
' Else ' Else
' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 4") ' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 4")
' ErrorAC = True ' ErrorAC = True
' Exit For ' Exit For
' End If ' End If
' If ContadorInventario > 0 Then ' If ContadorInventario > 0 Then
' ' CuentaMatrizAlmacen = CtaAlmacen ' ' CuentaMatrizAlmacen = CtaAlmacen
' ElseIf grp.CveActivoFijo > 0 Then ' ElseIf grp.CveActivoFijo > 0 Then
' Dim CtaAF As Integer = -1 ' Dim CtaAF As Integer = -1
' Dim AF As String = "" ' Dim AF As String = ""
' Dim CuentaInicial As Integer = -1 ' Dim CuentaInicial As Integer = -1
' If ObjAF.GetActivosFijos(grp.CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then ' If ObjAF.GetActivosFijos(grp.CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then
' CtaAF = ObjAF.Cuenta ' CtaAF = ObjAF.Cuenta
' AF = ObjAF.Descripcion ' AF = ObjAF.Descripcion
' CuentaInicial = ObjAF.CuentaInicial ' CuentaInicial = ObjAF.CuentaInicial
' Else ' Else
' ErrorAC = True ' ErrorAC = True
' ErrorACMEnsaje.Append(" - Error al obtener activos fijos ") ' ErrorACMEnsaje.Append(" - Error al obtener activos fijos ")
' Exit For ' Exit For
' End If ' End If
' If Not CuentaInicial > 0 Then ' If Not CuentaInicial > 0 Then
' CuentaInicial = 1241 ' CuentaInicial = 1241
' End If ' End If
' 'CUENTA AF ' 'CUENTA AF
' If CtaAF <= 0 Then ' If CtaAF <= 0 Then
' If ObjContaAC.GetCuentas(-1, String.Format("0{0}0000000000000", CuentaInicial), -1) Then ' If ObjContaAC.GetCuentas(-1, String.Format("0{0}0000000000000", CuentaInicial), -1) Then
' Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("") ' Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
' If drCuenta IsNot Nothing Then ' If drCuenta IsNot Nothing Then
' ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000 drCuenta nula") ' ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000 drCuenta nula")
' CuentaAbono = drCuenta("Id").ToString.ToEntero ' CuentaAbono = drCuenta("Id").ToString.ToEntero
' Dim FolioAF As String = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString ' Dim FolioAF As String = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString
' CtaAF = ObjContaAC.AddCuenta(String.Format("0{0}{1}000000000", CuentaInicial, FolioAF.PadLeft(4, "0"c)), AF, "A", 2, 0, 1, 0, "", 1, CuentaAbono) ' CtaAF = ObjContaAC.AddCuenta(String.Format("0{0}{1}000000000", CuentaInicial, FolioAF.PadLeft(4, "0"c)), AF, "A", 2, 0, 1, 0, "", 1, CuentaAbono)
' ObjAF.UpdateActivosFijosCuentaAC(grp.CveActivoFijo, CtaAF, UsuarioActual.CveUsuario) ' ObjAF.UpdateActivosFijosCuentaAC(grp.CveActivoFijo, CtaAF, UsuarioActual.CveUsuario)
' Else ' Else
' ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000 drCuenta nulo") ' ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000 drCuenta nulo")
' ErrorAC = True ' ErrorAC = True
' End If ' End If
' Else ' Else
' ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000") ' ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000")
' ErrorAC = True ' ErrorAC = True
' End If ' End If
' End If ' End If
' CuentaMatrizAlmacen = CtaAF ' CuentaMatrizAlmacen = CtaAF
' Else ' Else
' CuentaMatrizAlmacen = IdCuentaMatriz ' CuentaMatrizAlmacen = IdCuentaMatriz
' End If ' End If
' ''AFECTAR MATRIZ EGRESOS ' ''AFECTAR MATRIZ EGRESOS
' If ObjContaAC.AddMovimiento(IdPoliza, CuentaMatrizAlmacen, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then ' If ObjContaAC.AddMovimiento(IdPoliza, CuentaMatrizAlmacen, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
' ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION) ' ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
' 'If TxtDescuento.Text.ToDouble > 0 Then ' 'If TxtDescuento.Text.ToDouble > 0 Then
' ' DescuentoConIVA = TxtDescuento.Text.ToDouble * 1.16 ' ' DescuentoConIVA = TxtDescuento.Text.ToDouble * 1.16
' ' 'Valida que el descuento con iva cuadre en los totales ' ' 'Valida que el descuento con iva cuadre en los totales
' ' If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDouble)) < 0.02 Then ' ' If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDouble)) < 0.02 Then
' ' DescuentoConIVA = Importe - TxtTotal.Text.ToDouble ' ' DescuentoConIVA = Importe - TxtTotal.Text.ToDouble
' ' ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDouble) Then ' ' ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDouble) Then
' ' ErrorAC = True ' ' ErrorAC = True
' ' Exit For ' ' Exit For
' ' End If ' ' End If
' ' 'actualizo el idcuenta del presupuesto ' ' 'actualizo el idcuenta del presupuesto
' ' If ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, Importe - DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then ' ' If ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, Importe - DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
' ' 'agrego a la cuenta contable anticipos ' ' 'agrego a la cuenta contable anticipos
' ' If Not ObjContaAC.AddMovimiento(123456, IdPoliza, CtaProveedorAnticipos, True, DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then ' ' If Not ObjContaAC.AddMovimiento(123456, IdPoliza, CtaProveedorAnticipos, True, DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
' ' ErrorAC = True ' ' ErrorAC = True
' ' Exit For ' ' Exit For
' ' End If ' ' End If
' ' Else ' ' Else
' ' ErrorAC = True ' ' ErrorAC = True
' ' Exit For ' ' Exit For
' ' End If ' ' End If
' 'Else ' 'Else
' ' 'actualizo el idcuenta del presupuesto ' ' 'actualizo el idcuenta del presupuesto
' ' Importe = TxtTotal.Text.ToDouble ' ' Importe = TxtTotal.Text.ToDouble
' ' If Not ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe), "", ConceptoRenglon, 0, Fecha, "") Then ' ' If Not ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe), "", ConceptoRenglon, 0, Fecha, "") Then
' ' ErrorAC = True ' ' ErrorAC = True
' ' Exit For ' ' Exit For
' ' End If ' ' End If
' 'End If ' 'End If
' Else ' Else
' ErrorACMEnsaje.Append(" - Error AFECTAR MATRIZ EGRESOS ObjContaAC.AddMovimiento") ' ErrorACMEnsaje.Append(" - Error AFECTAR MATRIZ EGRESOS ObjContaAC.AddMovimiento")
' ErrorAC = True ' ErrorAC = True
' Exit For ' Exit For
' End If ' End If
' ''TERMINA AFECTAR MATRIZ EGRESOS ' ''TERMINA AFECTAR MATRIZ EGRESOS
' Else ' Else
' ErrorACMEnsaje.Append(" - For Each grp In Presup Importe > 0 ") ' ErrorACMEnsaje.Append(" - For Each grp In Presup Importe > 0 ")
' ErrorAC = True ' ErrorAC = True
' Exit For ' Exit For
' End If ' End If
' Next ' Next
' ''actualizo el idcuenta del presupuesto ' ''actualizo el idcuenta del presupuesto
' 'Importe = TxtTotal.Text.ToDecimal ' 'Importe = TxtTotal.Text.ToDecimal
' 'If Not ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe)), "", ConceptoRenglon, 0, Fecha, "") Then ' 'If Not ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe)), "", ConceptoRenglon, 0, Fecha, "") Then
' ' ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto ObjContaAC.AddMovimiento 3") ' ' ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto ObjContaAC.AddMovimiento 3")
' ' ErrorAC = True ' ' ErrorAC = True
' 'End If ' 'End If
' 'End If ' 'End If
' 'If tRetISR > 0 Then 'CtaProveedorRetISR ' 'If tRetISR > 0 Then 'CtaProveedorRetISR
' ' ConceptoRenglon = String.Format("GD Fact: {0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text) ' ' ConceptoRenglon = String.Format("GD Fact: {0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
' ' If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then ' ' If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then
' ' ErrorACMEnsaje.Append(" RetISR > 0 ObjContaAC.AddMovimiento") ' ' ErrorACMEnsaje.Append(" RetISR > 0 ObjContaAC.AddMovimiento")
' ' ErrorAC = True ' ' ErrorAC = True
' ' End If ' ' End If
' 'End If ' 'End If
' 'TERMINA: PRUEBA AGRUPACION CONCEPTOS ' 'TERMINA: PRUEBA AGRUPACION CONCEPTOS
' 'registrar amortizar anticipos ' 'registrar amortizar anticipos
' End If ' End If
' Else ' Else
' ErrorACMEnsaje.Append(" - Id Poliza = 0 ") ' ErrorACMEnsaje.Append(" - Id Poliza = 0 ")
' ErrorAC = True ' ErrorAC = True
' End If ' End If
' Else ' Else
' TieneError = True ' TieneError = True
' ErrorACMEnsaje.Append("- TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0") ' ErrorACMEnsaje.Append("- TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0")
' ErrorAC = True ' ErrorAC = True
' End If ' End If
'End If 'End If
'-------FIN U S A A C ------------------------------------------------------------------- '-------FIN U S A A C -------------------------------------------------------------------
If Not ErrorAC AndAlso Not TieneError Then If Not ErrorAC AndAlso Not TieneError Then
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
@@ -7633,12 +7642,12 @@ Partial Class Compras_Compras
Dim Msg As New StringBuilder Dim Msg As New StringBuilder
Msg.Append("La compra se registró correctamente") Msg.Append("La compra se registró correctamente")
If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then 'If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then
If ObjConta.ValorPolizaDescuadre > 0 Then ' If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ' GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorPrepolizaDescuadre = True ' ErrorPrepolizaDescuadre = True
End If ' End If
End If 'End If
'ACTUALIZA CVEFACTURA 'ACTUALIZA CVEFACTURA
If Request("CveFactura") IsNot Nothing Then If Request("CveFactura") IsNot Nothing Then
@@ -7820,13 +7829,37 @@ Partial Class Compras_Compras
'FechaCompra 'FechaCompra
Dim FechaMinima As DateTime = TxtFecha.Text.ToDate Dim FechaMinima As DateTime = TxtFecha.Text.ToDate
Dim CveAlmacenMov As Integer = ddlAlmacenAdd.SelectedValue.ToEntero
Dim DTAlamcen As New DataTable
If DDLDevolucion.SelectedValue.ToEntero > 0 Then
Dim objcompras As New ClsCompras()
If objcompras.GetCompraDetalleAlmacen(UsuarioActual.CveEmpresa, DDLDevolucion.SelectedValue.ToEntero) Then
GVDevolucion.DataSource = objcompras.DtResultados
End If
objcompras.Dispose()
GVDevolucion.DataBind()
For Each GvRow As GridViewRow In GVDevolucion.Rows
If GvRow.RowType = DataControlRowType.DataRow Then
CveAlmacenMov = GvRow.DataKey("CveAlmacen").ToString.ToEntero
End If
Next
End If
If DtInv IsNot Nothing Then If DtInv IsNot Nothing Then
For Each Dr As DataRow In TmpDT.Rows For Each Dr As DataRow In TmpDT.Rows
Dim CveTipoPS As Integer = Dr("CveTipoPS").ToString.ToEntero Dim CveTipoPS As Integer = Dr("CveTipoPS").ToString.ToEntero
If CveTipoPS = 2 Then If CveTipoPS = 2 Then
If objInventario.GetValidaFechaAlmacen(CveEmpresa:=UsuarioActual.CveEmpresa, CveAlmacen:=ddlAlmacenAdd.SelectedValue.ToEntero, CvePS:=Dr("CvePS").ToString.ToEntero) Then If objInventario.GetValidaFechaAlmacen(CveEmpresa:=UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenMov, CvePS:=Dr("CvePS").ToString.ToEntero) Then
If objInventario.DtResultados IsNot Nothing AndAlso objInventario.DtResultados.Rows.Count > 0 Then If objInventario.DtResultados IsNot Nothing AndAlso objInventario.DtResultados.Rows.Count > 0 Then
Dim FechamoMovimiento As DateTime = objInventario.DtResultados(0)("FechaMovto").ToString.ToDate Dim FechamoMovimiento As DateTime = objInventario.DtResultados(0)("FechaMovto").ToString.ToDate
@@ -7845,8 +7878,9 @@ Partial Class Compras_Compras
objInventario.Dispose() objInventario.Dispose()
If FechaMinima > TxtFecha.Text.ToDate Then If FechaMinima > TxtFecha.Text.ToDate Then
Alert($"Los productos tienen movientos, la fecha minima que se puede aplicar es {FechaMinima.ToString("dd/MM/yyyy HH:mm")}", TipoMensaje.MsgAdvertencia) Alert($"Los productos tienen movientos, la fecha minima que se cambio la fecha de compra as {FechaMinima.ToString("dd/MM/yyyy HH:mm")}", TipoMensaje.MsgAdvertencia)
respuesta = False 'respuesta = False
TxtFecha.Text = FechaMinima.ToString("dd/MM/yyyy")
Else Else
respuesta = True respuesta = True
End If End If
@@ -11084,6 +11118,48 @@ Partial Class Compras_Compras
End If End If
''VALIDA UNIDAD DE MEDIDA
'If e.Row.DBCampo("CvePS").ToString.ToEntero > 0 Then
' Dim DtEquivalencias As DataTable = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, e.Row.DBCampo("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa)
' 'SI UM NO ESTA REGISTRADA
' If e.Row.DBCampo("CveUM").ToString.ToEntero <= 0 Then
' e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(1,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveUnidadMedidaSAT")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')")
' e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger manita centrarUM"
' e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
' e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN registrar")
' End If
' 'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
' 'EQUIVALENCIA
' If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then
' If DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero}").Rows.Count > 0 Then
' If Not DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero} AND UnidadBase = 1").Rows.Count > 0 Then
' 'UM NO BASE
' e.Row.FCLinkButton("LBAplicarEquivalencia").Visible = True
' 'e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(2,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}')")
' e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger centrarUM"
' e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
' e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida NO medida base")
' End If
' Else
' 'SIN EQUIVALENCIA
' e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(3,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveUnidadMedidaSAT")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')")
' e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger manita centrarUM"
' e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
' e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN equivalencia")
' End If
' DtEquivalencias.Dispose()
' End If
'End If
End If End If
'HEADER GvInv 'HEADER GvInv
@@ -13587,18 +13663,19 @@ Partial Class Compras_Compras
'End Sub 'End Sub
Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs) Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs)
Try Try
Dim subtotaldevolucion As Double = 0 Dim subtotaldevolucion As Decimal = 0
Dim realizadevolucion As Boolean = False Dim realizadevolucion As Boolean = False
'Calculo los subtotales para comparar con la NC 'Calculo los subtotales para comparar con la NC
Dim cantidad As Double = 0.0 Dim cantidad As Decimal = 0D
For Each Dr As GridViewRow In GVDevolucion.Rows For Each Dr As GridViewRow In GVDevolucion.Rows
cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
If cantidad > 0 Then If cantidad > 0 Then
realizadevolucion = True realizadevolucion = True
subtotaldevolucion += Dr.DataKey("PU").ToString.ToDouble * cantidad Dim PU As Decimal = If(DdlMoneda.SelectedValue.ToEntero <> 1, Dr.DataKey("PUExtranjero").ToString.ToDecimal, Dr.DataKey("PU").ToString.ToDecimal)
subtotaldevolucion += PU * cantidad
End If End If
Next Next
@@ -13839,14 +13916,18 @@ Partial Class Compras_Compras
End If End If
End If End If
Dim dttpagos As DataTable = New DataTable ' 2024-11-13 OIC Esta ubicado antes de Refacturacion por que al refacturar los datos de pago dejan de estar disponibles dttpagos sellena antes
If ObjCompra.GetComprasPagos(CveCompraRefacturacion, UsuarioActual.CveEmpresa) Then
dttpagos = ObjCompra.DtResultados
End If
Dim Tipo As Integer = 1 Dim Tipo As Integer = 1
If ChkRefacNC.Checked Then Tipo = 2 If ChkRefacNC.Checked Then Tipo = 2
'CONTABILIZA REFACTURACION 'CONTABILIZA REFACTURACION
If ObjCompra.Refacturacion(CveCompraRefacturacion, CveCompra, UsuarioActual.CveEmpresa, Tipo) Then If ObjCompra.Refacturacion(CveCompraRefacturacion, CveCompra, UsuarioActual.CveEmpresa, Tipo) Then
Dim dttpagos As DataTable
If ObjCompra.GetComprasPagos(CveCompraRefacturacion, UsuarioActual.CveEmpresa) Then If dttpagos IsNot Nothing AndAlso dttpagos.Rows.Count > 0 Then
dttpagos = ObjCompra.DtResultados
For Each drp As DataRow In dttpagos.Rows For Each drp As DataRow In dttpagos.Rows
Dim Pago As New CompraPago Dim Pago As New CompraPago
@@ -13855,22 +13936,17 @@ Partial Class Compras_Compras
Pago.CveMonedaPago = 1 Pago.CveMonedaPago = 1
Pago.CveCompraAmortizacion = -1 Pago.CveCompraAmortizacion = -1
Pago.TipoPago = If(drp("CveIE").ToString.ToEntero > 0, "B", "NC") Pago.TipoPago = If(drp("CveIE").ToString.ToEntero > 0, "B", "NC")
Dim ErrorMovtosCxP As Boolean = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) Dim ErrorMovtosCxP As Boolean = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
Next Next
End If End If
Else Else
ErrorBitacora = True ErrorBitacora = True
End If End If
'Return True
Return ErrorBitacora Return ErrorBitacora
End Function End Function
Private Function GuardaRefacturacionBitacora(ObjCompra As ClsCompras, ObjEventos As ClsOIEventos) As Boolean Private Function GuardaRefacturacionBitacora(ObjCompra As ClsCompras, ObjEventos As ClsOIEventos) As Boolean

18
Compras/PopUpVerFactura.aspx.vb
View File

@@ -2449,18 +2449,25 @@ Partial Class PopUpVerFactura
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten) Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten)
Dim Archivo As New System.IO.FileInfo(Path) Dim Archivo As New System.IO.FileInfo(Path)
Dim cvetimbre As Integer = IfNull(Parametros("CVETIMBRE"), "0").ToString.ToEntero Dim cvetimbre As Integer = IfNull(Parametros("CVETIMBRE"), "0").ToString.ToEntero
Dim CveMovimiento As Integer = IfNull(Parametros("CVEMOVIMIENTO"), "0").ToString.ToEntero
If Archivo.Exists Then If Archivo.Exists Then
DescargarArchivoPDFTraslado(Archivo, Path) DescargarArchivoPDFTraslado(Archivo, Path)
Else Else
If Exten = "pdf" Then If Exten = "pdf" Then
Dim ObjTimbres As New Timbres(Parametros("TIPODOCTO").ToString, cvetimbre, UsuarioActual) Dim ObjTimbres As New Timbres(Parametros("TIPODOCTO").ToString, cvetimbre, UsuarioActual)
GeneraPDFFactura(ObjTimbres.ObjFactura) If ObjTimbres IsNot Nothing AndAlso ObjTimbres.ObjFactura IsNot Nothing Then
Archivo = New System.IO.FileInfo(Path) 'OBTENER LA INFORMACION DEL MOVIMIENTO DE ALMACEN
If Archivo.Exists Then ObjTimbres.ObjFactura.Inv_CveMovimiento = CveMovimiento
DescargarArchivoPDFTraslado(Archivo, Path)
GeneraPDFFactura(ObjTimbres.ObjFactura)
Archivo = New System.IO.FileInfo(Path)
If Archivo.Exists Then
DescargarArchivoPDFTraslado(Archivo, Path)
End If
End If End If
End If End If
End If End If
Archivo = Nothing Archivo = Nothing
@@ -3712,6 +3719,7 @@ Partial Class PopUpVerFactura
End If End If
If CveContrato > 0 Then If CveContrato > 0 Then
Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")

5
Compras/eFacturas.aspx.vb
View File

@@ -1686,7 +1686,7 @@ Partial Class Compras_eFacturas
fpdf = fpdf.Replace($"{fpdfSplit(0)}-", "") fpdf = fpdf.Replace($"{fpdfSplit(0)}-", "")
End If End If
If fxml.Contains(fpdf) Then If fxml.Contains(fpdf) Or (ListXML.Count = 1 And ListPDF.Count = 1) Then
RutaPDF = fInfoPDF.FullName RutaPDF = fInfoPDF.FullName
Exit For Exit For
End If End If
@@ -7985,6 +7985,9 @@ Namespace ADS.eFacturas
GuardaLogAD(ex.ToString(), ArchivoLog) GuardaLogAD(ex.ToString(), ArchivoLog)
End Try End Try
ElseIf Fact.RespuestaInsert = 0 AndAlso Fact.CveFactura > 0 Then
'FIXME OIC
Else Else
rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Error al insertar" rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Error al insertar"
End If End If

2
Contabilidad/PolizasImpresion.aspx.vb
View File

@@ -94,7 +94,7 @@ Partial Class Contabilidad_PolizasImpresion
params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text)) params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text))
params.Add(New ReportParameter("FFin", TxtFechaFin.Text)) params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
params.Add(New ReportParameter("Numero", dr("Folio").ToString)) params.Add(New ReportParameter("Numero", ""))
params.Add(New ReportParameter("Moneda", "")) params.Add(New ReportParameter("Moneda", ""))
params.Add(New ReportParameter("CodigoPostal", "")) params.Add(New ReportParameter("CodigoPostal", ""))

19
CxC/RepCxCDetalle.aspx
View File

@@ -560,6 +560,7 @@
<asp:BoundField HeaderText="En Quebranto" DataField="EnQuebranto" Visible="false" /> <asp:BoundField HeaderText="En Quebranto" DataField="EnQuebranto" Visible="false" />
<asp:BoundField HeaderText="En Demanda" DataField="EnDemanda" Visible="false" /> <asp:BoundField HeaderText="En Demanda" DataField="EnDemanda" Visible="false" />
<asp:BoundField HeaderText="Reg. Firmas" DataField="CreditoRegistroFirmas" Visible="false" /> <asp:BoundField HeaderText="Reg. Firmas" DataField="CreditoRegistroFirmas" Visible="false" />
<asp:BoundField HeaderText="Dirección Cliente" DataField="DireccionCliente" Visible="false" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
@@ -617,7 +618,7 @@
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSucursal" runat="server" Text="&nbsp;Sucursal" /></td> <asp:CheckBox ID="ChkSucursal" runat="server" Text="&nbsp;Sucursal" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkTelefono" runat="server" Text="&nbsp;Telefono" /></td> <asp:CheckBox ID="ChkTelefono" runat="server" Text="&nbsp;Teléfono" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkMail" runat="server" Text="&nbsp;Mail" /></td> <asp:CheckBox ID="ChkMail" runat="server" Text="&nbsp;Mail" /></td>
</tr> </tr>
@@ -645,7 +646,7 @@
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkRetISR" runat="server" Text="&nbsp;Ret. ISR" /></td> <asp:CheckBox ID="ChkRetISR" runat="server" Text="&nbsp;Ret. ISR" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="&nbsp;Sucursal Cliente" Checked="true" /></td> <asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="&nbsp;Sucursal Cliente" Checked="false" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkEstatusCobranza" runat="server" Text="&nbsp;Estatus Cobranza" /></td> <asp:CheckBox ID="ChkEstatusCobranza" runat="server" Text="&nbsp;Estatus Cobranza" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -659,6 +660,7 @@
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkObsCobranza" runat="server" Text="&nbsp;Observación Cobranza" /></td> <asp:CheckBox ID="ChkObsCobranza" runat="server" Text="&nbsp;Observación Cobranza" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkFechaCobranza" runat="server" Text="&nbsp;Fecha Cobranza" Checked="true" />
<asp:CheckBox ID="ChkCuentaContableReferencia" runat="server" Text="&nbsp;CuentaContableReferencia" Visible="False" /></td> <asp:CheckBox ID="ChkCuentaContableReferencia" runat="server" Text="&nbsp;CuentaContableReferencia" Visible="False" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
</tr> </tr>
@@ -667,8 +669,7 @@
<asp:CheckBox ID="ChkMotivoCancelacion" runat="server" Text="&nbsp;Motivo Cancelacion" /></td> <asp:CheckBox ID="ChkMotivoCancelacion" runat="server" Text="&nbsp;Motivo Cancelacion" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSeTimbro" runat="server" Text="&nbsp;Se Timbró" /></td> <asp:CheckBox ID="ChkSeTimbro" runat="server" Text="&nbsp;Se Timbró" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkFechaCobranza" runat="server" Text="&nbsp;Fecha Cobranza" Checked="true" />
</td> </td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkDiasTranscurridos" runat="server" Text="&nbsp;Días Transcurridos" /></td> <asp:CheckBox ID="ChkDiasTranscurridos" runat="server" Text="&nbsp;Días Transcurridos" /></td>
@@ -714,6 +715,16 @@
<asp:CheckBox ID="ChkRegistroFirmas" runat="server" Text="&nbsp;Registro Firmas " Checked="false" /></td> <asp:CheckBox ID="ChkRegistroFirmas" runat="server" Text="&nbsp;Registro Firmas " Checked="false" /></td>
<td style="text-align: left;"></td> <td style="text-align: left;"></td>
</tr> </tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkDireccionCliente" runat="server" Text="&nbsp;Dirección Cli." Checked="false" /></td>
<td style="text-align: left;">
</td>
<td style="text-align: left;">
</td>
<td style="text-align: left;">
</td>
</tr>
</tbody> </tbody>
</table> </table>
</div> </div>

10
CxC/RepCxCDetalle.aspx.vb
View File

@@ -587,12 +587,13 @@ Partial Class RepCxCDetalle
ActivaColumna(7, ChkRetIVA.Checked) ActivaColumna(7, ChkRetIVA.Checked)
ActivaColumna(8, ChkRetISR.Checked) ActivaColumna(8, ChkRetISR.Checked)
ActivaColumna(9, ChkTotal.Checked) ActivaColumna(9, ChkTotal.Checked)
ActivaColumna(10, ChkMoneda.Checked) 'ActivaColumna(10, ChkSaldo.Checked) siemprevisible
ActivaColumna(11, ChkMoneda.Checked)
ActivaColumna(11, ChkSucursal.Checked) ActivaColumna(12, ChkSucursal.Checked)
'ActivaColumna(12, ChkCuentaContableReferencia.Checked) 'ActivaColumna(12, ChkCuentaContableReferencia.Checked)
'ActivaColumna(13, ChkCuentaContable.Checked) 'ActivaColumna(13, ChkVencimiento.Checked) ' fecha vencimiento siempre visible
'ActivaColumna(14, ChkUsuario.Checked) 'ActivaColumna(14, ChkUsuario.Checked) 'dias vencimiento siempre visible
ActivaColumna(15, ChkCodigo.Checked) ActivaColumna(15, ChkCodigo.Checked)
ActivaColumna(16, ChkCliente.Checked) ActivaColumna(16, ChkCliente.Checked)
ActivaColumna(17, ChkSucursalCliente.Checked) ActivaColumna(17, ChkSucursalCliente.Checked)
@@ -637,6 +638,7 @@ Partial Class RepCxCDetalle
ActivaColumna(53, ChkEnQuebranto.Checked) ActivaColumna(53, ChkEnQuebranto.Checked)
ActivaColumna(54, ChkEnDemanda.Checked) ActivaColumna(54, ChkEnDemanda.Checked)
ActivaColumna(55, ChkRegistroFirmas.Checked) ActivaColumna(55, ChkRegistroFirmas.Checked)
ActivaColumna(56, ChkDireccionCliente.Checked)
If SePersonalizo = 1 Then If SePersonalizo = 1 Then
ImgExcelPersonalizado.Visible = True ImgExcelPersonalizado.Visible = True

4448
Empresas/11/Formatos/OC.rdlc
View File

File diff suppressed because it is too large Load Diff

7
Empresas/119/Formatos/Cotizacion.rdlc
View File

@@ -1237,6 +1237,7 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -2787,12 +2788,6 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="CEClavePedimento">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="compuescuadron"> <EmbeddedImage Name="compuescuadron">

44
Empresas/119/Formatos/OC.rdlc
View File

@@ -2763,13 +2763,7 @@
<DataType>DateTime</DataType> <DataType>DateTime</DataType>
<Nullable>true</Nullable> <Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="Empresa">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="FirmaSolicito"> <ReportParameter Name="FirmaSolicito">
<DataType>String</DataType> <DataType>String</DataType>
<Nullable>true</Nullable> <Nullable>true</Nullable>
@@ -2853,6 +2847,42 @@
<Nullable>true</Nullable> <Nullable>true</Nullable>
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="PlazoPago">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntrega">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntregaDir">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Empresa">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RFC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Telefono">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>

36
Empresas/122/Formatos/OC.rdlc
View File

@@ -2597,6 +2597,42 @@
<Nullable>true</Nullable> <Nullable>true</Nullable>
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="PlazoPago">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntrega">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntregaDir">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Empresa">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RFC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Telefono">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>

6774
Empresas/13/Formatos/OC.rdlc
View File

File diff suppressed because it is too large Load Diff

36
Empresas/145/Formatos/OC.rdlc
View File

@@ -2564,6 +2564,42 @@
<DataType>Float</DataType> <DataType>Float</DataType>
<Nullable>true</Nullable> <Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="PlazoPago">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntrega">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntregaDir">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Empresa">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RFC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Telefono">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>

44
Empresas/153/Formatos/OC.rdlc
View File

@@ -2956,13 +2956,7 @@
<DataType>DateTime</DataType> <DataType>DateTime</DataType>
<Nullable>true</Nullable> <Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="Empresa">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="FirmaSolicito"> <ReportParameter Name="FirmaSolicito">
<DataType>String</DataType> <DataType>String</DataType>
<Nullable>true</Nullable> <Nullable>true</Nullable>
@@ -3034,6 +3028,42 @@
<Nullable>true</Nullable> <Nullable>true</Nullable>
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="PlazoPago">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntrega">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntregaDir">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Empresa">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RFC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Telefono">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>

4219
Empresas/158/Formatos/Cotizacion.rdlc
View File

File diff suppressed because it is too large Load Diff

3256
Empresas/159/Formatos/OC.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

3256
Empresas/160/Formatos/OC.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

3256
Empresas/161/Formatos/OC.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

3256
Empresas/162/Formatos/OC.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

3256
Empresas/166/Formatos/OC.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

30
Empresas/172/Formatos/OC.rdlc
View File

@@ -2597,6 +2597,36 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="PlazoPago">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntrega">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntregaDir">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Empresa">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RFC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="LogoCitrusLarge"> <EmbeddedImage Name="LogoCitrusLarge">

2904
Empresas/173/Formatos/OC.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

3027
Empresas/174/Formatos/OC.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

899
Empresas/189/Formatos/Cotizacion.mrt Normal file
View File

@@ -0,0 +1,899 @@
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<StiSerializer version="1.02" type="Net" application="StiReport">
<Dictionary Ref="1" type="Dictionary" isKey="true">
<BusinessObjects isList="true" count="0" />
<Databases isList="true" count="0" />
<DataSources isList="true" count="3">
<DtTotales Ref="2" type="DataTableSource" isKey="true">
<Alias>DtTotales</Alias>
<Columns isList="true" count="2">
<value>ORIGINAL,ImpuestoLocal,ImpuestoLocal,ImpuestoLocal,System.String,be0185361d3a459f8d76e5f7bf2b8829</value>
<value>ORIGINAL,Importe,Importe,Importe,System.Decimal,a35de5fd4e5f4826810ab0a04fd777c1</value>
</Columns>
<Dictionary isRef="1" />
<Key>56a6beab25fc40cca65df797b073d1ba</Key>
<Name>DtTotales</Name>
<NameInSource>Datos.DtTotales</NameInSource>
</DtTotales>
<DtImpuestos Ref="3" type="DataTableSource" isKey="true">
<Alias>DtImpuestos</Alias>
<Columns isList="true" count="3">
<value>ORIGINAL,Impuesto,Impuesto,Impuesto,System.String,_x0030_77ac1aa8b324fa5961f5bcb60f5dda1</value>
<value>ORIGINAL,tasa,tasa,tasa,System.String,_x0032_373b7a2e2594160801b2ba26336d7cd</value>
<value>ORIGINAL,Importe,Importe,Importe,System.Decimal,bb9558fe79c341e5a936ba07baec5ca3</value>
</Columns>
<Dictionary isRef="1" />
<Key>a48d2e5765a744c893a697263baf8cd5</Key>
<Name>DtImpuestos</Name>
<NameInSource>Datos.DtImpuestos</NameInSource>
</DtImpuestos>
<DtDetalle Ref="4" type="DataTableSource" isKey="true">
<Alias>DtDetalle</Alias>
<Columns isList="true" count="14">
<value>ORIGINAL,Cantidad,Cantidad,Cantidad,System.Decimal,_x0036_78941a04c3f46b7970716cf66453997</value>
<value>ORIGINAL,UM,UM,UM,System.String,c8d8f9e5931440fb91ef44a4b4399655</value>
<value>ORIGINAL,UnidadMedida,UnidadMedida,UnidadMedida,System.String,_x0033_27e8a248b964eb68ec625bfaca4e053</value>
<value>ORIGINAL,PS,PS,PS,System.String,_x0037_15875aa7f2a493498c29c53baf0b342</value>
<value>ORIGINAL,Obs,Obs,Obs,System.String,e57cdff600cc44029435171bc72e1d0a</value>
<value>ORIGINAL,PU,PU,PU,System.Decimal,ac9880590b254b95ad7b28a70ca0fba7</value>
<value>ORIGINAL,Descuento,Descuento,Descuento,System.Decimal,ed45e99f6f574458badc238ea42119a9</value>
<value>ORIGINAL,Total,Total,Total,System.Decimal,_x0038_6d2976b28c94630b575dd7704d88fe0</value>
<value>CALC,UMCalculada,UMCalculada,System.String,_x0028_DtDetalle.UM_x0020__x002B__x0020__x0022_-_x0022__x0020__x002B__x0020_DtDetalle.UnidadMedida_x0029_,_x0035_e8ab97018f44fecb40c0c5ea2fd6ec7</value>
<value>PSCalculado,PSCalculado,System.String,_x0028_DtDetalle.PS_x0020__x002B__x0020_DtDetalle.Obs_x0029_</value>
<value>ImporteIVA,System.Decimal</value>
<value>SATClaveProdServ,System.String</value>
<value>ImporteIEPS,System.Decimal</value>
<value>CodigoObjetoImpuesto,System.String</value>
</Columns>
<Dictionary isRef="1" />
<Key>20e4ae855c2345189166d6029cebb7ac</Key>
<Name>DtDetalle</Name>
<NameInSource>Datos.DtDetalle</NameInSource>
</DtDetalle>
</DataSources>
<Relations isList="true" count="0" />
<Report isRef="0" />
<Resources isList="true" count="0" />
<Variables isList="true" count="78">
<value>ReportParameters,ClienteCodigo,ClienteCodigo,ReportParameter1,System.String,_x0030_2,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0035_4a879e0a10d464ba2f01e0372efb9ca</value>
<value>ReportParameters,ClienteTelefono,ClienteTelefono,ReportParameter1,System.String,,False,False,True,False,,_x0036_22a3a61b2f247a6ab5d7dc6c66568db</value>
<value>ReportParameters,ClienteContacto,ClienteContacto,ReportParameter1,System.String,,False,False,True,False,,_x0035_c52eccfce4d4681a1c62017e690c7c1</value>
<value>ReportParameters,ClienteLugar,ClienteLugar,ReportParameter1,System.String,,False,False,True,False,,_x0031_42cc28c01314727a772cedde21a686f</value>
<value>ReportParameters,ClienteNombre,ClienteNombre,ClienteNombre,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,fc388cb6bbb2402382602a5fe2596c26</value>
<value>ReportParameters,ClienteContactoMail,ClienteContactoMail,ReportParameter1,System.String,,False,False,True,False,,_x0039_1cc1e79f72d4fe6939a23926cf77411</value>
<value>ReportParameters,ClienteCalle,ClienteCalle,ReportParameter1,System.String,,False,False,True,False,,_x0031_3ad5892c1954dadad4e2e7bb73b4219</value>
<value>ReportParameters,ClienteColonia,ClienteColonia,ReportParameter1,System.String,,False,False,True,False,,_x0033_9ba00de7b1b4a159b7b6d354408cdd7</value>
<value>ReportParameters,ClienteCiudad,ClienteCiudad,ReportParameter1,System.String,,False,False,True,False,,e5299b3b0c144480b1faa6425e0ab423</value>
<value>ReportParameters,ClienteMunicipio,ClienteMunicipio,ReportParameter1,System.String,,False,False,True,False,,_x0037_3494711c4a54d0d95fd0a48af0576af</value>
<value>ReportParameters,ClienteEstado,ClienteEstado,ReportParameter1,System.String,,False,False,True,False,,_x0035_0a6ced983964f1a95926fb51519b668</value>
<value>ReportParameters,ClienteCP,ClienteCP,ReportParameter1,System.String,,False,False,True,False,,_x0036_48f4e89c17a4f07a474d638300a0675</value>
<value>ReportParameters,ClientePais,ClientePais,ReportParameter1,System.String,,False,False,True,False,,_x0037_e537c1f68ac43f087e3adec3d4c0d83</value>
<value>ReportParameters,ClienteNoInt,ClienteNoInt,ReportParameter1,System.String,,False,False,True,False,,_x0032_1e8cccfcd53404798752c40cb2869fc</value>
<value>ReportParameters,ClienteNoExt,ClienteNoExt,ReportParameter1,System.String,,False,False,True,False,,a3b4f2a2bfde4daa87dbf99b9e0a972d</value>
<value>ReportParameters,ClienteRFC,ClienteRFC,ReportParameter1,System.String,,False,False,True,False,,b3bcd1e029d14afca68aeb5d8ad2783e</value>
<value>ReportParameters,ImporteLetra,ImporteLetra,ReportParameter1,System.String,,False,False,True,False,,dd591dc3c8614a8198f1c45290288983</value>
<value>ReportParameters,Observaciones,Observaciones,ReportParameter1,System.String,,False,False,True,False,,f22be044d8b241d5a202ceb96435941f</value>
<value>ReportParameters,FechaSolicitud,FechaSolicitud,ReportParameter1,System.String,,False,False,True,False,,c5d4375a6f0f4e0aa46e07305025ebdf</value>
<value>ReportParameters,Folio,Folio,ReportParameter1,System.String,,False,False,True,False,,_x0032_a8d6b8fd9fe45ddad9cec889ffb0aa9</value>
<value>ReportParameters,Descuento,Descuento,ReportParameter1,System.String,,False,False,True,False,,eb1390bb728a466f89d18112fe8b3db4</value>
<value>ReportParameters,SubTotal,SubTotal,ReportParameter1,System.String,,False,False,True,False,,_x0036_bcaf81ce8424a89b7d3956aa40c40ed</value>
<value>ReportParameters,IVA,IVA,ReportParameter1,System.String,,False,False,True,False,,_x0031_00d119655324e9ca84ffe79878d4304</value>
<value>ReportParameters,Total,Total,ReportParameter1,System.String,,False,False,True,False,,e8fd4168b3654bf1a2b62ea35ed7103a</value>
<value>ReportParameters,Fecha,Fecha,ReportParameter1,System.DateTime,_x0031_0_x002F_11_x002F_2022_x0020_3:16:33_x0020_PM,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0036_384255a86084c05b8848c699dbd4f96</value>
<value>ReportParameters,DomicilioSucursal,DomicilioSucursal,ReportParameter1,System.String,,False,False,True,False,,_x0038_6f4e1cb3d214d0cbcdab7dca43830d8</value>
<value>ReportParameters,MetodoPago,MetodoPago,ReportParameter1,System.String,,False,False,True,False,,_x0036_66ed9258e684a23931432e2dfa310c3</value>
<value>ReportParameters,Vencimiento,Vencimiento,ReportParameter1,System.String,,False,False,True,False,,f95b989be9d74a0999d4826d640bd303</value>
<value>ReportParameters,FolioFiscal,FolioFiscal,ReportParameter1,System.String,,False,False,True,False,,b2e9e0bb197a40cfa90ba62b89ce1cee</value>
<value>ReportParameters,FechaCertificacion,FechaCertificacion,ReportParameter1,System.String,,False,False,True,False,,_x0030_d914d56e3e44ae0a1d6153df4137619</value>
<value>ReportParameters,SelloCFDI,SelloCFDI,ReportParameter1,System.String,,False,False,True,False,,af43aa7c375f4569807e097e33cb3022</value>
<value>ReportParameters,CadenaSAT,CadenaSAT,ReportParameter1,System.String,,False,False,True,False,,_x0036_1ad55d011864c8fbe380d1ea2a48f95</value>
<value>ReportParameters,SelloSAT,SelloSAT,ReportParameter1,System.String,,False,False,True,False,,_x0030_cfc6d7bd1d5494ea67c5bfb89d2ed95</value>
<value>ReportParameters,CiudadSucursal,CiudadSucursal,ReportParameter1,System.String,,False,False,True,False,,f2e4e7b1dbd441c2991312754874cd5f</value>
<value>ReportParameters,Serie,Serie,ReportParameter1,System.String,,False,False,True,False,,_x0032_6a275490e0e41cb82172707411b3378</value>
<value>ReportParameters,QR,QR,ReportParameter1,System.String,,False,False,True,False,,c3ebe6227c5344c081273320eea2340b</value>
<value>ReportParameters,FormaPago,FormaPago,ReportParameter1,System.String,,False,False,True,False,,_x0034_e90c2046e0a4b529fada5a1f7dd7998</value>
<value>ReportParameters,LogoPath,LogoPath,ReportParameter1,System.String,,False,False,True,False,,_x0035_7226cd5b04f486d89f112c567578b6f</value>
<value>ReportParameters,VendedorNombre,VendedorNombre,ReportParameter1,System.String,,False,False,True,False,,c1562dbbc00b4fe58dd867b518c72d87</value>
<value>ReportParameters,VendedorCelular,VendedorCelular,ReportParameter1,System.String,,False,False,True,False,,_x0031_2dff9e7058b4109b1a6b62f6894e7cf</value>
<value>ReportParameters,VendedorMail,VendedorMail,ReportParameter1,System.String,,False,False,True,False,,_x0037_a52233d37ce413f807ec9edf924f8de</value>
<value>ReportParameters,VendedorTelefono,VendedorTelefono,ReportParameter1,System.String,,False,False,True,False,,_x0031_9b75a9a7c4c4f919b96c4df59c75fcc</value>
<value>ReportParameters,Moneda,Moneda,ReportParameter1,System.String,,False,False,True,False,,e14dcea0493745fc8e0bfc12262b9a5b</value>
<value>ReportParameters,TipoCambio,TipoCambio,ReportParameter1,System.String,,False,False,True,False,,_x0035_9528246124b44b7811606bc8cd2f834</value>
<value>ReportParameters,CondicionPago,CondicionPago,ReportParameter1,System.String,,False,False,True,False,,_x0030_ab25e66a5414c79975c9a34cc3dd7b4</value>
<value>ReportParameters,CadenaOriginal,CadenaOriginal,ReportParameter1,System.String,,False,False,True,False,,b29aaa8ee8d34180a0e09c3b2a675b7f</value>
<value>ReportParameters,SerieCertificadoSAT,SerieCertificadoSAT,ReportParameter1,System.String,,False,False,True,False,,_x0039_845ccadef6345bf91d05a8c6614ecbf</value>
<value>ReportParameters,Tipo,Tipo,ReportParameter1,System.String,,False,False,True,False,,_x0032_d1a04ac5e10483a9b02ad310f535f36</value>
<value>ReportParameters,CertificadoContribuyente,CertificadoContribuyente,ReportParameter1,System.String,,False,False,True,False,,_x0037_87eed3027fd4e4abed1281c55fad45e</value>
<value>ReportParameters,Amortizacion,Amortizacion,ReportParameter1,System.String,,False,False,True,False,,bb17c8b20d4842e6b3c5b8e918ac4ca5</value>
<value>ReportParameters,SubTotal2,SubTotal2,ReportParameter1,System.String,,False,False,True,False,,_x0034_48020e8b547499286161fe7da78bea7</value>
<value>ReportParameters,RetIVA,RetIVA,ReportParameter1,System.String,,False,False,True,False,,f4287451b2e4419c8337f47cad4b52b8</value>
<value>ReportParameters,RetISR,RetISR,ReportParameter1,System.String,,False,False,True,False,,_x0036_1354c921b424786bd669532657fbf82</value>
<value>ReportParameters,AplicaPagare,AplicaPagare,ReportParameter1,System.String,,False,False,True,False,,_x0031_2e84f644ed04a99bc95aa972f3d9013</value>
<value>ReportParameters,Sucursal,Sucursal,ReportParameter1,System.String,,False,False,True,False,,_x0037_29489ee8b234760b67da57f386260fc</value>
<value>ReportParameters,ClienteDiasCredito,ClienteDiasCredito,ReportParameter1,System.Nullable`1[System.Int32],_x0030_,False,False,True,False,,_x0039_09a35ecbc9f47018426fdbc4ca87efd</value>
<value>ReportParameters,MonedaAbreviatura,MonedaAbreviatura,ReportParameter1,System.String,,False,False,True,False,,_x0033_2ec6d5b13ed45cf839fa6dd02b57a16</value>
<value>ReportParameters,UsuarioImprimio,UsuarioImprimio,ReportParameter1,System.String,,False,False,True,False,,d73084b529fe467f874908a8f83c6638</value>
<value>ReportParameters,FechaImpresion,FechaImpresion,ReportParameter1,System.String,,False,False,True,False,,_x0038_107585f125a40efb1427b414bdbd8b1</value>
<value>ReportParameters,EnvioDireccion,EnvioDireccion,ReportParameter1,System.String,,False,False,True,False,,df93202647634a47b13099b4d529dded</value>
<value>ReportParameters,EnvioColonia,EnvioColonia,ReportParameter1,System.String,,False,False,True,False,,f5e4dca9af71426099b9378e69cf576b</value>
<value>ReportParameters,EnvioCiudad,EnvioCiudad,ReportParameter1,System.String,,False,False,True,False,,_x0038_7b32f6e07f8448d93360f4cc1e6176f</value>
<value>ReportParameters,EnvioEstado,EnvioEstado,ReportParameter1,System.String,,False,False,True,False,,ba8a551aeede44b5b8035258d5b8eca4</value>
<value>ReportParameters,EnvioCP,EnvioCP,ReportParameter1,System.String,,False,False,True,False,,f1c3b334a36b418c9bcfc31c5246aa3c</value>
<value>ReportParameters,EnvioNoExt,EnvioNoExt,ReportParameter1,System.String,,False,False,True,False,,_x0030_878b61991f0487087b7f19a697e47f9</value>
<value>ReportParameters,EnvioNoInt,EnvioNoInt,ReportParameter1,System.String,,False,False,True,False,,_x0034_5fb312fd30343589bb1e0b1464dbb95</value>
<value>ReportParameters,EnvioContacto,EnvioContacto,ReportParameter1,System.String,,False,False,True,False,,_x0039_a53131d8fef43a4aa42801eb9ba8eb2</value>
<value>ReportParameters,EnvioDepartamento,EnvioDepartamento,ReportParameter1,System.String,,False,False,True,False,,f21d6f47d0184310a3311d3552af8549</value>
<value>ReportParameters,EstatusFactura,EstatusFactura,ReportParameter1,System.String,,False,False,True,False,,_x0032_a0839c2f82b4c5f8604000f8fdfb9b6</value>
<value>ReportParameters,EstatusEntrega,EstatusEntrega,ReportParameter1,System.String,,False,False,True,False,,_x0034_7da8d86bd4c439d9642b22e6573d424</value>
<value>ReportParameters,PedidoContrato,PedidoContrato,ReportParameter1,System.String,,False,False,True,False,,d1e0af1cece14faf9222cab2d02cf26d</value>
<value>ReportParameters,DescripcionContrato,DescripcionContrato,ReportParameter1,System.String,,False,False,True,False,,_x0030_9c47a410e0d4f9ea10571ab84f6fba1</value>
<value>ReportParameters,OrdenCompra,OrdenCompra,ReportParameter1,System.String,,False,False,True,False,,_x0034_3f593025b554c65b6eca2af30a99f20</value>
<value>ReportParameters,UsoCFDI,UsoCFDI,ReportParameter1,System.String,,False,False,True,False,,_x0036_63f72b22aa841c7848ad9bb60221c5e</value>
<value>ReportParameters,TipoRelacionTexto,TipoRelacionTexto,ReportParameter1,System.String,,False,False,True,False,,_x0034_17b8382f8e448a5b21018e50590835b</value>
<value>ReportParameters,FolioFiscalRelacionado,FolioFiscalRelacionado,ReportParameter1,System.String,,False,False,True,False,,_x0037_0c2d36e39d1464d821ac353ccaa2dcd</value>
<value>ReportParameters,ClienteDireccion,ClienteDireccion,ReportParameter1,System.String,,False,False,True,False,,f18e5fd820754666994a9d3f995d50a7</value>
<value>ReportParameters,ClienteRegimenFiscal,ClienteRegimenFiscal,,System.String,,False,False,False,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
</Variables>
</Dictionary>
<EngineVersion>EngineV2</EngineVersion>
<GlobalizationStrings isList="true" count="0" />
<Key>061210194497442389366cf90b752a56</Key>
<MetaTags isList="true" count="0" />
<Pages isList="true" count="1">
<Page1 Ref="5" type="Page" isKey="true">
<Border>None;Black;2;Solid;False;4;Black</Border>
<Brush>Transparent</Brush>
<Components isList="true" count="1">
<PageHeaderBand1 Ref="6" type="PageHeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0.4,21.1,5.4</ClientRectangle>
<Components isList="true" count="2">
<Panel4 Ref="7" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0,21,5.2</ClientRectangle>
<Components isList="true" count="5">
<Text5 Ref="8" type="Text" isKey="true">
<AllowHtmlTags>True</AllowHtmlTags>
<Brush>Transparent</Brush>
<ClientRectangle>13,0.8,8,3.2</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>0,0,0,0</Margins>
<Name>Text5</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>&lt;div style=""&gt;&lt;font face="Arial"&gt;&lt;b style=""&gt;Serie:&lt;/b&gt;&amp;nbsp;&lt;font color="#ff0000" style=""&gt;{Serie}&lt;/font&gt; &lt;b style=""&gt;Folio :&lt;/b&gt; &lt;font color="#ff0000" style=""&gt;{Folio}&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;&lt;div style=""&gt;&lt;font face="Arial"&gt;&lt;b&gt;&lt;b&gt;Fecha:&lt;/b&gt;&lt;/b&gt;&amp;nbsp;{Format("{0:dd/MM/yyyy}", Fecha)}&lt;/font&gt;&lt;/div&gt;&lt;div style=""&gt;&lt;font face="Arial"&gt;&lt;b&gt;Moneda:&lt;/b&gt; {MonedaAbreviatura}&lt;/font&gt;&lt;/div&gt;&lt;div style=""&gt;&lt;font face="Arial"&gt;&lt;b&gt;Forma de pago: &lt;/b&gt;{FormaPago}&lt;/font&gt;&lt;/div&gt;&lt;div style=""&gt;&lt;font style="" face="Arial"&gt;&lt;b style=""&gt;Método de pago:&lt;/b&gt; {MetodoPago}&lt;/font&gt;&lt;/div&gt;</Text>
<TextBrush>Black</TextBrush>
<TextQuality>Wysiwyg</TextQuality>
<Type>Expression</Type>
</Text5>
<Textbox20 Ref="9" type="Text" isKey="true">
<AllowHtmlTags>True</AllowHtmlTags>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>4.12,0.2,8.22,3.48</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
<Margins>2,2,2,2</Margins>
<Name>Textbox20</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>&lt;div style=""&gt;&lt;font face="Myriad Pro"&gt;&lt;b&gt;Facturado a:&lt;/b&gt;&lt;/font&gt;&lt;/div&gt;&lt;div style=""&gt;&lt;font face="Myriad Pro"&gt;&lt;b&gt;Cliente: &lt;/b&gt;{ClienteCodigo} - {ClienteNombre}&lt;/font&gt;&lt;/div&gt;&lt;div style=""&gt;&lt;font face="Myriad Pro"&gt;&lt;b&gt;RFC: &lt;/b&gt;{ClienteRFC}&lt;/font&gt;&lt;/div&gt;&lt;div style=""&gt;&lt;font face="Myriad Pro"&gt;&lt;b&gt;Colonia:&amp;nbsp;&lt;/b&gt; {ClienteColonia}&lt;/font&gt;&lt;/div&gt;&lt;div style=""&gt;&lt;font face="Myriad Pro"&gt;&lt;b&gt;Ciudad:&lt;/b&gt; {ClienteCiudad} Estado:&amp;nbsp; {ClienteEstado}&lt;/font&gt;&lt;/div&gt;&lt;div style=""&gt;&lt;font face="Myriad Pro"&gt;&lt;b&gt;Municipio y/o Delegación: &lt;/b&gt;{ClienteMunicipio}&amp;nbsp;&lt;/font&gt;&lt;/div&gt;&lt;div style=""&gt;&lt;font face="Myriad Pro"&gt;&lt;b&gt;Pais: &lt;/b&gt;{ClientePais}&amp;nbsp; &amp;nbsp;CP: {ClienteCP}&lt;/font&gt;&lt;/div&gt;</Text>
<TextBrush>Black</TextBrush>
<TextQuality>Wysiwyg</TextQuality>
<Type>Expression</Type>
</Textbox20>
<Textbox32 Ref="10" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,1.35,3.88,2.35</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,6.7,Regular,Point,False,0</Font>
<Margins>2,2,2,2</Margins>
<Name>Textbox32</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>EMPRESA PRUEBA S.A.P.I. DE C.V.
XAXX100114V60
Calle 4 Sur KM 0.5 Miguel Aleman,
C.P. 83344
Hermosillo, Son. México.</Text>
<TextBrush>[0:0:0]</TextBrush>
<Type>Expression</Type>
</Textbox32>
<Textbox40 Ref="11" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,3.72,21.03,1.42</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,6.7,Bold,Point,False,0</Font>
<GrowToHeight>True</GrowToHeight>
<HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox40</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>Expedido en:
{DomicilioSucursal}
Vendedor: {VendedorNombre}</Text>
<TextBrush>Black</TextBrush>
<TextQuality>Wysiwyg</TextQuality>
<Type>Expression</Type>
</Textbox40>
<Text8 Ref="12" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>13,0.4,8,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,11,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>0,0,0,0</Margins>
<Name>Text8</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>COTIZACIÓN</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text8>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>Panel4</Name>
<Page isRef="5" />
<Parent isRef="6" />
</Panel4>
<Panel1 Ref="13" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>0,5.2,21,3.2</ClientRectangle>
<Components isList="true" count="3">
<HeaderBand1 Ref="14" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0.4,21,0.5</ClientRectangle>
<Components isList="true" count="8">
<Textbox23 Ref="15" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0.03,1.4,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox23</Name>
<Page isRef="5" />
<Parent isRef="14" />
<Text>CANT</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox23>
<Textbox17 Ref="16" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>1.4,0.03,1.69,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox17</Name>
<Page isRef="5" />
<Parent isRef="14" />
<Text>UNIDAD</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox17>
<Textbox29 Ref="17" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.09,0.03,1.97,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox29</Name>
<Page isRef="5" />
<Parent isRef="14" />
<Text>CLAVE SAT</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox29>
<Textbox18 Ref="18" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>5.06,0.03,9.08,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox18</Name>
<Page isRef="5" />
<Parent isRef="14" />
<Text>DESCRIPCIÓN </Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox18>
<Textbox8 Ref="19" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>15.6,0.03,1.5,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox8</Name>
<Page isRef="5" />
<Parent isRef="14" />
<Text>DESC.</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox8>
<Textbox2 Ref="20" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17.1,0.03,1.57,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox2</Name>
<Page isRef="5" />
<Parent isRef="14" />
<Text> IVA</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox2>
<Textbox6 Ref="21" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>18.62,0.03,2.51,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox6</Name>
<Page isRef="5" />
<Parent isRef="14" />
<Text>TOTAL</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox6>
<Text1 Ref="22" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>14,0.03,1.7,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Text1</Name>
<Page isRef="5" />
<Parent isRef="14" />
<Text>PU</Text>
<TextBrush>[255:255:255]</TextBrush>
<Type>Expression</Type>
</Text1>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>HeaderBand1</Name>
<Page isRef="5" />
<Parent isRef="13" />
</HeaderBand1>
<DataBand3 Ref="23" type="DataBand" isKey="true">
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<CanShrink>True</CanShrink>
<ClientRectangle>0,1.7,21,0.42</ClientRectangle>
<Components isList="true" count="8">
<Cantidad1 Ref="24" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,1.4,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Cantidad1</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Text>{DtDetalle.Cantidad}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="25" type="CustomFormat" isKey="true">
<StringFormat>n2</StringFormat>
</TextFormat>
</Cantidad1>
<UM Ref="26" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>1.4,0,1.69,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>UM</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Text>{DtDetalle.UMCalculada}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
</UM>
<SATClaveProdServ Ref="27" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.09,0,1.97,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>SATClaveProdServ</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Text>{DtDetalle.SATClaveProdServ}</Text>
<TextBrush>Black</TextBrush>
</SATClaveProdServ>
<PS Ref="28" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
<ClientRectangle>5.06,0,8.88,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>PS</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Text>{DtDetalle.PSCalculado}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
</PS>
<PU Ref="29" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>13.94,0,1.86,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>PU</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Text>{DtDetalle.PU}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="30" type="CustomFormat" isKey="true">
<StringFormat>#,0.00;-#,0.00;'-'</StringFormat>
</TextFormat>
</PU>
<Descuento2 Ref="31" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>15.8,0,1.3,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Descuento2</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Text>{DtDetalle.Descuento}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="32" type="CustomFormat" isKey="true">
<StringFormat>#,0.00;-#,0.00;'-'</StringFormat>
</TextFormat>
</Descuento2>
<ImporteIVA Ref="33" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17.1,0,1.57,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>ImporteIVA</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Text>{DtDetalle.ImporteIVA}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="34" type="CustomFormat" isKey="true">
<StringFormat>#,0.00;-#,0.00;'-'</StringFormat>
</TextFormat>
</ImporteIVA>
<TiempoEntrega Ref="35" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>18.67,0,2.42,0.42</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>TiempoEntrega</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Text>{DtDetalle.Total}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="36" type="CustomFormat" isKey="true">
<StringFormat>#,0.00</StringFormat>
</TextFormat>
<Type>DataColumn</Type>
</TiempoEntrega>
</Components>
<Conditions isList="true" count="0" />
<DataSourceName>DtDetalle</DataSourceName>
<Expressions isList="true" count="0" />
<Filters isList="true" count="0" />
<Name>DataBand3</Name>
<Page isRef="5" />
<Parent isRef="13" />
<Sort isList="true" count="0" />
</DataBand3>
<FooterBand1 Ref="37" type="FooterBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,2.92,21,2.2</ClientRectangle>
<Components isList="true" count="6">
<Panel3 Ref="38" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>15.8,0.38,5.2,0.65</ClientRectangle>
<Components isList="true" count="1">
<DataBand1 Ref="39" type="DataBand" isKey="true">
<Border>None;[247:150:70];1;Solid;False;8;[247:150:70]</Border>
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<ClientRectangle>0,0.4,5.2,0.4</ClientRectangle>
<Components isList="true" count="2">
<Text2 Ref="40" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,1.48,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Text2</Name>
<Page isRef="5" />
<Parent isRef="39" />
<Text>{DtTotales.ImpuestoLocal}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
<VertAlignment>Bottom</VertAlignment>
</Text2>
<Text22 Ref="41" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>1.4,0,3.88,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Text22</Name>
<Page isRef="5" />
<Parent isRef="39" />
<Text>{DtTotales.Importe}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="42" type="NumberFormat" isKey="true">
<DecimalDigits>2</DecimalDigits>
<GroupSeparator>,</GroupSeparator>
<NegativePattern>1</NegativePattern>
<State>DecimalDigits, DecimalSeparator, GroupSeparator, GroupSize</State>
</TextFormat>
<Type>DataColumn</Type>
<VertAlignment>Bottom</VertAlignment>
</Text22>
</Components>
<Conditions isList="true" count="0" />
<DataRelationName isNull="true" />
<DataSourceName>DtTotales</DataSourceName>
<Expressions isList="true" count="0" />
<Filters isList="true" count="0" />
<Name>DataBand1</Name>
<Page isRef="5" />
<Parent isRef="38" />
<Sort isList="true" count="0" />
</DataBand1>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight>
<Name>Panel3</Name>
<Page isRef="5" />
<Parent isRef="37" />
</Panel3>
<Text21 Ref="43" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0.08,21.09,0.14</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Arial,10,Regular,Point,False,0</Font>
<Margins>2,2,2,2</Margins>
<Name>Text21</Name>
<Page isRef="5" />
<Parent isRef="37" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text21>
<Text6 Ref="44" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
<ClientRectangle>5.2,1.48,15.85,0.68</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
<GrowToHeight>True</GrowToHeight>
<HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Text6</Name>
<Page isRef="5" />
<Parent isRef="37" />
<PrintOn>OnlyLastPage</PrintOn>
<Text>{ImporteLetra}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text6>
<Panel2 Ref="45" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0.28,5.2,1</ClientRectangle>
<Components isList="true" count="2">
<HeaderBand2 Ref="46" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0.4,5.2,0.6</ClientRectangle>
<Components isList="true" count="3">
<Textbox25 Ref="47" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,2,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox25</Name>
<Page isRef="5" />
<Parent isRef="46" />
<Text>IMPUESTO</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox25>
<Textbox19 Ref="48" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>2,0,1.47,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox19</Name>
<Page isRef="5" />
<Parent isRef="46" />
<Text>TASA</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox19>
<Textbox33 Ref="49" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.47,0,1.63,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox33</Name>
<Page isRef="5" />
<Parent isRef="46" />
<Text>IMPORTE</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox33>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>HeaderBand2</Name>
<Page isRef="5" />
<Parent isRef="45" />
</HeaderBand2>
<DataBand8 Ref="50" type="DataBand" isKey="true">
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<ClientRectangle>0,1.8,5.2,0</ClientRectangle>
<Components isList="true" count="3">
<Cantidad2 Ref="51" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,2,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Cantidad2</Name>
<Page isRef="5" />
<Parent isRef="50" />
<Text>{DtImpuestos.Impuesto}</Text>
<TextBrush>Black</TextBrush>
</Cantidad2>
<UM2 Ref="52" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>2,0,1.48,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>UM2</Name>
<Page isRef="5" />
<Parent isRef="50" />
<Text>{DtImpuestos.tasa}</Text>
<TextBrush>Black</TextBrush>
</UM2>
<Codigo2 Ref="53" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.48,0,1.62,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Codigo2</Name>
<Page isRef="5" />
<Parent isRef="50" />
<Text>{DtImpuestos.Importe}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="54" type="CustomFormat" isKey="true">
<StringFormat>#,0.00</StringFormat>
</TextFormat>
</Codigo2>
</Components>
<Conditions isList="true" count="0" />
<DataSourceName>DtImpuestos</DataSourceName>
<Expressions isList="true" count="0" />
<Filters isList="true" count="0" />
<Name>DataBand8</Name>
<Page isRef="5" />
<Parent isRef="45" />
<PrintOn>OnlyLastPage</PrintOn>
<Sort isList="true" count="0" />
</DataBand8>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>Panel2</Name>
<Page isRef="5" />
<Parent isRef="37" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel2>
<Text4 Ref="55" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>5.2,0.28,10.6,1</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Regular,Point,False,0</Font>
<Margins>0,0,0,0</Margins>
<Name>Text4</Name>
<Page isRef="5" />
<Parent isRef="37" />
<Text>{Observaciones}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text4>
<Text3 Ref="56" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>16,1.28,5.09,0.14</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Arial,10,Regular,Point,False,0</Font>
<Margins>2,2,2,2</Margins>
<Name>Text3</Name>
<Page isRef="5" />
<Parent isRef="37" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text3>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>FooterBand1</Name>
<Page isRef="5" />
<Parent isRef="13" />
</FooterBand1>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight>
<Name>Panel1</Name>
<Page isRef="5" />
<Parent isRef="6" />
</Panel1>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>PageHeaderBand1</Name>
<Page isRef="5" />
<Parent isRef="5" />
</PageHeaderBand1>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Guid>2ad79495e57741faaae335298d7f673a</Guid>
<Margins>0.25,0.25,0.25,0.25</Margins>
<Name>Page1</Name>
<PageHeight>27.9</PageHeight>
<PageWidth>21.6</PageWidth>
<PaperSize>Letter</PaperSize>
<Report isRef="0" />
</Page1>
</Pages>
<ReferencedAssemblies isList="true" count="8">
<value>System.Dll</value>
<value>System.Drawing.Dll</value>
<value>System.Windows.Forms.Dll</value>
<value>System.Data.Dll</value>
<value>System.Xml.Dll</value>
<value>Stimulsoft.Controls.Dll</value>
<value>Stimulsoft.Base.Dll</value>
<value>Stimulsoft.Report.Dll</value>
</ReferencedAssemblies>
<ReportAlias>Report</ReportAlias>
<ReportChanged>10/11/2022 8:19:37 PM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>F:\Proyectos\Empresas\190\Formatos\Cotizacion.mrt</ReportFile>
<ReportGuid>80fd527d241e4fdc969bde71c8fea59f</ReportGuid>
<ReportName>Report</ReportName>
<ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion>
<Script>using System;
using System.Drawing;
using System.Windows.Forms;
using System.Data;
using Stimulsoft.Controls;
using Stimulsoft.Base.Drawing;
using Stimulsoft.Report;
using Stimulsoft.Report.Dialogs;
using Stimulsoft.Report.Components;
namespace Reports
{
public class Report : Stimulsoft.Report.StiReport
{
public Report() {
this.InitializeComponent();
}
#region StiReport Designer generated code - do not modify
#endregion StiReport Designer generated code - do not modify
}
}
</Script>
<ScriptLanguage>CSharp</ScriptLanguage>
<Styles isList="true" count="0" />
</StiSerializer>

1888
Empresas/189/Formatos/Entradas.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

2020
Empresas/189/Formatos/Factura.mrt Normal file
View File

File diff suppressed because it is too large Load Diff

6576
Empresas/189/Formatos/Nomina.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

6576
Empresas/189/Formatos/Nominao.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

9550
Empresas/189/Formatos/NotaDevolucion.mrt Normal file
View File

File diff suppressed because it is too large Load Diff

2909
Empresas/189/Formatos/OC.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

987
Empresas/189/Formatos/Remision.mrt Normal file
View File

@@ -0,0 +1,987 @@
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<StiSerializer version="1.02" type="Net" application="StiReport">
<Dictionary Ref="1" type="Dictionary" isKey="true">
<BusinessObjects isList="true" count="0" />
<Databases isList="true" count="0" />
<DataSources isList="true" count="3">
<DtTotales Ref="2" type="DataTableSource" isKey="true">
<Alias>DtTotales</Alias>
<Columns isList="true" count="2">
<value>ORIGINAL,ImpuestoLocal,ImpuestoLocal,ImpuestoLocal,System.String,be0185361d3a459f8d76e5f7bf2b8829</value>
<value>ORIGINAL,Importe,Importe,Importe,System.Decimal,a35de5fd4e5f4826810ab0a04fd777c1</value>
</Columns>
<Dictionary isRef="1" />
<Key>56a6beab25fc40cca65df797b073d1ba</Key>
<Name>DtTotales</Name>
<NameInSource>Datos.DtTotales</NameInSource>
</DtTotales>
<DtImpuestos Ref="3" type="DataTableSource" isKey="true">
<Alias>DtImpuestos</Alias>
<Columns isList="true" count="3">
<value>ORIGINAL,Impuesto,Impuesto,Impuesto,System.String,_x0030_77ac1aa8b324fa5961f5bcb60f5dda1</value>
<value>ORIGINAL,tasa,tasa,tasa,System.String,_x0032_373b7a2e2594160801b2ba26336d7cd</value>
<value>ORIGINAL,Importe,Importe,Importe,System.Decimal,bb9558fe79c341e5a936ba07baec5ca3</value>
</Columns>
<Dictionary isRef="1" />
<Key>a48d2e5765a744c893a697263baf8cd5</Key>
<Name>DtImpuestos</Name>
<NameInSource>Datos.DtImpuestos</NameInSource>
</DtImpuestos>
<DtDetalle Ref="4" type="DataTableSource" isKey="true">
<Alias>DtDetalle</Alias>
<Columns isList="true" count="14">
<value>ORIGINAL,Cantidad,Cantidad,Cantidad,System.Decimal,_x0036_78941a04c3f46b7970716cf66453997</value>
<value>ORIGINAL,UM,UM,UM,System.String,c8d8f9e5931440fb91ef44a4b4399655</value>
<value>ORIGINAL,UnidadMedida,UnidadMedida,UnidadMedida,System.String,_x0033_27e8a248b964eb68ec625bfaca4e053</value>
<value>ORIGINAL,PS,PS,PS,System.String,_x0037_15875aa7f2a493498c29c53baf0b342</value>
<value>ORIGINAL,Obs,Obs,Obs,System.String,e57cdff600cc44029435171bc72e1d0a</value>
<value>ORIGINAL,PU,PU,PU,System.Decimal,ac9880590b254b95ad7b28a70ca0fba7</value>
<value>ORIGINAL,Descuento,Descuento,Descuento,System.Decimal,ed45e99f6f574458badc238ea42119a9</value>
<value>ORIGINAL,Total,Total,Total,System.Decimal,_x0038_6d2976b28c94630b575dd7704d88fe0</value>
<value>CALC,UMCalculada,UMCalculada,System.String,_x0028_DtDetalle.UM_x0020__x002B__x0020__x0022_-_x0022__x0020__x002B__x0020_DtDetalle.UnidadMedida_x0029_,_x0035_e8ab97018f44fecb40c0c5ea2fd6ec7</value>
<value>PSCalculado,PSCalculado,System.String,_x0028_DtDetalle.PS_x0020__x002B__x0020_DtDetalle.Obs_x0029_</value>
<value>ImporteIVA,System.Decimal</value>
<value>SATClaveProdServ,System.String</value>
<value>ImporteIEPS,System.Decimal</value>
<value>CodigoObjetoImpuesto,System.String</value>
</Columns>
<Dictionary isRef="1" />
<Key>20e4ae855c2345189166d6029cebb7ac</Key>
<Name>DtDetalle</Name>
<NameInSource>Datos.DtDetalle</NameInSource>
</DtDetalle>
</DataSources>
<Relations isList="true" count="0" />
<Report isRef="0" />
<Resources isList="true" count="0" />
<Variables isList="true" count="78">
<value>ReportParameters,ClienteCodigo,ClienteCodigo,ReportParameter1,System.String,_x0030_2,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0035_4a879e0a10d464ba2f01e0372efb9ca</value>
<value>ReportParameters,ClienteTelefono,ClienteTelefono,ReportParameter1,System.String,,False,False,True,False,,_x0036_22a3a61b2f247a6ab5d7dc6c66568db</value>
<value>ReportParameters,ClienteContacto,ClienteContacto,ReportParameter1,System.String,,False,False,True,False,,_x0035_c52eccfce4d4681a1c62017e690c7c1</value>
<value>ReportParameters,ClienteLugar,ClienteLugar,ReportParameter1,System.String,,False,False,True,False,,_x0031_42cc28c01314727a772cedde21a686f</value>
<value>ReportParameters,ClienteNombre,ClienteNombre,ClienteNombre,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,fc388cb6bbb2402382602a5fe2596c26</value>
<value>ReportParameters,ClienteContactoMail,ClienteContactoMail,ReportParameter1,System.String,,False,False,True,False,,_x0039_1cc1e79f72d4fe6939a23926cf77411</value>
<value>ReportParameters,ClienteCalle,ClienteCalle,ReportParameter1,System.String,,False,False,True,False,,_x0031_3ad5892c1954dadad4e2e7bb73b4219</value>
<value>ReportParameters,ClienteColonia,ClienteColonia,ReportParameter1,System.String,,False,False,True,False,,_x0033_9ba00de7b1b4a159b7b6d354408cdd7</value>
<value>ReportParameters,ClienteCiudad,ClienteCiudad,ReportParameter1,System.String,,False,False,True,False,,e5299b3b0c144480b1faa6425e0ab423</value>
<value>ReportParameters,ClienteMunicipio,ClienteMunicipio,ReportParameter1,System.String,,False,False,True,False,,_x0037_3494711c4a54d0d95fd0a48af0576af</value>
<value>ReportParameters,ClienteEstado,ClienteEstado,ReportParameter1,System.String,,False,False,True,False,,_x0035_0a6ced983964f1a95926fb51519b668</value>
<value>ReportParameters,ClienteCP,ClienteCP,ReportParameter1,System.String,,False,False,True,False,,_x0036_48f4e89c17a4f07a474d638300a0675</value>
<value>ReportParameters,ClientePais,ClientePais,ReportParameter1,System.String,,False,False,True,False,,_x0037_e537c1f68ac43f087e3adec3d4c0d83</value>
<value>ReportParameters,ClienteNoInt,ClienteNoInt,ReportParameter1,System.String,,False,False,True,False,,_x0032_1e8cccfcd53404798752c40cb2869fc</value>
<value>ReportParameters,ClienteNoExt,ClienteNoExt,ReportParameter1,System.String,,False,False,True,False,,a3b4f2a2bfde4daa87dbf99b9e0a972d</value>
<value>ReportParameters,ClienteRFC,ClienteRFC,ReportParameter1,System.String,,False,False,True,False,,b3bcd1e029d14afca68aeb5d8ad2783e</value>
<value>ReportParameters,ImporteLetra,ImporteLetra,ReportParameter1,System.String,,False,False,True,False,,dd591dc3c8614a8198f1c45290288983</value>
<value>ReportParameters,Observaciones,Observaciones,ReportParameter1,System.String,,False,False,True,False,,f22be044d8b241d5a202ceb96435941f</value>
<value>ReportParameters,FechaSolicitud,FechaSolicitud,ReportParameter1,System.String,,False,False,True,False,,c5d4375a6f0f4e0aa46e07305025ebdf</value>
<value>ReportParameters,Folio,Folio,ReportParameter1,System.String,,False,False,True,False,,_x0032_a8d6b8fd9fe45ddad9cec889ffb0aa9</value>
<value>ReportParameters,Descuento,Descuento,ReportParameter1,System.String,,False,False,True,False,,eb1390bb728a466f89d18112fe8b3db4</value>
<value>ReportParameters,SubTotal,SubTotal,ReportParameter1,System.String,,False,False,True,False,,_x0036_bcaf81ce8424a89b7d3956aa40c40ed</value>
<value>ReportParameters,IVA,IVA,ReportParameter1,System.String,,False,False,True,False,,_x0031_00d119655324e9ca84ffe79878d4304</value>
<value>ReportParameters,Total,Total,ReportParameter1,System.String,,False,False,True,False,,e8fd4168b3654bf1a2b62ea35ed7103a</value>
<value>ReportParameters,Fecha,Fecha,ReportParameter1,System.DateTime,_x0031_0_x002F_11_x002F_2022_x0020_3:16:33_x0020_PM,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0036_384255a86084c05b8848c699dbd4f96</value>
<value>ReportParameters,DomicilioSucursal,DomicilioSucursal,ReportParameter1,System.String,,False,False,True,False,,_x0038_6f4e1cb3d214d0cbcdab7dca43830d8</value>
<value>ReportParameters,MetodoPago,MetodoPago,ReportParameter1,System.String,,False,False,True,False,,_x0036_66ed9258e684a23931432e2dfa310c3</value>
<value>ReportParameters,Vencimiento,Vencimiento,ReportParameter1,System.String,,False,False,True,False,,f95b989be9d74a0999d4826d640bd303</value>
<value>ReportParameters,FolioFiscal,FolioFiscal,ReportParameter1,System.String,,False,False,True,False,,b2e9e0bb197a40cfa90ba62b89ce1cee</value>
<value>ReportParameters,FechaCertificacion,FechaCertificacion,ReportParameter1,System.String,,False,False,True,False,,_x0030_d914d56e3e44ae0a1d6153df4137619</value>
<value>ReportParameters,SelloCFDI,SelloCFDI,ReportParameter1,System.String,,False,False,True,False,,af43aa7c375f4569807e097e33cb3022</value>
<value>ReportParameters,CadenaSAT,CadenaSAT,ReportParameter1,System.String,,False,False,True,False,,_x0036_1ad55d011864c8fbe380d1ea2a48f95</value>
<value>ReportParameters,SelloSAT,SelloSAT,ReportParameter1,System.String,,False,False,True,False,,_x0030_cfc6d7bd1d5494ea67c5bfb89d2ed95</value>
<value>ReportParameters,CiudadSucursal,CiudadSucursal,ReportParameter1,System.String,,False,False,True,False,,f2e4e7b1dbd441c2991312754874cd5f</value>
<value>ReportParameters,Serie,Serie,ReportParameter1,System.String,,False,False,True,False,,_x0032_6a275490e0e41cb82172707411b3378</value>
<value>ReportParameters,QR,QR,ReportParameter1,System.String,,False,False,True,False,,c3ebe6227c5344c081273320eea2340b</value>
<value>ReportParameters,FormaPago,FormaPago,ReportParameter1,System.String,,False,False,True,False,,_x0034_e90c2046e0a4b529fada5a1f7dd7998</value>
<value>ReportParameters,LogoPath,LogoPath,ReportParameter1,System.String,,False,False,True,False,,_x0035_7226cd5b04f486d89f112c567578b6f</value>
<value>ReportParameters,VendedorNombre,VendedorNombre,ReportParameter1,System.String,,False,False,True,False,,c1562dbbc00b4fe58dd867b518c72d87</value>
<value>ReportParameters,VendedorCelular,VendedorCelular,ReportParameter1,System.String,,False,False,True,False,,_x0031_2dff9e7058b4109b1a6b62f6894e7cf</value>
<value>ReportParameters,VendedorMail,VendedorMail,ReportParameter1,System.String,,False,False,True,False,,_x0037_a52233d37ce413f807ec9edf924f8de</value>
<value>ReportParameters,VendedorTelefono,VendedorTelefono,ReportParameter1,System.String,,False,False,True,False,,_x0031_9b75a9a7c4c4f919b96c4df59c75fcc</value>
<value>ReportParameters,Moneda,Moneda,ReportParameter1,System.String,,False,False,True,False,,e14dcea0493745fc8e0bfc12262b9a5b</value>
<value>ReportParameters,TipoCambio,TipoCambio,ReportParameter1,System.String,,False,False,True,False,,_x0035_9528246124b44b7811606bc8cd2f834</value>
<value>ReportParameters,CondicionPago,CondicionPago,ReportParameter1,System.String,,False,False,True,False,,_x0030_ab25e66a5414c79975c9a34cc3dd7b4</value>
<value>ReportParameters,CadenaOriginal,CadenaOriginal,ReportParameter1,System.String,,False,False,True,False,,b29aaa8ee8d34180a0e09c3b2a675b7f</value>
<value>ReportParameters,SerieCertificadoSAT,SerieCertificadoSAT,ReportParameter1,System.String,,False,False,True,False,,_x0039_845ccadef6345bf91d05a8c6614ecbf</value>
<value>ReportParameters,Tipo,Tipo,ReportParameter1,System.String,,False,False,True,False,,_x0032_d1a04ac5e10483a9b02ad310f535f36</value>
<value>ReportParameters,CertificadoContribuyente,CertificadoContribuyente,ReportParameter1,System.String,,False,False,True,False,,_x0037_87eed3027fd4e4abed1281c55fad45e</value>
<value>ReportParameters,Amortizacion,Amortizacion,ReportParameter1,System.String,,False,False,True,False,,bb17c8b20d4842e6b3c5b8e918ac4ca5</value>
<value>ReportParameters,SubTotal2,SubTotal2,ReportParameter1,System.String,,False,False,True,False,,_x0034_48020e8b547499286161fe7da78bea7</value>
<value>ReportParameters,RetIVA,RetIVA,ReportParameter1,System.String,,False,False,True,False,,f4287451b2e4419c8337f47cad4b52b8</value>
<value>ReportParameters,RetISR,RetISR,ReportParameter1,System.String,,False,False,True,False,,_x0036_1354c921b424786bd669532657fbf82</value>
<value>ReportParameters,TipoDocumento,TipoDocumento,ReportParameter1,System.String,,False,False,True,False,,d52431e03ce8449eb799b4ef4bd7520a</value>
<value>ReportParameters,AplicaPagare,AplicaPagare,ReportParameter1,System.String,,False,False,True,False,,_x0031_2e84f644ed04a99bc95aa972f3d9013</value>
<value>ReportParameters,Sucursal,Sucursal,ReportParameter1,System.String,,False,False,True,False,,_x0037_29489ee8b234760b67da57f386260fc</value>
<value>ReportParameters,ClienteDiasCredito,ClienteDiasCredito,ReportParameter1,System.Nullable`1[System.Int32],_x0030_,False,False,True,False,,_x0039_09a35ecbc9f47018426fdbc4ca87efd</value>
<value>ReportParameters,MonedaAbreviatura,MonedaAbreviatura,ReportParameter1,System.String,,False,False,True,False,,_x0033_2ec6d5b13ed45cf839fa6dd02b57a16</value>
<value>ReportParameters,UsuarioImprimio,UsuarioImprimio,ReportParameter1,System.String,,False,False,True,False,,d73084b529fe467f874908a8f83c6638</value>
<value>ReportParameters,FechaImpresion,FechaImpresion,ReportParameter1,System.String,,False,False,True,False,,_x0038_107585f125a40efb1427b414bdbd8b1</value>
<value>ReportParameters,EnvioDireccion,EnvioDireccion,ReportParameter1,System.String,,False,False,True,False,,df93202647634a47b13099b4d529dded</value>
<value>ReportParameters,EnvioColonia,EnvioColonia,ReportParameter1,System.String,,False,False,True,False,,f5e4dca9af71426099b9378e69cf576b</value>
<value>ReportParameters,EnvioCiudad,EnvioCiudad,ReportParameter1,System.String,,False,False,True,False,,_x0038_7b32f6e07f8448d93360f4cc1e6176f</value>
<value>ReportParameters,EnvioEstado,EnvioEstado,ReportParameter1,System.String,,False,False,True,False,,ba8a551aeede44b5b8035258d5b8eca4</value>
<value>ReportParameters,EnvioCP,EnvioCP,ReportParameter1,System.String,,False,False,True,False,,f1c3b334a36b418c9bcfc31c5246aa3c</value>
<value>ReportParameters,EnvioNoExt,EnvioNoExt,ReportParameter1,System.String,,False,False,True,False,,_x0030_878b61991f0487087b7f19a697e47f9</value>
<value>ReportParameters,EnvioNoInt,EnvioNoInt,ReportParameter1,System.String,,False,False,True,False,,_x0034_5fb312fd30343589bb1e0b1464dbb95</value>
<value>ReportParameters,EnvioContacto,EnvioContacto,ReportParameter1,System.String,,False,False,True,False,,_x0039_a53131d8fef43a4aa42801eb9ba8eb2</value>
<value>ReportParameters,EnvioDepartamento,EnvioDepartamento,ReportParameter1,System.String,,False,False,True,False,,f21d6f47d0184310a3311d3552af8549</value>
<value>ReportParameters,EstatusFactura,EstatusFactura,ReportParameter1,System.String,,False,False,True,False,,_x0032_a0839c2f82b4c5f8604000f8fdfb9b6</value>
<value>ReportParameters,EstatusEntrega,EstatusEntrega,ReportParameter1,System.String,,False,False,True,False,,_x0034_7da8d86bd4c439d9642b22e6573d424</value>
<value>ReportParameters,PedidoContrato,PedidoContrato,ReportParameter1,System.String,,False,False,True,False,,d1e0af1cece14faf9222cab2d02cf26d</value>
<value>ReportParameters,DescripcionContrato,DescripcionContrato,ReportParameter1,System.String,,False,False,True,False,,_x0030_9c47a410e0d4f9ea10571ab84f6fba1</value>
<value>ReportParameters,OrdenCompra,OrdenCompra,ReportParameter1,System.String,,False,False,True,False,,_x0034_3f593025b554c65b6eca2af30a99f20</value>
<value>ReportParameters,UsoCFDI,UsoCFDI,ReportParameter1,System.String,,False,False,True,False,,_x0036_63f72b22aa841c7848ad9bb60221c5e</value>
<value>ReportParameters,TipoRelacionTexto,TipoRelacionTexto,ReportParameter1,System.String,,False,False,True,False,,_x0034_17b8382f8e448a5b21018e50590835b</value>
<value>ReportParameters,FolioFiscalRelacionado,FolioFiscalRelacionado,ReportParameter1,System.String,,False,False,True,False,,_x0037_0c2d36e39d1464d821ac353ccaa2dcd</value>
<value>ReportParameters,ClienteDireccion,ClienteDireccion,ReportParameter1,System.String,,False,False,True,False,,f18e5fd820754666994a9d3f995d50a7</value>
</Variables>
</Dictionary>
<EngineVersion>EngineV2</EngineVersion>
<GlobalizationStrings isList="true" count="0" />
<Key>061210194497442389366cf90b752a56</Key>
<MetaTags isList="true" count="0" />
<Pages isList="true" count="1">
<Page1 Ref="5" type="Page" isKey="true">
<Border>None;Black;2;Solid;False;4;Black</Border>
<Brush>Transparent</Brush>
<Components isList="true" count="1">
<PageHeaderBand1 Ref="6" type="PageHeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0.4,21.1,5.4</ClientRectangle>
<Components isList="true" count="2">
<Panel4 Ref="7" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0,21,5.2</ClientRectangle>
<Components isList="true" count="10">
<Text5 Ref="8" type="Text" isKey="true">
<AllowHtmlTags>True</AllowHtmlTags>
<Brush>Transparent</Brush>
<ClientRectangle>13,1.2,8,2.8</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>0,0,0,0</Margins>
<Name>Text5</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>&lt;b&gt;Fecha:&lt;/b&gt; {Format("{0:dd/MM/yyyy}", Fecha)}&amp;nbsp;&lt;div&gt;&lt;b&gt;Moneda:&lt;/b&gt; {MonedaAbreviatura}&lt;/div&gt;&lt;div&gt;&lt;b&gt;Forma de Pago:&lt;/b&gt; {FormaPago}&amp;nbsp;&lt;/div&gt;&lt;div&gt;&lt;b&gt;Método de Pago:&lt;/b&gt; {MetodoPago}
&lt;/div&gt;</Text>
<TextBrush>Black</TextBrush>
<TextQuality>Wysiwyg</TextQuality>
<Type>Expression</Type>
</Text5>
<Textbox20 Ref="9" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>4.12,0.2,8.22,3.48</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
<Margins>2,2,2,2</Margins>
<Name>Textbox20</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>Facturado a:
Cliente: {ClienteCodigo} - {ClienteNombre}
RFC: {ClienteRFC}
Colonia: {ClienteColonia}
Ciudad: {ClienteCiudad} Estado: {ClienteEstado}
Municipio y/o Delegación: {ClienteMunicipio}
Pais: {ClientePais} CP: {ClienteCP}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Textbox20>
<Textbox32 Ref="10" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,1.35,3.88,2.35</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,6.7,Regular,Point,False,0</Font>
<Margins>2,2,2,2</Margins>
<Name>Textbox32</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>EMPRESA PRUEBAS.A.P.I. DE C.V.
XAXX100114V60
Calle 4 Sur KM 0.5 Miguel Aleman,
C.P. 83344
Hermosillo, Son. México.</Text>
<TextBrush>[0:0:0]</TextBrush>
<Type>Expression</Type>
</Textbox32>
<Textbox40 Ref="11" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,3.72,21.03,1.42</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,6.7,Bold,Point,False,0</Font>
<GrowToHeight>True</GrowToHeight>
<HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox40</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>Expedido en:
{DomicilioSucursal}
Vendedor: {VendedorNombre}</Text>
<TextBrush>Black</TextBrush>
<TextQuality>Wysiwyg</TextQuality>
<Type>Expression</Type>
</Textbox40>
<Text8 Ref="12" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>13,0.4,8,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,11,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>0,0,0,0</Margins>
<Name>Text8</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>REMISIÓN</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text8>
<Text9 Ref="13" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>16.6,0.8,1.6,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>0,0,0,0</Margins>
<Name>Text9</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>Serie:</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text9>
<Text10 Ref="14" type="Text" isKey="true">
<AutoWidth>True</AutoWidth>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>18.2,0.8,1,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,10,Bold,Point,False,0</Font>
<Margins>0,0,0,0</Margins>
<Name>Text10</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>{Serie}</Text>
<TextBrush>[255:0:0]</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text10>
<Text11 Ref="15" type="Text" isKey="true">
<AllowHtmlTags>True</AllowHtmlTags>
<Brush>Transparent</Brush>
<ClientRectangle>19,0.8,1,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>0,0,0,0</Margins>
<Name>Text11</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>&lt;b&gt;Folio:&lt;/b&gt;</Text>
<TextBrush>Black</TextBrush>
<TextQuality>Wysiwyg</TextQuality>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text11>
<Text12 Ref="16" type="Text" isKey="true">
<AutoWidth>True</AutoWidth>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>20,0.8,1,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,10,Bold,Point,False,0</Font>
<Margins>0,0,0,0</Margins>
<Name>Text12</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>{Folio}</Text>
<TextBrush>[255:0:0]</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text12>
<Text14 Ref="17" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>16.6,0.8,1.6,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>0,0,0,0</Margins>
<Name>Text14</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>Serie:</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text14>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>Panel4</Name>
<Page isRef="5" />
<Parent isRef="6" />
</Panel4>
<Panel1 Ref="18" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>0,5.2,21,3.2</ClientRectangle>
<Components isList="true" count="3">
<HeaderBand1 Ref="19" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0.4,21,0.5</ClientRectangle>
<Components isList="true" count="8">
<Textbox23 Ref="20" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0.03,1.4,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox23</Name>
<Page isRef="5" />
<Parent isRef="19" />
<Text>CANT</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox23>
<Textbox17 Ref="21" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>1.4,0.03,1.69,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox17</Name>
<Page isRef="5" />
<Parent isRef="19" />
<Text>UNIDAD</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox17>
<Textbox29 Ref="22" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.09,0.03,1.97,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox29</Name>
<Page isRef="5" />
<Parent isRef="19" />
<Text>CLAVE SAT</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox29>
<Textbox18 Ref="23" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>5.06,0.03,9.08,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox18</Name>
<Page isRef="5" />
<Parent isRef="19" />
<Text>DESCRIPCIÓN </Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox18>
<Textbox8 Ref="24" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>15.6,0.03,1.5,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox8</Name>
<Page isRef="5" />
<Parent isRef="19" />
<Text>DESC.</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox8>
<Textbox2 Ref="25" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17.1,0.03,1.57,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox2</Name>
<Page isRef="5" />
<Parent isRef="19" />
<Text> IVA</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox2>
<Textbox6 Ref="26" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>18.62,0.03,2.51,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox6</Name>
<Page isRef="5" />
<Parent isRef="19" />
<Text>TOTAL</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox6>
<Text1 Ref="27" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>14,0.03,1.7,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Text1</Name>
<Page isRef="5" />
<Parent isRef="19" />
<Text>PU</Text>
<TextBrush>[255:255:255]</TextBrush>
<Type>Expression</Type>
</Text1>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>HeaderBand1</Name>
<Page isRef="5" />
<Parent isRef="18" />
</HeaderBand1>
<DataBand3 Ref="28" type="DataBand" isKey="true">
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<CanShrink>True</CanShrink>
<ClientRectangle>0,1.7,21,0.42</ClientRectangle>
<Components isList="true" count="8">
<Cantidad1 Ref="29" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,1.4,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Cantidad1</Name>
<Page isRef="5" />
<Parent isRef="28" />
<Text>{DtDetalle.Cantidad}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="30" type="CustomFormat" isKey="true">
<StringFormat>n2</StringFormat>
</TextFormat>
</Cantidad1>
<UM Ref="31" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>1.4,0,1.69,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>UM</Name>
<Page isRef="5" />
<Parent isRef="28" />
<Text>{DtDetalle.UMCalculada}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
</UM>
<SATClaveProdServ Ref="32" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.09,0,1.97,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>SATClaveProdServ</Name>
<Page isRef="5" />
<Parent isRef="28" />
<Text>{DtDetalle.SATClaveProdServ}</Text>
<TextBrush>Black</TextBrush>
</SATClaveProdServ>
<PS Ref="33" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>5.06,0,8.88,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>PS</Name>
<Page isRef="5" />
<Parent isRef="28" />
<Text>{DtDetalle.PSCalculado}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
</PS>
<PU Ref="34" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>13.94,0,1.86,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>PU</Name>
<Page isRef="5" />
<Parent isRef="28" />
<Text>{DtDetalle.PU}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="35" type="CustomFormat" isKey="true">
<StringFormat>#,0.00;-#,0.00;'-'</StringFormat>
</TextFormat>
</PU>
<Descuento2 Ref="36" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>15.8,0,1.3,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Descuento2</Name>
<Page isRef="5" />
<Parent isRef="28" />
<Text>{DtDetalle.Descuento}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="37" type="CustomFormat" isKey="true">
<StringFormat>#,0.00;-#,0.00;'-'</StringFormat>
</TextFormat>
</Descuento2>
<ImporteIVA Ref="38" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17.1,0,1.57,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>ImporteIVA</Name>
<Page isRef="5" />
<Parent isRef="28" />
<Text>{DtDetalle.ImporteIVA}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="39" type="CustomFormat" isKey="true">
<StringFormat>#,0.00;-#,0.00;'-'</StringFormat>
</TextFormat>
</ImporteIVA>
<TiempoEntrega Ref="40" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>18.87,0,2.22,0.42</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>TiempoEntrega</Name>
<Page isRef="5" />
<Parent isRef="28" />
<Text>{DtDetalle.Total}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="41" type="CustomFormat" isKey="true">
<StringFormat>#,0.00</StringFormat>
</TextFormat>
<Type>DataColumn</Type>
</TiempoEntrega>
</Components>
<Conditions isList="true" count="0" />
<DataSourceName>DtDetalle</DataSourceName>
<Expressions isList="true" count="0" />
<Filters isList="true" count="0" />
<Name>DataBand3</Name>
<Page isRef="5" />
<Parent isRef="18" />
<Sort isList="true" count="0" />
</DataBand3>
<FooterBand1 Ref="42" type="FooterBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,2.92,21,2.2</ClientRectangle>
<Components isList="true" count="5">
<Panel3 Ref="43" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>15.8,0.38,5.2,0.65</ClientRectangle>
<Components isList="true" count="1">
<DataBand1 Ref="44" type="DataBand" isKey="true">
<Border>None;[247:150:70];1;Solid;False;8;[247:150:70]</Border>
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<ClientRectangle>0,0.4,5.2,0.4</ClientRectangle>
<Components isList="true" count="3">
<Text2 Ref="45" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,1.48,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Text2</Name>
<Page isRef="5" />
<Parent isRef="44" />
<Text>{DtTotales.ImpuestoLocal}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
<VertAlignment>Bottom</VertAlignment>
</Text2>
<Text22 Ref="46" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>1.4,0,3.88,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Text22</Name>
<Page isRef="5" />
<Parent isRef="44" />
<Text>{DtTotales.Importe}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="47" type="NumberFormat" isKey="true">
<DecimalDigits>2</DecimalDigits>
<GroupSeparator>,</GroupSeparator>
<NegativePattern>1</NegativePattern>
<State>DecimalDigits, DecimalSeparator, GroupSeparator, GroupSize</State>
</TextFormat>
<Type>DataColumn</Type>
<VertAlignment>Bottom</VertAlignment>
</Text22>
<Text3 Ref="48" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0.2,0.3,5.09,0.14</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Arial,10,Regular,Point,False,0</Font>
<Margins>2,2,2,2</Margins>
<Name>Text3</Name>
<Page isRef="5" />
<Parent isRef="44" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text3>
</Components>
<Conditions isList="true" count="0" />
<DataRelationName isNull="true" />
<DataSourceName>DtTotales</DataSourceName>
<Expressions isList="true" count="0" />
<Filters isList="true" count="0" />
<Name>DataBand1</Name>
<Page isRef="5" />
<Parent isRef="43" />
<Sort isList="true" count="0" />
</DataBand1>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight>
<Name>Panel3</Name>
<Page isRef="5" />
<Parent isRef="42" />
</Panel3>
<Text21 Ref="49" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0.08,21.09,0.14</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Arial,10,Regular,Point,False,0</Font>
<Margins>2,2,2,2</Margins>
<Name>Text21</Name>
<Page isRef="5" />
<Parent isRef="42" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text21>
<Text6 Ref="50" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
<ClientRectangle>5.2,1.28,15.85,0.88</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
<GrowToHeight>True</GrowToHeight>
<HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Text6</Name>
<Page isRef="5" />
<Parent isRef="42" />
<PrintOn>OnlyLastPage</PrintOn>
<Text>{ImporteLetra}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text6>
<Panel2 Ref="51" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0.28,5.2,1</ClientRectangle>
<Components isList="true" count="2">
<HeaderBand2 Ref="52" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0.4,5.2,0.6</ClientRectangle>
<Components isList="true" count="3">
<Textbox25 Ref="53" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,2,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox25</Name>
<Page isRef="5" />
<Parent isRef="52" />
<Text>IMPUESTO</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox25>
<Textbox19 Ref="54" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>2,0,1.47,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox19</Name>
<Page isRef="5" />
<Parent isRef="52" />
<Text>TASA</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox19>
<Textbox33 Ref="55" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.47,0,1.63,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox33</Name>
<Page isRef="5" />
<Parent isRef="52" />
<Text>IMPORTE</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox33>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>HeaderBand2</Name>
<Page isRef="5" />
<Parent isRef="51" />
</HeaderBand2>
<DataBand8 Ref="56" type="DataBand" isKey="true">
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<ClientRectangle>0,1.8,5.2,0</ClientRectangle>
<Components isList="true" count="3">
<Cantidad2 Ref="57" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,2,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Cantidad2</Name>
<Page isRef="5" />
<Parent isRef="56" />
<Text>{DtImpuestos.Impuesto}</Text>
<TextBrush>Black</TextBrush>
</Cantidad2>
<UM2 Ref="58" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>2,0,1.48,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>UM2</Name>
<Page isRef="5" />
<Parent isRef="56" />
<Text>{DtImpuestos.tasa}</Text>
<TextBrush>Black</TextBrush>
</UM2>
<Codigo2 Ref="59" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.48,0,1.62,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Codigo2</Name>
<Page isRef="5" />
<Parent isRef="56" />
<Text>{DtImpuestos.Importe}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="60" type="CustomFormat" isKey="true">
<StringFormat>#,0.00</StringFormat>
</TextFormat>
</Codigo2>
</Components>
<Conditions isList="true" count="0" />
<DataSourceName>DtImpuestos</DataSourceName>
<Expressions isList="true" count="0" />
<Filters isList="true" count="0" />
<Name>DataBand8</Name>
<Page isRef="5" />
<Parent isRef="51" />
<PrintOn>OnlyLastPage</PrintOn>
<Sort isList="true" count="0" />
</DataBand8>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>Panel2</Name>
<Page isRef="5" />
<Parent isRef="42" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel2>
<Text4 Ref="61" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>5.2,0.28,10.6,1</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Regular,Point,False,0</Font>
<Margins>0,0,0,0</Margins>
<Name>Text4</Name>
<Page isRef="5" />
<Parent isRef="42" />
<Text>{Observaciones}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text4>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>FooterBand1</Name>
<Page isRef="5" />
<Parent isRef="18" />
</FooterBand1>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight>
<Name>Panel1</Name>
<Page isRef="5" />
<Parent isRef="6" />
</Panel1>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>PageHeaderBand1</Name>
<Page isRef="5" />
<Parent isRef="5" />
</PageHeaderBand1>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Guid>2ad79495e57741faaae335298d7f673a</Guid>
<Margins>0.25,0.25,0.25,0.25</Margins>
<Name>Page1</Name>
<PageHeight>27.9</PageHeight>
<PageWidth>21.6</PageWidth>
<PaperSize>Letter</PaperSize>
<Report isRef="0" />
</Page1>
</Pages>
<ReferencedAssemblies isList="true" count="8">
<value>System.Dll</value>
<value>System.Drawing.Dll</value>
<value>System.Windows.Forms.Dll</value>
<value>System.Data.Dll</value>
<value>System.Xml.Dll</value>
<value>Stimulsoft.Controls.Dll</value>
<value>Stimulsoft.Base.Dll</value>
<value>Stimulsoft.Report.Dll</value>
</ReferencedAssemblies>
<ReportAlias>Report</ReportAlias>
<ReportChanged>10/11/2022 8:18:55 PM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>F:\Proyectos\Empresas\190\Formatos\Remision.mrt</ReportFile>
<ReportGuid>44d6cdde93e94b2a982c65e0dfb6f93c</ReportGuid>
<ReportName>Report</ReportName>
<ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion>
<Script>using System;
using System.Drawing;
using System.Windows.Forms;
using System.Data;
using Stimulsoft.Controls;
using Stimulsoft.Base.Drawing;
using Stimulsoft.Report;
using Stimulsoft.Report.Dialogs;
using Stimulsoft.Report.Components;
namespace Reports
{
public class Report : Stimulsoft.Report.StiReport
{
public Report() {
this.InitializeComponent();
}
#region StiReport Designer generated code - do not modify
#endregion StiReport Designer generated code - do not modify
}
}
</Script>
<ScriptLanguage>CSharp</ScriptLanguage>
<Styles isList="true" count="0" />
</StiSerializer>

30
Empresas/193/Formatos/OC.rdlc
View File

@@ -2839,6 +2839,36 @@
<Nullable>true</Nullable> <Nullable>true</Nullable>
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="PlazoPago">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntrega">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntregaDir">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RFC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Telefono">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>

4522
Empresas/7/Formatos/OC.rdlc
View File

File diff suppressed because it is too large Load Diff

30
Empresas/83/Formatos/OC.rdlc
View File

@@ -3663,6 +3663,36 @@
<Nullable>true</Nullable> <Nullable>true</Nullable>
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="PlazoPago">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntrega">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyectoEntregaDir">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RFC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Telefono">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>

6
Empresas/Grales/Formatos/CFDIV3.rdlc
View File

@@ -2022,7 +2022,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Cadena original del complemento de cretificación del SAT:</Value> <Value>Cadena original del complemento de certificación del SAT:</Value>
<Style> <Style>
<FontFamily>arial</FontFamily> <FontFamily>arial</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -2086,6 +2086,7 @@
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>4</ColSpan> <ColSpan>4</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell /> <TablixCell />
@@ -2226,7 +2227,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>RFC del proveedor de cretificación:</Value> <Value>RFC del proveedor de certificación:</Value>
<Style> <Style>
<FontFamily>arial</FontFamily> <FontFamily>arial</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -4647,7 +4648,6 @@
<PaddingBottom>1pt</PaddingBottom> <PaddingBottom>1pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>

15
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -963,16 +963,12 @@ Partial Class Inventarios_EntradasSalidas
HdnIdPoliza.Value = Mov.IDPoliza.ToString HdnIdPoliza.Value = Mov.IDPoliza.ToString
HplImprimir.Visible = True HplImprimir.Visible = True
HplImprimir.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) HplImprimir.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
HplImprimirResumen.Visible = True HplImprimirResumen.Visible = True
HplImprimirResumen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Almr&CveMovimiento={0}", CveMovimiento))) HplImprimirResumen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Almr&CveMovimiento={0}", CveMovimiento)))
CveCompra = Mov.CveCompra CveCompra = Mov.CveCompra
CveConcepto = Mov.CveConcepto CveConcepto = Mov.CveConcepto
If drM("CveEstatusTimbrado").ToString.ToEntero > 0 Then If drM("CveEstatusTimbrado").ToString.ToEntero > 0 Then
HplDescargaXml.Visible = True HplDescargaXml.Visible = True
HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", drM("TimbreSerieFolio"), drM("TimbreTipoDocto")))) HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", drM("TimbreSerieFolio"), drM("TimbreTipoDocto"))))
@@ -987,20 +983,18 @@ Partial Class Inventarios_EntradasSalidas
HplCartaPorte.Visible = True HplCartaPorte.Visible = True
HplCartaPorte.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimiento))) HplCartaPorte.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimiento)))
End If End If
If UsuarioActual.CveRol = 1 Then If UsuarioActual.CveRol = 1 Then
LnkGenerarPDF.Visible = True LnkGenerarPDF.Visible = True
End If End If
End If End If
If CveConcepto.Contiene(26, 27) Then
LnkAgregarProducto.Visible = False ' si es traspaso no se debe permitir agregar
End If
If CveConcepto.Contiene(3, 8) Then If CveConcepto.Contiene(3, 8) Then
LiLnkGuias.Visible = True LiLnkGuias.Visible = True
End If End If
If Mov.IDPoliza > 0 Then HplPoliza.Visible = True : HplPoliza.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", Mov.IDPoliza) If Mov.IDPoliza > 0 Then HplPoliza.Visible = True : HplPoliza.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", Mov.IDPoliza)
If CveConcepto = 6 Or CveConcepto = 7 Then If CveConcepto = 6 Or CveConcepto = 7 Then
@@ -2541,6 +2535,7 @@ Partial Class Inventarios_EntradasSalidas
DivDepartamentoEntrega.Visible = False DivDepartamentoEntrega.Visible = False
TxtDepartamentoEntrega.Text = "" TxtDepartamentoEntrega.Text = ""
TxtPedidoContrato.Text = "" TxtPedidoContrato.Text = ""
txtPrecio.Enabled = True
Select Case CveConcepto Select Case CveConcepto
Case "1", "2", "22", "32", "33" ' ENTRADAS Case "1", "2", "22", "32", "33" ' ENTRADAS
@@ -2588,6 +2583,7 @@ Partial Class Inventarios_EntradasSalidas
TrProveedor.Visible = True TrProveedor.Visible = True
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind() DdlProveedor.DataBind()
txtPrecio.Enabled = False
Case Else Case Else
TrSubProyecto.Visible = False TrSubProyecto.Visible = False
@@ -5414,6 +5410,7 @@ Partial Class Inventarios_EntradasSalidas
limpiarModalDetalle() limpiarModalDetalle()
UpAgregar.Update() UpAgregar.Update()
RegistraScript("$('#ModalAgregar').modal()") RegistraScript("$('#ModalAgregar').modal()")
If DdlConcepto.SelectedValue = "28" Then txtPrecio.Text = "0.00" 'préstamo proveedor
End Sub End Sub
Private Sub ActualizarPS() Private Sub ActualizarPS()

7
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -2776,6 +2776,7 @@ Partial Class Inventarios_TraspasoAlmacen
Try Try
PdfFactura(ObjTimbres.ObjFactura) PdfFactura(ObjTimbres.ObjFactura)
ObjTimbres.ObjFactura.Inv_CveMovimiento = CveMovimientoTimbrado
Catch ex As Exception Catch ex As Exception
End Try End Try
@@ -2795,7 +2796,11 @@ Partial Class Inventarios_TraspasoAlmacen
If ChkEmitirCartaPorte.Checked Then If ChkEmitirCartaPorte.Checked Then
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", CveTimbre))) MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", CveTimbre)))
Else Else
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Traslado</a></li></ul>", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimientoTimbrado))) If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Traslado</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}&CVETIMBRE={4}", CveMovimientoTimbrado, "PDF", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto, CveTimbre)))
Else
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Traslado</a></li></ul>", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimientoTimbrado)))
End If
End If End If
Else Else

2
Nomina/Nomina.aspx.cs
View File

@@ -10704,7 +10704,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
StringBuilder SbErrores = new StringBuilder(); StringBuilder SbErrores = new StringBuilder();
bool ErroresValidaciones = false; bool ErroresValidaciones = false;
int modalidadnomina = 1; int modalidadnomina = 1;
if (UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197)) modalidadnomina = 2; if (UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197, 172, 173, 174)) modalidadnomina = 2;
SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout:<br/>"); SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout:<br/>");

632
OC/OC.aspx
View File

File diff suppressed because it is too large Load Diff

213
OC/OC.aspx.vb
View File

@@ -7,6 +7,7 @@ Imports System.IO
Imports Extensiones Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports Newtonsoft.Json Imports Newtonsoft.Json
Imports Telerik.Web.Apoc
Partial Class OC_OC Partial Class OC_OC
Inherits ClsPaginas Inherits ClsPaginas
@@ -45,6 +46,24 @@ Partial Class OC_OC
ViewState("ModalidadSubProyectoGeneral") = value ViewState("ModalidadSubProyectoGeneral") = value
End Set End Set
End Property End Property
Private Property NotificacionCorreo As Boolean
Get
Return If(IsNothing(ViewState("NotificacionCorreo")), True, CBool(ViewState("NotificacionCorreo")))
End Get
Set(value As Boolean)
ViewState("NotificacionCorreo") = value
End Set
End Property
Private Property VisualizaContrato As Boolean
Get
Return If(IsNothing(ViewState("VisualizaContrato")), False, CBool(ViewState("VisualizaContrato")))
End Get
Set(ByVal value As Boolean)
ViewState("VisualizaContrato") = value
End Set
End Property
Private Property TipoOC As String Private Property TipoOC As String
Get Get
If ViewState("TipoOC") Is Nothing Then If ViewState("TipoOC") Is Nothing Then
@@ -213,8 +232,6 @@ Partial Class OC_OC
Else Else
Return ViewState("NumCotizaciones").ToString.ToEntero Return ViewState("NumCotizaciones").ToString.ToEntero
End If End If
End Get End Get
Set(value As Integer) Set(value As Integer)
ViewState("NumCotizaciones") = value ViewState("NumCotizaciones") = value
@@ -646,6 +663,9 @@ Partial Class OC_OC
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing
NotificacionCorreo = True
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then NotificacionCorreo = False
CargaDatosAgregarPS() CargaDatosAgregarPS()
CveProveedorOriginal = -1 CveProveedorOriginal = -1
InventarioPrePoliza176 = 0 InventarioPrePoliza176 = 0
@@ -679,7 +699,7 @@ Partial Class OC_OC
DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"}) DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
DdlSubProyectoGral.DataBind() DdlSubProyectoGral.DataBind()
DdlSubProyectoGral.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlSubProyectoGral.Items.Insert(0, New ListItem("-", "-1"))
DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto) DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
ModalidadSubProyectoGeneral = True ModalidadSubProyectoGeneral = True
TdProyectoSubPrpyectoDdl.Visible = False TdProyectoSubPrpyectoDdl.Visible = False
@@ -704,12 +724,11 @@ Partial Class OC_OC
CargaDatos(CveOrdenCompra) CargaDatos(CveOrdenCompra)
ConfiguraRetencionesProveedor() ConfiguraRetencionesProveedor()
Else Else
LIContratos.Visible = True LIContratos.Visible = VisualizaContrato
DivmodalContrato.Visible = VisualizaContrato
EsNuevo = True EsNuevo = True
InicializarValores() InicializarValores()
HlAgregarExcel.Visible = True HlAgregarExcel.Visible = True
LbDescargarExcel.Visible = True
TxtDescrip.Attributes.Add("onKeyUp", String.Format("SetText({0}, {1})", TxtDescrip.ClientID, TxtJustificacion.ClientID)) TxtDescrip.Attributes.Add("onKeyUp", String.Format("SetText({0}, {1})", TxtDescrip.ClientID, TxtJustificacion.ClientID))
CreaDTDetalles() CreaDTDetalles()
@@ -793,7 +812,8 @@ Partial Class OC_OC
'End If 'End If
BtnGeneraContrato.Visible = True : CargaClientesContrato() 'BtnGeneraContrato.Visible = True
'CargaClientesContrato()
CargaEstatusInicialFinal() CargaEstatusInicialFinal()
CargaEstatusUsuarios() CargaEstatusUsuarios()
@@ -1020,19 +1040,50 @@ Partial Class OC_OC
TrDescuentoProntoPago.Visible = True TrDescuentoProntoPago.Visible = True
End If End If
If UsuarioActual.Empresa.CveEmpresa = 189 AndAlso CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then If UsuarioActual.Empresa.CveEmpresa = 189 AndAlso CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then
BtnEdicionMasiva.Visible = True BtnEdicionMasiva.Visible = True
End If End If
If CveOrdenCompra > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" OrElse UsuarioActual.CveRol = 1 Then
LnkDescargarPSExcel.Visible = True
End If
MostrarUsuarioAsignado()
ValidaCancelacionConAlamcen()
Me.Form.DefaultButton = ""
If CveOrdenCompra > 0 Then
GvD.Columns(20).Visible = False
Else
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
TxtCant.Text = "1"
TxtCant.Focus()
RegistraScript("abrirDdlPS();", "A1")
UPPDetalle.Update()
End If
End If
End If End If
MostrarUsuarioAsignado() 'FIX - no funcionan los eventos despues de hacer postback
RegistraScript("recargaEventos();", "E1")
ValidaCancelacionConAlamcen() End Sub
Protected Sub OrdenarGvPS(ByVal sender As Object, ByVal e As EventArgs)
Me.Form.DefaultButton = "" For Each row As GridViewRow In GvD.Rows
DtDetalle.Rows(row.RowIndex)("Orden") = row.FCTextBox("TxtOrden").Text.ToEntero()
Next
Dim resultados = From OrdenDT In DtDetalle
Order By OrdenDT("Orden").ToString().ToEntero()
Select OrdenDT
DtDetalle = resultados.CopyToDataTable
GvD.DataSource = DtDetalle
GvD.DataBind()
UPPDetalle.Update()
End Sub End Sub
@@ -1265,7 +1316,11 @@ Partial Class OC_OC
DtDetalle.Columns.Add("CveTipoGastoObra", GetType(Integer)) DtDetalle.Columns.Add("CveTipoGastoObra", GetType(Integer))
DtDetalle.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer)) DtDetalle.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
DtDetalle.Columns.Add("Cuadro", GetType(String)) DtDetalle.Columns.Add("Cuadro", GetType(String))
DtDetalle.Columns.Add("Orden", GetType(Integer))
DtDetalle.Columns.Add("CodPS", GetType(String))
DtDetalle.Columns.Add("Producto", GetType(String))
DtDetalle.Columns.Add("NumeroParte", GetType(String))
'DtDetalle.Columns.Add("CveOrdenCompraDetalle", GetType(Integer)) 'DtDetalle.Columns.Add("CveOrdenCompraDetalle", GetType(Integer))
' DtDetalle.Columns.Add("ClasificacionOG", GetType(String)) ' DtDetalle.Columns.Add("ClasificacionOG", GetType(String))
@@ -1396,9 +1451,9 @@ Partial Class OC_OC
Dim dts As DataRow = DT.FiltraParametros("CveSubProyecto = " + tCveSubProyecto.ToString).FiltroPrimero("") Dim dts As DataRow = DT.FiltraParametros("CveSubProyecto = " + tCveSubProyecto.ToString).FiltroPrimero("")
If dts IsNot Nothing Then If dts IsNot Nothing Then
ViewState("CveFolio") = dts("CveFolio").ToString.ToEntero ViewState("CveFolio") = dts("CveFolio").ToString.ToEntero
If UsuarioActual.CveEmpresa = 189 Then If ModalidadSubProyectoGeneral Then
lblFolio.Text = dts("Serie").ToString + " " + dts("FActual").ToString lblFolio.Text = dts("Serie").ToString + "-" + dts("FActual").ToString
SerieFolio = dts("Serie").ToString + " " + dts("FActual").ToString SerieFolio = dts("Serie").ToString + "-" + dts("FActual").ToString
Else Else
lblFolio.Text = TipoOC + " " + dts("FActual").ToString lblFolio.Text = TipoOC + " " + dts("FActual").ToString
SerieFolio = dts("FActual").ToString SerieFolio = dts("FActual").ToString
@@ -1409,7 +1464,7 @@ Partial Class OC_OC
lblFolio.Text = TipoOC + " " + DT.Rows(0)("FActual").ToString lblFolio.Text = TipoOC + " " + DT.Rows(0)("FActual").ToString
SerieFolio = DT.Rows(0)("FActual").ToString SerieFolio = DT.Rows(0)("FActual").ToString
Else Else
Alert("No tiene registrados Folios en esta sucursal.", TipoMensaje.MsgAdvertencia) Alert("No tiene registrados folios en esta sucursal.", TipoMensaje.MsgAdvertencia)
End If End If
DT.Dispose() DT.Dispose()
@@ -1467,7 +1522,6 @@ Partial Class OC_OC
TieneInventario = CBool(objOC.DtResultados.Rows(0)("TieneInvOC")) TieneInventario = CBool(objOC.DtResultados.Rows(0)("TieneInvOC"))
DdlMetodoPago.SelectedValueExist(objOC.DtResultados.Rows(0)("MetodoPago")) DdlMetodoPago.SelectedValueExist(objOC.DtResultados.Rows(0)("MetodoPago"))
If objOC.DtResultados.Rows(0)("CveSubProyectoEntrega").ToString.ToEntero > 0 Then If objOC.DtResultados.Rows(0)("CveSubProyectoEntrega").ToString.ToEntero > 0 Then
DdlSubProyectoEntrega.SelectedValueExist(objOC.DtResultados.Rows(0)("CveSubProyectoEntrega").ToString) DdlSubProyectoEntrega.SelectedValueExist(objOC.DtResultados.Rows(0)("CveSubProyectoEntrega").ToString)
txtLugarEntrega.Visible = False txtLugarEntrega.Visible = False
@@ -1782,7 +1836,7 @@ Partial Class OC_OC
CboE.DataBind() CboE.DataBind()
End If End If
If objOC.GetOrdenesDetalle(pCveOrdenCompra, UsuarioActual.cveempresa) Then If objOC.GetOrdenesDetalle(pCveOrdenCompra, UsuarioActual.CveEmpresa) Then
DtDetalle = objOC.DtResultados DtDetalle = objOC.DtResultados
End If End If
@@ -2255,6 +2309,7 @@ Partial Class OC_OC
CboUM.DataSource = GlobalDTProductosServiciosEquivalencias(Cvepsgvd, -1, UsuarioActual.CveEmpresa) CboUM.DataSource = GlobalDTProductosServiciosEquivalencias(Cvepsgvd, -1, UsuarioActual.CveEmpresa)
CboUM.DataBind() CboUM.DataBind()
End If End If
End Sub End Sub
Protected Sub LbVerInventario_Click(sender As Object, e As EventArgs) Handles LbVerInventario.Click Protected Sub LbVerInventario_Click(sender As Object, e As EventArgs) Handles LbVerInventario.Click
RegistraScript(String.Format("AbrirVentana('/Inventarios/PopUpExistenciasAlmacen.aspx?CvePS={0}',800,547,'N');", DdlP2.SelectedValue)) RegistraScript(String.Format("AbrirVentana('/Inventarios/PopUpExistenciasAlmacen.aspx?CvePS={0}',800,547,'N');", DdlP2.SelectedValue))
@@ -2321,15 +2376,17 @@ Partial Class OC_OC
ObjOC.Dispose() ObjOC.Dispose()
End If End If
End If End If
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
txtPrecioUnitario.Focus()
UPPDetalle.Update()
End If
End Sub End Sub
#End Region #End Region
#Region " AGREGAR " #Region " AGREGAR "
Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
'VALIDA CVEPS 'VALIDA CVEPS
If DdlP2.SelectedValue().ToEntero <= 0 Then If DdlP2.SelectedValue().ToEntero <= 0 Then
Alert("El campo <b>'Producto/Servicio'</b> es necesario, por favor seleccione uno.", TipoMensaje.MsgAdvertencia) Alert("El campo <b>'Producto/Servicio'</b> es necesario, por favor seleccione uno.", TipoMensaje.MsgAdvertencia)
@@ -2342,9 +2399,6 @@ Partial Class OC_OC
Exit Sub Exit Sub
End If End If
'Valida cantidad en contrato 'Valida cantidad en contrato
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
Dim dttemp As New DataTable ' GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString)) Dim dttemp As New DataTable ' GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
@@ -2508,6 +2562,7 @@ Partial Class OC_OC
dr("CveTipoGastoObra") = CveTipoGastoObra dr("CveTipoGastoObra") = CveTipoGastoObra
dr("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle dr("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle
dr("Cuadro") = If(CveCultivoCuadroDetalle > 0, Cuadro, "") dr("Cuadro") = If(CveCultivoCuadroDetalle > 0, Cuadro, "")
dr("Orden") = DtDetalle.Rows.Count + 1
DtDetalle.Rows.Add(dr) DtDetalle.Rows.Add(dr)
DtDetalle.AcceptChanges() DtDetalle.AcceptChanges()
@@ -2921,7 +2976,7 @@ Partial Class OC_OC
If Not TieneError Then If Not TieneError Then
CveOCGeneradas.Add(CveOrdenCompra) CveOCGeneradas.Add(CveOrdenCompra)
FolioOCGeneradas.Add(OC.Folio) FolioOCGeneradas.Add(OC.Folio)
SerieFolio = OC.Folio.ToString SerieFolio = OC.SerieFolio.ToString
End If End If
End If End If
@@ -2971,8 +3026,6 @@ Partial Class OC_OC
TieneError = True TieneError = True
End If End If
If CveOrdenTrabajo > 0 Then If CveOrdenTrabajo > 0 Then
Dim ObjAF As New ClsAF(OC.IniciaTransacSQL) Dim ObjAF As New ClsAF(OC.IniciaTransacSQL)
@@ -2981,9 +3034,6 @@ Partial Class OC_OC
End If End If
End If End If
End If End If
@@ -3019,7 +3069,7 @@ Partial Class OC_OC
End If End If
End If End If
ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, Folio), "") ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, SerieFolio), "")
If CveOrdenCompra > 0 Then If CveOrdenCompra > 0 Then
Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Orden de Compra</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra))) Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Orden de Compra</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)))
@@ -3599,7 +3649,7 @@ Partial Class OC_OC
'End If 'End If
If Not HuboError Then If Not HuboError Then
LigaOcsTemp = String.Format("{0}<br><a href='/OC/OC.aspx?OC={1}'>{2}</a>", LigaOcsTemp, objOrdenCompra.CveOrdenCompra, objOrdenCompra.Folio) LigaOcsTemp = String.Format("{0}<br><a href='/OC/OC.aspx?OC={1}'>{2}</a>", LigaOcsTemp, objOrdenCompra.CveOrdenCompra, objOrdenCompra.SerieFolio)
CveOCGeneradasTemp.Add(objOrdenCompra.CveOrdenCompra) CveOCGeneradasTemp.Add(objOrdenCompra.CveOrdenCompra)
FolioOCGeneradasTemp.Add(objOrdenCompra.Folio) FolioOCGeneradasTemp.Add(objOrdenCompra.Folio)
End If End If
@@ -3694,7 +3744,7 @@ Partial Class OC_OC
If HuboError = False Then If HuboError = False Then
ViewState("LigaOCs") = String.Format("{0}<br><a href='/OC/OC.aspx?OC={1}'>{2}</a>", LigaOCs, objOrdenCompra.CveOrdenCompra, objOrdenCompra.Folio) ViewState("LigaOCs") = String.Format("{0}<br><a href='/OC/OC.aspx?OC={1}'>{2}</a>", LigaOCs, objOrdenCompra.CveOrdenCompra, objOrdenCompra.SerieFolio)
CveOCGeneradas.Add(objOrdenCompra.CveOrdenCompra) CveOCGeneradas.Add(objOrdenCompra.CveOrdenCompra)
FolioOCGeneradas.Add(objOrdenCompra.Folio) FolioOCGeneradas.Add(objOrdenCompra.Folio)
End If End If
@@ -4019,6 +4069,10 @@ Partial Class OC_OC
e.Row.FCLiteral("LtlSubProyecto").Text = Str e.Row.FCLiteral("LtlSubProyecto").Text = Str
End If End If
End If End If
If e.Row.DBCampo("Descuento").ToDecimal > 0 Then
Dim Desc As Decimal = e.Row.DBCampo("Descuento").ToDecimal
e.Row.FCLiteral("LtlDescuento").Text = String.Format("{0}<br/><p style ='font-style: italic; font-size: 10px;'>{1}%</p>", Desc.FormatoNumero, (Desc / (e.Row.DBCampo("Cantidad").ToDecimal * e.Row.DBCampo("Importe").ToDecimal) * 100.0).FormatoNumero)
End If
e.Row.Cells(0).ToolTip = e.Row.DBCampo("CvePresupuestoEgreso") e.Row.Cells(0).ToolTip = e.Row.DBCampo("CvePresupuestoEgreso")
'comente esta linea, RMF: 2015.04.20 'comente esta linea, RMF: 2015.04.20
@@ -4036,29 +4090,24 @@ Partial Class OC_OC
'CveAFVinculado 'CveAFVinculado
e.Row.FCLiteral("LitMaq").Text = String.Format("<a class='Texto' href='../AF/AF.aspx?CveActivoFijo={0}'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("CodigoAF")) e.Row.FCLiteral("LitMaq").Text = String.Format("<a class='Texto' href='../AF/AF.aspx?CveActivoFijo={0}'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("CodigoAF"))
'CveCompraDetalle Vinculada 'CveCompraDetalle Vinculada
Dim ObjOC As New ClsOC If e.Row.DBCampo("CveCompra") <> "" Then
If ObjOC.GetOCVinculadasPendientes(e.Row.DBCampo("CveOrdenCompraDetalle").ToEntero) Then If e.Row.DBCampo("NumComprasVinculadas").ToEntero = 1 Then
If ObjOC.DtResultados.Rows.Count = 1 Then e.Row.FCLiteral("LtlCompra").Text = String.Format("<a class='Texto' target='_blank' href='../Compras/Compras.aspx?CveCompra={0}'>{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("FolioCompra"))
e.Row.FCLiteral("LtlCompra").Text = String.Format("<a class='Texto' target='_blank' href='../Compras/Compras.aspx?CveCompra={0}'>{1}</a>", ObjOC.DtResultados.FiltroPrimeroValor("CveCompra"), e.Row.DBCampo("FolioCompra"))
LblCompra.Visible = True LblCompra.Visible = True
GvD.Columns(14).Visible = True GvD.Columns(14).Visible = True
ElseIf ObjOC.DtResultados.Rows.Count > 1 Then Else
LblCompra.Visible = True LblCompra.Visible = True
e.Row.FCLiteral("LtlCompra").Visible = False e.Row.FCLiteral("LtlCompra").Visible = False
e.Row.FCLinkButton("LnkCompra").Visible = True e.Row.FCLinkButton("LnkCompra").Visible = True
e.Row.FCLinkButton("LnkCompra").Enabled = True e.Row.FCLinkButton("LnkCompra").Enabled = True
'e.Row.FCLinkButton("LnkCompra").CausesValidation = False
'e.Row.FCLinkButton("LnkCompra").OnClientClick = "return true;" 'return true;
e.Row.FCLinkButton("LnkCompra").CommandArgument = e.Row.DBCampo("CveOrdenCompraDetalle") e.Row.FCLinkButton("LnkCompra").CommandArgument = e.Row.DBCampo("CveOrdenCompraDetalle")
GvD.Columns(14).Visible = True GvD.Columns(14).Visible = True
Else
e.Row.FCLiteral("LtlCompra").Text = ""
LblCompra.Visible = True
End If End If
Else
e.Row.FCLiteral("LtlCompra").Text = ""
LblCompra.Visible = True
End If End If
ObjOC.Dispose()
'CargaPresupuestosEgresos 'CargaPresupuestosEgresos
If UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaAC Then
@@ -6279,6 +6328,9 @@ Partial Class OC_OC
End If End If
End Sub End Sub
Protected Sub EnviarCorreoCambioEstatus(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True, Optional AsuntoMail As String = "") Protected Sub EnviarCorreoCambioEstatus(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True, Optional AsuntoMail As String = "")
If Not NotificacionCorreo Then Exit Sub
Dim strOpciones As New StringBuilder Dim strOpciones As New StringBuilder
If CveUsuario = -1 Or Not CBool(GlobalDTUsuarios(CveUsuario, CveEmpresa:=CveEmpresaActual).FiltroPrimeroValor("Estatus")) Then If CveUsuario = -1 Or Not CBool(GlobalDTUsuarios(CveUsuario, CveEmpresa:=CveEmpresaActual).FiltroPrimeroValor("Estatus")) Then
CveUsuario = UsuarioActual.CveUsuario CveUsuario = UsuarioActual.CveUsuario
@@ -6380,6 +6432,7 @@ Partial Class OC_OC
#Region " ENVIAR CORREO USUARIO ASIGNADO " #Region " ENVIAR CORREO USUARIO ASIGNADO "
Protected Sub MandaCorreoUsuario(Para As String, CorreosCCP As String, CorreosCCPNombre As List(Of String), Optional NotificarAlert As Boolean = True) Protected Sub MandaCorreoUsuario(Para As String, CorreosCCP As String, CorreosCCPNombre As List(Of String), Optional NotificarAlert As Boolean = True)
If Not NotificacionCorreo Then Exit Sub
Dim strOpciones As New StringBuilder Dim strOpciones As New StringBuilder
Dim Body As String = GeneraCorreo(CveOrdenCompra, "") 'strOpciones.ToString) 'genero los datos de la OC Dim Body As String = GeneraCorreo(CveOrdenCompra, "") 'strOpciones.ToString) 'genero los datos de la OC
@@ -6401,6 +6454,7 @@ Partial Class OC_OC
End Sub End Sub
Protected Sub CorreoUsuarioAsignado(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True) Protected Sub CorreoUsuarioAsignado(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True)
If Not NotificacionCorreo Then Exit Sub
If CBool(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("Estatus").ToString) Then If CBool(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("Estatus").ToString) Then
'Dim CorreosCCP As New List(Of String) 'Dim CorreosCCP As New List(Of String)
Dim StrCorreos As New StringBuilder Dim StrCorreos As New StringBuilder
@@ -6438,6 +6492,7 @@ Partial Class OC_OC
#Region " enviarCorreoOrdenDeCompra " #Region " enviarCorreoOrdenDeCompra "
Protected Sub EnviarCorreoOrdenCompra(CveOrdenCompra As Integer) Protected Sub EnviarCorreoOrdenCompra(CveOrdenCompra As Integer)
If Not NotificacionCorreo Then Exit Sub
Dim CveProveedor As Integer Dim CveProveedor As Integer
Dim strOpciones As New StringBuilder Dim strOpciones As New StringBuilder
@@ -6462,6 +6517,7 @@ Partial Class OC_OC
#End Region #End Region
Private Function GeneraCorreo(CveOrdenCompra As Integer, Opciones As String, Optional IncluirDetalles As Boolean = True, Optional Bitacora As String = "", Optional LigaAdjunto As String = "") As String Private Function GeneraCorreo(CveOrdenCompra As Integer, Opciones As String, Optional IncluirDetalles As Boolean = True, Optional Bitacora As String = "", Optional LigaAdjunto As String = "") As String
If Not NotificacionCorreo Then Return ""
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
Dim objOC As New ClsOC Dim objOC As New ClsOC
@@ -6578,6 +6634,7 @@ Partial Class OC_OC
Return strBody.ToString Return strBody.ToString
End Function End Function
Private Function GeneraCorreoProveedor(CveOrdenCompra As Integer, ByRef CveProveedor As Integer) As String Private Function GeneraCorreoProveedor(CveOrdenCompra As Integer, ByRef CveProveedor As Integer) As String
If Not NotificacionCorreo Then Return ""
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
Dim objOC As New ClsOC Dim objOC As New ClsOC
@@ -6901,8 +6958,12 @@ Partial Class OC_OC
SubProyecto = DrProyecto("SubProyecto").ToString SubProyecto = DrProyecto("SubProyecto").ToString
End If End If
Else Else
CveProyecto = -1 If ModalidadSubProyectoGeneral Then
CveSubProyecto = -1 CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
Else
CveProyecto = -1
CveSubProyecto = -1
End If
End If End If
If Codigo.Length > 0 Then If Codigo.Length > 0 Then
@@ -7005,7 +7066,7 @@ Partial Class OC_OC
Return StrReturn Return StrReturn
End Function End Function
Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click, LbDescargarExcel.Click Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoOC.xlsx" Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoOC.xlsx"
Dim Archivo As New IO.FileInfo(Directorio) Dim Archivo As New IO.FileInfo(Directorio)
If Archivo.Exists Then If Archivo.Exists Then
@@ -7122,7 +7183,6 @@ Partial Class OC_OC
BtnCancelarPrevio.Visible = False BtnCancelarPrevio.Visible = False
BtnCrearApartirDe.Visible = False BtnCrearApartirDe.Visible = False
uppSeguimientoEstatus.Update() uppSeguimientoEstatus.Update()
UPProv.Update() UPProv.Update()
UPPEmp.Update() UPPEmp.Update()
@@ -7204,7 +7264,6 @@ Partial Class OC_OC
CargarOptionAnticipos() CargarOptionAnticipos()
HlAgregarExcel.Visible = True HlAgregarExcel.Visible = True
LbDescargarExcel.Visible = True
CargaEstatusInicialFinal() CargaEstatusInicialFinal()
CargaEstatusUsuarios() CargaEstatusUsuarios()
@@ -7250,8 +7309,8 @@ Partial Class OC_OC
BtnSolicitudAnticipo.Visible = False BtnSolicitudAnticipo.Visible = False
HlAgregarExcel.Visible = True HlAgregarExcel.Visible = True
LbDescargarExcel.Visible = True 'BtnGeneraContrato.Visible = True
BtnGeneraContrato.Visible = True : CargaClientesContrato() CargaClientesContrato()
LbVerificarExistencia.Visible = True LbVerificarExistencia.Visible = True
LnkAgregarGuia.Visible = False LnkAgregarGuia.Visible = False
@@ -7731,8 +7790,8 @@ Partial Class OC_OC
Private Function ValidarDescuentos() As Boolean Private Function ValidarDescuentos() As Boolean
Dim Retorno As Boolean = True Dim Retorno As Boolean = True
Dim DescuentoConceptos As Decimal = DtDetalle.SUMD("Descuento") Dim DescuentoConceptos As Decimal = DtDetalle.SUMD("Descuento").RoundSQL
Dim DescuentoGeneral As Decimal = TxtDescuento.Text.ToDecimal Dim DescuentoGeneral As Decimal = TxtDescuento.Text.ToDecimal.RoundSQL
If DescuentoConceptos <> DescuentoGeneral Then If DescuentoConceptos <> DescuentoGeneral Then
Alert(String.Format("Los descuentos no cuadran. Por favor de verificar.({0}-{1})", DescuentoConceptos, DescuentoGeneral), TipoMensaje.MsgAdvertencia) Alert(String.Format("Los descuentos no cuadran. Por favor de verificar.({0}-{1})", DescuentoConceptos, DescuentoGeneral), TipoMensaje.MsgAdvertencia)
@@ -9394,6 +9453,8 @@ Partial Class OC_OC
Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue) DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
DdlSubProyectoEntrega.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
UPPLugarEntrega.Update()
UPPDetalle.Update() UPPDetalle.Update()
CargaFolios() CargaFolios()
End Sub End Sub
@@ -9588,6 +9649,50 @@ Partial Class OC_OC
End Function End Function
Protected Sub LnkDescargarPSExcel_Click(sender As Object, e As EventArgs)
Dim DtExcel As DataTable = (From row As GridViewRow In GvD.Rows.Cast(Of GridViewRow)
Where row.RowType = DataControlRowType.DataRow
Select New With
{
.Codigo = row.DataKey("CodPS"),
.CodigoProveedor = row.DataKey("NumeroParte"),
.Cantidad = row.DataKey("Cantidad").ToDecimal(),
.PU = row.DataKey("Importe").ToDecimal(),
.Descuento = row.DataKey("Descuento").ToDecimal(),
.PS = row.DataKey("Producto")
}).QueryToDataTable(True)
DtExcel.TableName = "OC"
DtExcel.Columns("Codigo").ColumnName = "Código"
DtExcel.Columns("CodigoProveedor").ColumnName = "Código de proveedor"
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim FileExcel As New ExcelFile()
Dim worksheet As ExcelWorksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
{
.ColumnHeaders = True,
.StartRow = 0,
.StartColumn = 0
})
worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
worksheet.Columns(2).Style.NumberFormat = "#,##0.00"
worksheet.Columns(3).Style.NumberFormat = "$#,##0.00_);($#,##0.00)"
worksheet.Columns(4).Style.NumberFormat = "$#,##0.00_);($#,##0.00)"
Dim columnCount As Integer = worksheet.CalculateMaxUsedColumns()
For i As Integer = 0 To columnCount
worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
Next
FileExcel.Save(Response, $"OC_{CveOrdenCompra}.xlsx", SaveOptions.XlsxDefault)
End Sub
End Class End Class

3
RH/Personal.aspx
View File

@@ -2200,7 +2200,8 @@
<asp:ListItem Text="Infonavit (Porcentaje)" Value="5001"></asp:ListItem> <asp:ListItem Text="Infonavit (Porcentaje)" Value="5001"></asp:ListItem>
<asp:ListItem Text="Infonavit (Factor Descuento)" Value="5002"></asp:ListItem> <asp:ListItem Text="Infonavit (Factor Descuento)" Value="5002"></asp:ListItem>
<asp:ListItem Text="Infonavit (Cuota Fija)" Value="5003"></asp:ListItem> <asp:ListItem Text="Infonavit (Cuota Fija)" Value="5003"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija por período)" Value="5004"></asp:ListItem> <asp:ListItem Text="Infonavit(Cuota Fija por período)" Value="5004"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija (Mensual)" Value="5005"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div> </div>

5
Sistemas/CatContrasenia.aspx
View File

@@ -35,6 +35,11 @@
<asp:TextBox ID="TxtContrasenia1" runat="server" TextMode="Password"></asp:TextBox> <asp:TextBox ID="TxtContrasenia1" runat="server" TextMode="Password"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVContrasenia" runat="server" ErrorMessage="Contraseña Vacía" <asp:RequiredFieldValidator ID="RFVContrasenia" runat="server" ErrorMessage="Contraseña Vacía"
ControlToValidate="TxtContrasenia1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> ControlToValidate="TxtContrasenia1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<br />
<ajaxToolkit:PasswordStrength ID="ps1" runat="server"
TargetControlID="TxtContrasenia1" RequiresUpperAndLowerCaseCharacters="true"
MinimumNumericCharacters="1" MinimumSymbolCharacters="1"
StrengthIndicatorType="Text" />
</th> </th>
</tr> </tr>
<tr> <tr>

44
Transportes/RepContratoDetalle.aspx
View File

@@ -152,20 +152,19 @@
</div> </div>
</div> </div>
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4"> <label class="col-md-4">
<asp:Label runat="server" ID="LblSubProyectoModal"></asp:Label> <asp:Label runat="server" ID="LblSubProyectoModal"></asp:Label>
</label> </label>
<div class="col-md-8"> <div class="col-md-8">
<asp:DropDownList runat="server" ID="DdlSubProyecto" Width="100%" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline select2me"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlSubProyecto" Width="100%" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline select2me"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." Display="None" <asp:RequiredFieldValidator ID="RfvDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." Display="None"
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
<div class="input-group"> <div class="input-group">
</div>
</div> </div>
</div>
<div class="row"> <div class="row">
<label class="col-md-4">Servicio</label> <label class="col-md-4">Servicio</label>
@@ -381,17 +380,18 @@
<div class="row" runat="server" visible="false" id="DVFactura"> <div class="row" runat="server" visible="false" id="DVFactura">
<label class="col-md-2">Factura: </label> <label class="col-md-2">Factura: </label>
<div class="col-md-2"> <div class="col-md-3">
<asp:HyperLink runat="server" Text="" Target="_blank" id="HypRemision" CssClass="Texto"></asp:HyperLink> <asp:HyperLink runat="server" Text="" Target="_blank" id="HypRemision" CssClass="Texto"></asp:HyperLink>
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label runat="server" ID="LblSaldo"></asp:Label> <asp:Label runat="server" ID="LblSaldo"></asp:Label>
</div> </div>
</div> </div>
<br />
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" ShowFooter="true" <asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" ShowFooter="true"
DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal,TipoReferencia" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal,TipoReferencia"
EmptyDataText="No se encontraron pagos" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None" EmptyDataText="No se encontraron pagos" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None"
@@ -461,10 +461,10 @@
<div class="portlet-body rowpadding"> <div class="portlet-body rowpadding">
<div class="row"> <div class="row">
<div class="col-md-12" style="text-align: center;"> <div class="col-md-12" style="text-align: center;">
<asp:UpdatePanel ID="UPAFUL" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPAFUL" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:HyperLink target="_blank" runat="server" ID="BtnDescargar" class="btn btn-warning" Visible="false"><i class='fa fa-download' aria-hidden='true'></i> Descargar</asp:HyperLink> <asp:HyperLink Target="_blank" runat="server" ID="BtnDescargar" class="btn btn-warning" Visible="false"><i class='fa fa-download' aria-hidden='true'></i> Descargar</asp:HyperLink>
<asp:TextBox Style="display: none" ID="TxtArchivo" ClientIDMode="Static" runat="server" <asp:TextBox Style="display: none" ID="TxtArchivo" ClientIDMode="Static" runat="server"
Width="200px"></asp:TextBox> Width="200px"></asp:TextBox>
@@ -473,11 +473,9 @@
<i class="fa fa-upload" <i class="fa fa-upload"
aria-hidden="true"></i>Subir Archivo</button> aria-hidden="true"></i>Subir Archivo</button>
</ContentTemplate> </ContentTemplate>
<Triggers>
</Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</div> </div>
</div> </div>
@@ -1147,6 +1145,7 @@
</div> </div>
</div> </div>
</div> </div>
</div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<%--Modal subir archivo--%> <%--Modal subir archivo--%>
@@ -1220,6 +1219,7 @@
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<asp:Button ID="BtnGuardarEventoBitacora" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" /> <asp:Button ID="BtnGuardarEventoBitacora" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>

8
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -620,15 +620,19 @@ Partial Class RepContratoDetalle
If Not ErrorProceso Then If Not ErrorProceso Then
ObjContratos.Commit() ObjContratos.Commit()
ObjContratos.Dispose()
AgregarABitacora($"Actualización del contrato {CveContrato}") AgregarABitacora($"Actualización del contrato {CveContrato}")
CargaDatos()
Alert("Contrato actualizado correctamente") Alert("Contrato actualizado correctamente")
Else Else
Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError) Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
ObjContratos.RollBack() ObjContratos.RollBack()
End If End If
ObjContratos.Dispose()
If Not ErrorProceso Then
'CargaDatos()
End If
End Sub End Sub
Private Function UpdateRemision(ByRef transaccionSql As SqlTransaction, CveSubProyectoNew As Integer, CveMonedaNew As Integer, TotalNew As Decimal, DescripcionNew As String) As Boolean Private Function UpdateRemision(ByRef transaccionSql As SqlTransaction, CveSubProyectoNew As Integer, CveMonedaNew As Integer, TotalNew As Decimal, DescripcionNew As String) As Boolean

2
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -182,7 +182,7 @@ Partial Class RepContratosCalendario
'strData.Append($",new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})") 'strData.Append($",new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})")
'RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})"});", "A1") 'RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})"});", "A1")
RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date(2024,09,5)"});", "A1") ' RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date(2024,09,5)"});", "A1")
UPScheduler.Update() UPScheduler.Update()

42
Ventas/ProductosServicios.aspx.vb
View File

@@ -3266,7 +3266,7 @@ Partial Class ProductosyServicios
HabilitaAplicaCaducidadTiempo() HabilitaAplicaCaducidadTiempo()
End Sub End Sub
Private Sub HabilitaAplicaCaducidadTiempo() Private Sub HabilitaAplicaCaducidadTiempo()
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then If UsuarioActual.CveEmpresa.Contiene(119, 158, 199) Then
DivTiempoCaducidad.Visible = ChkCaducidad.Checked DivTiempoCaducidad.Visible = ChkCaducidad.Checked
RfvTxtTiempoCaducidad.Enabled = ChkCaducidad.Checked RfvTxtTiempoCaducidad.Enabled = ChkCaducidad.Checked
End If End If
@@ -3349,25 +3349,33 @@ Partial Class ProductosyServicios
Else Else
If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero()
If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
(TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
EsPaquete, DdlSATPS.SelectedValue.ToEntero, CveEmpresaFranquicia, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia,
AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked,
VentaMinima:=TxtVentaMinima.Text.ToDecimal, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario,
CveClasificacionDetalle:=CveTipo, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=CveModelo,
CveMedida:=CveMedida, CveRinTamaño:=CveRin, ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero,
ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString,
AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked,
TiempoCaducidad:=TxtTiempoCaducidad.Text.ToEntero()) Then
Return True
If ObjPS.DtResultados IsNot Nothing AndAlso ObjPS.DtResultados.Rows.Count = 1 Then
Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero()
If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
(TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
EsPaquete, DdlSATPS.SelectedValue.ToEntero, CveEmpresaFranquicia, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia,
AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked,
VentaMinima:=TxtVentaMinima.Text.ToDecimal, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario,
CveClasificacionDetalle:=CveTipo, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=CveModelo,
CveMedida:=CveMedida, CveRinTamaño:=CveRin, ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero,
ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString,
AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked,
TiempoCaducidad:=TxtTiempoCaducidad.Text.ToEntero()) Then
Return True
End If
Else
Alert(String.Format("El producto no existe en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
Return True
End If End If
Else Else
Alert(String.Format("El producto no existe en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia) Alert(String.Format("Se presento un error al consultar la existencia en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
Return True Return True
End If End If
End If End If

1
Ventas/Promociones.aspx.vb
View File

@@ -855,6 +855,7 @@ Partial Class Ventas_Promociones
If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
If Not ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1) Then If Not ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1) Then
TieneError = True TieneError = True
CvePromocion = -1
End If End If
End If End If

211
Ventas/RepProductosServiciosPeriodo.aspx
View File

@@ -375,14 +375,18 @@
</div> </div>
</div> </div>
<div class="portlet-body"> <div class="portlet-body">
<div id="chartdiv" style="text-align: center;height:600px!important">
</div>
<div id="div_ventas" runat="server" style="text-align: center;"> <div id="div_ventas" runat="server" style="text-align: center;">
<img src="/Metronic/assets/admin/layout/img/loading.gif" alt="loading" /> <%--<img src="/Metronic/assets/admin/layout/img/loading.gif" alt="loading" />--%>
</div> </div>
</div> </div>
</div> </div>
<!-- END REGIONAL STATS PORTLET--> <!-- END REGIONAL STATS PORTLET-->
</div> </div>
</div> </div>
</asp:Content> </asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script> <script>
@@ -396,50 +400,51 @@
</script> </script>
<script type="text/javascript"> <script type="text/javascript">
function CargaGrafica() { } //function CargaGrafica() { }
function CargaGrafica3() { } //function CargaGrafica3() { }
function filldata() { //function filldata() {
// CargaGrafica();
// CargaGrafica3();
// if ($('#C_DivIndicadores')) {
// $('#C_DivIndicadores').slick({
// lazyLoad: 'ondemand',
// slidesToShow: 3,
// slidesToScroll: 1,
// dots: true,
// infinite: true,
// autoplay: true,
// autoplaySpeed: 5000,
// responsive: [
// {
// breakpoint: 1024,
// settings: {
// slidesToShow: 2,
// slidesToScroll: 1,
// infinite: true,
// dots: true
// }
// }, {
// breakpoint: 600,
// settings: {
// slidesToShow: 1,
// slidesToScroll: 1,
// infinite: true,
// dots: true
// }
// }]
// });
// $('#C_DivIndicadores').show();
// $('#C_chartcheckboxes').hide();
// }
//}
CargaGrafica();
CargaGrafica3();
if ($('#C_DivIndicadores')) {
$('#C_DivIndicadores').slick({
lazyLoad: 'ondemand',
slidesToShow: 3,
slidesToScroll: 1,
dots: true,
infinite: true,
autoplay: true,
autoplaySpeed: 5000,
responsive: [
{
breakpoint: 1024,
settings: {
slidesToShow: 2,
slidesToScroll: 1,
infinite: true,
dots: true
}
}, {
breakpoint: 600,
settings: {
slidesToShow: 1,
slidesToScroll: 1,
infinite: true,
dots: true
}
}]
});
$('#C_DivIndicadores').show();
$('#C_chartcheckboxes').hide();
}
}
$(document).ready(function () { $(document).ready(function () {
filldata(); //filldata();
Sys.Application.add_load(function (s, e) { //Sys.Application.add_load(function (s, e) {
filldata() // filldata()
}); //});
}); });
function CargaDia(pFecha) { function CargaDia(pFecha) {
__doPostBack('txtFecha', pFecha); __doPostBack('txtFecha', pFecha);
@@ -465,5 +470,127 @@
}); });
</script> </script>
<!-- Librería principal de amCharts 4 -->
<script src="https://cdn.amcharts.com/lib/4/core.js"></script>
<!-- Módulo de gráficos de XYChart -->
<script src="https://cdn.amcharts.com/lib/4/charts.js"></script>
<!-- Tema animado de amCharts 4 -->
<script src="https://cdn.amcharts.com/lib/4/themes/animated.js"></script>
<!-- Paquete de idioma español -->
<script src="https://cdn.amcharts.com/lib/4/lang/es_ES.js"></script>
<script >
// Función para crear series dinámicamente
function createSeries(field, name) {
var series = chart.series.push(new am4charts.LineSeries());
series.dataFields.valueY = field;
series.dataFields.categoryX = "mes";
series.name = name;
series.strokeWidth = 2;
// Añadir bullets a la serie
var bullet = series.bullets.push(new am4charts.CircleBullet());
bullet.circle.radius = 4;
bullet.circle.fill = am4core.color("#fff");
bullet.circle.strokeWidth = 2;
// Configurar el tooltip para cada serie
series.tooltipText = "{name}: [bold]{valueY}[/]";
series.tooltip.pointerOrientation = "vertical";
series.tooltip.background.cornerRadius = 5;
series.tooltip.background.fillOpacity = 0.8;
series.tooltip.label.padding(10, 10, 10, 10);
// Asegurar que el label del tooltip sea visible
series.tooltip.label.fill = am4core.color("#000"); // Texto en negro
// Mostrar el tooltip solo al pasar el cursor sobre la serie
series.tooltip.showInViewport = false;
// Habilitar interacciones en la serie
series.interactionsEnabled = true;
}
function generaGrafico(dtGrafico,dtseries) {
// Importar las librerías de amCharts
am4core.useTheme(am4themes_animated);
// Crear el gráfico
var chart = am4core.create("chartdiv", am4charts.XYChart);
// Ejemplo de datos dinámicos
chart.data = dtGrafico; //[
var categoryAxis = chart.xAxes.push(new am4charts.CategoryAxis());
categoryAxis.dataFields.category = "mes";
categoryAxis.renderer.grid.template.location = 0;
categoryAxis.renderer.minGridDistance = 30;
// Configuración del eje Y (Importe)
var valueAxis = chart.yAxes.push(new am4charts.ValueAxis());
valueAxis.title.text = "Importe";
for (var i = 0; i < dtseries.length; i++) {
var item = dtseries[i];
var key = Object.keys(item)[0];
var value = item[key];
var series = chart.series.push(new am4charts.LineSeries());
series.dataFields.valueY = key;
series.dataFields.categoryX = "mes";
series.name = value;
series.strokeWidth = 2;
// Añadir bullets a la serie
var bullet = series.bullets.push(new am4charts.CircleBullet());
bullet.circle.radius = 4;
bullet.circle.fill = am4core.color("#fff");
bullet.circle.strokeWidth = 2;
// Configurar el tooltip para cada serie
series.tooltipText = "{name}: [bold]{valueY}[/]";// "{" + value + "}: [bold]{" + key +"}[/]";
series.tooltip.pointerOrientation = "vertical";
series.tooltip.background.cornerRadius = 5;
series.tooltip.background.fillOpacity = 0.8;
series.tooltip.label.padding(10, 10, 10, 10);
// Asegurar que el label del tooltip sea visible
series.tooltip.label.fill = am4core.color("#000"); // Texto en negro
// Mostrar el tooltip solo al pasar el cursor sobre la serie
series.tooltip.showInViewport = false;
// Habilitar interacciones en la serie
series.interactionsEnabled = true;
}
// Habilitar el cursor pero deshabilitar su tooltip
chart.cursor = new am4charts.XYCursor();
chart.cursor.behavior = "none"; // Deshabilitar pan o zoom
chart.cursor.lineX.disabled = true;
chart.cursor.lineY.disabled = true;
chart.cursor.tooltipEnabled = false; // Deshabilitar el tooltip del cursor
// Leyenda
chart.legend = new am4charts.Legend();
// Exportar el gráfico
chart.exporting.menu = new am4core.ExportMenu();
}
</script>
</asp:Content> </asp:Content>

42
Ventas/RepProductosServiciosPeriodo.aspx.cs
View File

@@ -2,7 +2,7 @@
using System.Collections.Generic; using System.Collections.Generic;
using System.Linq; using System.Linq;
using System.Web; using System.Web;
using System.Web.UI.WebControls; using System.Web.UI.WebControls;
using Extensiones; using Extensiones;
using System.Data; using System.Data;
using static Extensiones.ModExtensiones; using static Extensiones.ModExtensiones;
@@ -280,14 +280,19 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
CveClienteClasificacion: DdlClienteClasificacion.SelectedValue.ToEntero(), ModalidadContable: !ChkLecturaAdmin.Checked)) CveClienteClasificacion: DdlClienteClasificacion.SelectedValue.ToEntero(), ModalidadContable: !ChkLecturaAdmin.Checked))
{ {
GvDatos.DataSource = ObjVentas.DtResultados; GvDatos.DataSource = ObjVentas.DtResultados;
DtVentas = ObjVentas.DtResultados; DtVentas = ObjVentas.DtResultados;
} }
CveProyecto = DdlProyecto.SelectedValue.ToEntero(); CveProyecto = DdlProyecto.SelectedValue.ToEntero();
ObjVentas.Dispose(); ObjVentas.Dispose();
GvDatos.DataBind(); GvDatos.DataBind();
if (GvDatos.Rows.Count > 0) if (GvDatos.Rows.Count > 0)
{ {
//CargaGraficas(DtVentas); //CargaGraficas(DtVentas);
//this.DvGraficas.Visible = true;
}
else
{
this.DvGraficas.Visible = false;
} }
UPDatos.Update(); UPDatos.Update();
@@ -298,6 +303,37 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
} }
#endregion #endregion
#region GRAFICA
private void CargaGraficas(DataTable DtVentas)
{
MuestraGrafica(div_ventas, DtVentas, "GPO", "Total", "", "", "gh2", "");
}
private void CargaGraficaNEW(DataTable D_T_Datos)
{
JArray jsonData = new JArray();
for (int x=24; x <= 35 ; x++)
{
string Mes = D_T_Datos.Columns[x].ColumnName;
JObject obj = new JObject();
obj.Add(new JProperty("mes", Mes));
for (int y = 1; y <= D_T_Datos.Rows.Count - 1; y++) // y Empiesa en 1 para no agregar el total
{
obj.Add(new JProperty(D_T_Datos.Rows[y][4].ToString(), D_T_Datos.Rows[y][x].ToString()));
}
jsonData.Add(obj);
}
JArray jsonSeries = new JArray();
for (int y = 1; y <= D_T_Datos.Rows.Count - 1; y++) // y Empiesa en 1 para no agregar el total
{
JObject obj = new JObject(
new JProperty(D_T_Datos.Rows[y][4].ToString(), D_T_Datos.Rows[y][4].ToString())
);
jsonSeries.Add(obj);
} }
string jsdatos = jsonData.ToString(); string jsdatos = jsonData.ToString();
string jsseries = jsonSeries.ToString(); string jsseries = jsonSeries.ToString();

21
Ventas/RepVentasUtilidadPadre.aspx
View File

@@ -57,7 +57,7 @@
<asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server">Ver Grafica</asp:LinkButton> <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server">Ver Grafica</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkModalPorcentajes" OnClick="LnkModalPorcentajes_Click" runat="server" Visible="false"><i class="fa fa-list" aria-hidden="true"></i> Consultar porcentajes</asp:LinkButton> <asp:LinkButton ID="LnkModalPorcentajes" OnClick="LnkModalPorcentajes_Click" runat="server" Visible="false"><i class="fa fa-list" aria-hidden="true"></i> Ventas Menores %</asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
@@ -286,7 +286,7 @@
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button> <button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title"> <h4 class="modal-title">
<asp:Label ID="LblModalTituloPorcentajes" runat="server" ClientIDMode="Static" Text="">Consulta Porcentajes</asp:Label> <asp:Label ID="LblModalTituloPorcentajes" runat="server" ClientIDMode="Static" Text="">Consulta Ventas menores a </asp:Label>
</h4> </h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
@@ -326,8 +326,8 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtModalPorcentaje" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="13" Text="5" Enabled="true"></asp:TextBox> <asp:TextBox ID="TxtModalPorcentaje" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="13" Text="5" Enabled="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtModalPorcentaje" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtModalPorcentaje" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Porcentaje''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalPorcentaje"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvTxtModalPorcentaje" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtModalPorcentaje" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Porcentaje''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalPorcentaje"></asp:RequiredFieldValidator>
<ajax:FilteredTextBoxExtender ID="FIETTxtModalPorcentaje" TargetControlID="TxtModalPorcentaje" FilterType="Numbers,Custom" ValidChars="-" runat="server" /> <ajax:FilteredTextBoxExtender ID="FIETTxtModalPorcentaje" TargetControlID="TxtModalPorcentaje" FilterType="Numbers,Custom" ValidChars="-." runat="server" />
<label for="<%= TxtModalPorcentaje.ClientID.ToString()%>">Porcentaje Menor a:</label> <label for="<%= TxtModalPorcentaje.ClientID.ToString()%>">% Menor a:</label>
</div> </div>
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
@@ -346,17 +346,18 @@
CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" OnRowDataBound="GvPorcentajes_RowDataBound" > CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" OnRowDataBound="GvPorcentajes_RowDataBound" >
<Columns> <Columns>
<asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-Width="200px" /> <asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-Width="120px" />
<asp:HyperLinkField ItemStyle-HorizontalAlign="Center" HeaderText="Serie Folio" DataTextField="SerieFolio" DataTextFormatString="{0}" Target="_blank" <asp:HyperLinkField ItemStyle-HorizontalAlign="Center" HeaderText="Serie Folio" DataTextField="SerieFolio" DataTextFormatString="{0}" Target="_blank"
DataNavigateUrlFields="CveVenta" DataNavigateUrlFields="CveVenta"
DataNavigateUrlFormatString="Ventas.aspx?CveVenta={0}" /> DataNavigateUrlFormatString="Ventas.aspx?CveVenta={0}" />
<asp:BoundField ItemStyle-HorizontalAlign="Center" HeaderText="Fecha" DataField="FechaVenta" DataFormatString="{0:d}" ItemStyle-Width="100px" /> <asp:BoundField ItemStyle-HorizontalAlign="Center" HeaderText="Fecha" DataField="FechaVenta" DataFormatString="{0:d}" ItemStyle-Width="85px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N}" ItemStyle-Width="100px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N}" ItemStyle-Width="90px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Costo" DataField="Costo" DataFormatString="{0:N}" ItemStyle-Width="90px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="% Neto" DataField="PorNeto" DataFormatString="{0:N}" ItemStyle-Width="70px" />
<asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText="Vendedor" DataField="Vendedor" ItemStyle-Width="100px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Costo" DataField="Costo" DataFormatString="{0:N}" ItemStyle-Width="100px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="% Neto" DataField="PorNeto" DataFormatString="{0:N}" ItemStyle-Width="100px" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>

15
Ventas/Ventas.aspx
View File

@@ -1987,18 +1987,23 @@
<asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal> <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Serie"> <asp:TemplateField HeaderText="Serie" visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlSerie" Text='<%# Eval("Serie") %>' Visible="false" runat="server" /> <asp:Literal ID="LtlSerie" Text='<%# Eval("Serie") %>' Visible="false" runat="server" />
<asp:TextBox ID="TxtSerie" AutoPostBack="false" Text='<%# Eval("Serie") %>' Visible="false" runat="server" /> <asp:TextBox ID="TxtSerie" AutoPostBack="false" Text='<%# Eval("Serie") %>' Visible="false" runat="server" />
<asp:Button Text="" ID="BtnSerie" Style="display: none;" OnClick="BtnSerie_Click" runat="server" /> <asp:Button Text="" ID="BtnSerie" Style="display: none;" OnClick="BtnSerie_Click" runat="server" />
<asp:HiddenField runat="server" Value='<%# Eval("Serie") %>' ID="HdnSerie" /> <asp:HiddenField runat="server" Value='<%# Eval("Serie") %>' ID="HdnSerie" />
<%--<asp:HiddenField runat="server" ID="HdnSerieLote" Value='<%# Eval("SerieLote")%>' />--%>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="Lote" HeaderText="Lote" /> <asp:BoundField DataField="Lote" HeaderText="Lote" Visible="False" />
<asp:BoundField DataField="FechaCaducidad" HeaderText="F. Caducidad" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="FechaCaducidad" HeaderText="F. Caducidad" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
<asp:TemplateField HeaderText="Lote/Caducidad" ItemStyle-HorizontalAlign="Left" Visible="false" ItemStyle-Width="270px">
<ItemTemplate>
<asp:DropDownList ID="DdlCaducidadProducto" CssClass="select2me" Width="100%" runat="server" Visible="false" CausesValidation="true" >
<asp:ListItem Selected="True" Text="-" Value="|"></asp:ListItem>
</asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>

101
Ventas/Ventas.aspx.vb
View File

@@ -6716,6 +6716,9 @@ Partial Class Ventas
ddlAlmacen.Items.Clear() ddlAlmacen.Items.Clear()
DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}") DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
If UsuarioActual.CveEmpresa = 199 Then
DTAlmacen.Merge(GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto <> {DdlSubProyectoDatos.SelectedValue.ToEntero()}"))
End If
ddlAlmacen.DataSource = DTAlmacen ddlAlmacen.DataSource = DTAlmacen
ddlAlmacen.Items.Insert(0, New ListItem("Seleccione ", "-1")) ddlAlmacen.Items.Insert(0, New ListItem("Seleccione ", "-1"))
@@ -9526,18 +9529,18 @@ Partial Class Ventas
e.Row.FCLiteral("LtlSerie").Visible = True e.Row.FCLiteral("LtlSerie").Visible = True
End If End If
If e.Row.DBCampo("CveTipoInvPS").ToEntero() = 5 And CveVenta <= 0 Then If CveVenta <= 0 Then
If e.Row.DBCampo("AplicaSerie").ToEntero() = 1 Then
e.Row.FCTextBox("TxtSerie").Visible = True GvInv.Columns(4).Visible = True
e.Row.FCTextBox("TxtSerie").Attributes.Remove("onkeypress") e.Row.FCTextBox("TxtSerie").Visible = True
e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeypress", String.Format("SeriePS(event,{0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID)) e.Row.FCTextBox("TxtSerie").Attributes.Remove("onkeypress")
e.Row.FCTextBox("TxtSerie").Attributes.Remove("onblur") e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeypress", String.Format("SeriePS(event,{0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
e.Row.FCTextBox("TxtSerie").Attributes.Add("onblur", String.Format("SeriePSBlur({0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID)) e.Row.FCTextBox("TxtSerie").Attributes.Remove("onblur")
e.Row.FCTextBox("TxtSerie").Attributes.Add("onblur", String.Format("SeriePSBlur({0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
'e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeyup", String.Format("LimpiaAF(1, '{0}'); EnterAFEdit(event,this,{1},{2});", e.Row.FCHiddenField("HdnCveConcepto").Value, e.Row.FCHiddenField("HdnCveAF").ClientID, e.Row.FCHiddenField("HdnCodAF").ClientID)) End If
If e.Row.DBCampo("AplicaLote").ToEntero() = 1 Then
'e.Row.FCTextBox("LblCodigo").Attributes.Add("onkeyup", String.Format("LimpiaAF(1, '{0}'); EnterAFEdit(event,this,{1},{2});", e.Row.FCHiddenField("HdnCveConcepto").Value, e.Row.FCHiddenField("HdnCveAF").ClientID, e.Row.FCHiddenField("HdnCodAF").ClientID)) CargarCaducidadProducto(e.Row.DBCampo("CvePS").ToEntero, e.Row.FCDropDownList("DdlCaducidadProducto"), "", Nothing)
'e.Row.FCTextBox("LblCodigo").Attributes.Add("onblur", String.Format("LimpiaAF(1, '{0}'); AFBlurEdit(this,{1},{2});", e.Row.FCHiddenField("HdnCveConcepto").Value, e.Row.FCHiddenField("HdnCveAF").ClientID, e.Row.FCHiddenField("HdnCodAF").ClientID)) End If
End If End If
If e.Row.DBCampo("CvePS") = "" Then If e.Row.DBCampo("CvePS") = "" Then
@@ -9590,6 +9593,37 @@ Partial Class Ventas
End If End If
End Sub End Sub
Private Sub CargarCaducidadProducto(CvePS As Integer, ByRef DdlLoteFechaCaducidad As DropDownList, ValorAsignado As String, DtDatosDevolucion As DataTable)
DdlLoteFechaCaducidad.Items.Clear()
DdlLoteFechaCaducidad.Items.Add(New ListItem("-", "|"))
Dim almacenes As String = ddlAlmacen.SelectedValue
If almacenes = "" Then
almacenes = "-1"
End If
GvInv.Columns(7).Visible = True
If DtDatosDevolucion IsNot Nothing Then
DdlLoteFechaCaducidad.Visible = True
For Each dr As DataRow In DtDatosDevolucion.FiltraParametros($"CvePS = {CvePS}", DistinctColumns:={"Lote", "FechaCaducidad"}).Rows
DdlLoteFechaCaducidad.Items.Add(New ListItem($"Lote: {dr("Lote").ToString} - Cad: {dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}", $"{dr("Lote").ToString}|{dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}"))
Next
Else
Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then
DdlLoteFechaCaducidad.Visible = True
For Each dr As DataRow In ObjInventarios.DtResultados.FiltraParametros("", DistinctColumns:={"Lote", "FechaCaducidad"}).Rows
DdlLoteFechaCaducidad.Items.Add(New ListItem($"Lote: {dr("Lote").ToString} - Cad: {dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}", $"{dr("Lote").ToString}|{dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}"))
Next
End If
ObjInventarios.Dispose()
End If
If Not String.IsNullOrEmpty(ValorAsignado) Then
DdlLoteFechaCaducidad.SelectedValueExist(ValorAsignado)
End If
End Sub
Protected Sub GVINV_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvInv.RowEditing Protected Sub GVINV_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvInv.RowEditing
GvInv.EditIndex = e.NewEditIndex GvInv.EditIndex = e.NewEditIndex
CargaGVInv(DtInv.FiltraParametros("CveTipoPS=2")) CargaGVInv(DtInv.FiltraParametros("CveTipoPS=2"))
@@ -10132,6 +10166,8 @@ Partial Class Ventas
Dim CveProducto As Integer Dim CveProducto As Integer
Dim Existencia As Double Dim Existencia As Double
Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero() Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero()
Dim tCveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
If UsuarioActual.CveEmpresa = 199 Then tCveSubProyecto = -1
For Each dr As DataRow In TmpDT.FiltraParametros("CveTipoPS = 2").Rows For Each dr As DataRow In TmpDT.FiltraParametros("CveTipoPS = 2").Rows
If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
@@ -10141,7 +10177,7 @@ Partial Class Ventas
Cantidad = TmpDT.SUM("Cantidad", $"CvePS = {CveProducto} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") 'VALIDA CONTRA LA SUMA DEL MISMO PS Cantidad = TmpDT.SUM("Cantidad", $"CvePS = {CveProducto} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") 'VALIDA CONTRA LA SUMA DEL MISMO PS
If UsuarioActual.Empresa.UsaInventarios AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString().ToEntero() < 1 Then If UsuarioActual.Empresa.UsaInventarios AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString().ToEntero() < 1 Then
Dim BuscarEnTabla As Boolean = If(UsuarioActual.Empresa.Funcionalidad(715) = "1", True, False) Dim BuscarEnTabla As Boolean = If(UsuarioActual.Empresa.Funcionalidad(715) = "1", True, False)
Existencia = ObjInventarios.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), Existencia = ObjInventarios.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=tCveSubProyecto,
CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1,
RestringirAlmacenes:=1, ExcluyeApartados:=-1, BuscarEnTabla:=BuscarEnTabla) RestringirAlmacenes:=1, ExcluyeApartados:=-1, BuscarEnTabla:=BuscarEnTabla)
If Existencia < Cantidad Then If Existencia < Cantidad Then
@@ -16606,8 +16642,16 @@ Partial Class Ventas
End If End If
Dim CveSeccionAlmacen As Integer = -3 Dim CveSeccionAlmacen As Integer = -3
'If AplicaSeccion Then CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacen, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen", "").ToEntero 'If AplicaSeccion Then CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacen, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen", "").ToEntero
Dim Lote As String = "-1"
Dim FCaducidad As Date = MinFecha
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, Serie:=Dr("Serie").ToString(), CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then If GvInv.Rows(i).FCDropDownList("DdlCaducidadProducto") IsNot Nothing AndAlso GvInv.Rows(i).FCDropDownList("DdlCaducidadProducto").Visible Then
Dim ArrayCaducidad As String() = GvInv.Rows(i).FCDropDownList("DdlCaducidadProducto").SelectedValue.Split("|"c)
Lote = ArrayCaducidad(0)
FCaducidad = ArrayCaducidad(1).ToDate
End If
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, Serie:=Dr("Serie").ToString(), Lote:=Lote, FechaCaducidad:=FCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
OcurrioError = True OcurrioError = True
ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />") ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />")
Exit For Exit For
@@ -19181,6 +19225,16 @@ Partial Class Ventas
End If End If
End If End If
'ECONO, SOLO EL CLIENTE SIGI, PUEDE MODIFICAR EL IVA A 16%
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlIVA.Visible Then
If TxtCodigo.Text.Trim().ToUpper() = "SIGI" Then
DdlIVA.Enabled = True
Else
DdlIVA.Enabled = False
End If
End If
End If End If
UpFacturar.Update() UpFacturar.Update()
@@ -20331,6 +20385,9 @@ Partial Class Ventas
Row("CodigoPS") = DrPS("PSCodigo").ToString() Row("CodigoPS") = DrPS("PSCodigo").ToString()
Row("CveTipoPS") = DrPS("CveTipoPS") Row("CveTipoPS") = DrPS("CveTipoPS")
Row("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario") Row("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario")
Row("AplicaSerie") = DrPS("AplicaSerie")
Row("AplicaLote") = DrPS("AplicaLote")
Row("AplicaCaducidad") = DrPS("AplicaCaducidad")
Row("CveTamaño") = DrPS("CveTamaño") Row("CveTamaño") = DrPS("CveTamaño")
Row("CodigoObjetoImpuesto") = DrPS("CodigoObjetoImpuesto") Row("CodigoObjetoImpuesto") = DrPS("CodigoObjetoImpuesto")
@@ -20589,6 +20646,9 @@ Partial Class Ventas
TmpDT.Columns.Add("NoIdentificacion", GetType(String)) TmpDT.Columns.Add("NoIdentificacion", GetType(String))
TmpDT.Columns.Add("CveTipoPS", GetType(Integer)) TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer)) TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
TmpDT.Columns.Add("AplicaSerie", GetType(Integer))
TmpDT.Columns.Add("AplicaLote", GetType(Integer))
TmpDT.Columns.Add("AplicaCaducidad", GetType(Integer))
TmpDT.Columns.Add("Serie", GetType(String)) TmpDT.Columns.Add("Serie", GetType(String))
TmpDT.Columns.Add("CuentaPredial", GetType(String)) TmpDT.Columns.Add("CuentaPredial", GetType(String))
TmpDT.Columns.Add("Obs", GetType(String)) TmpDT.Columns.Add("Obs", GetType(String))
@@ -24949,6 +25009,8 @@ Partial Class Ventas
ObjInventarios.Dispose() ObjInventarios.Dispose()
UpINV.Update() UpINV.Update()
End Sub End Sub
Private Function ValidaSerieINV() As Boolean Private Function ValidaSerieINV() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
Dim Existencia As Decimal = 0 Dim Existencia As Decimal = 0
@@ -25295,7 +25357,7 @@ Partial Class Ventas
DtTemporal.Columns.Add(colNew) DtTemporal.Columns.Add(colNew)
End If End If
GvInv.Columns(4).Visible = DtTemporal.MAX("Serie", "Serie <> ''") <> "" Or CveVenta <= 0 GvInv.Columns(4).Visible = DtTemporal.MAX("Serie", "Serie <> ''") <> ""
GvInv.Columns(5).Visible = DtTemporal.MAX("Lote", "Lote <> ''") <> "" GvInv.Columns(5).Visible = DtTemporal.MAX("Lote", "Lote <> ''") <> ""
GvInv.Columns(6).Visible = DtTemporal.MAX("FechaCaducidad").ToDate > MinFecha GvInv.Columns(6).Visible = DtTemporal.MAX("FechaCaducidad").ToDate > MinFecha
@@ -32612,6 +32674,15 @@ Partial Class Ventas
GvPS.Columns(20).Visible = True GvPS.Columns(20).Visible = True
End If End If
'ECONO, SOLO EL CLIENTE SIGI, PUEDE MODIFICAR EL IVA A 16%
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlIVA.Visible Then
If TxtCodigo.Text.Trim().ToUpper() = "SIGI" Then
DdlIVA.Enabled = True
Else
DdlIVA.Enabled = False
End If
End If
UpPS.Update() UpPS.Update()
UPPDescuento.Update() UPPDescuento.Update()
UPObservaciones.Update() UPObservaciones.Update()