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:
JORGE LUIS CAUDILLO ESPARZA
2022-12-21 03:17:21 -07:00
parent 5b8e4ecc91 a5c058d239
commit 30948b82b0
16 changed files with 4287 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
AF/RepDepreciacion.aspx.vb
View File

@@ -4,6 +4,9 @@ Option Strict On
Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports Extensiones
Imports DocumentFormat.OpenXml.Wordprocessing
Imports System
Partial Class AF_RepDepreciacion
Inherits ClsPaginas
@@ -13,7 +16,7 @@ Partial Class AF_RepDepreciacion
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaI.Text = New Date(Now.Year, Now.Month + 1, 1).AddDays(-1).ToString("dd/MM/yyyy")
txtFechaI.Text = DateTime.Now.AddMonths(1).AddDays(-1).ToString("dd/MM/yyyy")
End If
End Sub

6
App_Code/ClsPaginas.vb
View File

@@ -7696,7 +7696,7 @@ Public Class ClsPaginas
params.Add(New ReportParameter("Entrega", Vta.Entrega))
params.Add(New ReportParameter("Vigencia", Vta.Vigencia.ToString("dd/MMMM/yyyy")))
params.Add(New ReportParameter("Sucursal", Vta.SubProyecto.SubProyecto))
params.Add(New ReportParameter("SucursalCliente", If(Vta.ClienteSucursal.Sucursal.ToString Is Nothing, "", Vta.ClienteSucursal.Sucursal.ToString)))
params.Add(New ReportParameter("SucursalCliente", If(Vta.ClienteSucursal.Sucursal Is Nothing, "", Vta.ClienteSucursal.Sucursal.ToString)))
params.Add(New ReportParameter("CveMoneda", Vta.CveMoneda.ToString))
params.Add(New ReportParameter("FormaEntrega", Vta.CondicionEntrega))
@@ -9634,7 +9634,8 @@ Public Class ClsPaginas
Dim TCValuacion As Decimal = CompraActual.TC
Dim TCValuacionPago As Decimal = Pago.TCPago
Dim tFechaUltimaFluctuacion As Date
Dim tImportePago, tImporteCompra As Decimal
Dim tImportePago As Decimal
Dim tImporteCompra As Decimal = Pago.ImportePago
Dim CveConceptoContableComplementaria As Integer = 206
Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 17, Pago.CveConceptoPago) 'si viene en parametro lo toma com primera opcion, sino el 17
@@ -9664,6 +9665,7 @@ Public Class ClsPaginas
If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares
tImportePago = ((Pago.ImportePago * TCValuacion / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL
ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then 'factura dolares, pago en dolares
tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL
tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL

46
App_Code/Modelos.vb
View File

@@ -2175,16 +2175,10 @@ Namespace Modelos
Resultado = False
Else
Dim ImporteConcepto As Decimal = 0
For Each Dr As DataRow In factura.DtMovimientosUsados.Rows
Dim ImporteConcepto As Decimal = 0
If factura.CveConceptoMovimiento = 42 AndAlso factura.CveMoneda = 2 Then
ImporteConcepto = Dr("PU").ToString.ToDecimal * GlobalTipoCambio(factura.Fecha).ToDecimal
Else
ImporteConcepto = Dr("PU").ToString.ToDecimal
End If
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
'Mensaje = "Error al guardar los movimientos"
Resultado = False
@@ -2230,7 +2224,7 @@ Namespace Modelos
End Function
Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, Optional GenerarPrePoliza As Boolean = True) As Integer
Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, Optional GenerarPrePoliza As Boolean = True, Optional Contabilizable As Boolean = True) As Integer
Dim CveMovimiento As Integer = -1
Try
Dim CveConceptoSalidaUsado As Integer = 45
@@ -2264,13 +2258,13 @@ Namespace Modelos
For Each RowInv As DataRow In DtMovimientosEntrada.Rows
ValorInventario = DtMovimientosEntrada.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, -ValorInventario, -ValorInventario, tCveConcepto, Concepto, Concepto, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=tCveSubProyecto) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, -ValorInventario, -ValorInventario, tCveConcepto, Concepto, Concepto, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=tCveSubProyecto, Contabilizable:=Contabilizable) Then
CveMovimiento = -1
Exit For
End If
Next
If CveMovimiento > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, -DtMovimientosEntrada.SUMD("Total").RoundSQL, -DtMovimientosEntrada.SUMD("Total").RoundSQL, 68, Concepto, Concepto, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento) Then
If CveMovimiento > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, -DtMovimientosEntrada.SUMD("Total").RoundSQL, -DtMovimientosEntrada.SUMD("Total").RoundSQL, 68, Concepto, Concepto, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, Contabilizable:=Contabilizable) Then
CveMovimiento = -1
End If
End If
@@ -2574,7 +2568,7 @@ Namespace Modelos
End If
If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL * ValorMultiplicador
Dim Importe68 As Decimal = 0
Dim IdCtaContable68 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero
@@ -2582,27 +2576,17 @@ Namespace Modelos
ErrorPrepoliza = True
End If
Dim Importe318 As Decimal = (Math.Abs(importeMovimiento) - Math.Abs(Importe68)) * ValorMultiplicador
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe318, Referencia, 318, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Importe318, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True
End If
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True
End If
Else
ErrorPrepoliza = True
End If
End If
If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True
End If
Else
If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True
End If
Else
ErrorPrepoliza = True
End If
ErrorPrepoliza = True
End If
importeMovimiento = 0
@@ -5697,7 +5681,7 @@ Namespace Modelos
End If
If Not ErrorCancelar AndAlso CveMovimientoUsado > 0 AndAlso SaldoAlmacenUsados <> 0 Then
If CancelarInventarioUsado(ObjRemision, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta) <= 0 Then
If CancelarInventarioUsado(ObjRemision, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta, Contabilizable:=False) <= 0 Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al cancelar los usados. Por favor vuelva a intentar."
End If
@@ -5808,7 +5792,7 @@ Namespace Modelos
'CANCELAR MOVIMIENTOS DE USADOS SI TIENE
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not ErrorCancelar AndAlso CveMovimientoUsado > 0 AndAlso SaldoAlmacenUsados <> 0 Then
If CancelarInventarioUsado(ObjFactura, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta) <= 0 Then
If CancelarInventarioUsado(ObjFactura, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta, Contabilizable:=False) <= 0 Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al cancelar los movimientos de usados."
End If
@@ -6874,8 +6858,6 @@ Namespace Modelos
Public Property Version As String = ""
Public Property Serie As String = ""
Public Property Folio As Integer
Public Property CveMesa As Integer
<ComponentModel.DataAnnotations.Schema.NotMapped>
Public ReadOnly Property SerieFolio As String
Get

