Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -344,13 +344,9 @@ Public Class CFDIConceptosImpuestos
|
|||||||
Public Property TipoFactor As String = "Tasa"
|
Public Property TipoFactor As String = "Tasa"
|
||||||
Public Property TasaOCuota As Decimal = 0.00D
|
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 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 BaseMN As Decimal = 0.000000D
|
||||||
Public Property ImporteMN As Decimal = 0.00D
|
Public Property ImporteMN As Decimal = 0.000000D
|
||||||
'Public ReadOnly Property Importe As Decimal
|
|
||||||
' Get
|
|
||||||
' If ImporteT = 0.00 Then Return Base * TasaOCuota Else Return ImporteT
|
|
||||||
' End Get
|
|
||||||
'End Property
|
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
@@ -401,6 +397,7 @@ Public Class CFDIRetenciones
|
|||||||
Public Property Impuesto As String
|
Public Property Impuesto As String
|
||||||
Public Property Importe As Decimal = 0.000000D
|
Public Property Importe As Decimal = 0.000000D
|
||||||
Public Property TasaOCuota As String
|
Public Property TasaOCuota As String
|
||||||
|
Public Property ImporteMN As Decimal = 0.000000D
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|
||||||
@@ -428,7 +425,6 @@ Public Class CFDITraslados
|
|||||||
Public Property Base As Decimal = 0.000000D
|
Public Property Base As Decimal = 0.000000D
|
||||||
Public Property ImporteMN As Decimal = 0.000000D
|
Public Property ImporteMN As Decimal = 0.000000D
|
||||||
Public Property BaseMN As Decimal = 0.000000D
|
Public Property BaseMN As Decimal = 0.000000D
|
||||||
Public Property EquivalenciaDR As Decimal = 0.000000D
|
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|
||||||
@@ -463,17 +459,17 @@ Public Class CFDIComplementoPagos
|
|||||||
Public ReadOnly Property Totales As CFDIComplementoPagosTotales
|
Public ReadOnly Property Totales As CFDIComplementoPagosTotales
|
||||||
Get
|
Get
|
||||||
Dim tRetorno As New CFDIComplementoPagosTotales
|
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.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 * c.EquivalenciaDR).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 * c.EquivalenciaDR).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.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 * c.EquivalenciaDR).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 * c.EquivalenciaDR).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
|
Return tRetorno
|
||||||
End Get
|
End Get
|
||||||
@@ -510,15 +506,15 @@ Public Class CFDIComplementoPagos
|
|||||||
For Each c As CFDIComplementoPagosDocsRelacionados In DocumentosRelacionados
|
For Each c As CFDIComplementoPagosDocsRelacionados In DocumentosRelacionados
|
||||||
For Each imp As CFDIConceptosImpuestos In c.Impuestos
|
For Each imp As CFDIConceptosImpuestos In c.Impuestos
|
||||||
If imp.TrasladooRetencion = "R" Then
|
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
|
End If
|
||||||
Next
|
Next
|
||||||
Next
|
Next
|
||||||
If tRetorno.Count > 0 Then
|
If tRetorno.Count > 0 Then
|
||||||
TRetenciones = tRetorno.GroupBy(Function(t) New With {Key t.Impuesto}) _
|
TRetenciones = tRetorno.GroupBy(Function(t) New With {Key t.Impuesto}) _
|
||||||
.Select(Function(t) New CFDIRetenciones With {.Impuesto = t.Key.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
|
.OrderBy(Function(x) x.Impuesto).ToList
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -535,7 +531,7 @@ Public Class CFDIComplementoPagos
|
|||||||
For Each c As CFDIComplementoPagosDocsRelacionados In DocumentosRelacionados
|
For Each c As CFDIComplementoPagosDocsRelacionados In DocumentosRelacionados
|
||||||
For Each imp As CFDIConceptosImpuestos In c.Impuestos
|
For Each imp As CFDIConceptosImpuestos In c.Impuestos
|
||||||
If imp.TrasladooRetencion = "T" Then
|
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
|
End If
|
||||||
Next
|
Next
|
||||||
Next
|
Next
|
||||||
@@ -572,6 +568,7 @@ Public Class CFDIComplementoPagosDocsRelacionados
|
|||||||
Public Property NumParcialidad As Integer = 1
|
Public Property NumParcialidad As Integer = 1
|
||||||
Public Property ImpSaldoAnt As Decimal
|
Public Property ImpSaldoAnt As Decimal
|
||||||
Public Property ImpPagado As Decimal
|
Public Property ImpPagado As Decimal
|
||||||
|
Public Property ImpPagadoMN As Decimal
|
||||||
Public Property ImpSaldoInsoluto As Decimal
|
Public Property ImpSaldoInsoluto As Decimal
|
||||||
Public Property ObjetoImpuesto As String = "01"
|
Public Property ObjetoImpuesto As String = "01"
|
||||||
Public Property Impuestos As List(Of CFDIConceptosImpuestos)
|
Public Property Impuestos As List(Of CFDIConceptosImpuestos)
|
||||||
|
|||||||
@@ -1162,7 +1162,34 @@ Public Class ClsContPAQi
|
|||||||
StrSQL.AppendLine("")
|
StrSQL.AppendLine("")
|
||||||
StrSQL.AppendLine(" BEGIN TRY")
|
StrSQL.AppendLine(" BEGIN TRY")
|
||||||
StrSQL.AppendLine("")
|
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("")
|
||||||
StrSQL.AppendLine(" CREATE TABLE #TablaContable (")
|
StrSQL.AppendLine(" CREATE TABLE #TablaContable (")
|
||||||
StrSQL.AppendLine(" Id INT,")
|
StrSQL.AppendLine(" Id INT,")
|
||||||
@@ -2015,6 +2042,7 @@ Public Class ClsContPAQi
|
|||||||
StrSQL.AppendLine("END")
|
StrSQL.AppendLine("END")
|
||||||
|
|
||||||
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
|
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
|
||||||
|
|
||||||
With SqlAdapter.SelectCommand.Parameters
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
.Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
.Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
.Add("@CveFuncionalidad", SqlDbType.Int).Value = CveFuncionalidad
|
.Add("@CveFuncionalidad", SqlDbType.Int).Value = CveFuncionalidad
|
||||||
|
|||||||
@@ -9041,8 +9041,6 @@ Public Class ClsPaginas
|
|||||||
Else ' se considera que es la version 4.0
|
Else ' se considera que es la version 4.0
|
||||||
cfdVer = "http://www.sat.gob.mx/cfd/4"
|
cfdVer = "http://www.sat.gob.mx/cfd/4"
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If Version = "4.0" Then
|
If Version = "4.0" Then
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
|
||||||
@@ -9053,8 +9051,6 @@ Public Class ClsPaginas
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
namespaces.AddNamespace(Prefijo, cfdVer)
|
namespaces.AddNamespace(Prefijo, cfdVer)
|
||||||
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
|
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
|
||||||
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
|
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
|
||||||
@@ -9119,17 +9115,8 @@ Public Class ClsPaginas
|
|||||||
|
|
||||||
DrRelacionado("MonedaDR") = Relacionado.Attributes("MonedaDR").Value
|
DrRelacionado("MonedaDR") = Relacionado.Attributes("MonedaDR").Value
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso Version = "4.0" Then
|
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)
|
Dim NodosTraslados = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces)
|
||||||
For Each NodoTraslados As XmlNode In NodosTraslados
|
For Each NodoTraslados As XmlNode In NodosTraslados
|
||||||
|
|
||||||
@@ -9138,7 +9125,6 @@ Public Class ClsPaginas
|
|||||||
Dim TasaOCuotaDR As String = ValorXML(NodoTraslados, "TasaOCuotaDR")
|
Dim TasaOCuotaDR As String = ValorXML(NodoTraslados, "TasaOCuotaDR")
|
||||||
Dim ImporteDR As Decimal = ValorXML(NodoTraslados, "ImporteDR").ToDecimal
|
Dim ImporteDR As Decimal = ValorXML(NodoTraslados, "ImporteDR").ToDecimal
|
||||||
|
|
||||||
|
|
||||||
If ImpuestoDR = "001" Then
|
If ImpuestoDR = "001" Then
|
||||||
DrRelacionado("Tra001ImpuestoDR") = ImpuestoDR
|
DrRelacionado("Tra001ImpuestoDR") = ImpuestoDR
|
||||||
DrRelacionado("Tra001TipoFactorDR") = TipoFactor
|
DrRelacionado("Tra001TipoFactorDR") = TipoFactor
|
||||||
@@ -9159,19 +9145,15 @@ Public Class ClsPaginas
|
|||||||
DrRelacionado("Tra003TasaOCuotaDR") = TasaOCuotaDR
|
DrRelacionado("Tra003TasaOCuotaDR") = TasaOCuotaDR
|
||||||
DrRelacionado("Tra003ImporteDR") = ImporteDR
|
DrRelacionado("Tra003ImporteDR") = ImporteDR
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|
||||||
For Each NodoRetenciiones As XmlNode In Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:RetencionesDR/{PagoVersion}:RetencionDR", namespaces)
|
For Each NodoRetenciiones As XmlNode In Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:RetencionesDR/{PagoVersion}:RetencionDR", namespaces)
|
||||||
|
|
||||||
|
|
||||||
Dim ImpuestoDR As String = ValorXML(NodoRetenciiones, "ImpuestoDR") ' ImpuestoDR
|
Dim ImpuestoDR As String = ValorXML(NodoRetenciiones, "ImpuestoDR") ' ImpuestoDR
|
||||||
Dim TipoFactor As String = ValorXML(NodoRetenciiones, "TipoFactorDR")
|
Dim TipoFactor As String = ValorXML(NodoRetenciiones, "TipoFactorDR")
|
||||||
Dim TasaOCuotaDR As String = ValorXML(NodoRetenciiones, "TasaOCuotaDR")
|
Dim TasaOCuotaDR As String = ValorXML(NodoRetenciiones, "TasaOCuotaDR")
|
||||||
Dim ImporteDR As Decimal = ValorXML(NodoRetenciiones, "ImporteDR").ToDecimal
|
Dim ImporteDR As Decimal = ValorXML(NodoRetenciiones, "ImporteDR").ToDecimal
|
||||||
|
|
||||||
|
|
||||||
If ImpuestoDR = "001" Then
|
If ImpuestoDR = "001" Then
|
||||||
DrRelacionado("Ret001ImpuestoDR") = ImpuestoDR
|
DrRelacionado("Ret001ImpuestoDR") = ImpuestoDR
|
||||||
DrRelacionado("Ret001TipoFactorDR") = TipoFactor
|
DrRelacionado("Ret001TipoFactorDR") = TipoFactor
|
||||||
@@ -9192,20 +9174,10 @@ Public Class ClsPaginas
|
|||||||
DrRelacionado("Ret003TasaOCuotaDR") = TasaOCuotaDR
|
DrRelacionado("Ret003TasaOCuotaDR") = TasaOCuotaDR
|
||||||
DrRelacionado("Ret003ImporteDR") = ImporteDR
|
DrRelacionado("Ret003ImporteDR") = ImporteDR
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
DTConceptosPagoRelacionado.Rows.Add(DrRelacionado)
|
DTConceptosPagoRelacionado.Rows.Add(DrRelacionado)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -9221,7 +9193,6 @@ Public Class ClsPaginas
|
|||||||
Cantidad = nodeconcepto.Attributes("Cantidad").InnerText
|
Cantidad = nodeconcepto.Attributes("Cantidad").InnerText
|
||||||
CvePS = nodeconcepto.Attributes("ClaveProdServ").InnerText
|
CvePS = nodeconcepto.Attributes("ClaveProdServ").InnerText
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim CadenaOriginal As String = $"||1.0| {FolioFiscal} | {FechaCertificacion.ToDate.ToShortDateString} T {FechaCertificacion.ToDateTime.ToShortTimeString} | {SelloCFDi} | {NoSerieCertificado} ||"
|
Dim CadenaOriginal As String = $"||1.0| {FolioFiscal} | {FechaCertificacion.ToDate.ToShortDateString} T {FechaCertificacion.ToDateTime.ToShortTimeString} | {SelloCFDi} | {NoSerieCertificado} ||"
|
||||||
|
|||||||
@@ -2229,11 +2229,10 @@ Public Class ClsVentas
|
|||||||
End Function
|
End Function
|
||||||
Public Function AddPromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
|
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,
|
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
|
Dim Retorno = -1
|
||||||
DataAdapter("PA_Vta_PromocionesAdd")
|
DataAdapter("PA_Vta_PromocionesAdd")
|
||||||
|
|
||||||
|
|
||||||
With SqlAdapter.SelectCommand.Parameters
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
.Add("@Promocion", SqlDbType.VarChar).Value = Promocion
|
.Add("@Promocion", SqlDbType.VarChar).Value = Promocion
|
||||||
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
|
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
|
||||||
@@ -2247,6 +2246,7 @@ Public Class ClsVentas
|
|||||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||||
.Add("@TipoAplicacion", SqlDbType.VarChar).Value = TipoAplicacion
|
.Add("@TipoAplicacion", SqlDbType.VarChar).Value = TipoAplicacion
|
||||||
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
|
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
|
||||||
|
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
|
||||||
.Add("@CvePromocion", SqlDbType.Int).Direction = ParameterDirection.Output
|
.Add("@CvePromocion", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||||
End With
|
End With
|
||||||
|
|
||||||
@@ -2260,11 +2260,10 @@ Public Class ClsVentas
|
|||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
End Function
|
||||||
Public Function UpdatePromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
|
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
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_Vta_PromocionesUpdate")
|
DataAdapter("PA_Vta_PromocionesUpdate")
|
||||||
|
|
||||||
|
|
||||||
With SqlAdapter.SelectCommand.Parameters
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
.Add("@Promocion", SqlDbType.VarChar).Value = Promocion
|
.Add("@Promocion", SqlDbType.VarChar).Value = Promocion
|
||||||
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
|
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
|
||||||
@@ -2278,6 +2277,7 @@ Public Class ClsVentas
|
|||||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||||
.Add("@TipoAplicacion", SqlDbType.Int).Value = TipoAplicacion
|
.Add("@TipoAplicacion", SqlDbType.Int).Value = TipoAplicacion
|
||||||
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
|
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
|
||||||
|
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
|
||||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
End With
|
End With
|
||||||
|
|
||||||
|
|||||||
@@ -1107,7 +1107,7 @@ Public Class Timbrado
|
|||||||
|
|
||||||
|
|
||||||
Dim VentaFolioFiscal, VentaSerie, VentaFolio, VentaAbreviaturaSAT, VentaMetodoPago, ObjetoImpuesto As String
|
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
|
Dim VentaNumParcialidad As Integer
|
||||||
|
|
||||||
If dttpagos IsNot Nothing AndAlso dttpagos.Rows.Count > 0 Then
|
If dttpagos IsNot Nothing AndAlso dttpagos.Rows.Count > 0 Then
|
||||||
@@ -1126,6 +1126,7 @@ Public Class Timbrado
|
|||||||
PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
|
PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
|
||||||
PorcentajeIEPS = dr("PorcentajeIEPS").ToString.ToDecimal
|
PorcentajeIEPS = dr("PorcentajeIEPS").ToString.ToDecimal
|
||||||
ObjetoImpuesto = dr("ObjetoImpuesto").ToString
|
ObjetoImpuesto = dr("ObjetoImpuesto").ToString
|
||||||
|
VentaImportePagoMN = dr("VentasTotalPagado").ToString.ToDecimal
|
||||||
|
|
||||||
'' si la moneda es igual, se omite el tipo de cambio de la venta
|
'' si la moneda es igual, se omite el tipo de cambio de la venta
|
||||||
If MonedaPago = VentaAbreviaturaSAT Then
|
If MonedaPago = VentaAbreviaturaSAT Then
|
||||||
@@ -1134,7 +1135,7 @@ Public Class Timbrado
|
|||||||
'condiciones especiales para el pago en pesos, facturas en moneda extranjera
|
'condiciones especiales para el pago en pesos, facturas en moneda extranjera
|
||||||
ElseIf MonedaPago = "MXN" AndAlso VentaAbreviaturaSAT <> "MXN" Then
|
ElseIf MonedaPago = "MXN" AndAlso VentaAbreviaturaSAT <> "MXN" Then
|
||||||
VentaTipoCambioMN = VentaTipoCambio
|
VentaTipoCambioMN = VentaTipoCambio
|
||||||
VentaTipoCambio = 1 / VentaTipoCambio
|
VentaTipoCambio = (1 / VentaTipoCambio).RoundSQL(6)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' For Each drr As Data.DataRow In DtFacturasPagadas.Rows
|
' For Each drr As Data.DataRow In DtFacturasPagadas.Rows
|
||||||
@@ -1144,9 +1145,10 @@ Public Class Timbrado
|
|||||||
.MonedaDR = VentaAbreviaturaSAT,
|
.MonedaDR = VentaAbreviaturaSAT,
|
||||||
.MetodoDePagoDR = VentaMetodoPago,
|
.MetodoDePagoDR = VentaMetodoPago,
|
||||||
.ImpPagado = VentaImportePago,
|
.ImpPagado = VentaImportePago,
|
||||||
|
.ImpPagadoMN = (VentaImportePago / VentaTipoCambio).RoundSQL,
|
||||||
.ImpSaldoInsoluto = VentaImporteSaldoInsoluto,
|
.ImpSaldoInsoluto = VentaImporteSaldoInsoluto,
|
||||||
.ImpSaldoAnt = VentaImporteSaldoAnterior,
|
.ImpSaldoAnt = VentaImporteSaldoAnterior,
|
||||||
.TipoCambioDR = VentaTipoCambioMN,
|
.TipoCambioDR = VentaTipoCambio,
|
||||||
.EquivalenciaDR = VentaTipoCambio,
|
.EquivalenciaDR = VentaTipoCambio,
|
||||||
.NumParcialidad = VentaNumParcialidad,
|
.NumParcialidad = VentaNumParcialidad,
|
||||||
.ObjetoImpuesto = ObjetoImpuesto} 'If(drr("MetodoPago").ToString = "PUE", 0, drr("NumParcialidad").ToString.ToEntero)}
|
.ObjetoImpuesto = ObjetoImpuesto} 'If(drr("MetodoPago").ToString = "PUE", 0, drr("NumParcialidad").ToString.ToEntero)}
|
||||||
@@ -1158,8 +1160,8 @@ Public Class Timbrado
|
|||||||
.TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal,
|
.TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal,
|
||||||
.Impuesto = drp("TipoImpuesto").ToString,
|
.Impuesto = drp("TipoImpuesto").ToString,
|
||||||
.Importe = drp("Importe").ToString().ToDecimal.RoundSQL,
|
.Importe = drp("Importe").ToString().ToDecimal.RoundSQL,
|
||||||
.BaseMN = (drp("Base").ToString.ToDecimal * VentaTipoCambioMN).RoundSQL,
|
.BaseMN = (drp("Base").ToString.ToDecimal / VentaTipoCambio).RoundSQL(6),
|
||||||
.ImporteMN = (drp("Importe").ToString.ToDecimal * VentaTipoCambioMN).RoundSQL
|
.ImporteMN = (drp("Importe").ToString.ToDecimal * VentaTipoCambio).RoundSQL(6)
|
||||||
}
|
}
|
||||||
)
|
)
|
||||||
|
|
||||||
@@ -4186,9 +4188,9 @@ Public Class Timbrado
|
|||||||
|
|
||||||
If docimp.TrasladooRetencion = "T" Then
|
If docimp.TrasladooRetencion = "T" Then
|
||||||
Dim Tra As New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionadoImpuestosDRTrasladoDR
|
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.ImporteDRSpecified = True
|
||||||
Tra.ImporteDR = docimp.ImporteMN.RoundSQL(2)
|
Tra.ImporteDR = docimp.Importe.RoundSQL(2)
|
||||||
Tra.ImpuestoDR = docimp.Impuesto
|
Tra.ImpuestoDR = docimp.Impuesto
|
||||||
Tra.TipoFactorDR = docimp.TipoFactor
|
Tra.TipoFactorDR = docimp.TipoFactor
|
||||||
Tra.TasaOCuotaDRSpecified = True
|
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).ImpuestoP = Tra.Impuesto
|
||||||
ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).TipoFactorP = Tra.TipoFactor
|
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).TasaOCuotaP = Tra.TasaOCuota.RoundSQL(6)
|
||||||
ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).ImporteP = Tra.Importe.RoundSQL(6)
|
ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).ImporteP = Tra.ImporteMN.RoundSQL(6)
|
||||||
ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).BaseP = Tra.Base.RoundSQL(2)
|
ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).BaseP = Tra.BaseMN.RoundSQL(2)
|
||||||
x += 1
|
x += 1
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
@@ -5100,7 +5102,7 @@ Public Class Timbrado
|
|||||||
doc.Serie,
|
doc.Serie,
|
||||||
doc.Folio,
|
doc.Folio,
|
||||||
doc.MonedaDR,
|
doc.MonedaDR,
|
||||||
doc.TipoCambioDR,
|
doc.EquivalenciaDR,
|
||||||
doc.NumParcialidad,
|
doc.NumParcialidad,
|
||||||
doc.ImpSaldoAnt,
|
doc.ImpSaldoAnt,
|
||||||
doc.ImpPagado,
|
doc.ImpPagado,
|
||||||
@@ -5135,7 +5137,7 @@ Public Class Timbrado
|
|||||||
|
|
||||||
If (ObjCFDITimbre.ComplementoPagos.Retenciones).Count > 0 Then
|
If (ObjCFDITimbre.ComplementoPagos.Retenciones).Count > 0 Then
|
||||||
For Each Ret As CFDIRetenciones In ObjCFDITimbre.ComplementoPagos.Retenciones
|
For Each Ret As CFDIRetenciones In ObjCFDITimbre.ComplementoPagos.Retenciones
|
||||||
cfdi.Pago20RetencionP(Ret.Impuesto, Ret.Importe)
|
cfdi.Pago20RetencionP(Ret.Impuesto, Ret.ImporteMN)
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|||||||
@@ -5861,7 +5861,7 @@ Partial Class Bancos_IE
|
|||||||
Str.AppendFormat("<a class="" texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML <i class="" fa fa-file""></i></i></a> ", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
|
Str.AppendFormat("<a class="" texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML <i class="" fa fa-file""></i></i></a> ", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
|
||||||
Str.AppendFormat("<a class="" texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF <i class="" fa fa-ad-pdf""></i></i></i></a> ", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
|
Str.AppendFormat("<a class="" texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF <i class="" fa fa-ad-pdf""></i></i></i></a> ", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
|
||||||
'Str.Append($"<a style='color:#337ab7' target='_blank' href='./IE.aspx?CveID={gvr.DataKey("CveIE")}'>{gvr.DataKey("Folio")}</a> {gvr.DataKey("NombreCliente")}<br>")
|
'Str.Append($"<a style='color:#337ab7' target='_blank' href='./IE.aspx?CveID={gvr.DataKey("CveIE")}'>{gvr.DataKey("Folio")}</a> {gvr.DataKey("NombreCliente")}<br>")
|
||||||
PDFReciboDePagos(-1, gvr.DataKey("CveIE").ToEntero, ObjBanco.CveComplementoPago, False)
|
PDFReciboDePagos(-1, gvr.DataKey("CveIE").ToEntero, ObjBanco.CveComplementoPago, False, True)
|
||||||
Alert(Str.ToString, TipoMensaje.MsgInformacion)
|
Alert(Str.ToString, TipoMensaje.MsgInformacion)
|
||||||
CargaComplementosPago()
|
CargaComplementosPago()
|
||||||
Else
|
Else
|
||||||
@@ -6136,7 +6136,7 @@ Partial Class Bancos_IE
|
|||||||
If Banco.GeneraTimbrePago(CveIE, -1, UsuarioActual) Then
|
If Banco.GeneraTimbrePago(CveIE, -1, UsuarioActual) Then
|
||||||
If Banco.Mensaje = "" Then
|
If Banco.Mensaje = "" Then
|
||||||
Banco.Commit()
|
Banco.Commit()
|
||||||
PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False)
|
PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False, True)
|
||||||
Str.AppendFormat("Folio: <b>{0}</b> ", Banco.ComplementoSerieFolio)
|
Str.AppendFormat("Folio: <b>{0}</b> ", Banco.ComplementoSerieFolio)
|
||||||
Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML <i class=""fa fa-file""></i></i></a> ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
|
Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML <i class=""fa fa-file""></i></i></a> ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
|
||||||
Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF <i class=""fa fa-ad-pdf""></i></i></i></a> ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago, CveIE)))
|
Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF <i class=""fa fa-ad-pdf""></i></i></i></a> ", 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
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
|
|
||||||
Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
|
Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
|
||||||
If resp.Verificado Then
|
If resp.Verificado Then
|
||||||
|
|
||||||
@@ -6600,11 +6599,11 @@ Partial Class Bancos_IE
|
|||||||
Else
|
Else
|
||||||
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
|
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
ObjBanco.Dispose()
|
ObjBanco.Dispose()
|
||||||
CargaComplementosPago()
|
CargaComplementosPago()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|||||||
@@ -484,7 +484,7 @@ Partial Class Bancos_PopIECompras
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'SI USUARIO USA AMORTIZACIÓN CONTABLE
|
'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
|
Dim AC As New ClsAC
|
||||||
If AC.GetPresupuestoIngresos(-1, -1, True, UsuarioActual.CveEmpresa) Then
|
If AC.GetPresupuestoIngresos(-1, -1, True, UsuarioActual.CveEmpresa) Then
|
||||||
DdlFuenteRecaudacion.DataSource = AC.DtResultados()
|
DdlFuenteRecaudacion.DataSource = AC.DtResultados()
|
||||||
@@ -1836,18 +1836,22 @@ Partial Class Bancos_PopIECompras
|
|||||||
|
|
||||||
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
If IdCtaContRetIVA > 0 Then
|
|
||||||
IdCtaContable = IdCtaContRetIVA
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
|
If IdCtaContRetIVA > 0 Then
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
|
IdCtaContable = IdCtaContRetIVA
|
||||||
Else
|
ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
Else
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Case 22 'Ret IVA Acreditable Honorarios/Serv. Prof.
|
Case 22 'Ret IVA Acreditable Honorarios/Serv. Prof.
|
||||||
If MovimientoPagar.ConceptoRetIVA > 0 Then
|
If MovimientoPagar.ConceptoRetIVA > 0 Then
|
||||||
@@ -1887,18 +1891,22 @@ Partial Class Bancos_PopIECompras
|
|||||||
|
|
||||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
|
||||||
If IdCtaContRetIVAAcreditable > 0 Then
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
IdCtaContable = IdCtaContRetIVAAcreditable
|
'Conta ContPAQ
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
|
If IdCtaContRetIVAAcreditable > 0 Then
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
|
IdCtaContable = IdCtaContRetIVAAcreditable
|
||||||
Else
|
ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
Else
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Case 16 'Ret ISR X Acreditar
|
Case 16 'Ret ISR X Acreditar
|
||||||
@@ -1934,18 +1942,21 @@ Partial Class Bancos_PopIECompras
|
|||||||
|
|
||||||
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetISR > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetISR
|
If IdCtaContRetISR > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetISR
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Case 23 'Ret ISR Acreditable
|
Case 23 'Ret ISR Acreditable
|
||||||
@@ -1980,19 +1991,22 @@ Partial Class Bancos_PopIECompras
|
|||||||
|
|
||||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetISRAcreditable > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetISRAcreditable
|
If IdCtaContRetISRAcreditable > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetISRAcreditable
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Case 14 'Iva por Acreditar
|
Case 14 'Iva por Acreditar
|
||||||
@@ -2066,12 +2080,17 @@ Partial Class Bancos_PopIECompras
|
|||||||
|
|
||||||
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
|
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
|
||||||
|
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
|
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
|
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
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Case 19 'Iva Acreditable
|
Case 19 'Iva Acreditable
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||||
@@ -2207,7 +2226,8 @@ Partial Class Bancos_PopIECompras
|
|||||||
|
|
||||||
IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -2292,7 +2312,7 @@ Partial Class Bancos_PopIECompras
|
|||||||
|
|
||||||
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -2433,7 +2453,7 @@ Partial Class Bancos_PopIECompras
|
|||||||
|
|
||||||
IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -2538,7 +2558,7 @@ Partial Class Bancos_PopIECompras
|
|||||||
ImporteMX = ImporteMX.RoundSQL
|
ImporteMX = ImporteMX.RoundSQL
|
||||||
TimpocambioGeneral = tipoCambioCompra
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -2561,7 +2581,7 @@ Partial Class Bancos_PopIECompras
|
|||||||
ImporteMX = ImporteMX.RoundSQL
|
ImporteMX = ImporteMX.RoundSQL
|
||||||
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -2838,16 +2858,19 @@ Partial Class Bancos_PopIECompras
|
|||||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||||
ImporteMX = ImporteMX.RoundSQL
|
ImporteMX = ImporteMX.RoundSQL
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVACliente <> 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVACliente
|
If IdCtaContRetIVACliente <> 0 Then
|
||||||
Else
|
IdCtaContable = IdCtaContRetIVACliente
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
MsgError = "No se pudo insertar la póliza"
|
||||||
@@ -2879,17 +2902,20 @@ Partial Class Bancos_PopIECompras
|
|||||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||||
ImporteMX = ImporteMX.RoundSQL
|
ImporteMX = ImporteMX.RoundSQL
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetISR <> 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetISR
|
If IdCtaContRetISR <> 0 Then
|
||||||
Else
|
IdCtaContable = IdCtaContRetISR
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
MsgError = "No se pudo insertar la póliza"
|
||||||
@@ -3072,18 +3098,21 @@ Partial Class Bancos_PopIECompras
|
|||||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||||
ImporteMX = ImporteMX.RoundSQL
|
ImporteMX = ImporteMX.RoundSQL
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVA <> 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVA
|
If IdCtaContRetIVA <> 0 Then
|
||||||
Else
|
IdCtaContable = IdCtaContRetIVA
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
MsgError = "No se pudo insertar la póliza"
|
||||||
@@ -3115,17 +3144,20 @@ Partial Class Bancos_PopIECompras
|
|||||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||||
ImporteMX = ImporteMX.RoundSQL
|
ImporteMX = ImporteMX.RoundSQL
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetISR <> 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetISR
|
If IdCtaContRetISR <> 0 Then
|
||||||
Else
|
IdCtaContable = IdCtaContRetISR
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
MsgError = "No se pudo insertar la póliza"
|
||||||
|
|||||||
@@ -582,7 +582,7 @@ Partial Class Bancos_PopIEVentas
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'SI USUARIO USA AMORTIZACIÓN CONTABLE
|
'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
|
Dim AC As New ClsAC
|
||||||
If AC.GetPresupuestoIngresos(-1, -1, True, UsuarioActual.CveEmpresa) Then
|
If AC.GetPresupuestoIngresos(-1, -1, True, UsuarioActual.CveEmpresa) Then
|
||||||
DdlFuenteRecaudacion.DataSource = AC.DtResultados()
|
DdlFuenteRecaudacion.DataSource = AC.DtResultados()
|
||||||
@@ -1830,17 +1830,20 @@ Partial Class Bancos_PopIEVentas
|
|||||||
|
|
||||||
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVA <> 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVA
|
If IdCtaContRetIVA <> 0 Then
|
||||||
Else
|
IdCtaContable = IdCtaContRetIVA
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Case 9 'Ret ISR
|
Case 9 'Ret ISR
|
||||||
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
|
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
|
||||||
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
|
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
|
||||||
@@ -1864,17 +1867,20 @@ Partial Class Bancos_PopIEVentas
|
|||||||
|
|
||||||
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetISR <> 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetISR
|
If IdCtaContRetISR <> 0 Then
|
||||||
Else
|
IdCtaContable = IdCtaContRetISR
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Case 13 'Iva por Trasladar
|
Case 13 'Iva por Trasladar
|
||||||
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
|
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
|
||||||
ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
|
ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
|
||||||
@@ -1961,7 +1967,7 @@ Partial Class Bancos_PopIEVentas
|
|||||||
TimpocambioGeneral = tipoCambioVenta
|
TimpocambioGeneral = tipoCambioVenta
|
||||||
CveSubProyectoContabilizar = CveSubProyectoVenta
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -1989,7 +1995,7 @@ Partial Class Bancos_PopIEVentas
|
|||||||
CveSubProyectoContabilizar = CveSubProyectoVenta
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -2019,17 +2025,20 @@ Partial Class Bancos_PopIEVentas
|
|||||||
|
|
||||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVA <> 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVA
|
If IdCtaContRetIVA <> 0 Then
|
||||||
Else
|
IdCtaContable = IdCtaContRetIVA
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Case 63 'Ret ISR Trasladado
|
Case 63 'Ret ISR Trasladado
|
||||||
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
|
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
|
||||||
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
|
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
|
||||||
@@ -2054,17 +2063,20 @@ Partial Class Bancos_PopIEVentas
|
|||||||
|
|
||||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetISR <> 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetISR
|
If IdCtaContRetISR <> 0 Then
|
||||||
Else
|
IdCtaContable = IdCtaContRetISR
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Case 64 'Ganancia
|
Case 64 'Ganancia
|
||||||
If CveMoneda <> 1 OrElse CveMonedaVenta <> 1 Then
|
If CveMoneda <> 1 OrElse CveMonedaVenta <> 1 Then
|
||||||
IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
|
IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
|
||||||
@@ -2445,19 +2457,22 @@ Partial Class Bancos_PopIEVentas
|
|||||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
ImporteMX = Math.Round(ImporteMX, 2)
|
ImporteMX = Math.Round(ImporteMX, 2)
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVAProveedor > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVAProveedor
|
If IdCtaContRetIVAProveedor > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetIVAProveedor
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
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)}"
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVAAcreditableProveedor > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVAAcreditableProveedor
|
If IdCtaContRetIVAAcreditableProveedor > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetIVAAcreditableProveedor
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
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)}"
|
If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVAProveedor > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVAProveedor
|
If IdCtaContRetIVAProveedor > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetIVAProveedor
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
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 tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
If IdCtaContRetIVAAcreditableProveedor > 0 Then
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
IdCtaContable = IdCtaContRetIVAAcreditableProveedor
|
If IdCtaContRetIVAAcreditableProveedor > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetIVAAcreditableProveedor
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
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)}"
|
If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVAProveedor > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVAProveedor
|
If IdCtaContRetIVAProveedor > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetIVAProveedor
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
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)}"
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVAAcreditableProveedor > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVAAcreditableProveedor
|
If IdCtaContRetIVAAcreditableProveedor > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetIVAAcreditableProveedor
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
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)}"
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVAProveedor > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVAProveedor
|
If IdCtaContRetIVAProveedor > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetIVAProveedor
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
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)}"
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVAAcreditableProveedor > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVAAcreditableProveedor
|
If IdCtaContRetIVAAcreditableProveedor > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetIVAAcreditableProveedor
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If ImporteMovimiento > 0 Then
|
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
|
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"
|
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)
|
IdCtaContable = If(UsuarioActual.Empresa.Funcionalidad(340).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(340).ToEntero, 0)
|
||||||
End Select
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -3179,7 +3215,7 @@ Partial Class Bancos_PopIEVentas
|
|||||||
IdCtaContable = If(UsuarioActual.Empresa.Funcionalidad(341).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(341).ToEntero, 0)
|
IdCtaContable = If(UsuarioActual.Empresa.Funcionalidad(341).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(341).ToEntero, 0)
|
||||||
End Select
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -3264,7 +3300,7 @@ Partial Class Bancos_PopIEVentas
|
|||||||
IdCtaContable = If(UsuarioActual.Empresa.Funcionalidad(341).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(341).ToEntero, 0)
|
IdCtaContable = If(UsuarioActual.Empresa.Funcionalidad(341).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(341).ToEntero, 0)
|
||||||
End Select
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -3302,7 +3338,7 @@ Partial Class Bancos_PopIEVentas
|
|||||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
ImporteMX = Math.Round(ImporteMX, 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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -3340,7 +3376,7 @@ Partial Class Bancos_PopIEVentas
|
|||||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
ImporteMX = Math.Round(ImporteMX, 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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -1032,18 +1032,22 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
TipoCambioGeneral = tipoCambioCompra
|
TipoCambioGeneral = tipoCambioCompra
|
||||||
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVA > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVA
|
If IdCtaContRetIVA > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetIVA
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
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)}"
|
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVAAcreditable > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVAAcreditable
|
If IdCtaContRetIVAAcreditable > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetIVAAcreditable
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
@@ -1110,18 +1117,21 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
TipoCambioGeneral = tipoCambioCompra
|
TipoCambioGeneral = tipoCambioCompra
|
||||||
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetISR > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetISR
|
If IdCtaContRetISR > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetISR
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Case 23 'Ret ISR Acreditable
|
Case 23 'Ret ISR Acreditable
|
||||||
If gvr.DataKey("CveRetISRConcepto").ToEntero > 0 Then
|
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)}"
|
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetISRAcreditable > 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetISRAcreditable
|
If IdCtaContRetISRAcreditable > 0 Then
|
||||||
ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
|
IdCtaContable = IdCtaContRetISRAcreditable
|
||||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
|
ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
|
||||||
Else
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
|
||||||
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Case 14 'Iva X Acreditar
|
Case 14 'Iva X Acreditar
|
||||||
@@ -1192,7 +1205,7 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -1250,7 +1263,7 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
End If
|
End If
|
||||||
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -1263,7 +1276,7 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
TipoCambioGeneral = tipoCambioCompra
|
TipoCambioGeneral = tipoCambioCompra
|
||||||
|
|
||||||
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -1274,7 +1287,7 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
importeMX = (ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)).RoundSQL
|
importeMX = (ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)).RoundSQL
|
||||||
TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
@@ -1692,7 +1705,7 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
If DdlTipoTransaccion.SelectedValue = "1" Then TipoChq = "CHQ"
|
If DdlTipoTransaccion.SelectedValue = "1" Then TipoChq = "CHQ"
|
||||||
'se multiplica por dos, porque se esta juntando el ejercido y el pagado al mismo tiempo
|
'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)
|
IDPoliza = ObjConta.AddPoliza(2, "Pagado " & TxtPagueseA.Text.Trim, Total, Total, UsuarioActual.CveUsuario, Fecha, TxtFolio.Text, TipoChq)
|
||||||
If IDPoliza > 0 Then
|
If IDPoliza > 0 Then
|
||||||
@@ -2649,7 +2662,7 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
If MsgError = "" AndAlso gr.DataKey("IEPS").ToDecimal > 0 Then
|
If MsgError = "" AndAlso gr.DataKey("IEPS").ToDecimal > 0 Then
|
||||||
|
|
||||||
Dim IEPS As Decimal = PorcentajePago * gr.DataKey("IEPS").ToDecimal
|
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
|
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -163,7 +163,7 @@ Partial Class Bancos_RepComplementoPago
|
|||||||
If Banco.GeneraTimbrePago(gvr.DataKey("CveIE").ToEntero, -1, UsuarioActual, FechaTimbrado:=FechaTimbrado) Then
|
If Banco.GeneraTimbrePago(gvr.DataKey("CveIE").ToEntero, -1, UsuarioActual, FechaTimbrado:=FechaTimbrado) Then
|
||||||
If Banco.Mensaje = "" Then
|
If Banco.Mensaje = "" Then
|
||||||
Banco.Commit()
|
Banco.Commit()
|
||||||
PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False)
|
PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False, True)
|
||||||
Str.AppendFormat("Folio: <b>{0}</b> ", Banco.ComplementoSerieFolio)
|
Str.AppendFormat("Folio: <b>{0}</b> ", Banco.ComplementoSerieFolio)
|
||||||
Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML <i class=""fa fa-file""></i></i></a> ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
|
Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML <i class=""fa fa-file""></i></i></a> ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
|
||||||
Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF <i class=""fa fa-ad-pdf""></i></i></i></a> ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
|
Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF <i class=""fa fa-ad-pdf""></i></i></i></a> ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
|
||||||
|
|||||||
BIN
Bin/GoCfdi.dll
BIN
Bin/GoCfdi.dll
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1024,8 +1024,15 @@ Partial Class PopUpVerFactura
|
|||||||
'IMPRIME CARTA PORTE
|
'IMPRIME CARTA PORTE
|
||||||
If UrlParametros("OP").ToString = "CARPO" Then
|
If UrlParametros("OP").ToString = "CARPO" Then
|
||||||
If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 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
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
|
||||||
|
ImprimeFormatoCartaPorte(-1, UrlParametros("CVETIMBRE").ToString.ToEntero)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
|
If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
|
||||||
@@ -1416,9 +1423,9 @@ Partial Class PopUpVerFactura
|
|||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE TIMBRADO"
|
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE TIMBRADO"
|
||||||
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
|
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer, Optional CveTimbre As Integer = -1)
|
||||||
If CveMovimiento > 0 Then
|
If CveMovimiento > 0 Or CveTimbre > 0 Then
|
||||||
Dim ObjInv As New ClsInventarios
|
|
||||||
|
|
||||||
Dim SerieFolio As String = ""
|
Dim SerieFolio As String = ""
|
||||||
Dim DomicilioSucursal As String = ""
|
Dim DomicilioSucursal As String = ""
|
||||||
@@ -1441,78 +1448,292 @@ Partial Class PopUpVerFactura
|
|||||||
Dim Licencia As String = ""
|
Dim Licencia As String = ""
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim SBDireccionO As New StringBuilder()
|
Dim SBDireccionO As New StringBuilder()
|
||||||
Dim SBDireccionD As New StringBuilder()
|
Dim SBDireccionD As New StringBuilder()
|
||||||
|
|
||||||
If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
|
Dim Dt As DataTable = Nothing
|
||||||
If ObjInv.DtResultados.Rows.Count > 0 Then
|
|
||||||
Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
|
Dim FormatoRDLC As String = ""
|
||||||
If Dr IsNot Nothing Then
|
|
||||||
SerieFolio = Dr("Folio").ToString
|
Dim params As New List(Of ReportParameter)
|
||||||
DomicilioSucursal = $"{Dr("CalleOrigen").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} "
|
|
||||||
LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
|
If CveMovimiento > 0 Then
|
||||||
Origen = Dr("AlmacenOrigen").ToString
|
|
||||||
Destino = Dr("AlmacenDestino").ToString
|
FormatoRDLC = "CartaPorte.rdlc"
|
||||||
Observaciones = Dr("Observaciones").ToString
|
|
||||||
CveChofer = Dr("CveChofer").ToString
|
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
|
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
|
||||||
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
|
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
|
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))
|
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", ""))
|
params.Add(New ReportParameter("LogoPath", ""))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
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("Ciudad", Ciudad))
|
||||||
params.Add(New ReportParameter("Licencia", Licencia))
|
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 If
|
End If
|
||||||
End Sub
|
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
|
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)
|
Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
|
||||||
If o Is Nothing Then
|
If o Is Nothing Then
|
||||||
|
|||||||
@@ -822,7 +822,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
|
|
||||||
Dim ImporteNOIVA As Decimal = gvr.DataKey("IVANoDeducible").ToDecimal * PorcentajePago
|
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"
|
MsgError = "Detalle"
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1058,7 +1058,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
|
|
||||||
Dim ImporteNOIVA As Decimal = gvr.DataKey("IVANoDeducible").ToDecimal * PorcentajePago
|
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"
|
MsgError = "Detalle"
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -256,7 +256,7 @@
|
|||||||
</Style>
|
</Style>
|
||||||
</TextRun>
|
</TextRun>
|
||||||
<TextRun>
|
<TextRun>
|
||||||
<Value>=Parameters!FechaEntrega.Value</Value>
|
<Value>= FORMAT(Parameters!FechaEntrega.Value,"dd/MM/yyyy")</Value>
|
||||||
<Style>
|
<Style>
|
||||||
<FontSize>8pt</FontSize>
|
<FontSize>8pt</FontSize>
|
||||||
<Format>dd/MM/yyyy hh:mm tt</Format>
|
<Format>dd/MM/yyyy hh:mm tt</Format>
|
||||||
@@ -2199,7 +2199,7 @@
|
|||||||
</Style>
|
</Style>
|
||||||
</TextRun>
|
</TextRun>
|
||||||
<TextRun>
|
<TextRun>
|
||||||
<Value>=Today</Value>
|
<Value>= FORMAT(Today,"dd/MM/yyyy")</Value>
|
||||||
<Style>
|
<Style>
|
||||||
<FontSize>8pt</FontSize>
|
<FontSize>8pt</FontSize>
|
||||||
</Style>
|
</Style>
|
||||||
|
|||||||
@@ -26,7 +26,7 @@
|
|||||||
<Paragraph>
|
<Paragraph>
|
||||||
<TextRuns>
|
<TextRuns>
|
||||||
<TextRun>
|
<TextRun>
|
||||||
<Value>DE C.V. RFC: CMN9810221L8</Value>
|
<Value>RFC: CMN9810221L8</Value>
|
||||||
<Style>
|
<Style>
|
||||||
<FontStyle>Normal</FontStyle>
|
<FontStyle>Normal</FontStyle>
|
||||||
<FontFamily>arial</FontFamily>
|
<FontFamily>arial</FontFamily>
|
||||||
|
|||||||
@@ -1248,7 +1248,7 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox1</rd:DefaultName>
|
<rd:DefaultName>Textbox1</rd:DefaultName>
|
||||||
<Top>20.42682cm</Top>
|
<Top>19.15682cm</Top>
|
||||||
<Left>0.23022cm</Left>
|
<Left>0.23022cm</Left>
|
||||||
<Height>2.22232cm</Height>
|
<Height>2.22232cm</Height>
|
||||||
<Width>19.21855cm</Width>
|
<Width>19.21855cm</Width>
|
||||||
@@ -1291,7 +1291,7 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox1</rd:DefaultName>
|
<rd:DefaultName>Textbox1</rd:DefaultName>
|
||||||
<Top>19.80083cm</Top>
|
<Top>18.53083cm</Top>
|
||||||
<Left>0.23022cm</Left>
|
<Left>0.23022cm</Left>
|
||||||
<Height>0.62599cm</Height>
|
<Height>0.62599cm</Height>
|
||||||
<Width>19.21855cm</Width>
|
<Width>19.21855cm</Width>
|
||||||
@@ -1449,7 +1449,7 @@
|
|||||||
</Style>
|
</Style>
|
||||||
</Rectangle>
|
</Rectangle>
|
||||||
</ReportItems>
|
</ReportItems>
|
||||||
<Height>8.91698in</Height>
|
<Height>8.41698in</Height>
|
||||||
<Style />
|
<Style />
|
||||||
</Body>
|
</Body>
|
||||||
<Width>7.66009in</Width>
|
<Width>7.66009in</Width>
|
||||||
@@ -1708,7 +1708,7 @@
|
|||||||
<PrintOnLastPage>true</PrintOnLastPage>
|
<PrintOnLastPage>true</PrintOnLastPage>
|
||||||
<ReportItems>
|
<ReportItems>
|
||||||
<Line Name="Line1">
|
<Line Name="Line1">
|
||||||
<Top>0.03525cm</Top>
|
<Top>0.03524cm</Top>
|
||||||
<Left>0.22015cm</Left>
|
<Left>0.22015cm</Left>
|
||||||
<Height>0cm</Height>
|
<Height>0cm</Height>
|
||||||
<Width>19.22862cm</Width>
|
<Width>19.22862cm</Width>
|
||||||
@@ -1738,7 +1738,7 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox13</rd:DefaultName>
|
<rd:DefaultName>Textbox13</rd:DefaultName>
|
||||||
<Top>0.14108cm</Top>
|
<Top>0.14107cm</Top>
|
||||||
<Left>0.22015cm</Left>
|
<Left>0.22015cm</Left>
|
||||||
<Height>0.54708cm</Height>
|
<Height>0.54708cm</Height>
|
||||||
<Width>1.55632cm</Width>
|
<Width>1.55632cm</Width>
|
||||||
@@ -1772,7 +1772,7 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox14</rd:DefaultName>
|
<rd:DefaultName>Textbox14</rd:DefaultName>
|
||||||
<Top>0.14108cm</Top>
|
<Top>0.14107cm</Top>
|
||||||
<Left>1.77647cm</Left>
|
<Left>1.77647cm</Left>
|
||||||
<Height>0.54708cm</Height>
|
<Height>0.54708cm</Height>
|
||||||
<Width>4.96223cm</Width>
|
<Width>4.96223cm</Width>
|
||||||
@@ -1807,7 +1807,7 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox13</rd:DefaultName>
|
<rd:DefaultName>Textbox13</rd:DefaultName>
|
||||||
<Top>0.14108cm</Top>
|
<Top>0.14107cm</Top>
|
||||||
<Left>6.84454cm</Left>
|
<Left>6.84454cm</Left>
|
||||||
<Height>0.54708cm</Height>
|
<Height>0.54708cm</Height>
|
||||||
<Width>2.84562cm</Width>
|
<Width>2.84562cm</Width>
|
||||||
@@ -1842,7 +1842,7 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox14</rd:DefaultName>
|
<rd:DefaultName>Textbox14</rd:DefaultName>
|
||||||
<Top>0.14108cm</Top>
|
<Top>0.14107cm</Top>
|
||||||
<Left>9.69015cm</Left>
|
<Left>9.69015cm</Left>
|
||||||
<Height>0.54708cm</Height>
|
<Height>0.54708cm</Height>
|
||||||
<Width>4.68641cm</Width>
|
<Width>4.68641cm</Width>
|
||||||
@@ -1876,7 +1876,7 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox14</rd:DefaultName>
|
<rd:DefaultName>Textbox14</rd:DefaultName>
|
||||||
<Top>0.17636cm</Top>
|
<Top>0.17635cm</Top>
|
||||||
<Left>14.62633cm</Left>
|
<Left>14.62633cm</Left>
|
||||||
<Height>0.54708cm</Height>
|
<Height>0.54708cm</Height>
|
||||||
<Width>4.8023cm</Width>
|
<Width>4.8023cm</Width>
|
||||||
@@ -1908,7 +1908,7 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox14</rd:DefaultName>
|
<rd:DefaultName>Textbox14</rd:DefaultName>
|
||||||
<Top>0.68816cm</Top>
|
<Top>0.68815cm</Top>
|
||||||
<Left>0.22015cm</Left>
|
<Left>0.22015cm</Left>
|
||||||
<Height>0.54708cm</Height>
|
<Height>0.54708cm</Height>
|
||||||
<Width>6.21751cm</Width>
|
<Width>6.21751cm</Width>
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@@ -39,7 +39,8 @@
|
|||||||
</div>
|
</div>
|
||||||
<label class="col-md-1 " style="width: 80px; margin-top: 5px;">Estatus:</label>
|
<label class="col-md-1 " style="width: 80px; margin-top: 5px;">Estatus:</label>
|
||||||
<div class="col-md-1">
|
<div class="col-md-1">
|
||||||
<asp:DropDownList ID="DdlEstatus" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="EntregaForaneaEstatus" DataValueField="CveEntregaForaneaEstatus" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
|
<asp:DropDownList ID="DdlEstatus" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="EntregaForaneaEstatus" DataValueField="CveEntregaForaneaEstatus" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||||
|
</asp:DropDownList>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<label class="col-md-1 " style="width: 90px;">Fecha Inicial:</label>
|
<label class="col-md-1 " style="width: 90px;">Fecha Inicial:</label>
|
||||||
|
|||||||
@@ -315,10 +315,13 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
|
|||||||
protected void CargaEstatus()
|
protected void CargaEstatus()
|
||||||
{
|
{
|
||||||
|
|
||||||
DdlEstatus.Items.Insert(0, new ListItem("Todos ", "-1"));
|
DdlEstatus.Items.Insert(0, new ListItem("Todos ", "-1"));
|
||||||
DdlEstatus.Items.Insert(1, new ListItem("Registrado", "0"));
|
DdlEstatus.Items.Insert(1, new ListItem("Registrado", "0"));
|
||||||
DdlEstatus.Items.Insert(2, new ListItem("Timbrado", "1"));
|
DdlEstatus.Items.Insert(2, new ListItem("Timbrado", "1"));
|
||||||
DdlEstatus.Items.Insert(3, new ListItem("Cancelado ", "2"));
|
DdlEstatus.Items.Insert(3, new ListItem("Cancelado ", "2"));
|
||||||
|
|
||||||
|
DdlEstatus.SelectedValueExist("1");
|
||||||
|
|
||||||
}
|
}
|
||||||
protected void InicializaFechas()
|
protected void InicializaFechas()
|
||||||
{
|
{
|
||||||
|
|||||||
@@ -4250,6 +4250,41 @@
|
|||||||
|
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
<div class="form-group form-md-line-input" id="DivModalLayoutBancosFecha" runat="server" visible="false">
|
||||||
|
|
||||||
|
|
||||||
|
<asp:Label runat="server" AssociatedControlID="TxtModalLayoutBancosFecha">Fecha:</asp:Label>
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
|
||||||
|
<asp:TextBox ID="TxtModalLayoutBancosFecha" runat="server" CssClass="form-control" CausesValidation="true" Width="100%" MaxLength="10" Font-Size="12px"></asp:TextBox>
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="LnkModalLayoutBancosFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<ajax:MaskedEditExtender ID="METxtModalLayoutBancosFecha" runat="server" TargetControlID="TxtModalLayoutBancosFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender runat="server" ID="CETxtModalLayoutBancosFecha" TargetControlID="TxtModalLayoutBancosFecha" PopupButtonID="LnkModalLayoutBancosFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
|
|
||||||
|
<asp:RequiredFieldValidator ID="RfvTxtModalLayoutBancosFecha" runat="server" ControlToValidate="TxtModalLayoutBancosFecha" Display="None" ErrorMessage="El campo <b>''Fecha'</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpModalBancoLayout"></asp:RequiredFieldValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="VCERfvTxtModalLayoutBancosFecha" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalLayoutBancosFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<%-- <div class="form-group form-md-line-input input-iconright" runat="server" visible="false" >
|
||||||
|
<asp:TextBox ID="TxtModalLayoutBancosFecha" runat="server" CausesValidation="True" CssClass="form-control"></asp:TextBox>
|
||||||
|
<asp:RequiredFieldValidator ID="RfTxtModalLayoutBancosFecha" runat="server" ControlToValidate="TxtModalLayoutBancosFecha" CssClass="help-block errorimput" Display="none"
|
||||||
|
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario "
|
||||||
|
ValidationGroup="GrpModalBancoLayout"></asp:RequiredFieldValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="VCERfTxtModalLayoutBancosFecha" runat="server" HighlightCssClass="vco" TargetControlID="RfTxtModalLayoutBancosFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
|
||||||
|
<asp:Label runat="server" Text="Fecha: " AssociatedControlID="TxtModalLayoutBancosFecha"></asp:Label>
|
||||||
|
<ajax:MaskedEditExtender ID="MaskedEditExtender6" runat="server" TargetControlID="TxtModalLayoutBancosFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MKEFechaBaja" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender ID="CalendarExtender5" runat="server" TargetControlID="TxtModalLayoutBancosFecha" PopupButtonID="ImgFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_CEFechaBaja"></ajax:CalendarExtender>
|
||||||
|
<asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="TxtModalLayoutBancosFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpModalBancoLayout" Visible="False"></asp:CompareValidator>
|
||||||
|
</div>--%>
|
||||||
|
|
||||||
|
|
||||||
<br />
|
<br />
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -8274,6 +8274,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
Banco = Bancos.SinSelccion;
|
Banco = Bancos.SinSelccion;
|
||||||
CargaCuentas();
|
CargaCuentas();
|
||||||
|
|
||||||
|
DivModalLayoutBancosFecha.Visible = false;
|
||||||
|
TxtModalLayoutBancosFecha.Text = "";
|
||||||
|
|
||||||
this.RegistraScript("$('#ModalLayoutBancos').modal('show');");
|
this.RegistraScript("$('#ModalLayoutBancos').modal('show');");
|
||||||
UpModalBancosLayout.Update();
|
UpModalBancosLayout.Update();
|
||||||
}
|
}
|
||||||
@@ -8295,7 +8298,10 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
{
|
{
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
ConvenioPagoElectronico = string.Empty;
|
ConvenioPagoElectronico = string.Empty;
|
||||||
|
DivModalLayoutBancosFecha.Visible = false;
|
||||||
|
|
||||||
if (DdlCuenta.SelectedValue.ToEntero() > 0)
|
if (DdlCuenta.SelectedValue.ToEntero() > 0)
|
||||||
{
|
{
|
||||||
@@ -8309,6 +8315,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
else if (DdlCuenta.SelectedItem.Text.ToUpper().Contains("BANORTE"))
|
else if (DdlCuenta.SelectedItem.Text.ToUpper().Contains("BANORTE"))
|
||||||
{
|
{
|
||||||
Banco = Bancos.Banorte;
|
Banco = Bancos.Banorte;
|
||||||
|
DivModalLayoutBancosFecha.Visible = true;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
@@ -8468,7 +8475,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
//Emisora N 5 4-8
|
//Emisora N 5 4-8
|
||||||
sb.Append(Emisora.PadLeft(5, Cero));
|
sb.Append(Emisora.PadLeft(5, Cero));
|
||||||
//FechaProceso N 8 9-16
|
//FechaProceso N 8 9-16
|
||||||
sb.Append(DateTime.Now.ToString("yyyyMMdd"));
|
sb.Append(TxtModalLayoutBancosFecha.Text.ToDate().ToString("yyyyMMdd") );
|
||||||
//Conmsecutivo N 2 17-18
|
//Conmsecutivo N 2 17-18
|
||||||
sb.Append("01");
|
sb.Append("01");
|
||||||
//Numero Total de Registros N 6 19-24
|
//Numero Total de Registros N 6 19-24
|
||||||
|
|||||||
11
OC/OC.aspx
11
OC/OC.aspx
@@ -2711,9 +2711,14 @@
|
|||||||
</div>
|
</div>
|
||||||
<br />
|
<br />
|
||||||
<div class="row" runat="server" id="DivTCRow" style="width: 100%">
|
<div class="row" runat="server" id="DivTCRow" style="width: 100%">
|
||||||
<label class="col-md-3">Tipo de Cambio:</label>
|
|
||||||
<div class="col-md-3">
|
<label class="col-md-3">Conservar PU:</label>
|
||||||
<asp:TextBox ID="TxtTCCambioMoneda" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
|
<div class="col-md-1">
|
||||||
|
<asp:CheckBox ID="chkMonedaPU" runat="server" ></asp:CheckBox>
|
||||||
|
</div>
|
||||||
|
<label class="col-md-3">Tipo de Cambio:</label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<asp:TextBox ID="TxtTCCambioMoneda" runat="server" Width="100px" CssClass="form-control input-sm" CausesValidation="true"></asp:TextBox>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
|
|||||||
@@ -8046,7 +8046,7 @@ Partial Class OC
|
|||||||
|
|
||||||
Dim CveMovimientoAlmacen As Integer = ObjOC.DtResultados.FiltroPrimeroValor("CveMovimientoAlmacen").ToEntero
|
Dim CveMovimientoAlmacen As Integer = ObjOC.DtResultados.FiltroPrimeroValor("CveMovimientoAlmacen").ToEntero
|
||||||
Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal
|
Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal
|
||||||
|
Dim ConservaPU As Boolean = chkMonedaPU.Checked
|
||||||
|
|
||||||
If CveMonedaOC = 2 Then
|
If CveMonedaOC = 2 Then
|
||||||
CveMonedaOC = 1
|
CveMonedaOC = 1
|
||||||
@@ -8073,28 +8073,47 @@ Partial Class OC
|
|||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
|
''-pesos a dólares
|
||||||
CveMonedaOC = 2
|
CveMonedaOC = 2
|
||||||
TCAjuste = TxtTCCambioMoneda.Text.ToDecimal
|
TCAjuste = TxtTCCambioMoneda.Text.ToDecimal
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Importe176, lblFolio.Text, 176, Concepto, Now, IdCtaContableOC, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=-Importe176, ImporteME:=-Importe176, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -Importe176, lblFolio.Text, 176, Concepto, Now, IdCtaContableOC, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=-Importe176, ImporteME:=-Importe176, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then
|
||||||
ErrorPrepoliza = True
|
ErrorPrepoliza = True
|
||||||
Exit For
|
Exit For
|
||||||
Else
|
Else
|
||||||
Importe228 = (Importe176 / TCAjuste)
|
Dim TCAjustePU As Decimal = TCAjuste
|
||||||
|
If ConservaPU Then
|
||||||
|
TCAjustePU = 1
|
||||||
|
End If
|
||||||
|
|
||||||
|
Importe228 = (Importe176 / TCAjustePU)
|
||||||
Importe229 = (Importe228 * TCAjuste - Importe228).RoundSQL
|
Importe229 = (Importe228 * TCAjuste - Importe228).RoundSQL
|
||||||
Importe228 = Importe228.RoundSQL(3) ' se redondea a 3 digitos, por la conversion, y no afecta al CK de complementaria
|
Importe228 = Importe228.RoundSQL(3) ' se redondea a 3 digitos, por la conversion, y no afecta al CK de complementaria
|
||||||
Dim dift As Decimal = Importe176 - Importe228 - Importe229
|
Dim difcosto As Decimal = Importe176 - Importe228 - Importe229
|
||||||
If dift <> 0 Then Importe229 += dift
|
|
||||||
PU = Importe176PU / TCAjuste
|
|
||||||
|
|
||||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Importe228, lblFolio.Text, 228, Concepto, Now, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Importe228, ImporteME:=Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then
|
PU = Importe176PU
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Importe229, lblFolio.Text, 229, Concepto, Now, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Importe229, ImporteME:=Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then
|
If Not ConservaPU Then PU = Importe176PU / TCAjuste
|
||||||
|
|
||||||
|
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe228, lblFolio.Text, 228, Concepto, Now, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Importe228, ImporteME:=Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe229, lblFolio.Text, 229, Concepto, Now, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Importe229, ImporteME:=Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then
|
||||||
ErrorPrepoliza = True
|
ErrorPrepoliza = True
|
||||||
Exit For
|
Exit For
|
||||||
Else
|
Else
|
||||||
|
If difcosto <> 0 Then
|
||||||
|
Dim tcveSub As Integer = DtDetalle.MAX("CveSubProyecto").ToEntero
|
||||||
|
Dim tcveClasif As Integer = DtDetalle.MAX("CveClasificacion").ToEntero
|
||||||
|
Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {tcveClasif}").ToString.ToEntero
|
||||||
|
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, difcosto, lblFolio.Text, 69, Concepto, Now, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=difcosto, ImporteME:=difcosto, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveSubProyecto:=tcveSub, CveClasificacion:=tcveClasif, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
If Not ObjOC.UpdateOrdenCompraDetalleAjuste(CveOrdenCompra, gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, PU, UsuarioActual.CveUsuario) Then
|
If Not ObjOC.UpdateOrdenCompraDetalleAjuste(CveOrdenCompra, gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, PU, UsuarioActual.CveUsuario) Then
|
||||||
Retorno = False
|
Retorno = False
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
ErrorPrepoliza = True
|
ErrorPrepoliza = True
|
||||||
|
|||||||
@@ -1609,7 +1609,7 @@ Partial Class RH_Personal
|
|||||||
CargaUniformesPersonal()
|
CargaUniformesPersonal()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154) Then
|
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140) Then
|
||||||
|
|
||||||
LnkSurtir.Visible = True
|
LnkSurtir.Visible = True
|
||||||
DdlUniforme.Visible = False
|
DdlUniforme.Visible = False
|
||||||
@@ -5542,7 +5542,7 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
Private Sub CargaUniformesPersonal()
|
Private Sub CargaUniformesPersonal()
|
||||||
|
|
||||||
If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154) Then
|
If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140) Then
|
||||||
|
|
||||||
GvUniforme.Visible = True
|
GvUniforme.Visible = True
|
||||||
GvUniformesResguardo.Visible = False
|
GvUniformesResguardo.Visible = False
|
||||||
|
|||||||
@@ -10233,7 +10233,9 @@ Partial Class Clientes
|
|||||||
If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
|
If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
|
||||||
DivRazonSocial2.Attributes.Add("class", "col-md-8")
|
DivRazonSocial2.Attributes.Add("class", "col-md-8")
|
||||||
DVRegimenSociedad.Visible = True
|
DVRegimenSociedad.Visible = True
|
||||||
|
TxtNombreComercial.Enabled = False
|
||||||
|
Else
|
||||||
|
TxtNombreComercial.Enabled = True
|
||||||
End If
|
End If
|
||||||
DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
|
DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
|
||||||
DdlRegimenFiscal.DataBind()
|
DdlRegimenFiscal.DataBind()
|
||||||
|
|||||||
@@ -1089,17 +1089,21 @@ Partial Class Ventas_ClientesAbonar
|
|||||||
|
|
||||||
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
|
||||||
If IdCtaContRetIVA <> 0 Then
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
IdCtaContable = IdCtaContRetIVA
|
'Conta ContPAQ
|
||||||
Else
|
If IdCtaContRetIVA <> 0 Then
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
IdCtaContable = IdCtaContRetIVA
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
Else
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Case 313 'Ret Iva Servicios
|
Case 313 'Ret Iva Servicios
|
||||||
If EsAnticipoEspecial Then Exit Select
|
If EsAnticipoEspecial Then Exit Select
|
||||||
If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then
|
If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then
|
||||||
@@ -1112,7 +1116,7 @@ Partial Class Ventas_ClientesAbonar
|
|||||||
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'OBTENER CUENTAS
|
'OBTENER CUENTAS
|
||||||
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
'Conta ContPAQ
|
'Conta ContPAQ
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||||
@@ -1132,18 +1136,22 @@ Partial Class Ventas_ClientesAbonar
|
|||||||
|
|
||||||
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
|
||||||
If IdCtaContRetISR <> 0 Then
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
IdCtaContable = IdCtaContRetISR
|
'Conta ContPAQ
|
||||||
Else
|
If IdCtaContRetISR <> 0 Then
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
IdCtaContable = IdCtaContRetISR
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
Else
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
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
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Case 13 'Iva por Trasladar
|
Case 13 'Iva por Trasladar
|
||||||
If EsAnticipoEspecial Then Exit Select
|
If EsAnticipoEspecial Then Exit Select
|
||||||
|
|
||||||
@@ -1174,16 +1182,19 @@ Partial Class Ventas_ClientesAbonar
|
|||||||
|
|
||||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetIVA <> 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetIVA
|
If IdCtaContRetIVA <> 0 Then
|
||||||
Else
|
IdCtaContable = IdCtaContRetIVA
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Case 314 'Ret Iva Servicios Traslado
|
Case 314 'Ret Iva Servicios Traslado
|
||||||
If EsAnticipoEspecial Then Exit Select
|
If EsAnticipoEspecial Then Exit Select
|
||||||
If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then
|
If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then
|
||||||
@@ -1196,7 +1207,7 @@ Partial Class Ventas_ClientesAbonar
|
|||||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'OBTENER CUENTAS
|
'OBTENER CUENTAS
|
||||||
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
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
'Conta ContPAQ
|
'Conta ContPAQ
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||||
@@ -1214,18 +1225,21 @@ Partial Class Ventas_ClientesAbonar
|
|||||||
|
|
||||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
'Conta ContPAQ
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||||
If IdCtaContRetISR <> 0 Then
|
'Conta ContPAQ
|
||||||
IdCtaContable = IdCtaContRetISR
|
If IdCtaContRetISR <> 0 Then
|
||||||
Else
|
IdCtaContable = IdCtaContRetISR
|
||||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
Else
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Case 61 'Iva Trasladado
|
Case 61 'Iva Trasladado
|
||||||
If EsAnticipoEspecial Then Exit Select
|
If EsAnticipoEspecial Then Exit Select
|
||||||
|
|
||||||
@@ -1557,7 +1571,7 @@ Partial Class Ventas_ClientesAbonar
|
|||||||
Dim ErrorAC As Boolean = False
|
Dim ErrorAC As Boolean = False
|
||||||
|
|
||||||
If MsgError = "" Then
|
If MsgError = "" Then
|
||||||
If UsuarioActual.Empresa.UsaAC Then
|
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
|
||||||
Dim Fecha As Date = TxtFechaDocumento.Text.Trim.ToDate
|
Dim Fecha As Date = TxtFechaDocumento.Text.Trim.ToDate
|
||||||
ObjConta = New ClsContPAQi(UsuarioActual.Empresa)
|
ObjConta = New ClsContPAQi(UsuarioActual.Empresa)
|
||||||
ObjConta.IniciaTransacSQL()
|
ObjConta.IniciaTransacSQL()
|
||||||
|
|||||||
@@ -352,6 +352,7 @@ Partial Class ProductosyServicios
|
|||||||
DivObjetoImpuesto.Visible = True
|
DivObjetoImpuesto.Visible = True
|
||||||
DdlObjetoImpuesto.DataSource = GlobalDTSATObjetosImpuestos
|
DdlObjetoImpuesto.DataSource = GlobalDTSATObjetosImpuestos
|
||||||
DdlObjetoImpuesto.DataBind()
|
DdlObjetoImpuesto.DataBind()
|
||||||
|
DdlObjetoImpuesto.SelectedValue = "02" 'se sugiere este valor, que sería el más utilizado
|
||||||
End If
|
End If
|
||||||
|
|
||||||
CreaDtSeccionAlmacen()
|
CreaDtSeccionAlmacen()
|
||||||
|
|||||||
@@ -145,6 +145,16 @@
|
|||||||
<asp:DropDownList ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList>
|
<asp:DropDownList ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
<div class="row" id="divDistribuidor" runat="server" visible="false">
|
||||||
|
<label class="col-md-2 truncate">Distribuidor:</label>
|
||||||
|
<div class="col-md-4">
|
||||||
|
<asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||||
|
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Distribuidor" Value="1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="No Distribuidor" Value="0"></asp:ListItem>
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -156,6 +156,13 @@ Partial Class Ventas_Promociones
|
|||||||
DdlRin.Items.Insert(0, New ListItem("Todos", "-1"))
|
DdlRin.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
'' si es E acumuladora
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||||
|
divDistribuidor.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub CreaDT()
|
Private Sub CreaDT()
|
||||||
@@ -514,7 +521,7 @@ Partial Class Ventas_Promociones
|
|||||||
ObjVentas.IniciaTransacSQL()
|
ObjVentas.IniciaTransacSQL()
|
||||||
CvePromocion = ObjVentas.AddPromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha),
|
CvePromocion = ObjVentas.AddPromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha),
|
||||||
DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
|
DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
|
||||||
UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SelectedValue.ToString, DdlMarca.SelectedValue.ToEntero)
|
UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SelectedValue.ToString, DdlMarca.SelectedValue.ToEntero, DdlDistribuidor.SelectedValue.ToEntero)
|
||||||
|
|
||||||
If CvePromocion > 0 Then
|
If CvePromocion > 0 Then
|
||||||
For Each Dr As DataRow In TempDT.Rows
|
For Each Dr As DataRow In TempDT.Rows
|
||||||
@@ -552,7 +559,7 @@ Partial Class Ventas_Promociones
|
|||||||
|
|
||||||
If ObjVentas.UpdatePromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha),
|
If ObjVentas.UpdatePromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha),
|
||||||
DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
|
DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
|
||||||
CvePromocion, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SELECTEDVALUE.TOENTERO, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero) Then
|
CvePromocion, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero, DdlDistribuidor.SelectedValue.ToEntero) Then
|
||||||
|
|
||||||
For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows
|
For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows
|
||||||
If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
|
If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
|
||||||
|
|||||||
@@ -282,7 +282,9 @@
|
|||||||
<asp:LinkButton ID="LkbRetiro" runat="server" OnClick="LkbRetiro_Click" Visible="false"> <i class="fa fa-ad-excel"></i> Retiro de Efectivo</asp:LinkButton>
|
<asp:LinkButton ID="LkbRetiro" runat="server" OnClick="LkbRetiro_Click" Visible="false"> <i class="fa fa-ad-excel"></i> Retiro de Efectivo</asp:LinkButton>
|
||||||
</li>
|
</li>
|
||||||
|
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkUUIDRelacionados" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i> UUID Relacionados" OnClick="LnkUUIDRelacionados_Click" Visible="false" />
|
||||||
|
</li>
|
||||||
<li>
|
<li>
|
||||||
<asp:LinkButton ID="LBCancelarPedido" runat="server" CausesValidation="False" CommandName="Delete" Text="<i class='fa fa-ban'></i> Cancelar Pedido" OnClick="LBCancelarPedido_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Estás seguro que deseas cancelar el Pedido?" data-btn-ok-label="si" Visible="false" />
|
<asp:LinkButton ID="LBCancelarPedido" runat="server" CausesValidation="False" CommandName="Delete" Text="<i class='fa fa-ban'></i> Cancelar Pedido" OnClick="LBCancelarPedido_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Estás seguro que deseas cancelar el Pedido?" data-btn-ok-label="si" Visible="false" />
|
||||||
</li>
|
</li>
|
||||||
|
|||||||
@@ -4975,6 +4975,9 @@ Partial Class Ventas
|
|||||||
If (UsuarioActual.TienePermisoProceso(166) Or UsuarioActual.CveRol = 1) AndAlso (LblFolioFiscal.Text = "" Or LblFolioFiscal.Text = "test") Then
|
If (UsuarioActual.TienePermisoProceso(166) Or UsuarioActual.CveRol = 1) AndAlso (LblFolioFiscal.Text = "" Or LblFolioFiscal.Text = "test") Then
|
||||||
LkEliminarFactura.Visible = True
|
LkEliminarFactura.Visible = True
|
||||||
End If
|
End If
|
||||||
|
If (UsuarioActual.CveRol = 1) AndAlso (LblFolioFiscal.Text <> "") Then
|
||||||
|
LnkUUIDRelacionados.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
'Envio Direccion
|
'Envio Direccion
|
||||||
If DbRowVenta("CveDireccionEnvio").ToString().ToEntero() > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString() IsNot Nothing Then
|
If DbRowVenta("CveDireccionEnvio").ToString().ToEntero() > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString() IsNot Nothing Then
|
||||||
@@ -34786,5 +34789,58 @@ Partial Class Ventas
|
|||||||
UpAgregarMercancia.Update()
|
UpAgregarMercancia.Update()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub LnkUUIDRelacionados_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, LblRFC.Text, TxtTotal.Text, True)
|
||||||
|
Dim sb As New StringBuilder
|
||||||
|
|
||||||
|
sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
|
||||||
|
|
||||||
|
Dim Relacionados = Timbrado.ConsultarUUIDRelacionados(UsuarioActual.Empresa, FolioFiscal, UsuarioActual.Empresa.FacturaProduccion)
|
||||||
|
If Relacionados IsNot Nothing Then
|
||||||
|
Dim sbExtra As New StringBuilder()
|
||||||
|
If Relacionados.Codigo = 500 Then
|
||||||
|
sbExtra.Append("El servicio de verificación de documentos relacionados no esta disponible.")
|
||||||
|
Else
|
||||||
|
sbExtra.Append(Relacionados.Mensaje)
|
||||||
|
|
||||||
|
Dim SbHijos = New StringBuilder()
|
||||||
|
Dim SbPadres = New StringBuilder()
|
||||||
|
|
||||||
|
If Relacionados.RelacionadosPadre IsNot Nothing Then
|
||||||
|
For Each padre In Relacionados.RelacionadosPadre
|
||||||
|
SbPadres.AppendFormat("{0};", padre.Uuid)
|
||||||
|
Next
|
||||||
|
If SbPadres.Length > 0 Then
|
||||||
|
SbPadres.Remove(SbPadres.Length - 1, 1)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Using ObjVentas As New ClsVentas
|
||||||
|
|
||||||
|
If SbPadres.Length > 0 Then
|
||||||
|
If ObjVentas.GetFacturasRelacionadasPorFolioFiscal(SbPadres.ToString(), UsuarioActual.CveEmpresa) Then
|
||||||
|
Dim dtt As DataTable = ObjVentas.DtResultados.FiltraParametros($"CveVenta <> {CveVenta}")
|
||||||
|
|
||||||
|
For Each dr As DataRow In dtt.Rows
|
||||||
|
sb.AppendFormat("{0}-{1}-{2}<br/>", dr("TipoDocto"), dr("SerieFolio"), dr("FolioFiscal"))
|
||||||
|
Next
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Using
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
If sbExtra.Length > 0 Then
|
||||||
|
LbExtraRefacturacion.Text = $"<br><b>*{sbExtra.ToString()}</b>"
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
Alert(sb.ToString(), TipoMensaje.MsgInformacion)
|
||||||
|
|
||||||
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user