diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb index db77a2884..da3261896 100644 --- a/App_Code/CalendarEvent.vb +++ b/App_Code/CalendarEvent.vb @@ -48,6 +48,8 @@ Public Class CalendarEvent Public Property CveVenta As Integer Public Property SerieFolioVenta As String Public Property CveActivoFijo As Integer + Public Property CveTipoAF As Integer + Public Property AFCodigo As String Public Property CveMovimiento As Integer Public Property MovimientoFolio As String @@ -58,5 +60,6 @@ Public Class CalendarEvent Public Property Anticipo As Double Public Property CantidadPasajeros As String Public Property NumeroContrato As String + Public Property Observaciones As String End Class diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 8f973e376..176ed8ac9 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1159,10 +1159,7 @@ Public Class ClsBancos End If End If Mensaje = ObjTimbrado.MensajeErrorCFDI - - GuardaLog(ObjTimbrado.MensajeErrorCFDI) Timbre = Nothing - Else GuardaLog(Mensaje) End If diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index a2491dbad..4a59454ca 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -1630,7 +1630,7 @@ Public Class ClsCompras #Region "N O T A S - C R E D I T O" - Public Function GetNotasCreditoRep(CveProveedor As Integer, Opcion As Integer, FechaI As String, FechaF As String, CveEmpresa As Integer, Optional TipoReporte As Integer = 1) As Boolean + Public Function GetNotasCreditoRep(CveProveedor As Integer, Opcion As Integer, FechaI As String, FechaF As String, CveEmpresa As Integer, Optional TipoReporte As Integer = 1, Optional CveComprasAmortizadas As String = "-1") As Boolean Dim Retorno As Boolean = False @@ -1643,6 +1643,8 @@ Public Class ClsCompras .Add("@FechaF", SqlDbType.VarChar).Value = FechaF .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@TipoReporte", SqlDbType.Int).Value = TipoReporte + .Add("@CveComprasAmortizadas", SqlDbType.VarChar).Value = CveComprasAmortizadas + End With @@ -1776,27 +1778,105 @@ Public Class ClsCompras End Function - Public Function AddFactura(Serie As String, Folio As String, FechaFactura As DateTime, NombreProveedor As String, RFCDe As String, SubTotal As Double, - IVA As Double, Total As Double, UUID As String, RFCPara As String, XML As String, PDF As String, - VersionCFD As String, Descuento As Double, Moneda As String, TipodeComprobante As String, TipoCambio As Double, FueValidado As Integer, - CveEmpresa As Integer, PreFijo As String) As Integer - Dim Retorno As Integer = -1 + Public Function AddBitacoraFactura(ByVal Serie As String, ByVal Folio As String, ByVal RFCDe As String, ByVal Observacion As String, ByVal Estatus As Integer, ByVal CveUsuario As Integer, ByVal CveEmpresa As Integer, ByVal Correo As String, ByVal Proveedor As String, ByVal Importe As Decimal, ByVal TipoDeComprobante As String) As Boolean - Dim StrSQL As StringBuilder = New StringBuilder() - StrSQL.Append(" BEGIN ") - StrSQL.Append(" DECLARE @tTotal INT; ") - StrSQL.Append(" ") - StrSQL.Append(" SELECT @tTotal = ISNULL(MAX(CveFactura),0) FROM Comp_Facturas WHERE UUID = @UUID;") - StrSQL.Append(" IF @tTotal = 0 ") - StrSQL.Append(" BEGIN ") - StrSQL.Append(" INSERT INTO Comp_Facturas (Serie, Folio, FechaFactura, NombreProveedor, RFCDe, Total, UUID, RFCPara, XML, PDF, FueValidado, CveEmpresa, TipoFactura,Version, TipoComprobante) ") - StrSQL.Append(" VALUES (@Serie, @Folio, @FechaFactura, @NombreProveedor, @RFCDe, @Total, @UUID, @RFCPara, @XML, @PDF, @FueValidado, @CveEmpresa, @PreFijo, @Version,@TipodeComprobante); ") - StrSQL.Append(" SET @Retorno = 1; ") - StrSQL.Append(" SET @CveFactura = SCOPE_IDENTITY(); ") - StrSQL.Append(" UPDATE Comp_Facturas SET XML = CONCAT(@CveFactura,'.xml'), PDF = CONCAT(@CveFactura ,'.pdf') WHERE CveFactura = @CveFactura; ") - StrSQL.Append(" END ") - StrSQL.Append(" ELSE BEGIN SET @CveFactura = @tTotal; END ") - StrSQL.Append(" END ") + Dim Retorno As Boolean = False + + + DataAdapter("PA_Comp_FacturasBitacoraAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@RFCDE", SqlDbType.VarChar).Value = If(RFCDe Is Nothing, "", RFCDe) + .Add("@Observacion", SqlDbType.VarChar).Value = Observacion + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Correo", SqlDbType.VarChar).Value = Correo + .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor + .Add("@Importe", SqlDbType.Decimal).Value = Importe + .Add("@TipoDeComprobante", SqlDbType.VarChar).Value = TipoDeComprobante + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al intentar Guardar la bitácora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + + + 'Public Function AddFactura(Serie As String, Folio As String, FechaFactura As DateTime, NombreProveedor As String, RFCDe As String, SubTotal As Double, + 'IVA As Double, Total As Double, UUID As String, RFCPara As String, XML As String, PDF As String, + 'VersionCFD As String, Descuento As Double, Moneda As String, TipodeComprobante As String, TipoCambio As Double, FueValidado As Integer, + 'CveEmpresa As Integer, PreFijo As String) As Integer + ' Dim Retorno As Integer = -1 + + ' Dim StrSQL As StringBuilder = New StringBuilder() + ' StrSQL.Append(" BEGIN ") + ' StrSQL.Append(" DECLARE @tTotal INT; ") + ' StrSQL.Append(" ") + ' StrSQL.Append(" SELECT @tTotal = ISNULL(MAX(CveFactura),0) FROM Comp_Facturas WHERE UUID = @UUID;") + ' StrSQL.Append(" IF @tTotal = 0 ") + ' StrSQL.Append(" BEGIN ") + ' StrSQL.Append(" INSERT INTO Comp_Facturas (Serie, Folio, FechaFactura, NombreProveedor, RFCDe, Total, UUID, RFCPara, XML, PDF, FueValidado, CveEmpresa, TipoFactura,Version, TipoComprobante,) ") + ' StrSQL.Append(" VALUES (@Serie, @Folio, @FechaFactura, @NombreProveedor, @RFCDe, @Total, @UUID, @RFCPara, @XML, @PDF, @FueValidado, @CveEmpresa, @PreFijo, @Version,@TipodeComprobante); ") + ' StrSQL.Append(" SET @Retorno = 1; ") + ' StrSQL.Append(" SET @CveFactura = SCOPE_IDENTITY(); ") + ' StrSQL.Append(" UPDATE Comp_Facturas SET XML = CONCAT(@CveFactura,'.xml'), PDF = CONCAT(@CveFactura ,'.pdf') WHERE CveFactura = @CveFactura; ") + ' StrSQL.Append(" END ") + ' StrSQL.Append(" ELSE BEGIN SET @CveFactura = @tTotal; END ") + ' StrSQL.Append(" END ") + + ' If PreFijo.ToLower() = "cfdi" Then + ' PreFijo = "CFDi" + ' ElseIf PreFijo.ToLower() = "cfd" Then + ' PreFijo = "CFD" + ' End If + + ' DataAdapter(StrSQL.ToString(), CommandType.Text) + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@Serie", SqlDbType.VarChar).Value = Serie + ' .Add("@Folio", SqlDbType.VarChar).Value = Folio + ' .Add("@FechaFactura", SqlDbType.[Date]).Value = FechaFactura + ' .Add("@NombreProveedor", SqlDbType.VarChar).Value = NombreProveedor + ' .Add("@RFCDe", SqlDbType.VarChar).Value = RFCDe + ' .Add("@Total", SqlDbType.Money).Value = Total + ' .Add("@UUID", SqlDbType.VarChar).Value = UUID + ' .Add("@RFCPara", SqlDbType.VarChar).Value = RFCPara + ' .Add("@XML", SqlDbType.VarChar).Value = XML + ' .Add("@PDF", SqlDbType.VarChar).Value = PDF + ' .Add("@Version", SqlDbType.VarChar).Value = VersionCFD + ' .Add("@FueValidado", SqlDbType.Int).Value = FueValidado + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' .Add("@PreFijo", SqlDbType.VarChar).Value = PreFijo + ' .Add("@TipodeComprobante", SqlDbType.VarChar).Value = TipodeComprobante.ToUpper + ' .Add("@CveFactura", SqlDbType.Int).Direction = ParameterDirection.Output + ' .Add("@Retorno", SqlDbType.Int).Direction = ParameterDirection.Output + ' End With + + + ' Try + ' SqlAdapter.Fill(Data) + + ' Retorno = SqlAdapter.SelectCommand.Parameters("@Retorno").Value.ToString().ToEntero() + + ' CveFactura = SqlAdapter.SelectCommand.Parameters("@CveFactura").Value.ToString().ToEntero() + ' Catch ex As Exception + ' ModExtensiones.OnError(Me, "Ocurrió un error al intentar Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + 'End Function + + + Public Function AddFactura(Serie As String, Folio As String, FechaFactura As DateTime, NombreProveedor As String, RFCDe As String, SubTotal As Decimal, IVA As Decimal, Total As Decimal, UUID As String, RFCPara As String, XML As String, PDF As String, VersionCFD As String, Descuento As Decimal, TipoCambio As Decimal, FueValidado As Integer, CveEmpresa As Integer, PreFijo As String, TipoComprobante As String, MONEDA As String, METODODEPAGO As String, Optional TipoRecepcion As Integer = 0, Optional Version As String = "3.3", Optional IEPS As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0) As Integer + Dim Retorno As Integer = -1 If PreFijo.ToLower() = "cfdi" Then PreFijo = "CFDi" @@ -1804,40 +1884,50 @@ Public Class ClsCompras PreFijo = "CFD" End If - DataAdapter(StrSQL.ToString(), CommandType.Text) - With SqlAdapter.SelectCommand.Parameters - .Add("@Serie", SqlDbType.VarChar).Value = Serie - .Add("@Folio", SqlDbType.VarChar).Value = Folio - .Add("@FechaFactura", SqlDbType.[Date]).Value = FechaFactura - .Add("@NombreProveedor", SqlDbType.VarChar).Value = NombreProveedor - .Add("@RFCDe", SqlDbType.VarChar).Value = RFCDe - .Add("@Total", SqlDbType.Money).Value = Total - .Add("@UUID", SqlDbType.VarChar).Value = UUID - .Add("@RFCPara", SqlDbType.VarChar).Value = RFCPara - .Add("@XML", SqlDbType.VarChar).Value = XML - .Add("@PDF", SqlDbType.VarChar).Value = PDF - .Add("@Version", SqlDbType.VarChar).Value = VersionCFD - .Add("@FueValidado", SqlDbType.Int).Value = FueValidado - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@PreFijo", SqlDbType.VarChar).Value = PreFijo - .Add("@TipodeComprobante", SqlDbType.VarChar).Value = TipodeComprobante.ToUpper - .Add("@CveFactura", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@Retorno", SqlDbType.Int).Direction = ParameterDirection.Output - End With + DataAdapter("PA_eFacturas_FacturasAdd", CommandType.StoredProcedure) + SqlAdapter.SelectCommand.Parameters.Add("@Serie", SqlDbType.VarChar).Value = Serie + SqlAdapter.SelectCommand.Parameters.Add("@Folio", SqlDbType.VarChar).Value = Folio + SqlAdapter.SelectCommand.Parameters.Add("@FechaFactura", SqlDbType.Date).Value = FechaFactura + SqlAdapter.SelectCommand.Parameters.Add("@NombreProveedor", SqlDbType.VarChar).Value = NombreProveedor + SqlAdapter.SelectCommand.Parameters.Add("@RFCDe", SqlDbType.VarChar).Value = RFCDe + SqlAdapter.SelectCommand.Parameters.Add("@TipoComprobante", SqlDbType.VarChar).Value = TipoComprobante + SqlAdapter.SelectCommand.Parameters.Add("@Total", SqlDbType.Money).Value = Total + SqlAdapter.SelectCommand.Parameters.Add("@UUID", SqlDbType.VarChar).Value = UUID + SqlAdapter.SelectCommand.Parameters.Add("@RFCPara", SqlDbType.VarChar).Value = RFCPara + SqlAdapter.SelectCommand.Parameters.Add("@XML", SqlDbType.VarChar).Value = XML + SqlAdapter.SelectCommand.Parameters.Add("@PDF", SqlDbType.VarChar).Value = PDF + SqlAdapter.SelectCommand.Parameters.Add("@Version", SqlDbType.VarChar).Value = VersionCFD + SqlAdapter.SelectCommand.Parameters.Add("@FueValidado", SqlDbType.Int).Value = FueValidado + SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + SqlAdapter.SelectCommand.Parameters.Add("@PreFijo", SqlDbType.VarChar).Value = PreFijo + SqlAdapter.SelectCommand.Parameters.Add("@TipoRecepcion", SqlDbType.Int).Value = TipoRecepcion + SqlAdapter.SelectCommand.Parameters.Add("@CveFactura", SqlDbType.Int).Direction = ParameterDirection.Output + SqlAdapter.SelectCommand.Parameters.Add("@Retorno", SqlDbType.Int).Direction = ParameterDirection.Output + SqlAdapter.SelectCommand.Parameters.Add("@MONEDA", SqlDbType.VarChar).Value = MONEDA + SqlAdapter.SelectCommand.Parameters.Add("@METODODEPAGO", SqlDbType.VarChar).Value = METODODEPAGO + + SqlAdapter.SelectCommand.Parameters.Add("@TipoCambio", SqlDbType.SmallMoney).Value = TipoCambio + SqlAdapter.SelectCommand.Parameters.Add("@SubTotal", SqlDbType.Money).Value = SubTotal + SqlAdapter.SelectCommand.Parameters.Add("@IVA", SqlDbType.Money).Value = IVA + SqlAdapter.SelectCommand.Parameters.Add("@IEPS", SqlDbType.Money).Value = IEPS + SqlAdapter.SelectCommand.Parameters.Add("@RetIVA", SqlDbType.Money).Value = RetIVA + SqlAdapter.SelectCommand.Parameters.Add("@RetISR", SqlDbType.Money).Value = RetISR + SqlAdapter.SelectCommand.Parameters.Add("@Descuento", SqlDbType.Money).Value = Descuento Try SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@Retorno").Value.ToString().ToEntero() + Retorno = Convert.ToInt32(SqlAdapter.SelectCommand.Parameters("@Retorno").Value) + CveFactura = Convert.ToInt32(SqlAdapter.SelectCommand.Parameters("@CveFactura").Value) - CveFactura = SqlAdapter.SelectCommand.Parameters("@CveFactura").Value.ToString().ToEntero() Catch ex As Exception ModExtensiones.OnError(Me, "Ocurrió un error al intentar Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno End Function + Public Function UpdateArchivo(CveFactura As Integer, Columna As String) As Boolean Dim Retorno As Boolean = False Dim Str As String = "" @@ -1851,9 +1941,12 @@ Public Class ClsCompras DataAdapter(Str, CommandType.Text) Try SqlAdapter.Fill(Data) + + SqlAdapter.SelectCommand.Parameters.Add("@CveFactura", SqlDbType.Int).Value = CveFactura + Retorno = True Catch ex As Exception - ModExtensiones.OnError(Me, "Ocurrió un error al agregar el Tipo de Cambio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ModExtensiones.OnError(Me, "Ocurrió un error al actualizar la factura", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno End Function diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 12007823c..1964dcf3a 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6330,6 +6330,71 @@ Public Class ClsContabilidad Return Retorno End Function + +#End Region + +#Region "B L O Q U E O -- D I A R I O" + Public Function GetBloqueoDiario(CveBloqueoDiario As Integer, FechaI As DateTime, FechaF As DateTime, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Conta_BloqueoDiarioGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveBloqueoDiario", SqlDbType.Int).Value = CveBloqueoDiario + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener el periodo de bloqueo diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddUpdateBloqueoDiario(CveBloqueoDiario As Integer, Fecha As DateTime, Bloqueado As Boolean, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Conta_BloqueoDiarioAddUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveBloqueoDiario", SqlDbType.Int).Value = CveBloqueoDiario + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@Bloqueado", SqlDbType.Bit).Value = Bloqueado + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al actulizar el periodo de bloqueo diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function RemoveBloqueoDiario(CveBloqueoDiario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Conta_BloqueoDiarioRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveBloqueoDiario", SqlDbType.Int).Value = CveBloqueoDiario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar el periodo de bloqueo diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + #End Region #Region "ESTADO RESULTADOS HORIZONTAL" @@ -6455,6 +6520,35 @@ Public Class ClsContabilidad Return Retorno End Function + + Public Function GetEstadosProyectoHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1, Optional VistaPorcentaje As Integer = 1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Conta_EstadoResultadosProyectoHorizontal") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@Divisor", SqlDbType.Int).Value = Divisor + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@VistaPorcentaje", SqlDbType.Int).Value = VistaPorcentaje + End With + + SqlAdapter.SelectCommand.CommandTimeout = 0 + + Try + SqlAdapter.Fill(DSet) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener el Estado de resultados Proyectos horizontal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + #End Region Public Function UpdateTraspasoPrepoliza(CveEmpresa As Integer, CveCuenta As Integer, CveCuentaNueva As Integer) As Boolean diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 4ebbbfb54..f3365603a 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4988,7 +4988,7 @@ Public Class ClsPaginas ObjUsuario.Dispose() Return Retorno End Function - Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing, Optional divProyecto As HtmlControl = Nothing) + Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing, Optional divProyecto As HtmlControl = Nothing, Optional VisualizacionReporte As Integer = -1) Select Case UsuarioActual.Empresa.Tipo_CentroCosto Case 1 @@ -5001,6 +5001,14 @@ Public Class ClsPaginas If LblProyecto IsNot Nothing Then LblProyecto.Visible = False If divProyecto IsNot Nothing Then divProyecto.Visible = False If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" + If VisualizacionReporte = 1 Then + If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then + If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = True + If LblProyecto IsNot Nothing Then LblProyecto.Visible = True + If divProyecto IsNot Nothing Then divProyecto.Visible = True + If LblProyecto IsNot Nothing Then LblProyecto.Text = UsuarioActual.Empresa.Funcionalidad(307) + End If + End If Case 3 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False If LblProyecto IsNot Nothing Then LblProyecto.Visible = False @@ -6175,7 +6183,9 @@ Public Class ClsPaginas namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte") namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20") namespaces.AddNamespace("cartaporte30", "http://www.sat.gob.mx/CartaPorte30") + namespaces.AddNamespace("cartaporte31", "http://www.sat.gob.mx/CartaPorte31") + Dim Nodos31 As XmlNode = XMLDoc.SelectSingleNode("//cartaporte31:CartaPorte", namespaces) Dim Nodos30 As XmlNode = XMLDoc.SelectSingleNode("//cartaporte30:CartaPorte", namespaces) Dim Nodos20 As XmlNode = XMLDoc.SelectSingleNode("//cartaporte20:CartaPorte", namespaces) @@ -6189,6 +6199,11 @@ Public Class ClsPaginas PrefijoCCP = "cartaporte20" End If + If Nodos31 IsNot Nothing Then + VersionCCP = "3.1" + PrefijoCCP = "cartaporte31" + End If + params.Add(New ReportParameter("CartaPorteVersion", VersionCCP)) Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces) @@ -7761,7 +7776,7 @@ Public Class ClsPaginas If CveSubProyectoEntrega > 0 Then - Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(-1, CveSubProyectoEntrega) + Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(-1, CveSubProyectoEntrega, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("SubProyectoEntrega", DTSubProyectoEntrega(0)("SubProyecto").ToString)) @@ -10123,6 +10138,7 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad/CatContaEjercicios.aspx".ToUpper(), 725) PaginaDict.Add("/Contabilidad/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420) PaginaDict.Add("/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx".ToUpper(), -1) + PaginaDict.Add("/Contabilidad/CatBloqueoDiario.aspx".ToUpper(), 680) #End Region #Region "Contratos" '--------------------- C O N T R A T O S - P R E S U P U E S T O S --------------------- @@ -10672,8 +10688,8 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/RepCotizaciones.aspx".ToUpper(), 430) PaginaDict.Add("/Ventas/RepCotizacionesDetalle.aspx".ToUpper(), 430) PaginaDict.Add("/Ventas/RepVentasPV.aspx".ToUpper(), 9) - PaginaDict.Add("/Ventas/RepVentaDetalle.aspx".ToUpper(), 9) - PaginaDict.Add("/Ventas/RepVentaDetalle.aspx?Menu=1".ToUpper(), 785) + PaginaDict.Add("/Ventas/RepVentasDetalle.aspx".ToUpper(), 9) + PaginaDict.Add("/Ventas/RepVentasDetalle.aspx?Menu=1".ToUpper(), 785) PaginaDict.Add("/Ventas/CatClasificaciones.aspx".ToUpper(), 12) PaginaDict.Add("/Ventas/CatClasificaciones2.aspx".ToUpper(), 396) PaginaDict.Add("/Ventas/CatClasificacionesDetalle.aspx".ToUpper(), 12) @@ -10767,7 +10783,7 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/FacturacionGlobal.aspx".ToUpper(), 546) PaginaDict.Add("/Ventas/RepComisionesSMS.aspx".ToUpper(), 1347) PaginaDict.Add("/Ventas/RepVencimientosCredito.aspx".ToUpper(), 146) - + PaginaDict.Add("/Ventas/CatMotivosDevoluciones.aspx".ToUpper(), 786) #End Region @@ -10931,3 +10947,4 @@ Public Class ClsPaginas #End Region End Class + diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 7d26e4509..4323620af 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -454,7 +454,7 @@ Public Class ClsVentas Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "", Optional Adjunto As String = "-1", Optional DevolucionImportePagado As Decimal = 0, Optional EsGarantia As Boolean = False, Optional CveLineaAdicional As Integer = -1, Optional DescripcionVenta As String = "", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveTipoVenta As Integer = -1, Optional RequiereOS As Boolean = False, - Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional EsFacturaGlobal As Boolean = False, Optional CveSATPeriodicidad As Integer = -1, Optional CveSATMes As Integer = -1, Optional SATAnio As Integer = -1) As Boolean + Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional EsFacturaGlobal As Boolean = False, Optional CveSATPeriodicidad As Integer = -1, Optional CveSATMes As Integer = -1, Optional SATAnio As Integer = -1, Optional CveMotivoDevolucion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasAdd") @@ -568,6 +568,7 @@ Public Class ClsVentas .Add("@CveSATMes", SqlDbType.Int).Value = CveSATMes .Add("@SATAnio", SqlDbType.Int).Value = SATAnio .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue + .Add("@CveMotivoDevolucion", SqlDbType.Int).Value = CveMotivoDevolucion End With 'SqlTypes.SqlDateTime.Null Try @@ -2757,6 +2758,87 @@ Public Class ClsVentas +#End Region + +#Region " M O T I V O S -- D E V O L U C I O N" + + Public Function AddMotivoDevolucion(Motivo As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasMotivosDevolucionAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Motivo", SqlDbType.VarChar).Value = Motivo + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al tratar de agregar el motivo de devolucion. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + + Public Function UpdateMotivoDevolucion(CveMotivoDevolucion As Integer, Motivo As String, Estatus As Boolean, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasMotivosDevolucionUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMotivoDevolucion", SqlDbType.Int).Value = CveMotivoDevolucion + .Add("@Motivo", SqlDbType.VarChar).Value = Motivo + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al tratar de actualizar el motivo de devolución. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function GetMotivoDevolucion(CveMotivoDevolucion As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasMotivosDevolucionGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMotivoDevolucion", SqlDbType.Int).Value = CveMotivoDevolucion + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al tratar de obtener el motivo de devolución. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function RemoveMotivoDevolucion(CveMotivoDevolucion As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasMotivosDevolucionRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMotivoDevolucion", SqlDbType.Int).Value = CveMotivoDevolucion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al tratar de obtener el motivo de devolución. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function #End Region Public Function GetPrecios(CveClasificacion As Integer, CvePS As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 087ed3309..3084bd295 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -895,10 +895,10 @@ Public Class Timbrado Equivalencia = 1 'condiciones especiales para el pago en pesos, facturas en moneda extranjera ElseIf MonedaPago = "MXN" AndAlso VentaAbreviaturaSAT <> "MXN" Then - VentaTipoCambio = Math.Round(VentaTipoCambio, 6) + VentaTipoCambio = Math.Round(VentaTipoCambio, 10) Equivalencia = Math.Round((1 / VentaTipoCambio), 10) ElseIf MonedaPago = "USD" AndAlso VentaAbreviaturaSAT <> "USD" Then - VentaTipoCambio = Math.Round(VentaTipoCambio, 6) + VentaTipoCambio = Math.Round(VentaTipoCambio, 10) Equivalencia = VentaTipoCambio End If @@ -924,8 +924,8 @@ Public Class Timbrado .TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal, .Impuesto = drp("TipoImpuesto").ToString, .Importe = drp("Importe").ToString().ToDecimal.RoundSQL, - .BaseMN = (drp("Base").ToString.ToDecimal / Equivalencia).RoundSQL(6), - .ImporteMN = (drp("Importe").ToString.ToDecimal / Equivalencia).RoundSQL(6) + .BaseMN = (drp("Base").ToString.ToDecimal / Equivalencia).RoundSQL(2), + .ImporteMN = (drp("Importe").ToString.ToDecimal / Equivalencia).RoundSQL(2) } ) @@ -1050,7 +1050,7 @@ Public Class Timbrado If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) - If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then + If Not ClsPaginas.EsProduccion AndAlso (Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then AmbienteProductivo = False Clave = "12345678a" EmisorRFC = "EKU9003173C9" @@ -2553,30 +2553,29 @@ concep.DescripcionesEspecificas.NumeroSerie) Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte ''DATOS GENERALES - cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, Carta.PaisOrigenDestino, Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) - + cfdi.CartaPorte31("", Carta.TranspInternac, Carta.EntradaSalidaMercancia, Carta.PaisOrigenDestino, Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) 'UBICACIONES If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then - For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones - 'origen - cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) - 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) - cfdi.CartaPorte30Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) - Next - End If + For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones + 'origen + cfdi.CartaPorte31Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) + cfdi.CartaPorte31Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) + Next + End If 'MERCANCIAS If Carta.Mercancias IsNot Nothing Then - cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion) + cfdi.CartaPorte31Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion) If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias If concep.ValorMercancia <= 0 Then concep.Moneda = "" - cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), + cfdi.CartaPorte31Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, If(Carta.TranspInternac <> "No", concep.PermisoImportacion, ""), If(Carta.TranspInternac <> "No", concep.FolioImpoVUCEM, ""), concep.NumCAS, If(Carta.TranspInternac <> "No", concep.RazonSocialEmpImp, ""), concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt, concep.TipoMateria, If(concep.TipoMateria = "05", concep.TipoMateriaDescripcion, "")) For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta - cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) + cfdi.CartaPorte31CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) Next Next End If @@ -2586,40 +2585,38 @@ concep.DescripcionesEspecificas.NumeroSerie) If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then - cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) + cfdi.CartaPorte31Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) - cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) + cfdi.CartaPorte31IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) If Carta.Mercancias.Mercancias.Max(Function(x) x.MaterialPeligroso) = "" Then 'si no hay material peligro se limpian los valores Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente = "" Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente = "" End If - cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, + cfdi.CartaPorte31Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PrimaSeguro) If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques - cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa) + cfdi.CartaPorte31Remolque(concep.SubTipoRemolque, concep.Placa) Next End If End If If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores - cfdi.CartaPorte30TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) + cfdi.CartaPorte31TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador - cfdi.CartaPorte30PartesTransporte("PT01") - cfdi.CartaPorte30PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) + cfdi.CartaPorte31PartesTransporte("PT01") + cfdi.CartaPorte31PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) End If Next End If End If End If - - #End Region #Region "C O M P L E M E N T O D E P A G O" @@ -2868,8 +2865,7 @@ concep.DescripcionesEspecificas.NumeroSerie) UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL" - If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then - + If Not ClsPaginas.EsProduccion AndAlso (Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then EmisorRFC = "EKU9003173C9" UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key" @@ -3098,9 +3094,7 @@ concep.DescripcionesEspecificas.NumeroSerie) Dim TimbraProduccion As Boolean = True If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) - - If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then - + If Not ClsPaginas.EsProduccion AndAlso (Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then EmisorRFC = "EKU9003173C9" UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key" diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index e3cf0a3af..10d354956 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -450,8 +450,8 @@ Namespace Extensiones ToastInformacion = 5 'succes ToastInformacionB = 6 'info ToastError = 7 'error - ToastAdventencia = 8 'Warning - + ToastAdventencia = 8 'Warning + End Enum Public Sub Alert(Obj As Object, Mensaje As String, pOpcion As TipoMensaje, Optional JSBtnAceptar As String = "", Optional TextoConfirmacion As String = "Aceptar", Optional TextoCancelacion As String = "Cancelar", Optional TimeoutToast As Integer = 5, Optional ShowCloseButton As Boolean = True, Optional TextoSegundoBoton As String = "", Optional JSBtn2 As String = "") @@ -622,6 +622,45 @@ Namespace Extensiones Return String.Format("
  • {0}{3}
    • ", Time, Tipo, Ico, Mensaje, Link, If(tonewpage, "target=""_blank""", "")) End Function + Public Function EnviarNotificacionWhatsApp(NumeroTelefono As String, Mensaje As String) As Boolean + Dim RetornoObj As String = "{}" + Dim Retorno As Boolean = False + Try + Dim TokenAutorizacion As String = "Bearer EAAVcZB36KfEEBO0OlN5ZAUPhNAUZCsHuMbpeVrrxZCJZAacLgBMOXXXcyA6aLEbbANMjbeTuJbsZC4IAvsZBwEALCYqc7oZCrnHF67sc0RYMBru9R0YKBFhi8gFjZAhJgoCJauBdZA30R9YPXZA2ZByQZAKclRCL20VLu74HEtw3YKu1MiG1vEsZANWJZAHhcJCUANUs3zIMFvoC6dBoJgQsABEZAYYZD" + Using httpClient = New HttpClient() + Using request = New HttpRequestMessage(HttpMethod.Post, New Uri("https://graph.facebook.com/v20.0/263533173499868/messages")) + + request.Headers.Add("Authorization", TokenAutorizacion) + Dim json = New Newtonsoft.Json.Linq.JObject() + json.Add(New Newtonsoft.Json.Linq.JProperty("messaging_product", "whatsapp")) + json.Add(New Newtonsoft.Json.Linq.JProperty("to", NumeroTelefono)) + json.Add(New Newtonsoft.Json.Linq.JProperty("type", "text")) + Dim msgtexto As New Newtonsoft.Json.Linq.JObject( + New Newtonsoft.Json.Linq.JProperty("preview_url", "true"), + New Newtonsoft.Json.Linq.JProperty("body", Mensaje.Replace("
    ", "\n")) + ) + json.Add(New Newtonsoft.Json.Linq.JProperty("text", msgtexto)) + + Using content = New StringContent(json.ToString, Encoding.UTF8, "application/json") + request.Content = content + Dim response = httpClient.SendAsync(request, HttpCompletionOption.ResponseHeadersRead).Result + + If response.StatusCode = Net.HttpStatusCode.OK Then + RetornoObj = response.Content.ReadAsStringAsync().Result + Retorno = True + End If + End Using + + End Using + + End Using + Catch ex As Exception + RetornoObj = New Newtonsoft.Json.Linq.JObject(New Newtonsoft.Json.Linq.JProperty("Error", ex.ToString())).ToString() + GuardaLog("Ocurrió un error al enviar la informacion por whatsapp" & ex.Message) + End Try + Return Retorno + End Function + #End Region #Region "files dropzone" @@ -1978,6 +2017,12 @@ Namespace Extensiones End Sub + + Public Function CopyToDataTable(Of T)(ByVal source As IEnumerable(Of T), ByVal flag As Boolean) As DataTable + Return New ObjectShredder(Of T)().Shred(source, Nothing, Nothing) + End Function + + Public Sub ExportToExcel2(GridView As GridView, NombreArchivoXLSX As String) diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index ed78666f4..d5dbda671 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -1,4 +1,4 @@ -<%@ WebHandler Language="VB" Class="CargaEventos" %> +<%@ WebHandler Language="VB" Class="CargaEventos" %> Option Explicit Off Option Strict On @@ -78,18 +78,19 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.CveOS = dr("CveOS").ToString.ToEntero cevent.allDay = False If dr("EstatusOSGral").ToString.Contiene("Levantamiento") Then - cevent.backgroundColor = "#006699" + cevent.backgroundColor = "#3598dc" ElseIf dr("EstatusOSGral").ToString.Contiene("Surtido") Then cevent.backgroundColor = "#002699" ElseIf dr("EstatusOSGral").ToString.Contiene("Asignado") Then - cevent.backgroundColor = "#025716" + cevent.backgroundColor = "#8E44AD" ElseIf dr("EstatusOSGral").ToString.Contiene("Finalizado") Then - cevent.backgroundColor = "#730505" + cevent.backgroundColor = "#26C281" ElseIf dr("EstatusOSGral").ToString.Contiene("Facturado") Then - cevent.backgroundColor = "#006699" + cevent.backgroundColor = "#4B77BE" ElseIf dr("EstatusOSGral").ToString.Contiene("Cobrado") Then - cevent.backgroundColor = "#007699" + cevent.backgroundColor = "#29b4b6" ElseIf dr("EstatusOSGral").ToString.Contiene("Cancelado") Then + cevent.backgroundColor = "#e43a45" End If events.Add(cevent) Next @@ -488,7 +489,13 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState DT_SubProyectos.Columns.Add("backgroundColor") DT_EstatusOS.Columns.Add("", GetType(Integer)) - If ObjContratos.GetContratos(-1, usuarioActual_.CveEmpresa, TipoContrato:=34) Then + Dim cveContrato As Integer = -1 + + If context.Request("cveContrato") IsNot Nothing Then + cveContrato = context.Request("cveContrato").ToEntero() + End If + + If ObjContratos.GetContratos(cveContrato, usuarioActual_.CveEmpresa, TipoContrato:=34) Then If ObjContratos.DtResultados.Rows.Count > 0 Then @@ -511,10 +518,12 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.Dolares = dr("Importe").ToString.ToDecimal cevent.Pesos = dr("ImporteMax").ToString.ToDecimal cevent.Anticipo = dr("ImporteMin").ToString.ToDecimal - cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero + cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero + cevent.CveTipoAF = dr("CveTipoAF").ToString.ToEntero cevent.backgroundColor = dr("BackgroundColor").ToString cevent.CantidadPasajeros = dr("CantidadPasajeros").ToString cevent.NumeroContrato = dr("NumeroContrato").ToString + cevent.Observaciones = dr("Observaciones").ToString If Not cevent.recurrenciatipo > 0 Then @@ -573,6 +582,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.CveCliente = dr("CveCliente").ToString.ToEntero cevent.NombreComercial = dr("NombreComercial").ToString cevent.NombreAcercamiento = dr("Ubicacion").ToString + cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero cevent.CvePersonal = dr("CveChofer").ToString.ToEntero @@ -599,6 +609,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)) cevent.NombreAcercamiento = dr("Ubicacion").ToString + cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero cevent.allDay = False diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index cee2a6026..994c995bb 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -373,6 +373,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim Mail As String = "-1" Dim DtSucursales As DataTable = Nothing + Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) Using ObjClientes As New ClsClientes If ObjClientes.GetListaSucursales(RFC, CveEmpresa) Then @@ -1764,6 +1765,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim Retorno As Boolean = True Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0 + Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) Dim DtPS As DataTable = Nothing Using ObjPS As New ClsProductosServicios @@ -1796,6 +1798,8 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim Retorno As Boolean = False Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0 + Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) + Dim DtPS As DataTable = Nothing Using ObjPS As New ClsProductosServicios 'OBTERNER PRECIOS DE PUBLICO GENERAL @@ -1889,7 +1893,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim payload = New JObject() Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0 - + Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) Dim DtPS As DataTable = Nothing Using ObjPS As New ClsProductosServicios 'OBTERNER PRECIOS DE PUBLICO GENERAL @@ -1966,6 +1970,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0 Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) + Dim DtPS As DataTable = Nothing Using ObjPS As New ClsProductosServicios 'OBTERNER PRECIOS DE PUBLICO GENERAL diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 3b372de36..8394d6218 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -571,7 +571,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx Dim Dt1 As New DataTable Dt1 = DtDatos.FiltraParametros($"FueConciliado = 0 And Tipo = 'Abono'") - Dim TotalDt1 As Double = Dt1.SUM("Importe") + Dim TotalDt1 As Decimal = Dt1.SUMD("Importe") Dim Row1 As DataRow = Dt1.NewRow Row1("Importe") = TotalDt1 @@ -581,7 +581,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx Dim Dt2 As New DataTable Dt2 = DtDatosEdoCuenta.FiltraParametros($"FueConciliado = 0 And Tipo = 'Abono'") - Dim TotalDt2 As Double = Dt2.SUM("Importe") + Dim TotalDt2 As Decimal = Dt2.SUMD("Importe") Dim Row2 As DataRow = Dt2.NewRow Row2("Importe") = TotalDt2 @@ -591,7 +591,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx Dim Dt3 As New DataTable Dt3 = DtDatos.FiltraParametros($"FueConciliado = 0 And Tipo = 'Cargo'") - Dim TotalDt3 As Double = Dt3.SUM("Importe") + Dim TotalDt3 As Decimal = Dt3.SUMD("Importe") Dim Row3 As DataRow = Dt3.NewRow Row3("Importe") = TotalDt3 @@ -601,7 +601,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx Dim Dt4 As New DataTable Dt4 = DtDatosEdoCuenta.FiltraParametros($"FueConciliado = 0 And Tipo = 'Cargo'") - Dim TotalDt4 As Double = Dt4.SUM("Importe") + Dim TotalDt4 As Decimal = Dt4.SUMD("Importe") Dim Row4 As DataRow = Dt4.NewRow Row4("Importe") = TotalDt4 @@ -628,7 +628,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx lrds.Add(rds4) params.Add(New ReportParameter("SaldoFinalEstadoCuenta", (TxtSaldoFinal.Text.FormatoNumero))) - Dim SaldoFinalLibros As Double = (TxtSaldoFinal.Text.ToDouble - TotalDt1 + TotalDt2 + TotalDt3 - TotalDt4) + Dim SaldoFinalLibros As Decimal = (TxtSaldoFinal.Text.ToDecimal - TotalDt1 + TotalDt2 + TotalDt3 - TotalDt4) params.Add(New ReportParameter("SaldoFinalLibros", SaldoFinalLibros.FormatoNumero)) Dim SaldoFinalContabilidad As Double = 0 diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index f5244df41..0338bb999 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -52,7 +52,7 @@ Partial Class Bancos_DepositosCaja DdlCajaChica.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCajaChica.DataBind() 'código temporal, para claudia y toñita, monge, anadelia, alba,patricia - If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then + If UsuarioActual.TienePermisoProceso(383) Then 'UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then DdlCajaChica.Items.Add(New ListItem("Todas", "-1")) DdlCuentaDeposito.Items.Add(New ListItem("Cuadre Solidaridad", "7850")) DdlCuentaDeposito.Items.Add(New ListItem("Cuadre Obregón", "7853")) @@ -312,7 +312,7 @@ Partial Class Bancos_DepositosCaja 'End If 'código temporal, para claudia y toñita, monge, anadelia, alba,patricia - If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then + If UsuarioActual.TienePermisoProceso(383) Then 'CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then FolioIE = TxtFolio.Text.ToEntero End If diff --git a/Bancos/PagoAcreedor.aspx b/Bancos/PagoAcreedor.aspx index 704c2ed38..56deee488 100644 --- a/Bancos/PagoAcreedor.aspx +++ b/Bancos/PagoAcreedor.aspx @@ -272,7 +272,8 @@
    - + +
    @@ -284,7 +285,7 @@
    - +
    @@ -637,7 +638,21 @@ txt.value = ""; } - $get('TxtImporte').value = FormatoNumero(SumaValores(CveMonedaPago), 2); + let Suma = SumaValores(CveMonedaPago); + let TxtDDImporte; + if ($('#TxtDDImporte').length > 0) { + TxtDDImporte = parseFloat($('#TxtDDImporte').val().replace(/,/g, '')); + } else { + TxtDDImporte = 0; // Asigna un valor por defecto si el elemento no existe + } + + //let TxtDDImporte = parseFloat($('#TxtDDImporte').val().replace(/,/g, '')); + + if (!isNaN(TxtDDImporte)) { + Suma = Suma + TxtDDImporte; + } + + $get('TxtImporte').value = FormatoNumero(Suma, 2); } function FnCambia(chk, txt, saldo, op, text, CveMonedaPago) { @@ -653,7 +668,21 @@ txt.value = saldo; alert(text); } - var Suma = SumaValores(CveMonedaPago); + + let Suma = SumaValores(CveMonedaPago); + + //let TxtDDImporte = parseFloat($('#TxtDDImporte').val().replace(/,/g, '')); + let TxtDDImporte; + if ($('#TxtDDImporte').length > 0) { + TxtDDImporte = parseFloat($('#TxtDDImporte').val().replace(/,/g, '')); + } else { + TxtDDImporte = 0; // Asigna un valor por defecto si el elemento no existe + } + + if (!isNaN(TxtDDImporte) ) { + Suma = Suma + TxtDDImporte; + } + $get('TxtImporte').value = FormatoNumero(Suma, 2); if ($get('TxtTotal') != null) { @@ -720,6 +749,28 @@ return Importe } } + + + function validaDeudoresDiversos(CveMoneda) { + + $get('TxtImporte').value = FormatoNumero(SumaValores(CveMoneda), 2) + + let TxtImporte = parseFloat($get('TxtImporte').value.replace(/,/g, '')); + let TxtDDImporte = parseFloat($get('TxtDDImporte').value.replace(/,/g, '')); + + + + if (isNaN(TxtImporte) || isNaN(TxtDDImporte)) { + return; + } + let resultado = TxtImporte + TxtDDImporte; + + $get('TxtImporte').value = resultado.toFixed(2); + // $('#TxtDDImporte').val(TxtDDImporte.toFixed(2)); + + + } + diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index d72929c9c..dbae5d93f 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -6,6 +6,7 @@ using System.Text; using System.Web; using System.Web.UI.WebControls; using static Extensiones.ModExtensiones; +using static Microsoft.EntityFrameworkCore.DbLoggerCategory; public partial class Bancos_PagoAcreedor : ClsPaginas { @@ -140,6 +141,10 @@ public partial class Bancos_PagoAcreedor : ClsPaginas Folio = bancos.GetNextFolio(DdlCuenta.SelectedValue.ToEntero(), DdlTipoTransaccion.SelectedValue.ToEntero()); bancos.Dispose(); TxtFolio.Text = Folio.ToString(); + + + TxtDDImporte.Attributes.Add("onblur",$"validaDeudoresDiversos({CveMonedaCuentaPago});FormatoMoneda(this);"); + UpDatos.Update(); } protected void DdlProveedores_selectedindexchange(object sender, EventArgs e) @@ -345,12 +350,13 @@ public partial class Bancos_PagoAcreedor : ClsPaginas MsgError = "No se pudo insertar concepto de diferencia cambiaria"; } - if (ImporteComision != 0 && MsgError == "") + if (ImporteComision != 0 && MsgError == "" && DdlOtrosPagos.SelectedValue == "2" ) { + ImporteComisionMN = (ImporteComision * TCPago).RoundSQL(); int tTipoConceptoOtro = 255; - if (DdlOtrosPagos.SelectedValue == "3") tTipoConceptoOtro = 43; //deudores diversos + //if (DdlOtrosPagos.SelectedValue == "3") tTipoConceptoOtro = 43; //deudores diversos if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, ImporteComisionMN, tTipoConceptoOtro, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(),CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago acreedor"; @@ -360,6 +366,39 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } } + if (TxtDDImporte.Text.ToDecimal() != 0 && MsgError == "" && DdlOtrosPagos.SelectedValue == "3") + { + ImporteComision = TxtDDImporte.Text.ToDecimal(); + ImporteComisionMN = ImporteComision; + + if (TxtDDImporte.Text.ToDecimal() < 0) + { + TipoMovtoComision = true; + ImporteComision = ImporteComision * -1; + ImporteComisionMN = ImporteComisionMN * -1; + } + else + { + TipoMovtoComision = false; + } + + //Decimal TC = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDate()).ToDecimal(); + //int tCveMoneda = get_GlobalDTBancosCuentas(-1, DdlCuenta.SelectedValue.ToEntero()).FiltroPrimeroValor("CveMoneda").ToEntero(); + //CveMonedaPago + + ImporteComision = ImporteComision.RoundSQL(); + ImporteComisionMN = (ImporteComision * TCPago).RoundSQL() ; + + ImporteComisionMN = (ImporteComision * TCPago).RoundSQL(); + + + int tTipoConceptoOtro = 43; //deudores diversos + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, ImporteComisionMN, tTipoConceptoOtro, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) + { + MsgError = "No se pudo insertar concepto de pago acreedor"; + } + } + if (CveMonedaPago != 1) { ImporteComplementaria = (ImporteBanco * TCPago - ImporteBanco).RoundSQL(); @@ -767,7 +806,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas divDD.Visible = false; if (DdlOtrosPagos.SelectedValue == "2") { - TxtOtrosImportes.Visible = true; + TxtOtrosImportes.Visible = true; TxtTotal.Visible = true; GvMovAcreedor.Columns[8].Visible = true; TxtOtrosImportes.Text = ""; diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb index 87d5a678c..e11bc10ef 100644 --- a/Bancos/RepCxCCliente.aspx.vb +++ b/Bancos/RepCxCCliente.aspx.vb @@ -7,6 +7,10 @@ Partial Class Bancos_RepCxCCliente Private Property DtDatos As DataTable Get + If ViewState("DtDatos") Is Nothing Then + ViewState("DtDatos") = New DataTable + End If + Return CType(ViewState("DtDatos"), DataTable) End Get Set(value As DataTable) @@ -51,6 +55,7 @@ Partial Class Bancos_RepCxCCliente CargaDatos() End Sub Private Sub CargaDatos() + DtDatos = New DataTable Dim Mov As New ClsMovimientos Dim FechaI, FechaF As String Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) @@ -63,6 +68,7 @@ Partial Class Bancos_RepCxCCliente If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta, EstatusFactura:=DdlEstatusFactura.SelectedValue.ToEntero) Then GvCxC.DataSource = Mov.DtResultados + DtDatos = Mov.DtResultados End If UsuarioActual.Sesion("CobroCliente-Sucursal") = DdlSubProyecto.SelectedValue @@ -137,7 +143,7 @@ Partial Class Bancos_RepCxCCliente 'OBTENEMOS LOS DATOS Dim ObjMovtos As New ClsMovimientos() - Dim DTpp As DataTable + Dim FI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) Dim FF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text) Dim FechaI, FechaF As String @@ -146,13 +152,14 @@ Partial Class Bancos_RepCxCCliente If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1" Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) - If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, Cuenta:=TxtCuenta.Text) Then - DTpp = ObjMovtos.DtResultados - Else - DTpp = Nothing - End If - If DTpp.Rows.Count > 0 Then - Dim dr As DataRow = DTpp.Rows(0) + 'If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, Cuenta:=TxtCuenta.Text) Then + ' DTpp = ObjMovtos.DtResultados + 'Else + ' DTpp = Nothing + 'End If + + If DtDatos.Rows.Count > 0 Then + Dim dr As DataRow = DtDatos.Rows(0) Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("FechaInicio", FI)) @@ -161,7 +168,7 @@ Partial Class Bancos_RepCxCCliente params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString)) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DTpp, params, "ReportePagoClientes") + ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DtDatos, params, "ReportePagoClientes") Else Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia) End If diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 5ef366436..2f89b7c04 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 32c51a0c3..60aa183be 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -540,15 +540,15 @@ -
    + <%--
    Remisión Nota de Crédito
    - + - - <%----%> +
    -
    + +
    --%> @@ -875,6 +875,7 @@
    + @@ -954,6 +955,51 @@ + + +
    + + + + + + + + + Factura + + + + + + Fecha + + + + + + Saldo + + + + + + + Moneda + +   + + + + +
    + + + +     +
    diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 46dc9e0b8..8485f0651 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -12,6 +12,7 @@ Imports Extensiones Imports MoreLinq Imports System.Data.SqlClient Imports ClsPaginas +Imports System.Activities.Expressions Partial Class Compras_Compras Inherits ClsPaginas @@ -1192,17 +1193,7 @@ Partial Class Compras_Compras End Set End Property - Private Property ImporteRNCSaldar As Decimal - Get - If ViewState("ImporteRNCSaldar") Is Nothing Then - ViewState("ImporteRNCSaldar") = 0D - End If - Return ViewState("ImporteRNCSaldar").ToString.ToDecimal - End Get - Set(value As Decimal) - ViewState("ImporteRNCSaldar") = value - End Set - End Property + Private Property DTRemisionesNotaDeCredito As DataTable Get @@ -1220,53 +1211,10 @@ Partial Class Compras_Compras End Property - Private Property SerieFolioProntoPago As String - Get - If ViewState("SerieFolioProntoPago") Is Nothing Then - ViewState("SerieFolioProntoPago") = "" - End If - Return ViewState("SerieFolioProntoPago").ToString - End Get - Set(value As String) - ViewState("SerieFolioProntoPago") = value - End Set - End Property - Private Property TipoCambioProntoPago As Decimal - Get - If ViewState("TipoCambioProntoPago") Is Nothing Then - ViewState("TipoCambioProntoPago") = 0D - End If - Return ViewState("TipoCambioProntoPago").ToString.ToDecimal - End Get - Set(value As Decimal) - ViewState("TipoCambioProntoPago") = value - End Set - End Property - Private Property FechaProntoPago As Date - Get - If ViewState("FechaProntoPago") Is Nothing Then - ViewState("FechaProntoPago") = MinFecha - End If - Return ViewState("FechaProntoPago").ToString.ToDate - End Get - Set(value As Date) - ViewState("FechaProntoPago") = value - End Set - End Property - Private Property CveMonedaProntoPago As Integer - Get - If ViewState("CveMonedaProntoPago") Is Nothing Then - ViewState("CveMonedaProntoPago") = 0D - End If - Return ViewState("CveMonedaProntoPago").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveMonedaProntoPago") = value - End Set - End Property + 'ImporteRNCSaldar = 0 'SerieFolioProntoPago = "" @@ -1278,6 +1226,17 @@ Partial Class Compras_Compras #End Region + 'Public Property ListaFacturasRealcionadasRNC As List(Of String) + ' Get + ' If ViewState("ListaFacturasRealcionadasRNC") Is Nothing Then + ' ViewState("ListaFacturasRealcionadasRNC") = New List(Of String) + ' End If + ' Return DirectCast(ViewState("ListaFacturasRealcionadasRNC"), List(Of String)) + ' End Get + ' Set(value As List(Of String)) + ' ViewState("ListaFacturasRealcionadasRNC") = value + ' End Set + 'End Property @@ -1687,6 +1646,18 @@ Partial Class Compras_Compras DdlTipoComprobante.Items.Add(New ListItem("Devolución", "DEV")) DdlTipoComprobante.SelectedValueExist("DEV") End If + + + + If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso DdlTipoComprobante.SelectedValue = "NC" Then + + + + ConfiguraseleccionRemisionNotaCredito() + + + End If + End If 'SE OCUPAN AFUERA DEL POSTBACK ?? @@ -1719,6 +1690,56 @@ Partial Class Compras_Compras End Sub + Private Sub ConfiguraseleccionRemisionNotaCredito() + + Dim AutoSelRNC As Boolean = False + DdlTipoComprobante_SelectedIndexChanged(Nothing, Nothing) + DdlTipoCompra.SelectedValueExist(15) + DdlTipoCompra_SelectedIndexChanged(Nothing, Nothing) + + + 'For Each gvRow As GridViewRow In GvFacturaNC.Rows + ' If gvRow.DataKey("CveCompra").ToEntero > 0 AndAlso gvRow.FCCheckBox("ChkFacturaNC").Checked Then + ' Dim SerieFolioFacura As String = ObtenerUltimaParte(gvRow.DataKey("SerieFolio")) + ' Dim seleccion As String = "" + + ' For Each item As ListItem In DdlRemisionNotaCredito.Items + ' Dim serieFolioItem As String = ObtenerUltimaParte(item.Text) + ' If SerieFolioFacura = serieFolioItem Then + ' 'seleccion = item.Value + ' AutoSelRNC = True + ' DdlRemisionNotaCredito.SelectedValueExist(item.Value) + ' Exit For + ' End If + + ' Next + + ' If AutoSelRNC Then + ' Exit For + ' End If + + ' End If + 'Next + + If AutoSelRNC Then + 'DdlRemisionNotaCredito_SelectedIndexChanged(Nothing, Nothing) + End If + + HLAplicaNCFact.Visible = True + UpPS.Update() + UpEstatus.Update() + + End Sub + + Public Function ObtenerUltimaParte(SerieFolioFactura As String) As String + Dim posicionUltimoGuion As Integer = SerieFolioFactura.LastIndexOf("-") + If posicionUltimoGuion <> -1 Then + Return SerieFolioFactura.Substring(posicionUltimoGuion + 1) + Else + Return SerieFolioFactura + End If + End Function + #Region "C A R G A S" Private Sub MostrarOcultarColumnaIEPS() @@ -7046,26 +7067,44 @@ Partial Class Compras_Compras End If End If Next + If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then - If DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 AndAlso ImporteRNCSaldar > 0 Then - If Not ErrorPrepoliza Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 373, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio, - CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then - ErrorPrepoliza = True - End If + + For Each gvRow As GridViewRow In GVRemisionesNotaDeCredito.Rows + + If gvRow.FCCheckBox("Chk").Checked Then + + Dim ImporteRNCSaldar As Decimal = gvRow.DataKey("Saldo").ToDecimal + Dim CveCompraRNC As Integer = gvRow.DataKey("CveCompra").ToEntero If Not ErrorPrepoliza Then - Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(15, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor) - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, ConPrePNC.CveConcepto, Referencia, Concepto, CveCompra:=CompraActual.CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio, + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 373, Referencia, Concepto, CveCompra:=CveCompraRNC, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio, CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then ErrorPrepoliza = True + Exit For + End If + + If Not ErrorPrepoliza Then + Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(15, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor) + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, ConPrePNC.CveConcepto, Referencia, Concepto, CveCompra:=CompraActual.CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio, + CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then + ErrorPrepoliza = True + Exit For + End If End If End If End If - End If + + + Next + + + + + If ErrorPrepoliza Then ErrorMovtosCxP = True @@ -8557,6 +8596,8 @@ Partial Class Compras_Compras Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click + Dim SeActualizoDetalle As Boolean = False + Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal() If Not CveSubProyectoPrincipal > 0 Then Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia) @@ -8654,7 +8695,7 @@ Partial Class Compras_Compras CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=tNoDeducible, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto, CveSubProyecto:=CveSubProyectoPrincipal, CveFolioGarantia:=DdlFolioGarantia.SelectedValue.ToEntero) Then If Not ComparaDatatables() Then - + SeActualizoDetalle = True 'Regeneramos el concepto 6 de PrePolizas 'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then ' If Not RegenerarPrePoliza(ObjContabilidad, ObjContaAC, 6, False, MultiplicadorNC) Then @@ -9010,7 +9051,7 @@ Partial Class Compras_Compras End If End If - If Not ObjCompra.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF, + If ObjCompra.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal, Row("Descuento").ToString.ToDecimal, Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero, AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal, @@ -9019,7 +9060,17 @@ Partial Class Compras_Compras IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal, IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False), CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero) Then + Dim objGeneral As New ClsGenerales(ObjCompra.IniciaTransacSQL) + Dim NuevoDetalle As String = $"Cantidad: {Row("Cantidad").ToString} Producto: {Row("CodigoPS").ToString}, PU: {Row("PU").ToString.ToDecimal}, Total: {Row("Total").ToString.ToDecimal}" + + If Not objGeneral.AddHistorialBitacora(441, -1, -1, -1, -1, -1, CveCompra, -1, NuevoDetalle, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "", "", "") Then + Retorno = False + Exit For + End If + + + Else Retorno = False Exit For End If @@ -9143,6 +9194,7 @@ Partial Class Compras_Compras ObjCompra.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() + Finally If Retorno Then If ObjContabilidad.MensajePolizaDescuadre IsNot Nothing AndAlso ObjContabilidad.MensajePolizaDescuadre.ToString <> "" Then @@ -9161,6 +9213,7 @@ Partial Class Compras_Compras ObjCompra.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() Alert("Ocurrió un error al actualizar la compra, por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia) + SeActualizoDetalle = False End If If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose() @@ -9176,6 +9229,80 @@ Partial Class Compras_Compras CargaGvBitacora() UpBitacora.Update() + + + If SeActualizoDetalle AndAlso UsuarioActual.CveEmpresa = 119 Then + MandaCorreoActualizacionDetalle() + End If + + End Sub + + Private Sub MandaCorreoActualizacionDetalle() + + + + Dim DTCorreos As New DataTable + Dim DTMovimientos As New DataTable + Dim strBody As New StringBuilder + Dim Asunto, Para, ArrayCC, Body As String + 'Para = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo") + Para = "fernanda.romo@agrojam.com.mx" + + If Para.ToString = "" AndAlso UsuarioActual.CveRol = 1 Then + Para = Para & ";oscar.irigoyen@adssistemas.mx;rene.molina@adssistemas.mx" + End If + + Dim uri As Uri = HttpContext.Current.Request.Url + Dim URlCompleta As String = uri.AbsoluteUri + + Dim SerieFolioCompra As String = $"{TxtSerie.Text}{If(TxtSerie.Text.Trim.Length > 0, "-", "")}{TxtFolio.Text.Trim}" + + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append("") + strBody.Append($"

    Se realizo una actualización en los detalles de la compra {SerieFolioCompra} del proveedor {HplProveedor.Text}

    ") + strBody.Append("") + + strBody.Append("") + + + '' ENVIO DEL CORREO + Asunto = $"Actualizacion de Compra: {SerieFolioCompra} Proveedor: {HplProveedor.Text}" + ArrayCC = "" + Body = strBody.ToString + Dim Mail As New ClsSisMail() + Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC) + + + End Sub Private Function ComparaDatatables() As Boolean @@ -15600,7 +15727,7 @@ Partial Class Compras_Compras Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) CargarFacturas() If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then - CargaDdlRemisionNotaCredito() + CargaGVRemisionNotaCredito() End If End Sub @@ -16134,7 +16261,7 @@ Partial Class Compras_Compras End If Next - UpINV.Update() + UpInv.Update() UpSerie.Update() TxtSerieLote.Focus() RegistraScript(String.Format("$('#DivSerie').on('shown.bs.modal', function () {{$('#DivSerie').focus(); $('#{0}').trigger(jQuery.Event('keypress', {{which: 13}})); }});$('#DivSerie').modal('show'); ", TxtSerieLote.ClientID)) @@ -18561,7 +18688,7 @@ Partial Class Compras_Compras GvInvMov.Visible = True ObjVentas.Dispose() - UpINV.Update() + UpInv.Update() End Sub Private Sub GvInvMov_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInvMov.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -19631,12 +19758,11 @@ Partial Class Compras_Compras If DdlTipoCompra.SelectedValue = "15" Then 'Remisión de nota de crédito If DdlTipoComprobante.SelectedValue = "NC" Then - CargaDdlRemisionNotaCredito() - 'bloquear la vinculación a la compra + CargaGVRemisionNotaCredito() HLAplicaNCFact.Visible = False Else Alert("Para elegir Remisión de Nota de Crédito el tipo de documento debe de ser Nota de Crédito.", TipoMensaje.MsgAdvertencia) - DdlRemisionNotaCredito.SelectedValueExist(-1) + 'DdlRemisionNotaCredito.SelectedValueExist(-1) DdlTipoCompra.SelectedValueExist(-1) End If End If @@ -20299,6 +20425,7 @@ Partial Class Compras_Compras End Function Private Sub NCSeleccionFacturasRelacionadas(UUIDSListRelacionados As List(Of String)) + 'ListaFacturasRealcionadasRNC.Clear() If UUIDSListRelacionados.Count > 0 Then Dim SaldoNota As Decimal = TxtTotal.Text.ToDecimal @@ -20334,17 +20461,20 @@ Partial Class Compras_Compras SaldoNotaPorAplicar = SaldoNotaPorAplicar - SaldoFactura GvRow.FCTextBox("TxtImporte").Text = SaldoFactura.FormatoNumero GvRow.FCCheckBox("ChkFacturaNC").Checked = True + 'ListaFacturasRealcionadasRNC.Add(GvRow.DataKey("CveCompra")) Else If SaldoFactura >= SaldoNotaPorAplicar Then GvRow.FCTextBox("TxtImporte").Text = SaldoNotaPorAplicar.FormatoNumero GvRow.FCCheckBox("ChkFacturaNC").Checked = True + 'ListaFacturasRealcionadasRNC.Add(GvRow.DataKey("CveCompra")) SaldoNotaPorAplicar = 0 TeminarAmortizacion = True Else GvRow.FCTextBox("TxtImporte").Text = SaldoFactura.FormatoNumero GvRow.FCCheckBox("ChkFacturaNC").Checked = True + 'ListaFacturasRealcionadasRNC.Add(GvRow.DataKey("CveCompra")) SaldoNotaPorAplicar = SaldoNotaPorAplicar - SaldoFactura TeminarAmortizacion = True @@ -21052,51 +21182,59 @@ Partial Class Compras_Compras End Sub - Private Sub CargaDdlRemisionNotaCredito() - DvDdlRemisionNotaCredito.Visible = True + Private Sub CargaGVRemisionNotaCredito() + 'DvDdlRemisionNotaCredito.Visible = True DTRemisionesNotaDeCredito = New DataTable + GVRemisionesNotaDeCredito.DataSource = Nothing + GVRemisionesNotaDeCredito.Visible = False + + Dim CveComprasAmortizadas As New List(Of String) + + For Each gvRow As GridViewRow In GvFacturaNC.Rows + If gvRow.DataKey("CveCompra").ToEntero > 0 AndAlso gvRow.FCCheckBox("ChkFacturaNC").Checked Then + CveComprasAmortizadas.Add(gvRow.DataKey("CveCompra")) + gvRow.FCCheckBox("ChkFacturaNC").Checked = False + End If + Next Dim ObjCompras As New ClsCompras - If ObjCompras.GetNotasCreditoRep(DdlProveedor.SelectedValue.ToEntero, 0, "-1", "-1", UsuarioActual.CveEmpresa, 2) Then - DdlRemisionNotaCredito.DataSource = ObjCompras.DtResultados + If ObjCompras.GetNotasCreditoRep(DdlProveedor.SelectedValue.ToEntero, 0, "-1", "-1", UsuarioActual.CveEmpresa, 2, String.Join(",", CveComprasAmortizadas)) Then + 'DdlRemisionNotaCredito.DataSource = ObjCompras.DtResultados DTRemisionesNotaDeCredito = ObjCompras.DtResultados + GVRemisionesNotaDeCredito.DataSource = DTRemisionesNotaDeCredito + GVRemisionesNotaDeCredito.Visible = True End If ObjCompras.Dispose() - DdlRemisionNotaCredito.DataBind() - DdlRemisionNotaCredito.Items.Insert(0, New ListItem("-", "-1")) + + GVRemisionesNotaDeCredito.DataBind() + + 'DdlRemisionNotaCredito.DataBind() + 'DdlRemisionNotaCredito.Items.Insert(0, New ListItem("-", "-1")) + UpPS.Update() UpEstatus.Update() End Sub - Protected Sub DdlRemisionNotaCredito_SelectedIndexChanged(sender As Object, e As EventArgs) + 'Protected Sub DdlRemisionNotaCredito_SelectedIndexChanged(sender As Object, e As EventArgs) - ImporteRNCSaldar = 0 - SerieFolioProntoPago = "" - TipoCambioProntoPago = 1 - FechaProntoPago = MinFecha - CveMonedaProntoPago = 1 + ' ImporteRNCSaldar = 0 + ' SerieFolioProntoPago = "" + ' TipoCambioProntoPago = 1 + ' FechaProntoPago = MinFecha + ' CveMonedaProntoPago = 1 - If DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 Then - ImporteRNCSaldar = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal - SerieFolioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("SerieFolio", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ") - TipoCambioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("TipoCambio", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal - FechaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Fecha", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToString.ToDate - CveMonedaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("CveMoneda", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToEntero - End If - - ''Alert(ImporteRNCSaldar.ToString) - 'CompraPago.SerieFolio = Gvr.DataKey("SerieFolio") - 'CompraPago.TC = Gvr.DataKey("TipoCambio").ToDecimal - 'CompraPago.Fecha = Gvr.DataKey("Fecha").ToDate - 'CompraPago.CveMoneda = Gvr.DataKey("CveMoneda").ToEntero - - 'CompraPago.Total = Gvr.DataKey("Total").ToDecimal - 'CompraPago.CveTipoConceptoProveedor = CveTipoConcepto + ' If DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 Then + ' ImporteRNCSaldar = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal + ' SerieFolioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("SerieFolio", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ") + ' TipoCambioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("TipoCambio", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal + ' FechaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Fecha", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToString.ToDate + ' CveMonedaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("CveMoneda", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToEntero + ' End If - End Sub + 'End Sub #End Region diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 0fcf524a0..386792d7a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2714,6 +2714,7 @@ Partial Class PopUpVerFactura Dim NombreEntrego As String = ObjInventarios.DtResultados.FiltroPrimeroValor("Entrego") Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen Dim Recibio As String = ObjInventarios.Recibio + Dim Guia As String = ObjInventarios.Guia Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga @@ -2912,7 +2913,7 @@ Partial Class PopUpVerFactura PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente, CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego, CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo, - Ruta:=Ruta, Supervisor:=Supervisor, Consola:=Consola) + Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola) End Sub Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera @@ -2931,7 +2932,7 @@ Partial Class PopUpVerFactura EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String, RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "", - Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Consola As String = "-1") + Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1") Select Case CveConcepto @@ -3617,22 +3618,20 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Accion", "RECIBE")) 'Antes Trasladó params.Add(New ReportParameter("Observaciones", Observaciones)) - Dim DTCliente As New DataTable Dim SBDireccionO As New StringBuilder() Dim SBDireccionD As New StringBuilder() Dim CveCliente As Integer = 0 Dim CveDireccionEnvio As Integer = 0 Dim ClienteNombre As String = "", EnvioContacto As String = "", EnvioDireccion As String = "", EnvioColonia As String = "", EnvioCiudad As String = "", EnvioEstado As String = "", ClientePais As String = "", EnvioCP As String = "", Contrato As String = "", - Paqueteria As String = "", NumContrato As String = "", Guia As String = "", Documentacion As String = "" + Paqueteria As String = "", NumContrato As String = "", Documentacion As String = "" Dim CveContrato As Integer = 0 If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero End If - - If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}") @@ -3644,12 +3643,11 @@ Partial Class PopUpVerFactura If Consola <> "-1" And Consola.Trim.Length > 0 Then RutaFormato = "{0}Formatos\Consola.rdlc" params.Add(New ReportParameter("Consola", Consola)) + params.Add(New ReportParameter("SerieConsola", Guia)) + params.Add(New ReportParameter("SeriePedal", Recibio)) End If - - Dim CveVentaConsulta As Integer = DtMovimientos.FiltroPrimeroValor("CveVenta").ToEntero - params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion"))) Dim ObjVentas As New ClsVentas() @@ -3670,18 +3668,9 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("ClienteMunicipio", dtVentas.Rows(0)("SucClienteCiudad").ToString)) params.Add(New ReportParameter("ClienteCP", dtVentas.Rows(0)("CPCliente").ToString)) - - - - - End If ObjVentas.Dispose() - - - - End If If CveContrato > 0 Then diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx index c2c3b08bd..0eea249dd 100644 --- a/Compras/RepCompras.aspx +++ b/Compras/RepCompras.aspx @@ -174,43 +174,14 @@ --%>
    -
    F. I. Captura
    -
    -
    - - - - - - - - - - -
    -
    -
    F. F. Captura:
    -
    -
    - - - - - - - - - - -
    -
    +
    Moneda:
    -
    Tipo de Proveedor:
    +
    Tipo de Prov:
    @@ -219,14 +190,18 @@
    - -
    -
    Capturó:
    -
    - +
    Tipo Docto:
    +
    + + + + +
    +
    +
    Responsable:
    @@ -239,17 +214,45 @@ --%> -
    -
    Tipo Docto:
    -
    - - - - - - - -
    +
    +
    +
    +
    Capturó:
    +
    + + + +
    +
    F. I. Captura
    +
    +
    + + + + + + + + + + +
    +
    +
    F. F. Captura:
    +
    +
    + + + + + + + + + + +
    +
    diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb index 9e5844ce5..6c08d50d5 100644 --- a/Compras/RepCompras.aspx.vb +++ b/Compras/RepCompras.aspx.vb @@ -68,7 +68,9 @@ Partial Class Compras_RepCompras DdlGrupo.Items.Insert(6, New ListItem("Tipo Documento", "6")) DdlGrupo.Items.Insert(7, New ListItem("Clasificación Prov.", "7")) DdlGrupo.Items.Insert(8, New ListItem("Responsable", "8")) - DdlGrupo.Items.Insert(9, New ListItem("Remesa", "10")) + DdlGrupo.Items.Insert(9, New ListItem("Remesa", "10")) + If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "13")) + DdlGrupo.DataBind() DdlGrupo.SelectedValueExist("3") End Sub @@ -77,7 +79,7 @@ Partial Class Compras_RepCompras txtFechaI.Text = $"01/01/{NowADS().Year}" 'Carga Tipo Centro de Costo - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) 'CargaProveedores DdlProveedores.setEsWebService(True) diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx index df26c2813..4765f5ede 100644 --- a/Compras/RepComprasDetalle.aspx +++ b/Compras/RepComprasDetalle.aspx @@ -217,37 +217,8 @@ --%> -
    F. I. Captura
    -
    -
    - - - - - - - - - - -
    -
    -
    F. F. Captura:
    -
    -
    - - - - - - - - - - -
    -
    -
    Tipo de Proveedor:
    + +
    Tipo Prov.:
    @@ -256,14 +227,19 @@
    - -
    -
    Capturó:
    -
    - +
    Tipo Docto:
    +
    + + + + +
    +
    +
    +
    Responsable:
    @@ -277,16 +253,45 @@ --%>
    -
    Tipo Docto:
    -
    - + +
    +
    +
    Capturó:
    +
    + - - - -
    +
    F. I. Captura
    +
    +
    + + + + + + + + + + +
    +
    +
    F. F. Captura:
    +
    +
    + + + + + + + + + + +
    +
    diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index 669e79f5a..c6be3b353 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -114,14 +114,8 @@ Partial Class Compras_RepComprasDetalle If IfNull(Request("TipoCambio"), "1").ToString <> "1" Then RblTipoCambio.SelectedValue = IfNull(Request("TipoCambio"), "1").ToString - End If - - - 'txtFechaI.Text = If(Anio <> "-1", String.Format("01/01/{0}", Anio), txtFechaI.Text) - 'txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text) - 'txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 2).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text) - - + End If + If Fecha <> "-1" Then txtFechaI.Text = Fecha txtFechaF.Text = Fecha @@ -130,7 +124,6 @@ Partial Class Compras_RepComprasDetalle If FechaF <> "-1" Then txtFechaF.Text = FechaF End If - If FechaCaptura <> "-1" Then TxtFechaICaptura.Text = FechaCaptura TxtFechaFCaptura.Text = FechaCaptura @@ -145,6 +138,8 @@ Partial Class Compras_RepComprasDetalle DdlProyecto.SelectedValueExist(CveProyecto) + If CveProyecto.ToEntero > 0 Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") + 'CARGA LISTBOXs DdlSubProyecto.SelectedValuesIfExistM(SubProyecto) DdlTipoGasto.SelectedValuesIfExistM(TipoGasto) @@ -189,7 +184,7 @@ Partial Class Compras_RepComprasDetalle Private Sub CargaCombos() 'Carga Tipo Centro de Costo - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) 'Carga Tipo de Gasto DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb index c663aa5a3..4c09f6965 100644 --- a/Compras/RepProductosServicios.aspx.vb +++ b/Compras/RepProductosServicios.aspx.vb @@ -114,7 +114,7 @@ Partial Class Compras_RepProductosServicios CargaGrupo() 'Carga Tipo Centro de Costo - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then lblCultivo.Visible = True @@ -123,36 +123,7 @@ Partial Class Compras_RepProductosServicios lblCultivo.Visible = False DivCultivo.Visible = False DdlSubProyecto.AutoPostBack = False - End If - - - 'CARGA COSTOS - If UsuarioActual.CveEmpresa = 66 Then - - Dim NumItems As Integer = DdlGrupo.Items.Count - - 'COSTOS PROYECTO - DdlGrupo.Items.Insert(NumItems, New ListItem("Costos", "13")) - RowCostos.Visible = True - - 'Carga Familias - DdlFamilia.DataSource = GlobalDTFamilias(66) - DdlFamilia.DataBind() - - 'Carga SubFamilias - DdlSubFamilia.DataSource = GlobalDTSubFamilias(66) - DdlSubFamilia.DataBind() - - 'COSTOS AF - DdlGrupo.Items.Insert(NumItems + 1, New ListItem("Costos por Activo Fijo", "14")) - - 'Carga AF - 'DdlAF.DataSource = GlobalDTActivoFijos().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - 'DdlAF.DataBind() - - End If - RowActivoFijo.Visible = True 'Carga Fechas @@ -175,6 +146,7 @@ Partial Class Compras_RepProductosServicios DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10")) DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11")) DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12")) + If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "1")) 'Agrega el grupo si es una empresa Agricola If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then @@ -330,7 +302,7 @@ Partial Class Compras_RepProductosServicios #Region " SELECTED INDEX CHANGED" Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") End Sub Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged diff --git a/Compras/RepProductosServiciosDetalle.aspx b/Compras/RepProductosServiciosDetalle.aspx index 1107a2db1..1869066d7 100644 --- a/Compras/RepProductosServiciosDetalle.aspx +++ b/Compras/RepProductosServiciosDetalle.aspx @@ -261,19 +261,19 @@ - - + - - + - - + + + + diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb index b15d64676..9c3f6065f 100644 --- a/Compras/RepProductosServiciosDetalle.aspx.vb +++ b/Compras/RepProductosServiciosDetalle.aspx.vb @@ -130,7 +130,8 @@ Partial Class Compras_RepProductosServiciosDetalle End If End If DdlProyecto.SelectedValueExist(Proyecto) - 'CARGA LISTBOXs + 'CARGA + If Proyecto.ToEntero > 0 Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") DdlSubProyecto.SelectedValuesIfExistM(SubProyecto) DdlTipoGasto.SelectedValuesIfExistM(TipoGasto) DdlCategoria.SelectedValuesIfExistM(Categoria) @@ -181,7 +182,7 @@ Partial Class Compras_RepProductosServiciosDetalle Private Sub SetValues() 'Carga Tipo Centro de Costo - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) 'Carga Tipos de Gasto DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) @@ -233,33 +234,6 @@ Partial Class Compras_RepProductosServiciosDetalle 'Carga Grupos CargaGrupo() - - 'CARGA COSTOS - If UsuarioActual.CveEmpresa = 66 Then - - Dim NumItems As Integer = DdlGrupo.Items.Count - - 'COSTOS PROYECTO - DdlGrupo.Items.Insert(NumItems, New ListItem("Costos", "13")) - RowCostos.Visible = True - - 'Carga Familias - DdlFamilia.DataSource = GlobalDTFamilias(66) - DdlFamilia.DataBind() - - 'Carga SubFamilias - DdlSubFamilia.DataSource = GlobalDTSubFamilias(66) - DdlSubFamilia.DataBind() - - 'COSTOS AF - DdlGrupo.Items.Insert(NumItems + 1, New ListItem("Costos por Activo Fijo", "14")) - - 'Carga AF - 'DdlAF.DataSource = GlobalDTActivoFijos().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - 'DdlAF.DataBind() - - End If - RowActivoFijo.Visible = True 'Carga Fechas @@ -365,7 +339,7 @@ Partial Class Compras_RepProductosServiciosDetalle #Region "SELECT INDEX CHANGED" Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") End Sub Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged CargaCultivo() diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 061e4ba57..1081e1dde 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -1047,7 +1047,7 @@
    - + diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 8497a219a..0c556ae5a 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -18,6 +18,17 @@ Imports Extensiones Imports Microsoft.Reporting.WebForms Imports Newtonsoft.Json.Linq Imports ClsPaginas +Imports ADS.eFacturas +'Imports Telerik.Web.UI.Widgets +'Imports DocumentFormat.OpenXml.Drawing.Diagrams +Imports SharpCompress.Archive.Rar +Imports SharpCompress.Common +Imports SharpCompress.Reader +Imports System.Drawing +Imports Microsoft.Owin.Security.Provider +Imports Telerik.Web.UI +'Imports Telerik.Web.UI + @@ -778,25 +789,24 @@ Partial Class Compras_eFacturas MostrarSolcitudesSAT() If UsuarioActual.CveRol = 1 Then - GVSolicitudesPendientes.Columns(8).Visible = True - End If + GVSolicitudesPendientes.Columns(8).Visible = True + End If 'CARGA REGISTRO DE FACTURA - CargaClasificacionesComprobaciones() - CargaClasificaciones() - CargaPS(-1) - CargaPersoanlCajaChica() - CargaPersonalViaticos() - CargaDdlRetIVA() - CargaDdlRetISR() + 'CargaClasificacionesComprobaciones() + 'CargaClasificaciones() + 'CargaPS(-1) + 'CargaPersoanlCajaChica() + 'CargaPersonalViaticos() + 'CargaDdlRetIVA() + 'CargaDdlRetISR() Dim LblSubProyectoTemp As New Label - CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoTemp, "Seleccione") - LblSubProyecto.InnerText = $"{LblSubProyectoTemp.Text}:" - - End If - removeasincevent() + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoTemp, "Seleccione") + LblSubProyecto.InnerText = $"{LblSubProyectoTemp.Text}:" + End If + removeasincevent() End Sub Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click @@ -1489,14 +1499,26 @@ Partial Class Compras_eFacturas Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click RegistraScript(String.Format("$('#{0}').modal();", "ModalFacturas")) End Sub - Private Sub BtnGuardarFaturas_Click(sender As Object, e As EventArgs) Handles BtnGuardarFaturas.Click + Private Sub BtnSubirFacturas_Click(sender As Object, e As EventArgs) Handles BtnSubirFacturas.Click - If UsuarioActual.Empresa.SendMail.Trim.Length = 0 Then - Alert("La Empresa no tiene configurado el envió de correo.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + 'If UsuarioActual.Empresa.SendMail.Trim.Length = 0 Then + ' Alert("La Empresa no tiene configurado el envió de correo.", TipoMensaje.MsgAdvertencia) + ' Exit Sub + 'End If + + Dim DTLOG As New DataTable + DTLOG.Columns.Add("Serie", GetType(String)) + DTLOG.Columns.Add("Folio", GetType(String)) + DTLOG.Columns.Add("Fecha", GetType(Date)) + DTLOG.Columns.Add("Proveedor", GetType(String)) + DTLOG.Columns.Add("Importe", GetType(Decimal)) + DTLOG.Columns.Add("Motivo", GetType(String)) + DTLOG.Columns.Add("RFCde", GetType(String)) + DTLOG.Columns.Add("Estatus", GetType(Integer)) + DTLOG.Columns.Add("Tipo", GetType(String)) + 'Serie Folio Fecha Proveedor Importe Motivo Dim sw As New Diagnostics.Stopwatch Dim swmili As Long = 0 @@ -1510,7 +1532,9 @@ Partial Class Compras_eFacturas Dim ListXML As New List(Of String) Dim ListPDF As New List(Of String) + Dim ListComprimidos As New List(Of String) Dim ListDirectorios As New List(Of String) + Dim ListFacturas As New List(Of Factura) @@ -1519,147 +1543,279 @@ Partial Class Compras_eFacturas filemove = fileItem.filename If filemove <> "" Then - 'filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta)) - 'filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa)) - filemove.FilesMove("", String.Format("{0}Temp\Facturas", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) - 'AGREGA XML A LA LISTA - If FileExtension.ToUpper = "XML" Or FileExtension.ToUpper = "PDF" Then - ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove)) + filemove.FilesMove("", String.Format("{0}Temp\Facturas", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False, Sobreescribir:=True) + If FileExtension.ToUpper = "RAR" Or FileExtension.ToUpper = "ZIP" Then + ListComprimidos.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove)) End If End If Next - Dim fileEntries As String() = Directory.GetFiles(String.Format("{0}Temp\Facturas", UsuarioActual.Empresa.Ruta)) + For Each comprmido As String In ListComprimidos - Dim ListaDirectoriosTemporales As New List(Of String) - Dim ListaComprimidos As New List(Of String) + Dim FiInfo As New FileInfo(comprmido) - 'Dim fileName As String - Dim ArchivoExtension As String - Dim sOnlyFilename As String + Using stream As Stream = System.IO.File.OpenRead(FiInfo.FullName) + Try + Dim reader = ReaderFactory.Open(stream) - For Each filePath As String In fileEntries + Dim Multiparte As Boolean = False + If Path.GetExtension(FiInfo.FullName.ToUpper()) = ".RAR" And FiInfo.FullName.ToUpper().Contains(".PART") Then + 'SI ES .RAR, PUEDE SER MULTI PART Y PUEDE TRONAR + Using archive As RarArchive = RarArchive.Open(FiInfo.FullName) + If archive.IsMultipartVolume() Then + Multiparte = True + End If + End Using + End If - ArchivoExtension = IO.Path.GetExtension(String.Format("{0}", filePath)).Replace(".", "") - sOnlyFilename = System.IO.Path.GetFileName(filePath) + Dim PdfList As New List(Of String) + If Not Multiparte Then + 'puede tronar si el archivo es multiparte + While reader.MoveToNextEntry() + If Not reader.Entry.IsDirectory Then + 'Si es un archivo XML, lo leo y lo guardo - If ArchivoExtension.ToUpper = "RAR" Or ArchivoExtension.ToUpper = "ZIP" Then - 'ListaComprimidos.Add(filePath) - ''CREO DIRECTORIO ALEATORIO - 'Dim Aleatorio As New Random - 'Dim TempDirectorio As String = String.Format("{0}{1}\{2}{3}", UsuarioActual.Empresa.Ruta, "Temp\Facturas", NowADS().Ticks, Aleatorio.Next(100, 999)) - 'Directory.CreateDirectory(TempDirectorio) - 'ListaDirectoriosTemporales.Add(TempDirectorio) - ''AGREGA DIRECTORIO A LA LISTA - 'ListDirectorios.Add(TempDirectorio) - ''DESCOMPRIME RAR - 'DescomprimeFacturas(filePath, TempDirectorio) - ''AGREGA XML A LA LISTA - 'ListXML.AddRange(Directory.GetFiles(TempDirectorio)) + Dim nombreArchivo As String = "" - ListXML.Add(filePath) + If reader.Entry.FilePath.Contains("/") Then + nombreArchivo = reader.Entry.FilePath.Substring(reader.Entry.FilePath.LastIndexOf("/") + 1) + Else + nombreArchivo = reader.Entry.FilePath + End If - End If + If Path.GetExtension(reader.Entry.FilePath.ToUpper()) = ".XML" Then + reader.WriteEntryToDirectory(String.Format("{0}Temp\Facturas", UsuarioActual.Empresa.Ruta), ExtractOptions.None Or ExtractOptions.Overwrite) + ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, nombreArchivo)) + End If + If Path.GetExtension(reader.Entry.FilePath.ToUpper()) = ".PDF" Then + 'este sale de un error al leer el pdf, como lo estoy recorriendo de una vez lo guardo y lo vinculo, si la coincidencia es por nombre o número de folio + 'string RFCEmisor = BuscaFactura(System.IO.Path.GetFileNameWithoutExtension(reader.Entry.FilePath).ToUpper(), Arreglo, True); + 'if (!string.IsNullOrEmpty(RFCEmisor)) + ' { + 'If Not Directory.Exists(String.Format("{0}{1}", Temporal, RFCEmisor)) Then Directory.CreateDirectory(String.Format("{0}{1}", Temporal, RFCEmisor)) + 'reader.WriteEntryToDirectory(String.Format("{0}{1}", Temporal, ""), ExtractOptions.None Or ExtractOptions.Overwrite) + reader.WriteEntryToDirectory(String.Format("{0}{1}", String.Format("{0}Temp\Facturas", UsuarioActual.Empresa.Ruta), ""), ExtractOptions.None Or ExtractOptions.Overwrite) + ListPDF.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, nombreArchivo)) + + End If + End If + End While + End If + Catch ex As Exception + GuardaLog("'ERROR :" & ex.Message) + End Try + End Using Next - Dim Arreglo As New ArrayList() - ' Dim Archivos As String() = Directory.GetFiles(String.Format("{0}Empresas\{1}\Temp", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) - 'Dim NombreArchivo As String - Dim Bandera As Boolean = True - Dim Retorno As String = "" - Dim ListaArchivosMail As New List(Of ClsSisMail.ArchivoMail) + + For Each fileItem As Archivo In filesgral + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") + filemove = fileItem.filename + + If filemove <> "" AndAlso (FileExtension.ToUpper() <> "ZIP" And FileExtension.ToUpper() <> "RAR") Then + + 'filemove.FilesMove("", String.Format("{0}Temp\Facturas", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False, Sobreescribir:=True) + + If FileExtension.ToUpper = "XML" Then + ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove)) + End If + + If FileExtension.ToUpper = "PDF" Then + ListPDF.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove)) + End If + + End If + Next - sw.Stop() - swTiempo.AppendFormat("ReadFiles: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) - swmili = sw.ElapsedMilliseconds - sw.Start() + 'Dim fileEntries As String() = Directory.GetFiles(String.Format("{0}Temp\Facturas", UsuarioActual.Empresa.Ruta)) + + 'Dim ListaDirectoriosTemporales As New List(Of String) + 'Dim ListaComprimidos As New List(Of String) + + ''Dim fileName As String + 'Dim ArchivoExtension As String + 'Dim sOnlyFilename As String + + 'For Each filePath As String In fileEntries + + ' ArchivoExtension = IO.Path.GetExtension(String.Format("{0}", filePath)).Replace(".", "") + ' sOnlyFilename = System.IO.Path.GetFileName(filePath) + + ' If ArchivoExtension.ToUpper = "RAR" Or ArchivoExtension.ToUpper = "ZIP" Then + ' ListXML.Add(filePath) + ' End If + 'Next + + 'Dim Arreglo As New ArrayList() + 'Dim Bandera As Boolean = True + 'Dim Retorno As String = "" + 'Dim ListaArchivosMail As New List(Of ClsSisMail.ArchivoMail) + + 'sw.Stop() + 'swTiempo.AppendFormat("ReadFiles: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) + 'swmili = sw.ElapsedMilliseconds + 'sw.Start() Anexo.Text = "" UPAddFacturas.Update() - For Each filePath As String In ListXML + For Each filePathXML As String In ListXML - If File.Exists(filePath) Then - Dim ArchivoAdjunto As New ClsSisMail.ArchivoMail - ArchivoAdjunto.ArchivoBinario = File.ReadAllBytes(filePath) - ArchivoAdjunto.Ruta = filePath - ArchivoAdjunto.NombreArchivo = New FileInfo(filePath).Name + Dim rowLog As DataRow = DTLOG.NewRow + rowLog("Serie") = "" + rowLog("Folio") = "" + rowLog("Fecha") = NowADS() + rowLog("Proveedor") = "" + rowLog("Importe") = 0 + rowLog("Motivo") = "" + rowLog("RFCde") = "" + rowLog("Estatus") = 0 + rowLog("Tipo") = "" - ListaArchivosMail.Add(ArchivoAdjunto) + Dim fInfoXML As New FileInfo(filePathXML) + + Dim RutaPDF As String = "" + + For Each filePathPDF As String In ListPDF + + Dim fInfoPDF As New FileInfo(filePathPDF) + + + Dim fxml As String = fInfoXML.Name.ToUpper().Replace(".XML", "") + Dim fpdf As String = fInfoPDF.Name.ToUpper().Replace(".PDF", "") + Dim fpdfSplit As String() = fpdf.Split("-"c) + + If fpdfSplit.Length >= 2 AndAlso fpdfSplit(0).Length = 18 Then + fpdf = fpdf.Replace($"{fpdfSplit(0)}-", "") + End If + + If fxml.Contains(fpdf) Then + RutaPDF = fInfoPDF.FullName + Exit For + End If + + Next + + If File.Exists(filePathXML) Then + Dim a As New ComprobanteFactura + Dim FF As Factura = a.CargaComprobanteXML(File.ReadAllText(filePathXML), UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.RFC, UsuarioActual.CveEmpresa, True, rowLog, NombreArchivo:=fInfoXML.Name) + + If FF IsNot Nothing AndAlso FF.CveFactura > 0 Then + + If RutaPDF = "" Then + a.GeneraPDF(UsuarioActual.Empresa.Ruta, FF, UsuarioActual.Empresa.Ruta, True) + Else + Dim PDfDestino As String = $"{UsuarioActual.Empresa.Ruta}\Compras\{FF.EmisorRFC}\{FF.CveFactura}.PDF" + If File.Exists(PDfDestino) Then + File.Delete(PDfDestino) + End If + File.Move(RutaPDF, PDfDestino) + End If + + End If End If + DTLOG.Rows.Add(rowLog) + Next sw.Stop() swTiempo.AppendFormat("Fill ClsSisMail.ArchivoMail: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) swmili = sw.ElapsedMilliseconds sw.Start() - If ListaArchivosMail.Count > 0 Then - Dim Correo As New ClsSisMail + 'If ListaArchivosMail.Count > 0 Then - 'If Correo.SendMail(UsuarioActual.Empresa, "sig.buzon@gmail.com", "Facturas Efacturas " & NowADS().ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then + ' Dim Correo As New ClsSisMail - If Correo.SendMail(UsuarioActual.Empresa, UsuarioActual.Empresa.Buzon_Mail, "Facturas Efacturas " & NowADS().ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then + ' 'If Correo.SendMail(UsuarioActual.Empresa, "sig.buzon@gmail.com", "Facturas Efacturas " & NowADS().ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then - sw.Stop() - swTiempo.AppendFormat("EnvioCorreo: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) - swmili = sw.ElapsedMilliseconds - sw.Start() - System.Threading.Thread.Sleep(3000) - 'ProcesaBuzon() + ' If Correo.SendMail(UsuarioActual.Empresa, UsuarioActual.Empresa.Buzon_Mail, "Facturas Efacturas " & NowADS().ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then - sw.Stop() - swTiempo.AppendFormat("espera: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) - swmili = sw.ElapsedMilliseconds - sw.Start() + ' sw.Stop() + ' swTiempo.AppendFormat("EnvioCorreo: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) + ' swmili = sw.ElapsedMilliseconds + ' sw.Start() + ' System.Threading.Thread.Sleep(3000) + ' 'ProcesaBuzon() - If VerificaCorreo(True) Then - CargaDatos() - End If + ' sw.Stop() + ' swTiempo.AppendFormat("espera: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) + ' swmili = sw.ElapsedMilliseconds + ' sw.Start() - sw.Stop() - swTiempo.AppendFormat("Verifica En la app: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) - swmili = sw.ElapsedMilliseconds - sw.Start() - Else - Alert("Se presento un error al procesar las facturas.") - End If + ' If VerificaCorreo(True) Then + ' CargaDatos() + ' End If - End If + ' sw.Stop() + ' swTiempo.AppendFormat("Verifica En la app: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) + ' swmili = sw.ElapsedMilliseconds + ' sw.Start() + ' Else + ' Alert("Se presento un error al procesar las facturas.") + ' End If + + 'End If sw.Stop() swTiempo.AppendFormat("BorrarInicio: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) swmili = sw.ElapsedMilliseconds sw.Start() - For Each filePath As String In ListXML - Try - File.Delete(filePath) - Catch ex As Exception - End Try - Next - For Each s As String In ListaComprimidos + + 'For Each filePath As String In ListXML + ' Try + ' File.Delete(filePath) + ' Catch ex As Exception + ' End Try + 'Next + + + 'For Each filePath As String In ListPDF + ' Try + ' File.Delete(filePath) + ' Catch ex As Exception + ' End Try + 'Next + + 'For Each s As String In ListaComprimidos + ' Try + ' File.Delete(s) + ' Catch ex As Exception + ' End Try + 'Next + + + + + 'For Each d As String In ListaDirectoriosTemporales + ' Try + ' Directory.Delete(d, True) + ' Catch ex As Exception + ' End Try + 'Next + + For Each s As String In ListXML Try File.Delete(s) Catch ex As Exception End Try Next - For Each d As String In ListaDirectoriosTemporales + For Each s As String In ListComprimidos Try - Directory.Delete(d, True) + File.Delete(s) Catch ex As Exception End Try Next - sw.Stop() swTiempo.AppendFormat("BorrarEnd: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) swmili = sw.ElapsedMilliseconds @@ -1736,11 +1892,56 @@ Partial Class Compras_eFacturas RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalFacturas")) + RegistraScript("$('#ModalBitacoraEfacturas').modal()") + mesajeFaturasSubidas(DTLOG) + + + CargaDatosBitacora() + 'Alert(String.Format("Se cargaron {0} Facturas", Arreglo.Count), TipoMensaje.MsgInformacion) End Sub + + Private Sub mesajeFaturasSubidas(DTLOG As DataTable) + + + Dim Str As New StringBuilder + + + Dim conta As Integer = 1 + Str.Append("Se procesó la información con la siguiente información:
    ") + Dim objCompra As New ClsCompras + + For Each dr As DataRow In DTLOG.Rows + + Str.AppendFormat("", If(conta Mod 2 = 0, "TextoAlterno", "Texto")) + + Str.AppendFormat("", dr("Serie")) + Str.AppendFormat("", dr("Folio")) + Str.AppendFormat("", If(dr("Fecha").ToString <> "", dr("Fecha").ToString.ToDate.ToShortDateString, "")) + Str.AppendFormat("", dr("Proveedor")) + Str.AppendFormat("", dr("Importe").ToString.ToDecimal.FormatoNumero) + Str.AppendFormat("", dr("Motivo")) + Str.Append("") + conta += 1 + + objCompra.AddBitacoraFactura(dr("Serie").ToString, dr("Folio").ToString, dr("RFCde").ToString, dr("Motivo").ToString, dr("Estatus").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "Modulo eFacturas", + dr("Proveedor").ToString, dr("Importe").ToString.ToDecimal, dr("Tipo").ToString) + Next + + 'RFCde,Estatus,Tipo + + objCompra.Dispose() + + If DTLOG.Rows.Count > 0 Then 'si las facturas no recividas son matores a cero se muestra el mensaje + Alert(Str.ToString, TipoMensaje.MsgInformacion) + End If + + + End Sub + Public Sub GuardaLogefacturas(Str As String) Dim ArchivoW As StreamWriter Dim strLineaTMP As String @@ -1764,83 +1965,83 @@ Partial Class Compras_eFacturas ArchivoW.Close() ArchivoW.Dispose() End Sub - Private Function AgregaFactura(Fact As Modelos.eFactura) As String - Dim Retorno As String = "" - Dim Correcto As Boolean = False + 'Private Function AgregaFactura(Fact As Modelos.eFactura) As String + ' Dim Retorno As String = "" + ' Dim Correcto As Boolean = False - If Fact.Version = "3.2" Then Fact.TipodeComprobante = Fact.TipodeComprobante.Substring(0, 1) + ' If Fact.Version = "3.2" Then Fact.TipodeComprobante = Fact.TipodeComprobante.Substring(0, 1) - Dim ObjDatos As New ClsCompras - ObjDatos.IniciaTransacSQL() - ObjDatos.CveFactura = 0 - Dim Ret As Integer = ObjDatos.AddFactura(Fact.Serie, Fact.Folio, Convert.ToDateTime(Fact.Fecha), Fact.EmisorNombre, Fact.EmisorRFC, Fact.subTotal, - Fact.TrasladoIVA, Fact.Total, Fact.TFDUUID, Fact.ReceptorRFC, Fact.ArchivoXML, Fact.ArchivoPDF, - Fact.Version, Fact.Descuento, Fact.Moneda, Fact.TipodeComprobante, Fact.TipoCambio, Fact.Validada, - Fact.CveEmpresa, Fact.sUPPrefijo) + ' Dim ObjDatos As New ClsCompras + ' ObjDatos.IniciaTransacSQL() + ' ObjDatos.CveFactura = 0 + ' Dim Ret As Integer = ObjDatos.AddFactura(Fact.Serie, Fact.Folio, Convert.ToDateTime(Fact.Fecha), Fact.EmisorNombre, Fact.EmisorRFC, Fact.subTotal, + ' Fact.TrasladoIVA, Fact.Total, Fact.TFDUUID, Fact.ReceptorRFC, Fact.ArchivoXML, Fact.ArchivoPDF, + ' Fact.Version, Fact.Descuento, Fact.Moneda, Fact.TipodeComprobante, Fact.TipoCambio, Fact.Validada, + ' Fact.CveEmpresa, Fact.sUPPrefijo) - If Ret >= 0 Then - If Not Directory.Exists(Destino + Fact.EmisorRFC) Then - Directory.CreateDirectory(Destino + Fact.EmisorRFC) - End If - 'Try - ' If File.Exists(Destino & Retorno.EmisorRFC & "\" & NombreArchivo) Then File.Delete(Destino & Retorno.EmisorRFC & "\" & NombreArchivo) - ' File.Move(Temporal & NombreArchivo, Destino & Retorno.EmisorRFC & "\" & NombreArchivo) + ' If Ret >= 0 Then + ' If Not Directory.Exists(Destino + Fact.EmisorRFC) Then + ' Directory.CreateDirectory(Destino + Fact.EmisorRFC) + ' End If + ' 'Try + ' ' If File.Exists(Destino & Retorno.EmisorRFC & "\" & NombreArchivo) Then File.Delete(Destino & Retorno.EmisorRFC & "\" & NombreArchivo) + ' ' File.Move(Temporal & NombreArchivo, Destino & Retorno.EmisorRFC & "\" & NombreArchivo) - 'Catch ex As IOException - ' GuardaLog("'ERROR :" & ex.Message) - 'End Try + ' 'Catch ex As IOException + ' ' GuardaLog("'ERROR :" & ex.Message) + ' 'End Try - Select Case Ret - Case 0 + ' Select Case Ret + ' Case 0 - Correcto = True - Dim RRutaDestino As String = String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjDatos.CveFactura) - 'ModExtensiones.GuardaLog(String.Format(" '--------{0} Compra ya insertada : {1}{2} - {3}", ContadorGeneral, Fact.Serie, Fact.Folio, RRutaDestino)) + ' Correcto = True + ' Dim RRutaDestino As String = String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjDatos.CveFactura) + ' 'ModExtensiones.GuardaLog(String.Format(" '--------{0} Compra ya insertada : {1}{2} - {3}", ContadorGeneral, Fact.Serie, Fact.Folio, RRutaDestino)) - If Not File.Exists(RRutaDestino) Then - File.Move(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, Fact.ArchivoXML), RRutaDestino) - ObjDatos.UpdateArchivo(ObjDatos.CveFactura, "XML") - ModExtensiones.GuardaLog(" '--------XML Actualizado ") - End If + ' If Not File.Exists(RRutaDestino) Then + ' File.Move(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, Fact.ArchivoXML), RRutaDestino) + ' ObjDatos.UpdateArchivo(ObjDatos.CveFactura, "XML") + ' ModExtensiones.GuardaLog(" '--------XML Actualizado ") + ' End If - Correcto = True - Exit Select - Case 1 - 'muevo el archivo y lo renombro - Dim StrMover As String = "" - Try - File.Move(String.Format("{0}\{1}", Fact.DirectorioTemporal, Fact.ArchivoXML), String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) - File.Move(String.Format("{0}\{1}", Fact.DirectorioTemporal, Fact.ArchivoPDF), String.Format("{0}{1}\{2}.pdf", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) - ModExtensiones.GuardaLog(" '++++++++ Archivo :" + String.Format("{0}\{1}", Fact.DirectorioTemporal, Fact.ArchivoXML) + " - " + String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) - ModExtensiones.GuardaLog(" '++++++++ Archivo :" + String.Format("{0}\{1}", Fact.DirectorioTemporal, Fact.ArchivoPDF) + " - " + String.Format("{0}{1}\{2}.pdf", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) - 'si se movieron los dos archivos, los marca como correcto - If File.Exists(String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) AndAlso File.Exists(String.Format("{0}{1}\{2}.pdf", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) Then - Correcto = True - End If - Catch ex As Exception - StrMover = ex.Message - End Try + ' Correcto = True + ' Exit Select + ' Case 1 + ' 'muevo el archivo y lo renombro + ' Dim StrMover As String = "" + ' Try + ' File.Move(String.Format("{0}\{1}", Fact.DirectorioTemporal, Fact.ArchivoXML), String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) + ' File.Move(String.Format("{0}\{1}", Fact.DirectorioTemporal, Fact.ArchivoPDF), String.Format("{0}{1}\{2}.pdf", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) + ' ModExtensiones.GuardaLog(" '++++++++ Archivo :" + String.Format("{0}\{1}", Fact.DirectorioTemporal, Fact.ArchivoXML) + " - " + String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) + ' ModExtensiones.GuardaLog(" '++++++++ Archivo :" + String.Format("{0}\{1}", Fact.DirectorioTemporal, Fact.ArchivoPDF) + " - " + String.Format("{0}{1}\{2}.pdf", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) + ' 'si se movieron los dos archivos, los marca como correcto + ' If File.Exists(String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) AndAlso File.Exists(String.Format("{0}{1}\{2}.pdf", Destino, Fact.EmisorRFC, ObjDatos.CveFactura)) Then + ' Correcto = True + ' End If + ' Catch ex As Exception + ' StrMover = ex.Message + ' End Try - ModExtensiones.GuardaLog(Convert.ToString(" '++++++++ Compra Insertada :" + Fact.Serie + Fact.Folio + " - Correcto:" + (If(Correcto, "Si", "No" + " Obs: "))) & StrMover) - Exit Select - End Select - End If - If Correcto Then - ObjDatos.Commit() - 'ya se insertó o está insertada - Dim Idioma As New CultureInfo("es-MX") - 'regreso el format 2014-07 Julio - Retorno = Fact.Fecha.ToDate().ToString("yyyy-MM MMMM", Idioma) - Else - ObjDatos.RollBack() - End If - ObjDatos.Dispose() + ' ModExtensiones.GuardaLog(Convert.ToString(" '++++++++ Compra Insertada :" + Fact.Serie + Fact.Folio + " - Correcto:" + (If(Correcto, "Si", "No" + " Obs: "))) & StrMover) + ' Exit Select + ' End Select + ' End If + ' If Correcto Then + ' ObjDatos.Commit() + ' 'ya se insertó o está insertada + ' Dim Idioma As New CultureInfo("es-MX") + ' 'regreso el format 2014-07 Julio + ' Retorno = Fact.Fecha.ToDate().ToString("yyyy-MM MMMM", Idioma) + ' Else + ' ObjDatos.RollBack() + ' End If + ' ObjDatos.Dispose() - Return Retorno + ' Return Retorno - End Function + 'End Function Private Sub CargarFacturas(PathArchivo As String, NombreArchivo As String) Dim RFC As String = CargaEmisordeXML(String.Format("{0}", PathArchivo), "RFC", UsuarioActual.Empresa.RFC) If RFC IsNot Nothing Then @@ -4036,7 +4237,7 @@ Partial Class Compras_eFacturas #End Region Public Sub ImprimirPDFXML(NombreArchivo As String, rutaxml As String) - Dim objxml As XmlSatCFDI = XmlSatCFDI.readXML(rutaxml) + Dim objxml As ADSistemaLibrary.SatXml.XmlSatCFDI = ADSistemaLibrary.SatXml.XmlSatCFDI.readXML(rutaxml) Dim rutaReporte As String = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3.rdlc") Dim cQr As Byte() = ClsPaginas.GeneraQRSAT(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID) @@ -4084,7 +4285,7 @@ Partial Class Compras_eFacturas ltotales.Add(New utilValores("Descuento", objxml.comprobante.Descuento.ToString("N2"))) End If - For Each item As CFDIImpuesto In objxml.Impuestos + For Each item As ADSistemaLibrary.SatXml.CFDIImpuesto In objxml.Impuestos If item.Importe > 0 Then Dim TasaOCuota As Decimal = 0 @@ -4216,7 +4417,7 @@ Partial Class Compras_eFacturas End Sub Protected Sub LnkRegenerarPdfnew_Click(sender As Object, e As EventArgs) Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim objxml As XmlSatCFDI = XmlSatCFDI.readXML(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML"))) + Dim objxml As ADSistemaLibrary.SatXml.XmlSatCFDI = ADSistemaLibrary.SatXml.XmlSatCFDI.readXML(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML"))) Dim XmlRutaArchivo As String = File.ReadAllText(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML"))) @@ -7066,6 +7267,2258 @@ End Class +Namespace ADS.eFacturas + Public Class Factura + + Public Property CveFactura As Integer = -1 + Public Property RespuestaInsert As Integer = -1 + + Friend noCertificado As String = "" + Public Property CveEmpresa As Integer + Public Property Version As String + Public Property Serie As String + Public Property Folio As String + Public Property Fecha As Date + Public Property SubTotal As Decimal + Public Property Total As Decimal + Public Property Moneda As String + Public Property CveMoneda As Integer + Public Property TipoComprobante As String + Public Property Descuento As Decimal + Public Property TipoCambio As Decimal + Public Property MetododePago As String = "" + Public Property EmisorRFC As String + Public Property EmisorNombre As String + Public Property EmisorRegimenFiscal As String + Public Property ReceptorRFC As String + Public Property ReceptorNombre As String + Public Property ReceptorUsoCFDI As String + Public Property TotalRetenciones As Decimal + Public Property SumaTotalRetenciones As Decimal + Public Property TotalTraslados As Decimal + Public Property SumaTotalTraslados As Decimal + Public Property TrasladoIVA As Decimal + Public Property TrasladoIEPS As Decimal + Public Property TrasladoISR As Decimal + Public Property RetencionIVA As Decimal + Public Property RetencionISR As Decimal + Public Property sUPPrefijo As String + Public Property UUID As String + Public Property Validada As Integer = 0 + Public Property ArchivoXML As String + Public Property ArchivoPDF As String + Public Property Pagos As New List(Of Pago) + Public Property IEPS As Decimal + Public Property TFDFechaTimbrado As String + Public Property TFDSelloCFD As String + Public Property TFDNoCertSAT As String + Public Property TFDSelloSAT As String + Public Property FormaDePago As String + Public Property DTConceptos As DataTable + Public Property EmiRFC As String + Public Property EmiNombre As String + Public Property DomFisCalle As String + Public Property DomFisNoExt As String + Public Property DomFisCol As String + Public Property DomFisCP As String + Public Property DomFisMun As String + Public Property DomFisLoc As String + Public Property DomFisEst As String + Public Property DomFisPais As String + Public Property ExpEnCalle As String + Public Property ExpEnNoExt As String + Public Property ExpEnCol As String + Public Property ExpEnCP As String + Public Property ExpEnMun As String + Public Property ExpEnLoc As String + Public Property ExpEnEst As String + Public Property ExpEnPais As String + Public Property Regimen As String + Public Property RecRfc As String + Public Property RecNombre As String + Public Property DomRecCalle As String + Public Property DomRecFisNoExt As String + Public Property DomRecFisNoInt As String + Public Property DomRecCol As String + Public Property DomRecCP As String + Public Property DomRecMun As String + Public Property DomRecLoc As String + Public Property DomRecEst As String + Public Property DomRecPais As String + Public Property condicionesDePago As String + Public Property NumCtaPagoNumCtaPago As String + + + Public ReadOnly Property DtPagos As DataTable + Get + + If Pagos.Count > 0 Then + + Dim query = From p In Me.Pagos Select New With {.FechaPago = p.FechaPago, .FormaDePagoP = p.FormaDePagoP, .MonedaP = p.MonedaP, .ImportePago = p.Monto} + Dim DtPagosNew As DataTable = ModExtensiones.CopyToDataTable(query, True) + DtPagosNew.TableName = "DsPagos" + Return DtPagosNew + Else + Dim DtPagosNew As New DataTable + DtPagosNew.TableName = "DsPagos" + Return DtPagosNew + End If + + End Get + End Property + + Public ReadOnly Property DtDocumentosR As DataTable + Get + If Pagos.Count > 0 Then + + Dim DtDocumentosRNew As DataTable = ModExtensiones.CopyToDataTable(Pagos(0).Documentos, True) + DtDocumentosRNew.TableName = "DsDocRelacionados" + Return DtDocumentosRNew + + Else + Dim DtDocumentosRNew As New DataTable + DtDocumentosRNew.TableName = "DsDocRelacionados" + Return DtDocumentosRNew + + End If + End Get + End Property + + Private Sub CreaDTConceptos() + DTConceptos = New DataTable() + DTConceptos.Columns.Add("Consec", GetType(Integer)) + DTConceptos.Columns.Add("Cantidad", GetType(Double)) + DTConceptos.Columns.Add("UM", GetType(String)) + DTConceptos.Columns.Add("PS", GetType(String)) + DTConceptos.Columns.Add("PU", GetType(Double)) + DTConceptos.Columns.Add("IVA", GetType(Double)) + DTConceptos.Columns.Add("Total", GetType(Double)) + End Sub + + Public Sub New() + CreaDTConceptos() + End Sub + + Public Sub AddPS(ByVal Cantidad As Double, ByVal UM As String, ByVal PS As String, ByVal PU As Double, ByVal IVA As Double, Optional ByVal Total As Double = 0) + If PS <> "IVA" Then + Dim Row As DataRow = Nothing + Row = DTConceptos.NewRow() + Row("Consec") = DTConceptos.Rows.Count + 1 + Row("Cantidad") = Cantidad + Row("UM") = UM + Row("PS") = PS + Row("PU") = PU + Row("IVA") = IVA + Row("Total") = If(Total > 0, Total, (Cantidad * PU)) + DTConceptos.Rows.Add(Row) + End If + End Sub + + End Class + + Public Class Pago + Public Property FechaPago As DateTime + Public Property FormaDePagoP As String + Public Property MonedaP As String + Public Property Monto As Decimal + Public Property Documentos As List(Of DoctoRelacionado) + End Class + + Public Class DoctoRelacionado + Public Property Serie As String + Public Property Folio As String + Public Property ImportePago As Decimal + Public Property ImpSaldoAnt As Decimal + Public Property ImpSaldoInsoluto As Decimal + Public Property idDocumento As String + Public Property MonedaDR As String + Public Property MetodoDePagoDR As String + Public Property NumParcialidad As String + End Class + + Public Class ComprobanteFactura + Public Property Pagos As List(Of Pago) + Public Property XMLNodosPagos As String + Public Property XMLNodosPagosCount As Integer + Private Function CargaFactVersion33(CveEmpresa As Integer, ByRef node As XmlNode, ByRef nodo As XmlNode, ByRef XMLDoc As XmlDocument, ByVal Prefijo As String, ByRef namespaces As XmlNamespaceManager, ByVal VersionCFDI As String) As Factura + Dim Fact = New Factura() + Fact.Version = VersionCFDI + Fact.CveEmpresa = CveEmpresa + Fact.Serie = CaratecteresvalidosFolio(ValorXML(nodo, "serie")) + If Not String.IsNullOrEmpty(Fact.Serie) Then Fact.Serie = Fact.Serie + Fact.Folio = ValorXML(nodo, "folio").TrimStart("0"c) + Fact.Fecha = ValorXML(nodo, "fecha").ToDateTime + Fact.SubTotal = ValorXML(nodo, "subTotal").Replace("..", ".").ToDecimal + Fact.Total = ValorXML(nodo, "total").ToDecimal + Fact.Moneda = ValorXML(nodo, "Moneda") + Fact.MetododePago = ValorXML(nodo, "MetododePago") + Fact.TipoComprobante = ValorXML(nodo, "tipoDeComprobante") + Fact.TipoCambio = ValorXML(nodo, "TipoCambio", "1.0").ToDecimal + If Fact.TipoCambio < 1 Then Fact.TipoCambio = 1 + + If Fact.TipoComprobante = "P" Then + Dim PagoPrefix As String = "" + + If VersionCFDI = "3.3" Then + PagoPrefix = "pago10" + namespaces.AddNamespace("pago10", "http://www.sat.gob.mx/Pagos") + ElseIf VersionCFDI = "4.0" Then + PagoPrefix = "pago20" + namespaces.AddNamespace("pago20", "http://www.sat.gob.mx/Pagos20") + End If + + Dim NodoComplementos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", Prefijo), namespaces) + Dim nodePagos As XmlNode = NodoComplementos.SelectSingleNode($"//{PagoPrefix}:Pagos", namespaces) + + For Each nPago As XmlNode In nodePagos.ChildNodes + Fact.Total = ValorXML(nPago, "Monto").ToDecimal + If VersionCFDI = "4.0" And nPago.LocalName.ToUpper() = "TOTALES" Then + Continue For + Else + Exit For + End If + Next + End If + + Fact.sUPPrefijo = Prefijo + node = XMLDoc.SelectSingleNode(String.Format("//{0}:Emisor", Prefijo), namespaces) + + If node IsNot Nothing AndAlso node.Attributes.Count > 0 Then + Fact.EmisorRFC = ValorXML(node, "RFC").Trim() + Fact.EmisorNombre = ValorXML(node, "nombre") + End If + + node = XMLDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces) + + If node IsNot Nothing Then + Fact.ReceptorRFC = ValorXML(node, "RFC").Trim() + End If + + If XMLDoc.HasChildNodes Then + node = XMLDoc.ChildNodes(0).ChildNodes.Cast(Of XmlNode)().Where(Function(n, b) n.Name.Equals(String.Format("{0}:Impuestos", Prefijo), StringComparison.OrdinalIgnoreCase)).FirstOrDefault() + + If XMLDoc.ChildNodes.Count > 1 Then + node = XMLDoc.ChildNodes(1).ChildNodes.Cast(Of XmlNode)().Where(Function(n, b) n.Name.Equals(String.Format("{0}:Impuestos", Prefijo), StringComparison.OrdinalIgnoreCase)).FirstOrDefault() + End If + End If + + If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then + + Try + Dim nodeRetenciones = node.ChildNodes.Cast(Of XmlNode)().Where(Function(n, b) n.Name.Equals(String.Format("{0}:Retenciones", Prefijo), StringComparison.OrdinalIgnoreCase)) + Fact.TotalRetenciones = ValorXML(node, "totalImpuestosRetenidos", "0").ToDecimal + + Try + Dim retenciones = nodeRetenciones.FirstOrDefault().ChildNodes + + For Each retencion As XmlNode In retenciones + Dim TipoImpuesto As String = ValorXML(retencion, "impuesto") + Dim importe As Decimal = ValorXML(retencion, "importe").ToDecimal + + If TipoImpuesto = "002" Then + Fact.RetencionIVA += importe + End If + + If TipoImpuesto = "001" Then + Fact.RetencionISR += importe + End If + Next + + Catch ex As Exception + End Try + + Fact.SumaTotalRetenciones += Fact.RetencionIVA + Fact.SumaTotalRetenciones += Fact.RetencionISR + Fact.TotalTraslados = ValorXML(node, "totalImpuestosTrasladados", "0").ToDecimal + Dim nodeTraslados = node.ChildNodes.Cast(Of XmlNode)().Where(Function(n, b) n.Name.Equals(String.Format("{0}:Traslados", Prefijo), StringComparison.OrdinalIgnoreCase)) + Dim traslados = nodeTraslados.FirstOrDefault().ChildNodes + + For Each traslado As XmlNode In traslados + Dim TipoImpuesto As String = ValorXML(traslado, "impuesto") + Dim importe As Decimal = ValorXML(traslado, "importe").ToDecimal() + + If TipoImpuesto = "003" Then + Fact.TrasladoIEPS += importe + End If + + If TipoImpuesto = "002" Then + Fact.TrasladoIVA += importe + End If + + If TipoImpuesto = "001" Then + Fact.TrasladoISR += importe + End If + Next + + Fact.SumaTotalTraslados += Fact.TrasladoIVA + Fact.TrasladoIEPS + Catch ex As Exception + ex.ToString().GuardaLog() + End Try + End If + + Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", Prefijo), namespaces) + + If nodeComp IsNot Nothing AndAlso nodeComp.ChildNodes.Count > 0 Then + Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces) + Fact.UUID = ValorXML(nodeTFD, "UUID", "") + Dim nodeRF As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CFDIRegistroFiscal ", "registrofiscal"), namespaces) + + If nodeRF IsNot Nothing Then + Fact.Folio = ValorXML(nodeRF, "folio").TrimStart("0"c) + End If + Else + Fact.UUID = "" + + If String.IsNullOrEmpty(Fact.UUID) AndAlso Fact.sUPPrefijo.ToLower() = "cfdi" Then + 'Mensajes.AppendFormat("{0}|{1}|{2}|{3}|{4}|{5}{6}&", ValorXML(nodo, "serie"), ValorXML(nodo, "folio"), ValorXML(nodo, "fecha").ToDate().ToShortDateString(), Fact.EmisorNombre, ValorXML(nodo, "total").ToDouble().FormatoNumero(), "Factura no timbrada correctamente.", "") + 'CargaMensaje(ValorXML(nodo, "serie"), ValorXML(nodo, "folio"), ValorXML(nodo, "fecha").ToDate(), Fact.EmisorNombre, ValorXML(nodo, "total").ToDouble(), "Factura no timbrada correctamente.", CorreoActual, DateTime.Now, _EmiRFC, 0) + End If + + Fact = Nothing + End If + + If Fact.TipoComprobante = "P" Then + CargaPagos(XMLDoc) + End If + + Return Fact + End Function + + Private Sub CargaPagos(ByVal XMLDoc As XmlDocument) + Dim nodo = XMLDoc.DocumentElement + Dim Prefijo As String = If(String.IsNullOrEmpty(XMLDoc.DocumentElement.Prefix), "cfd", XMLDoc.DocumentElement.Prefix) + Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3" + Dim namespaces As XmlNamespaceManager = New XmlNamespaceManager(XMLDoc.NameTable) + Dim Version = ValorXML(nodo, "version").Replace("..", ".") + Dim PrefijoPagos As String = "" + If Prefijo.ToLower() <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2" + + If Version = "3.3" Then + PrefijoPagos = "pago10" + namespaces.AddNamespace(PrefijoPagos, "http://www.sat.gob.mx/Pagos") + Prefijo = "cfdi" + cfdVer = "http://www.sat.gob.mx/cfd/3" + namespaces.AddNamespace(Prefijo, cfdVer) + ElseIf Version = "4.0" Then + PrefijoPagos = "pago20" + namespaces.AddNamespace(PrefijoPagos, "http://www.sat.gob.mx/Pagos20") + Prefijo = "cfdi" + cfdVer = "http://www.sat.gob.mx/cfd/4" + namespaces.AddNamespace(Prefijo, cfdVer) + Else + End If + + Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", Prefijo), namespaces) + + If Version = "3.2" Then + ElseIf Version = "3.3" OrElse Version = "4.0" Then + + If nodeComp IsNot Nothing AndAlso nodeComp.ChildNodes.Count > 0 Then + Dim NodosNodePagos As XmlNodeList = nodeComp.SelectNodes($"//{PrefijoPagos}:Pago", namespaces) + + If NodosNodePagos IsNot Nothing Then + + Try + Dim nodePagos As XmlNode = nodeComp.SelectSingleNode($"//{PrefijoPagos}:Pagos", namespaces) + + If Version = "3.3" Then + XMLNodosPagos = nodePagos.InnerXml.Replace("pago10:", "").Replace("pagos10:", "").Replace(PrefijoPagos & ":", "") + Else + XMLNodosPagos = nodePagos.InnerXml.Replace("pago20:", "").Replace("pagos20:", "").Replace(PrefijoPagos & ":", "") + End If + + Catch ex As Exception + ModExtensiones.GuardaLog(ex.ToString()) + End Try + End If + + Dim Pagos = New List(Of Pago)() + Dim FechaPago As Date + For Each nodePago As XmlNode In NodosNodePagos + + Try + FechaPago = ValorXML(nodePago, "FechaPago").ToDate() + Catch e As Exception + End Try + + Dim pago = New Pago() + pago.FechaPago = FechaPago + pago.FormaDePagoP = ValorXML(nodePago, "FormaDePagoP").ToString() + pago.MonedaP = ValorXML(nodePago, "MonedaP").ToString() + pago.Monto = ValorXML(nodePago, "Monto").ToString().ToDecimal() + Dim docs = New List(Of DoctoRelacionado)() + Dim NodosPagosRelacionados As XmlNodeList = nodePago.SelectNodes($"//{PrefijoPagos}:DoctoRelacionado", namespaces) + + For Each docto As XmlNode In NodosPagosRelacionados + Dim idDoc = ValorXML(docto, "idDocumento") + Dim ImportePago = ValorXML(docto, "ImpPagado").ToDecimal() + Dim serie = ValorXML(docto, "Serie") + Dim Folio = ValorXML(docto, "Folio") + Dim MonedaDR = ValorXML(docto, "MonedaDR") + Dim MetodoDePagoDR = ValorXML(docto, "MetodoDePagoDR") + Dim NumParcialidad = ValorXML(docto, "NumParcialidad") + Dim ImpSaldoInsoluto = ValorXML(docto, "ImpSaldoInsoluto").ToDecimal() + Dim ImpSaldoAnt = ValorXML(docto, "ImpSaldoAnt").ToDecimal() + docs.Add(New DoctoRelacionado() With { + .idDocumento = idDoc, + .ImportePago = ImportePago, + .Serie = serie, + .Folio = Folio, + .MonedaDR = MonedaDR, + .MetodoDePagoDR = MetodoDePagoDR, + .NumParcialidad = NumParcialidad, + .ImpSaldoAnt = ImpSaldoAnt, + .ImpSaldoInsoluto = ImpSaldoInsoluto + }) + Next + + pago.Documentos = docs + Pagos.Add(pago) + Next + + Me.Pagos = Pagos + End If + End If + End Sub + Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String + Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0) + If o Is Nothing Then + Return Retorno + Else + Return o.Value + End If + End Function + Private Function CaratecteresvalidosFolio(ByVal Folio As String) As String + Dim Respuesta As String = "" + + 'For Each c As Char In Folio.ToArray() + + ' If (c >= 48 AndAlso c <= 57) OrElse (c >= 65 AndAlso c <= 90) OrElse (c >= 97 AndAlso c <= 122) Then + ' Respuesta += c + ' End If + 'Next + Return Respuesta + End Function + + 'Private Sub CargaDesdeString(StrFuente As String) + ' Dim XMLCargaExistosa As Boolean = False + ' Dim XMlStr As String = StrFuente.Replace("<br>", "").Replace("<", "").Replace("o;?", "") + ' Dim XMLDoc As New XmlDocument + ' Try + ' XMLDoc.LoadXml(XMlStr) + ' XMLCargaExistosa = True + ' Catch ex As Exception + ' GuardaLog("Error al intentar leer . Error:" & ex.ToString()) + ' 'Errores.AppendLine("Error al intentar leer el XML. Error:" & ex.ToString()) + ' XMLCargaExistosa = False + ' End Try + + ' If XMLCargaExistosa Then + ' CargaComprobanteXML(XMLDoc) + ' End If + + 'End Sub + Public Function CargaComprobanteXML(StrFuente As String, DirectorioEmpresa As String, RFCEmpresa As String, CveEmpresa As Integer, Registrar As Boolean, ByRef rowLog As DataRow, NombreArchivo As String) As Factura + + + Dim SeValido As Boolean = False + Dim XMLCargaExistosa As Boolean = False + Dim XMlStr As String = StrFuente.Replace("<br>", "").Replace("<", "").Replace("o;?", "") + Dim XMLDoc As New XmlDocument + + Try + XMLDoc.LoadXml(XMlStr) + XMLCargaExistosa = True + Catch ex As Exception + GuardaLog("Error al intentar leer . Error:" & ex.ToString()) + 'Errores.AppendLine("Error al intentar leer el XML. Error:" & ex.ToString()) + XMLCargaExistosa = False + End Try + + If Not XMLCargaExistosa Then + rowLog("Motivo") = $"Error extructura XML archivo {NombreArchivo}" + Return Nothing + End If + + Dim nodo As XmlNode = XMLDoc.DocumentElement + Dim Fact As Factura = New Factura() + Fact.Serie = ValorXML(nodo, "serie") + + Dim StrCFDIVersion As String = ValorXML(nodo, "version") + + Fact.Version = StrCFDIVersion + + Fact.Folio = ValorXML(nodo, "folio") + Fact.Fecha = ValorXML(nodo, "fecha").ToDate + Fact.SubTotal = ValorXML(nodo, "subTotal").ToDecimal + Fact.Total = ValorXML(nodo, "total").ToDecimal + Fact.Descuento = ValorXML(nodo, "descuento").ToDecimal + Fact.Moneda = ValorXML(nodo, "Moneda") + Fact.CveMoneda = ClsPaginas.GlobalDTMonedas().FiltroPrimeroValor("CveMoneda", $" AbreviaturaSAT = '{Fact.Moneda}' ").ToEntero + Fact.TipoComprobante = ValorXML(nodo, "tipoDeComprobante") + Fact.TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDecimal + Fact.noCertificado = ValorXML(nodo, "NoCertificado") + Fact.FormaDePago = ValorXML(nodo, "formaDePago") + Fact.condicionesDePago = ValorXML(nodo, "condicionesDePago", "") + Fact.NumCtaPagoNumCtaPago = ValorXML(nodo, "NumCtaPago", "") + + If Fact.Version = "3.3" Or Fact.Version = "4.0" Then + Dim drm As DataRow = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago"))) + If drm IsNot Nothing Then + Fact.MetododePago = drm("MetodoPagoSAT").ToString + End If + End If + + Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) + Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) + Dim cfdVer As String = "" + + If StrCFDIVersion = "3.2" Then + Prefijo = "cfd" + cfdVer = "http://www.sat.gob.mx/cfd/2" + ElseIf StrCFDIVersion = "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("aerolineas", "http://www.sat.gob.mx/aerolineas") + 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") + + Fact.sUPPrefijo = Prefijo + + If StrCFDIVersion = "3.2" Then + + For i As Integer = 0 To XMLDoc.DocumentElement.ChildNodes(2).ChildNodes.Count - 1 + nodo = XMLDoc.DocumentElement.ChildNodes(2).ChildNodes(i) + Fact.AddPS(Convert.ToDouble(nodo.Attributes.GetNamedItem("cantidad").Value), nodo.Attributes.GetNamedItem("unidad").Value, nodo.Attributes.GetNamedItem("descripcion").Value, Convert.ToDouble(nodo.Attributes.GetNamedItem("valorUnitario").Value), 0, Convert.ToDouble(nodo.Attributes.GetNamedItem("importe").Value)) + Next + + Try + + Dim nodosEmisor = XMLDoc.DocumentElement.ChildNodes.Cast(Of XmlNode)().FirstOrDefault(Function(n) n.Name.Equals("cfdi:Emisor", StringComparison.OrdinalIgnoreCase)) + + Dim nodoEmisor As XmlNode = nodosEmisor + + Fact.EmiRFC = ValorXML(nodoEmisor, "rfc", "") + Fact.EmiNombre = ValorXML(nodoEmisor, "nombre", "") + + nodoEmisor = nodosEmisor.ChildNodes(0) + Fact.DomFisCalle = ValorXML(nodoEmisor, "calle", "") + Fact.DomFisNoExt = ValorXML(nodoEmisor, "noExterior", "") + Fact.DomFisCol = ValorXML(nodoEmisor, "colonia", "") + Fact.DomFisCP = ValorXML(nodoEmisor, "codigoPostal", "") + Fact.DomFisMun = ValorXML(nodoEmisor, "municipio", "") + Fact.DomFisLoc = ValorXML(nodoEmisor, "localidad", "") + Fact.DomFisEst = ValorXML(nodoEmisor, "estado", "") + Fact.DomFisPais = ValorXML(nodoEmisor, "pais", "") + + nodoEmisor = nodosEmisor.ChildNodes(1) + Fact.ExpEnCalle = ValorXML(nodoEmisor, "calle", "") + Fact.ExpEnNoExt = ValorXML(nodoEmisor, "noExterior", "") + Fact.ExpEnCol = ValorXML(nodoEmisor, "colonia", "") + Fact.ExpEnCP = ValorXML(nodoEmisor, "codigoPostal", "") + Fact.ExpEnMun = ValorXML(nodoEmisor, "municipio", "") + Fact.ExpEnLoc = ValorXML(nodoEmisor, "localidad", "") + Fact.ExpEnEst = ValorXML(nodoEmisor, "estado", "") + Fact.ExpEnPais = ValorXML(nodoEmisor, "pais", "") + + nodoEmisor = nodoEmisor.ChildNodes(2) + Fact.Regimen = ValorXML(nodo, "Regimen", "") + Catch ex As Exception + Throw New Exception($"Error CargaEmisorXML - {ex.Message} - {ex.StackTrace}") + End Try + + Try + Dim nodosReceptor = XMLDoc.DocumentElement.ChildNodes.Cast(Of XmlNode)().FirstOrDefault(Function(n) n.Name.Equals("cfdi:Receptor", StringComparison.OrdinalIgnoreCase)) + + Dim nodoReceptor As XmlNode = nodosReceptor + Fact.RecRfc = ValorXML(nodoReceptor, "rfc", "") + Fact.RecNombre = ValorXML(nodoReceptor, "nombre", "") + + nodoReceptor = nodosReceptor.ChildNodes(0) + Fact.DomRecCalle = ValorXML(nodoReceptor, "calle", "") + Fact.DomRecFisNoExt = ValorXML(nodoReceptor, "noExterior", "") + Fact.DomRecFisNoInt = ValorXML(nodoReceptor, "noInterior", "") + Fact.DomRecCol = ValorXML(nodoReceptor, "colonia", "") + Fact.DomRecCP = ValorXML(nodoReceptor, "codigoPostal", "") + Fact.DomRecMun = ValorXML(nodoReceptor, "municipio", "") + Fact.DomRecLoc = ValorXML(nodoReceptor, "localidad", "") + Fact.DomRecEst = ValorXML(nodoReceptor, "estado", "") + Fact.DomRecPais = ValorXML(nodoReceptor, "pais", "") + Catch ex As Exception + Throw New Exception($"Error CargaReceptorXML - {ex.Message} - {ex.StackTrace}") + End Try + + + ElseIf StrCFDIVersion = "3.3" OrElse StrCFDIVersion = "4.0" Then + Try + Dim nodos = XMLDoc.DocumentElement.ChildNodes.Cast(Of XmlNode)().Where(Function(n) n.Name.Equals("cfdi:Conceptos", StringComparison.OrdinalIgnoreCase)).FirstOrDefault().ChildNodes + + For Each item As XmlNode In nodos + Dim cantidad = Convert.ToDouble(item.Attributes.Cast(Of XmlAttribute)().Where(Function(n) n.Name.Equals("cantidad", StringComparison.OrdinalIgnoreCase)).FirstOrDefault().Value) + Dim unidad = item.Attributes.Cast(Of XmlAttribute)().Where(Function(n) n.Name.Equals("ClaveUnidad", StringComparison.OrdinalIgnoreCase)).FirstOrDefault().Value + Dim descripcion = item.Attributes.Cast(Of XmlAttribute)().Where(Function(n) n.Name.Equals("descripcion", StringComparison.OrdinalIgnoreCase)).FirstOrDefault().Value + Dim valorUnitario = Convert.ToDouble(item.Attributes.Cast(Of XmlAttribute)().Where(Function(n) n.Name.Equals("valorUnitario", StringComparison.OrdinalIgnoreCase)).FirstOrDefault().Value) + Dim importe = Convert.ToDouble(item.Attributes.Cast(Of XmlAttribute)().Where(Function(n) n.Name.Equals("importe", StringComparison.OrdinalIgnoreCase)).FirstOrDefault().Value) + + Fact.AddPS(cantidad, unidad, descripcion, valorUnitario, 0, importe) + Next + Catch ex As Exception + Throw New Exception($"Error CargaConceptosXML - {ex.Message} - {ex.StackTrace}") + End Try + End If + + + + If Fact.TipoComprobante.ToUpper = "E" AndAlso (Fact.Version.Contiene("3.3", "4.0")) Then + Dim UUIDS As String = "" + + Dim UUIDSLista As New List(Of String) + Dim nodeCFDIRelacionados As XmlNode + nodeCFDIRelacionados = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) + + If nodeCFDIRelacionados IsNot Nothing Then + For Each CFDIRelacionados As XmlNode In nodeCFDIRelacionados + UUIDSLista.Add("" & CFDIRelacionados.Attributes("UUID").Value.ToString & "") + Next + End If + End If + + Dim node As XmlNode + node = XMLDoc.SelectSingleNode(String.Format("//{0}:Emisor", Prefijo), namespaces) + + If node IsNot Nothing Then + Fact.EmisorRFC = ValorXML(node, "RFC") + Fact.EmisorNombre = ValorXML(node, "Nombre") + End If + + node = XMLDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces) + + If node IsNot Nothing Then + Fact.ReceptorRFC = ValorXML(node, "RFC") + End If + + node = XMLDoc.SelectSingleNode(String.Format("//{0}:Impuestos", Prefijo), namespaces) + If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then + Dim nodeRetenciones As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Retenciones/{0}:Retencion", Prefijo), namespaces) + + If Fact.Version.Contiene("3.3", "4.0") Then + + For Each retencion As XmlNode In nodeRetenciones + If retencion.Attributes("Impuesto").Value = "002" Then Fact.RetencionIVA += retencion.Attributes("Importe").Value.ToDecimal + If retencion.Attributes("Impuesto").Value = "001" Then Fact.RetencionISR += retencion.Attributes("Importe").Value.ToDecimal + Next + + Else + + For Each retencion As XmlNode In nodeRetenciones + If retencion.Attributes("impuesto").Value = "IVA" Then Fact.RetencionIVA += retencion.Attributes("importe").Value.ToDecimal + If retencion.Attributes("impuesto").Value = "ISR" Then Fact.RetencionISR += retencion.Attributes("importe").Value.ToDecimal + Next + End If + + Dim nodeTraslados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces) + + If Fact.Version.Contiene("3.3", "4.0") Then + + For Each traslado As XmlNode In nodeTraslados + + If traslado.Attributes("Importe") IsNot Nothing Then + If traslado.Attributes("Impuesto").Value = "002" Then Fact.TrasladoIVA += traslado.Attributes("Importe").Value.ToDecimal + If traslado.Attributes("Impuesto").Value = "003" Then Fact.TrasladoIEPS += traslado.Attributes("Importe").Value.ToDecimal + End If + Next + Else + + For Each traslado As XmlNode In nodeTraslados + If traslado.Attributes("Importe") IsNot Nothing Then + If traslado.Attributes("impuesto").Value = "IVA" Then Fact.TrasladoIVA += traslado.Attributes("importe").Value.ToDecimal + + If traslado.Attributes("impuesto").Value = "IEPS" Then Fact.TrasladoIEPS += traslado.Attributes("importe").Value.ToDecimal + End If + Next + End If + + End If + + Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", Prefijo), namespaces) + If nodeComp IsNot Nothing AndAlso nodeComp.ChildNodes.Count > 0 Then + + Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces) + Fact.UUID = ValorXML(nodeTFD, "UUID", "") + + Dim nodeRF As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CFDIRegistroFiscal ", "registrofiscal"), namespaces) + If nodeRF IsNot Nothing Then + Fact.Folio = ValorXML(nodeRF, "folio").TrimStart("0"c) + End If + End If + + If Fact.TipoComprobante = "P" Then + CargaPagos(XMLDoc, Fact) + End If + + rowLog("Serie") = Fact.Serie + rowLog("Folio") = Fact.Folio + rowLog("Fecha") = Fact.Fecha + rowLog("Proveedor") = Fact.EmisorNombre + rowLog("Importe") = Fact.Total + rowLog("Motivo") = "" + + rowLog("RFCde") = Fact.EmisorRFC + rowLog("Estatus") = 0 + rowLog("Tipo") = Fact.TipoComprobante + + + + If Registrar Then + + If Fact.ReceptorRFC = RFCEmpresa Then + + Dim ObjCompra As New ClsCompras + Dim Correcto As Boolean = False + + ObjCompra.IniciaTransacSQL() + + Fact.RespuestaInsert = ObjCompra.AddFactura(Fact.Serie, Fact.Folio, Fact.Fecha, Fact.EmisorNombre, Fact.EmisorRFC, Fact.SubTotal, Fact.TrasladoIVA, Fact.Total, Fact.UUID, Fact.ReceptorRFC, "", "", Fact.Version, Fact.Descuento, Fact.TipoCambio, Fact.Validada, CveEmpresa, Fact.sUPPrefijo, Fact.TipoComprobante, Fact.Moneda, Fact.MetododePago, 3, Fact.Version, Fact.IEPS, Fact.RetencionIVA, Fact.RetencionISR) + + If Fact.RespuestaInsert >= 0 Then + + rowLog("Estatus") = 1 + + Dim Destino As String = $"{DirectorioEmpresa}\Compras\" + + Try + If Not Directory.Exists(Destino & Fact.EmisorRFC) Then + Directory.CreateDirectory(Destino & Fact.EmisorRFC) + End If + + Select Case Fact.RespuestaInsert + Case 0 + Dim RRutaDestino As String = String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjCompra.CveFactura) + ModExtensiones.GuardaLog(String.Format(" '--------{0} Compra ya insertada : {1}{2} - {3}", 1, Fact.Serie, Fact.Folio, RRutaDestino)) + + File.WriteAllText(RRutaDestino, StrFuente, UTF8Encoding.UTF8) + 'ObjCompra.UpdateArchivo(ObjCompra.CveFactura, "XML") + ModExtensiones.GuardaLog(" '--------XML Actualizado ") + rowLog("Motivo") = $"Ya registrado {Fact.Serie}-{Fact.Folio} se actualiza XML." + + Correcto = True + Exit Select + + Case 1 + + Dim StrMover As String = "" + Try + File.WriteAllText(String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjCompra.CveFactura), StrFuente, UTF8Encoding.UTF8) + ' ObjCompra.UpdateArchivo(ObjCompra.CveFactura, "XML") + ModExtensiones.GuardaLog($" '-------- XML Guardado Factura: {Fact.Serie}-{Fact.Folio} UUID: {Fact.UUID} , RFC Emisor: {Fact.EmisorRFC}") + + ' Si se movieron los dos archivos, los marca como correcto + If File.Exists(String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjCompra.CveFactura)) Then + Correcto = True + Else + Correcto = False + End If + + ModExtensiones.GuardaLog(" '++++++++ Compra Insertada :" & Fact.Serie & Fact.Folio & " - Correcto:" & If(Correcto, "Si", "No" & " Obs: ")) + rowLog("Motivo") = $"Agregado {Fact.Serie}-{Fact.Folio}" + + Catch ex As Exception + StrMover = ex.Message + Correcto = False + ModExtensiones.GuardaLog(" '++++++++ Compra no Insertada :" & Fact.Serie & Fact.Folio & " - Correcto:" & If(Correcto, "Si", "No" & " Obs: ") & StrMover) + rowLog("Motivo") = $"Error al agregar {Fact.Serie}-{Fact.Folio}" + End Try + + Exit Select + End Select + + Catch ex As Exception + Correcto = True + GuardaLog(ex.ToString()) + End Try + + Else + rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Error al insertar" + End If + + + If Correcto Then + ObjCompra.Commit() + Fact.CveFactura = ObjCompra.CveFactura + Fact.ArchivoXML = $"{ObjCompra.CveFactura}.xml" + Else + ObjCompra.RollBack() + End If + + ObjCompra.Dispose() + + Else + ModExtensiones.GuardaLog($" '++++++++ Compra RFC Distinto RFC Empresa: {RFCEmpresa}, RFC XML: {Fact.ReceptorRFC} ") + rowLog("Motivo") = "RFC Distinto" + rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Incorrecto" + End If + + End If + + + Return Fact + End Function + + + + + + Public Function GeneraPDF(ByVal Ruta As String, ByVal Fact As Factura, DirectorioEmpresa As String, Guardar As Boolean) As Boolean + Dim RutaXML As String = String.Empty + Dim RutaPDF As String = String.Empty + Dim Retorno As Boolean = False + Try + Dim XMLDoc As New XmlDocument() + Dim TmpArchivoPDF As String = $"{Ruta}\Temp\Facturas\{Path.GetFileNameWithoutExtension(Fact.ArchivoXML)}-ttt.pdf" + Dim TmpArchivoQR As String = $"{Ruta}\Temp\Facturas\{Path.GetFileNameWithoutExtension(Fact.ArchivoXML)}-ttt.jpg" + Dim ArchivoXML As String = String.Format("{0}\Compras\{2}\{1}", DirectorioEmpresa, Fact.ArchivoXML, Fact.EmisorRFC) + Dim ArchivoPDF As String = String.Format("{0}\Compras\{2}\{1}.pdf", DirectorioEmpresa, Fact.CveFactura, Fact.EmisorRFC) + Dim dtotal As Decimal = If(Fact.Total <= 0.0D, 0.0001D, Fact.Total) + Dim cfdi As New RVCFDI33.GeneraCFDI() + + Try + Dim b As Byte() = cfdi.ConvertirQrCode(String.Format("?re={0}&rr={1}&tt={2}&id={3}", Fact.EmisorRFC, Fact.ReceptorRFC, String.Format("{0,12:F6}", dtotal).Trim(), Fact.UUID)) + File.WriteAllBytes(TmpArchivoQR, b) + Catch ex As Exception + ModExtensiones.GuardaLog(ex.Message) + End Try + + If System.IO.File.Exists(TmpArchivoQR) Then + Dim TipoDocto As String = "" + If Fact.Version = "3.3" Or Fact.Version = "4.0" Then + Select Case Fact.TipoComprobante + Case "I" + TipoDocto = "Ing" + Case "E" + TipoDocto = "Egs" + Case "P" + TipoDocto = "Pag" + Case "T" + TipoDocto = "Tra" + Case Else + End Select + Else + TipoDocto = Fact.TipoComprobante + End If + + 'Dim DtPagos As DataTable = Nothing + 'Dim DtDocumentosR As DataTable = Nothing + + If Fact.TipoComprobante.Contiene("P", "T") Then + ModExtensiones.GuardaLog(String.Format(" '--------PDF Generar Tipo {0}", Fact.TipoComprobante)) + Retorno = GenGoPdf(ArchivoXML, TmpArchivoPDF, DirectorioEmpresas) + Fact.ArchivoPDF = Path.GetFileName(TmpArchivoPDF) + + Try + If Guardar Then + If File.Exists(ArchivoPDF) Then + File.Delete(ArchivoPDF) + End If + File.Move(TmpArchivoPDF, ArchivoPDF) + End If + Retorno = True + Catch ex As Exception + Retorno = False + End Try + + Else + + If (Fact.Version = "3.3" Or Fact.Version = "4.0") Then + Dim cxml As XmlSatCFDI = XmlSatCFDI.readXML(ArchivoXML) + ModExtensiones.GuardaLog(String.Format(" *********** UUID : {0} ***********", cxml.complemento.UUID)) + cxml.ImprimirPDF(TmpArchivoPDF, DirectorioEmpresa, Fact.TipoComprobante) + Fact.ArchivoPDF = Path.GetFileName(TmpArchivoPDF) + + Try + If Guardar Then + If File.Exists(ArchivoPDF) Then + File.Delete(ArchivoPDF) + End If + File.Move(TmpArchivoPDF, ArchivoPDF) + End If + Retorno = True + Catch ex As Exception + Retorno = False + End Try + + Else + ModExtensiones.GuardaLog(String.Format(" *********** TFDUUID : {0} ***********", Fact.UUID)) + Dim DomFiscal As String = String.Format("Domicilio Fiscal {0}{1} {2}{0}Col.{3}{0}CP. {4} {5},{6},{7}", vbCr, Fact.DomFisCalle, Fact.DomFisNoExt, Fact.DomFisCol, Fact.DomFisCP, Fact.DomFisMun, Fact.DomFisEst, Fact.DomFisPais) + + If GeneraPDFNew(TmpArchivoPDF, Fact.UUID, Fact.SubTotal, Fact.Descuento, Fact.Total, Fact.TrasladoIVA.FormatoNumero(), Fact.Moneda, Fact.FormaDePago, Fact.TFDNoCertSAT, Fact.TFDFechaTimbrado.ToDate(), Fact.noCertificado, + Fact.DTConceptos, Fact.TFDSelloCFD, Fact.TFDSelloSAT, TmpArchivoQR, Fact.Serie + Fact.Folio, Fact.TipoComprobante, "", Fact.ReceptorRFC, Fact.RecNombre, Fact.DomRecCalle, Fact.DomRecCol, Fact.DomRecFisNoExt, + Fact.DomRecFisNoInt, Fact.DomRecCP, Fact.DomRecMun, Fact.DomRecEst, Fact.Regimen, Fact.condicionesDePago, Fact.MetododePago, Fact.NumCtaPagoNumCtaPago, NowADS, Fact.DtPagos, Fact.DtDocumentosR, Fact.RetencionIVA, + Fact.RetencionISR, Fact.EmiNombre, Fact.EmiRFC, Fact.ReceptorNombre, DirectorioEmpresa, DomFiscal) Then + + Fact.ArchivoPDF = Path.GetFileName(TmpArchivoPDF) + Retorno = True + + If Guardar Then + + End If + + End If + + + + End If + + File.Delete(TmpArchivoQR) + + End If + + RutaPDF = TmpArchivoPDF + Else + Retorno = False + + End If + 'If DTConceptos IsNot Nothing Then DTConceptos.Dispose() + Catch ex As Exception + Dim MensajeError As String = "***********Ocurrio un error al generar el pdf: " & ex.Message & "" + + If ex.InnerException Is Nothing Then + MensajeError &= "." + Else + MensajeError &= " - " & ex.InnerException.ToString() + End If + + ModExtensiones.GuardaLog(MensajeError) + End Try + Return Retorno + End Function + + + Private Function GeneraPDFNew(ByVal TmpArchivoPDF As String, ByVal FolioFiscal As String, ByVal SubTotal As Decimal, ByVal Descuento As Decimal, ByVal Total As Decimal, ByVal IVA As String, ByVal Moneda As String, ByVal FormaDePago As String, + ByVal NoSerieCertificado As String, ByVal FechaCertificacion As DateTime, ByVal NoSerieCertificadoContribuyente As String, ByVal DTConceptos As DataTable, ByVal SelloCFDi As String, ByVal SelloSAT As String, + ByVal CBB As String, ByVal Folio As String, ByVal TipodeComprobante As String, ByVal CadenaOriginalCFD As String, ByVal RFC As String, ByVal Cliente As String, ByVal Direccion As String, ByVal Colonia As String, + ByVal NoExt As String, ByVal NoInt As String, ByVal CP As String, ByVal Ciudad As String, ByVal Estado As String, ByVal Regimen As String, ByVal CondicionPago As String, ByVal MetodoPago As String, ByVal NumCtaPago As String, + ByVal fecha As DateTime, Optional ByVal DtPagos As DataTable = Nothing, Optional ByVal DtRelacionados As DataTable = Nothing, Optional ByVal RetIVA As Double = 0, Optional ByVal RetISR As Double = 0, + Optional EmiNombre As String = "", Optional EmiRFC As String = "", Optional NombreEmpresa As String = "", Optional DirectorioEmpresa As String = "", Optional DomFiscal As String = "") As Boolean + + + Dim RutaRDLC As String = If(TipodeComprobante = "Pag", $"{DirectorioEmpresa}..\Grales\Formatos\CFDIPago.rdlc", $"{DirectorioEmpresa}..\Grales\Formatos\CFDI.rdlc") + + Dim Retorno As Boolean = False + Dim NombreArchivo As String = TmpArchivoPDF + Dim CadenaOriginal As String = "||1.0|" & FolioFiscal & "|" & FechaCertificacion.ToString("yyyy-MM-dd") & "T" & FechaCertificacion.ToString("HH:mm:ss") & "|" & SelloCFDi & "|" & NoSerieCertificado & "||" + Dim RutaFormato As String = RutaRDLC + + + Try + Dim Archivo As New System.IO.FileInfo(RutaFormato) + + If Archivo.Exists Then + Dim parametros As New List(Of ReportParameter)() + parametros.Add(New ReportParameter("FolioFiscal", FolioFiscal)) + parametros.Add(New ReportParameter("SubTotal", SubTotal.FormatoNumero())) + parametros.Add(New ReportParameter("Descuento", Descuento.FormatoNumero())) + parametros.Add(New ReportParameter("Total", Total.FormatoNumero())) + parametros.Add(New ReportParameter("IVA", IVA.FormatoNumero())) + parametros.Add(New ReportParameter("RetIVA", RetIVA.FormatoNumero())) + parametros.Add(New ReportParameter("RetISR", RetISR.FormatoNumero())) + parametros.Add(New ReportParameter("Moneda", Moneda)) + parametros.Add(New ReportParameter("FormaDePago", FormaDePago)) + parametros.Add(New ReportParameter("NoSerieCertificado", NoSerieCertificado)) + parametros.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString("yyyy-MM-dd") & "T" & FechaCertificacion.ToString("HH:mm:ss"))) + parametros.Add(New ReportParameter("NoSerieCertificadoContribuyente", NoSerieCertificadoContribuyente)) + parametros.Add(New ReportParameter("SelloCFDi", SelloCFDi)) + parametros.Add(New ReportParameter("SelloSAT", SelloSAT)) + parametros.Add(New ReportParameter("CBB", String.Format("file:///{0}", CBB))) + parametros.Add(New ReportParameter("Folio", Folio)) + parametros.Add(New ReportParameter("TipodeComprobante", TipodeComprobante.ToUpper())) + parametros.Add(New ReportParameter("CadenaOriginalCFD", CadenaOriginalCFD)) + parametros.Add(New ReportParameter("RFC", RFC)) + parametros.Add(New ReportParameter("Cliente", Cliente)) + parametros.Add(New ReportParameter("Direccion", Direccion)) + parametros.Add(New ReportParameter("Colonia", Colonia)) + parametros.Add(New ReportParameter("NoExt", NoExt)) + parametros.Add(New ReportParameter("NoInt", NoInt)) + parametros.Add(New ReportParameter("CP", CP)) + parametros.Add(New ReportParameter("Ciudad", Ciudad)) + parametros.Add(New ReportParameter("Estado", Estado)) + parametros.Add(New ReportParameter("Regimen", Regimen)) + parametros.Add(New ReportParameter("CondicionPago", CondicionPago)) + parametros.Add(New ReportParameter("MetodoPago", MetodoPago)) + parametros.Add(New ReportParameter("NumCtaPago", NumCtaPago)) + parametros.Add(New ReportParameter("fecha", fecha.ToString("yyyy-MM-dd") & "T" & fecha.ToString("HH:mm:ss"))) + parametros.Add(New ReportParameter("Fiscal", DomFiscal)) + parametros.Add(New ReportParameter("EmiNombre", EmiNombre)) + parametros.Add(New ReportParameter("EmiRFC", EmiRFC)) + parametros.Add(New ReportParameter("TotalLetra", ModExtensiones.Texto2Letras(Total))) + parametros.Add(New ReportParameter("Empresa", NombreEmpresa)) + + + + Using MR As New ReportViewer() + Dim rds1 As New ReportDataSource() + rds1.Name = "DsOC" + rds1.Value = DTConceptos + + MR.LocalReport.DataSources.Add(rds1) + + If DtPagos IsNot Nothing Then + Dim rds2 As New ReportDataSource() + rds2.Name = "DsPago" + rds2.Value = DtPagos + MR.LocalReport.DataSources.Add(rds2) + End If + If DtRelacionados IsNot Nothing Then + Dim rds3 As New ReportDataSource() + rds3.Name = "DsDocRelacionados" + rds3.Value = DtRelacionados + MR.LocalReport.DataSources.Add(rds3) + End If + + MR.LocalReport.ReportPath = RutaFormato + MR.ProcessingMode = ProcessingMode.Local + MR.LocalReport.EnableExternalImages = True + MR.LocalReport.SetParameters(parametros) + MR.LocalReport.Refresh() + + Dim warnings As Warning() = Nothing + Dim streamids As String() = Nothing + Dim mimeType As String = Nothing + Dim encoding As String = Nothing + Dim extension As String = Nothing + Dim bytes As Byte() = Nothing + bytes = MR.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings) + + Using fs As New FileStream(NombreArchivo, FileMode.Create) + fs.Write(bytes, 0, bytes.Length) + fs.Close() + End Using + End Using + Retorno = True + Else + ModExtensiones.GuardaLog("ERROR: No existe Formato Base") + End If + Catch ex As Exception + ModExtensiones.GuardaLog(String.Format("Ocurrio un Error al generar el reporte RLDC :" & ex.ToString())) + Retorno = False + End Try + Return Retorno + End Function + + + Private Sub CargaPagos(ByVal XMLDoc As XmlDocument, ByRef Fact As Factura) + + Fact.Pagos.Clear() + + Dim nodo = XMLDoc.DocumentElement + + Dim Prefijo As String = If(String.IsNullOrEmpty(XMLDoc.DocumentElement.Prefix), "cfd", XMLDoc.DocumentElement.Prefix) + Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3" + Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) + + Dim Version As String = ValorXML(nodo, "version").Replace("..", ".") + Dim PrefijoPagos As String = "" + + If Prefijo.ToLower() <> "cfdi" Then + cfdVer = "http://www.sat.gob.mx/cfd/2" + End If + + If Version = "3.3" Then + PrefijoPagos = "pago10" + namespaces.AddNamespace(PrefijoPagos, "http://www.sat.gob.mx/Pagos") + Prefijo = "cfdi" + cfdVer = "http://www.sat.gob.mx/cfd/3" + namespaces.AddNamespace(Prefijo, cfdVer) + ElseIf Version = "4.0" Then + PrefijoPagos = "pago20" + namespaces.AddNamespace(PrefijoPagos, "http://www.sat.gob.mx/Pagos20") + Prefijo = "cfdi" + cfdVer = "http://www.sat.gob.mx/cfd/4" + namespaces.AddNamespace(Prefijo, cfdVer) + End If + + Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", Prefijo), namespaces) + + If Version = "3.3" OrElse Version = "4.0" Then + If nodeComp IsNot Nothing AndAlso nodeComp.ChildNodes.Count > 0 Then + Dim NodosNodePagos As XmlNodeList = nodeComp.SelectNodes($"//{PrefijoPagos}:Pago", namespaces) + + If NodosNodePagos IsNot Nothing Then + Try + Dim nodePagos As XmlNode = nodeComp.SelectSingleNode($"//{PrefijoPagos}:Pagos", namespaces) + If Version = "3.3" Then + XMLNodosPagos = nodePagos.InnerXml.Replace("pago10:", "").Replace("pagos10:", "").Replace(PrefijoPagos & ":", "") + Else + XMLNodosPagos = nodePagos.InnerXml.Replace("pago20:", "").Replace("pagos20:", "").Replace(PrefijoPagos & ":", "") + End If + Catch ex As Exception + ModExtensiones.GuardaLog(ex.ToString()) + End Try + End If + + Dim Pagos As New List(Of Pago)() + For Each nodePago As XmlNode In NodosNodePagos + Dim FechaPago As DateTime = NowADS() + Try + FechaPago = ValorXML(nodePago, "FechaPago").ToDate() + Catch e As Exception + End Try + + Dim pago As New Pago() + pago.FechaPago = FechaPago + pago.FormaDePagoP = ValorXML(nodePago, "FormaDePagoP").ToString() + pago.MonedaP = ValorXML(nodePago, "MonedaP").ToString() + pago.Monto = ValorXML(nodePago, "Monto").ToString().ToDecimal() + + Dim docs As New List(Of DoctoRelacionado)() + Dim NodosPagosRelacionados As XmlNodeList = nodePago.SelectNodes($"//{PrefijoPagos}:DoctoRelacionado", namespaces) + + For Each docto As XmlNode In NodosPagosRelacionados + Dim idDoc = ValorXML(docto, "idDocumento") + Dim ImportePago = ValorXML(docto, "ImpPagado").ToDecimal() + Dim serie = ValorXML(docto, "Serie") + Dim Folio = ValorXML(docto, "Folio") + Dim MonedaDR = ValorXML(docto, "MonedaDR") + Dim MetodoDePagoDR = ValorXML(docto, "MetodoDePagoDR") + Dim NumParcialidad = ValorXML(docto, "NumParcialidad") + Dim ImpSaldoInsoluto = ValorXML(docto, "ImpSaldoInsoluto").ToDecimal() + Dim ImpSaldoAnt = ValorXML(docto, "ImpSaldoAnt").ToDecimal() + docs.Add(New DoctoRelacionado() With { + .idDocumento = idDoc, + .ImportePago = ImportePago, + .Serie = serie, + .Folio = Folio, + .MonedaDR = MonedaDR, + .MetodoDePagoDR = MetodoDePagoDR, + .NumParcialidad = NumParcialidad, + .ImpSaldoAnt = ImpSaldoAnt, + .ImpSaldoInsoluto = ImpSaldoInsoluto + }) + Next + + pago.Documentos = docs + Pagos.Add(pago) + Next + Fact.Pagos = Pagos + End If + End If + End Sub + + + Private Function GenGoPdf(ByVal XmlRutaArchivo As String, ByVal PDFRutaArchivo As String, DirectorioEmpresa As String) As Boolean + ModExtensiones.GuardaLog(" '--------PDF GenGoPdf Inicia ") + + Dim Respuesta As Boolean = False + Dim RutaRDLC As String = $"{DirectorioEmpresa}\Grales\Formatos\ReciboDePagoGOPDF.rdlc" 'String.Format("{0}{1}", Extensiones.ApplicationParameter.RutaArchivos, "Empresas\Grales\Formatos\ReciboDePagoGOPDF.rdlc") + + Dim Inicio As DateTime = DateTime.Now + Dim goPdf As New GoPdf.GoPdf() + Dim logotipo As Byte() = Nothing 'File.ReadAllBytes(@"C:\inetpub\WWWSIGGit\Empresas\119\Logo.jpg") + + Try + Dim XmlString As String = File.ReadAllText(XmlRutaArchivo) + Dim result As Byte() = goPdf.ExportarPdf(XmlString, logotipo, "", RutaRDLC, New GoPdf.Modelos.DatosAdicionales() With {.DomicilioReceptor = ""}) + + Dim Fin As DateTime = DateTime.Now + If result IsNot Nothing Then + File.WriteAllBytes(PDFRutaArchivo, result) + Respuesta = True + ModExtensiones.GuardaLog($" '--------PDF GenGoPdf Generado") + Else + ModExtensiones.GuardaLog($" '--------PDF GenGoPdf Error se genero nulo \n RDLC: {RutaRDLC} Ruta Xml: {XmlRutaArchivo} Ruta PDF: {PDFRutaArchivo} \n MensajeError: {goPdf.MensajeError} CodigoError :{goPdf.CodigoError}") + End If + Catch ex As Exception + ModExtensiones.GuardaLog($" '--------PDF GenGoPdf Error {ex.Message} -- > {ex.StackTrace} \n RDLC: {RutaRDLC} Ruta Xml: {XmlRutaArchivo} Ruta PDF: {PDFRutaArchivo}") + End Try + + ModExtensiones.GuardaLog(" '--------PDF GenGoPdf Finaliza ") + Return Respuesta + End Function + + + End Class + + + + ''' + ''' Clase para contener los valores de un xml CFDI cambio norma + ''' + Public Class XmlSatCFDI + Public Sub New() + comprobante = New CFDIComprobante() + emisor = New CFDIEmisor() + receptor = New CFDIReceptor() + complemento = New CFDIComplemento() + cFDIRelacionados = New List(Of CFDIRelacionado)() + conceptos = New List(Of CFDIConcepto)() + Impuestos = New List(Of CFDIImpuesto)() + End Sub + + Public comprobante As CFDIComprobante + Public emisor As CFDIEmisor + Public receptor As CFDIReceptor + Public complemento As CFDIComplemento + Public cFDIRelacionados As List(Of CFDIRelacionado) + Public conceptos As List(Of CFDIConcepto) + Public Impuestos As List(Of CFDIImpuesto) + + Public Function GetConceptosforpdf() As List(Of CFDIConcepto_I) + Dim lcon As New List(Of CFDIConcepto_I)() + If conceptos IsNot Nothing Then + Dim _orden As Integer = 0 + For Each item As CFDIConcepto In conceptos + _orden += 1 + Dim con As New CFDIConcepto_I With { + .tipo = 1, + .orden = _orden, + .ClaveProdServ = item.ClaveProdServ, + .NoIdentificacion = item.NoIdentificacion, + .Cantidad = item.Cantidad, + .ClaveUnidad = item.ClaveUnidad, + .Unidad = item.Unidad, + .ValorUnitario = item.ValorUnitario, + .Importe = item.Importe, + .Descuento = item.Descuento, + .NumeroPedimento = item.NumeroPedimento, + .CuentaPredial = item.CuentaPredial, + .Descripcion = item.Descripcion + } + Dim index As Integer = 0 + For Each Imp As CFDIConceptoImpuesto In item.Impuestos + index += 1 + If index > 1 Then + lcon.Add(con) + con = New CFDIConcepto_I With { + .tipo = 2, + .orden = _orden + } + End If + + con.Impuesto = Imp.ImpuestoTexto + con.Impuesto_Tipo = Imp.Tipo + con.Impuesto_Base = Imp.Base + con.Impuesto_TipoFactor = Imp.TipoFactor + con.Impuesto_TasaOCuota = Imp.TasaOCuota + con.Impuesto_Importe = Imp.Importe + Next + lcon.Add(con) + Next + End If + + Return lcon + End Function + + Public Shared Function readXML(fileUrl As String) As XmlSatCFDI + Dim xmlCFDI As New XmlSatCFDI() + Dim canread As Boolean = True + ' Keys + Dim keyComprobante As String = "cfdi:Comprobante" + Dim keyCfdiRelacionados As String = "cfdi:CfdiRelacionados" + Dim keyEmisor As String = "cfdi:Emisor" + Dim keyReceptor As String = "cfdi:Receptor" + Dim keyConceptos As String = "cfdi:Conceptos" + Dim keyImpuestos As String = "cfdi:Impuestos" + Dim keyComplemento As String = "cfdi:Complemento" + ' Endkeys + Dim PrimerNivel As String() = {keyCfdiRelacionados, keyEmisor, keyReceptor, keyConceptos, keyImpuestos, keyComplemento} + + ' (canread = xtr.Read()) para evitar ciclos infinitos, todos los .Read() los guardo en la variable Canread y en los while reviso primero esta variable + If File.Exists(fileUrl) Then + Dim settings As New XmlReaderSettings() + settings.ConformanceLevel = ConformanceLevel.Fragment + settings.IgnoreWhitespace = True + settings.IgnoreComments = True + Using xtr As XmlReader = XmlReader.Create(fileUrl, settings) + While (InlineAssignHelper.Assign(canread, xtr.Read())) AndAlso Not (xtr.NodeType = XmlNodeType.Element AndAlso xtr.Name = keyComprobante) + 'if (xtr.NodeType != XmlNodeType.Element) { while (xtr.Read() && xtr.NodeType != XmlNodeType.Element) { } } + End While + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.Name = keyComprobante Then + Dim Nivel As Integer = xtr.Depth + Dim cont As Boolean = xtr.MoveToFirstAttribute() + While cont + Select Case xtr.Name.ToUpper() + Case "XMLNS:CFDI" + xmlCFDI.comprobante.xmlns_cfdi = xtr.Value + Case "XMLNS:XSI" + xmlCFDI.comprobante.xmlns_xsi = xtr.Value + Case "XSI:SCHEMALOCATION" + xmlCFDI.comprobante.xsi_schemaLocation = xtr.Value + Case "VERSION" + xmlCFDI.comprobante.Version = xtr.Value + Case "SERIE" + xmlCFDI.comprobante.Serie = xtr.Value + Case "FOLIO" + xmlCFDI.comprobante.Folio = xtr.Value + Case "FECHA" + xmlCFDI.comprobante.Fecha = xtr.Value + Case "MONEDA" + xmlCFDI.comprobante.Moneda = xtr.Value + Case "SUBTOTAL" + Dim SubTotal As Decimal = 0 + Decimal.TryParse(xtr.Value, SubTotal) + xmlCFDI.comprobante.SubTotal = SubTotal + Case "TOTAL" + Dim Total As Decimal = 0 + Decimal.TryParse(xtr.Value, Total) + xmlCFDI.comprobante.Total = Total + Case "DESCUENTO" + Dim Descuento As Decimal = 0 + Decimal.TryParse(xtr.Value, Descuento) + xmlCFDI.comprobante.Descuento = Descuento + Case "TIPOCAMBIO" + Dim TipoCambio As Decimal = 0 + Decimal.TryParse(xtr.Value, TipoCambio) + xmlCFDI.comprobante.TipoCambio = TipoCambio + Case "TIPODECOMPROBANTE" + xmlCFDI.comprobante.TipoDeComprobante = xtr.Value + Case "FORMAPAGO", "FORMADEPAGO" + xmlCFDI.comprobante.FormaPago = xtr.Value + Case "METODOPAGO", "METODODEPAGO" + xmlCFDI.comprobante.MetodoPago = xtr.Value + Case "CONDICIONESDEPAGO" + xmlCFDI.comprobante.CondicionesDePago = xtr.Value + Case "LUGAREXPEDICION" + xmlCFDI.comprobante.LugarExpedicion = xtr.Value + Case "CONFIRMACION" + xmlCFDI.comprobante.Confirmacion = xtr.Value + Case "NOCERTIFICADO" + xmlCFDI.comprobante.NoCertificado = xtr.Value + Case "SELLO" + xmlCFDI.comprobante.Sello = xtr.Value + Case "CERTIFICADO" + xmlCFDI.comprobante.Certificado = xtr.Value + End Select + cont = xtr.MoveToNextAttribute() + End While + + cont = xtr.MoveToFirstAttribute() + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + + While canread AndAlso xtr.Depth > Nivel + If PrimerNivel.Contains(xtr.Name) Then + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.Name = keyCfdiRelacionados Then + Dim cDepth As Integer = xtr.Depth + + Dim TipoRelacion As String = Nothing + cont = xtr.MoveToFirstAttribute() + While cont + If xtr.Name.ToUpper() = "TIPORELACION" Then + TipoRelacion = xtr.Value + End If + cont = xtr.MoveToNextAttribute() + End While + + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + + While canread AndAlso xtr.Depth > cDepth + If xtr.Name = "cfdi:CfdiRelacionado" Then + Dim cfdir As New CFDIRelacionado() + cfdir.TipoRelacion = TipoRelacion + cfdir.UUID = xtr.GetAttribute("UUID") + xmlCFDI.cFDIRelacionados.Add(cfdir) + End If + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + End While + + End If + + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.Name = keyEmisor Then + Dim curentNivel As Integer = xtr.Depth + cont = xtr.MoveToFirstAttribute() + While cont + Select Case xtr.Name.ToUpper() + Case "REGIMENFISCAL" + xmlCFDI.emisor.RegimenFiscal = xtr.Value + Case "NOMBRE" + xmlCFDI.emisor.Nombre = xtr.Value + Case "RFC" + xmlCFDI.emisor.Rfc = xtr.Value + End Select + cont = xtr.MoveToNextAttribute() + End While + + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso Not (xtr.NodeType = XmlNodeType.Element AndAlso curentNivel >= xtr.Depth) + End While 'continua hasta que no tenga nodos y (el nodo sea tipo elemento y este en el mismo nivel) + End If + + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.Name = keyReceptor Then + Dim curentNivel As Integer = xtr.Depth + cont = xtr.MoveToFirstAttribute() + While cont + Select Case xtr.Name.ToUpper() + Case "RFC" + xmlCFDI.receptor.Rfc = xtr.Value + Case "NOMBRE" + xmlCFDI.receptor.Nombre = xtr.Value + Case "RESIDENCIAFISCAL" + xmlCFDI.receptor.ResidenciaFiscal = xtr.Value + Case "NUMREGIDTRIB" + xmlCFDI.receptor.NumRegIdTrib = xtr.Value + Case "USOCFDI" + xmlCFDI.receptor.UsoCFDI = xtr.Value + End Select + cont = xtr.MoveToNextAttribute() + End While + + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso Not (xtr.NodeType = XmlNodeType.Element AndAlso curentNivel >= xtr.Depth) + End While 'continua hasta que no tenga nodos y (el nodo sea tipo elemento y este en el mismo nivel) + End If + + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.Name = keyConceptos Then + Dim cDepth As Integer = xtr.Depth + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + + While canread AndAlso xtr.Depth > cDepth + If xtr.Name = "cfdi:Concepto" Then + Dim cDepthb As Integer = xtr.Depth + Dim concepto As New CFDIConcepto() + + cont = xtr.MoveToFirstAttribute() + While cont + Select Case xtr.Name.ToUpper() + Case "CLAVEPRODSERV" + concepto.ClaveProdServ = xtr.Value + Case "NOIDENTIFICACION" + concepto.NoIdentificacion = xtr.Value + Case "CANTIDAD" + concepto.Cantidad = xtr.Value + Case "CLAVEUNIDAD" + concepto.ClaveUnidad = xtr.Value + Case "UNIDAD" + concepto.Unidad = xtr.Value + Case "VALORUNITARIO" + Dim ValorUnitario As Decimal = 0 + Decimal.TryParse(xtr.Value, ValorUnitario) + concepto.ValorUnitario = ValorUnitario + Case "IMPORTE" + Dim Importe As Decimal = 0 + Decimal.TryParse(xtr.Value, Importe) + concepto.Importe = Importe + Case "DESCUENTO" + Dim DDescuento As Decimal = 0 + Decimal.TryParse(xtr.Value, DDescuento) + concepto.Descuento = DDescuento + Case "DESCRIPCION" + concepto.Descripcion = xtr.Value + End Select + cont = xtr.MoveToNextAttribute() + End While + + xtr.MoveToFirstAttribute() + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + + While canread AndAlso xtr.Depth > cDepthb + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.Name = "cfdi:Impuestos" Then + Dim cDepthc As Integer = xtr.Depth + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + + While canread AndAlso xtr.Depth > cDepthc + If xtr.Name = "cfdi:Traslado" OrElse xtr.Name = "cfdi:Retencion" Then + Dim impuesto As New CFDIConceptoImpuesto() + impuesto.Impuesto = xtr.GetAttribute("Impuesto") + impuesto.Tipo = xtr.LocalName + Dim Base As Decimal = 0 + Decimal.TryParse(xtr.GetAttribute("Base"), Base) + impuesto.Base = Base + impuesto.TipoFactor = xtr.GetAttribute("TipoFactor") + Dim tasaOCuota As Decimal = 0 + Decimal.TryParse(xtr.GetAttribute("TasaOCuota"), tasaOCuota) + impuesto.TasaOCuota = If(impuesto.TipoFactor = "Tasa", (tasaOCuota * 100).ToString("N4"), xtr.GetAttribute("TasaOCuota")) + Dim ImImporte As Decimal = 0 + Decimal.TryParse(xtr.GetAttribute("Importe"), ImImporte) + impuesto.Importe = ImImporte + + concepto.Impuestos.Add(impuesto) + End If + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + End While + Else + Dim rednew As Boolean = True + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.Name = "cfdi:InformacionAduanera" Then + concepto.NumeroPedimento = xtr.GetAttribute("NumeroPedimento") + rednew = False + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + End If + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.Name = "cfdi:CuentaPredial" Then + concepto.CuentaPredial = xtr.GetAttribute("CuentaPredial") + rednew = False + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + End If + If rednew Then + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + End If + End If + End While + + xmlCFDI.conceptos.Add(concepto) + End If + End While + End If + + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.Name = keyImpuestos Then + Dim cDepth As Integer = xtr.Depth + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + + While canread AndAlso xtr.Depth > cDepth + Dim impuest As New CFDIImpuesto() + If (xtr.Name = "cfdi:Traslado" OrElse xtr.Name = "cfdi:Retencion") AndAlso xmlCFDI.comprobante.Version IsNot Nothing Then + impuest.Tipo = If(xtr.LocalName = "Traslado", "Traslados", If(xtr.LocalName = "Retencion", "Retenciones", "")) + impuest.Impuesto = If(xmlCFDI.comprobante.Version = "3.3" OrElse xmlCFDI.comprobante.Version = "4.0", xtr.GetAttribute("Impuesto"), xtr.GetAttribute("impuesto")) + impuest.TipoFactor = xtr.GetAttribute("TipoFactor") + impuest.TasaOCuota = If(xmlCFDI.comprobante.Version = "3.3" OrElse xmlCFDI.comprobante.Version = "4.0", xtr.GetAttribute("TasaOCuota"), xtr.GetAttribute("tasa")) + Dim ImImporte As Decimal = 0 + Decimal.TryParse(If(xmlCFDI.comprobante.Version = "3.3" OrElse xmlCFDI.comprobante.Version = "4.0", xtr.GetAttribute("Importe"), xtr.GetAttribute("importe")), ImImporte) + impuest.Importe = ImImporte + xmlCFDI.Impuestos.Add(impuest) + End If + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + End While + End If + + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.Name = keyComplemento Then + Dim cDepth As Integer = xtr.Depth + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + + While canread AndAlso xtr.Depth > cDepth + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.LocalName = "TimbreFiscalDigital" AndAlso xmlCFDI.comprobante.Version IsNot Nothing Then + xmlCFDI.complemento.xmlns_tfd = xtr.GetAttribute("xmlns:tfd") + xmlCFDI.complemento.xsi_schemaLocation = xtr.GetAttribute("xsi:schemaLocation") + xmlCFDI.complemento.Version = xtr.GetAttribute("Version") + xmlCFDI.complemento.UUID = xtr.GetAttribute("UUID") + xmlCFDI.complemento.FechaTimbrado = xtr.GetAttribute("FechaTimbrado") + xmlCFDI.complemento.RfcProvCertif = xtr.GetAttribute("RfcProvCertif") + xmlCFDI.complemento.SelloCFD = If(xmlCFDI.comprobante.Version = "3.3" OrElse xmlCFDI.comprobante.Version = "4.0", xtr.GetAttribute("SelloCFD"), xtr.GetAttribute("selloCFD")) + xmlCFDI.complemento.NoCertificadoSAT = If(xmlCFDI.comprobante.Version = "3.3", xtr.GetAttribute("NoCertificadoSAT"), xtr.GetAttribute("noCertificadoSAT")) + xmlCFDI.complemento.SelloSAT = If(xmlCFDI.comprobante.Version = "3.3" OrElse xmlCFDI.comprobante.Version = "4.0", xtr.GetAttribute("SelloSAT"), xtr.GetAttribute("selloSAT")) + End If + + If xtr.NodeType = XmlNodeType.Element AndAlso xtr.LocalName = "Pagos" AndAlso xmlCFDI.comprobante.Version IsNot Nothing Then + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + + xmlCFDI.complemento.Pagos = New CFDIPago() + Dim depthpagos As Integer = xtr.Depth + Dim conts As Boolean = xtr.MoveToFirstAttribute() + While conts + Dim Base As Decimal = 0 + Select Case xtr.Name.ToUpper() + Case "FECHAPAGO" + xmlCFDI.complemento.Pagos.FechaPago = xtr.Value + Case "FORMADEPAGOP" + xmlCFDI.complemento.Pagos.FormaDePagoP = xtr.Value + Case "FORMADEPAGOPTEXT" + xmlCFDI.complemento.Pagos.FormaDePagoPText = xtr.Value + Case "MONEDAP" + xmlCFDI.complemento.Pagos.MonedaP = xtr.Value + Case "MONTO" + Decimal.TryParse(xtr.Value, Base) + xmlCFDI.complemento.Pagos.Monto = Base + Case "TIPOCAMBIOP" + Decimal.TryParse(xtr.Value, Base) + xmlCFDI.complemento.Pagos.TipoCambioP = Base + Case "NUMOPERACION" + xmlCFDI.complemento.Pagos.NumOperacion = xtr.Value + Case "NOMBANCOORDEXT" + xmlCFDI.complemento.Pagos.NomBancoOrdExt = xtr.Value + Case "RFCEMISORCTAORD" + xmlCFDI.complemento.Pagos.RfcEmisorCtaOrd = xtr.Value + Case "CTAORDENANTE" + xmlCFDI.complemento.Pagos.CtaOrdenante = xtr.Value + Case "RFCEMISORCTABEN" + xmlCFDI.complemento.Pagos.RfcEmisorCtaBen = xtr.Value + Case "CTABENEFICIARIO" + xmlCFDI.complemento.Pagos.CtaBeneficiario = xtr.Value + End Select + conts = xtr.MoveToNextAttribute() + End While + + conts = xtr.MoveToFirstAttribute() + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + + While canread AndAlso xtr.Depth > depthpagos + Dim objpago As New CFDIPagoDoctoRelacionado() + conts = xtr.MoveToFirstAttribute() + While conts + Dim Basep As Decimal = 0 + Select Case xtr.Name.ToUpper() + Case "IDDOCUMENTO" + objpago.IdDocumento = xtr.Value + Case "SERIE" + objpago.Serie = xtr.Value + Case "FOLIO" + objpago.Folio = xtr.Value + Case "MONEDADR" + objpago.MonedaDR = xtr.Value + Case "METODODEPAGODR" + objpago.MetodoDePagoDR = xtr.Value + Case "NUMPARCIALIDAD" + objpago.NumParcialidad = xtr.Value + Case "IMPSALDOANT" + Decimal.TryParse(xtr.Value, Basep) + objpago.ImpSaldoAnt = Basep + Case "IMPPAGADO" + Decimal.TryParse(xtr.Value, Basep) + objpago.ImpPagado = Basep + Case "IMPSALDOINSOLUTO" + Decimal.TryParse(xtr.Value, Basep) + objpago.ImpSaldoInsoluto = Basep + End Select + conts = xtr.MoveToNextAttribute() + End While + + conts = xtr.MoveToFirstAttribute() + xmlCFDI.complemento.Pagos.doctosRelacionados.Add(objpago) + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + End While + Else + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + End If + End While + End If + Else + 'si no entro en ninguna de los anteriores no se debe ciclar + While InlineAssignHelper.Assign(canread, xtr.Read()) AndAlso xtr.NodeType <> XmlNodeType.Element + End While + End If + End While + End If + End Using + End If + + If xmlCFDI.comprobante.Version = "4.0" OrElse xmlCFDI.comprobante.Version = "3.3" OrElse xmlCFDI.comprobante.Version = "3.2" Then + Return xmlCFDI + Else + Return Nothing + End If + End Function + + Public Sub ImprimirPDF(NombreArchivo As String, DirectorioEmpresa As String, TipodeComprobante As String) + Dim objxml As XmlSatCFDI = Me + + Dim rutaReporte As String = If(TipodeComprobante = "Pag", $"{DirectorioEmpresa}..\Grales\Formatos\CFDIV3Pago.rdlc", $"{DirectorioEmpresa}..\Grales\Formatos\CFDIV3.rdlc") + + + Dim cQr As Byte() = Nothing + Try + Dim cfdi As New RVCFDI33.GeneraCFDI() + cQr = cfdi.ConvertirQrCode($"?re={objxml.emisor.Rfc}&rr={objxml.receptor.Rfc}&tt={(If(objxml.complemento.Pagos Is Nothing, objxml.comprobante.Total, objxml.complemento.Pagos.Monto))}&id={objxml.complemento.UUID}") + Catch exQR As Exception + ModExtensiones.GuardaLog("Error al generar QR - " & exQR.Message & " - " & exQR.StackTrace.ToString()) + End Try + + Dim parametros As New List(Of ReportParameter)() + ' Comprobante + parametros.Add(New ReportParameter("comprobante_Certificado", objxml.comprobante.Certificado)) + parametros.Add(New ReportParameter("comprobante_CondicionesDePago", objxml.comprobante.CondicionesDePago)) + parametros.Add(New ReportParameter("comprobante_Confirmacion", objxml.comprobante.Confirmacion)) + parametros.Add(New ReportParameter("comprobante_Fecha", objxml.comprobante.Fecha)) + parametros.Add(New ReportParameter("comprobante_Serie", objxml.comprobante.Serie)) + parametros.Add(New ReportParameter("comprobante_Folio", objxml.comprobante.Folio)) + parametros.Add(New ReportParameter("comprobante_Descuento", objxml.comprobante.Descuento.ToString("N2"))) + parametros.Add(New ReportParameter("comprobante_SubTotal", objxml.comprobante.SubTotal.ToString("N2"))) + parametros.Add(New ReportParameter("comprobante_Total", objxml.comprobante.Total.ToString("N2"))) + parametros.Add(New ReportParameter("comprobante_Version", objxml.comprobante.Version)) + parametros.Add(New ReportParameter("comprobante_TipoDeComprobante", objxml.comprobante.TipoDeComprobanteTexto)) + parametros.Add(New ReportParameter("comprobante_FormaPago", objxml.comprobante.FormaPagoTexto)) + parametros.Add(New ReportParameter("comprobante_LugarExpedicion", objxml.comprobante.LugarExpedicion)) + parametros.Add(New ReportParameter("comprobante_NoCertificado", objxml.comprobante.NoCertificado)) + parametros.Add(New ReportParameter("comprobante_Sello", objxml.comprobante.Sello)) + parametros.Add(New ReportParameter("comprobante_Moneda", objxml.comprobante.Moneda)) + parametros.Add(New ReportParameter("comprobante_TipoCambio", objxml.comprobante.TipoCambio.ToString("N2"))) + parametros.Add(New ReportParameter("comprobante_MetodoPago", objxml.comprobante.MetodoPagoTexto)) + ' Emisor + parametros.Add(New ReportParameter("emisor_Rfc", objxml.emisor.Rfc)) + parametros.Add(New ReportParameter("emisor_Nombre", objxml.emisor.Nombre)) + parametros.Add(New ReportParameter("emisor_RegimenFiscal", objxml.emisor.RegimenFiscalTexto)) + ' Receptor + parametros.Add(New ReportParameter("receptor_Rfc", objxml.receptor.Rfc)) + parametros.Add(New ReportParameter("receptor_Nombre", objxml.receptor.Nombre)) + parametros.Add(New ReportParameter("receptor_NumRegIdTrib", objxml.receptor.NumRegIdTrib)) + parametros.Add(New ReportParameter("receptor_ResidenciaFiscal", objxml.receptor.ResidenciaFiscal)) + parametros.Add(New ReportParameter("receptor_UsoCFDI", objxml.receptor.UsoCFDITexto)) + ' Complemento + parametros.Add(New ReportParameter("complemento_FechaTimbrado", objxml.complemento.FechaTimbrado)) + parametros.Add(New ReportParameter("complemento_NoCertificadoSAT", objxml.complemento.NoCertificadoSAT)) + parametros.Add(New ReportParameter("complemento_RfcProvCertif", objxml.complemento.RfcProvCertif)) + parametros.Add(New ReportParameter("complemento_SelloCFD", objxml.complemento.SelloCFD)) + parametros.Add(New ReportParameter("complemento_SelloSAT", objxml.complemento.SelloSAT)) + parametros.Add(New ReportParameter("complemento_UUID", objxml.complemento.UUID)) + parametros.Add(New ReportParameter("complemento_CadenaOriginal", objxml.complemento.CadenaOriginal)) + ' Pagos + If objxml.complemento.Pagos IsNot Nothing Then + parametros.Add(New ReportParameter("CPFechaPago", objxml.complemento.Pagos.FechaPago)) + parametros.Add(New ReportParameter("CPFormaDePagoP", objxml.complemento.Pagos.FormaDePagoP)) + parametros.Add(New ReportParameter("CPFormaDePagoPText", objxml.complemento.Pagos.FormaDePagoPText)) + parametros.Add(New ReportParameter("CPMonedaP", objxml.complemento.Pagos.MonedaP)) + parametros.Add(New ReportParameter("CPMonto", objxml.complemento.Pagos.Monto.ToString())) + parametros.Add(New ReportParameter("CPTipoCambioP", objxml.complemento.Pagos.TipoCambioP.ToString())) + parametros.Add(New ReportParameter("CPNumOperacion", objxml.complemento.Pagos.NumOperacion)) + parametros.Add(New ReportParameter("CPNomBancoOrdExt", objxml.complemento.Pagos.NomBancoOrdExt)) + parametros.Add(New ReportParameter("CPRfcEmisorCtaOrd", objxml.complemento.Pagos.RfcEmisorCtaOrd)) + parametros.Add(New ReportParameter("CPCtaOrdenante", objxml.complemento.Pagos.CtaOrdenante)) + parametros.Add(New ReportParameter("CPRfcEmisorCtaBen", objxml.complemento.Pagos.RfcEmisorCtaBen)) + parametros.Add(New ReportParameter("CPCtaBeneficiario", objxml.complemento.Pagos.CtaBeneficiario)) + End If + + Using MR As New ReportViewer() + Dim rdsTotales As New ReportDataSource() + Dim ltotales As New List(Of utilValores)() + ltotales.Add(New utilValores("Subtotal", objxml.comprobante.SubTotal.ToString("N2"))) + If objxml.comprobante.Descuento > 0 Then + ltotales.Add(New utilValores("Descuento", objxml.comprobante.Descuento.ToString("N2"))) + End If + + For Each item As CFDIImpuesto In objxml.Impuestos + If item.Importe > 0 Then + Dim TasaOCuota As Decimal = 0 + Decimal.TryParse(item.TasaOCuota, TasaOCuota) + ltotales.Add(New utilValores($"Impuestos {item.Tipo} {item.ImpuestoTexto} {(If(item.TipoFactor = "Tasa", (TasaOCuota * 100).ToString("N4"), item.TasaOCuota))} {(If(item.TipoFactor = "Tasa", "%", ""))}", item.Importe.ToString("N2"))) + End If + Next + + ltotales.Add(New utilValores("Total", objxml.comprobante.Total.ToString("N2"))) + rdsTotales.Name = "dsTotales" + rdsTotales.Value = ltotales + MR.LocalReport.DataSources.Add(rdsTotales) + + Dim rds2 As New ReportDataSource() + Dim limagenes As New List(Of utilImage)() + limagenes.Add(New utilImage(cQr)) + rds2.Name = "dsImagenes" + rds2.Value = limagenes + MR.LocalReport.DataSources.Add(rds2) + + Dim rdsrelacionados As New ReportDataSource() + rdsrelacionados.Name = "dsRelacionados" + rdsrelacionados.Value = objxml.cFDIRelacionados + MR.LocalReport.DataSources.Add(rdsrelacionados) + + Dim rds1 As New ReportDataSource() + rds1.Name = "dsConceptos" + rds1.Value = objxml.GetConceptosforpdf() + MR.LocalReport.DataSources.Add(rds1) + + If objxml.complemento.Pagos IsNot Nothing Then + Dim rdsp As New ReportDataSource() + rdsp.Name = "dsPagos" + rdsp.Value = objxml.complemento.Pagos.doctosRelacionados + MR.LocalReport.DataSources.Add(rdsp) + End If + + MR.LocalReport.ReportPath = rutaReporte + MR.ProcessingMode = ProcessingMode.Local + MR.LocalReport.EnableExternalImages = True + MR.LocalReport.SetParameters(parametros) + MR.LocalReport.Refresh() + + Dim warnings As Warning() = Nothing + Dim streamids As String() = Nothing + Dim mimeType As String = Nothing + Dim encoding As String = Nothing + Dim extension As String = Nothing + Dim bytes As Byte() = Nothing + bytes = MR.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings) + + Using fs As New FileStream(NombreArchivo, FileMode.Create) + fs.Write(bytes, 0, bytes.Length) + fs.Close() + End Using + End Using + End Sub + + Public Class utilValores + Public Sub New(nombre As String, valor As String) + Me.Nombre = nombre + Me.Valor = valor + End Sub + Public Property Nombre As String + Public Property Valor As String + End Class + + Public Class utilImage + Public Sub New(imagenByte As Byte()) + Me.ImagenByte = imagenByte + End Sub + Public Property ImagenByte As Byte() + End Class + End Class + + Public Module InlineAssignHelper + Public Function Assign(Of T)(ByRef target As T, value As T) As T + target = value + Return value + End Function + End Module + +#Region "impresion nd" + Public Class CFDIComprobante + Public Property xmlns_cfdi As String + Public Property xmlns_xsi As String + Public Property xsi_schemaLocation As String + Public Property Version As String + Public Property Serie As String + Public Property Folio As String + Public Property Fecha As String + Public Property Moneda As String + Public Property SubTotal As Decimal + Public Property Total As Decimal + Public Property Descuento As Decimal + Public Property TipoCambio As Decimal + Public Property TipoDeComprobante As String + Public ReadOnly Property TipoDeComprobanteTexto As String + Get + Dim retorno As String = "" + If Version = "3.3" OrElse Version = "4.0" Then + Select Case TipoDeComprobante + Case "I" + retorno = "Ingreso" + Case "E" + retorno = "Egreso" + Case "P" + retorno = "Pago" + Case "T" + retorno = "Traslado" + Case "N" + retorno = "Nómina" + Case Else + retorno = TipoDeComprobante + End Select + End If + If Version = "3.2" Then + Select Case TipoDeComprobante + Case "ingreso" + retorno = "Ing" + Case "egreso" + retorno = "Egs" + Case "P" + retorno = "PA" + Case Else + retorno = TipoDeComprobante + End Select + Else + retorno = TipoDeComprobante + End If + Return retorno + End Get + End Property + Public ReadOnly Property TipoDeComprobanteSIG As String + Get + Dim retorno As String = "" + If Version = "3.3" OrElse Version = "4.0" Then + Select Case TipoDeComprobante + Case "I" + retorno = "Ing" + Case "E" + retorno = "Egs" + Case "P" + retorno = "PA" + Case Else + retorno = TipoDeComprobante + End Select + End If + If Version = "3.2" Then + Select Case TipoDeComprobante + Case "ingreso" + retorno = "Ing" + Case "egreso" + retorno = "Egs" + Case "P" + retorno = "PA" + Case Else + retorno = TipoDeComprobante + End Select + Else + retorno = TipoDeComprobante + End If + Return retorno + End Get + End Property + Public Property FormaPago As String + Public ReadOnly Property FormaPagoTexto As String + Get + Dim retorno As String = "" + Select Case FormaPago + Case "01" + retorno = "Efectivo" + Case "02" + retorno = "Cheque nominativo" + Case "03" + retorno = "Transferencia electrónica de fondos" + Case "04" + retorno = "Tarjeta de crédito" + Case "05" + retorno = "Monedero electrónico" + Case "06" + retorno = "Dinero electrónico" + Case "08" + retorno = "Vales de despensa" + Case "12" + retorno = "Dación en pago" + Case "13" + retorno = "Pago por subrogación" + Case "14" + retorno = "Pago por consignación" + Case "15" + retorno = "Condonación" + Case "17" + retorno = "Compensación" + Case "23" + retorno = "Novación" + Case "24" + retorno = "Confusión" + Case "25" + retorno = "Remisión de deuda" + Case "26" + retorno = "Prescripción o caducidad" + Case "27" + retorno = "A satisfacción del acreedor" + Case "28" + retorno = "Tarjeta de débito" + Case "29" + retorno = "Tarjeta de servicios" + Case "30" + retorno = "Aplicación de anticipos" + Case "31" + retorno = "Intermediario pagos" + Case "99" + retorno = "Por definir" + Case Else + retorno = FormaPago + End Select + Return retorno + End Get + End Property + Public Property MetodoPago As String + Public ReadOnly Property MetodoPagoTexto As String + Get + Dim retorno As String = "" + Select Case MetodoPago + Case "PUE" + retorno = "Pago en una sola exhibición" + Case "PPD" + retorno = "Pago en parcialidades o diferido" + Case Else + retorno = MetodoPago + End Select + Return retorno + End Get + End Property + Public Property CondicionesDePago As String + Public Property LugarExpedicion As String + Public Property Confirmacion As String + Public Property NoCertificado As String + Public Property Sello As String + Public Property Certificado As String + End Class + + Public Class CFDIEmisor + Public Property RegimenFiscal As String + Public ReadOnly Property RegimenFiscalTexto As String + Get + Dim retorno As String = "" + Select Case RegimenFiscal + Case "601" + retorno = "General de Ley Personas Morales" + Case "603" + retorno = "Personas Morales con Fines no Lucrativos" + Case "605" + retorno = "Sueldos y Salarios e Ingresos Asimilados a Salarios" + Case "606" + retorno = "Arrendamiento" + Case "608" + retorno = "Demás ingresos" + Case "609" + retorno = "Consolidación" + Case "610" + retorno = "Residentes en el Extranjero sin Establecimiento Permanente en México" + Case "611" + retorno = "Ingresos por Dividendos (socios y accionistas)" + Case "612" + retorno = "Personas Físicas con Actividades Empresariales y Profesionales" + Case "614" + retorno = "Ingresos por intereses" + Case "616" + retorno = "Sin obligaciones fiscales" + Case "620" + retorno = "Sociedades Cooperativas de Producción que optan por diferir sus ingresos" + Case "621" + retorno = "Incorporación Fiscal" + Case "622" + retorno = "Actividades Agrícolas, Ganaderas, Silvícolas y Pesqueras" + Case "623" + retorno = "Opcional para Grupos de Sociedades" + Case "624" + retorno = "Coordinados" + Case "628" + retorno = "Hidrocarburos" + Case "607" + retorno = "Régimen de Enajenación o Adquisición de Bienes" + Case "629" + retorno = "De los Regímenes Fiscales Preferentes y de las Empresas Multinacionales" + Case "630" + retorno = "Enajenación de acciones en bolsa de valores" + Case "615" + retorno = "Régimen de los ingresos por obtención de premios" + End Select + Return retorno + End Get + End Property + Public Property Nombre As String + Public Property Rfc As String + End Class + + Public Class CFDIReceptor + Public Property Rfc As String + Public Property Nombre As String + Public Property ResidenciaFiscal As String + Public Property NumRegIdTrib As String + Public Property UsoCFDI As String + Public ReadOnly Property UsoCFDITexto As String + Get + Dim retorno As String = "N/A" + Select Case UsoCFDI + Case "G01" + retorno = "Adquisición de mercancías" + Case "G02" + retorno = "Devoluciones, descuentos o bonificaciones" + Case "G03" + retorno = "Gastos en general" + Case "I01" + retorno = "Construcciones" + Case "I02" + retorno = "Mobiliario y equipo de oficina por inversiones" + Case "I03" + retorno = "Equipo de transporte" + Case "I04" + retorno = "Equipo de cómputo y accesorios" + Case "I05" + retorno = "Dados, troqueles, moldes, matrices y herramental" + Case "I06" + retorno = "Comunicaciones telefónicas" + Case "I07" + retorno = "Comunicaciones satelitales" + Case "I08" + retorno = "Otra maquinaria y equipo" + Case "D01" + retorno = "Honorarios médicos, dentales y gastos hospitalarios." + Case "D02" + retorno = "Gastos médicos por incapacidad o discapacidad" + Case "D03" + retorno = "Gastos funerales." + Case "D04" + retorno = "Donativos." + Case "D05" + retorno = "Intereses reales efectivamente pagados por créditos hipotecarios (casa habitación)." + Case "D06" + retorno = "Aportaciones voluntarias al SAR." + Case "D07" + retorno = "Primas por seguros de gastos médicos." + Case "D08" + retorno = "Gastos de transportación escolar obligatoria." + Case "D09" + retorno = "Depósitos en cuentas para el ahorro, primas que tengan como base planes de pensiones." + Case "D10" + retorno = "Pagos por servicios educativos (colegiaturas)" + Case "P01" + retorno = "Por definir" + Case Else + retorno = UsoCFDI + End Select + Return retorno + End Get + End Property + End Class + + Public Class CFDIComplemento + Public Property xmlns_tfd As String + Public Property xsi_schemaLocation As String + Public Property Version As String + Public Property UUID As String + Public Property FechaTimbrado As String + Public Property RfcProvCertif As String + Public Property SelloCFD As String + Public Property NoCertificadoSAT As String + Public Property SelloSAT As String + Public Property Pagos As CFDIPago + + Public ReadOnly Property CadenaOriginal As String + Get + Return $"||{Version}|{UUID}|{FechaTimbrado}|{RfcProvCertif}|{SelloCFD}|{NoCertificadoSAT}||" + End Get + End Property + End Class + + Public Class CFDIPago + Public Sub New() + doctosRelacionados = New List(Of CFDIPagoDoctoRelacionado)() + End Sub + + Public Property FechaPago As String + Public Property FormaDePagoP As String + Public Property FormaDePagoPText As String + Public Property MonedaP As String + Public Property Monto As Decimal + Public Property TipoCambioP As Decimal + Public Property NumOperacion As String + Public Property NomBancoOrdExt As String + Public Property RfcEmisorCtaOrd As String + Public Property CtaOrdenante As String + Public Property RfcEmisorCtaBen As String + Public Property CtaBeneficiario As String + Public Property doctosRelacionados As List(Of CFDIPagoDoctoRelacionado) + End Class + + Public Class CFDIPagoDoctoRelacionado + Public Property IdDocumento As String + Public Property Serie As String + Public Property Folio As String + Public Property MonedaDR As String + Public Property MetodoDePagoDR As String + Public Property NumParcialidad As String + Public Property ImpSaldoAnt As Decimal + Public Property ImpPagado As Decimal + Public Property ImpSaldoInsoluto As Decimal + End Class + + Public Class CFDIRelacionado + Public Property TipoRelacion As String + Public ReadOnly Property TipoRelacionTexto As String + Get + Dim retorno As String = "" + Select Case TipoRelacion + Case "01" + retorno = "Nota de crédito de los documentos relacionados" + Case "02" + retorno = "Nota de débito de los documentos relacionados" + Case "03" + retorno = "Devolución de mercancía sobre facturas o traslados previos" + Case "04" + retorno = "Sustitución de los CFDI previos" + Case "05" + retorno = "Traslados de mercancías facturados previamente" + Case "06" + retorno = "Factura generada por los traslados previos" + Case "07" + retorno = "CFDI por aplicación de anticipo" + Case Else + retorno = "Por definir" + End Select + Return retorno + End Get + End Property + Public Property UUID As String + End Class + + Public Class CFDIConcepto + Public Sub New() + Impuestos = New List(Of CFDIConceptoImpuesto)() + End Sub + + Public Property ClaveProdServ As String + Public Property NoIdentificacion As String + Public Property Cantidad As String + Public Property ClaveUnidad As String + Public Property Unidad As String + Public Property ValorUnitario As Decimal + Public Property Importe As Decimal + Public Property Descuento As Decimal + Public Property NumeroPedimento As String + Public Property CuentaPredial As String + Public Property Descripcion As String + Public Property Impuestos As List(Of CFDIConceptoImpuesto) + End Class + + Public Class CFDIConceptoImpuesto + Public Property Impuesto As String + Public ReadOnly Property ImpuestoTexto As String + Get + Dim retorno As String = "" + Select Case Impuesto + Case "001" + retorno = "ISR" + Case "002" + retorno = "IVA" + Case "003" + retorno = "IEPS" + End Select + Return retorno + End Get + End Property + Public Property Tipo As String + Public Property Base As Decimal + Public Property TipoFactor As String + Public Property TasaOCuota As String + Public Property Importe As Decimal + End Class + + Public Class CFDIImpuesto + Public Property Tipo As String + Public Property Impuesto As String + Public ReadOnly Property ImpuestoTexto As String + Get + Dim retorno As String = "" + Select Case Impuesto + Case "001" + retorno = "ISR" + Case "002" + retorno = "IVA" + Case "003" + retorno = "IEPS" + End Select + Return retorno + End Get + End Property + Public Property TipoFactor As String + Public Property TasaOCuota As String + Public Property Importe As Decimal + End Class + + Public Class CFDIConcepto_I + Public Property tipo As Integer + Public Property orden As Integer + Public Property ClaveProdServ As String + Public Property NoIdentificacion As String + Public Property Cantidad As String + Public Property ClaveUnidad As String + Public Property Unidad As String + Public Property ValorUnitario As Decimal + Public Property Importe As Decimal + Public Property Descuento As Decimal + Public Property NumeroPedimento As String + Public Property CuentaPredial As String + Public Property Descripcion As String + Public Property Impuesto As String + Public Property Impuesto_Tipo As String + Public Property Impuesto_Base As Decimal + Public Property Impuesto_TipoFactor As String + Public Property Impuesto_TasaOCuota As String + Public Property Impuesto_Importe As Decimal + End Class + +#End Region + +End Namespace + Public Class GeneralesAPIeFacturas Inherits ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.BaseSIGAPIeFacturas diff --git a/Contabilidad/CatBloqueoDiario.aspx b/Contabilidad/CatBloqueoDiario.aspx new file mode 100644 index 000000000..ae43ad430 --- /dev/null +++ b/Contabilidad/CatBloqueoDiario.aspx @@ -0,0 +1,120 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatBloqueoDiario.aspx.vb" Inherits="Contabilidad_CatBloqueoDiario" %> + + + + + + + + Catálogo de bloqueo diario + + + + + + + + + + + + <%--Consulta--%> +
    +
    +
    + +
    + +
    + +
    +
    + Fecha Inicio: + +
    +
    +
    + + + + +
    + + + + + + +
    +
    + Fecha Fin: + +
    +
    +
    + + + + +
    + + + + + + +
    +
    +
    +
    +
    + + <%--Seccion lista resultados--%> +
    +
    +
    +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + +   + + + + + + + + + + +
    +
    +
    +
    +
    +
    +     +     +     + + + diff --git a/Contabilidad/CatBloqueoDiario.aspx.vb b/Contabilidad/CatBloqueoDiario.aspx.vb new file mode 100644 index 000000000..3f5389a18 --- /dev/null +++ b/Contabilidad/CatBloqueoDiario.aspx.vb @@ -0,0 +1,125 @@ +Option Explicit On +Option Strict On + +Imports System +Imports System.Data +Imports Extensiones + +Partial Class Contabilidad_CatBloqueoDiario + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + txtFechaI.Text = Now.AddMonths(-1).ToShortDateString() + txtFechaF.Text = Now.AddMonths(1).ToShortDateString() + End If + End Sub + + Protected Sub BtnConsulta_Click(sender As Object, e As EventArgs) + CargaDatos() + End Sub + + Private Sub CargaDatos() + Dim FechaI = txtFechaI.Text.ToDate() + Dim FechaF = txtFechaF.Text.ToDate() + + GvDatos.DataSource = GenerateDTBloqueos(FechaI, FechaF) + GvDatos.DataBind() + + UpDatos.Update() + End Sub + + Function GenerateDTBloqueos(FechaI As DateTime, FechaF As DateTime) As DataTable + Dim DtDatos As New DataTable() + DtDatos.Columns.Add(New DataColumn("CveBloqueoDiario", GetType(Integer))) + DtDatos.Columns.Add(New DataColumn("Fecha", GetType(DateTime))) + DtDatos.Columns.Add(New DataColumn("Bloqueado", GetType(Boolean))) + + Dim TieneError As Boolean = False + Try + Dim DtBloqueos As DataTable = Nothing + + Using ObjConta As New ClsContabilidad + If ObjConta.GetBloqueoDiario(-1, FechaI, FechaF, UsuarioActual.CveEmpresa) Then + DtBloqueos = ObjConta.DtResultados.Copy() + Else + TieneError = True + End If + End Using + + If Not TieneError Then + Dim dateList As List(Of DateTime) = GenerateDateList(FechaI, FechaF) + 'GENERA EL LISTADO DE FECHAS + For Each dateValue As DateTime In dateList + Dim Row As DataRow = DtDatos.NewRow() + + Row("CveBloqueoDiario") = -1 + Row("Fecha") = dateValue + Row("Bloqueado") = False + + DtDatos.Rows.Add(Row) + Next + + 'ASIGNA LOS QUE TIENEN VALORES + For Each RowValores As DataRow In DtBloqueos.Rows + Dim RowsFechas As DataRow() = DtDatos.Select($"Fecha = '{RowValores("Fecha").ToString().ToDate().ToString("dd/MM/yyyy")}'") + + If RowsFechas IsNot Nothing AndAlso RowsFechas.Count() > 0 Then + RowsFechas(0)("CveBloqueoDiario") = RowValores("CveBloqueoDiario") + RowsFechas(0)("Bloqueado") = RowValores("Bloqueado") + End If + Next + + End If + + Catch ex As Exception + OnError("Ocurrió un error generar la tabla", ex) + DtDatos.Rows.Clear() + TieneError = True + End Try + + If TieneError Then + DtDatos.Rows.Clear() + End If + + Return DtDatos + End Function + + Function GenerateDateList(startDate As DateTime, endDate As DateTime) As List(Of DateTime) + Dim dates As New List(Of DateTime)() + Dim dateValue As DateTime = startDate + While dateValue <= endDate + dates.Add(dateValue) + dateValue = dateValue.AddDays(1) + End While + Return dates + End Function + + Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CveBloqueoDiario").ToEntero() > 0 Then + If CBool(e.Row.DBCampo("Bloqueado")) Then + e.Row.CssClass = "SubTotales2" + Else + e.Row.CssClass = "Totales" + End If + End If + End If + End Sub + Protected Sub ChkBloqueo_CheckedChanged(sender As Object, e As EventArgs) + Dim ChkBloqueo = DirectCast(sender, CheckBox) + + Dim GvRow As GridViewRow = DirectCast(ChkBloqueo.NamingContainer, GridViewRow) + + Dim CveBloqueoDiario As Integer = GvRow.DataKey("CveBloqueoDiario").ToEntero() + Dim Fecha As DateTime = GvRow.DataKey("Fecha").ToDate() + + Using ObjConta As New ClsContabilidad + If ObjConta.AddUpdateBloqueoDiario(CveBloqueoDiario, Fecha, ChkBloqueo.Checked, UsuarioActual.CveEmpresa) Then + Alert($"Se actualizó el estatus de bloqueo en el dia {Fecha.ToString("dd/MM/yyyy")}") + End If + End Using + + CargaDatos() + End Sub +End Class diff --git a/Contabilidad/CatCuentas.aspx b/Contabilidad/CatCuentas.aspx index f309b5bc1..57037de2d 100644 --- a/Contabilidad/CatCuentas.aspx +++ b/Contabilidad/CatCuentas.aspx @@ -179,7 +179,7 @@
    -
    +
    Concepto
    + + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%----%> + + +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- + + + + + --%> + + <%-- --%> + + + + + + + + + + +
    + + +     +     +
    + +     +     diff --git a/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb index 4a6ac5376..72712ad98 100644 --- a/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb @@ -304,7 +304,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Property - Private Property CountDinamicoSubProyecto As Integer Get @@ -323,6 +322,67 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal #End Region +#Region " P R O Y E C T O H O R I Z O N T A L " + + Private Property DtDatosProyectoH As DataTable + Get + DtDatosProyectoH = DirectCast(ViewState("DtDatosProyectoH"), DataTable) + End Get + Set(ByVal value As DataTable) + ViewState("DtDatosProyectoH") = value + End Set + End Property + + Private Property DtIngresosProyectoH As DataTable + Get + DtIngresosProyectoH = DirectCast(ViewState("DtIngresosProyectoH"), DataTable) + End Get + Set(ByVal value As DataTable) + ViewState("DtIngresosProyectoH") = value + End Set + End Property + + Private Property DtGastosProyectoH As DataTable + Get + DtGastosProyectoH = DirectCast(ViewState("DtGastosProyectoH"), DataTable) + End Get + Set(ByVal value As DataTable) + ViewState("DtGastosProyectoH") = value + End Set + End Property + + Private Property DTTotalesProyectoH As DataTable + Get + DTTotalesProyectoH = DirectCast(ViewState("DTTotalesProyectoH"), DataTable) + End Get + Set(ByVal value As DataTable) + ViewState("DTTotalesProyectoH") = value + End Set + End Property + + Private Property DTProyectosCabecerasH As DataTable + Get + DTProyectosCabecerasH = DirectCast(ViewState("DTProyectosCabecerasH"), DataTable) + End Get + Set(ByVal value As DataTable) + ViewState("DTProyectosCabecerasH") = value + End Set + End Property + + Private Property CountDinamicoProyecto As Integer + Get + If ViewState("CountDinamicoProyecto") Is Nothing Then + Return 0 + Else + Return ViewState("CountDinamicoProyecto").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("CountDinamicoProyecto") = value + End Set + End Property + +#End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then @@ -347,13 +407,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal TotalActualMes = 0 TotalAnteriorMes = 0 + If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then + TabProyecto.Visible = True + TabProyecto.HeaderText = UsuarioActual.Empresa.Funcionalidad(307) + End If CargaEjercicios() CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) TabSubProyecto.HeaderText = LblProyecto.Text & " " & LblSubProyecto.Text & " " - - DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual) ValidaEjercicios() @@ -370,9 +432,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DVVistaPorcentaje.Visible = False If Tab.ActiveTabIndex = 0 Then - 'LiSubProyectoDdl.Visible = True - 'LiSubProyectoLbl.Visible = True - LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True @@ -390,19 +449,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If If Tab.ActiveTabIndex = 1 Then - - 'LiSubProyectoDdl.Visible = True - 'LiSubProyectoLbl.Visible = True - LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True - LiEjercicioDdl2.Visible = False LiEjercicioLbl2.Visible = False LiPeriodoDdl.Visible = True LiPeriodoLbl.Visible = True - LiDivisorDdl.Visible = True LiDivisorLbl.Visible = True @@ -410,37 +463,25 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal LblTri.Visible = True DVTri.Visible = True - LblVistaPorcentaje.Visible = True DVVistaPorcentaje.Visible = True - - End If If Tab.ActiveTabIndex = 2 Then - ValidaEjercicios() - - 'LiSubProyectoDdl.Visible = True - 'LiSubProyectoLbl.Visible = True - LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True - LiEjercicioDdl2.Visible = True LiEjercicioLbl2.Visible = True LiPeriodoDdl.Visible = False LiPeriodoLbl.Visible = False - LiDivisorDdl.Visible = True LiDivisorLbl.Visible = True LblTri.Visible = False DVTri.Visible = False - DdlPeriodo.SelectedValueExist(12) - LblVistaPorcentaje.Visible = True DVVistaPorcentaje.Visible = True @@ -452,25 +493,18 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True - LiEjercicioDdl2.Visible = False LiEjercicioLbl2.Visible = False - - LiDivisorDdl.Visible = True LiDivisorLbl.Visible = True - LblTri.Visible = False DVTri.Visible = False - LiPeriodoDdl.Visible = True LiPeriodoLbl.Visible = True DdlPeriodo.SelectedValueExist(12) - LblVistaPorcentaje.Visible = True DVVistaPorcentaje.Visible = True - End If UpFiltros.Update() @@ -487,25 +521,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Private Sub ValidaEjercicios() - Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero - - If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then - If DdlEjercicio2.Items.Count > 0 Then DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1 End If - Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero If Not EInicio + 1 > Fejerciosio Then DdlEjercicio2.SelectedValueExist(EInicio + 1) End If - End If - - UpFiltros.Update() End Sub @@ -559,15 +585,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal CargaDatosSubProyectoH() End If + 'PROYECTO + If Tab.ActiveTabIndex = 4 Then + CargaDatosProyectoH() + End If + End Sub #Region "MES" - - Private Sub CargaDatosMes() - - FechaIMes = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaIMes))).ToString("dd/MM/yyyy") 'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1) @@ -647,7 +674,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DtGastosMes.Rows.Add(Row) End If - GvIngresosMes.DataSource = DtIngresosMes GvIngresosMes.DataBind() @@ -658,12 +684,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Sub - - Private Sub SumaTotales() 'Llena Lb´s Totales - If DdlDivisor.SelectedValue.ToEntero > 1 Then LbTotalActual.Text = TotalActualMes.ToString("###,###,##0") LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0") @@ -671,9 +694,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal LbTotalActual.Text = TotalActualMes.ToString("###,###,##0.00") LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0.00") End If - - - LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) @@ -761,13 +781,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal #End Region - - - #End Region - - #Region "M E S H O R I Z O N T A L" Private Sub CargaDatosMesH() @@ -1591,7 +1606,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal #End Region - #Region "Anual H O R I Z O N T A L" Private Sub CargaDatosAnualH() @@ -2457,8 +2471,411 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Sub #End Region +#Region " P R O Y E C T O - H O R I Z O N T A L" + Private Sub CargaDatosProyectoH() + + If ChkAcumulados.Checked Then + FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" + Else + FechaIMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" + End If + FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" + FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy") + + CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero + CveProyecto = DdlProyecto.SelectedValue.ToEntero + + Dim ObjConta As New ClsContabilidad + If ObjConta.GetEstadosProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, VistaPorcentaje:=DdlvistaPorcentaje.SelectedValue.ToEntero) Then + DTProyectosCabecerasH = ObjConta.DSResultados.Tables(0) + DtDatosProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") + 'se limpian los subproyectos con importe cero + Dim IndexData As Integer = 1 + Dim ColumnasEliminar As New ArrayList + For Each dColumn As DataColumn In DtDatosProyectoH.Columns + 'si el nombre es numerico, s la clave del subproyecto + If dColumn.ColumnName.ToEntero > 0 Then + If DtDatosProyectoH.MAX(String.Format("[{0}]", dColumn.ColumnName)).ToDecimal = 0 Then + ColumnasEliminar.Add(dColumn.ColumnName) + End If + End If + Next + If ColumnasEliminar.Count > 0 Then + For Each columna As String In ColumnasEliminar + DtDatosProyectoH.Columns.Remove(columna) + Dim drrs As DataRow() = DTProyectosCabecerasH.Select($"CveProyecto = {columna}") 'limpio los valores + For Each drt As DataRow In drrs + DTProyectosCabecerasH.Rows.Remove(drt) + Next + Next + End If + Else + DtDatosProyectoH = Nothing + Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) + End If + ObjConta.Dispose() + + If DtDatosProyectoH IsNot Nothing And DTProyectosCabecerasH IsNot Nothing Then + CargaGridsProyectoH() + End If + + End Sub + + Private Sub CargaGridsProyectoH() + + DtIngresosProyectoH = DtDatosProyectoH.FiltraParametros("Tipo ='H' ") + DtGastosProyectoH = DtDatosProyectoH.FiltraParametros("Tipo ='G' ") + DTTotalesProyectoH = DtDatosProyectoH.Clone() + + Dim Row As DataRow = DtIngresosProyectoH.NewRow + Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0 + + Dim IndexData As Integer = 0 + Dim IndexGv As Integer = 1 + Dim IndexMax As Integer = 1 + Dim IndexProyecto As Integer = 0 + Dim IndexProyectoMax As Integer = DTProyectosCabecerasH.Rows.Count - 1 + + If IndexProyectoMax > GvIngresosProyectoH.Columns.Count - 2 Then + IndexProyectoMax = GvIngresosProyectoH.Columns.Count - 2 + End If + Dim IndexTotales As Integer = 13 + IndexProyectoMax + If IndexTotales > DtIngresosProyectoH.Columns.Count - 2 Then + IndexTotales = DtIngresosProyectoH.Columns.Count - 2 + End If + '34 + Dim IDX_LIMPIAR As Integer = 1 + + For IDX_LIMPIAR = 1 To GvIngresosProyectoH.Columns.Count - 3 + CType(GvIngresosProyectoH.Columns(IDX_LIMPIAR), BoundField).DataField = Nothing + CType(GvIngresosProyectoH.Columns(IDX_LIMPIAR), BoundField).HeaderText = "" + GvIngresosProyectoH.Columns(IDX_LIMPIAR).Visible = False + Next + listaCampos.Clear() + + Dim DTProcesaColumnas As DataTable = If(DtIngresosProyectoH.Rows.Count > 0, DtIngresosProyectoH, DtGastosProyectoH) + + For Each dColumn As DataColumn In DTProcesaColumnas.Columns + If IndexData >= 13 Then + If IndexProyecto <= IndexProyectoMax Then + If GvIngresosProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then + + CType(GvIngresosProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName + GvIngresosProyectoH.Columns(IndexGv).Visible = True + + CType(GvGastosProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName + GvGastosProyectoH.Columns(IndexGv).Visible = True + + If IndexProyecto <= IndexProyectoMax Then + + Dim TxtSub As String = GlobalDTProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Proyecto", $" CveProyecto={dColumn.ColumnName.ToEntero}") + CType(GvIngresosProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + CType(GvGastosProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + + CType(GvIngresosProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + CType(GvGastosProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + + If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinProyecto") Then + CType(GvIngresosProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" + GvIngresosProyectoH.Columns(IndexGv + 1).Visible = True + + CType(GvGastosProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" + GvGastosProyectoH.Columns(IndexGv + 1).Visible = True + End If + If dColumn.ColumnName = "SinProyecto" Then + GvIngresosProyectoH.Columns(IndexGv).Visible = False + GvIngresosProyectoH.Columns(IndexGv + 1).Visible = False + End If + End If + listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTProyectosCabecerasH.FiltroPrimeroValor("Proyecto", $"CveProyecto = {dColumn.ColumnName}")}) + End If + Else + If IndexGv < GvIngresosProyectoH.Columns.Count Then + GvIngresosProyectoH.Columns(IndexGv).Visible = False + Else + Exit For + End If + End If + + IndexGv = IndexGv + 2 + IndexProyecto = IndexProyecto + 1 + IndexMax = IndexMax + 1 + + End If + IndexData = IndexData + 1 + If dColumn.ColumnName = "SinProyecto" Then + 'Continue For + Exit For + End If + Next + + If DtIngresosProyectoH.Rows.Count > 0 Then + + For Each dr As DataRow In DtIngresosProyectoH.FiltraParametros("Not CtaMayor In (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal + Next + + IndexData = 13 + For IndexData = 13 To IndexTotales + If DtIngresosProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número + Row.Item(IndexData) = DtIngresosProyectoH.SUM($"[{DtIngresosProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)") + + If DtIngresosProyectoH.SUM($"[{DtIngresosProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") <> 0 Then + + If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then + Row.Item($"Porcentaje{DtIngresosProyectoH.Columns(IndexData).ColumnName}") = DtIngresosProyectoH.SUM($"[{DtIngresosProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Else + Dim TotalProyectoIngreso As Decimal = DtIngresosProyectoH.FiltroPrimeroValor($"{DtIngresosProyectoH.Columns(IndexData).ColumnName}").ToDecimal + Dim TotalCuentaIngreso As Decimal = DtIngresosProyectoH.SUMD($"[{DtIngresosProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)") + Row.Item($"Porcentaje{DtIngresosProyectoH.Columns(IndexData).ColumnName}") = TotalCuentaIngreso * 100 / TotalProyectoIngreso + End If + + Else + Row.Item($"Porcentaje{DtIngresosProyectoH.Columns(IndexData).ColumnName}") = "0" + End If + End If + Next + + Row.Item("Nombre") = "TOTAL INGRESOS " + Row.Item("ImporteActual") = DtIngresosProyectoH.SUM("ImporteActual", "Not CtaMayor In (3,4)") 'TotalActual.ToString + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DtIngresosProyectoH.SUM("ImporteAcumulado", "Not CtaMayor In (3,4)") 'TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + Row.Item("CountDinamico") = DtIngresosProyectoH.MAX("CountDinamico") + CountDinamicoProyecto = DtIngresosProyectoH.MAX("CountDinamico").ToEntero + DtIngresosProyectoH.Rows.Add(Row) + Else + Row.Item("Nombre") = "INGRESOS " + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtIngresosProyectoH.Rows.Add(Row) + + End If + DtIngresosProyectoH.Rows.Add(DtIngresosProyectoH.NewRow()) + + Dim T1 As Decimal = TotalActual, T2 As Decimal = TotalAnterior + + TotalActual = 0 + TotalAnterior = 0 + + Row = DtGastosProyectoH.NewRow + + If DtIngresosProyectoH.Rows.Count > 0 Then + + Row = DTTotalesProyectoH.NewRow + + IndexData = 13 + For IndexData = 13 To IndexTotales + If DtIngresosProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número + + Dim TotalProyectoIngreso As Decimal = DtIngresosProyectoH.SUMD($"[{DtIngresosProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") + Dim TotalProyectoEgreso As Decimal = DtGastosProyectoH.SUMD($"[{DtGastosProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") + + Row.Item(IndexData) = TotalProyectoIngreso - TotalProyectoEgreso + + 'Row.Item(IndexData) = DtIngresosProyectoH.SUM($"[{DtIngresosProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosProyectoH.SUM($"[{DtGastosProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") + + If TotalProyectoIngreso <> 0 Or TotalProyectoEgreso <> 0 Then + If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then + Row.Item($"Porcentaje{DtIngresosProyectoH.Columns(IndexData).ColumnName}") = DtIngresosProyectoH.SUM($"[{DtIngresosProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + Row.Item($"Porcentaje{DtIngresosProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / DtIngresosProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + Else + Row.Item($"Porcentaje{DtIngresosProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / TotalProyectoIngreso + End If + Else + Row.Item($"Porcentaje{DtIngresosProyectoH.Columns(IndexData).ColumnName}") = "0" + End If + + End If + Next + + Dim totalTemp As Decimal = DtIngresosProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") + Row.Item("Nombre") = "Resultado del ejercicio" + Row.Item("ImporteAcumulado") = DtIngresosProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") + Row.Item("CtaMayor") = -2 + Row.Item("CountDinamico") = DtIngresosProyectoH.MAX("CountDinamico").ToString.ToEntero + If DtIngresosProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") <> 0 Then + Row.Item("PorcentajeAcumulado") = (totalTemp * 100 / DtIngresosProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)")) + End If + DTTotalesProyectoH.Rows.Add(Row) + + End If + DtIngresosProyectoH.Merge(DtGastosProyectoH) + DtIngresosProyectoH.Merge(DTTotalesProyectoH) + GvIngresosProyectoH.DataSource = DtIngresosProyectoH + GvIngresosProyectoH.DataBind() + UpDatosProyectoH.Update() + + End Sub + + 'Private Sub SumaTotalesProyectoH() + ' ''Llena Lb´s Totales + ' ''********************************************************************************* + ' 'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero + ' 'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero + + ' 'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) + ' 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) + 'End Sub + + Protected Sub GvIngresosProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + + e.Row.FCHyperLink("Hypgrafica").Visible = If(e.Row.DBCampo("Nombre").ToString.Length > 0, True, False) + + If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then + TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray + 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + e.Row.ControlStyle.Font.Bold = True + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + 'e.Row.CssClass = "SubTotales3" + e.Row.ControlStyle.Font.Bold = True + + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then + + e.Row.ControlStyle.Font.Bold = True + e.Row.ControlStyle.Font.Size = 13 + End If + Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero + 'setgraficaCC(e) + 'Dim CveProyecto As Integer = e.Row.DataKey("CveProyecto").ToEntero + If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveProyecto={DdlProyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim IndiceInicio As Integer = 1 + Dim IndiceMax As Integer = 1 + CountDinamico + + Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth + If IndiceMax > GvIngresosProyectoH.Columns.Count - 3 Then + IndiceMax = GvIngresosProyectoH.Columns.Count - 3 + End If + + For IndiceInicio = 1 To IndiceMax + + If GvGastosProyectoH.Columns(IndiceInicio).GetType.Name = "BoundField" Then + Dim CveProyectoInterno As String = CType(GvGastosProyectoH.Columns(IndiceInicio), BoundField).DataField + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + + If CveProyectoInterno.ToEntero > 0 Then + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + End If + End If + Next IndiceInicio + + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveProyecto={DdlProyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then + + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim IndiceInicio As Integer = 1 + Dim IndiceMax As Integer = 1 + CountDinamico + If IndiceMax > GvIngresosProyectoH.Columns.Count - 3 Then + IndiceMax = GvIngresosProyectoH.Columns.Count - 3 + End If + + For IndiceInicio = 1 To IndiceMax + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + e.Row.Cells(IndiceInicio).Text = $"
    { If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
    " + Next IndiceInicio + + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then + + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim IndiceInicio As Integer = 1 + Dim IndiceMax As Integer = 1 + CountDinamico + If IndiceMax > GvIngresosProyectoH.Columns.Count - 3 Then + IndiceMax = GvIngresosProyectoH.Columns.Count - 3 + End If + + For IndiceInicio = 1 To IndiceMax + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + e.Row.Cells(IndiceInicio).Text = $"
    { If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
    " + Next IndiceInicio + + End If + + e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00")) + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + + End If + + End Sub + + Protected Sub GvGastosProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + 'setgraficaCC(e) + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + e.Row.ControlStyle.Font.Bold = True + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + 'e.Row.CssClass = "SubTotales" + e.Row.ControlStyle.Font.Bold = True + End If + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim IndiceInicio As Integer = 1 + Dim IndiceMax As Integer = 1 + CountDinamico + + For IndiceInicio = 1 To IndiceMax Step 2 + Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + e.Row.Cells(IndiceInicio).ForeColor = Color.Red + Next IndiceInicio + End If + End Sub + + Protected Sub GvTotalesProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.Header Then + ' e.Row.Attributes.Add("style", "display:none") + End If + If e.Row.RowType = DataControlRowType.DataRow Then + 'setgraficaCC(e) + e.Row.Attributes.Add("style", "Font-weight: bold") + + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim IndiceInicio As Integer = 1 + Dim IndiceMax As Integer = 1 + CountDinamico + + For IndiceInicio = 1 To IndiceMax Step 2 + Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + e.Row.Cells(IndiceInicio).Text = $"" + Next IndiceInicio + + End If + End Sub + + Public Sub setgraficaProyCC(e As GridViewRowEventArgs) + Dim lista As New List(Of Object) + Dim colorindex As Integer = 0 + For Each campo As String() In listaCampos + + 'Dim valorCampo As Decimal = If(e.Row.DBCampo(campo(0)).ToDecimal() < 0, (e.Row.DBCampo(campo(0)).ToDecimal() * -1), e.Row.DBCampo(campo(0)).ToDecimal()) + + lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)}) + colorindex = colorindex + 1 + If colorindex >= listacolores.Count Then + colorindex = 0 + End If + Next + e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista)) + End Sub +#End Region #Region "DESCARGA EXCEL" diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 1a90339d7..43b56f5e5 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -255,14 +255,14 @@ public partial class Contabilidad_RepIVA : ClsPaginas Ruta = string.Format("{0}Formatos\\{1}", UsuarioActual.Empresa.Ruta, Formato); //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); - if (UsuarioActual.Empresa.Funcionalidad(713).ToEntero() == 1) + if (UsuarioActual.Empresa.Funcionalidad(713).ToEntero() == 1 && !Ruta.Contains( "RepIVAAcreditable.rpt")) { ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta, Dt, para, DtIEPSA, DtIVAA, "RepIEPSPorcentaje.rpt", "RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); } else { - //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); - ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta, Dt, para, new DataTable(), new DataTable(), "RepIEPSPorcentaje.rpt", "RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); + ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); + //ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta, Dt, para, new DataTable(), new DataTable(), "RepIEPSPorcentaje.rpt", "RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); } }else diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt index 384b35d05..dcfbc35fd 100644 Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ diff --git a/Empresas/186/Formatos/Consola.rdlc b/Empresas/186/Formatos/Consola.rdlc index dc935ddee..1b4775d5d 100644 --- a/Empresas/186/Formatos/Consola.rdlc +++ b/Empresas/186/Formatos/Consola.rdlc @@ -528,7 +528,7 @@ - + =Parameters!SerieConsola.Value @@ -804,7 +804,7 @@ - + =Parameters!SeriePedal.Value @@ -3051,6 +3051,18 @@ Municipio y/o Delegación: true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Empresas/197/Formatos/OC.rdlc b/Empresas/197/Formatos/OC.rdlc index 2497110a5..694ca2c40 100644 --- a/Empresas/197/Formatos/OC.rdlc +++ b/Empresas/197/Formatos/OC.rdlc @@ -1754,7 +1754,7 @@ @@ -1762,7 +1762,7 @@ =IIF(LEN(Parameters!SubProyectoEntrega.Value) > 0,"Lugar de Entrega: " + Parameters!SubProyectoEntrega.Value,"") @@ -1770,7 +1770,7 @@ @@ -1785,8 +1785,8 @@ =Parameters!SubProyectoEntregaDir.Value @@ -1867,7 +1867,7 @@ =Parameters!RFC.Value @@ -1884,7 +1884,7 @@ "(" & Mid(Parameters!Telefono.Value, 1, 3) & ") " & Mid(Parameters!Telefono.Value, 4)) @@ -1899,7 +1899,7 @@ USO CFDI: @@ -1907,7 +1907,7 @@ =Parameters!UsoCFDI.Value diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index eb97b6a19..5bd34f062 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -4241,7 +4241,7 @@ - =Parameters!CartaPorteVersion.Value + =IIF(Parameters!RFC.Value = "BBD021220APA", "3.1", Parameters!CartaPorteVersion.Value) - Reporte + Reporte de Pedidos -<%--
  • - Generar PDF -
    • -
  • - Generar Excel -
    • --%> +
  • Ver Dlls en pesos
    • -<%-- - -
  • - Ver Grafica -
    • -     -     --%> +     @@ -79,113 +68,107 @@
    + -
    - - - - - - - - - - - - - - - - - - -
    -
    -
    - -
    -
    -     -     - - -
    SerieFolioFechaProveedorImporteMotivo
    {0}{0}{0}{0}{0}{0}
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - - -
    - - -
    - - -
    - - -
    - - -
    - - -
    - - -
    - - -
    - - -
    - - -
    - - -
    - - -
    - - -
    - - - -
    -
    - - -
    -
    -
    -
    - -
    -
    - - -
    -
    - -
    - - - - - -     - - - - - - - - - - - - - - - - - - - + --%> + + +
    + + + +
    + +
    +
    + + + + + + + + + + +
    +
    + +
    +
    + + + + + + + + + + +
    +
    + +
    + +
    + + + +
    + +
    + +
    + + +
    + + + + + +
    + + +
    + + + + + +
    + +
    +
    + +
    + +
    + +
    + + + + + +
    + +
    + + +
    + + Servicio Domicilio: +
    + + Todos + Si + No + +
    + Factura Global: +
    + + Todos + Solo Globales + Sin Globales + +
    + +
    + + + + + + + + + <%-- 0--%> + + + + + + + <%-- 1--%> + + + + + + + <%-- 2--%> + + + + + + <%-- 3--%> + + + + + + <%-- 4--%> + + + + + + <%-- 5--%> + + + + + + <%-- 6--%> + + + + + + <%-- 7--%> + + + + + + <%-- 8--%> + + + + + + <%-- 9--%> + + + + + + <%-- 10--%> + + + + + + <%-- 11--%> + + + + + + <%-- 12--%> + + + + + + <%-- 13--%> + + + + + + <%-- 14--%> + + + + + + <%-- 15--%> + + + + + + <%-- 16--%> + + + + + + <%-- 17--%> + + + + + + <%-- 18--%> + + + + + + <%-- 19--%> + + + + + + <%-- 20--%> + + + + + + <%-- 21--%> + + + + + + <%-- 22--%> + + + + + + <%-- 23--%> + + + + + + <%-- 24--%> + + + + + + <%-- 25--%> + + + + + + <%-- 26--%> + + + + + + <%-- 27--%> + + + + + + <%-- 28--%> + + + + + + <%-- 29--%> + + + + + + <%-- 30--%> + + + + + + <%-- 31--%> + + + + + + <%-- 32--%> + + + + + + <%-- 33--%> + + + + + + + <%-- 34--%> + + + + + + <%-- 35--%> + + + + + + + + + <%-- 36--%> + + + + + + <%-- 37--%> + + + + + + <%-- 38--%> + + + + + + <%-- 39--%> + + + + + + <%-- 40--%> + + + + + + <%-- 41--%> + + + + + + <%-- 42--%> + + + + + + <%-- 43--%> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + + + + + + - + + diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentasDetalle.aspx.vb similarity index 99% rename from Ventas/RepVentaDetalle.aspx.vb rename to Ventas/RepVentasDetalle.aspx.vb index 41430dc83..727b45648 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentasDetalle.aspx.vb @@ -6,7 +6,7 @@ Imports Extensiones Imports Microsoft.Reporting.WebForms Imports System.Net.Http -Partial Class RepVentaDetalle +Partial Class RepVentasDetalle Inherits ClsPaginas #Region "P R O P I E D A D E S" Private Property CveProyecto As Integer @@ -204,6 +204,7 @@ Partial Class RepVentaDetalle DdlProyecto.SelectedValueExist(CveProyecto) 'If DivProyecto.Visible Then CargaSubProyecto() + If CveProyecto.ToEntero > 0 Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto) DdlSubProyectoEjecucion.SelectedValueExist(CveSubProyectoEjecucion) DdlVendedor.SelectedValuesIfExistM(CveVendedor) @@ -317,7 +318,7 @@ Partial Class RepVentaDetalle End Sub Private Sub CargaCombos() - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) CargaClientes() @@ -371,7 +372,7 @@ Partial Class RepVentaDetalle End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") End Sub Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) @@ -432,6 +433,7 @@ Partial Class RepVentaDetalle Dim ModalidadContable As Boolean = CBool(If(Request("ModalidadContable") IsNot Nothing, Request("ModalidadContable").ToEntero(), 0)) ChkLecturaAdmin.Checked = Not ModalidadContable + CveProyecto = DdlProyecto.SelectedValue.ToEntero Dim ObjVentas As New ClsVentas() 'FechaI, FechaF, -1, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero @@ -1209,16 +1211,12 @@ Partial Class RepVentaDetalle Vendedor = If(DdlVendedor.GetSelectedText = "", "", $" Vendedor: {DdlVendedor.GetSelectedText}") CveUsuario = If(DdlUsuario.SelectedValue = "-1", "", $" Usuario: {DdlUsuario.SelectedItem.Text}") CveEstatusFactura = If(DdlEstatus.GetSelectedText = "", "", $" Estatus: {DdlEstatus.GetSelectedText}") - CondicionesPago = If(DdlCondicionesPago.selectedValue = "-1", "", String.Format(" Condiciones Pago: {0}", DdlCondicionesPago.SelectedItem.Text)) - + CondicionesPago = If(DdlCondicionesPago.SelectedValue = "-1", "", String.Format(" Condiciones Pago: {0}", DdlCondicionesPago.SelectedItem.Text)) Dim RutaFormato As String = String.Format("{0}Formatos\RepVentaDetalle.rdlc", UsuarioActual.Empresa.Ruta) - Dim Archivo As New System.IO.FileInfo(RutaFormato) Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - Dim logouri As String = String.Format("file://{0}", Imagen.FullName) - Dim dt As DataTable = DtVentas.FiltraParametros("(GPO IS NULL AND Cantidad IS NOT NULL) OR (GPO IS NOT NULL AND Cantidad IS NOT NULL)") Dim params As New List(Of ReportParameter) @@ -1229,11 +1227,8 @@ Partial Class RepVentaDetalle params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString)) params.Add(New ReportParameter("TipoDocto", TipoDocto)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo} {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec} {Vendedor} {CveUsuario} {CveEstatusFactura} {CondicionesPago} ")) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - - If Not Archivo.Exists Then RutaFormato = "Empresas/Grales/Formatos/RepVentaDetalle.rdlc" End If diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 59e0d4f5f..967500655 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -968,6 +968,11 @@ + + Motivo de devolución:  + + + @@ -1253,9 +1258,11 @@ <%--1--%> -
    -
    +
    + +
    +
    @@ -1671,7 +1678,7 @@ Amort. Ant.: -   +   @@ -4929,7 +4936,7 @@     - + Sucursal: @@ -7609,6 +7616,16 @@
    +
    +
    + +
    +
    + + + +
    +
    " style="display: inline-block; margin-right: -20px; width: 150px;" /> @@ -7970,9 +7987,9 @@
    -
    +
    - +
    @@ -8590,6 +8607,7 @@
    +
    diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c9326985c..34ce29ff4 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5284,6 +5284,8 @@ Partial Class Ventas Trsaldo.Visible = True HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta")) HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta")) + TrMotivoDev.Visible = True + lblMotivoDev.Text = DbRowVenta("MotivoDevolucion").ToString() Case "Ped" DdlTipoComprobante.Items.Insert(0, New ListItem("Pedido", "Ped")) CvePedido = CveVenta @@ -5527,6 +5529,7 @@ Partial Class Ventas TxtObsFact.Text = DbRowVenta("Observaciones").ToString() LblUsuario.Text = DbRowVenta("Nombre").ToString().SubStringADS(30) LblFechaRegistro.Text = DbRowVenta("FechaIng").ToString().ToDate.ToShortDateString + LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString() LblMail.Text = DbRowVenta("EnvioMail").ToString() TxtFechaPago.Text = DbRowVenta("FechaVencimiento").ToString() @@ -8423,7 +8426,7 @@ Partial Class Ventas ObjClientes.Dispose() Me.ObjFacturaNC = Nothing - Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas, EsCancelacion:=False) + Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas, EsCancelacion:=False, VerificaAlmacen:=False) DdlNCFactura.DataSource = DTFacNC DdlNCFactura.DataBind() @@ -8881,11 +8884,20 @@ Partial Class Ventas Dim DatarowPS As DataRow = Nothing DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero()).FiltroPrimero("") ' Estado = -1 + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If DdlTipoComprobante.SelectedValue = "Cot" Then + If PU < DatarowPS("PrecioMinimo").ToString().ToDecimal() Then + Alert($"El precio no puede ser menor al precio mínimo. Precio Mínimo: {DatarowPS("PrecioMinimo"):N2}", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If - If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then - If PU < DatarowPS("PrecioMinimo").ToString().ToDecimal() Then - Alert($"El precio no puede ser menor al precio mínimo. Precio Mínimo: {DatarowPS("PrecioMinimo"):N2}", TipoMensaje.MsgAdvertencia) - Exit Sub + If DdlTipoComprobante.SelectedValue = "Ant" Then + Dim PSCodigoSAT As String = DatarowPS("SATClavePS").ToString + If PSCodigoSAT <> "84111506" Then + Alert($"El producto y/o servicio no es valido para generar anticipos", TipoMensaje.MsgAdvertencia) + Exit Sub + End If End If End If @@ -8915,8 +8927,18 @@ Partial Class Ventas End If If CveUM <> CveUMInicial Then ValidaExistencia = True + 'SOLO VALIDA EXISTENCIAS Y COSTO: SI USA INVENTARIOS, SOLO PRODUCTOS TIPO PRODUCTO, SOLO REMISIONES E INGRESOS - If UsuarioActual.Empresa.UsaInventarios AndAlso CveTipoPS = 2 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") Or (DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119))) Then + Dim ValidaExistenciasCosto As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso CveTipoPS = 2 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") Or (DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119))) + + 'VALIDA COSTO PARA LAS COTIZACIONES + If Not ValidaExistenciasCosto Then + If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso (UsuarioActual.Empresa.Funcionalidad(382) = "1" OrElse UsuarioActual.CveEmpresa = 1) Then + ValidaExistenciasCosto = True + End If + End If + + If ValidaExistenciasCosto Then Dim ObjInventarios As New ClsInventarios Dim Existencia As Decimal If ValidaExistencia Then @@ -8947,7 +8969,7 @@ Partial Class Ventas If ValidaExistencia AndAlso DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False AndAlso Not RegistroxOC Then 'VALIDA EXISTENCIA - If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 140, 153}) Then + If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 140, 153, 190, 192, 197}) Then 'SI ES VENTA NUEVA TOMA EN CUENTA LO DEL TMPDT If CveVenta <= 0 Then If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then @@ -9746,9 +9768,9 @@ Partial Class Ventas Dim RowAutorizacion As DataRow = Nothing 'SI TIENE DIAS VENCIDOS BUSCAR POR TIPO VENCIMIENTO If TieneDiasVencidos Then - RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion IN(1,2) AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC") + RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion IN(1,2) AND CveVenta IS NULL AND CveTipoDocumento='{"Ing"}'", Orderby:="Importe DESC") Else - RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion = 1 AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC") + RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion = 1 AND CveVenta IS NULL AND CveTipoDocumento='{"Ing"}'", Orderby:="Importe DESC") End If If RowAutorizacion IsNot Nothing Then @@ -9796,14 +9818,6 @@ Partial Class Ventas End If - 'If TipoAutorizacion = 2 Then - ' If DiasVencidosCliente > DiasVencidosAutorizacion Then - ' CveAutorizacion = -1 - ' Alert($"El crédito no esta autorizado. Los días vencidos del cliente son mayores a lo autorizado", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - 'End If - 'SI NO SE ENCONTRO NINGUA AUTORIZACION If TipoAutorizacion = 0 Then If TieneDiasVencidos Then @@ -9814,21 +9828,57 @@ Partial Class Ventas End If End If - 'If TieneDiasVencidos AndAlso DdlTipoComprobante.SelectedValue = "Egs" AndAlso CveAutorizacion <= 0 Then - ' CveAutorizacion = -1 - ' Alert($"El crédito no esta autorizado. No tiene autorización para generar notas de crédito. El cliente tiene días vencidos", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If + End If - 'If TipoDocumentoAutorizacion = "Egs" Then - ' If TipoAutorizacion = 1 Then - ' If ImporteAutorizacion < TxtTotal.Text.ToDecimal() Then - ' CveAutorizacion = -1 - ' Alert($"El crédito autorizado es insuficiente. Crédito Disponible:{ImporteAutorizacion:N2}", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - ' End If - 'End If + 'VALIDACION DE AUTORIZACION PARA NC, POR AHORA SOLO BDH + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs") Then + PermiteAutorizacion = False + 'SI NO ES GENERADA CON REMISIONES DE NC, UTILIZAR LA AUTORIZACION + If (ListaRemisionesNC Is Nothing OrElse ListaRemisionesNC.Count = 0) Then + PermiteAutorizacion = True + End If + + If PermiteAutorizacion Then + + Dim ImporteAutorizacion As Decimal = 0 + Dim TipoAutorizacion As Integer = 0 + + Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero() + + Dim ObjVentas As New ClsVentas + + If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, CveVendedor, "Egs", CveEstatus:=1) Then + Dim RowAutorizacion As DataRow = Nothing + 'SI TIENE DIAS VENCIDOS BUSCAR POR TIPO VENCIMIENTO + RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion = 1 AND CveVenta IS NULL AND CveTipoDocumento='Egs'", Orderby:="Importe DESC") + + If RowAutorizacion IsNot Nothing Then + ImporteAutorizacion = RowAutorizacion("Importe").ToString().ToDecimal() + CveAutorizacion = RowAutorizacion("CveAutorizacion").ToString().ToEntero() + TipoAutorizacion = RowAutorizacion("TipoAutorizacion").ToString().ToEntero() + End If + + End If + + ObjVentas.Dispose() + + If TipoAutorizacion = 1 Then + If ImporteAutorizacion < TxtTotal.Text.ToDecimal() Then + Dim BloquearCredito As Boolean = True + CveAutorizacion = -1 + + If BloquearCredito Then + Alert($"El importe autorizado es insuficiente. Importe autorizado:{ImporteAutorizacion:N2}", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + Else + CveAutorizacion = -1 + Alert($"No se encontro una autorización de crédito.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If End If 'VALIDAR LINEAS ADICIONALES @@ -12229,7 +12279,7 @@ Partial Class Ventas ObjFactura.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim ObjFactura.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim - ObjFactura.MonedaAbreviatura = "" + ObjFactura.MonedaAbreviatura = DdlMoneda.SelectedItem.Text If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime @@ -13998,6 +14048,11 @@ Partial Class Ventas 'CveAlmacenTraspasoDestino End If + Dim CveMotivoDevolucion As Integer = -1 + If DdlMotivoDevolucion.SelectedValue.ToEntero() > 0 Then + CveMotivoDevolucion = DdlMotivoDevolucion.SelectedValue.ToEntero() + End If + If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, @@ -14017,7 +14072,7 @@ Partial Class Ventas FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible, CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta, CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked, FechaParaSurtir:=factura.FechaParaSurtir, - Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text) Then + Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveMotivoDevolucion:=CveMotivoDevolucion) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
    Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then @@ -16103,7 +16158,7 @@ Partial Class Ventas If Not TraspasoAlmacen(ObjInventario, ObjVentas, CveRemision, ObjConta, True, 9, TmpDTDetalle) Then OcurrioError = True ErrorList.Add("Ocurrió un error al verificar inventario de remisiones.
    Revise su factura y cualquier detalle comuníquese a Soporte Técnico") - ModExtensiones.GuardaLog("Ocurrió un error al verificar inventario de remisiones.Revise su factura y cualquier detalle comuníquese a Soporte Técnico") + ModExtensiones.GuardaLog("Ocurrió un error al verificar inventario de remisiones.Revise su factura y cualquier detalle comuníquese a Soporte Técnico: CveVenta:" & CveRemision & " ") Exit For End If Next @@ -16692,6 +16747,13 @@ Partial Class Ventas HdnTieneAnticipos.Value = "0" If CveCliente > 0 Then + 'QUE NO SE PUEDA REALIZAR AMORTIZACIÓN DE ANTICIPO POR DESCUENTO + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If DdlTipoAmortizacionAnticipo.Items.FindByValue("1") IsNot Nothing Then + DdlTipoAmortizacionAnticipo.Items.Remove(DdlTipoAmortizacionAnticipo.Items.FindByValue("1")) + End If + End If + HdnIVACalculado.Value = "0" 'SI ES REFACTURACION NO LIMPIAR EL FOLIO FISCAL If NuevaFactura <> 1 Then @@ -18098,7 +18160,7 @@ Partial Class Ventas End Sub Protected Sub DdlNCFactura_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlNCFactura.SelectedIndexChanged Dim objcompras As New ClsCompras - If objcompras.GetCompraDetallealmacen(0, DdlNCFactura.SelectedValue.ToEntero()) Then + If objcompras.GetCompraDetalleAlmacen(0, DdlNCFactura.SelectedValue.ToEntero()) Then GvInvNC.DataSource = objcompras.DtResultados If objcompras.DtResultados.Rows.Count > 0 Then Tab.ActiveTabIndex = 1 @@ -18792,13 +18854,24 @@ Partial Class Ventas Return False End If - If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then Dim DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If DatarowPS IsNot Nothing Then - If PU < DatarowPS("PrecioMinimo").ToString().ToDecimal() Then - Alert($"El precio no puede ser menor al precio mínimo. Precio Mínimo: {DatarowPS("PrecioMinimo"):N2}", TipoMensaje.MsgAdvertencia) - Return False + If DdlTipoComprobante.SelectedValue = "Cot" Then + If PU < DatarowPS("PrecioMinimo").ToString().ToDecimal() Then + Alert($"El precio no puede ser menor al precio mínimo. Precio Mínimo: {DatarowPS("PrecioMinimo"):N2}", TipoMensaje.MsgAdvertencia) + Return False + End If End If + + If DdlTipoComprobante.SelectedValue = "Ant" Then + Dim PSCodigoSAT As String = DatarowPS("SATClavePS").ToString + If PSCodigoSAT <> "84111506" Then + Alert($"El producto y/o servicio '{DatarowPS("CodigoPS").ToString}' no es valido para generar anticipos", TipoMensaje.MsgAdvertencia) + Return False + End If + End If + End If End If @@ -18839,33 +18912,24 @@ Partial Class Ventas ' NO VALIDA EXISTENCIAS NI COSTO - PERMISO PARA NO VALIDAR If Not UsuarioActual.TienePermisoProceso(169) AndAlso RBLTipoVenta.SelectedValue.ToEntero <> 5 Then 'SOLO VALIDA EXISTENCIAS Y COSTO: SI USA INVENTARIOS, SOLO PRODUCTOS TIPO PRODUCTO, SOLO REMISIONES E INGRESOS - If UsuarioActual.Empresa.UsaInventarios AndAlso CveTipoPS = 2 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") OrElse ((DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119)) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ped") And UsuarioActual.CveEmpresa.Contiene(186)))) Then + Dim ValidaExistenciasCosto As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso CveTipoPS = 2 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") OrElse ((DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119)) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ped") And UsuarioActual.CveEmpresa.Contiene(186)))) + + 'VALIDA COSTO PARA LAS COTIZACIONES + If Not ValidaExistenciasCosto Then + If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso (UsuarioActual.Empresa.Funcionalidad(382) = "1" OrElse UsuarioActual.CveEmpresa = 1) Then + ValidaExistenciasCosto = True + End If + End If + + If ValidaExistenciasCosto Then Dim ObjInventarios As New ClsInventarios - Dim BuscarEnTabla As Boolean = If(UsuarioActual.Empresa.Funcionalidad(715) = "1", True, False) - - - Dim Existencia As Decimal = 0D - - If RBLTipoVenta.SelectedValue.ToEntero = 6 Then - Existencia = ObjInventarios.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, CveAlamcenFiltroDdl, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=-1, - CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=0, PendientePorSurtir:=1, - RestringirAlmacenes:=1, ExcluyeApartados:=-1, BuscarEnTabla:=BuscarEnTabla) - Else - Existencia = ObjInventarios.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), - CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, - RestringirAlmacenes:=1, ExcluyeApartados:=-1, BuscarEnTabla:=BuscarEnTabla) - End If - - - - Dim Costo As Decimal = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) - 'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal If Costo <= 0 Then Costo = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1) ObjInventarios.Dispose() + Dim PrecioMinimo As Decimal = 0 'RMF. condicion temporal, para reubicación, precio mínimo If UsuarioActual.CveEmpresa = 119 Then @@ -18881,12 +18945,51 @@ Partial Class Ventas End If - If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Or UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + Dim ValidaExistencia As Boolean = (DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False) Or UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 + + If ValidaExistencia Then + 'VALIDA EXISTENCIA - If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140, 186, 190}) Then + If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140, 186, 190, 192, 197}) Then + + Dim BuscarEnTabla As Boolean = If(UsuarioActual.Empresa.Funcionalidad(715) = "1", True, False) + + Dim Existencia As Decimal = 0D + + Using ObjInv2 As New ClsInventarios + If RBLTipoVenta.SelectedValue.ToEntero = 6 Then + Existencia = ObjInv2.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, CveAlamcenFiltroDdl, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=-1, + CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=0, PendientePorSurtir:=1, + RestringirAlmacenes:=1, ExcluyeApartados:=-1, BuscarEnTabla:=BuscarEnTabla) + Else + + Dim CveAlmacenConsulta As Integer = -1 + + If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso DivAlmacen.Visible Then + CveAlmacenConsulta = ddlAlmacen.SelectedValue.ToEntero() + End If + + Existencia = ObjInv2.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, CveAlmacenConsulta, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), + CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, + RestringirAlmacenes:=1, ExcluyeApartados:=-1, BuscarEnTabla:=BuscarEnTabla) + End If + End Using + If CveVenta <= 0 OrElse Me.EsCreaApartirDe Then If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < (If(CantidadModal > 0, CantidadModal, TxtCantidad.Text.ToDouble)) Then - Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) + + Dim CveAlmacenConsulta As Integer = -1 + Dim StrAlmacen As New StringBuilder + + If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso DivAlmacen.Visible Then + CveAlmacenConsulta = ddlAlmacen.SelectedValue.ToEntero() + If CveAlmacenConsulta > 0 Then + Dim Almacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenConsulta).FiltroPrimeroValor("Almacen") + StrAlmacen.AppendFormat("
    Almacén: {0}", Almacen) + End If + End If + + Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + "." + StrAlmacen.ToString(), TipoMensaje.MsgAdvertencia) Return False End If Else @@ -24026,9 +24129,9 @@ Partial Class Ventas Dim AmortizacionNC As Decimal = 0 'SI ES AMORTIZACION POR NOTA DE CREDITO DEBE SUMAR LA TOTALIDAD PARA COMPARAR EL PAGO - If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then + If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue.Contiene("2", "4") Then For Each gvr As GridViewRow In GVAnticipos.Rows - If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(3) Then + If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(3, 12) Then AmortizacionNC += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal End If Next @@ -25346,6 +25449,8 @@ Partial Class Ventas End If Else PermiteCancelar = False + 'si hay error para obtener información que no continue. + Exit Sub End If End Using @@ -37366,6 +37471,22 @@ Partial Class Ventas End If If PuedeAplicarDevolucion Then + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + DivMotivoDevolucion.Visible = True + + Using ObjVenta As New ClsVentas + If ObjVenta.GetMotivoDevolucion(-1, 1, UsuarioActual.CveEmpresa) Then + DdlMotivoDevolucion.DataSource = ObjVenta.DtResultados.Copy() + End If + DdlMotivoDevolucion.DataBind() + DdlMotivoDevolucion.Items.Insert(0, New ListItem("Seleccione", "-1")) + End Using + + UpDevolucion.Update() + End If + + RegistraScript("$('#DivAplicaDevolucion').modal('show');") End If @@ -38382,9 +38503,12 @@ Partial Class Ventas DdlTipoAmortizacionAnticipo.Items.Remove(DdlTipoAmortizacionAnticipo.Items.FindByValue("2")) End If Else - If DdlTipoAmortizacionAnticipo.Items.FindByValue("1") Is Nothing Then - DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo en descuento", "1")) + If Not (UsuarioActual.Empresa.Funcionalidad(382) = "1") Then + If DdlTipoAmortizacionAnticipo.Items.FindByValue("1") Is Nothing Then + DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo en descuento", "1")) + End If End If + If DdlTipoAmortizacionAnticipo.Items.FindByValue("2") Is Nothing Then DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo con nota de crédito", "2")) End If