5
Ashx/GenerarPDFFactura.ashx
View File

@@ -200,6 +200,10 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
parametros.Add(New ReportParameter("complemento_CadenaOriginal", objxml.complemento.CadenaOriginal))
parametros.Add(New ReportParameter("Observaciones", datos.Factura.Observaciones))
If datos.CFDIVersion = "4.0" Then
rutaReporte = "Empresas\Grales\Formatos\FacturaSALI40.rdlc"
parametros.Add(New ReportParameter("receptor_RegimenFiscal", objxml.receptor.RegimenFiscalReceptorTexto))
End If
Dim ds As New List(Of ReportDataSource)
@@ -479,6 +483,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
End Class
Public Class ParametroWS
Public Property CFDIVersion As String
Public Property Factura As FacturaWS
Public Property Cliente As ClienteWS
Public Property Empresa As EmpresaWS

BIN
Bin/APP_Code_CSharp.dll
View File

Binary file not shown.

BIN
Bin/APP_Code_CSharp.pdb
View File

Binary file not shown.

BIN
Bin/AjaxControlToolkit.dll
View File

Binary file not shown.

2
Contabilidad2/RepAnexoCatalogo.aspx
View File

@@ -41,7 +41,7 @@
<div class="col-md-1 truncate">
Cuenta
</div>
<div class="col-md-2">
<div class="col-md-3">
<asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>

492
Empresas/140/Formatos/Factura.mrt
View File

