diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb
index a9469f6b0..111ecd684 100644
--- a/App_Code/CFDITimbre.vb
+++ b/App_Code/CFDITimbre.vb
@@ -344,13 +344,9 @@ Public Class CFDIConceptosImpuestos
Public Property TipoFactor As String = "Tasa"
Public Property TasaOCuota As Decimal = 0.00D
Public Property Importe As Decimal = 0.00D ' propiedad utilizada solo para hacer ajustes, por default toma la multiplicación de base * tasa
- Public Property BaseMN As Decimal = 0.00D
- Public Property ImporteMN As Decimal = 0.00D
- 'Public ReadOnly Property Importe As Decimal
- ' Get
- ' If ImporteT = 0.00 Then Return Base * TasaOCuota Else Return ImporteT
- ' End Get
- 'End Property
+ Public Property BaseMN As Decimal = 0.000000D
+ Public Property ImporteMN As Decimal = 0.000000D
+
End Class
@@ -401,6 +397,7 @@ Public Class CFDIRetenciones
Public Property Impuesto As String
Public Property Importe As Decimal = 0.000000D
Public Property TasaOCuota As String
+ Public Property ImporteMN As Decimal = 0.000000D
End Class
@@ -428,7 +425,6 @@ Public Class CFDITraslados
Public Property Base As Decimal = 0.000000D
Public Property ImporteMN As Decimal = 0.000000D
Public Property BaseMN As Decimal = 0.000000D
- Public Property EquivalenciaDR As Decimal = 0.000000D
End Class
@@ -463,17 +459,17 @@ Public Class CFDIComplementoPagos
Public ReadOnly Property Totales As CFDIComplementoPagosTotales
Get
Dim tRetorno As New CFDIComplementoPagosTotales
- tRetorno.MontoTotalPagos = (From c In DocumentosRelacionados Select c.ImpPagado * TipoCambioP).Sum()
+ tRetorno.MontoTotalPagos = (From c In DocumentosRelacionados Select c.ImpPagadoMN).Sum()
- tRetorno.TotalTrasladosBaseIVA0 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0 Select c.BaseMN * c.EquivalenciaDR).Sum()
- tRetorno.TotalTrasladosBaseIVA8 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.BaseMN * c.EquivalenciaDR).Sum()
- tRetorno.TotalTrasladosBaseIVA16 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.BaseMN * c.EquivalenciaDR).Sum()
+ tRetorno.TotalTrasladosBaseIVA0 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0 Select c.BaseMN).Sum()
+ tRetorno.TotalTrasladosBaseIVA8 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.BaseMN).Sum()
+ tRetorno.TotalTrasladosBaseIVA16 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.BaseMN).Sum()
- tRetorno.TotalTrasladosImpuestoIVA0 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0 Select c.Importe * c.EquivalenciaDR).Sum()
- tRetorno.TotalTrasladosImpuestoIVA8 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.ImporteMN * c.EquivalenciaDR).Sum()
- tRetorno.TotalTrasladosImpuestoIVA16 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.ImporteMN * c.EquivalenciaDR).Sum()
+ tRetorno.TotalTrasladosImpuestoIVA0 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0 Select c.Importe).Sum()
+ tRetorno.TotalTrasladosImpuestoIVA8 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.ImporteMN).Sum()
+ tRetorno.TotalTrasladosImpuestoIVA16 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.ImporteMN).Sum()
- tRetorno.TotalRetencionesIEPS = (From c In Retenciones Where c.Impuesto = "003" Select c.Importe).Sum()
+ tRetorno.TotalRetencionesIEPS = (From c In Retenciones Where c.Impuesto = "003" Select c.ImporteMN).Sum()
Return tRetorno
End Get
@@ -510,15 +506,15 @@ Public Class CFDIComplementoPagos
For Each c As CFDIComplementoPagosDocsRelacionados In DocumentosRelacionados
For Each imp As CFDIConceptosImpuestos In c.Impuestos
If imp.TrasladooRetencion = "R" Then
- tRetorno.Add(New CFDIRetenciones With {.Impuesto = imp.Impuesto, .Importe = imp.Importe * (1 / c.TipoCambioDR)})
-
+ tRetorno.Add(New CFDIRetenciones With {.Impuesto = imp.Impuesto, .Importe = imp.Importe, .ImporteMN = imp.ImporteMN})
End If
Next
Next
If tRetorno.Count > 0 Then
TRetenciones = tRetorno.GroupBy(Function(t) New With {Key t.Impuesto}) _
.Select(Function(t) New CFDIRetenciones With {.Impuesto = t.Key.Impuesto,
- .Importe = t.Sum(Function(tt) tt.Importe)}) _
+ .Importe = t.Sum(Function(tt) tt.Importe),
+ .ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _
.OrderBy(Function(x) x.Impuesto).ToList
End If
@@ -535,7 +531,7 @@ Public Class CFDIComplementoPagos
For Each c As CFDIComplementoPagosDocsRelacionados In DocumentosRelacionados
For Each imp As CFDIConceptosImpuestos In c.Impuestos
If imp.TrasladooRetencion = "T" Then
- tRetorno.Add(New CFDITraslados With {.Impuesto = imp.Impuesto, .Base = imp.Base, .Importe = imp.Importe, .TasaOCuota = imp.TasaOCuota, .TipoFactor = imp.TipoFactor, .BaseMN = imp.BaseMN, .ImporteMN = imp.ImporteMN, .EquivalenciaDR = c.TipoCambioDR})
+ tRetorno.Add(New CFDITraslados With {.Impuesto = imp.Impuesto, .Base = imp.Base, .Importe = imp.Importe, .TasaOCuota = imp.TasaOCuota, .TipoFactor = imp.TipoFactor, .BaseMN = imp.BaseMN, .ImporteMN = imp.ImporteMN})
End If
Next
Next
@@ -572,6 +568,7 @@ Public Class CFDIComplementoPagosDocsRelacionados
Public Property NumParcialidad As Integer = 1
Public Property ImpSaldoAnt As Decimal
Public Property ImpPagado As Decimal
+ Public Property ImpPagadoMN As Decimal
Public Property ImpSaldoInsoluto As Decimal
Public Property ObjetoImpuesto As String = "01"
Public Property Impuestos As List(Of CFDIConceptosImpuestos)
diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index ca226a78c..81e48843d 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -1162,7 +1162,34 @@ Public Class ClsContPAQi
StrSQL.AppendLine("")
StrSQL.AppendLine(" BEGIN TRY")
StrSQL.AppendLine("")
- StrSQL.AppendLine(" SET ARITHABORT ON; ")
+ 'StrSQL.AppendLine(" SET ARITHABORT ON; ")
+
+
+
+ StrSQL.AppendLine(" SET ROWCOUNT 0 ;")
+ StrSQL.AppendLine(" SET TEXTSIZE 2147483647 ;")
+ StrSQL.AppendLine(" SET NOCOUNT OFF ;")
+ StrSQL.AppendLine(" SET CONCAT_NULL_YIELDS_NULL ON ;")
+ StrSQL.AppendLine(" SET ARITHABORT ON ;")
+ StrSQL.AppendLine(" SET LOCK_TIMEOUT -1 ;")
+ StrSQL.AppendLine(" SET QUERY_GOVERNOR_COST_LIMIT 0 ;")
+ StrSQL.AppendLine(" SET DEADLOCK_PRIORITY NORMAL ;")
+ StrSQL.AppendLine(" SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED ;")
+ StrSQL.AppendLine(" SET ANSI_NULLS ON ;")
+ StrSQL.AppendLine(" SET ANSI_NULL_DFLT_ON ON ;")
+ StrSQL.AppendLine(" SET ANSI_PADDING ON ;")
+ StrSQL.AppendLine(" SET ANSI_WARNINGS ON ;")
+ StrSQL.AppendLine(" SET CURSOR_CLOSE_ON_COMMIT OFF ;")
+ StrSQL.AppendLine(" SET IMPLICIT_TRANSACTIONS OFF ;")
+ StrSQL.AppendLine(" SET QUOTED_IDENTIFIER ON ;")
+ StrSQL.AppendLine(" SET NOEXEC, PARSEONLY, FMTONLY OFF ;")
+
+
+
+
+
+
+
StrSQL.AppendLine("")
StrSQL.AppendLine(" CREATE TABLE #TablaContable (")
StrSQL.AppendLine(" Id INT,")
@@ -2015,6 +2042,7 @@ Public Class ClsContPAQi
StrSQL.AppendLine("END")
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
+
With SqlAdapter.SelectCommand.Parameters
.Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveFuncionalidad", SqlDbType.Int).Value = CveFuncionalidad
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 4f690b468..b9e31dd39 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9041,8 +9041,6 @@ Public Class ClsPaginas
Else ' se considera que es la version 4.0
cfdVer = "http://www.sat.gob.mx/cfd/4"
End If
-
-
If Version = "4.0" Then
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
@@ -9053,8 +9051,6 @@ Public Class ClsPaginas
End If
End If
-
-
namespaces.AddNamespace(Prefijo, cfdVer)
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
@@ -9119,17 +9115,8 @@ Public Class ClsPaginas
DrRelacionado("MonedaDR") = Relacionado.Attributes("MonedaDR").Value
-
If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso Version = "4.0" Then
-
-
- ' Relacionado.SelectSingleNode($"//{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces)
-
- 'Dim NodoImpuestosDR As XmlNode = Relacionado.SelectSingleNode($"{PagoVersion}:ImpuestosDR", namespaces)
- 'Dim NodoTrasladosDR As XmlNode = NodoImpuestosDR.SelectSingleNode($"{PagoVersion}:TrasladosDR", namespaces)
- 'Dim TrasladoDR As XmlNodeList = NodoTrasladosDR.ChildNodes
-
Dim NodosTraslados = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces)
For Each NodoTraslados As XmlNode In NodosTraslados
@@ -9138,7 +9125,6 @@ Public Class ClsPaginas
Dim TasaOCuotaDR As String = ValorXML(NodoTraslados, "TasaOCuotaDR")
Dim ImporteDR As Decimal = ValorXML(NodoTraslados, "ImporteDR").ToDecimal
-
If ImpuestoDR = "001" Then
DrRelacionado("Tra001ImpuestoDR") = ImpuestoDR
DrRelacionado("Tra001TipoFactorDR") = TipoFactor
@@ -9159,19 +9145,15 @@ Public Class ClsPaginas
DrRelacionado("Tra003TasaOCuotaDR") = TasaOCuotaDR
DrRelacionado("Tra003ImporteDR") = ImporteDR
End If
-
Next
-
For Each NodoRetenciiones As XmlNode In Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:RetencionesDR/{PagoVersion}:RetencionDR", namespaces)
-
Dim ImpuestoDR As String = ValorXML(NodoRetenciiones, "ImpuestoDR") ' ImpuestoDR
Dim TipoFactor As String = ValorXML(NodoRetenciiones, "TipoFactorDR")
Dim TasaOCuotaDR As String = ValorXML(NodoRetenciiones, "TasaOCuotaDR")
Dim ImporteDR As Decimal = ValorXML(NodoRetenciiones, "ImporteDR").ToDecimal
-
If ImpuestoDR = "001" Then
DrRelacionado("Ret001ImpuestoDR") = ImpuestoDR
DrRelacionado("Ret001TipoFactorDR") = TipoFactor
@@ -9192,20 +9174,10 @@ Public Class ClsPaginas
DrRelacionado("Ret003TasaOCuotaDR") = TasaOCuotaDR
DrRelacionado("Ret003ImporteDR") = ImporteDR
End If
-
Next
-
-
-
-
End If
-
DTConceptosPagoRelacionado.Rows.Add(DrRelacionado)
-
-
-
Next
-
End If
Next
@@ -9221,7 +9193,6 @@ Public Class ClsPaginas
Cantidad = nodeconcepto.Attributes("Cantidad").InnerText
CvePS = nodeconcepto.Attributes("ClaveProdServ").InnerText
End If
-
End If
Dim CadenaOriginal As String = $"||1.0| {FolioFiscal} | {FechaCertificacion.ToDate.ToShortDateString} T {FechaCertificacion.ToDateTime.ToShortTimeString} | {SelloCFDi} | {NoSerieCertificado} ||"
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 288dad8eb..6984877cd 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -2229,11 +2229,10 @@ Public Class ClsVentas
End Function
Public Function AddPromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
CveMoneda As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoAplicacion As String,
- Optional CveMarca As Integer = -1) As Integer
+ Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Integer
Dim Retorno = -1
DataAdapter("PA_Vta_PromocionesAdd")
-
With SqlAdapter.SelectCommand.Parameters
.Add("@Promocion", SqlDbType.VarChar).Value = Promocion
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
@@ -2247,6 +2246,7 @@ Public Class ClsVentas
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@TipoAplicacion", SqlDbType.VarChar).Value = TipoAplicacion
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+ .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
.Add("@CvePromocion", SqlDbType.Int).Direction = ParameterDirection.Output
End With
@@ -2260,11 +2260,10 @@ Public Class ClsVentas
Return Retorno
End Function
Public Function UpdatePromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
- CveMoneda As Integer, CveUsuario As Integer, CvePromocion As Integer, CveSubProyecto As Integer, TipoAplicacion As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1) As Boolean
+ CveMoneda As Integer, CveUsuario As Integer, CvePromocion As Integer, CveSubProyecto As Integer, TipoAplicacion As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_PromocionesUpdate")
-
With SqlAdapter.SelectCommand.Parameters
.Add("@Promocion", SqlDbType.VarChar).Value = Promocion
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
@@ -2278,6 +2277,7 @@ Public Class ClsVentas
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@TipoAplicacion", SqlDbType.Int).Value = TipoAplicacion
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+ .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 3cc4a22a8..36bf96aae 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -1107,7 +1107,7 @@ Public Class Timbrado
Dim VentaFolioFiscal, VentaSerie, VentaFolio, VentaAbreviaturaSAT, VentaMetodoPago, ObjetoImpuesto As String
- Dim VentaImportePago, VentaImporteSaldoInsoluto, VentaImporteSaldoAnterior, VentaTipoCambio, VentaTipoCambioMN, PorcentajeIVA, PorcentajeIEPS As Decimal
+ Dim VentaImportePago, VentaImportePagoMN, VentaImporteSaldoInsoluto, VentaImporteSaldoAnterior, VentaTipoCambio, VentaTipoCambioMN, PorcentajeIVA, PorcentajeIEPS As Decimal
Dim VentaNumParcialidad As Integer
If dttpagos IsNot Nothing AndAlso dttpagos.Rows.Count > 0 Then
@@ -1126,6 +1126,7 @@ Public Class Timbrado
PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
PorcentajeIEPS = dr("PorcentajeIEPS").ToString.ToDecimal
ObjetoImpuesto = dr("ObjetoImpuesto").ToString
+ VentaImportePagoMN = dr("VentasTotalPagado").ToString.ToDecimal
'' si la moneda es igual, se omite el tipo de cambio de la venta
If MonedaPago = VentaAbreviaturaSAT Then
@@ -1134,7 +1135,7 @@ Public Class Timbrado
'condiciones especiales para el pago en pesos, facturas en moneda extranjera
ElseIf MonedaPago = "MXN" AndAlso VentaAbreviaturaSAT <> "MXN" Then
VentaTipoCambioMN = VentaTipoCambio
- VentaTipoCambio = 1 / VentaTipoCambio
+ VentaTipoCambio = (1 / VentaTipoCambio).RoundSQL(6)
End If
' For Each drr As Data.DataRow In DtFacturasPagadas.Rows
@@ -1144,9 +1145,10 @@ Public Class Timbrado
.MonedaDR = VentaAbreviaturaSAT,
.MetodoDePagoDR = VentaMetodoPago,
.ImpPagado = VentaImportePago,
+ .ImpPagadoMN = (VentaImportePago / VentaTipoCambio).RoundSQL,
.ImpSaldoInsoluto = VentaImporteSaldoInsoluto,
.ImpSaldoAnt = VentaImporteSaldoAnterior,
- .TipoCambioDR = VentaTipoCambioMN,
+ .TipoCambioDR = VentaTipoCambio,
.EquivalenciaDR = VentaTipoCambio,
.NumParcialidad = VentaNumParcialidad,
.ObjetoImpuesto = ObjetoImpuesto} 'If(drr("MetodoPago").ToString = "PUE", 0, drr("NumParcialidad").ToString.ToEntero)}
@@ -1158,8 +1160,8 @@ Public Class Timbrado
.TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal,
.Impuesto = drp("TipoImpuesto").ToString,
.Importe = drp("Importe").ToString().ToDecimal.RoundSQL,
- .BaseMN = (drp("Base").ToString.ToDecimal * VentaTipoCambioMN).RoundSQL,
- .ImporteMN = (drp("Importe").ToString.ToDecimal * VentaTipoCambioMN).RoundSQL
+ .BaseMN = (drp("Base").ToString.ToDecimal / VentaTipoCambio).RoundSQL(6),
+ .ImporteMN = (drp("Importe").ToString.ToDecimal * VentaTipoCambio).RoundSQL(6)
}
)
@@ -4186,9 +4188,9 @@ Public Class Timbrado
If docimp.TrasladooRetencion = "T" Then
Dim Tra As New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionadoImpuestosDRTrasladoDR
- Tra.BaseDR = docimp.BaseMN.RoundSQL(2)
+ Tra.BaseDR = docimp.Base.RoundSQL(2)
Tra.ImporteDRSpecified = True
- Tra.ImporteDR = docimp.ImporteMN.RoundSQL(2)
+ Tra.ImporteDR = docimp.Importe.RoundSQL(2)
Tra.ImpuestoDR = docimp.Impuesto
Tra.TipoFactorDR = docimp.TipoFactor
Tra.TasaOCuotaDRSpecified = True
@@ -4225,8 +4227,8 @@ Public Class Timbrado
ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).ImpuestoP = Tra.Impuesto
ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).TipoFactorP = Tra.TipoFactor
ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).TasaOCuotaP = Tra.TasaOCuota.RoundSQL(6)
- ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).ImporteP = Tra.Importe.RoundSQL(6)
- ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).BaseP = Tra.Base.RoundSQL(2)
+ ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).ImporteP = Tra.ImporteMN.RoundSQL(6)
+ ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).BaseP = Tra.BaseMN.RoundSQL(2)
x += 1
Next
End If
@@ -5100,7 +5102,7 @@ Public Class Timbrado
doc.Serie,
doc.Folio,
doc.MonedaDR,
- doc.TipoCambioDR,
+ doc.EquivalenciaDR,
doc.NumParcialidad,
doc.ImpSaldoAnt,
doc.ImpPagado,
@@ -5135,7 +5137,7 @@ Public Class Timbrado
If (ObjCFDITimbre.ComplementoPagos.Retenciones).Count > 0 Then
For Each Ret As CFDIRetenciones In ObjCFDITimbre.ComplementoPagos.Retenciones
- cfdi.Pago20RetencionP(Ret.Impuesto, Ret.Importe)
+ cfdi.Pago20RetencionP(Ret.Impuesto, Ret.ImporteMN)
Next
End If
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 663af2a18..4e604b518 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -5861,7 +5861,7 @@ Partial Class Bancos_IE
Str.AppendFormat("XML ", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
Str.AppendFormat("PDF ", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
'Str.Append($"{gvr.DataKey("Folio")} {gvr.DataKey("NombreCliente")}
")
- PDFReciboDePagos(-1, gvr.DataKey("CveIE").ToEntero, ObjBanco.CveComplementoPago, False)
+ PDFReciboDePagos(-1, gvr.DataKey("CveIE").ToEntero, ObjBanco.CveComplementoPago, False, True)
Alert(Str.ToString, TipoMensaje.MsgInformacion)
CargaComplementosPago()
Else
@@ -6136,7 +6136,7 @@ Partial Class Bancos_IE
If Banco.GeneraTimbrePago(CveIE, -1, UsuarioActual) Then
If Banco.Mensaje = "" Then
Banco.Commit()
- PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False)
+ PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False, True)
Str.AppendFormat("Folio: {0} ", Banco.ComplementoSerieFolio)
Str.AppendFormat("XML ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
Str.AppendFormat("PDF ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago, CveIE)))
@@ -6589,7 +6589,6 @@ Partial Class Bancos_IE
End If
Else
-
Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
If resp.Verificado Then
@@ -6600,11 +6599,11 @@ Partial Class Bancos_IE
Else
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
End If
-
End If
+ End If
- ObjBanco.Dispose()
- CargaComplementosPago()
+ ObjBanco.Dispose()
+ CargaComplementosPago()
End Sub
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 7e0bae4ee..6d643bf30 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -484,7 +484,7 @@ Partial Class Bancos_PopIECompras
End If
'SI USUARIO USA AMORTIZACIÓN CONTABLE
- If UsuarioActual.Empresa.UsaAC Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
Dim AC As New ClsAC
If AC.GetPresupuestoIngresos(-1, -1, True, UsuarioActual.CveEmpresa) Then
DdlFuenteRecaudacion.DataSource = AC.DtResultados()
@@ -1834,20 +1834,24 @@ Partial Class Bancos_PopIECompras
ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra
- If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
-
- If IdCtaContRetIVA > 0 Then
- IdCtaContable = IdCtaContRetIVA
- ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
- End If
- End If
+ If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
+
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ If IdCtaContRetIVA > 0 Then
+ IdCtaContable = IdCtaContRetIVA
+ ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
End If
+
End If
Case 22 'Ret IVA Acreditable Honorarios/Serv. Prof.
If MovimientoPagar.ConceptoRetIVA > 0 Then
@@ -1887,18 +1891,22 @@ Partial Class Bancos_PopIECompras
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAAcreditable > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditable
- ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
- End If
- End If
- End If
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAAcreditable > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditable
+ ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
+ End If
+
End If
Case 16 'Ret ISR X Acreditar
@@ -1934,18 +1942,21 @@ Partial Class Bancos_PopIECompras
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISR > 0 Then
- IdCtaContable = IdCtaContRetISR
- ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR > 0 Then
+ IdCtaContable = IdCtaContRetISR
+ ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
End If
Case 23 'Ret ISR Acreditable
@@ -1980,19 +1991,22 @@ Partial Class Bancos_PopIECompras
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISRAcreditable > 0 Then
- IdCtaContable = IdCtaContRetISRAcreditable
- ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISRAcreditable > 0 Then
+ IdCtaContable = IdCtaContRetISRAcreditable
+ ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
End If
Case 14 'Iva por Acreditar
@@ -2066,12 +2080,17 @@ Partial Class Bancos_PopIECompras
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
+ End If
End If
- End If
-
+ End If
+
+
+
Case 19 'Iva Acreditable
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
@@ -2205,9 +2224,10 @@ Partial Class Bancos_PopIECompras
IdCtaContableNoIVA = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero
End If
- IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
-
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
+
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
End If
@@ -2292,7 +2312,7 @@ Partial Class Bancos_PopIECompras
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
End If
@@ -2433,7 +2453,7 @@ Partial Class Bancos_PopIECompras
IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
End If
@@ -2538,7 +2558,7 @@ Partial Class Bancos_PopIECompras
ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
End If
@@ -2561,7 +2581,7 @@ Partial Class Bancos_PopIECompras
ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
End If
@@ -2838,16 +2858,19 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = ImporteMX.RoundSQL
- 'Conta ContPAQ
- If IdCtaContRetIVACliente <> 0 Then
- IdCtaContable = IdCtaContRetIVACliente
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
- End If
- End If
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVACliente <> 0 Then
+ IdCtaContable = IdCtaContRetIVACliente
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -2877,19 +2900,22 @@ Partial Class Bancos_PopIECompras
ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
End If
ImporteMovimiento = ImporteMovimiento.RoundSQL
- ImporteMX = ImporteMX.RoundSQL
-
- 'Conta ContPAQ
- If IdCtaContRetISR <> 0 Then
- IdCtaContable = IdCtaContRetISR
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
- End If
- End If
+ ImporteMX = ImporteMX.RoundSQL
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR <> 0 Then
+ IdCtaContable = IdCtaContRetISR
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -3070,20 +3096,23 @@ Partial Class Bancos_PopIECompras
ImporteMX = ImporteMovimiento * tipoCambioPago
End If
ImporteMovimiento = ImporteMovimiento.RoundSQL
- ImporteMX = ImporteMX.RoundSQL
-
- 'Conta ContPAQ
- If IdCtaContRetIVA <> 0 Then
- IdCtaContable = IdCtaContRetIVA
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
- End If
- End If
+ ImporteMX = ImporteMX.RoundSQL
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVA <> 0 Then
+ IdCtaContable = IdCtaContRetIVA
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -3115,17 +3144,20 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = ImporteMX.RoundSQL
- 'Conta ContPAQ
- If IdCtaContRetISR <> 0 Then
- IdCtaContable = IdCtaContRetISR
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
- End If
- End If
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR <> 0 Then
+ IdCtaContable = IdCtaContRetISR
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 277f93f0e..05aaf5ef2 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -582,7 +582,7 @@ Partial Class Bancos_PopIEVentas
End If
'SI USUARIO USA AMORTIZACIÓN CONTABLE
- If UsuarioActual.Empresa.UsaAC Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
Dim AC As New ClsAC
If AC.GetPresupuestoIngresos(-1, -1, True, UsuarioActual.CveEmpresa) Then
DdlFuenteRecaudacion.DataSource = AC.DtResultados()
@@ -1830,17 +1830,20 @@ Partial Class Bancos_PopIEVentas
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVA <> 0 Then
- IdCtaContable = IdCtaContRetIVA
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVA <> 0 Then
+ IdCtaContable = IdCtaContRetIVA
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
Case 9 'Ret ISR
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
@@ -1864,17 +1867,20 @@ Partial Class Bancos_PopIEVentas
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISR <> 0 Then
- IdCtaContable = IdCtaContRetISR
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR <> 0 Then
+ IdCtaContable = IdCtaContRetISR
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
Case 13 'Iva por Trasladar
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
@@ -1961,7 +1967,7 @@ Partial Class Bancos_PopIEVentas
TimpocambioGeneral = tipoCambioVenta
CveSubProyectoContabilizar = CveSubProyectoVenta
- If ImporteMovimiento > 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento > 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
End If
@@ -1989,7 +1995,7 @@ Partial Class Bancos_PopIEVentas
CveSubProyectoContabilizar = CveSubProyectoVenta
- If ImporteMovimiento > 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento > 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero
End If
@@ -2019,17 +2025,20 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVA <> 0 Then
- IdCtaContable = IdCtaContRetIVA
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVA <> 0 Then
+ IdCtaContable = IdCtaContRetIVA
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
Case 63 'Ret ISR Trasladado
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
@@ -2054,17 +2063,20 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISR <> 0 Then
- IdCtaContable = IdCtaContRetISR
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR <> 0 Then
+ IdCtaContable = IdCtaContRetISR
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
Case 64 'Ganancia
If CveMoneda <> 1 OrElse CveMonedaVenta <> 1 Then
IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
@@ -2445,19 +2457,22 @@ Partial Class Bancos_PopIEVentas
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
ImporteMX = Math.Round(ImporteMX, 2)
- 'Conta ContPAQ
- If IdCtaContRetIVAProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -2495,19 +2510,22 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAAcreditableProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditableProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAAcreditableProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditableProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
MsgError = "No se pudo insertar la póliza"
@@ -2544,19 +2562,22 @@ Partial Class Bancos_PopIEVentas
If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -2593,19 +2614,22 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- If IdCtaContRetIVAAcreditableProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditableProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ If IdCtaContRetIVAAcreditableProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditableProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
MsgError = "No se pudo insertar la póliza"
@@ -2642,19 +2666,22 @@ Partial Class Bancos_PopIEVentas
If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -2691,19 +2718,22 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAAcreditableProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditableProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAAcreditableProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditableProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
MsgError = "No se pudo insertar la póliza"
@@ -2739,20 +2769,23 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
MsgError = "No se pudo insertar la póliza"
@@ -2788,20 +2821,23 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAAcreditableProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditableProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAAcreditableProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditableProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
MsgError = "No se pudo insertar la póliza"
@@ -3092,7 +3128,7 @@ Partial Class Bancos_PopIEVentas
IdCtaContable = If(UsuarioActual.Empresa.Funcionalidad(340).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(340).ToEntero, 0)
End Select
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
End If
@@ -3179,7 +3215,7 @@ Partial Class Bancos_PopIEVentas
IdCtaContable = If(UsuarioActual.Empresa.Funcionalidad(341).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(341).ToEntero, 0)
End Select
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
End If
@@ -3264,7 +3300,7 @@ Partial Class Bancos_PopIEVentas
IdCtaContable = If(UsuarioActual.Empresa.Funcionalidad(341).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(341).ToEntero, 0)
End Select
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
End If
@@ -3302,7 +3338,7 @@ Partial Class Bancos_PopIEVentas
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
ImporteMX = Math.Round(ImporteMX, 2)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
End If
@@ -3340,7 +3376,7 @@ Partial Class Bancos_PopIEVentas
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
ImporteMX = Math.Round(ImporteMX, 2)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
End If
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index ef47b01ed..86f900e92 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1032,18 +1032,22 @@ Partial Class Bancos_ProveedoresAbonar
TipoCambioGeneral = tipoCambioCompra
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVA > 0 Then
- IdCtaContable = IdCtaContRetIVA
- ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVA > 0 Then
+ IdCtaContable = IdCtaContRetIVA
+ ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
+
End If
@@ -1075,18 +1079,21 @@ Partial Class Bancos_ProveedoresAbonar
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAAcreditable > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditable
- ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAAcreditable > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditable
+ ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
End If
@@ -1110,18 +1117,21 @@ Partial Class Bancos_ProveedoresAbonar
TipoCambioGeneral = tipoCambioCompra
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISR > 0 Then
- IdCtaContable = IdCtaContRetISR
- ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR > 0 Then
+ IdCtaContable = IdCtaContRetISR
+ ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
End If
Case 23 'Ret ISR Acreditable
If gvr.DataKey("CveRetISRConcepto").ToEntero > 0 Then
@@ -1142,19 +1152,22 @@ Partial Class Bancos_ProveedoresAbonar
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISRAcreditable > 0 Then
- IdCtaContable = IdCtaContRetISRAcreditable
- ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISRAcreditable > 0 Then
+ IdCtaContable = IdCtaContRetISRAcreditable
+ ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
End If
Case 14 'Iva X Acreditar
@@ -1192,7 +1205,7 @@ Partial Class Bancos_ProveedoresAbonar
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
End If
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
End If
@@ -1250,7 +1263,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
End If
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
End If
@@ -1263,7 +1276,7 @@ Partial Class Bancos_ProveedoresAbonar
TipoCambioGeneral = tipoCambioCompra
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
End If
@@ -1274,7 +1287,7 @@ Partial Class Bancos_ProveedoresAbonar
importeMX = (ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)).RoundSQL
TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
End If
@@ -1692,7 +1705,7 @@ Partial Class Bancos_ProveedoresAbonar
If DdlTipoTransaccion.SelectedValue = "1" Then TipoChq = "CHQ"
'se multiplica por dos, porque se esta juntando el ejercido y el pagado al mismo tiempo
- If UsuarioActual.Empresa.UsaContabilidad Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
IDPoliza = ObjConta.AddPoliza(2, "Pagado " & TxtPagueseA.Text.Trim, Total, Total, UsuarioActual.CveUsuario, Fecha, TxtFolio.Text, TipoChq)
If IDPoliza > 0 Then
@@ -2649,7 +2662,7 @@ Partial Class Bancos_ProveedoresAbonar
If MsgError = "" AndAlso gr.DataKey("IEPS").ToDecimal > 0 Then
Dim IEPS As Decimal = PorcentajePago * gr.DataKey("IEPS").ToDecimal
- If ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
End If
diff --git a/Bancos/RepComplementoPago.aspx.vb b/Bancos/RepComplementoPago.aspx.vb
index e085cea94..3f96cf6d8 100644
--- a/Bancos/RepComplementoPago.aspx.vb
+++ b/Bancos/RepComplementoPago.aspx.vb
@@ -163,7 +163,7 @@ Partial Class Bancos_RepComplementoPago
If Banco.GeneraTimbrePago(gvr.DataKey("CveIE").ToEntero, -1, UsuarioActual, FechaTimbrado:=FechaTimbrado) Then
If Banco.Mensaje = "" Then
Banco.Commit()
- PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False)
+ PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False, True)
Str.AppendFormat("Folio: {0} ", Banco.ComplementoSerieFolio)
Str.AppendFormat("XML ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
Str.AppendFormat("PDF ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll
index 7e2aee54e..0148216cc 100644
Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ
diff --git a/Bin/Microsoft.ReportViewer.Common.dll b/Bin/Microsoft.ReportViewer.Common.dll
index 3e2d91e73..06f7d6cf4 100644
Binary files a/Bin/Microsoft.ReportViewer.Common.dll and b/Bin/Microsoft.ReportViewer.Common.dll differ
diff --git a/Bin/Microsoft.ReportViewer.ProcessingObjectModel.dll b/Bin/Microsoft.ReportViewer.ProcessingObjectModel.dll
index cb2f1e05e..f1019637b 100644
Binary files a/Bin/Microsoft.ReportViewer.ProcessingObjectModel.dll and b/Bin/Microsoft.ReportViewer.ProcessingObjectModel.dll differ
diff --git a/Bin/Microsoft.ReportViewer.WebForms.dll b/Bin/Microsoft.ReportViewer.WebForms.dll
index eb6401242..b41b9b0a8 100644
Binary files a/Bin/Microsoft.ReportViewer.WebForms.dll and b/Bin/Microsoft.ReportViewer.WebForms.dll differ
diff --git a/Bin/Microsoft.SqlServer.Types.dll b/Bin/Microsoft.SqlServer.Types.dll
index 1ccde4ab4..d4dd78993 100644
Binary files a/Bin/Microsoft.SqlServer.Types.dll and b/Bin/Microsoft.SqlServer.Types.dll differ
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index f54ffac71..3b175dda0 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1024,8 +1024,15 @@ Partial Class PopUpVerFactura
'IMPRIME CARTA PORTE
If UrlParametros("OP").ToString = "CARPO" Then
If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then
- ImprimeFormatoCartaPorte(UrlParametros("CVEMOV").ToString.ToEntero)
+ ImprimeFormatoCartaPorte(UrlParametros("CVEMOV").ToString.ToEntero, -1)
End If
+
+
+ If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
+ ImprimeFormatoCartaPorte(-1, UrlParametros("CVETIMBRE").ToString.ToEntero)
+ End If
+
+
End If
If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
@@ -1416,9 +1423,9 @@ Partial Class PopUpVerFactura
#End Region
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE TIMBRADO"
- Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
- If CveMovimiento > 0 Then
- Dim ObjInv As New ClsInventarios
+ Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer, Optional CveTimbre As Integer = -1)
+ If CveMovimiento > 0 Or CveTimbre > 0 Then
+
Dim SerieFolio As String = ""
Dim DomicilioSucursal As String = ""
@@ -1441,78 +1448,292 @@ Partial Class PopUpVerFactura
Dim Licencia As String = ""
-
-
-
Dim SBDireccionO As New StringBuilder()
Dim SBDireccionD As New StringBuilder()
- If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
- If ObjInv.DtResultados.Rows.Count > 0 Then
- Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
- If Dr IsNot Nothing Then
- SerieFolio = Dr("Folio").ToString
- DomicilioSucursal = $"{Dr("CalleOrigen").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} "
- LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
- Origen = Dr("AlmacenOrigen").ToString
- Destino = Dr("AlmacenDestino").ToString
- Observaciones = Dr("Observaciones").ToString
- CveChofer = Dr("CveChofer").ToString
+ Dim Dt As DataTable = Nothing
+
+ Dim FormatoRDLC As String = ""
+
+ Dim params As New List(Of ReportParameter)
+
+ If CveMovimiento > 0 Then
+
+ FormatoRDLC = "CartaPorte.rdlc"
+
+ Dim ObjInv As New ClsInventarios
+ If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
+ If ObjInv.DtResultados.Rows.Count > 0 Then
+ Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
+ If Dr IsNot Nothing Then
+ SerieFolio = Dr("Folio").ToString
+ DomicilioSucursal = $"{Dr("CalleOrigen").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} "
+ LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
+ Origen = Dr("AlmacenOrigen").ToString
+ Destino = Dr("AlmacenDestino").ToString
+ Observaciones = Dr("Observaciones").ToString
+ CveChofer = Dr("CveChofer").ToString
+
+
+ Placa = Dr("Traslado_Placa").ToString
+ Recibio = Dr("Recibio").ToString
+ FechaEntrega = Dr("FechaEntrega").ToString
+ EspecifUnidad = Dr("EspecificacionUnidad").ToString
+
+
+ If Dr("CalleOrigen").ToString.Length > 0 Then
+ SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString)
+ If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString)
+ If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString)
+ If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString)
+ If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString)
+ If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString)
+ If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString)
+ If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString)
+ End If
+ If Dr("CalleDestino").ToString.Length > 0 Then
+ SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString)
+ If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString)
+ If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString)
+ If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString)
+ If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString)
+ If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString)
+ If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString)
+ If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
+ End If
+
+ ResponsableCarga = Dr("ResponsableCarga").ToString
+ ResponsableRecibio = Dr("ResponsableRecibio").ToString
+ Identificacion = Dr("Identificacion").ToString
+ Domicilio = Dr("Domicilio").ToString
+ Telefono = Dr("Telefono1").ToString
+ Ciudad = Dr("Ciudad").ToString
+ Licencia = Dr("Licencia").ToString
+
+
+ Chofer = Dr("Chofer").ToString
+ Placa = Dr("Placa").ToString
+ EspecifUnidad = Dr("Especificacion").ToString
- Placa = Dr("Traslado_Placa").ToString
- Recibio = Dr("Recibio").ToString
- FechaEntrega = Dr("FechaEntrega").ToString
- EspecifUnidad = Dr("EspecificacionUnidad").ToString
- If Dr("CalleOrigen").ToString.Length > 0 Then
- SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString)
- If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString)
- If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString)
- If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString)
- If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString)
- If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString)
- If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString)
- If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString)
End If
- If Dr("CalleDestino").ToString.Length > 0 Then
- SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString)
- If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString)
- If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString)
- If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString)
- If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString)
- If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString)
- If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString)
- If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
- End If
-
- ResponsableCarga = Dr("ResponsableCarga").ToString
- ResponsableRecibio = Dr("ResponsableRecibio").ToString
- Identificacion = Dr("Identificacion").ToString
- Domicilio = Dr("Domicilio").ToString
- Telefono = Dr("Telefono1").ToString
- Ciudad = Dr("Ciudad").ToString
- Licencia = Dr("Licencia").ToString
-
-
- Chofer = Dr("Chofer").ToString
- Placa = Dr("Placa").ToString
- EspecifUnidad = Dr("Especificacion").ToString
-
-
-
End If
End If
+
+
+
+ If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+ Dt = ObjInv.DtResultados
+ End If
+ ObjInv.Dispose()
+
+
+ ElseIf CveTimbre > 0 Then
+
+ FormatoRDLC = "RecoleccionTimbrado.rdlc"
+
+ Dim ObjGral As New ClsGenerales
+
+
+ If ObjGral.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then
+
+ Dim Dr As DataRow = ObjGral.DtResultados.Rows(0)
+
+ Dim TipoDocto As String = Dr("TipoDocto").ToString
+
+ SerieFolio = Dr("SerieFolio").ToString
+ DomicilioSucursal = $"{Dr("DirOriCalle").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} "
+ LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
+ Origen = Dr("SPOrigen").ToString
+ Destino = Dr("SPDestino").ToString
+ Observaciones = ""
+ CveChofer = Dr("CveChofer").ToString
+ Chofer = Dr("FiguraChofer").ToString
+
+
+ Placa = Dr("Placa").ToString
+ Recibio = ""
+ FechaEntrega = Dr("FechaEntrega").ToString
+ EspecifUnidad = Dr("EspecificacionUnidad").ToString
+
+
+ If Dr("CalleOrigen").ToString.Length > 0 Then
+ SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString)
+ If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString)
+ If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString)
+ If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString)
+ If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString)
+ If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString)
+ If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString)
+ If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString)
+ End If
+ If Dr("CalleDestino").ToString.Length > 0 Then
+ SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString)
+ If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString)
+ If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString)
+ If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString)
+ If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString)
+ If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString)
+ If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString)
+ If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
+ End If
+
+ ResponsableCarga = Dr("ResponsableCarga").ToString
+ ResponsableRecibio = Dr("ResponsableRecibio").ToString
+ Identificacion = Dr("Identificacion").ToString
+ Domicilio = Dr("Domicilio").ToString
+ Telefono = Dr("Telefono1").ToString
+ Ciudad = Dr("Ciudad").ToString
+ Licencia = Dr("Licencia").ToString
+
+
+ Chofer = Dr("Chofer").ToString
+ Placa = Dr("Placa").ToString
+ EspecifUnidad = Dr("Especificacion").ToString
+
+
+
+ If ObjGral.GetGralMovimientosDetalleTimbre(CveTimbre, UsuarioActual.CveEmpresa) Then
+ Dt = ObjGral.DtResultados
+ End If
+
+
+ Dim Ruta As String = UsuarioActual.Empresa.Ruta
+ Dim PathXML As String = $"{Ruta}XML\{TipoDocto}\{SerieFolio }.xml"
+
+
+ Dim FechaEmision, FechaCertificacion As DateTime
+ Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT, SerieCertificadoSAT As String
+
+ FolioFiscal = ""
+ NoSerieCertificado = ""
+ SelloCFDi = ""
+ SelloSAT = ""
+ SerieCertificadoSAT = ""
+
+
+ If UsuarioActual.CveUsuario = 100 Then
+ Alert(PathXML)
+ End If
+
+ If System.IO.File.Exists(PathXML) Then
+
+ Dim ReceptorRFC As String = ""
+
+ Dim XmlDoc As New System.Xml.XmlDocument
+ XmlDoc.Load(PathXML)
+
+ Dim nodo As XmlNode = XmlDoc.DocumentElement
+ Dim Version = ValorXML(nodo, "version")
+
+ Dim namespaces As New XmlNamespaceManager(XmlDoc.NameTable)
+ Dim Prefijo As String = If(XmlDoc.DocumentElement.Prefix = "", "cfd", XmlDoc.DocumentElement.Prefix)
+ Dim cfdVer As String = ""
+
+ If Version = "3.2" Then
+ Prefijo = "cfd"
+ cfdVer = "http://www.sat.gob.mx/cfd/2"
+ ElseIf Version = "3.3" Then
+ cfdVer = "http://www.sat.gob.mx/cfd/3"
+ Else ' se considera que es la version 4.0
+ cfdVer = "http://www.sat.gob.mx/cfd/4"
+ End If
+
+ namespaces.AddNamespace(Prefijo, cfdVer)
+ namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
+ namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
+ namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
+
+ Dim node As XmlNode
+
+ node = XmlDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces)
+
+ If node IsNot Nothing Then
+ ReceptorRFC = ValorXML(node, "RFC")
+ End If
+
+
+
+
+ If Version.Contiene("3.3", "4.0") Then
+ FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate
+ NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText
+
+ For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1
+ If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:TimbreFiscalDigital" Then
+ FolioFiscal = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("UUID").InnerText
+ NoSerieCertificado = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText
+ FechaCertificacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("FechaTimbrado").InnerText.ToDate
+ SelloCFDi = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("SelloCFD").InnerText
+ SelloSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("SelloSAT").InnerText
+ SerieCertificadoSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText
+
+
+
+ End If
+ Next
+ Else
+ FechaEmision = XmlDoc.DocumentElement.Attributes("fecha").InnerText.ToDate
+ NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("noCertificado").InnerText
+
+ For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1
+ If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:timbreFiscalDigital" Then
+ FolioFiscal = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("UUID").InnerText
+ NoSerieCertificado = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("noCertificadoSAT").InnerText
+ FechaCertificacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("fechaTimbrado").InnerText.ToDate
+ SelloCFDi = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("selloCFD").InnerText
+ SelloSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("selloSAT").InnerText
+ SerieCertificadoSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText
+ End If
+ Next
+ End If
+
+ Dim CadenaOriginals As String = String.Format("||{0}|{1}|{2}T{3}|{4}|{5}||", If(Version.Contiene("3.3", "4.0"), "1.1", "1.0"), FolioFiscal, FechaCertificacion.ToString("yyyy-MM-dd"), FechaCertificacion.ToString("HH:mm:ss"), SelloCFDi, NoSerieCertificado)
+
+ Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{SerieFolio}.jpg"
+ Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
+
+
+ If Not ImagenCBB.Exists Then
+ Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+ CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ReceptorRFC, 1, FolioFiscal, RutaCBB)
+ End If
+
+
+ Dim ImgCBB As String = $"file://{ImagenCBB.FullName}"
+
+
+ params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
+ params.Add(New ReportParameter("CertificadoSAT", NoSerieCertificado))
+ params.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString))
+ params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
+ params.Add(New ReportParameter("SelloSAT", SelloSAT))
+ params.Add(New ReportParameter("CertificadoContribuyente", NoSerieCertificadoContribuyente))
+ params.Add(New ReportParameter("QR", ImgCBB.ToString))
+ params.Add(New ReportParameter("SerieCertificadoSAT", SerieCertificadoSAT))
+ params.Add(New ReportParameter("CadenaOriginal", CadenaOriginals))
+
+ End If
+
+
+
+ End If
+
+ ObjGral.Dispose()
+
+
+
+
+
+
+
+
End If
- Dim Dt As DataTable = Nothing
- If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
- Dt = ObjInv.DtResultados
- End If
- ObjInv.Dispose()
If Dt.Rows.Count > 0 Then
- Dim params As New List(Of ReportParameter)
+
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -1522,8 +1743,6 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("LogoPath", ""))
End If
-
-
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -1553,11 +1772,28 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Ciudad", Ciudad))
params.Add(New ReportParameter("Licencia", Licencia))
- ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
+
+
+
+ ImprimirPDF($"Empresas/Grales/Formatos/{FormatoRDLC}", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
+
+
+
+
End If
+
End If
End Sub
+ Private Function ValorNodoXML(n As System.Xml.XmlNode, Campo As String, Optional Retorno As String = "") As String
+ Dim o As System.Xml.XmlNode = n.Attributes.Cast(Of System.Xml.XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
+ If o Is Nothing Then
+ Return Retorno
+ Else
+ Return o.Value
+ End If
+ End Function
+
Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
If o Is Nothing Then
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 8533730e9..09deb5ebe 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -822,7 +822,7 @@ Partial Class Compras_ReembolsosComprobaciones
Dim ImporteNOIVA As Decimal = gvr.DataKey("IVANoDeducible").ToDecimal * PorcentajePago
- If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteNOIVA), ImporteMX:=(ImporteNOIVA) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteNOIVA), ImporteMX:=(ImporteNOIVA) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
MsgError = "Detalle"
End If
End If
@@ -1058,7 +1058,7 @@ Partial Class Compras_ReembolsosComprobaciones
Dim ImporteNOIVA As Decimal = gvr.DataKey("IVANoDeducible").ToDecimal * PorcentajePago
- If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteNOIVA), ImporteMX:=(ImporteNOIVA) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteNOIVA), ImporteMX:=(ImporteNOIVA) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
MsgError = "Detalle"
End If
End If
diff --git a/Empresas/119/Formatos/ReciboDePago.rdlc b/Empresas/119/Formatos/ReciboDePago.rdlc
index abf548d0c..8fc36e37c 100644
--- a/Empresas/119/Formatos/ReciboDePago.rdlc
+++ b/Empresas/119/Formatos/ReciboDePago.rdlc
@@ -702,7 +702,7 @@
- 0.54021cm
+ 0.39427cm
@@ -716,7 +716,7 @@
=Fields!IdDocumento.Value
@@ -728,10 +728,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
4
@@ -752,7 +748,7 @@
=Fields!Serie.Value
@@ -784,7 +780,7 @@
=Fields!Folio.Value
@@ -816,7 +812,7 @@
=Fields!MonedaDR.Value
@@ -848,7 +844,7 @@
=Fields!NumParcialidad.Value
@@ -883,12 +879,14 @@
=Fields!ImpSaldoAnt.Value
-
+
ImpSaldoAnt
@@ -903,6 +901,7 @@
es-MX
+ true
@@ -917,13 +916,15 @@
=Fields!ImpPagado.Value
-
+
ImpPagado
@@ -937,6 +938,7 @@
2pt
+ true
@@ -956,7 +958,7 @@
Impuesto
@@ -980,10 +982,7 @@
- 2pt
- 2pt
- 2pt
- 2pt
+ Top
@@ -1000,7 +999,7 @@
Tipo
@@ -1024,10 +1023,7 @@
- 2pt
- 2pt
- 2pt
- 2pt
+ Top
@@ -1044,7 +1040,7 @@
Base
@@ -1068,10 +1064,7 @@
- 2pt
- 2pt
- 2pt
- 2pt
+ Top
@@ -1088,7 +1081,7 @@
Tipo Factor
@@ -1112,10 +1105,7 @@
- 2pt
- 2pt
- 2pt
- 2pt
+ Top
@@ -1132,7 +1122,7 @@
Tasa/Cuota
@@ -1156,10 +1146,7 @@
- 2pt
- 2pt
- 2pt
- 2pt
+ Top
@@ -1176,7 +1163,7 @@
Importe
@@ -1200,10 +1187,7 @@
- 2pt
- 2pt
- 2pt
- 2pt
+ Top
@@ -1220,7 +1204,7 @@
@@ -1244,10 +1228,7 @@
- 2pt
- 2pt
- 2pt
- 2pt
+ Top
@@ -1264,7 +1245,7 @@
@@ -1288,10 +1269,7 @@
- 2pt
- 2pt
- 2pt
- 2pt
+ Top
@@ -1308,7 +1286,7 @@
@@ -1330,10 +1308,7 @@
- 2pt
- 2pt
- 2pt
- 2pt
+ Top
@@ -1350,7 +1325,7 @@
@@ -1372,10 +1347,7 @@
- 2pt
- 2pt
- 2pt
- 2pt
+ Top
@@ -1397,7 +1369,7 @@
ISR
@@ -1416,10 +1388,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1436,7 +1404,7 @@
Traslado
@@ -1455,10 +1423,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1475,13 +1439,15 @@
=Fields!ImpPagado.Value
-
+
ImpPagado
@@ -1494,10 +1460,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1514,13 +1476,15 @@
=Fields!Tra001TipoFactorDR.Value
-
+
ImpPagado
@@ -1533,10 +1497,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1553,13 +1513,15 @@
=Fields!Tra001TasaOCuotaDR.Value
-
+
ImpPagado
@@ -1572,10 +1534,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1592,13 +1550,15 @@
=Fields!Tra001ImporteDR.Value
-
+
ImpPagado
@@ -1611,10 +1571,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1631,7 +1587,7 @@
@@ -1650,10 +1606,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1670,7 +1622,7 @@
@@ -1689,10 +1641,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1709,7 +1657,7 @@
@@ -1726,10 +1674,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1746,7 +1690,7 @@
@@ -1763,10 +1707,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1788,7 +1728,7 @@
IVA
@@ -1807,10 +1747,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1827,7 +1763,7 @@
Traslado
@@ -1846,10 +1782,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1866,13 +1798,15 @@
=Fields!ImpPagado.Value
-
+
ImpPagado
@@ -1885,10 +1819,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1905,13 +1835,15 @@
=Fields!Tra002TipoFactorDR.Value
-
+
ImpPagado
@@ -1924,10 +1856,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1944,13 +1872,15 @@
=Fields!Tra002TasaOCuotaDR.Value
-
+
ImpPagado
@@ -1963,10 +1893,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -1983,13 +1909,15 @@
=Fields!Tra002ImporteDR.Value
-
+
ImpPagado
@@ -2002,10 +1930,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2022,7 +1946,7 @@
@@ -2041,10 +1965,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2061,7 +1981,7 @@
@@ -2080,10 +2000,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2100,7 +2016,7 @@
@@ -2117,10 +2033,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2137,7 +2049,7 @@
@@ -2154,10 +2066,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2179,7 +2087,7 @@
IEPS
@@ -2198,10 +2106,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2218,7 +2122,7 @@
Traslado
@@ -2237,10 +2141,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2257,13 +2157,15 @@
=Fields!ImpPagado.Value
-
+
ImpPagado
@@ -2276,10 +2178,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2296,13 +2194,15 @@
=Fields!Tra003TipoFactorDR.Value
-
+
ImpPagado
@@ -2315,10 +2215,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2335,13 +2231,15 @@
=Fields!Tra003TasaOCuotaDR.Value
-
+
ImpPagado
@@ -2354,10 +2252,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2374,13 +2268,15 @@
=Fields!Tra003ImporteDR.Value
-
+
ImpPagado
@@ -2393,10 +2289,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2413,7 +2305,7 @@
@@ -2432,10 +2324,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2452,7 +2340,7 @@
@@ -2471,10 +2359,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2491,7 +2375,7 @@
@@ -2508,10 +2392,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2528,7 +2408,7 @@
@@ -2545,10 +2425,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2570,7 +2446,7 @@
ISR
@@ -2589,10 +2465,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2609,7 +2481,7 @@
Retención
@@ -2628,10 +2500,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2648,13 +2516,15 @@
=Fields!ImpPagado.Value
-
+
ImpPagado
@@ -2667,10 +2537,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2687,13 +2553,15 @@
=Fields!Ret001TipoFactorDR.Value
-
+
ImpPagado
@@ -2706,10 +2574,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2726,13 +2590,15 @@
=Fields!Ret001TasaOCuotaDR.Value
-
+
ImpPagado
@@ -2745,10 +2611,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2765,13 +2627,15 @@
=Fields!Ret001ImporteDR.Value
-
+
ImpPagado
@@ -2784,10 +2648,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2804,7 +2664,7 @@
@@ -2823,10 +2683,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2843,7 +2699,7 @@
@@ -2862,10 +2718,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2882,7 +2734,7 @@
@@ -2899,10 +2751,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2919,7 +2767,7 @@
@@ -2936,10 +2784,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -2961,7 +2805,7 @@
IVA
@@ -2980,10 +2824,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3000,7 +2840,7 @@
Retención
@@ -3019,10 +2859,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3039,13 +2875,15 @@
=Fields!ImpPagado.Value
-
+
ImpPagado
@@ -3058,10 +2896,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3078,13 +2912,15 @@
=Fields!Ret002TipoFactorDR.Value
-
+
ImpPagado
@@ -3097,10 +2933,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3117,13 +2949,15 @@
=Fields!Ret002TasaOCuotaDR.Value
-
+
ImpPagado
@@ -3136,10 +2970,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3156,13 +2986,15 @@
=Fields!Ret002ImporteDR.Value
-
+
ImpPagado
@@ -3175,10 +3007,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3195,7 +3023,7 @@
@@ -3214,10 +3042,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3234,7 +3058,7 @@
@@ -3253,10 +3077,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3273,7 +3093,7 @@
@@ -3290,10 +3110,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3310,7 +3126,7 @@
@@ -3327,10 +3143,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3352,7 +3164,7 @@
IEPS
@@ -3371,10 +3183,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3391,7 +3199,7 @@
Retención
@@ -3410,10 +3218,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3430,13 +3234,15 @@
=Fields!ImpPagado.Value
-
+
ImpPagado
@@ -3449,10 +3255,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3469,13 +3271,15 @@
=Fields!Ret003TipoFactorDR.Value
-
+
ImpPagado
@@ -3488,10 +3292,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3508,13 +3308,15 @@
=Fields!Ret003TasaOCuotaDR.Value
-
+
ImpPagado
@@ -3527,10 +3329,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3547,13 +3345,15 @@
=Fields!Ret003ImporteDR.Value
-
+
ImpPagado
@@ -3566,10 +3366,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3586,7 +3382,7 @@
@@ -3605,10 +3401,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3625,7 +3417,7 @@
@@ -3644,10 +3436,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3664,7 +3452,7 @@
@@ -3681,10 +3469,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3701,7 +3485,7 @@
@@ -3718,10 +3502,6 @@
- 2pt
- 2pt
- 2pt
- 2pt
@@ -3766,7 +3546,7 @@
DataSet2
4.62704cm
- 1.66521cm
+ 1.51927cm
20.53139cm
1
- 13.54549cm
+ 12.4607cm