@@ -176,20 +176,20 @@
<Page1 Ref="7" type="Page" isKey="true">
<Border>None;Black;2;Solid;False;4;Black</Border>
<Brush>Transparent</Brush>
<Components isList="true" count="3">
<Components isList="true" count="4">
<PageHeaderBand1 Ref="8" type="PageHeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0,21.1,5.4</ClientRectangle>
<ClientRectangle>0,0.4,21.1,5.4</ClientRectangle>
<Components isList="true" count="1">
<Panel4 Ref="9" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>0,0,21,6</ClientRectangle>
<ClientRectangle>0,0,21,5.6</ClientRectangle>
<Components isList="true" count="14">
<Text5 Ref="10" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>13,1.2,8,2.8</ClientRectangle>
<ClientRectangle>13,1.2,8,2.6</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
@@ -223,7 +223,7 @@ Régimen fiscal: Regimen General de Ley Personas Morales
<Text>Facturado a:
Cliente: {ClienteCodigo} - {ClienteNombre}
RFC: {ClienteRFC}
Calle: {ClienteCalle}
Calle: {ClienteCalle} No.Ext:{ClienteNoExt}
Colonia: {ClienteColonia}
Ciudad: {ClienteCiudad} Estado: {ClienteEstado}
Municipio y/o Delegación: {ClienteMunicipio}
@@ -3457,7 +3457,7 @@ de Hermosillo SA de CV</Text>
<Textbox40 Ref="15" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>12.6,4.12,8.43,1.42</ClientRectangle>
<ClientRectangle>12,3.72,9.03,1.62</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,6.7,Bold,Point,False,0</Font>
@@ -3475,7 +3475,7 @@ Vendedor: {VendedorNombre}</Text>
</Textbox40>
<Text4 Ref="16" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>4,4,8.8,1.8</ClientRectangle>
<ClientRectangle>4,4,8,1.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
@@ -3621,7 +3621,8 @@ de Hermosillo SA de CV</Text>
</PageHeaderBand1>
<PageFooterBand1 Ref="24" type="PageFooterBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,27,21.1,0.4</ClientRectangle>
<CanGrow>False</CanGrow>
<ClientRectangle>0,32.48,21.1,0.4</ClientRectangle>
<Components isList="true" count="3">
<Text35 Ref="25" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -3629,7 +3630,7 @@ de Hermosillo SA de CV</Text>
<ClientRectangle>7.4,0,2.91,0.6</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Bold</Font>
<Font>Myriad Pro,8,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Text35</Name>
@@ -3644,7 +3645,7 @@ de Hermosillo SA de CV</Text>
<ClientRectangle>10.31,0,4.89,0.6</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8</Font>
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
<Margins>2,2,2,2</Margins>
<Name>Textbox37</Name>
<Page isRef="7" />
@@ -3661,7 +3662,7 @@ de Hermosillo SA de CV</Text>
<ClientRectangle>17.31,0,3.69,0.6</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Bold</Font>
<Font>Myriad Pro,8,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Text37</Name>
@@ -3683,14 +3684,14 @@ de Hermosillo SA de CV</Text>
</PageFooterBand1>
<Panel1 Ref="30" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush>
<Brush>[255:255:0]</Brush>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>0,6.2,21,3.2</ClientRectangle>
<ClientRectangle>0,6.2,21.1,13.6</ClientRectangle>
<Components isList="true" count="3">
<HeaderBand1 Ref="31" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0,21,0.5</ClientRectangle>
<ClientRectangle>0,0.4,21.1,0.5</ClientRectangle>
<Components isList="true" count="9">
<Textbox23 Ref="32" type="Text" isKey="true">
<Brush>[58:65:115]</Brush>
@@ -3840,7 +3841,7 @@ de Hermosillo SA de CV</Text>
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<CanShrink>True</CanShrink>
<ClientRectangle>0,0.5,21,0.42</ClientRectangle>
<ClientRectangle>0,1.7,21.1,0.42</ClientRectangle>
<Components isList="true" count="9">
<Cantidad1 Ref="42" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -4024,8 +4025,9 @@ de Hermosillo SA de CV</Text>
</DataBand3>
<FooterBand1 Ref="57" type="FooterBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0.92,21,16.8</ClientRectangle>
<Components isList="true" count="15">
<CanBreak>True</CanBreak>
<ClientRectangle>0,2.92,21.1,10.6</ClientRectangle>
<Components isList="true" count="14">
<Panel3 Ref="58" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush>
@@ -4037,7 +4039,7 @@ de Hermosillo SA de CV</Text>
<Border>None;[247:150:70];1;Solid;False;8;[247:150:70]</Border>
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<ClientRectangle>0,0,5.2,0.4</ClientRectangle>
<ClientRectangle>0,0.4,5.2,0.4</ClientRectangle>
<Components isList="true" count="2">
<Text2 Ref="60" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -4109,7 +4111,6 @@ de Hermosillo SA de CV</Text>
<Name>Text21</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text21>
<Text6 Ref="64" type="Text" isKey="true">
@@ -4126,7 +4127,6 @@ de Hermosillo SA de CV</Text>
<Name>Text6</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
<Text>{ImporteLetra}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
@@ -4138,7 +4138,7 @@ de Hermosillo SA de CV</Text>
<Components isList="true" count="2">
<HeaderBand2 Ref="66" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0,5.2,0.6</ClientRectangle>
<ClientRectangle>0,0.4,5.2,0.4</ClientRectangle>
<Components isList="true" count="3">
<Textbox25 Ref="67" type="Text" isKey="true">
<Brush>[58:65:115]</Brush>
@@ -4195,7 +4195,7 @@ de Hermosillo SA de CV</Text>
<DataBand8 Ref="70" type="DataBand" isKey="true">
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<ClientRectangle>0,0.6,5.2,0</ClientRectangle>
<ClientRectangle>0,1.6,5.2,0</ClientRectangle>
<Components isList="true" count="3">
<Cantidad2 Ref="71" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -4256,7 +4256,6 @@ de Hermosillo SA de CV</Text>
<Name>DataBand8</Name>
<Page isRef="7" />
<Parent isRef="65" />
<PrintOn>OnlyLastPage</PrintOn>
<Sort isList="true" count="0" />
</DataBand8>
</Components>
@@ -4265,7 +4264,6 @@ de Hermosillo SA de CV</Text>
<Name>Panel2</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel2>
<Text23 Ref="75" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -4294,7 +4292,6 @@ de Hermosillo SA de CV</Text>
<Name>Text7</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text7>
<Textbox48 Ref="77" type="Text" isKey="true">
@@ -4404,18 +4401,14 @@ Sello digital del SAT:
<Name>Panel5</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel5>
<Panel6 Ref="84" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>2,8.28,17.2,1</ClientRectangle>
<ClientRectangle>2,8.15,17.3,1.2</ClientRectangle>
<Components isList="true" count="2">
<HeaderBand3 Ref="85" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0,17.2,0.6</ClientRectangle>
<ClientRectangle>0,0.4,17.3,0.6</ClientRectangle>
<Components isList="true" count="4">
<Text24 Ref="86" type="Text" isKey="true">
<Brush>[58:65:115]</Brush>
@@ -4490,7 +4483,7 @@ Sello digital del SAT:
<DataBand2 Ref="90" type="DataBand" isKey="true">
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<ClientRectangle>0,0.6,17.2,0.4</ClientRectangle>
<ClientRectangle>0,1.8,17.3,0.4</ClientRectangle>
<Components isList="true" count="4">
<Text27 Ref="91" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -4549,7 +4542,7 @@ Sello digital del SAT:
<Text30 Ref="95" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>9.2,0,8,0.37</ClientRectangle>
<ClientRectangle>9.4,0,7.82,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -4560,6 +4553,9 @@ Sello digital del SAT:
<Parent isRef="90" />
<Text>{DtDocumentosRelacionados.FolioFiscal}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="96" type="CustomFormat" isKey="true">
<StringFormat>#,0.00</StringFormat>
</TextFormat>
<Type>DataColumn</Type>
</Text30>
</Components>
@@ -4577,15 +4573,14 @@ Sello digital del SAT:
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight>
<Name>Panel6</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel6>
<Text32 Ref="96" type="Text" isKey="true">
<Text32 Ref="97" type="Text" isKey="true">
<Brush>[58:65:115]</Brush>
<ClientRectangle>0,7.28,21.2,0.5</ClientRectangle>
<ClientRectangle>0,7.28,21,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Enabled>False</Enabled>
<Expressions isList="true" count="2">
@@ -4603,9 +4598,9 @@ Sello digital del SAT:
<TextBrush>[255:255:255]</TextBrush>
<Type>Expression</Type>
</Text32>
<Text33 Ref="97" type="Text" isKey="true">
<Text33 Ref="98" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>5.6,7.88,2.4,0.4</ClientRectangle>
<ClientRectangle>5.4,7.8,2.4,0.35</ClientRectangle>
<Conditions isList="true" count="0" />
<Enabled>False</Enabled>
<Expressions isList="true" count="2">
@@ -4623,9 +4618,9 @@ Sello digital del SAT:
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text33>
<Text34 Ref="98" type="Text" isKey="true">
<Text34 Ref="99" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>8,7.88,9.4,0.4</ClientRectangle>
<ClientRectangle>7.8,7.8,9.4,0.35</ClientRectangle>
<Conditions isList="true" count="0" />
<Enabled>False</Enabled>
<Expressions isList="true" count="2">
@@ -4642,20 +4637,55 @@ Sello digital del SAT:
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text34>
<Rectangle2 Ref="99" type="Panel" isKey="true">
<Anchor>Bottom, Right</Anchor>
<Line4 Ref="100" type="HorizontalLinePrimitive" isKey="true">
<ClientRectangle>14.45,6.88,6.6,0.0254</ClientRectangle>
<Color>Black</Color>
<Conditions isList="true" count="0" />
<EndCap Ref="101" type="Cap" isKey="true">
<Color>Black</Color>
</EndCap>
<Expressions isList="true" count="0" />
<Name>Line4</Name>
<Page isRef="7" />
<Parent isRef="57" />
<StartCap Ref="102" type="Cap" isKey="true">
<Color>Black</Color>
</StartCap>
</Line4>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<KeepFooterTogether>False</KeepFooterTogether>
<Name>FooterBand1</Name>
<Page isRef="7" />
<Parent isRef="30" />
</FooterBand1>
</Components>
<Conditions isList="true" count="0" />
<DockStyle>Top</DockStyle>
<Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight>
<Name>Panel1</Name>
<Page isRef="7" />
<Parent isRef="7" />
</Panel1>
<FooterBand2 Ref="103" type="FooterBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,20.2,21.1,5.4</ClientRectangle>
<Components isList="true" count="1">
<Pagare Ref="104" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>0,0,21.1,5.2</ClientRectangle>
<Components isList="true" count="11">
<Image1 Ref="105" type="Image" isKey="true">
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
<ClientRectangle>0,11.8,21,5</ClientRectangle>
<Components isList="true" count="11">
<Image1 Ref="100" type="Image" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0.6,0,2.58,1.41</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<IconColor>68, 114, 196</IconColor>
<ImageBytes>iVBORw0KGgoAAAANSUhEUgAAEHQAAAgICAYAAAC1Y1ExAAAABGdBTUEAALGPC/xhBQAAAAlwSFlz
<ClientRectangle>0.6,0,2.58,1.41</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<IconColor>68, 114, 196</IconColor>
<ImageBytes>iVBORw0KGgoAAAANSUhEUgAAEHQAAAgICAYAAAC1Y1ExAAAABGdBTUEAALGPC/xhBQAAAAlwSFlz
AAAuIgAALiIBquLdkgAAABl0RVh0U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAP+NSURB
VHhe7N3NeSJZsy7QawLPsYDJmWOCTMAETMAEmYAJMgETZAImMLlzPDg38rTqfuro6CoJ8bMjcw3W
JAZVApI3iGSz9//5n//5HwAAAAAAAAAAAAAAAAAAAABuqCwCAAAAAAAAAAAAAAAAAAAAcL2yCAAA
@@ -7831,221 +7861,197 @@ AADgdsODAAAAAAAAAAAAAAAAAAAAANxueBAAAAAAAAAAAAAAAAAAAACA2w0PAgAAAAAAAAAAAAAA
AAAAAHC74UEAAAAAAAAAAAAAAAAAAAAAbjc8CAAAAAAAAAAAAAAAAAAAAMDthgcBAAAAAAAAAAAA
AAAAAAAAuN3wIAAAAAAAAAAAAAAAAAAAAAC3Gx4EAAAAAAAAAAAAAAAAAAAA4Fb/v//P/x94RXrG
/wp7ygAAAABJRU5ErkJggg==</ImageBytes>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Image1</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Stretch>True</Stretch>
</Image1>
<Textbox36 Ref="101" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.36,0.56,14.88,0.85</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8.5,Regular,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox36</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text> Cliente: {ClienteCodigo} - {ClienteNombre} - {ClienteRFC}
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Image1</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Stretch>True</Stretch>
</Image1>
<Textbox36 Ref="106" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.36,0.56,14.88,0.85</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8.5,Regular,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox36</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text> Cliente: {ClienteCodigo} - {ClienteNombre} - {ClienteRFC}
Domicilio: {ClienteDireccion}, {ClienteCiudad}, {ClienteEstado}</Text>
<TextBrush>Black</TextBrush>
</Textbox36>
<Textbox76 Ref="102" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,1.54,20.96,2.27</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7,Bold,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox76</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>POR ESTE PAGARÉ PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE BDH BATERIAS DISTRIBUCIONES DE
<TextBrush>Black</TextBrush>
</Textbox36>
<Textbox76 Ref="107" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,1.54,20.96,2.27</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7,Bold,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox76</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text>POR ESTE PAGARÉ PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE BDH BATERIAS DISTRIBUCIONES DE
HERMOSILLO SA DE CV, EN LA CIUDAD DE HERMOSILLO, SONORA, O CUALQUIER OTRA CIUDAD QUE DESIGNE EL TITULAR DEL DOCUMENTO,
LA CANTIDAD DE $ {Total} ***SON {ImporteLetra}*** VALOR QUE RECONOZCO (EMOS) ADEUDARLE OBLIGÁNDOME (NOS) A CUBRIR A SU
VENCIMIENTO {Vencimiento}, DE NO PAGARSE CAUSARÍA UN INTERÉS MORATORIO DEL 10% POR CIENTO MENSUAL, POR EL TIEMPO QUE PERMANEZCA
INSOLUTO EL ADEUDO EXISTENTE, QUEDANDO EXPRESAMENTE CONVENIDO QUE LA FALTA DE PAGO OPORTUNO OCASIONA AL DEUDOR GASTOS DE COBRO
JUDICIALES O EXTRAJUDICIALES Y LOS QUE SE OCASIONEN, RENUNCIANDO EL DEUDOR AL FUERO DE SU DOMICILIO QUE PUDIERA CORRESPONDERLE,
ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPERACIONES DE CRÉDITO.</Text>
<TextBrush>[0:0:0]</TextBrush>
<Type>Expression</Type>
</Textbox76>
<Textbox47 Ref="103" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>6.86,4.43,6.65,0.47</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox47</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>ACEPTO (AMOS) DE CONFORMIDAD</Text>
<TextBrush>Black</TextBrush>
</Textbox47>
<Textbox44 Ref="104" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>6.86,3.67,6.65,0.54</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox44</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>Obligado</Text>
<TextBrush>[0:0:0]</TextBrush>
</Textbox44>
<Text15 Ref="105" type="Text" isKey="true">
<AutoWidth>True</AutoWidth>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17,0.2,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>Text15</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>{Serie}</Text>
<TextBrush>[255:0:0]</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text15>
<Text16 Ref="106" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>18,0.2,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>Text16</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>Folio:</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text16>
<Text17 Ref="107" type="Text" isKey="true">
<AutoWidth>True</AutoWidth>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>19,0.2,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>Text17</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>{Folio}</Text>
<TextBrush>[255:0:0]</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text17>
<Text18 Ref="108" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>15.4,0.2,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>Text18</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>Serie:</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text18>
<Line1 Ref="109" type="HorizontalLinePrimitive" isKey="true">
<ClientRectangle>0,1.44,21,0.0254</ClientRectangle>
<Color>Black</Color>
<Conditions isList="true" count="0" />
<EndCap Ref="110" type="Cap" isKey="true">
<Color>Black</Color>
</EndCap>
<Expressions isList="true" count="0" />
<Linked>True</Linked>
<Name>Line1</Name>
<Page isRef="7" />
<Parent isRef="99" />
<StartCap Ref="111" type="Cap" isKey="true">
<Color>Black</Color>
</StartCap>
</Line1>
<Line3 Ref="112" type="HorizontalLinePrimitive" isKey="true">
<ClientRectangle>6.86,4.46,6.65,0.0254</ClientRectangle>
<Color>Black</Color>
<Conditions isList="true" count="0" />
<EndCap Ref="113" type="Cap" isKey="true">
<Color>Black</Color>
</EndCap>
<Expressions isList="true" count="0" />
<Linked>True</Linked>
<Name>Line3</Name>
<Page isRef="7" />
<Parent isRef="99" />
<StartCap Ref="114" type="Cap" isKey="true">
<Color>Black</Color>
</StartCap>
</Line3>
</Components>
<TextBrush>[0:0:0]</TextBrush>
<Type>Expression</Type>
</Textbox76>
<Textbox47 Ref="108" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>6.86,4.63,6.65,0.47</ClientRectangle>
<Conditions isList="true" count="0" />
<DockStyle>Bottom</DockStyle>
<Expressions isList="true" count="0" />
<Name>Rectangle2</Name>
<Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox47</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
<ShiftMode>None</ShiftMode>
</Rectangle2>
<Line4 Ref="115" type="HorizontalLinePrimitive" isKey="true">
<ClientRectangle>14.45,6.88,6.6,0.0254</ClientRectangle>
<Parent isRef="104" />
<Text>ACEPTO (AMOS) DE CONFORMIDAD</Text>
<TextBrush>Black</TextBrush>
</Textbox47>
<Textbox44 Ref="109" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>6.86,3.67,6.65,0.54</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox44</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text>Obligado</Text>
<TextBrush>[0:0:0]</TextBrush>
</Textbox44>
<Text15 Ref="110" type="Text" isKey="true">
<AutoWidth>True</AutoWidth>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17,0.2,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>Text15</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text>{Serie}</Text>
<TextBrush>[255:0:0]</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text15>
<Text16 Ref="111" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>18,0.2,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>Text16</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text>Folio:</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text16>
<Text17 Ref="112" type="Text" isKey="true">
<AutoWidth>True</AutoWidth>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>19,0.2,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>Text17</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text>{Folio}</Text>
<TextBrush>[255:0:0]</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text17>
<Text18 Ref="113" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>15.4,0.2,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>Text18</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text>Serie:</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text18>
<Line1 Ref="114" type="HorizontalLinePrimitive" isKey="true">
<ClientRectangle>0,1.44,21,0.0254</ClientRectangle>
<Color>Black</Color>
<Conditions isList="true" count="0" />
<EndCap Ref="116" type="Cap" isKey="true">
<EndCap Ref="115" type="Cap" isKey="true">
<Color>Black</Color>
</EndCap>
<Expressions isList="true" count="0" />
<Name>Line4</Name>
<Linked>True</Linked>
<Name>Line1</Name>
<Page isRef="7" />
<Parent isRef="57" />
<StartCap Ref="117" type="Cap" isKey="true">
<Parent isRef="104" />
<StartCap Ref="116" type="Cap" isKey="true">
<Color>Black</Color>
</StartCap>
</Line4>
</Line1>
<Line3 Ref="117" type="HorizontalLinePrimitive" isKey="true">
<ClientRectangle>6.86,4.66,6.65,0.0254</ClientRectangle>
<Color>Black</Color>
<Conditions isList="true" count="0" />
<EndCap Ref="118" type="Cap" isKey="true">
<Color>Black</Color>
</EndCap>
<Expressions isList="true" count="0" />
<Linked>True</Linked>
<Name>Line3</Name>
<Page isRef="7" />
<Parent isRef="104" />
<StartCap Ref="119" type="Cap" isKey="true">
<Color>Black</Color>
</StartCap>
</Line3>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>FooterBand1</Name>
<GrowToHeight>True</GrowToHeight>
<Name>Pagare</Name>
<Page isRef="7" />
<Parent isRef="30" />
</FooterBand1>
<Parent isRef="103" />
<PrintOn>OnlyLastPage</PrintOn>
</Pagare>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight>
<Name>Panel1</Name>
<Name>FooterBand2</Name>
<Page isRef="7" />
<Parent isRef="7" />
</Panel1>
</FooterBand2>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
@@ -8069,10 +8075,10 @@ ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPE
<value>Stimulsoft.Report.Dll</value>
</ReferencedAssemblies>
<ReportAlias>Factura</ReportAlias>
<ReportChanged>12/3/2022 4:12:16 PM</ReportChanged>
<ReportChanged>12/9/2022 10:44:46 AM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>C:\inetpub\wwwSIGGIT\Empresas\140\Formatos\Factura.mrt</ReportFile>
<ReportGuid>37b51e78986c4b0a95ef37a74df287a1</ReportGuid>
<ReportGuid>3135a03f0de04b128f910e44a3c041ce</ReportGuid>
<ReportName>Factura</ReportName>
<ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion>

3840
Empresas/2/Formatos/Factura2.rdlc
View File

File diff suppressed because it is too large Load Diff

2
Inicio.aspx.vb
View File

@@ -76,6 +76,8 @@ Partial Class Inicio
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
If Not IsNothing(Request("logout")) AndAlso Request("logout").ToString() = "1" Then
Usuario.CerrarSession()
Exit Sub

8
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -1301,12 +1301,6 @@ Partial Class Inventarios_RecepcionUsados
For Each Dr As DataRow In DtMovimientos.Rows
If CveConcepto = 42 AndAlso DdlMoneda.SelectedValue.ToEntero = 2 Then
ImporteConcepto = Dr("PU").ToString.ToDecimal * GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
Else
ImporteConcepto = Dr("PU").ToString.ToDecimal
End If
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
Mensaje = "Error al guardar los movimientos"
ErrorMovInv = True
@@ -1355,7 +1349,7 @@ Partial Class Inventarios_RecepcionUsados
''GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC
If Not ErrorMovInv Then
ErrorMovInv = Not GeneraPrePoliza(CveMovimiento, ObjInventario, ObjConta, True)
ErrorMovInv = Not GeneraPrePoliza(CveMovimiento, ObjInventario, ObjConta, False)
End If
End If

10
Inventarios/RepExistenciasCostos.aspx.vb
View File

@@ -273,12 +273,12 @@ Partial Class Inventarios_RepExistenciasCostos
Private Sub impimir(Optional reporte As String = "PDF")
Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}")
Dim Moneda = If(DdlMoneda.SelectedValue = "-1", "", $"&emsp;<b>Moneda:</b> {DdlMoneda.SelectedItem.Text}")
Dim Concepto = If(DdlTipoMovimiento.SelectedValue = "-1", "", $"&emsp;<b>Concepto:</b> {DdlTipoMovimiento.SelectedItem.Text}")
Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {If(DdlProveedor.SelectedItem Is Nothing, "", DdlProveedor.SelectedItem.Text)}")
Dim Moneda = If(DdlMoneda.SelectedValue = "-1", "", $"&emsp;<b>Moneda:</b> {If(DdlMoneda.SelectedItem Is Nothing, "", DdlMoneda.SelectedItem.Text)}")
Dim Concepto = If(DdlTipoMovimiento.SelectedValue = "-1", "", $"&emsp;<b>Concepto:</b> {If(DdlTipoMovimiento.SelectedItem Is Nothing, "", DdlTipoMovimiento.SelectedItem.Text)}")
Dim PS = If(HFProducto.Value.ToEntero > 0, $"&emsp;<b>Producto/Servicio:</b> {GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=HFProducto.Value.ToEntero).Rows(0)("PSCodigo").ToString}", "")
Dim Almacen = If(DdlAlmacen.SelectedValue = " - 1", "", $"&emsp;<b>Almacen: </b> {DdlAlmacen.SelectedItem.Text}")
Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificacion:</b> {DdlClasificacion.SelectedItem.Text}")
Dim Almacen = If(DdlAlmacen.SelectedValue = " - 1", "", $"&emsp;<b>Almacen: </b> {If(DdlAlmacen.SelectedItem Is Nothing, "", DdlAlmacen.SelectedItem.Text)}")
Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificacion</b>{If(DdlClasificacion.SelectedItem Is Nothing, "", DdlClasificacion.SelectedItem.Text)}")
Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {TxtFechaI.Text}"
Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {TxtFechaF.Text}"
If TxtFechaI.Text = "" Then FechaIn = ""

4
Sistemas/CatSesiones.aspx.vb
View File

@@ -233,6 +233,7 @@ Partial Class Sistemas_CatSesiones
If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing
'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
ObjPS.Dispose()
GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
Using ObjVenta As New ClsVentas
If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
@@ -602,6 +603,9 @@ Partial Class Sistemas_CatSesiones
Private Sub Sistemas_CatSesiones_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim dominio As String = HttpContext.Current.Request.Url.GetLeftPart(UriPartial.Authority)
If Not Page.IsPostBack Then
GlobalDTRegimenesFiscales = Nothing
End If
'If Not dominio.Contains("gps.adsistemas") Then
' dominio = dominio.Replace("http", "https")
' Response.Redirect(dominio)

284
Ventas/Ventas.aspx.vb
View File

@@ -2346,7 +2346,7 @@ Partial Class Ventas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If UsuarioActual.CveEmpresa.Contiene(141, 152, 153, 160, 161, 162) Then System.Threading.Thread.Sleep(2000)
If Not IsPostBack Then
If IfNull(Request("Opcionx"), "").ToString = "Saldar" And UsuarioActual.CveUsuario = 100 Then
@@ -6040,7 +6040,7 @@ Partial Class Ventas
DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
DdlMetodoCliente.DataBind()
If CveMetodoPago = 1 AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then
If UsuarioActual.CveRol = 1 AndAlso CveMetodoPago = 1 AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then
If TmpDT.SUMD("Descuento") > 0 Then
Dim TotalDescuento As Decimal = TmpDT.SUMD("Total", "Descuento > 0") * 0.05D
Dim RowDescuentos = TmpDT.Select("Descuento > 0")
@@ -6211,7 +6211,6 @@ Partial Class Ventas
End Sub
Private Sub CargaEmpresaCRM(CveEmpresaCRM As Integer)
Dim ObjCRM As New ClsCRM
If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM) Then
@@ -6283,7 +6282,6 @@ Partial Class Ventas
ObjCRM.Dispose()
End Sub
Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = -1)
If CveCliente <= 0 Then Exit Sub
@@ -6511,10 +6509,6 @@ Partial Class Ventas
ChkEmitirComercioExterior.Checked = True
ChkEmitirComercioExterior_CheckedChanged(ChkEmitirComercioExterior, EventArgs.Empty)
If CveCliente = 665317 Then
ChkAplicaDestinatario.Checked = True
ChkAplicaDestinatario_CheckedChanged(ChkAplicaDestinatario, EventArgs.Empty)
End If
End If
@@ -9143,15 +9137,15 @@ Partial Class Ventas
EsValido = True
End If
'If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
' CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo)
' 'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
' If PU <= CostoMayor Then
' EsValidoMayor = True
' End If
'Else
' EsValidoMayor = True
'End If
If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo)
'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
If PU <= CostoMayor Then
EsValidoMayor = True
End If
Else
EsValidoMayor = True
End If
'VALIDA PROMOCION: SI TIENE PROMOCION Y EL PRECIO ES MENOR AL PRECIO DE PROMOCION, NO PASA | SI YA CUMPLE NO VUELVE A VALIDAR
If Not EsValido Or PU = 0 Then
@@ -9167,24 +9161,24 @@ Partial Class Ventas
End If
'NO DEJA REGISTRAR CON VALIDACION DE COSTO ALMACEN O PROMOCION
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
'If Not EsValido Then
If Not EsValido Then
' MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo ni a un precio mayor de su rango aceptado<br/>", dr("PS").ToString())
' If TienePermisoImportes Then
' MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
' MensajeCosto.AppendFormat("El rango menor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero(), CostoMenor)
' MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
' End If
'End If
MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo ni a un precio mayor de su rango aceptado<br/>", dr("PS").ToString())
If TienePermisoImportes Then
MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
MensajeCosto.AppendFormat("El rango menor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero(), CostoMenor)
MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
End If
End If
'If Not EsValidoMayor Then
' MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", dr("PS").ToString())
' If TienePermisoImportes Then
' MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
' MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero(), CostoMayor)
' MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
' End If
'End If
If Not EsValidoMayor Then
MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", dr("PS").ToString())
If TienePermisoImportes Then
MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero(), CostoMayor)
MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
End If
End If
' SOLO SI TIENE LA FUNCIONALIDAD DE RESTRICCION VALIDA EL IMPORTE CERO
If UsuarioActual.Empresa.Funcionalidad(139).ToString().ToEntero() > 0 Then
@@ -9359,7 +9353,7 @@ Partial Class Ventas
TmpDTError = TmpDT.Copy()
End If
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then
If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then
If LblDescuentoAdicional.Text.ToDecimal() > 0 Then
Dim TotalDescuento As Decimal = LblDescuentoAdicional.Text.ToDecimal() / (1D + TmpDT.MAX("PorcentajeIVA").ToString().ToDecimal())
Dim RowDescuentos = TmpDT.Select("Descuento > 0")
@@ -10139,11 +10133,20 @@ Partial Class Ventas
If ChkEnviarFacturaCRM.Checked AndAlso CorreoContactoCRM.Trim.Length > 0 Then
Try
'MANDA CORREO
Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(True, Factura, UsuarioActual, strURLHOST, CorreoCRM:=CorreoContactoCRM))
Hilo.Start()
Dim pdfCRM As Byte() = Nothing
'If CveVenta > 0 Then
' ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
'End If
pdfCRM = PdfFactura(ObjFactura)
If pdfCRM IsNot Nothing Then
Dim SerieFolioCRM As String = ObjFactura.SerieFolio
Dim TipoDoctoCRM As String = ObjFactura.TipoDocto
GeneraPDFCotizacion(True, CorreoContactoCRM:=CorreoContactoCRM, pdfCRM:=pdfCRM, SerieFolioCRM:=SerieFolioCRM, TipoDoctoCRM:=TipoDoctoCRM)
End If
Catch ex As Exception
OnError("Ocurrió un error al enviar el PDF", ex)
End Try
@@ -10158,6 +10161,21 @@ Partial Class Ventas
End If
End If
If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveEmpresaCRM > 0 AndAlso CveAcercamientoCRM > 0 Then
Dim ArchivoCotRdlc As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.rdlc", UsuarioActual.Empresa.Ruta))
Dim ArchivoCotMrt As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.mrt", UsuarioActual.Empresa.Ruta))
If ArchivoCotRdlc.Exists Or ArchivoCotMrt.Exists Then
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
Else
MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ")
End If
End If
'ERROR DE NO TIMBRADO
If Not SeTimbro And (DdlTipoComprobante.SelectedValue = "Ing" Or DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") Or DdlTipoComprobante.SelectedValue = "Ant") Then
MensajeAlert.AppendFormat("La factura no se pudo timbrar.</b> Por favor intentelo de nuevo a traves del boton Emitir.")
@@ -10179,17 +10197,12 @@ Partial Class Ventas
End Select
'AUTO DESCARGAR PDF
If UsuarioActual.CveEmpresa.Contiene(72) Then
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then
RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta))}'", "Imprimir")
End If
End If
If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveEmpresaCRM > 0 AndAlso CveAcercamientoCRM > 0 Then
RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta))}'", "Imprimir")
End If
'DESCARGAR PDF DE CICOVISA
'If UsuarioActual.CveEmpresa = 72 And CveCliente = 70381 Then
' If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
@@ -10286,8 +10299,6 @@ Partial Class Ventas
Liga2 = $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}"";"
End If
If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveEmpresaCRM > 0 AndAlso CveAcercamientoCRM > 0 Then
Liga = $"document.location.href=""/CRM/Acercamiento.aspx?CveAcercamiento={CveAcercamientoCRM}&OPTAB=COT"";"
Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga, TextoConfirmacion:="Aceptar", TextoSegundoBoton:=Nothing, JSBtn2:=Nothing, ShowCloseButton:=False)
@@ -10296,9 +10307,6 @@ Partial Class Ventas
End If
MensajeAlert.Clear()
Try
@@ -15840,39 +15848,56 @@ Partial Class Ventas
End If
End Sub
Private Sub GeneraPDFCotizacion(EnviaCorreo As Boolean)
Dim pdf As Byte() = Nothing
Private Sub GeneraPDFCotizacion(EnviaCorreo As Boolean, Optional CorreoContactoCRM As String = "", Optional pdfCRM As Byte() = Nothing,
Optional SerieFolioCRM As String = "", Optional TipoDoctoCRM As String = "")
Dim pdf As Byte() = Nothing
'GUARDA PDF
Dim LocalSerieFolio As String = String.Empty
Dim LocalTipoDocto As String = String.Empty
'TIMBRADO NUEVO
Try
If CveVenta > 0 Then
ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
End If
pdf = PdfFactura(ObjFactura)
Catch ex As Exception
OnError("Ocurrió un error al generar el PDF", ex)
End Try
If CorreoContactoCRM.Trim.Length > 0 Then
pdf = pdfCRM
LocalSerieFolio = SerieFolioCRM
LocalTipoDocto = TipoDoctoCRM
Else
Try
If CveVenta > 0 Then
ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
End If
pdf = PdfFactura(ObjFactura)
LocalSerieFolio = ObjFactura.SerieFolio
LocalTipoDocto = ObjFactura.TipoDocto
Catch ex As Exception
OnError("Ocurrió un error al generar el PDF", ex)
End Try
End If
LocalSerieFolio = ObjFactura.SerieFolio
LocalTipoDocto = ObjFactura.TipoDocto
'MANDA CORREO
If EnviaCorreo Then
Dim ArchivoAdjunto As String = ""
Dim ArchivoXML = ""
Dim ArchivoPDF = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, LocalTipoDocto, LocalSerieFolio)
If Adjunto <> "" Then
ArchivoAdjunto = String.Format("{0}Ventas\{1}", UsuarioActual.Empresa.Ruta, Adjunto)
End If
Try
' BytesPdfCotizacion(CveVenta)
Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto))
Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto, CorreoContactoCRM:=CorreoContactoCRM))
Hilo.Start()
Catch ex As Exception
OnError("Ocurrió error al mandar Mail", ex)
@@ -16206,8 +16231,47 @@ Partial Class Ventas
For Each gvr As GridViewRow In GVAnticipos.Rows
If gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked Then
Dim FechaUltimaFluctuacion As Date = MinFecha
Dim TipoCambioFluctuacion As Decimal = 1
Dim tFecha As Date = Now
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
End If
End If
If DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 1 Then 'SI LA VENTA VIENE EN PESOS Y SE VA A PAGAR EN PESOS
tipoCambioPago = 1
tipoCambioVenta = 1
tipoCambioVentaValuacion = 1
PorcentajePago = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal
ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 1 Then 'SI LA VENTA VIENE EN DOLARES Y SE VA A PAGAR EN PESOS
tipoCambioPago = gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
tipoCambioVenta = TxtTipoCambio.Text.ToDecimal
tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal)
PorcentajePago = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal) / gvr.DataKey("Original").ToDecimal
ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then 'SI LA VENTA VIENE EN DOLARES Y SE VA A PAGAR EN DOLARES
tipoCambioPago = gvr.DataKey("TipoCambio").ToString().ToDecimal
tipoCambioVenta = TxtTipoCambio.Text.ToDecimal
tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal)
PorcentajePago = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal
ElseIf DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then 'SI LA VENTA VIENE EN PESOS Y SE VA A PAGAR EN DOLARES
tipoCambioPago = gvr.DataKey("TipoCambioHoy").ToDecimal() ' gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
tipoCambioVenta = 1
tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal)
PorcentajePago = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal) / gvr.DataKey("Original").ToDecimal
End If
Dim importeMovimiento As Decimal = 0
Dim importeMN As Decimal = 0
Dim TC As Decimal
Dim IdCtaContable As Integer
Dim TipoMovimiento As Boolean = True
Dim Concepto As String = VentaActual.SerieFolio
@@ -16238,14 +16302,23 @@ Partial Class Ventas
If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
importeMN = importeMovimiento
TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 2 Then
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
importeMN = importeMovimiento * gvr.DataKey("TipoCambio").ToString().ToDecimal
TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
ElseIf CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 2 Then
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
importeMN = importeMovimiento * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
TC = TipoCambioFluctuacion
ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
importeMN = importeMovimiento
TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
End If
importeMovimiento = importeMovimiento.RoundSQL
importeMN = importeMN.RoundSQL
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(12, CveCliente) Then
If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -16277,22 +16350,81 @@ Partial Class Ventas
If gvr.DataKey("CveIE").ToEntero() > 0 Then
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
IdCtaContable = IdCtaContClientes
If importeMovimiento <> 0 Then
Dim Pago As New VentaPago
Pago.ImportePagoVenta = importeMovimiento
Pago.ImportePago = importeMovimiento
Pago.CveIE = CveIEAnticipo
Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero()
Pago.TCPago = gvr.DataKey("TipoCambio").ToDecimal
Pago.TipoPago = "I"
Pago.FechaDocumentoRelacionado = gvr.DataKey("Fecha").ToDate
Pago.TipoPago = "A"
Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
Pago.AplicaTraslado = gvr.DataKey("RegresarImpuesto") = "1"
Pago.Referencia = gvr.DataKey("Folio")
ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
' Agregamos el 2
If tipoCambioPago = 1 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContClientes, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, CveSubProyecto:=CveSubProyectoVenta) Then
ErrorConta = True
End If
Else 'Cuando son dolares
If importeMovimiento <> 0 Then
If IdCtaContComplementaria > 0 Or 0 > 0 Then
'Agregamos la Complementaria
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, 0, Concepto, 207, Concepto, Now, IdCtaContComplementaria, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
ErrorConta = True
End If
'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
ErrorConta = True
End If
Else
'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
ErrorConta = True
End If
End If
End If
End If
importeMovimiento = ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / TxtTotal.Text.ToDecimal) * TxtIVA.Text.ToDecimal)
importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
'Agregamos el 92
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal 'gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo" & gvr.RowIndex).ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
IdCtaContable = IdCtaContAnticipos
If ObjCliente.GetClientes(gvr.DataKey("CveCliente").ToEntero(), "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
If Not tipoCambioPago = 1 Then
IdCtaContable = ObjCliente.IdCtaMonedaExtranjeraAnticipos
Else
IdCtaContable = ObjCliente.IdCtaContAnticipos
End If
End If
End If
If UsuarioActual.CveEmpresa.Contiene(119) Then
If gvr.DataKey("Fecha").ToDate.Year <= 2017 AndAlso TxtFechaAnticipoCliente.Text.ToDate.Year >= 2018 Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
If Not tipoCambioPago = 1 Then
IdCtaContable = ObjCliente.IdCtaContMonedaExtranjera
Else
IdCtaContable = ObjCliente.IdCtaContClientes
End If
End If
End If
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, 555, Concepto, Now, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMN, CveCuenta:=-1, TipoCambio:=tipoCambioPago, CveSubProyecto:=CveSubProyectoVenta) Then
ErrorConta = True
End If
End If
End If
End Select
@@ -18225,7 +18357,7 @@ Partial Class Ventas
Return ObjDescuento
End If
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Cot") AndAlso CveRinTamañoPS > 0 Then
If UsuarioActual.CveRol = 1 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Cot") AndAlso CveRinTamañoPS > 0 Then
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Not TbDescuentosAdicionales.Visible Then
TbDescuentosAdicionales.Visible = True
End If
@@ -20573,6 +20705,7 @@ Partial Class Ventas
Dim DtCostos As DataTable = Nothing
Dim DtCostosDistinct As DataTable = Nothing
Dim IdCtaContable As Integer = 0
Dim ValorInventario As Decimal = 0D
Dim TotalCostoAcumulado As Decimal = 0D
Dim Cont As Integer = 1
@@ -21010,12 +21143,21 @@ Partial Class Ventas
#End Region
#Region " MANDA CORREO "
Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String, Adjunto As String, Optional CorreoCRM As String = "")
Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String, Adjunto As String, Optional CorreoContactoCRM As String = "")
Dim ObjMail As New ClsSisMail()
Dim ResultadoMail As Integer = 0
Dim CorreoDestino As String = If(CorreoCRM.Trim.Length > 0, CorreoCRM, Mail)
Dim CorreoDestino As String = ""
If CorreoContactoCRM.Trim.Length > 0 Then
CorreoDestino = CorreoContactoCRM
ViewState("MailCC") = ""
End If
Try
@@ -22599,7 +22741,7 @@ Partial Class Ventas
VieneDeCotizacion = True
End If
If DdlTipoComprobante.SelectedValue = "Ing" AndAlso (Not VieneDeCotizacion) AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DtPagos IsNot Nothing AndAlso TbDescuentosAdicionales.Visible Then
If UsuarioActual.CveRol = 1 AndAlso DdlTipoComprobante.SelectedValue = "Ing" AndAlso (Not VieneDeCotizacion) AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DtPagos IsNot Nothing AndAlso TbDescuentosAdicionales.Visible Then
If TmpDT.SUMD("Descuento") > 0 AndAlso DtPagos.SUMD("Importe", "MesesSinIntereses <=0") = TxtTotal.Text.ToDecimal() Then
Dim TotalDescuento As Decimal = TmpDT.SUMD("Total", "Descuento > 0") * 0.05D
Dim RowDescuentos = TmpDT.Select("Descuento > 0")

2
packages.config
View File

@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="AjaxControlToolkit" version="15.1.4.0" targetFramework="net481" />
<package id="AjaxControlToolkit" version="20.1.0.0" targetFramework="net481" />
<package id="AjaxControlToolkit.StaticResources" version="15.1.4.0" targetFramework="net481" />
<package id="Antlr" version="3.4.1.9004" targetFramework="net481" />
<package id="BarcodeLib" version="2.4.0" targetFramework="net481" />