diff --git a/AC/CatPresupuestoEgresos.aspx.vb b/AC/CatPresupuestoEgresos.aspx.vb index 7f3ada4ab..1f870fa6f 100644 --- a/AC/CatPresupuestoEgresos.aspx.vb +++ b/AC/CatPresupuestoEgresos.aspx.vb @@ -2,7 +2,6 @@ Option Explicit On Imports System.Data -Imports System.Linq Imports Extensiones Imports Microsoft.Reporting.WebForms diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb index 5c2b88185..14398413b 100644 --- a/Acarreos/CatChoferes.aspx.vb +++ b/Acarreos/CatChoferes.aspx.vb @@ -1,5 +1,4 @@ Imports Extensiones -Imports System.Data Partial Class Acarreos_CatChoferes @@ -70,10 +69,10 @@ Partial Class Acarreos_CatChoferes 'Else Dim ObjAcar As New ClsAcarreos - Dim Estatus = 0 - If ChkEstatus.Checked Then Estatus = 1 + Dim Estatus = 0 + If ChkEstatus.Checked Then Estatus = 1 - If HdnModalidad.Value = "A" Then + If HdnModalidad.Value = "A" Then If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then CargaDatos() Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) @@ -87,9 +86,9 @@ Partial Class Acarreos_CatChoferes End If End If - RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer")) - ObjAcar.Dispose() - UpDatos.Update() + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer")) + ObjAcar.Dispose() + UpDatos.Update() End Sub diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb index 6efd21697..b0ade4bb2 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb +++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb @@ -1,6 +1,5 @@ -Imports Extensiones -Imports System.Data -Imports System +Imports System.Data +Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Acumuladores_RepEntradasUsadosClientes diff --git a/Acumuladores/RepIndicadorDiarioDetalle.aspx.vb b/Acumuladores/RepIndicadorDiarioDetalle.aspx.vb index 7f6974f37..3c8ae4a37 100644 --- a/Acumuladores/RepIndicadorDiarioDetalle.aspx.vb +++ b/Acumuladores/RepIndicadorDiarioDetalle.aspx.vb @@ -1,11 +1,6 @@ Option Explicit On Option Strict On - -Imports System.Data -Imports System.IO Imports Extensiones -Imports Microsoft.Reporting.WebForms -Imports System.IO.Compression Partial Class Acumuladores_RepIndicadorDiarioDetalle Inherits ClsPaginas diff --git a/Agropecuaria/CierreCultivo.aspx b/Agropecuaria/CierreCultivo.aspx new file mode 100644 index 000000000..cfe196643 --- /dev/null +++ b/Agropecuaria/CierreCultivo.aspx @@ -0,0 +1,99 @@ +<%@ Page Title="Catálogo de Unidades" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CierreCultivo.aspx.vb" Inherits="Agrupecuaria_CierreCultivo" EnableEventValidation="false" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + + Cierre de Cultivo + + + + + + +
  • + +
    • +     +     +     + + + + + + + +
    +
    +
    + + "> + +
    +
    +
    + +
    Temporada:
    +
    + + +
    + +
    + +
    +
    +
    > 1 + +
    +
    +     +     + + + + + + + +
    +
    + + + + + + + +
    +
    + + + +     +     + + + + + + + + +     + + + diff --git a/Agropecuaria/CierreCultivo.aspx.vb b/Agropecuaria/CierreCultivo.aspx.vb new file mode 100644 index 000000000..9b6b4f83e --- /dev/null +++ b/Agropecuaria/CierreCultivo.aspx.vb @@ -0,0 +1,78 @@ +Imports Extensiones +Partial Class Agrupecuaria_CierreCultivo + Inherits ClsPaginas + + Private Property CveCamion As Integer + Get + + If ViewState("CveCamion") Is Nothing Then + Return -1 + Else + Return ViewState("CveCamion").ToString().ToEntero() + End If + End Get + Set(ByVal value As Integer) + ViewState("CveCamion") = value + End Set + End Property + + Private Sub Agrupecuaria_CierreCultivo_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaCombos() + + End If + End Sub + + + Private Sub CargaCombos() + + Dim ObjGral As New ClsGenerales + + If ObjGral.GetTempordas(-1, UsuarioActual.CveEmpresa) Then + DdlTemporada.DataSource = ObjGral.DtResultados + End If + DdlTemporada.DataBind() + DdlTemporada.Items.Insert(0, New ListItem("Seleccione Una", "-1")) + + UpFiltros.Update() + + End Sub + + + + Public Sub CargaDatos() + + If Not DdlTemporada.SelectedValue.ToEntero > 0 Then + Alert("Debe de seleccionar una temporada", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim ObjGral As New ClsGenerales + + If ObjGral.GetCierreCultivos(DdlTemporada.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjGral.DtResultados + Else + GvDatos.DataSource = Nothing + End If + + ObjGral.Dispose() + GvDatos.DataBind() + UpDatos.Update() + + + End Sub + + + Private Sub CierraCultivo() + + End Sub + + + + + + + Protected Sub btConsultar_Click(sender As Object, e As EventArgs) + CargaDatos() + End Sub +End Class diff --git a/App_Code/ADSBase.vb b/App_Code/ADSBase.vb index 708cac5cb..af0ae20bf 100644 --- a/App_Code/ADSBase.vb +++ b/App_Code/ADSBase.vb @@ -1,6 +1,5 @@ Imports System.Data Imports System.Data.SqlClient -Imports System.IO Imports Extensiones Public Class ADSBase diff --git a/App_Code/BaseMasterPage.vb b/App_Code/BaseMasterPage.vb index 802ae5285..5850da626 100644 --- a/App_Code/BaseMasterPage.vb +++ b/App_Code/BaseMasterPage.vb @@ -1,8 +1,4 @@ - -Imports System.Data -Imports System.Linq -Imports Extensiones -Public Class BaseMasterPage +Public Class BaseMasterPage Inherits MasterPage Public Overridable ReadOnly Property MyTitle() As String Get diff --git a/App_Code/BundleConfig.vb b/App_Code/BundleConfig.vb index 4331cdfa4..26201a87f 100644 --- a/App_Code/BundleConfig.vb +++ b/App_Code/BundleConfig.vb @@ -3,11 +3,11 @@ Public Class BundleConfig Public Shared Sub RegistrarBundles(bundles As BundleCollection) - + bundles.Add(New ScriptBundle("~/bundles/jquery").Include( "~/Metronic/assets/global/plugins/jquery.min.js" )) - ScriptManager.ScriptResourceMapping.AddDefinition("jquery", Nothing, New ScriptResourceDefinition with { .Path ="~/bundles/jquery"}) + ScriptManager.ScriptResourceMapping.AddDefinition("jquery", Nothing, New ScriptResourceDefinition with {.Path = "~/bundles/jquery"}) @@ -159,12 +159,12 @@ Public Class BundleConfig "~/Scripts/WebForms/WebForms.js", "~/Scripts/WebForms/WebUIValidation.js", "~/Scripts/WebForms/MenuStandards.js", - "~/Scripts/WebForms/Focus.js", "~/Scripts/WebForms/GridView.js", + "~/Scripts/WebForms/Focus.js", "~/Scripts/WebForms/GridView.js", "~/Scripts/WebForms/DetailsView.js", "~/Scripts/WebForms/TreeView.js", "~/Scripts/WebForms/WebParts.js")) - ScriptManager.ScriptResourceMapping.AddDefinition("WebFormsBundle", new ScriptResourceDefinition With { .Path = "~/bundles/WebFormsJs" }) + ScriptManager.ScriptResourceMapping.AddDefinition("WebFormsBundle", new ScriptResourceDefinition With {.Path = "~/bundles/WebFormsJs"}) ' Order is very important for these files to work, they have explicit dependencies bundles.Add(New ScriptBundle("~/bundles/MsAjaxJs").Include( @@ -173,7 +173,7 @@ Public Class BundleConfig "~/Scripts/WebForms/MsAjax/MicrosoftAjaxTimer.js", "~/Scripts/WebForms/MsAjax/MicrosoftAjaxWebForms.js")) - ' Use the Development version of Modernizr to develop with and learn from. Then, when you’re + ' Use the Development version of Modernizr to develop with and learn from. Then, when you’re ' ready for production, use the build tool at http://modernizr.com to pick only the tests you need bundles.Add(New ScriptBundle("~/bundles/modernizr").Include( "~/Scripts/modernizr-*")) diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index 111ecd684..c1f2e0bf7 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -1,7 +1,6 @@ Option Strict On Option Explicit On Imports Extensiones -Imports System.Linq Public Class CFDITimbre @@ -14,7 +13,8 @@ Public Class CFDITimbre Public Property RetencionesLocales As List(Of CFDIRetencionesLocales) Public Property TrasladosLocales As List(Of CFDITrasladosLocales) Public Property Nomina As CFDINomina - Public Property ComplementoPagos As CFDIComplementoPagos + Public Property ComplementoPagos As CFDIComplementoPago + Public Property ComplementoPagos20 As CFDIComplementoPagos20 Public Property Complementos As CFDIComplementos Public Property Timbrado As Boolean Public Property IStimbreFiniquito As Boolean @@ -116,7 +116,8 @@ Public Class CFDITimbre Receptor = New CFDIReceptor RetencionesLocales = New List(Of CFDIRetencionesLocales) TrasladosLocales = New List(Of CFDITrasladosLocales) - ComplementoPagos = New CFDIComplementoPagos + ComplementoPagos = New CFDIComplementoPago + ComplementoPagos20 = New CFDIComplementoPagos20 Complementos = New CFDIComplementos End Sub @@ -438,7 +439,111 @@ End Class -Public Class CFDIComplementoPagos +Public Class CFDIComplementoPagos20 + + Public Property TotalTrasladosBaseExento As Decimal = 0 + Public Property TotalRetencionesIVA As Decimal = 0 + Public Property TotalRetencionesISR As Decimal = 0 + Public Property ComplementoPagos As List(Of CFDIComplementoPago) + + Public ReadOnly Property MontoTotalPagos As Decimal + Get + Return (From c In ComplementoPagos Select c.Monto * c.TipoCambioP).Sum() + End Get + End Property + Public ReadOnly Property TotalTrasladosBaseIVA0 As Decimal + Get + Dim Ret As Decimal = 0 + For Each cfd As CFDIComplementoPago In ComplementoPagos + Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.0 Select c.BaseMN).Sum() * cfd.TipoCambioP) + Next + Return Ret.RoundSQL() + End Get + End Property + Public ReadOnly Property TotalTrasladosImpuestoIVA0 As Decimal + Get + Dim Ret As Decimal = 0 + For Each cfd As CFDIComplementoPago In ComplementoPagos + Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.0 Select c.ImporteMN).Sum() * cfd.TipoCambioP) + Next + Return Ret.RoundSQL() + End Get + End Property + Public ReadOnly Property TotalTrasladosBaseIVA8 As Decimal + Get + Dim Ret As Decimal = 0 + For Each cfd As CFDIComplementoPago In ComplementoPagos + Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.BaseMN).Sum() * cfd.TipoCambioP) + Next + Return Ret.RoundSQL() + End Get + End Property + Public ReadOnly Property TotalTrasladosImpuestoIVA8 As Decimal + Get + Dim Ret As Decimal = 0 + For Each cfd As CFDIComplementoPago In ComplementoPagos + Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.ImporteMN).Sum() * cfd.TipoCambioP) + Next + Return Ret.RoundSQL() + End Get + End Property + Public ReadOnly Property TotalTrasladosBaseIVA16 As Decimal + Get + Dim Ret As Decimal = 0 + For Each cfd As CFDIComplementoPago In ComplementoPagos + Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.BaseMN).Sum() * cfd.TipoCambioP) + Next + Return Ret.RoundSQL() + End Get + End Property + Public ReadOnly Property TotalTrasladosImpuestoIVA16 As Decimal + Get + Dim Ret As Decimal = 0 + For Each cfd As CFDIComplementoPago In ComplementoPagos + Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.ImporteMN).Sum() * cfd.TipoCambioP) + Next + Return Ret.RoundSQL() + End Get + End Property + Public ReadOnly Property TotalRetencionesIEPS As Decimal + Get + Dim Ret As Decimal = 0 + For Each cfd As CFDIComplementoPago In ComplementoPagos + Ret = Ret + ((From c In cfd.Retenciones Where c.Impuesto = "003" Select c.ImporteMN).Sum() * cfd.TipoCambioP) + Next + Return Ret.RoundSQL() + End Get + End Property + + Sub New() + + ComplementoPagos = New List(Of CFDIComplementoPago) + + End Sub + + 'Public ReadOnly Property Totales As CFDIComplementoPagosTotales + ' Get + ' Dim tRetorno As New CFDIComplementoPagosTotales + ' tRetorno.MontoTotalPagos = (From c In DocumentosRelacionados Select c.ImpPagadoMN).Sum() + + ' tRetorno.TotalTrasladosBaseIVA0 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0 Select c.BaseMN).Sum() + ' tRetorno.TotalTrasladosBaseIVA8 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.BaseMN).Sum() + ' tRetorno.TotalTrasladosBaseIVA16 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.BaseMN).Sum() + + ' tRetorno.TotalTrasladosImpuestoIVA0 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0 Select c.Importe).Sum() + ' tRetorno.TotalTrasladosImpuestoIVA8 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.ImporteMN).Sum() + ' tRetorno.TotalTrasladosImpuestoIVA16 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.ImporteMN).Sum() + + ' tRetorno.TotalRetencionesIEPS = (From c In Retenciones Where c.Impuesto = "003" Select c.ImporteMN).Sum() + + ' Return tRetorno + ' End Get + 'End Property +End Class + + + +Public Class CFDIComplementoPago Public Property FechaPago As Date Public Property FormaDePagoP As String = "" Public Property MonedaP As String = "" @@ -456,24 +561,24 @@ Public Class CFDIComplementoPagos Public Property SelloPago As String = "" Public Property DocumentosRelacionados As List(Of CFDIComplementoPagosDocsRelacionados) Public Property Impuestos As List(Of CFDIConceptosImpuestos) - Public ReadOnly Property Totales As CFDIComplementoPagosTotales - Get - Dim tRetorno As New CFDIComplementoPagosTotales - tRetorno.MontoTotalPagos = (From c In DocumentosRelacionados Select c.ImpPagadoMN).Sum() + 'Public ReadOnly Property Totales As CFDIComplementoPagosTotales + ' Get + ' Dim tRetorno As New CFDIComplementoPagosTotales + ' tRetorno.MontoTotalPagos = (From c In DocumentosRelacionados Select c.ImpPagadoMN).Sum() - tRetorno.TotalTrasladosBaseIVA0 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0 Select c.BaseMN).Sum() - tRetorno.TotalTrasladosBaseIVA8 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.BaseMN).Sum() - tRetorno.TotalTrasladosBaseIVA16 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.BaseMN).Sum() + ' tRetorno.TotalTrasladosBaseIVA0 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0 Select c.BaseMN).Sum() + ' tRetorno.TotalTrasladosBaseIVA8 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.BaseMN).Sum() + ' tRetorno.TotalTrasladosBaseIVA16 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.BaseMN).Sum() - tRetorno.TotalTrasladosImpuestoIVA0 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0 Select c.Importe).Sum() - tRetorno.TotalTrasladosImpuestoIVA8 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.ImporteMN).Sum() - tRetorno.TotalTrasladosImpuestoIVA16 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.ImporteMN).Sum() + ' tRetorno.TotalTrasladosImpuestoIVA0 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0 Select c.Importe).Sum() + ' tRetorno.TotalTrasladosImpuestoIVA8 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.ImporteMN).Sum() + ' tRetorno.TotalTrasladosImpuestoIVA16 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.ImporteMN).Sum() - tRetorno.TotalRetencionesIEPS = (From c In Retenciones Where c.Impuesto = "003" Select c.ImporteMN).Sum() + ' tRetorno.TotalRetencionesIEPS = (From c In Retenciones Where c.Impuesto = "003" Select c.ImporteMN).Sum() - Return tRetorno - End Get - End Property + ' Return tRetorno + ' End Get + 'End Property Public ReadOnly Property TotalImpuestosRetenidos As Decimal Get diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb index 9a8729a1a..58abbdf3b 100644 --- a/App_Code/CalendarEvent.vb +++ b/App_Code/CalendarEvent.vb @@ -1,10 +1,5 @@ Option Explicit On Option Strict On - -Imports System -Imports System.Collections.Generic -Imports System.Linq -Imports System.Web Public Class CalendarEvent Public Property id As Integer diff --git a/App_Code/ClsAC.vb b/App_Code/ClsAC.vb index 45e0a37f1..a48e0b047 100644 --- a/App_Code/ClsAC.vb +++ b/App_Code/ClsAC.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsAC Implements IDisposable diff --git a/App_Code/ClsAC2.vb b/App_Code/ClsAC2.vb index 50fbb9284..a448c8dae 100644 --- a/App_Code/ClsAC2.vb +++ b/App_Code/ClsAC2.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsAC2 Implements IDisposable diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index fd6191f40..d06e61b3a 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -4,8 +4,6 @@ Option Explicit On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsAF Implements IDisposable diff --git a/App_Code/ClsAIMMGM.vb b/App_Code/ClsAIMMGM.vb index 58eb962a9..70a4b2ddb 100644 --- a/App_Code/ClsAIMMGM.vb +++ b/App_Code/ClsAIMMGM.vb @@ -12,7 +12,7 @@ Public Class ClsAIMMGM 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter - Private SqlCommand As SqlCommand + Private SqlCommand As SqlCommand Private SqlTransacc As SqlTransaction Private Data As DataTable Private disposedValue As Boolean = False ' Para detectar llamadas redundantes @@ -44,7 +44,7 @@ Public Class ClsAIMMGM Public Sub Commit() SqlTransacc.Commit() End Sub - + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) If TransaccionCompartida Is Nothing Then diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb index b1d38972e..e192b5e48 100644 --- a/App_Code/ClsAcarreos.vb +++ b/App_Code/ClsAcarreos.vb @@ -1,15 +1,13 @@ Imports System.Data -Imports Microsoft.VisualBasic -Imports Extensiones Imports System.Data.SqlClient -Imports System Imports System.IO +Imports Extensiones Public Class ClsAcarreos - Implements IDisposable - + Implements IDisposable + #Region "Campos" - 'SQL + 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlCommand As SqlCommand @@ -23,16 +21,16 @@ Public Class ClsAcarreos Get DtResultados = Data End Get - End Property - + End Property + #End Region - + #Region "Propiedades" Public Property _Folio As Integer Public Property _CveAcarreoProyecto As Integer - Public Property _CvePreEstimacion As Integer + Public Property _CvePreEstimacion As Integer #End Region - + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) If TransaccionCompartida Is Nothing Then @@ -59,9 +57,9 @@ Public Class ClsAcarreos End With If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc Data = New DataTable - End Sub + End Sub #Region "Conexiones" - + Private Sub ConexionAdd() If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then Try @@ -94,7 +92,7 @@ Public Class ClsAcarreos CveConexion = 0 End If - End Sub + End Sub #End Region Public Function IniciaTransacSQL() As SqlTransaction If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() @@ -304,9 +302,9 @@ Public Class ClsAcarreos End Try Return Retorno - End Function + End Function #End Region - + #Region "Unidades" Public Function AddUnidad(UnidadCodigo As String, Unidad As String, CveUsuario As Integer, CveTransportista As Integer) As Boolean Dim Retorno As Boolean = False @@ -383,9 +381,9 @@ Public Class ClsAcarreos End Try Return Retorno - End Function + End Function #End Region - + #Region "Acarreos" Public Function AddAcarreo(CveUnidad As Integer, CveChofer As Integer, Folio As Integer, Fecha As Date, CveSubProyectoOrigen As Integer, Volumen As Double, CveEstatus As Integer, CveTipoAcarreo As Integer, CveEmpresa As Integer, CveSubProyectoDestino As Integer, CveMaterial As Integer, Km As Double, CveUsuario As Integer, ImagenRemision As String, ImagenTransporte As String, ImagenCarga As String, Latitud As String, Longitud As String, CveAcarreoProyecto As Integer) As Boolean @@ -557,9 +555,9 @@ Public Class ClsAcarreos End Try Return Retorno - End Function + End Function #End Region - + #Region "RepAcarreos" Public Function GetRepAcarreo(FInicio As Date, FFin As Date, CveSubProyectoOrigen As Integer, CveTransportista As Integer, CveChofer As Integer, CveUnidad As Integer, CveEmpresa As Integer, Gpo As Integer, CveSubProyectoDestino As Integer, CveMaterial As Integer, CveAcarreoProyecto As Integer) As Boolean Dim Retorno As Boolean = False @@ -585,9 +583,9 @@ Public Class ClsAcarreos End Try Return Retorno - End Function + End Function #End Region - + #Region "RepAcarreosDetalle" Public Function GetRepAcarreoDetalle(FInicio As Date, FFin As Date, CveSubProyectoOrigen As Integer, CveTransportista As Integer, CveChofer As Integer, CveUnidad As Integer, CveEmpresa As Integer, Gpo As String, Grupo As Integer, CveSubProyectoDestino As Integer, CveMaterial As Integer, CveAcarreoProyecto As Integer) As Boolean Dim Retorno As Boolean = False @@ -614,9 +612,9 @@ Public Class ClsAcarreos End Try Return Retorno - End Function + End Function #End Region - + #Region "Materiales" Public Function AddMaterial(Material As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -696,9 +694,9 @@ Public Class ClsAcarreos End Try Return Retorno - End Function + End Function #End Region - + #Region "Acarreos Concluidos" Public Function GetAcarreosConcluidosMatch(CveSubProyectoOrigen As Integer, CveSubProyectoDestino As Integer, FInicial As Date, FFinal As Date, CveEmpresa As Integer, CveTransportista As Integer, CveUnidad As Integer, CveChofer As Integer, CveMaterial As Integer, CveAcarreoProyecto As Integer) As Boolean Dim Retorno As Boolean = False @@ -811,15 +809,15 @@ Public Class ClsAcarreos End Try Return Retorno - End Function - - - - + End Function + + + + #End Region - + #Region "RepAcarreosUnidades" - + Public Function GetReporteAcarreosUnidades(CveUnidad As Integer, CveSubProyectoOrigen As Integer, CveSubProyectoDestino As Integer, CveTransportista As Integer, FInicio As Date, FFin As Date, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Acar_RepAcarreosUnidadesGet") @@ -841,11 +839,11 @@ Public Class ClsAcarreos End Try Return Retorno - End Function + End Function #End Region - + #Region "Estatus" - + Public Function AddEstatus(Estatus As String, CveEmpresa As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Acar_EstatusAdd") @@ -925,9 +923,9 @@ Public Class ClsAcarreos End Try Return Retorno - End Function + End Function #End Region - + #Region "Acarreos Contratos" Public Function AddAcarreosProyectos(CveSubProyectoOrigen As Integer, CveSubProyectoDestino As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, NumContrato As String, Descripcion As String, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -1200,10 +1198,10 @@ Public Class ClsAcarreos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "PreEstimacion y PreEstimacionDetalle" Public Function AddPreEstimacion(CveAcarreoProyecto As Integer, CveTransportista As Integer, NumPreEstimacion As Integer, FechaPreEstimacion As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -1284,10 +1282,10 @@ Public Class ClsAcarreos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "RepContratosAcarreos" Public Function GetRepContratosAcarreos(CveEmpresa As Integer, FInicio As Date, FFin As Date, CveAcarreoProyecto As Integer, CveTransportista As Integer, CveSubProyectoOrigen As Integer, CveSubProyectoDestino As Integer, CveProveedor As Integer, CveMaterial As Integer, Gpo As Integer) As Boolean Dim Retorno As Boolean = False @@ -1313,11 +1311,11 @@ Public Class ClsAcarreos End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "RepContratosAcarreosDetalle" Public Function GetRepContratosAcarreosDetalle(CveAcarreoProyecto As Integer, CveMaterial As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -1379,6 +1377,6 @@ Public Class ClsAcarreos ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region End Class diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 4b4ab26fd..85b31fb86 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -7,10 +7,10 @@ Imports Extensiones Public Class ClsAcumuladores - Implements IDisposable - + Implements IDisposable + #Region "Campos" - 'SQL + 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlTransacc As SqlTransaction @@ -68,9 +68,9 @@ Public Class ClsAcumuladores SqlAdapter = New SqlDataAdapter("", SqlConexion) ConexionAdd() - End Sub + End Sub #Region "Conexiones" - + Private Sub ConexionAdd() If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then Try @@ -103,18 +103,18 @@ Public Class ClsAcumuladores CveConexion = 0 End If - End Sub + End Sub #End Region Public ReadOnly Property DtResultados() As DataTable Get DtResultados = Data End Get - End Property - + End Property + #End Region - + #Region " TAMAÑOS " - + Public Function TamañoGet(CveTamaño As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -375,12 +375,12 @@ Public Class ClsAcumuladores End Try Return Retorno - End Function - + End Function + #End Region - + #Region " TIPOS USO " - + Public Function TiposUsoGet(CveTipoUso As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -1334,7 +1334,7 @@ Public Class ClsAcumuladores ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region - + End Class diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 19070fdbf..179dee26f 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -4,12 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration -Imports Microsoft.Reporting.WebForms -Imports System.Xml -Imports System.IO -Imports System.Web Public Class ClsBancos Implements IDisposable diff --git a/App_Code/ClsBase.vb b/App_Code/ClsBase.vb index 77d090808..88069ab6c 100644 --- a/App_Code/ClsBase.vb +++ b/App_Code/ClsBase.vb @@ -1,11 +1,6 @@ -Imports Microsoft.VisualBasic -Imports System.Data +Imports System.Data Imports System.Data.SqlClient -Imports System.Configuration Imports Extensiones -Imports System.IO -Imports System.Xml -Imports System.Text Public Class ClsBase Implements IDisposable diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index dc66c337d..ce78e577c 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -1,9 +1,6 @@ Imports System.Data -Imports Microsoft.VisualBasic -Imports Extensiones Imports System.Data.SqlClient -Imports System -Imports System.IO +Imports Extensiones Public Class ClsCGame Implements IDisposable diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb index b212c9403..1b845f870 100644 --- a/App_Code/ClsCRM.vb +++ b/App_Code/ClsCRM.vb @@ -1,11 +1,8 @@ Imports System.Data -Imports Microsoft.VisualBasic -Imports Extensiones Imports System.Data.SqlClient -Imports System -Imports System.IO +Imports Extensiones -Public Class ClsCRM +Public Class ClsCRM Implements IDisposable #Region "CAMPOS" diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index 7432b8d52..42d03da4b 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -4,15 +4,13 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Imports Modelos Public Class ClsClasificaciones - Implements IDisposable - + Implements IDisposable + #Region "Campos" - + Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlTransacc As SqlTransaction @@ -32,10 +30,10 @@ Public Class ClsClasificaciones Get DtResultados = Data End Get - End Property - + End Property + #End Region - + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) If TransaccionCompartida Is Nothing Then @@ -66,9 +64,9 @@ Public Class ClsClasificaciones End With If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc Data = New DataTable - End Sub + End Sub #Region "Conexiones" - + Private Sub ConexionAdd() If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then Try @@ -101,9 +99,9 @@ Public Class ClsClasificaciones CveConexion = 0 End If - End Sub + End Sub #End Region - + Public Function IniciaTransacSQL() As SqlTransaction If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() Return SqlTransacc @@ -461,9 +459,9 @@ Public Class ClsClasificaciones End Try Return OnError - End Function + End Function #End Region - + #Region "Charlie Presupuestos" Public Function GetEmpresasPresupuestos(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -543,11 +541,11 @@ Public Class ClsClasificaciones End Try Return Retorno - End Function + End Function #End Region - + #Region " C L A S I F I C A C I O N E S - P R O Y E C T O S " - + Public Function GetClasificacionesSubProyecto(Optional CveClasificacion As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClasificacionesSubProyectoGet") @@ -595,37 +593,37 @@ Public Class ClsClasificaciones End Try Return Retorno - End Function - - 'Public Function RemoveClasificacionSubProyecto(CveClasificacionSubProyecto As Integer) As Boolean - ' Dim OnError As Boolean = False - ' SqlAdapter = New SqlDataAdapter("PA_ClasificacionesSubProyectoRemove", SqlConexion) - ' SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacionSubProyecto - ' End With - ' Data = New DataTable() - ' Try - ' SqlAdapter.Fill(Data) - ' OnError = True - ' Catch Ex1 As SqlException - ' If Ex1.Message.Contains("Número: 547;") Then - ' Alert("La Clasificación no se pudo eliminar por que esta siendo usada por un registro.", TipoMensaje.MsgAdvertencia) - ' Else - ' Me.OnError("Ocurrió un error al eliminar la Clasificación.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End If - ' Catch ex As Exception - ' Me.OnError("Ocurrió un error al eliminar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - ' SqlAdapter.Dispose() - ' Return OnError - 'End Function + End Function + + 'Public Function RemoveClasificacionSubProyecto(CveClasificacionSubProyecto As Integer) As Boolean + ' Dim OnError As Boolean = False + ' SqlAdapter = New SqlDataAdapter("PA_ClasificacionesSubProyectoRemove", SqlConexion) + ' SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacionSubProyecto + ' End With + ' Data = New DataTable() + ' Try + ' SqlAdapter.Fill(Data) + ' OnError = True + ' Catch Ex1 As SqlException + ' If Ex1.Message.Contains("Número: 547;") Then + ' Alert("La Clasificación no se pudo eliminar por que esta siendo usada por un registro.", TipoMensaje.MsgAdvertencia) + ' Else + ' Me.OnError("Ocurrió un error al eliminar la Clasificación.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End If + ' Catch ex As Exception + ' Me.OnError("Ocurrió un error al eliminar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + ' SqlAdapter.Dispose() + ' Return OnError + 'End Function #End Region - + #Region "IDisposable Support" - - - ' IDisposable + + + ' IDisposable Protected Overridable Sub Dispose(disposing As Boolean) If Not Me.disposedValue Then If disposing Then @@ -658,7 +656,7 @@ Public Class ClsClasificaciones ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region - + End Class diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 5f3c30c86..3da855b93 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Imports Modelos Public Class ClsClientes diff --git a/App_Code/ClsCompEstatusFactura.vb b/App_Code/ClsCompEstatusFactura.vb index 7408fe201..1d25c41b5 100644 --- a/App_Code/ClsCompEstatusFactura.vb +++ b/App_Code/ClsCompEstatusFactura.vb @@ -118,7 +118,7 @@ Public Class ClsCompEstatusFactura Dim Retorno As Boolean = False DataAdapter("PA_Comp_EstatusFacturaAdd") - + With SqlAdapter.SelectCommand.Parameters .Add("@CveEstatusFactura", SqlDbType.VarChar).Value = CveEstatusFactura .Add("@EstatusFactura", SqlDbType.VarChar).Value = EstatusFactura diff --git a/App_Code/ClsConstancias.vb b/App_Code/ClsConstancias.vb index 8d38b1cf5..33558b4e1 100644 --- a/App_Code/ClsConstancias.vb +++ b/App_Code/ClsConstancias.vb @@ -1,8 +1,8 @@ Option Strict On Imports System.Data -Imports Extensiones Imports System.IO +Imports Extensiones Public Class ClsConstancias diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 81e48843d..5ba1df7bd 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient -Imports System.IO -Imports System Imports Extensiones Public Class ClsContPAQi diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 254a7c886..d530802bc 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsContabilidad Implements IDisposable @@ -916,7 +914,7 @@ Public Class ClsContabilidad Public Function AddPrePolizasDetalle(CvePrePoliza As Integer, TipoMovimiento As Boolean, Importe As Decimal, Referencia As String, CveConceptoContable As Integer, Concepto As String, FechaVencimiento As Date, IdCtaContable As Integer, IdSegmentoNegocio As Integer, Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1, Optional CveCompra As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, - Optional CvePersonal As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveAcreedor As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCreditoDetalle As Integer = -1, + Optional CvePersonal As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCreditoDetalle As Integer = -1, Optional CveOC As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveVentaAmortizacion As Integer = -1, Optional CveCompraAmortizacion As Integer = -1, Optional ImporteMX As Decimal = 0, Optional ImporteME As Decimal = 0, Optional CvePrePolizaOriginal As Integer = -1, Optional CveIEDevolucion As Integer = -1, Optional CveCredito As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional Contabilizable As Boolean = True, Optional TipoCambio As Decimal = 1, Optional CveOCDetalle As Integer = -1, Optional TipoCambioPago As Decimal = 1, Optional PorcentajeImpuesto As Decimal = 0, Optional CveNominaMovtoPermanente As Integer = -1) As Boolean @@ -968,8 +966,6 @@ Public Class ClsContabilidad .Add("@CveCredito", SqlDbType.Int).Value = CveCredito .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto .Add("@Contabilizable", SqlDbType.Bit).Value = If(Contabilizable, 1, 0) - .Add("@CveAcreedor", SqlDbType.Int).Value = CveAcreedor - .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva .Add("@CveCreditoDetalle", SqlDbType.Int).Value = CveCreditoDetalle .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto .Add("@CveNominaMovtoPermanente", SqlDbType.Money).Value = CveNominaMovtoPermanente @@ -1014,6 +1010,19 @@ Public Class ClsContabilidad Return Retorno End Function + Public Function AddPrePolizasDetalle(CvePrePoliza As Integer, TipoMovimiento As Boolean, Importe As Decimal, Referencia As String, CveConceptoContable As Integer, Concepto As String, IdCtaContable As Integer, + Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1, Optional CveCompra As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, + Optional CvePersonal As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCreditoDetalle As Integer = -1, + Optional CveOC As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveVentaAmortizacion As Integer = -1, Optional CveCompraAmortizacion As Integer = -1, Optional ImporteMX As Decimal = 0, Optional ImporteME As Decimal = 0, + Optional CvePrePolizaOriginal As Integer = -1, Optional CveIEDevolucion As Integer = -1, Optional CveCredito As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional Contabilizable As Boolean = True, + Optional TipoCambio As Decimal = 1, Optional CveOCDetalle As Integer = -1, Optional TipoCambioPago As Decimal = 1, Optional PorcentajeImpuesto As Decimal = 0, Optional CveNominaMovtoPermanente As Integer = -1) As Boolean + Dim Retorno As Boolean = False + Retorno = AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe, Referencia, CveConceptoContable, Concepto, New DateTime(1900, 1, 1), IdCtaContable, -1, CveIE, CveVenta, CveCompra, CveSubProyecto, CveCliente, CveProveedor, CvePersonal, + CveMovimientoAlmacen, CveActivoFijo, CveColectiva, CveCreditoDetalle, CveOC, CveClasificacion, CveVentaAmortizacion, CveCompraAmortizacion, ImporteMX, ImporteME, CvePrePoliza, CveIEDevolucion, CveCredito, CveCuenta, CveTipoGasto, Contabilizable, + TipoCambio, CveOCDetalle, TipoCambioPago, PorcentajeImpuesto, CveNominaMovtoPermanente) + Return Retorno + End Function + Public Function ObtenerConceptoEmpresa(CveEmpresa As Integer, CveConcepto As Integer, NombreComercial As String, SerieFolio As String, FolioBancario As String, Optional Adicional As String = "") As String Dim Concepto As String = "" @@ -1196,7 +1205,7 @@ Public Class ClsContabilidad ElseIf ex.Message.Contains("IDX_UN_ContaPrePolizasCveEmpresaCveTipoPolizaFoliosAnioMes") Then OnError($"El Folio {Folio} ya esta registrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Else - OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If End Try Return Retorno diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 23bde4820..17a30f6bb 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -6,10 +6,10 @@ Imports System.Data.SqlClient Imports Extensiones Public Class ClsContratos - Implements IDisposable - + Implements IDisposable + #Region "Campos" - 'SQL + 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private Data As DataTable @@ -18,9 +18,9 @@ Public Class ClsContratos Private disposedValue As Boolean = False ' Para detectar llamadas redundantes 'REGISTRAR CONEXIONES ABIERTAS Private CveConexion As Integer = 0 - Private EsTransaccionCompartida As Boolean = False + Private EsTransaccionCompartida As Boolean = False #End Region - + #Region "Propiedades" Public ReadOnly Property DtResultados() As DataTable Get @@ -87,11 +87,11 @@ Public Class ClsContratos End With Data = New DataTable If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc - End Sub - + End Sub + #End Region #Region "Conexiones" - + Private Sub ConexionAdd() If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then Try @@ -124,9 +124,9 @@ Public Class ClsContratos CveConexion = 0 End If - End Sub + End Sub #End Region - + #Region "P R O P I E D A D E S - C O N T R A T O S" Public Property CveContrato As Integer Public Property NumeroContrato As String @@ -1659,9 +1659,9 @@ Public Class ClsContratos End Try Return Retorno - End Function + End Function #End Region - + #Region " C O N T R A T O S - S E C C I O N E S" Public Function GetContratosSecciones(CveCliente As Integer, CveContrato As Integer, CveSeccion As Integer, CveClasificacion As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -1979,10 +1979,10 @@ Public Class ClsContratos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "S U B - T O T A L E S - D E T A L L E S" Public Function GetSubTotalesDetalle(CveEmpresa As Integer) As Boolean @@ -2002,13 +2002,13 @@ Public Class ClsContratos Return Retorno - End Function - - + End Function + + #End Region - + #Region " E S T I M A C I O N E S " - + Public Function AddEstimaciones(CveContrato As Integer, FechaEstimacion As DateTime, CveCompra As Integer, CveVenta As Integer, CveContratosSecciones As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2209,10 +2209,10 @@ Public Class ClsContratos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "C O N C E P T O S " Public Function AddContratoConcepto(CveContrato As Integer, CveSubConcepto As Integer, Porcentaje As Double, Importe As Double) As Boolean @@ -2339,12 +2339,12 @@ Public Class ClsContratos OnError("Ocurrió un error al eliminar un Tipo de Contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - - + End Function + + #End Region - - + + #Region "T I P O S C O N T R A T O S" Public Function GetContratosTipos(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2411,12 +2411,12 @@ Public Class ClsContratos OnError("Ocurrió un error al eliminar un Tipo de Contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - + End Function + #End Region - + #Region "T I P O S C O N T R A T O S" - + Public Function UpdateMovimientoContrato(CveContrato As Integer, CveMovimiento As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_MovimientosContratosUpdate") @@ -2447,11 +2447,11 @@ Public Class ClsContratos OnError("Ocurrió un error al Actualizar un Tipo de Contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - + End Function + #End Region - - + + Public Function AddContratosAceptados(CveVenta As Integer, Concepto As String, CveProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Contratos_Aceptado") @@ -2663,11 +2663,11 @@ Public Class ClsContratos End Try Return Retorno - End Function - + End Function + #End Region - - + + #Region " REPORTE BUSQUEDA" Public Function GetContratosBusquedaRep(TipoVenta As Integer, CveContratoTipo As Integer, NumeroContrato As String, DescripcionContrato As String, Ubicacion As String, Responsable As String, EstatusContrato As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveCliente As Integer, CveProveedor As Integer, @@ -2702,12 +2702,12 @@ Public Class ClsContratos End Try Return Retorno - End Function + End Function #End Region - - - - + + + + #Region "Periodos Facturacion" Public Function AddPeriodosFacturacion(Nombre As String, Dias As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -2785,11 +2785,11 @@ Public Class ClsContratos End Try Return Retorno - End Function - + End Function + #End Region - - + + #Region "Addendum" Public Function GetContratosAddendum(CveContrato As Integer) As Boolean Dim Retorno = False @@ -2854,7 +2854,7 @@ Public Class ClsContratos End Try Return Retorno - End Function + End Function #Region " PRESUPUESTOS " Public Function AddPresupuesto(Nombre As String, Observacion As String, CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, Estatus As Integer, Archivo As String, FechaIng As DateTime, CveUsuario As Integer, CveEmpresa As Integer) As Integer @@ -3258,10 +3258,10 @@ Public Class ClsContratos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "REFRENDOS" Public Function AddRefrendo(CveCliente As Integer, Descripcion As String, Fecha As DateTime, FechaVencimiento As DateTime, CveUsuarioCreo As Integer, CveEmpresa As Integer, ClienteEspecifico As String, Optional CodigoProveedor As String = "-1", Optional CveTipoDocto As Integer = -1, Optional CveEstatus As Integer = -1, Optional LigaDocto As String = "-1") As Boolean @@ -3379,10 +3379,10 @@ Public Class ClsContratos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "FIANZAS" Public Function AddContratoFianza(CveContrato As Integer, Folio As String, CveEstatusFianza As Integer, FechaVencimiento As Date, Adjunto As String) As Boolean Dim Retorno As Boolean = False @@ -3463,9 +3463,9 @@ Public Class ClsContratos End Try Return Retorno - End Function + End Function #End Region - + #Region "NOTIFICACIONES EN LINEA" Public Function GetNotificacionesEnLinea(CveEmpresa As Integer, CveTipoNotificacion As Integer) As Boolean Dim Retorno As Boolean = False @@ -3484,10 +3484,10 @@ Public Class ClsContratos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "NOMENCLATURA CONTRATO" Public Function GetContratoNomenclatura(Serie As String, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -3505,10 +3505,10 @@ Public Class ClsContratos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "IMPUESTOS LOCALES" Public Function AddContratoImpuestosLocales(CveContrato As Integer, CveVentaDeduccion As Integer) As Boolean Dim Retorno As Boolean = False @@ -3561,9 +3561,9 @@ Public Class ClsContratos End Try Return Retorno - End Function + End Function #End Region - + Public Function GetRepDevolucionesPedidos(CveContrato As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveEstatus As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False Dataset = New DataSet() @@ -3667,7 +3667,7 @@ Public Class ClsContratos ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region - + End Class diff --git a/App_Code/ClsDG.vb b/App_Code/ClsDG.vb index 1c44c0193..9a3f09070 100644 --- a/App_Code/ClsDG.vb +++ b/App_Code/ClsDG.vb @@ -3,9 +3,9 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient -Imports Extensiones -Imports System.Net Imports System.IO +Imports System.Net +Imports Extensiones Public Class ClsDG Implements IDisposable diff --git a/App_Code/ClsDesarrollo.vb b/App_Code/ClsDesarrollo.vb index c3694ced1..d796cb2cb 100644 --- a/App_Code/ClsDesarrollo.vb +++ b/App_Code/ClsDesarrollo.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsDesarrollo Implements IDisposable @@ -224,7 +222,7 @@ Public Class ClsDesarrollo Public Function DesarrolloDetalleAddUpdate(CveDesarrolloDetalle As Integer, CveDesarrollo As Integer, CveDesarrolloDetalleTipo As Integer, Descripcion As String, Comentario As String, - Estatus As Integer, CveUsuario As Integer, P1 As Integer, P2 As Integer, P3 As Integer, CvePrioridad as integer ) As Boolean + Estatus As Integer, CveUsuario As Integer, P1 As Integer, P2 As Integer, P3 As Integer, CvePrioridad as integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_DES_DesarrolloDetalleAddUpdate") diff --git a/App_Code/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb index 3bce49ab7..d9ea682f3 100644 --- a/App_Code/ClsEdocumentacion.vb +++ b/App_Code/ClsEdocumentacion.vb @@ -7,10 +7,10 @@ Imports Extensiones Public Class ClsEdocumentacion - Implements IDisposable - + Implements IDisposable + #Region "Campos" - 'SQL + 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlTransacc As SqlTransaction @@ -40,8 +40,8 @@ Public Class ClsEdocumentacion Get DSResultados = DSet End Get - End Property - + End Property + #End Region Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) @@ -106,7 +106,7 @@ Public Class ClsEdocumentacion CveConexion = 0 End If - End Sub + End Sub #End Region Public Function IniciaTransacSQL() As SqlTransaction If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() @@ -125,11 +125,11 @@ Public Class ClsEdocumentacion Get DtResultados = Data End Get - End Property - + End Property + #Region "D O C U M E N T A C I O N " - - + + Public Function DocumentacionGet(CveDocumentacion As Integer, CveDocumentacionTipo As Integer, Estatus As Integer, CveEmpresa As Integer, Optional Modulo As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -809,6 +809,6 @@ Public Class ClsEdocumentacion ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region End Class diff --git a/App_Code/ClsEdosFinancieros.vb b/App_Code/ClsEdosFinancieros.vb index 89b5ea2b1..e4de8be79 100644 --- a/App_Code/ClsEdosFinancieros.vb +++ b/App_Code/ClsEdosFinancieros.vb @@ -1,9 +1,9 @@ Option Strict On Option Explicit On -Imports Extensiones Imports System.Data Imports System.Data.SqlClient +Imports Extensiones Public Class ClsEdosFinancieros Implements IDisposable diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb index a5848e63b..49e72f00e 100644 --- a/App_Code/ClsEncuestas.vb +++ b/App_Code/ClsEncuestas.vb @@ -1,7 +1,6 @@ Imports System.Data -Imports Extensiones Imports System.Data.SqlClient -Imports Microsoft.VisualBasic +Imports Extensiones Public Class ClsEncuestas Implements IDisposable diff --git a/App_Code/ClsEsquemasComisiones.vb b/App_Code/ClsEsquemasComisiones.vb index dc2e03932..c5343c3af 100644 --- a/App_Code/ClsEsquemasComisiones.vb +++ b/App_Code/ClsEsquemasComisiones.vb @@ -4,7 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports Microsoft.VisualBasic Public Class ClsEsquemasComisiones Implements IDisposable diff --git a/App_Code/ClsEstatusFactura.vb b/App_Code/ClsEstatusFactura.vb index 9cf75cf64..11c8ad64a 100644 --- a/App_Code/ClsEstatusFactura.vb +++ b/App_Code/ClsEstatusFactura.vb @@ -202,7 +202,7 @@ Public Class ClsEstatusFactura Dim Retorno As Boolean = False DataAdapter("PA_EstatusFacturaRemove") - + SqlAdapter.SelectCommand.Parameters.Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura Try diff --git a/App_Code/ClsEventos.vb b/App_Code/ClsEventos.vb index e08351f16..02fccac02 100644 --- a/App_Code/ClsEventos.vb +++ b/App_Code/ClsEventos.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsEventos Implements IDisposable diff --git a/App_Code/ClsFISConfiguracion.vb b/App_Code/ClsFISConfiguracion.vb index 52d7365c5..3e694b8d1 100644 --- a/App_Code/ClsFISConfiguracion.vb +++ b/App_Code/ClsFISConfiguracion.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsFISConfiguracion Implements IDisposable diff --git a/App_Code/ClsFlotillas.vb b/App_Code/ClsFlotillas.vb index f9ff51f34..10ea41055 100644 --- a/App_Code/ClsFlotillas.vb +++ b/App_Code/ClsFlotillas.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsFlotillas Implements IDisposable diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb index d67b7f3d8..f1f307ee8 100644 --- a/App_Code/ClsGPS.vb +++ b/App_Code/ClsGPS.vb @@ -1,11 +1,10 @@ Imports System.Data -Imports Microsoft.VisualBasic -Imports Extensiones Imports System.Data.SqlClient -Imports Newtonsoft.Json.Linq -Imports System.Net Imports System.IO +Imports System.Net +Imports Extensiones Imports Newtonsoft.Json +Imports Newtonsoft.Json.Linq Public Class ClsGPS Implements IDisposable diff --git a/App_Code/ClsGPSHerramientas.vb b/App_Code/ClsGPSHerramientas.vb index 2d0c6e456..f0a8eefc7 100644 --- a/App_Code/ClsGPSHerramientas.vb +++ b/App_Code/ClsGPSHerramientas.vb @@ -1,8 +1,6 @@ Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsGPSHerramientas Implements IDisposable diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 8a780eaf9..c530e3297 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -1,7 +1,5 @@ Option Strict On Option Explicit On - -Imports System Imports System.Data Imports System.Data.SqlClient Imports Extensiones @@ -3604,6 +3602,48 @@ Public Class ClsGenerales + Public Function GetTempordas(CveTemporada As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_AgroTemporadaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@cveTemporada", SqlDbType.Int).Value = CveTemporada + .Add("@cveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError($"Ocurrió un error al obtener los datos de las temporadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + + Public Function GetCierreCultivos(CveTemporada As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Agro_CierreCultivosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTemporada", SqlDbType.Int).Value = CveTemporada + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError($"Ocurrió un error al obtener los datos de cultivo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + #End Region @@ -3881,7 +3921,7 @@ Public Class ClsGenerales Public Function UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, CveEmpresa As Integer, Optional FechaLlegada As DateTime = MinFecha, Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1, Optional Distancia As Integer = -1, - Optional CveConfigAutoTransporte As Integer = -1) As Boolean + Optional CveConfigAutoTransporte As Integer = -1, Optional FolioReferencia As String = "-1", Optional Referencia As String = "-1", Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_EntregaAlmacenRutaUpdate") @@ -3901,6 +3941,9 @@ Public Class ClsGenerales .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2 .Add("@Distancia", SqlDbType.Int).Value = Distancia .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte + .Add("@FolioReferencia", SqlDbType.VarChar).Value = FolioReferencia + .Add("@Referencia", SqlDbType.VarChar).Value = Referencia + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto End With @@ -4013,7 +4056,7 @@ Public Class ClsGenerales - Public Function AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer, CvePS As Integer, Cantidad As Decimal, CveUnidadMedida As Integer, CveUsuario As Integer) As Boolean + Public Function AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer, CvePS As Integer, Cantidad As Decimal, CveUnidadMedida As Integer, CveUsuario As Integer, Optional PesoKg As Decimal = -1D) As Boolean Dim Retorno As Boolean = False @@ -4027,6 +4070,7 @@ Public Class ClsGenerales .Add("@Cantidad", SqlDbType.Float).Value = Cantidad .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@PesoKg", SqlDbType.SmallMoney).Value = CveUsuario End With diff --git a/App_Code/ClsGralEncuestas.vb b/App_Code/ClsGralEncuestas.vb index 497fcf74d..e45e268eb 100644 --- a/App_Code/ClsGralEncuestas.vb +++ b/App_Code/ClsGralEncuestas.vb @@ -1,6 +1,5 @@ Imports System.Data Imports Extensiones -Imports Microsoft.VisualBasic Public Class ClsGralEncuestas Inherits ClsBase diff --git a/App_Code/ClsGralFolios.vb b/App_Code/ClsGralFolios.vb index 6c5f231b4..44608558c 100644 --- a/App_Code/ClsGralFolios.vb +++ b/App_Code/ClsGralFolios.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsGralFolios Implements IDisposable diff --git a/App_Code/ClsImpuestos.vb b/App_Code/ClsImpuestos.vb index 28d2929e3..8f410fac2 100644 --- a/App_Code/ClsImpuestos.vb +++ b/App_Code/ClsImpuestos.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsImpuestos Implements IDisposable diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e3f5320b7..318ff16ff 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1,7 +1,5 @@ Option Explicit On Option Strict On - -Imports System Imports System.Data Imports System.Data.SqlClient Imports Extensiones diff --git a/App_Code/ClsLeyendasFiscales.vb b/App_Code/ClsLeyendasFiscales.vb index 429a00b01..14da05f6f 100644 --- a/App_Code/ClsLeyendasFiscales.vb +++ b/App_Code/ClsLeyendasFiscales.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsLeyendasFiscales Implements IDisposable diff --git a/App_Code/ClsMF.vb b/App_Code/ClsMF.vb index e49c01e47..518bbc842 100644 --- a/App_Code/ClsMF.vb +++ b/App_Code/ClsMF.vb @@ -1,9 +1,6 @@ Imports System.Data -Imports Microsoft.VisualBasic -Imports Extensiones Imports System.Data.SqlClient -Imports System -Imports System.IO +Imports Extensiones Public Class ClsMF Implements IDisposable diff --git a/App_Code/ClsMetodosPagos.vb b/App_Code/ClsMetodosPagos.vb index e21006c56..fb55322f8 100644 --- a/App_Code/ClsMetodosPagos.vb +++ b/App_Code/ClsMetodosPagos.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsMetodosPagos Implements IDisposable diff --git a/App_Code/ClsModulos.vb b/App_Code/ClsModulos.vb index 7c8e84877..19610b9bd 100644 --- a/App_Code/ClsModulos.vb +++ b/App_Code/ClsModulos.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsModulos Implements IDisposable diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 813d87af3..71422d3bb 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -7,11 +7,11 @@ Imports System.Data.SqlClient Imports Extensiones Public Class ClsMovimientos - Implements IDisposable - + Implements IDisposable + #Region "Campos" - - 'SQL + + 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlTransacc As SqlTransaction @@ -21,10 +21,10 @@ Public Class ClsMovimientos 'Atributos de la clase Private disposedValue As Boolean = False ' Para detectar llamadas redundantes 'REGISTRAR CONEXIONES ABIERTAS - Private CveConexion As Integer = 0 - + Private CveConexion As Integer = 0 + #End Region - + #Region "Propiedades" Public ReadOnly Property DtResultados() As DataTable Get @@ -32,9 +32,9 @@ Public Class ClsMovimientos End Get End Property - Public Property AlertaMensaje As New StringBuilder + Public Property AlertaMensaje As New StringBuilder #End Region - + Sub New() SqlConexion = New SqlConnection SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString @@ -55,9 +55,9 @@ Public Class ClsMovimientos End With If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc Data = New DataTable - End Sub + End Sub #Region "Conexiones" - + Private Sub ConexionAdd() If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then Try @@ -90,9 +90,9 @@ Public Class ClsMovimientos CveConexion = 0 End If - End Sub + End Sub #End Region - + Public Sub IniciaTransacSQL() SqlTransacc = SqlConexion.BeginTransaction() End Sub @@ -103,27 +103,27 @@ Public Class ClsMovimientos Public Sub Commit() SqlTransacc.Commit() - End Sub - + End Sub + #Region "CxC" - 'Public Function GetCxCCliente(CveCliente As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' 'Data = New DataTable - ' 'SqlAdapter = New SqlDataAdapter("PA_ClienteCxC", SqlConexion) - ' 'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure - ' DataAdapter("PA_ClienteCxC") - ' SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As SqlException - ' OnError("Ocurrió un error al consultar las CxC del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - 'End Function - + 'Public Function GetCxCCliente(CveCliente As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' 'Data = New DataTable + ' 'SqlAdapter = New SqlDataAdapter("PA_ClienteCxC", SqlConexion) + ' 'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + ' DataAdapter("PA_ClienteCxC") + ' SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As SqlException + ' OnError("Ocurrió un error al consultar las CxC del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + 'End Function + Public Function GetCxCClienteDetalle(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveClienteSucursal As Integer, Optional TipoDocto As String = "-1", Optional FechaCorte As Date = MaxFecha, Optional CveIESustitucion As Integer = -1, Optional FechaVencimientoI As Date = MinFecha, Optional FechaVencimientoF As Date = MaxFecha) As Boolean Dim Retorno As Boolean = False @@ -476,11 +476,11 @@ Public Class ClsMovimientos OnError("Ocurrió un error al descargar los segmentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "Anticipos de Clientes" Public Function GetAnticiposCliente(CveCliente As Integer, Optional SelectTop As Integer = -1, Optional CveMoneda As Integer = 1) As Boolean Dim Retorno As Boolean = False @@ -558,12 +558,12 @@ Public Class ClsMovimientos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "CxP" - + Public Function GetCxPEmpresa(CveProveedor As Integer, FechaVencimientoInicio As String, FechaVencimientoFin As String, CveSubProyecto As Integer, DiasVencidos As Integer, CveUsuarioRegistro As Integer, CveUsuarioProgramo As Integer, CveUsuarioResponsable As Integer, CveClasificacion As Integer, CveMoneda As Integer, CveTipoPagoProgramo As Integer, CveEstatusFactura As Integer, CveAplicaNC As Integer, CveEmpresa As Integer, Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional CodigoProgramacion As String = "-1", Optional CveTipoProveedor As Integer = 0, @@ -1375,7 +1375,7 @@ Public Class ClsMovimientos Return Retorno End Function - Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean + Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha, Optional OpcionSaldo As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CxPPersonalCajaChica") With SqlAdapter.SelectCommand.Parameters @@ -1385,7 +1385,7 @@ Public Class ClsMovimientos .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso .Add("@FechaI", SqlDbType.DateTime).Value = FechaI .Add("@FechaF", SqlDbType.DateTime).Value = FechaF - + .Add("@OpcionSaldo", SqlDbType.Int).Value = OpcionSaldo ' 1. solo con saldo, -1. todos End With Try SqlAdapter.Fill(Data) @@ -1447,9 +1447,9 @@ Public Class ClsMovimientos End Try Return Retorno - End Function + End Function #End Region - + #Region "Anticipos de Proveedores" Public Function GetAnticiposProveedor(CveProveedor As Integer, CveProveedorSucursal As Integer, Optional CveMoneda As Integer = -1, Optional SelectTop As Integer = -1, Optional FechaI As String = "-1", Optional FechaF As String = "-1", Optional TipoDocto As String = "-1") As Boolean Dim Retorno As Boolean = False @@ -1715,11 +1715,11 @@ Public Class ClsMovimientos End Try Return Retorno - End Function + End Function #End Region - + #Region "EDITAR FECHA DE MOVIMIENTO" - + Public Function UpdateMovimientoFecha(Fecha As DateTime, CveMovimiento As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Mov_MovimientoFechaUpdate") @@ -1734,12 +1734,12 @@ Public Class ClsMovimientos OnError("Ocurrió un error al actualizar la fecha del movimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function + End Function #End Region - + #Region "Registros Contables" - - + + Public Function AddMovimiento(CveConcepto As Integer, Tipo As String, Referencia1 As String, Referencia2 As String, CveMoneda As Integer, Cargo As Double, Abono As Double, Fecha As Date, FechaVencimiento As Date, Folio As String, IdCtaContable As Integer, CveUsuario As Integer, CveEmprea As Integer) As Boolean Dim Retorno As Boolean = False @@ -1813,14 +1813,14 @@ Public Class ClsMovimientos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "IDisposable Support" - - - ' IDisposable + + + ' IDisposable Protected Overridable Sub Dispose(disposing As Boolean) If Not Me.disposedValue Then If disposing Then @@ -1853,9 +1853,9 @@ Public Class ClsMovimientos ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region - + Public Function GetPersonalCajaChica(CveEmpresa As Integer, CveCompra As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_PersonalCajaChica") diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 120c08158..97b0491bc 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3030,7 +3030,7 @@ Public Class ClsNominas OnError("Ocurrió un error al obtener las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index bc70c3569..41770f405 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -63,10 +63,10 @@ Public Class ObjEventosCorreo Public Property ListPara As List(Of String) End Class Public Class ClsOIEventos - Implements IDisposable - + Implements IDisposable + #Region "Campos" - 'SQL + 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlTransacc As SqlTransaction @@ -75,16 +75,16 @@ Public Class ClsOIEventos Private disposedValue As Boolean = False ' Para detectar llamadas redundantes 'PARA REGISTRAR CONEXION Private CveConexion As Integer = 0 - Private EsTransaccionCompartida As Boolean = False - + Private EsTransaccionCompartida As Boolean = False + #End Region - + #Region "Propiedades" Public ReadOnly Property DtResultados() As DataTable Get DtResultados = Data End Get - End Property + End Property #Region "Propiedades de la tabla OI_Eventos" Public Property CveEvento As Integer Public Property CveTipoEvento As Integer @@ -147,11 +147,11 @@ Public Class ClsOIEventos Public Property EmpresaSop As String Public Property Modulo As String Public Property Datos As String - Public Property Importe As Double - - + Public Property Importe As Double + + #End Region - + #End Region Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) @@ -182,9 +182,9 @@ Public Class ClsOIEventos objCorreo = Nothing Data = New DataTable If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc - End Sub + End Sub #Region "Conexiones" - + Private Sub ConexionAdd() If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then @@ -219,7 +219,7 @@ Public Class ClsOIEventos CveConexion = 0 End If - End Sub + End Sub #End Region Public Sub IniciaTransacSQL() SqlTransacc = SqlConexion.BeginTransaction() @@ -229,16 +229,16 @@ Public Class ClsOIEventos End Sub Public Sub Commit() SqlTransacc.Commit() - End Sub + End Sub #Region "Correo" Private Function GetDominio() As String Return HttpContext.Current.Request.Url.ToString().Replace(HttpContext.Current.Request.Url.PathAndQuery, "") End Function - Public Property objCorreo As ObjEventosCorreo - + Public Property objCorreo As ObjEventosCorreo + #End Region #Region "Cuestionario" - + Public Function GetUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario As Integer, cveUsuario As Integer, CveSeguir As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_OI_UnoaUnoCuestionario_UsuariosGet", CommandType.StoredProcedure) @@ -404,7 +404,7 @@ Public Class ClsOIEventos OnError("Ocurrió un error al agregar el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno - End Function + End Function #End Region #Region "uno a uno" Public Function GetUnoAUnoSiguiendoA(CveUsuario As Integer, CveUsuarioSeguidor As Integer, cveEmpresa As Integer, Optional Fechastr As String = "") As Boolean @@ -525,7 +525,7 @@ Public Class ClsOIEventos End Try Return retorno - End Function + End Function #End Region #Region "Trello" Public Function GetTablero(cveTablero As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean @@ -687,10 +687,10 @@ Public Class ClsOIEventos OnError("Ocurrió un error al eliminar la Lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno - End Function + End Function #End Region #Region "oieventos2.0" - + Public Function GetOiInicio(CveEmpresa As Integer, CveUsuario As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_OI_InicioReport", CommandType.StoredProcedure) @@ -1179,9 +1179,9 @@ Public Class ClsOIEventos 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC) End If Return Retorno - End Function - - + End Function + + #Region "CRUD_cheklist" Public Function Getcheklist(cveEvento As Int32) As Boolean Dim retorno As Boolean = False @@ -1281,9 +1281,9 @@ Public Class ClsOIEventos OnError("Ocurrió un error al eliminar el checklist.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return retorno - End Function + End Function #End Region - + Public Function AddUPEventoArchivo(CveEvento As Integer, Archivo As String, CveUsuario As Integer, cveEmpresa As Int32) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OI_EventosArchivoAddUP") @@ -1446,11 +1446,11 @@ Public Class ClsOIEventos 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC) End If Return Retorno - End Function + End Function #End Region - - - + + + #Region "E V E N T O S" Public Function GetEvento(CveEvento As Integer, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean Dim Retorno = GetEventos(CveEvento, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveUsuarioConsulta, CveEmpresa) @@ -1905,10 +1905,10 @@ Public Class ClsOIEventos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "E V E N T O S - U S U A R I O S" Public Function GetEventosUsuario(CveEvento As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2005,11 +2005,11 @@ Public Class ClsOIEventos End Try Return Retorno - End Function + End Function #End Region - + #Region "E V E N T O S - C O M E N T A R I O S " - + Public Function GetEventosComentarios(CveEvento As Integer, Optional CveEventoComentario As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OI_EventosComentariosGet") @@ -2067,10 +2067,10 @@ Public Class ClsOIEventos End Try Return Retorno - End Function - + End Function + #End Region - + #Region " Agregar Usuarios para" Public Function AddPara(ByVal CveEvento As Integer, ByVal CveUsuario As Integer) As Boolean @@ -2092,9 +2092,9 @@ Public Class ClsOIEventos End Try Return Retorno - End Function + End Function #End Region - + #Region "A C T U A L I Z A R - U S U A R I O P A R A " Public Function UpdateEventoPara(ByVal CveEvento As Integer, ByVal CveUsuario As Integer) As Boolean 'Dim Retorno As Boolean = False @@ -2114,9 +2114,9 @@ Public Class ClsOIEventos 'End Try Return True - End Function + End Function #End Region - + #Region "T I P O S E V E N T O S" Public Function GetTipoEventos(pCveTipoEvento As Integer) As Boolean Dim Retorno As Boolean = False @@ -2137,10 +2137,10 @@ Public Class ClsOIEventos End Try Return Retorno - End Function - + End Function + #End Region - + #Region "E S T A T U S E V E N T O S" Public Function GetEstatusEventos(CveEventoEstatus As Integer) As Boolean Dim Retorno As Boolean = False @@ -2187,13 +2187,13 @@ Public Class ClsOIEventos End Try Return Retorno - End Function + End Function #End Region - - - + + + #Region " R E V I S I O N E S" - + Public Function GetRevisionesEventos(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OI_RevisionesGet") @@ -2251,11 +2251,11 @@ Public Class ClsOIEventos End Try Return Retorno - End Function + End Function #End Region - - - + + + #Region "T A R E A" Public Function AddEventoTarea(Asunto As String, Descripcion As String, Prioridad As Integer, CveUsuarioDe As Integer, CveUsuarioPara As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveEventoPadre As Integer, Orden As Double, CveRevision As Integer, Archivo As String, CveActivoFijo As Integer, CveIE As Integer, CveProspecto As Integer, CveCliente As Integer, @@ -2272,8 +2272,8 @@ Public Class ClsOIEventos Retorno = GetEventos(-1, 1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveUsuario, -1, CveEmpresa) Return Retorno - End Function - + End Function + #Region "T A R E A S - EVENTOS - ASIGNARON - ASIGNADAS - CCP" Public Function GetEventosUsuarioCCP(CveUsuario As Integer, CveEmpresa As Integer, CveTipoEvento As Integer, CveRevision As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveEventoEstatus As Integer) As Boolean Dim Retorno As Boolean = False @@ -2422,10 +2422,10 @@ Public Class ClsOIEventos End Try Return Retorno - End Function + End Function #End Region #End Region - + #Region "A G E N D A" Public Function AddEventoAgenda(CveAgendaTipo As Integer, Asunto As String, Descripcion As String, Prioridad As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveUsuarioIng As Integer, CveEmpresa As Integer, Optional CveActivoFijo As Integer = -1, Optional CveIE As Integer = -1, Optional CveProspecto As Integer = -1, Optional CveCliente As Integer = -1, @@ -2447,10 +2447,10 @@ Public Class ClsOIEventos Retorno = GetEventos(-1, 2, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveUsuario, -1, CveEmpresa) Return Retorno - End Function - + End Function + #End Region - + #Region "A G E N D A - T I P O" Public Function GetAgendaTipo() As Boolean Dim Retorno As Boolean = False @@ -2465,9 +2465,9 @@ Public Class ClsOIEventos End Try Return Retorno - End Function + End Function #End Region - + #Region "P R O Y E C T O" Public Function AddEventoProyecto(Asunto As String, Descripcion As String, Prioridad As Integer, CveUsuarioDe As Integer, CveUsuarioPara As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveEventoPadre As Integer, CveRevision As Integer, Archivo As String, CveActivoFijo As Integer, CveIE As Integer, CveProspecto As Integer, CveCliente As Integer, @@ -2477,9 +2477,9 @@ Public Class ClsOIEventos Retorno = AddEvento(3, -1, Asunto, Descripcion, Prioridad, CveUsuarioDe, CveUsuarioPara, FechaInicio, FechaFin, -1, CveRevision, Archivo, CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveEventoPadre:=CveEventoPadre) Return Retorno - End Function + End Function #End Region - + #Region "C O N T R O L - V E R S I O N E S" Public Function AddEventoControlVersionesDoctos(Asunto As String, Descripcion As String, Archivo As String, CveUsuarioIng As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2487,9 +2487,9 @@ Public Class ClsOIEventos Retorno = AddEvento(4, -1, Asunto, Descripcion, 1, -1, -1, ("01/01/1799").ToDate, ("01/01/1799").ToDate, -1, -1, "-1", CveUsuarioIng, CveEmpresa) Return Retorno - End Function + End Function #End Region - + #Region "M I N U T A" Public Function AddEventoMinuta(Asunto As String, Descripcion As String, Acuerdos As String, CveUsuarioDe As Integer, CveUsuarioPara As Integer, FechaInicio As DateTime, Archivo As String, CveUsuarioIng As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2497,9 +2497,9 @@ Public Class ClsOIEventos Retorno = AddEvento(5, -1, Asunto, Descripcion, 1, -1, -1, FechaInicio, ("01/01/1799").ToDate, -1, -1, "-1", CveUsuarioIng, CveEmpresa, -1, -1, -1, -1, -1, -1, -1, -1) Return Retorno - End Function + End Function #End Region - + #Region "N O R M A T I V I D A D" Public Function GetEventoNormatividad(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean @@ -2519,20 +2519,20 @@ Public Class ClsOIEventos Retorno = UpdateEvento(Titulo, Observaciones, 1, -1, -1, ("01/01/1799").ToDate, ("01/01/1799").ToDate, -1, tArchivo, CveEvento) Return Retorno - End Function - + End Function + #End Region - + #Region "B I T A C O R A" - 'Public Function AddEventoBitacora(Descripcion As String, tArchivo As String, CveActivoFijo As Integer, CveIE As Integer, CveProspecto As Integer, CveCliente As Integer, - ' CveOS As Integer, CveOC As Integer, CvePersonal As Integer, CveProveedor As Integer, CveCompra As Integer, CveUsuarioIng As Integer, CveEmpresa As Integer) As Boolean - ' Dim Retorno As Boolean = False - - ' Retorno = AddEvento(6, -1, "", Descripcion, 1, -1, -1, ("01/01/1799").ToDate, ("01/01/1799").ToDate, -1, tArchivo, CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveCompra) - - ' Return Retorno - 'End Function - + 'Public Function AddEventoBitacora(Descripcion As String, tArchivo As String, CveActivoFijo As Integer, CveIE As Integer, CveProspecto As Integer, CveCliente As Integer, + ' CveOS As Integer, CveOC As Integer, CvePersonal As Integer, CveProveedor As Integer, CveCompra As Integer, CveUsuarioIng As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False + + ' Retorno = AddEvento(6, -1, "", Descripcion, 1, -1, -1, ("01/01/1799").ToDate, ("01/01/1799").ToDate, -1, tArchivo, CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveCompra) + + ' Return Retorno + 'End Function + Public Function AddEventoBitacora(Descripcion As String, tArchivo As String, CveUsuarioIng As Integer, CveEmpresa As Integer, Optional CveActivoFijo As Integer = -1, Optional CveIE As Integer = -1, Optional CveProspecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveOS As Integer = -1, Optional CveOC As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, @@ -2614,11 +2614,11 @@ Public Class ClsOIEventos Retorno = RemoveEvento(CveEvento, CveEmpresa) Return Retorno - End Function - + End Function + #End Region - - + + #Region "SOPORTE " Public Function AddEventoSoporte(Asunto As String, Descripcion As String, Prioridad As Integer, CveUsuarioDe As Integer, CveUsuarioPara As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveEventoPadre As Integer, Orden As Double, CveRevision As Integer, Archivo As String, CveActivoFijo As Integer, CveIE As Integer, CveProspecto As Integer, CveCliente As Integer, @@ -2630,9 +2630,9 @@ Public Class ClsOIEventos CveUsuarioSop:=CveUsuarioSop, Persona:=Persona, Telefono:=Telefono, Extension:=Extension, Clasificacion:=Clasificacion, Desarrollo:=Desarrollo, CveEmpresaSop:=CveEmpresaSop, CveModulo:=CveModulo, Email:=Email, Datos:=Datos) Return Retorno - End Function + End Function #End Region - + #Region "R E P O R T E G A S T O S F I J O S" Public Function GetGastoMensual(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, Prioridad As Integer, CveEventoEstatus As Integer, CveUsuarioIng As Integer) As Boolean @@ -2658,9 +2658,9 @@ Public Class ClsOIEventos End Try Return Retorno - End Function + End Function #End Region - + #Region "Circular" Public Function GetCircular(CveEmpresa As Integer, Optional CveCircular As Integer = -1, Optional FechaI As String = "-1", Optional FechaF As String = "-1", Optional CveUsuario As Integer = -1) As Boolean @@ -2765,13 +2765,13 @@ Public Class ClsOIEventos End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "OI_Documentos" - + #Region "OI_DocumentosCategorias" Public Function GetDocumentoCategoria(Optional CveCategoria As Integer = -1, Optional Categoria As String = "-1") As Boolean @@ -2855,9 +2855,9 @@ Public Class ClsOIEventos End Try Return Retorno - End Function + End Function #End Region - + #Region "OI_DocumentosSubCategoria" Public Function GetDocumentoSubCategoria(Optional CveSubCategoria As Integer = -1, Optional SubCategoria As String = "-1", Optional CveCategoria As Integer = -1) As Boolean @@ -2942,9 +2942,9 @@ Public Class ClsOIEventos End Try Return Retorno - End Function + End Function #End Region - + #Region "Documentos" Public Function ListadoDocumentos(CveEmpresa As Integer) As Boolean @@ -3068,9 +3068,9 @@ Public Class ClsOIEventos End Try Return Retorno - End Function + End Function #End Region - + #Region "OI_DocumentosAutorizacion" Public Function AddDocumentoAutorizacion(CveDocumento As Integer, CveUsuario As Integer, Adjunto As String) As Boolean @@ -3154,12 +3154,12 @@ Public Class ClsOIEventos End Try Return Retorno - End Function + End Function #End Region - + #End Region - - ' IDisposable + + ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) If Not disposedValue Then If disposing Then @@ -3177,16 +3177,16 @@ Public Class ClsOIEventos ' TODO: Establecer campos grandes como Null. End If disposedValue = True - End Sub - + End Sub + #Region " IDisposable Support " - ' Visual Basic agregó este código para implementar correctamente el modelo descartable. + ' Visual Basic agregó este código para implementar correctamente el modelo descartable. Public Sub Dispose() Implements IDisposable.Dispose ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean). ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region - + End Class \ No newline at end of file diff --git a/App_Code/ClsPV.vb b/App_Code/ClsPV.vb index 62724f041..0e44deb77 100644 --- a/App_Code/ClsPV.vb +++ b/App_Code/ClsPV.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsPV Implements IDisposable diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index b9e31dd39..7b7e0e607 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1,22 +1,14 @@ Option Strict On Option Explicit On - -Imports System Imports System.Data -Imports Extensiones -Imports System.Web.Security -Imports System.Web Imports System.IO -Imports Microsoft.Reporting.WebForms -Imports iTextSharp.text.pdf +Imports System.Net.Http +Imports System.Xml Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared -Imports CrystalDecisions.ReportSource -Imports Stimulsoft.Report -Imports System.Xml -Imports System.Web.Http.ValueProviders -Imports ADServerControl -Imports System.Net.Http +Imports Extensiones +Imports iTextSharp.text.pdf +Imports Microsoft.Reporting.WebForms Imports Newtonsoft.Json Imports Newtonsoft.Json.Linq @@ -5610,6 +5602,8 @@ Public Class ClsPaginas PaginaDict.Add("/Planeacion/Presupuestos.aspx".ToUpper(), -1) PaginaDict.Add("/Contabilidad/OCDetalleAlmacen.aspx".ToUpper(), -1) + PaginaDict.Add("/Agropecuaria/CierreCultivo.aspx".ToUpper(), 1326) + PaginaDict.Add("/testApi.aspx".ToUpper(), -1) diff --git a/App_Code/ClsPresupuestos.vb b/App_Code/ClsPresupuestos.vb index 54c45a729..b920feb35 100644 --- a/App_Code/ClsPresupuestos.vb +++ b/App_Code/ClsPresupuestos.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsPresupuestos Implements IDisposable @@ -749,7 +747,7 @@ Public Class ClsPresupuestos End Function - + ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) If Not disposedValue Then diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 4363a44e2..3bc1b22f7 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Imports Modelos Public Class ClsProductosServicios diff --git a/App_Code/ClsProsEncuestas.vb b/App_Code/ClsProsEncuestas.vb index 7a74c21c6..f15472b0d 100644 --- a/App_Code/ClsProsEncuestas.vb +++ b/App_Code/ClsProsEncuestas.vb @@ -24,7 +24,7 @@ Public Class ClsProsEncuestas #Region "Propiedades" Public Property CveProspecto As Integer - + Public ReadOnly Property DtResultados() As DataTable Get diff --git a/App_Code/ClsProyectos.vb b/App_Code/ClsProyectos.vb index 030fc7686..38f6a15dd 100644 --- a/App_Code/ClsProyectos.vb +++ b/App_Code/ClsProyectos.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsProyectos Implements IDisposable diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb index bd388c409..bae4421c5 100644 --- a/App_Code/ClsPuntoVenta.vb +++ b/App_Code/ClsPuntoVenta.vb @@ -142,7 +142,7 @@ Public Class ClsPuntoVenta DataAdapter("PA_Vta_CortesDetallesGet") SqlAdapter.SelectCommand.Parameters.Add("@CveCorte", SqlDbType.Int).Value = CveCorte - + Try SqlAdapter.Fill(Data) Retorno = True @@ -399,7 +399,7 @@ Public Class ClsPuntoVenta Try SqlAdapter.Fill(Data) Retorno = True - Catch ex As Exception + Catch ex As Exception OnError("Ocurrió un error al obtener los Movimientos de Caja del Cortes del Punto de Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 3668afa90..685365dad 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -7,10 +7,10 @@ Imports Extensiones Public Class ClsRH - Implements IDisposable - + Implements IDisposable + #Region "Campos" - 'SQL + 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlTransacc As SqlTransaction @@ -41,17 +41,17 @@ Public Class ClsRH Public Sub Commit() SqlTransacc.Commit() - End Sub - + End Sub + #End Region - + #Region "Propiedades" Public ReadOnly Property DSResultados() As DataSet Get DSResultados = DSet End Get - End Property - + End Property + #End Region Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) @@ -81,11 +81,11 @@ Public Class ClsRH Data = New DataTable End Sub Private CveConexion As Integer = 0 - Private EsTransaccionCompartida As Boolean = False - - + Private EsTransaccionCompartida As Boolean = False + + #Region "Conexiones" - + Private Sub ConexionAdd() If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then @@ -437,9 +437,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "ClsRHDepartamentos" Public Function GetDepartamentos() As Boolean Dim Retorno As Boolean = False @@ -526,10 +526,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - + #Region "ClsRHDocumentos" Public Function GetDocumentos() As Boolean Dim Retorno As Boolean = False @@ -602,9 +602,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "ClsRHEscolaridad" Public Function GetEscolaridades() As Boolean Dim Retorno As Boolean = False @@ -694,10 +694,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - + #Region "ClsRHEstadoCivil" Public Function GetEstadoCivil() As Boolean Dim Retorno As Boolean = False @@ -788,10 +788,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - + #Region "ClsRHEstatusEmpleado" Public Function GetEstatusEmpleado() As Boolean Dim Retorno As Boolean = False @@ -809,9 +809,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "ClsRHEstatusPersonal" Public Function GetEstatusPersonal() As Boolean Dim Retorno As Boolean = False @@ -899,9 +899,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "ClsRHGenero" Public Function GetGeneros() As Boolean Dim Retorno As Boolean = False @@ -989,9 +989,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "ClsRHJornadas" Public Function GetJornadas() As Boolean Dim Retorno As Boolean = False @@ -1061,10 +1061,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - + #Region "ClsRHMotivoBaja" Public Function GetMotivoBaja() As Boolean Dim Retorno As Boolean = False @@ -1152,9 +1152,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "ClsRHMotivosHorasExtras" Public Function GetMotivoHorasExtras() As Boolean Dim Retorno As Boolean = False @@ -1240,9 +1240,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "ClsRHNominas" Public Function GetPreNomina(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -1419,13 +1419,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - + #Region "ClsRHPersonal" #Region "Propiedades" - 'Datos Personales + 'Datos Personales Public Property CvePersonal As Integer 'Public Property Nombre As String Public Property APaterno As String @@ -1547,11 +1547,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Get DtResultados = Data End Get - End Property + End Property #End Region - + #Region "Personal" - + Public Function GetPersonal(CvePersonal As Integer, Codigo As String, Nombre As String, NSS As String, RFC As String, CveTurno As Integer, CvePuesto As Integer, CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer, CveEstadoCivil As Integer, CveGenero As Integer, CveEstatusPersonal As Integer, CveSubProyecto As Integer, CveClienteAsignado As Integer, HorarioTrabajo As String, CveSupervisor As Integer, @@ -2393,12 +2393,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - + #Region "Conceptos de Nómina" - + Public Function GetPersonalConceptos(CvePersonal As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2470,11 +2470,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "Asistencias" - + Public Function GetAsistenciasPeriodo(CvePeriodo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2679,9 +2679,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "Asistencias Detalles" Public Function GetAsistenciasDetalle() As Boolean Dim Retorno As Boolean = False @@ -2781,12 +2781,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Me.OnError("Ocurrió un error al eliminar la asistencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - + End Function + #End Region - + #Region "Nominas" - + Public Function GetNominas(CvePersonal As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2804,10 +2804,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - + #Region "Lista de asistencias" Public Function GetListaAsistencias(CveSubProyecto As Integer, CveTurno As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2825,11 +2825,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "Reportes" - + Public Function GetCumpleañeros() As Boolean Dim Retorno As Boolean = False @@ -2873,13 +2873,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - + #Region "Buzón de Calidad" - - + + Public Function AddBuzonCalidad(CvePersonal As Integer, CveCliente As Integer, CveClienteSucursal As Integer, CveTipoBuzon As Integer, FechaQueja As DateTime, Descripcion As String, NombreReporto As String, TelefonoReporto As String, MailReporto As String, Observaciones As String, CveEmpresa As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean @@ -3047,10 +3047,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region #End Region - + #Region "ClsRHPuestos" Public Function GetPuestos(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -3145,9 +3145,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "ClsRHRuta" Public Function GetRutas() As Boolean Dim Retorno As Boolean = False @@ -3235,9 +3235,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function + End Function #End Region - + #Region "ClsRHTipoBuzon" Public Function GetTipoBuzon() As Boolean Dim Retorno As Boolean = False @@ -3324,10 +3324,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - + #Region "ClsRHTiposContratos" Public Function GetTiposContrato() As Boolean Dim Retorno As Boolean = False @@ -3415,10 +3415,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - + #Region "ClsRHTurnos" Public Function GetTurnos() As Boolean Dim Retorno As Boolean = False @@ -3540,15 +3540,15 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - - + End Function + + #End Region - - - + + + #Region "ClsRHPuestosSueldos" - + Public Function GetPuestosSueldos(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_PuestosSueldosGet") @@ -3676,14 +3676,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - - - + End Function + + + #End Region - - - + + + #Region "ClsRHPersonalRequerido" Public Function GetPersonalRequerido(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -3776,10 +3776,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - + #Region "ClsRHReportePersonalNecesidades" Public Function GetReportePersonalNecesidades(CveTurno As Integer, CveProyecto As Integer, tCveSubProyeto As Integer, Estatus As Integer, CveEmpresa As Integer, CveDepartamento As Integer) As Boolean Dim Retorno As Boolean = False @@ -3801,9 +3801,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo OnError("Ocurrió un error al obtener el Reporte de Necesidades de Personal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function + End Function #End Region - + #Region "ClsRHReporteRotacionPersonal" Public Function GetReporteRotacionPersonal(FechaInicio As Date, FechaFin As Date, CveTurno As Integer, CveProyecto As Integer, CveSubProyeto As Integer, CveEmpresa As Integer) As Boolean @@ -3828,10 +3828,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - + #Region "ClsRHReporteAusentismoLaboral" Public Function GetReporteAusentismoLaboral(FechaInicio As Date, FechaFin As Date, CveTurno As Integer, CveProyecto As Integer, CveSubProyeto As Integer, CveEmpresa As Integer) As Boolean @@ -3856,11 +3856,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - - + + #Region " ORGANIGRAMA " Public Function AddUpdatePersonalOrganigrama(CvePersonal As Integer, CvePersonalPadre As Integer) As Boolean Dim Retorno As Boolean = False @@ -3900,12 +3900,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function + End Function #End Region - - + + #Region "C H E C A D O R E S T A C I O N E S" - + Public Function DdlChecadorTipoGet(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_DdlChecadorTipoGet") @@ -3940,17 +3940,17 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - - + End Function + + #End Region - - + + #Region "C-U-R-S-O-S R A I Z" - + #Region "C U R S O S" - - 'PA_RH_PersonalCursosGet + + 'PA_RH_PersonalCursosGet Public Function PersonalCursosGet(CvePersonal As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -4115,13 +4115,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - - + End Function + + #End Region - - - + + + #Region "G R U P O S" Public Function CursoGrupoGet(CveCurso As Integer, CveEmpresa As Integer, Optional Filtro As Integer = 1) As Boolean Dim Retorno As Boolean = False @@ -4236,14 +4236,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - - + End Function + + #End Region - - + + #Region "CATALOGO NACIONAL AREAS TEMATICAS" - + Public Function CatalogoNacionalOcupacionesCombosGet() As Boolean Dim Retorno As Boolean = False @@ -4258,12 +4258,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - + #Region "C U R S O S - T E M A S" - + Public Function TemasGet(Estatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -4364,12 +4364,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo OnError("Ocurrió un error al Eliminar el Tema TemasRemove.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - + End Function + #End Region - + #Region "C U R S O S - S U B T E M A S" - + Public Function SubtemasGet(CveTema As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -4465,14 +4465,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo OnError("Ocurrió un error al Eliminar el Subtema SubtemaRemove.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - - + End Function + + + #End Region - + #Region "C U R S O S - C A P A C I T A D O R E S" - + Public Function CapacitadoresGet(CveCapacitador As Integer, Estatus As Integer, Externo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -4573,16 +4573,16 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - - - + End Function + + + #End Region - + #Region "C U R S O S C O N S T A N C I A S" - - 'PA_RH_PersonalConstancia - + + 'PA_RH_PersonalConstancia + Public Function PersonalConstanciaGet(CveCurso As Integer, CvePersonal As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -4603,15 +4603,15 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - - + End Function + + #End Region #End Region - - + + #Region "R E C L U T A M I E N T O" - + #Region "Familiares" Public Function PersonalFamiliaresGet(CveFamiliar As Integer, CvePersonal As Integer) As Boolean Dim Retorno As Boolean = False @@ -4720,11 +4720,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function + End Function #End Region - + #Region "ESCOLARIDAD" - + Public Function PersonalEscolaridadGet(CveEscolaridad As Integer, CvePersonal As Integer) As Boolean Dim Retorno As Boolean = False @@ -4822,12 +4822,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - + #Region "VALIDACION REFERENCIAS" - + Public Function PersonalReferenciasVerificacionGet(CvePersonal As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -4871,12 +4871,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - + #Region "REFERENCIAS LABORALES" - + Public Function PersonalReferenciasLaboralesGet(CveReferenciaLaboral As Integer, CvePersonal As Integer) As Boolean Dim Retorno As Boolean = False @@ -4993,12 +4993,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - + #Region "REFERENCIAS PERSONALES" - + Public Function PersonalReferenciasPersonalesGet(CveReferenciaPersonal As Integer, CvePersonal As Integer) As Boolean Dim Retorno As Boolean = False @@ -5097,13 +5097,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - + #Region "DATOS GENERALES" - - + + Public Function PersonalReclutamientoAdd( Nombres As String, APaterno As String, @@ -5405,11 +5405,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function + End Function #End Region - + #Region "EXPEDIENTE" - + Public Function EstatusIngresoGet(CveEmpresa As Integer, Estatus As Integer) As Boolean Dim Retorno As Boolean = False @@ -5517,78 +5517,78 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - - 'Public Function PersonalEntrevistaAdd(CvePersonal As Integer, CveReferenciaLaboral As Integer, CveEncuesta As Integer, CvePregunta As Integer, ValorInt As Integer, ValorStr As String, CveUsuario As Integer) As Boolean - ' Dim Retorno As Boolean = False - - ' SqlDataAdapter("PA_RH_PersonalEntrevistasAdd") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - ' .Add("@CveEncuesta", SqlDbType.Int).Value = CveEncuesta - ' .Add("@CvePregunta", SqlDbType.Int).Value = CvePregunta - ' .Add("@ValorInt", SqlDbType.Int).Value = ValorInt - ' .Add("@ValorStr", SqlDbType.VarChar).Value = ValorStr - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al agregar la resgistros de Entrevista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - - 'End Function - - 'Public Function PersonalEntrevistaGet(CvePersonal As Integer, CveReferenciaLaboral As Integer, CveTipoPregunta As Integer) As Boolean - ' Dim Retorno As Boolean = False - - ' SqlDataAdapter("PA_RH_PersonalEntrevistasGet") ' - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - ' .Add("@CveTipoPregunta", SqlDbType.Int).Value = CveTipoPregunta - ' .Add("@CveReferenciaLaboral", SqlDbType.Int).Value = CveReferenciaLaboral - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener la entrevista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - - 'End Function - - 'Public Function PersonalEntrevistaRemove(CvePersonal As Integer) As Boolean - ' Dim Retorno As Boolean = False - - ' SqlDataAdapter("PA_RH_PersonalEntrevistasRemove") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al eliminar la entrevista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - - 'End Function - + End Function + + 'Public Function PersonalEntrevistaAdd(CvePersonal As Integer, CveReferenciaLaboral As Integer, CveEncuesta As Integer, CvePregunta As Integer, ValorInt As Integer, ValorStr As String, CveUsuario As Integer) As Boolean + ' Dim Retorno As Boolean = False + + ' SqlDataAdapter("PA_RH_PersonalEntrevistasAdd") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + ' .Add("@CveEncuesta", SqlDbType.Int).Value = CveEncuesta + ' .Add("@CvePregunta", SqlDbType.Int).Value = CvePregunta + ' .Add("@ValorInt", SqlDbType.Int).Value = ValorInt + ' .Add("@ValorStr", SqlDbType.VarChar).Value = ValorStr + ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al agregar la resgistros de Entrevista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + + 'End Function + + 'Public Function PersonalEntrevistaGet(CvePersonal As Integer, CveReferenciaLaboral As Integer, CveTipoPregunta As Integer) As Boolean + ' Dim Retorno As Boolean = False + + ' SqlDataAdapter("PA_RH_PersonalEntrevistasGet") ' + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + ' .Add("@CveTipoPregunta", SqlDbType.Int).Value = CveTipoPregunta + ' .Add("@CveReferenciaLaboral", SqlDbType.Int).Value = CveReferenciaLaboral + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener la entrevista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + + 'End Function + + 'Public Function PersonalEntrevistaRemove(CvePersonal As Integer) As Boolean + ' Dim Retorno As Boolean = False + + ' SqlDataAdapter("PA_RH_PersonalEntrevistasRemove") + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al eliminar la entrevista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + + 'End Function + #End Region - + #Region "C A R A C T E R I S T I C A S" - + Public Function CaracteristicasGet(CveCaracteristica As Integer, CvePersonal As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -5718,15 +5718,15 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - - + End Function + + #End Region - + #End Region - + #Region "S U B P R O Y E C T O Z O N A S" - + Public Function SubproyectoZonaGet(CveSubProyectoZona As Integer, CveSubproyecto As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -5797,13 +5797,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "V A C A C I O N E S" - + Public Function VacacionesResumenGet(CvePersonal As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -5993,17 +5993,17 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - - - - + End Function + + + + #End Region - - + + #Region "C H E C A D O R" - - + + Public Function ChecadorHorariosGet(CveChecadorHorario As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -6328,13 +6328,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - + #Region "ZONA HORARIA" - - + + Public Function ZonasHorarias(Estatus As Integer) As Boolean Dim Retorno As Boolean = False @@ -6352,15 +6352,15 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno - End Function - + End Function + #End Region - - - - + + + + #Region "PRE ASISTENACIA " - + Public Function PreAsistenciaFechaSugeridaGet(CveTipoPeriodo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -6439,13 +6439,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - - + + #Region "DESCARTAR CANDIDATO" - + Public Function DescartarCandidato(CvePersonal As Integer, MotivoDescartado As String, Descartar As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -6493,12 +6493,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - - - + End Function + + + #End Region - + #Region "CAPTACION" Public Function CaptacionCatalogoGet(CveCaptacion As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -6568,13 +6568,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - - + + #Region "UNIFORMES" - + Public Function UniformeGet(CveUniforme As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -6777,12 +6777,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function + End Function #End Region - - + + #Region "LISTA ASISTENCIA" - + Public Function GetListaAsistencia(Fecha As Date, CveSubproyecto As Integer, CveDepartamento As Integer, CveSupervisor As Integer, CveClienteAsignado As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -6877,13 +6877,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - - + + #Region "T A G S - RH " - + Public Function GetDatosTagsDocumentos(CvePersonal As Integer, CveEmpresa As Integer) As List(Of TagsDocumentos) Dim ListaTagsDocumentost = New List(Of TagsDocumentos) @@ -7029,12 +7029,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return MesString - End Function - - - + End Function + + + #End Region - + #Region "DIRECTORIO TELEFONICO" Public Function DirectorioTelefonicoGet(CveEmpresa As Integer, Optional CveEstatus As Integer = 1) As Boolean Dim Retorno As Boolean = False @@ -7056,12 +7056,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno - End Function - + End Function + #End Region - + #Region "APLICACION SIG" - + Public Function UpdatePersonalApp(CvePersonal As Integer, CveTurno As Integer, CveDepartamento As Integer, CvePuesto As Integer, CveSubProyecto As Integer, CveClienteAsignado As Integer) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalAppUpdate") @@ -7080,12 +7080,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo OnError("Ocurrió un error al actualizar el personal desde la aplicación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - + End Function + #End Region - + #Region "PAGO DE FACTURAS DE PERSONAL" - + Public Function GetPersonalPagoFactura(CvePersonal As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_PersonalPagoFacturaGet") @@ -7102,10 +7102,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo OnError("Ocurrió un error al obtener los pagos de factura de personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - + End Function + #End Region - + #Region "Checador" Public Function GetChecadores(CveChecador As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -7423,7 +7423,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region End Class Public Class RequestAddChecadorRegistro diff --git a/App_Code/ClsSAT.vb b/App_Code/ClsSAT.vb index 62d6f4521..f0650949d 100644 --- a/App_Code/ClsSAT.vb +++ b/App_Code/ClsSAT.vb @@ -1,17 +1,11 @@ Option Strict On Option Explicit On -Imports System.Net Imports System.Data -Imports System.IO -Imports Extensiones -Imports System.Data.OleDb -Imports System.Globalization -Imports GemBox.Spreadsheet Imports System.Data.SqlClient - - -Imports Microsoft.VisualBasic +Imports System.Net +Imports Extensiones +Imports GemBox.Spreadsheet Public Class ClsSAT Implements IDisposable diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 5a0ddaf30..8d06d1397 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsSisEmpresas Implements IDisposable diff --git a/App_Code/ClsSisNotificaciones.vb b/App_Code/ClsSisNotificaciones.vb index c2406c5ee..4547acac5 100644 --- a/App_Code/ClsSisNotificaciones.vb +++ b/App_Code/ClsSisNotificaciones.vb @@ -2,37 +2,23 @@ Imports System.Data Imports System.Data.SqlClient -Imports Extensiones -Imports System -Imports System.Configuration Imports System.IO Imports System.Net Imports System.Net.Http - -Imports Microsoft.AspNet.SignalR -Imports Microsoft.Reporting.WebForms -Imports System.Security.Cryptography -Imports System.Web.Security -Imports System.Web -Imports itextsharp.text.pdf Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared -Imports CrystalDecisions.ReportSource -Imports Stimulsoft.Report -Imports Stimulsoft.Report.Dictionary -Imports Stimulsoft.Report.MobileDesign -Imports System.Linq -Imports Stimulsoft.Report.Export -Imports Newtonsoft.Json.Linq -Imports System.Xml +Imports Extensiones Imports GemBox.Spreadsheet +Imports Microsoft.AspNet.SignalR +Imports Microsoft.Reporting.WebForms +Imports Newtonsoft.Json.Linq Public Class ClsSisNotificaciones - Implements IDisposable - - + Implements IDisposable + + #Region "C A M P O S" - 'SQL + 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlCommand As SqlCommand @@ -98,7 +84,7 @@ Public Class ClsSisNotificaciones Public Property DTReportesProgramados As DataTable Public Property DTNotificacionesGPS As DataTable Public Property DTNotificacionesERP As DataTable - Public Property DTNotificacionesArmadas As DataTable + Public Property DTNotificacionesArmadas As DataTable #End Region Sub New() SqlConexion = New SqlConnection @@ -122,9 +108,9 @@ Public Class ClsSisNotificaciones .CommandType = TipoComando End With Data = New DataTable - End Sub + End Sub #Region "Conexiones" - + Private Sub ConexionAdd() If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then @@ -196,10 +182,10 @@ Public Class ClsSisNotificaciones End Select - End Sub - + End Sub + #End Region - + #Region "L O G I C A - N O T I F I C A C I O N E S" Private Sub NotificarEdicionOC(CveOrdenCompra As Integer, CveEstatus As Integer) Select Case CveEstatus @@ -222,11 +208,11 @@ Public Class ClsSisNotificaciones End Select - End Sub + End Sub #End Region - + #Region "C O R R E O" - + Private Sub EnviarCorreos(DTNotificacionesCorreo As DataTable) For Each notificacion As DataRow In DTNotificacionesCorreo.Rows Dim Hilo As New System.Threading.Thread(Sub() MandaMail(notificacion("CveNotificacionBitacora").ToString.ToEntero, notificacion("Encabezado").ToString, notificacion("Cuerpo").ToString, notificacion("Correo").ToString, "")) @@ -1510,12 +1496,12 @@ Public Class ClsSisNotificaciones Next Return dt - End Function - + End Function + #End Region - - - + + + Private Sub EnviarNotificacionesGPS() Try If DTNotificacionesGPS IsNot Nothing Then @@ -1764,10 +1750,10 @@ Public Class ClsSisNotificaciones Catch ex As Exception OnError("Ocurrio un error al enviar la notificación.", ex) End Try - End Sub - + End Sub + #End Region - + #Region "N O T I F I C A C I O N E S - P R O C E D I M I E N T O S G E N E R A L E S" Public Function GetNotificaciones(CveNotificacion As Integer) As Boolean Dim Retorno As Boolean = False @@ -1974,62 +1960,62 @@ Public Class ClsSisNotificaciones End Try Return Retorno - End Function - - 'Public Function ArmarReporteProgramado(NotificacionBitacora As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_GPS_ReporteProgramadoGet") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveNotificacionBitacora", SqlDbType.Int).Value = NotificacionBitacora - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener los reportes programados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - 'End Function - 'Public Function ArmarReporteProgramadoParadas(NotificacionBitacora As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_GPS_ReporteProgramadoParadasGet") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveNotificacionBitacora", SqlDbType.Int).Value = NotificacionBitacora - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener los reportes programados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - 'End Function - - 'Public Function ArmarReporteProgramadoHistorico(NotificacionBitacora As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_GPS_ReporteProgramadoHistoricoGet") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveNotificacionBitacora", SqlDbType.Int).Value = NotificacionBitacora - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener los reportes programados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - 'End Function + End Function + + 'Public Function ArmarReporteProgramado(NotificacionBitacora As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_GPS_ReporteProgramadoGet") + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveNotificacionBitacora", SqlDbType.Int).Value = NotificacionBitacora + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener los reportes programados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + 'End Function + 'Public Function ArmarReporteProgramadoParadas(NotificacionBitacora As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_GPS_ReporteProgramadoParadasGet") + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveNotificacionBitacora", SqlDbType.Int).Value = NotificacionBitacora + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener los reportes programados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + 'End Function + + 'Public Function ArmarReporteProgramadoHistorico(NotificacionBitacora As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_GPS_ReporteProgramadoHistoricoGet") + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveNotificacionBitacora", SqlDbType.Int).Value = NotificacionBitacora + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener los reportes programados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + 'End Function #End Region - + #Region "N O T I F I C A C I O N E S - P R O C E D I M I E N T O S E S P E C I F I C O S" Public Function GetUsuariosNotifiacionOCAutorizada(CveOC As Integer) As Boolean 'Notifiacion #1 Dim Retorno As Boolean = False @@ -2067,9 +2053,9 @@ Public Class ClsSisNotificaciones End Try Return Retorno - End Function + End Function #End Region - + #Region "N O T I F I C A C I O N E S - U S U A R I O S" Public Function GetUsuariosNotificacion(CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -2159,10 +2145,10 @@ Public Class ClsSisNotificaciones End Try Return Retorno - End Function - + End Function + #End Region - + #Region "P D F" Public Function StreamPDF(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing) As Byte() Dim lrds As New List(Of ReportDataSource) @@ -2254,7 +2240,7 @@ Public Class ClsSisNotificaciones End If If MR IsNot Nothing Then MR.Dispose() Return Bytes - End Function + End Function #End Region Public Function ConsultarDirecciones(Dt As DataTable) As JArray Dim retorno As JArray = Nothing @@ -2360,6 +2346,6 @@ Public Class ClsSisNotificaciones ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region End Class diff --git a/App_Code/ClsSisParametros.vb b/App_Code/ClsSisParametros.vb index 31ee3bc15..5773f5b29 100644 --- a/App_Code/ClsSisParametros.vb +++ b/App_Code/ClsSisParametros.vb @@ -1,9 +1,7 @@ Imports System.Data Imports System.Data.SqlClient -Imports Extensiones -Imports System -Imports System.Configuration Imports System.Data.SqlTypes +Imports Extensiones Public Class ClsSisParametros Implements IDisposable diff --git a/App_Code/ClsSisProcesos.vb b/App_Code/ClsSisProcesos.vb index 573219743..5f7e1fd78 100644 --- a/App_Code/ClsSisProcesos.vb +++ b/App_Code/ClsSisProcesos.vb @@ -1,8 +1,6 @@ Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsSisProcesos Implements IDisposable diff --git a/App_Code/ClsSisRoles.vb b/App_Code/ClsSisRoles.vb index 89e0fa672..c6777a6eb 100644 --- a/App_Code/ClsSisRoles.vb +++ b/App_Code/ClsSisRoles.vb @@ -1,8 +1,6 @@ Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System.Configuration -Imports System Public Class ClsSisRoles Implements IDisposable diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index eb7315b61..fb2337fa3 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -4,15 +4,13 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsSisUsuarios - Implements IDisposable - - + Implements IDisposable + + #Region "Campos" - - 'SQL + + 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlTransacc As SqlTransaction @@ -23,12 +21,12 @@ Public Class ClsSisUsuarios Private disposedValue As Boolean = False ' Para detectar llamadas redundantes 'PARA REGISTRAR CONEXION - Private CveConexion As Integer = 0 - + Private CveConexion As Integer = 0 + #End Region - + #Region "Propiedades" - + Public ReadOnly Property DtResultados() As DataTable Get DtResultados = Data @@ -62,9 +60,9 @@ Public Class ClsSisUsuarios Public Property CveSubProyecto As Integer Public Property AsignarAutomaticamenteSubProyecto As Boolean Public Property AsignarAutomaticamenteOC As Boolean - Public Property DescuentoAutorizado As Double + Public Property DescuentoAutorizado As Double #End Region - + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) If TransaccionCompartida Is Nothing Then @@ -92,9 +90,9 @@ Public Class ClsSisUsuarios End With If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc Data = New DataTable - End Sub + End Sub #Region "Conexiones" - + Private Sub ConexionAdd() If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then @@ -129,7 +127,7 @@ Public Class ClsSisUsuarios End If - End Sub + End Sub #End Region Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) With SqlCommand @@ -578,9 +576,9 @@ Public Class ClsSisUsuarios Return dTable - End Function + End Function #End Region - + #Region "U S U A R I O - E M P R E S A S " Public Function AddUsuariosEmpresas(CveUsuario As Integer, CveEmpresa As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -718,9 +716,9 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function #End Region - + #Region "U S U A R I O S" Public Function GetUsuarios(CveUsuario As Integer, Optional CveRol As Integer = -1, Optional CveUsuarioControlado As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1060,9 +1058,9 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function #End Region - + #Region "B I T A C O R A D E U S A R I O S" Public Function GetBitacora(CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -1104,14 +1102,14 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function #End Region - + #Region "R O L E S" - - ''' - ''' Consulta para generar las opciones del MENU, Modulos que tiene un ususario - ''' + + ''' + ''' Consulta para generar las opciones del MENU, Modulos que tiene un ususario + ''' Public Function GetUsuariosRolesModulos(ByVal pCveUsuario As Integer, CveEmpresa As Integer) As DataTable DataAdapter("PA_Sis_UsuariosRolesModulosGet") @@ -1143,9 +1141,9 @@ Public Class ClsSisUsuarios End Try Return Data - End Function + End Function #End Region - + #Region "U S U A R I O S - M O D U L O S" Public Function GetUsuariosModulos(CveUsuario As Integer, CveEmpresa As Integer, Optional CveUsuarioActual As Integer = -1, Optional CvePlataforma As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1234,9 +1232,9 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function #End Region - + #Region "U S U A R I O S - D I S P O S I T I V O S" Public Function UpdateUsuariosDispositivos(CveUsuario As Integer, CveDispositivo As Integer, Permitir As Boolean) As Boolean Dim Retorno As Boolean = False @@ -1261,9 +1259,9 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function #End Region - + #Region "U S U A R I O S - C O M A N D O S" Public Function UpdateUsuariosComandos(CveUsuario As Integer, CveUsuarioAsigno As Integer, CveComando As Integer, Permitir As Boolean, EsFavorito As Boolean) As Boolean Dim Retorno As Boolean = False @@ -1290,10 +1288,10 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function #End Region - - + + #Region "U S U A R I O S - P R O C E S O S " Public Function GetUsuariosProcesos(CveUsuario As Integer, Optional CveUsuarioActual As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1381,11 +1379,11 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function #End Region - + #Region "U S U A R I O S - P O R T AL " - + Public Function GetUsuariosPortal(pCveUsuarioPortal As Integer, pCveCliente As Integer, pCveProveedor As Integer) As Boolean Dim Retorno As Boolean = False @@ -1487,12 +1485,12 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - - + End Function + + #End Region - - + + #Region " S U B - P R O Y E C T O S " Public Function GetSubProyectos(CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -1574,10 +1572,10 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - + End Function + #End Region - + #Region " E S T A T U S O C " Public Function GetEstatusOC(CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -1654,8 +1652,8 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - + End Function + #End Region #Region "C L A S I F I C A C I O N E S" Public Function AddUsuariosClasificaciones(CveUsuario As Integer, CveClasificacion As Integer, CveUsuarioIng As Integer, CveUsuarioModifico As Integer) As Boolean @@ -1719,8 +1717,8 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - + End Function + #End Region #Region " A L M A C E N " Public Function GetAlmacen(CveUsuario As Integer, CveEmpresa As Integer) As Boolean @@ -1803,9 +1801,9 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function #End Region - + Private Function GeneraMenu(CveUsuario As Integer, dtMenu As DataTable, Optional CvePlataforma As Integer = 1) As Boolean Dim Retorno As Boolean = False dtMenu.TableName = "UsuariosModulos" @@ -1834,10 +1832,10 @@ Public Class ClsSisUsuarios Return Retorno - End Function - - - + End Function + + + #Region " CLONAR USUARIOS " Public Function ClonarUsuario(CveUsuario As Integer, CveUsuarioClonado As Integer, UsuariosEmpresas As Boolean, UsuariosModulos As Boolean, UsuariosProcesos As Boolean, UsuariosSubProyectos As Boolean, UsuariosAlmacenes As Boolean, UsuariosOC As Boolean, UsuariosOS As Boolean) As Boolean Dim Retorno As Boolean = False @@ -1882,12 +1880,12 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function #End Region - - + + #Region " RESTRICCIONES ACCESO " - + Public Function UsuariosRestriccionesAccesoAdd(CveUsuario As Integer, IP As String, MAC As String, HI1 As String, HF1 As String, HI2 As String, HF2 As String, HI3 As String, HF3 As String, HI4 As String, HF4 As String, HI5 As String, HF5 As String, HI6 As String, HF6 As String, HI7 As String, HF7 As String, Optional CveUsuarioModifico As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2014,10 +2012,10 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function #End Region - - + + #Region "ACTUALIZAR USUARIO RESPONSABLE MASIVAMENTE" Public Function UpdateUsuarioResponsableMasivo(CveUsuario As Integer, CveUsuarioResponsable As Integer) As Boolean Dim Retorno As Boolean = False @@ -2033,13 +2031,13 @@ Public Class ClsSisUsuarios OnError("Ocurrio un error al actualizar el Usuario Responsable.", ex) End Try Return Retorno - End Function - + End Function + #End Region - - + + #Region " ASIGNAR " - + #Region " ALMACEN ASIGNAR " Public Function GetAlmacenAsignar(CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -2096,9 +2094,9 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function #End Region - + #Region " SUBPROYECTOS ASIGNAR " Public Function GetSubProyectosAsignar(CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -2155,10 +2153,10 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - + End Function + #End Region - + #Region " CUENTAS BANCARIAS " Public Function GetCuentasBancariasAsignar(CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -2215,10 +2213,10 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - + End Function + #End Region - + #Region " MODULOS " Public Function GetModulosAsignar(CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2276,10 +2274,10 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - + End Function + #End Region - + #Region " PERMISOS " Public Function GetPermisosAsignar(CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2336,10 +2334,10 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - + End Function + #End Region - + #Region " EMPRESAS " Public Function GetEmpresasAsignar(CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -2396,10 +2394,10 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - + End Function + #End Region - + #Region " ROLES " Public Function GetRolesAsignar(CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False @@ -2456,10 +2454,10 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - + End Function + #End Region - + #Region " PERMISOS " Public Function GetIndicadoresAsignar(CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2516,12 +2514,12 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - + End Function + #End Region - + #End Region - + Public Function GetClienteGPSRolesModulos(ByVal pCveUsuario As Integer, CveCliente As Integer) As DataTable DataAdapter("PA_Sis_ClienteGPSRolesModulosGet") @@ -2537,11 +2535,11 @@ Public Class ClsSisUsuarios End Try Return Data - End Function - - + End Function + + #Region "U S U A R I O S - GPS " - + Public Function ValidaUsuarioGPS(Clave As String, Usuario As String, Password As String) As Usuario Dim Retorno As Usuario = Nothing @@ -2939,11 +2937,11 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "IDisposable Support" Protected Overridable Sub Dispose(disposing As Boolean) If Not Me.disposedValue Then @@ -2965,9 +2963,9 @@ Public Class ClsSisUsuarios ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region - + End Class diff --git a/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb index 803ab02de..2a7518b5b 100644 --- a/App_Code/ClsSubProyectos.vb +++ b/App_Code/ClsSubProyectos.vb @@ -6,11 +6,11 @@ Imports System.Data.SqlClient Imports Extensiones Public Class ClsSubProyectos - Implements IDisposable - - + Implements IDisposable + + #Region "Campos" - 'SQL + 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlTransacc As SqlTransaction @@ -18,20 +18,20 @@ Public Class ClsSubProyectos Private disposedValue As Boolean = False ' Para detectar llamadas redundantes 'PARA REGISTRAR CONEXION - Private CveConexion As Integer = 0 + Private CveConexion As Integer = 0 #End Region - + #Region "Propiedades" - + Public Property CveSubProyecto As Integer Public ReadOnly Property DtResultados() As DataTable Get DtResultados = Data End Get - End Property - + End Property + #End Region - + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) If TransaccionCompartida Is Nothing Then @@ -58,9 +58,9 @@ Public Class ClsSubProyectos End With If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc Data = New DataTable - End Sub + End Sub #Region "Conexiones" - + Private Sub ConexionAdd() If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then @@ -94,9 +94,9 @@ Public Class ClsSubProyectos CveConexion = 0 End If - End Sub + End Sub #End Region - + Public Function IniciaTransacSQL() As SqlTransaction If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() Return SqlTransacc @@ -459,7 +459,7 @@ Public Class ClsSubProyectos ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region End Class diff --git a/App_Code/ClsSucursales.vb b/App_Code/ClsSucursales.vb index e1d19cca9..de03554ce 100644 --- a/App_Code/ClsSucursales.vb +++ b/App_Code/ClsSucursales.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsSucursales Implements IDisposable diff --git a/App_Code/ClsTSoft.vb b/App_Code/ClsTSoft.vb index 02b128961..5b28b15a6 100644 --- a/App_Code/ClsTSoft.vb +++ b/App_Code/ClsTSoft.vb @@ -1,18 +1,12 @@ -Imports Microsoft.VisualBasic -Imports System.Collections.Generic -Imports System.Linq -Imports System.Web -Imports System.Data -Imports System.Text +Imports System.Data Imports Extensiones -Imports System.Web.Configuration Public Class ClsTSoft Inherits ClsClaseBase Public Sub New(Optional adsObj As ClsClaseBase = Nothing) MyBase.New(adsObj) - End Sub + End Sub #Region "CRUD_Remisiones" Public Function AddRemisiones(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As Date) As Boolean Dim Retorno As Boolean = False @@ -164,10 +158,10 @@ Public Class ClsTSoft retorno = RunQuery("Ocurrió un error al eliminar el Remisiones.") strSQL.Clear() Return retorno - End Function + End Function #End Region #Region "Otros" - + Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As Integer) As Boolean Dim strSQL As New StringBuilder() Dim retorno As Boolean = False @@ -201,9 +195,9 @@ Public Class ClsTSoft retorno = RunQuery("Ocurrió un error al agregar el Remisiones.") strSQL.Clear() Return retorno - End Function + End Function #End Region - + Protected Overloads Function RunQuery(msgOnError As String) As Boolean Dim retorno As Boolean = False diff --git a/App_Code/ClsTareasProgramadas.vb b/App_Code/ClsTareasProgramadas.vb index 926fb09b0..51e65dad6 100644 --- a/App_Code/ClsTareasProgramadas.vb +++ b/App_Code/ClsTareasProgramadas.vb @@ -1,10 +1,6 @@ Option Strict On Imports System.Data -Imports System.Collections.Generic -Imports System.Linq -Imports System.Web -Imports System.Text Imports System.Data.SqlClient Imports Extensiones diff --git a/App_Code/ClsTecnoMovil.vb b/App_Code/ClsTecnoMovil.vb index c82ce726c..0f3f22c8f 100644 --- a/App_Code/ClsTecnoMovil.vb +++ b/App_Code/ClsTecnoMovil.vb @@ -1,18 +1,16 @@ Option Strict On Option Explicit On - -Imports Microsoft.VisualBasic -Imports System.Net Imports System.IO +Imports System.Net Imports Extensiones Public Class ClsTecnoMovil - Public Enum TipoMensaje - AltaFolio = 1 - Programar = 2 - Solucion = 3 - End Enum + Public Enum TipoMensaje + AltaFolio = 1 + Programar = 2 + Solucion = 3 + End Enum Public Shared Sub SendMsg(Mensaje As String, Telefono As String) @@ -41,33 +39,33 @@ Public Class ClsTecnoMovil End Function Private Shared Function HttpGet(uri As String) As String - Dim stream As Stream - Dim reader As StreamReader - Dim response As String = Nothing - Dim webClient As New WebClient() + Dim stream As Stream + Dim reader As StreamReader + Dim response As String = Nothing + Dim webClient As New WebClient() - Using webClient - ' Check our auth details - Try - ' open and read from the supplied URI - stream = webClient.OpenRead(uri) - reader = New StreamReader(stream) - response = reader.ReadToEnd() - Catch ex As WebException - If TypeOf ex.Response Is HttpWebResponse Then - ' Add you own error handling as required - Select Case DirectCast(ex.Response, HttpWebResponse).StatusCode - Case HttpStatusCode.NotFound, HttpStatusCode.Unauthorized - response = Nothing - Exit Select - Case Else - Throw ex - End Select - End If - End Try - End Using + Using webClient + ' Check our auth details + Try + ' open and read from the supplied URI + stream = webClient.OpenRead(uri) + reader = New StreamReader(stream) + response = reader.ReadToEnd() + Catch ex As WebException + If TypeOf ex.Response Is HttpWebResponse Then + ' Add you own error handling as required + Select Case DirectCast(ex.Response, HttpWebResponse).StatusCode + Case HttpStatusCode.NotFound, HttpStatusCode.Unauthorized + response = Nothing + Exit Select + Case Else + Throw ex + End Select + End If + End Try + End Using - Return response - End Function + Return response + End Function End Class diff --git a/App_Code/ClsTemporal.vb b/App_Code/ClsTemporal.vb index 3b727f52c..75e1af8bf 100644 --- a/App_Code/ClsTemporal.vb +++ b/App_Code/ClsTemporal.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsTemporal Implements IDisposable diff --git a/App_Code/ClsTiposEventos.vb b/App_Code/ClsTiposEventos.vb index 76cb02e42..9da834644 100644 --- a/App_Code/ClsTiposEventos.vb +++ b/App_Code/ClsTiposEventos.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsTiposEventos Implements IDisposable diff --git a/App_Code/ClsUnidadesMedida.vb b/App_Code/ClsUnidadesMedida.vb index 542efe9bf..ce7dd2a8b 100644 --- a/App_Code/ClsUnidadesMedida.vb +++ b/App_Code/ClsUnidadesMedida.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsUnidadesMedida Implements IDisposable diff --git a/App_Code/ClsValidaCFDi.vb b/App_Code/ClsValidaCFDi.vb index c236c5bbb..91d1f960a 100644 --- a/App_Code/ClsValidaCFDi.vb +++ b/App_Code/ClsValidaCFDi.vb @@ -1,23 +1,22 @@ Imports System.IO -Imports System.Net Imports System.IO.Compression -Imports System.Text +Imports System.Net Imports Extensiones Public Class ClsValidaCFDi - Implements IDisposable - + Implements IDisposable + #Region "Campos" - 'Campos + 'Campos Private LFolioFiscal As String Private LRFCEmisor As String Private LRFCReceptor As String Private LImporte As Decimal - Private disposedValue As Boolean = False ' Para detectar llamadas redundantes + Private disposedValue As Boolean = False ' Para detectar llamadas redundantes #End Region - + #Region "Propiedades" - 'Propiedades + 'Propiedades Public Property EsValida As Integer Public Property Efecto As String Public Property FechaEmision As String @@ -267,10 +266,10 @@ Public Class ClsValidaCFDi Next Return DataBack.Trim - End Function - + End Function + #Region " IDisposable Support " - ' IDisposable + ' IDisposable Protected Overridable Sub Dispose(disposing As Boolean) If Not disposedValue Then If disposing Then @@ -288,7 +287,7 @@ Public Class ClsValidaCFDi ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean). Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region - + End Class diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 6984877cd..dd9049057 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsVentas Implements IDisposable diff --git a/App_Code/ClsVtaPromociones.vb b/App_Code/ClsVtaPromociones.vb index 3c11d5b04..1df18d9a2 100644 --- a/App_Code/ClsVtaPromociones.vb +++ b/App_Code/ClsVtaPromociones.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Imports System -Imports System.Configuration Public Class ClsVtaPromociones Implements IDisposable diff --git a/App_Code/ClsVtaVendedores.vb b/App_Code/ClsVtaVendedores.vb index 11c021c2d..848ce0461 100644 --- a/App_Code/ClsVtaVendedores.vb +++ b/App_Code/ClsVtaVendedores.vb @@ -3,11 +3,11 @@ Imports System.Data.SqlClient Imports Extensiones Public Class ClsVtaVendedores - Implements IDisposable + Implements IDisposable #Region "Campos" - 'SQL - Private SqlConexion As SqlConnection + 'SQL + Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlTransacc As SqlTransaction Private SqlCommand As SqlCommand @@ -20,10 +20,10 @@ Public Class ClsVtaVendedores #Region "Propiedades" Public ReadOnly Property DtResultados() As DataTable - Get - DtResultados = Data - End Get - End Property + Get + DtResultados = Data + End Get + End Property #End Region @@ -219,28 +219,28 @@ Public Class ClsVtaVendedores Return Retorno End Function Public Function RemoveVendedor(CveVendedor As Integer) As Boolean - Dim Retorno As Boolean = False + Dim Retorno As Boolean = False - DataAdapter("PA_Vta_VendedoresRemove") + DataAdapter("PA_Vta_VendedoresRemove") - SqlAdapter.SelectCommand.Parameters.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + SqlAdapter.SelectCommand.Parameters.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 547;") Then - Alert("El Vendedor no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al eliminar el Vendedor.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar el Vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("El Vendedor no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al eliminar el Vendedor.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar el Vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try - Return Retorno - End Function + Return Retorno + End Function Public Function TraspasarClientesVendedor(CveVendedorAnterior As Integer, CveVendedorNuevo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -263,8 +263,8 @@ Public Class ClsVtaVendedores End Function ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) - If Not disposedValue Then - If disposing Then + If Not disposedValue Then + If disposing Then ' TODO: Liberar otro estado (objetos administrados). If Not Data Is Nothing Then Data.Dispose() : Data = Nothing If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing @@ -275,20 +275,20 @@ Public Class ClsVtaVendedores End If - ' TODO: Liberar su propio estado (objetos no administrados). - ' TODO: Establecer campos grandes como Null. - End If - disposedValue = True - End Sub + ' TODO: Liberar su propio estado (objetos no administrados). + ' TODO: Establecer campos grandes como Null. + End If + disposedValue = True + End Sub #Region " IDisposable Support " - ' Visual Basic agregó este código para implementar correctamente el modelo descartable. - Public Sub Dispose() Implements IDisposable.Dispose + ' Visual Basic agregó este código para implementar correctamente el modelo descartable. + Public Sub Dispose() Implements IDisposable.Dispose ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean). ConexionClose() Dispose(True) - GC.SuppressFinalize(Me) - End Sub + GC.SuppressFinalize(Me) + End Sub #End Region End Class diff --git a/App_Code/CrystalParametro.vb b/App_Code/CrystalParametro.vb index 853421223..0e6ed9ce4 100644 --- a/App_Code/CrystalParametro.vb +++ b/App_Code/CrystalParametro.vb @@ -1,6 +1,4 @@ -Imports Microsoft.VisualBasic - -Public Class CrystalParametro +Public Class CrystalParametro Sub New(Nombre As String, Valor As Object) Me.Nombre = Nombre diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index 04f741dd0..1121e56d9 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -160,9 +160,9 @@ Public Class Empresa 'HybridDictionary, no se puede serializar, por eso no es propiedad, y se utilizar el setfuncionalidad, para asignarle valor Public Sub SetFuncionalidades(HD As HybridDictionary) Funcionalidades = HD - End Sub - Public Function Funcionalidad(CveFuncionalidad As Integer) As String - Return if(Funcionalidades IsNot Nothing AndAlso Funcionalidades.Item(CveFuncionalidad) IsNot Nothing, Funcionalidades.Item(CveFuncionalidad).ToString,"") + End Sub + Public Function Funcionalidad(CveFuncionalidad As Integer) As String + Return if(Funcionalidades IsNot Nothing AndAlso Funcionalidades.Item(CveFuncionalidad) IsNot Nothing, Funcionalidades.Item(CveFuncionalidad).ToString, "") End Function End Class diff --git a/App_Code/EntityModel.vb b/App_Code/EntityModel.vb index 193688795..91b537d48 100644 --- a/App_Code/EntityModel.vb +++ b/App_Code/EntityModel.vb @@ -1,5 +1,4 @@ -Imports Microsoft.VisualBasic -Namespace Modelos +Namespace Modelos 'like a modelos @@ -17,8 +16,8 @@ Namespace Modelos End Sub Public Sub setValues(row As System.Data.DataRow) If Not IsNothing(row) Then - Dim myType As Type = Me.GetType() - Dim props As IList(Of Reflection.PropertyInfo) = New List(Of Reflection.PropertyInfo)(myType.GetProperties()) + Dim myType As Type = Me.GetType() + Dim props As IList(Of Reflection.PropertyInfo) = New List(Of Reflection.PropertyInfo)(myType.GetProperties()) For Each prop As Reflection.PropertyInfo In props Dim attr = prop.GetCustomAttributesData() If Not (Not IsNothing(attr) AndAlso Not IsNothing(attr.FirstOrDefault(Function(M) M.AttributeType.Name = "NotMappedAttribute"))) Then diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index bb4ef868d..8df3ed569 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -3,7 +3,6 @@ Option Strict On Imports System.Data Imports Extensiones -Imports Microsoft.VisualBasic Public Class LogicNominas Private GetError As String = "" @@ -385,7 +384,7 @@ Public Class LogicNominas If DtOtrosPagos IsNot Nothing AndAlso DtOtrosPagos.Rows.Count > 0 Then For Each Row As DataRow In DtOtrosPagos.Rows - If (Row("Importe").ToString().ToDecimal() <> 0) OrElse (Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("ImporteValor").ToString().ToDecimal().Abs() > 0) OrElse + If (Row("Importe").ToString().ToDecimal() <> 0) OrElse (Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("ImporteValor").ToString().ToDecimal().Abs() > 0) OrElse (Row("SATCveConcepto").ToString().ToEntero() = 2 AndAlso (CveRegimenContratacion.ToEntero() = 2 OrElse Row("Importe").ToString().ToDecimal() <> 0)) OrElse (Row("SATCveConcepto").ToString().ToEntero().Contiene(2, 4) AndAlso Row("Importe").ToString().ToDecimal() < 0) Then diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 20c2737ca..a39e1e10f 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1,20 +1,12 @@ Option Explicit On Option Strict On -Imports Extensiones -Imports Microsoft.VisualBasic Imports System.Data Imports System.IO -Imports System.Xml -Imports Microsoft.Reporting.WebForms -Imports System.Security.Cryptography.X509Certificates -Imports System.Globalization -Imports System -Imports System.Net -Imports System.IO.Compression -Imports System.Text Imports System.Net.Http -Imports System.Collections.Generic +Imports System.Xml +Imports Extensiones +Imports Microsoft.Reporting.WebForms Namespace Modelos @@ -3834,9 +3826,9 @@ Namespace Modelos End If If factura.TipoDocto = "Rem" AndAlso factura.ServicioDomicilio Then - Dim CveMovimientoSalida As Integer = GenerarMovimientoAlmacenServicioDomicilio(ObjInventario, factura, DtInventario, factura.CveAlmacenServicioDomicilio, 8, factura.CveMoneda, factura.CveVenta, "Modelos/SD1") + Dim CveMovimientoSalida As Integer = GenerarMovimientoAlmacenServicioDomicilio(ObjInventario, factura, DtInventario, factura.CveAlmacenServicioDomicilio, 8, factura.CveMoneda, factura.CveVenta, "Modelos/SD1", True, ObjConta) If CveMovimientoSalida > 0 Then - If Not (GenerarMovimientoAlmacenServicioDomicilio(ObjInventario, factura, DtInventario, factura.CveAlmacenTraspasoDestino, 9, factura.CveMoneda, factura.CveVenta, "Modelos/SD2", CveMovimientoRelacionado:=CveMovimientoSalida) > 0) Then + If Not (GenerarMovimientoAlmacenServicioDomicilio(ObjInventario, factura, DtInventario, factura.CveAlmacenTraspasoDestino, 9, factura.CveMoneda, factura.CveVenta, "Modelos/SD2", True, ObjConta, CveMovimientoRelacionado:=CveMovimientoSalida) > 0) Then OcurrioError = True End If @@ -6219,7 +6211,7 @@ Namespace Modelos Return Not ErrorCancelar End Function - Private Function CancelarMovimientosRemision(CveRemision As Integer, CveAlmacen As Integer, CveAlmacenDestino As Integer, DtMovDetalle As DataTable, ByRef ObjVentas As ClsVentas, ByRef ObjInventario As ClsInventarios) As Boolean + Private Function CancelarMovimientosRemision(CveRemision As Integer, CveAlmacen As Integer, CveAlmacenDestino As Integer, DtMovDetalle As DataTable, ByRef ObjVentas As ClsVentas, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad) As Boolean Dim ErrorCancelar As Boolean = False Dim CveMovimientoSalidaDevRem As Integer = 0 @@ -6227,13 +6219,14 @@ Namespace Modelos Dim CveMovimientoEntradaDevRem As Integer = 0 Dim FolioMovimientoEntradaDevRem As Integer = 0 + Dim Fecha As DateTime = Now 'SALIDA DE (ENTREGA POR ADELANTADO) - CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacen, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR1") + CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacen, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR1") FolioMovimientoSalidaDevRem = ObjInventario.Folio 'ENTRADA A (ALMACEN GENERAL) - CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR2") + CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR2") FolioMovimientoEntradaDevRem = ObjInventario.Folio If Not (CveMovimientoSalidaDevRem > 0 And CveMovimientoEntradaDevRem > 0) Then @@ -6279,11 +6272,29 @@ Namespace Modelos Exit For End If Next + + Dim ValorInventario As Decimal = DtEntradaDetalle.SUMD("Total") + Dim EsContabilizable As Boolean = False + Dim Concepto As String = "Cancelación" + Dim CvePrePoliza = ObjConta.AddPrePolizas("Mod/CancExAR1", 74, DtEntradaDetalle.SUMD("Total"), DtEntradaDetalle.SUMD("Total"), 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto").ToEntero + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventario, Concepto, 68, Concepto, Fecha, 0, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoSalidaDevRem, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto, Contabilizable:=EsContabilizable) Then + ErrorCancelar = True + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorInventario, Concepto, 68, Concepto, Fecha, 0, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoEntradaDevRem, ImporteMX:=ValorInventario, Contabilizable:=EsContabilizable) Then + ErrorCancelar = True + End If + + Else ErrorCancelar = True End If End If + + If Not ErrorCancelar Then If Not ObjVentas.UpdateVentasDevolucionAlmacen(2, CveRemision) Then ErrorCancelar = True @@ -10363,6 +10374,7 @@ Namespace Modelos Public Property CveCliente As Integer Public Property Nombre As String Public Property NombreComercial As String + Public Property RegimenSociedad As String Public Property Codigo As String Public Property Direccion As String Public Property NoExt As String diff --git a/App_Code/Models/Request/RequestLogin.vb b/App_Code/Models/Request/RequestLogin.vb index b1833aaa2..9cd37f48e 100644 --- a/App_Code/Models/Request/RequestLogin.vb +++ b/App_Code/Models/Request/RequestLogin.vb @@ -1,6 +1,4 @@ -Imports Microsoft.VisualBasic - -Namespace Models.Request +Namespace Models.Request Public Class RequestLogin Public Property UserName As String Public Property Password As String diff --git a/App_Code/Models/Response/ResponseGenericModel.vb b/App_Code/Models/Response/ResponseGenericModel.vb index e0c18e717..cf08da47d 100644 --- a/App_Code/Models/Response/ResponseGenericModel.vb +++ b/App_Code/Models/Response/ResponseGenericModel.vb @@ -1,6 +1,4 @@ -Imports Microsoft.VisualBasic - -Namespace Models.Response +Namespace Models.Response Public Class ResponseGenericModel(Of T) Public Property IsSuccess As Boolean Public Property Msg As String diff --git a/App_Code/Models/Response/ResponseLogin.vb b/App_Code/Models/Response/ResponseLogin.vb index 32213c941..8ae1f87c1 100644 --- a/App_Code/Models/Response/ResponseLogin.vb +++ b/App_Code/Models/Response/ResponseLogin.vb @@ -1,5 +1,4 @@ -Imports Microsoft.VisualBasic -Imports Newtonsoft.Json +Imports Newtonsoft.Json Namespace Models.Response diff --git a/App_Code/MyGPSHub.vb b/App_Code/MyGPSHub.vb index 2bd925d82..cd2273d4c 100644 --- a/App_Code/MyGPSHub.vb +++ b/App_Code/MyGPSHub.vb @@ -1,8 +1,6 @@ -Imports System.Threading +Imports System.Collections.Concurrent Imports Extensiones Imports Microsoft.AspNet.SignalR -Imports System -Imports System.Collections.Concurrent Public Class MyGPSHub Inherits Hub @@ -40,7 +38,7 @@ Public Class MyGPSHub Dic.TryUpdate(CveUsuario, Context.ConnectionId, Dic(CveUsuario)) End If Else - If CveUsuario.ToEntero > 0 Then + If CveUsuario.ToEntero > 0 Then Dic.TryAdd(CveUsuario, ConnectionId) End If End If diff --git a/App_Code/MyHub.vb b/App_Code/MyHub.vb index 6a34d2eb9..d30c6ad5d 100644 --- a/App_Code/MyHub.vb +++ b/App_Code/MyHub.vb @@ -1,7 +1,5 @@ -Imports Microsoft.AspNet.SignalR -Imports Extensiones -Imports System.Data -Imports ADSSession +Imports Extensiones +Imports Microsoft.AspNet.SignalR Public Class MyHub Inherits Hub diff --git a/App_Code/Notificaciones.vb b/App_Code/Notificaciones.vb index 6c5d7902a..a326d4b02 100644 --- a/App_Code/Notificaciones.vb +++ b/App_Code/Notificaciones.vb @@ -1,6 +1,5 @@ -Imports Microsoft.AspNet.SignalR -Imports Extensiones -Imports System.Data +Imports Extensiones +Imports Microsoft.AspNet.SignalR Public Enum TipoNotificacion As Integer diff --git a/App_Code/Startup.Auth.vb b/App_Code/Startup.Auth.vb index 68a445cb1..265c320bd 100644 --- a/App_Code/Startup.Auth.vb +++ b/App_Code/Startup.Auth.vb @@ -1,8 +1,7 @@ -Imports Owin -Imports Microsoft.Owin.Security.Cookies -Imports Microsoft.Owin.Security.Google +Imports Microsoft.AspNet.Identity Imports Microsoft.Owin -Imports Microsoft.AspNet.Identity +Imports Microsoft.Owin.Security.Cookies +Imports Owin Partial Public Class Startup ' For more information on configuring authentication, please visit http://go.microsoft.com/fwlink/?LinkId=301883 diff --git a/App_Code/Thalamus.vb b/App_Code/Thalamus.vb index 575b897b8..a8a3c4468 100644 --- a/App_Code/Thalamus.vb +++ b/App_Code/Thalamus.vb @@ -1,11 +1,9 @@ -Imports System.IO +Imports System.Data +Imports System.IO Imports System.Net -Imports System.Web Imports System.Web.Services -Imports System.Web.Services.Protocols Imports Extensiones.ModExtensiones Imports GemBox.Spreadsheet -Imports System.Data ' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. ' _ diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 36bf96aae..cf660b490 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -1,16 +1,16 @@ Option Explicit On Option Strict On -Imports Extensiones -Imports System.IO -Imports Newtonsoft.Json.Linq -Imports System.Net.Http -Imports System.Xml Imports System.Data -Imports System.Xml.Serialization +Imports System.IO Imports System.Net -Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20 +Imports System.Net.Http Imports System.Reflection +Imports System.Xml +Imports System.Xml.Serialization +Imports Extensiones +Imports Newtonsoft.Json.Linq +Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20 Public Class Timbrado @@ -1097,19 +1097,23 @@ Public Class Timbrado 'como registra un peso por cada fatura que se cancele, se tiene que multiplicar por el numero de facturas, para que se pueda emitir el timbre If dttpagos IsNot Nothing AndAlso dttpagos.Rows.Count > 0 Then ImporteCancelacion = ImporteCancelacion * dttpagos.Rows.Count - Timbre.ComplementoPagos.CtaOrdenante = CuentaPago - Timbre.ComplementoPagos.CtaBeneficiario = CuentaBeneficiario - Timbre.ComplementoPagos.FechaPago = FechaPago - Timbre.ComplementoPagos.FormaDePagoP = FormaPago - Timbre.ComplementoPagos.MonedaP = MonedaPago - Timbre.ComplementoPagos.Monto = Monto.RoundSQL - Timbre.ComplementoPagos.TipoCambioP = TipoCambioP + + Dim docPago As New CFDIComplementoPago + + docPago.CtaOrdenante = CuentaPago + docPago.CtaBeneficiario = CuentaBeneficiario + docPago.FechaPago = FechaPago + docPago.FormaDePagoP = FormaPago + docPago.MonedaP = MonedaPago + docPago.Monto = Monto.RoundSQL + docPago.TipoCambioP = TipoCambioP Dim VentaFolioFiscal, VentaSerie, VentaFolio, VentaAbreviaturaSAT, VentaMetodoPago, ObjetoImpuesto As String - Dim VentaImportePago, VentaImportePagoMN, VentaImporteSaldoInsoluto, VentaImporteSaldoAnterior, VentaTipoCambio, VentaTipoCambioMN, PorcentajeIVA, PorcentajeIEPS As Decimal + Dim VentaImportePago, VentaImportePagoMN, VentaImporteSaldoInsoluto, VentaImporteSaldoAnterior, VentaTipoCambio, PorcentajeIVA, PorcentajeIEPS, Equivalencia As Decimal Dim VentaNumParcialidad As Integer + If dttpagos IsNot Nothing AndAlso dttpagos.Rows.Count > 0 Then For Each dr As Data.DataRow In dttpagos.Rows @@ -1131,11 +1135,14 @@ Public Class Timbrado '' si la moneda es igual, se omite el tipo de cambio de la venta If MonedaPago = VentaAbreviaturaSAT Then VentaTipoCambio = 1 - VentaTipoCambioMN = 1 + Equivalencia = 1 'condiciones especiales para el pago en pesos, facturas en moneda extranjera ElseIf MonedaPago = "MXN" AndAlso VentaAbreviaturaSAT <> "MXN" Then - VentaTipoCambioMN = VentaTipoCambio - VentaTipoCambio = (1 / VentaTipoCambio).RoundSQL(6) + VentaTipoCambio = VentaTipoCambio.RoundSQL(6) + Equivalencia = (1 / VentaTipoCambio).RoundSQL(6) + ElseIf MonedaPago = "USD" AndAlso VentaAbreviaturaSAT <> "USD" Then + VentaTipoCambio = VentaTipoCambio.RoundSQL(6) + Equivalencia = VentaTipoCambio End If ' For Each drr As Data.DataRow In DtFacturasPagadas.Rows @@ -1145,11 +1152,11 @@ Public Class Timbrado .MonedaDR = VentaAbreviaturaSAT, .MetodoDePagoDR = VentaMetodoPago, .ImpPagado = VentaImportePago, - .ImpPagadoMN = (VentaImportePago / VentaTipoCambio).RoundSQL, + .ImpPagadoMN = (VentaImportePago * TipoCambioP).RoundSQL, .ImpSaldoInsoluto = VentaImporteSaldoInsoluto, .ImpSaldoAnt = VentaImporteSaldoAnterior, .TipoCambioDR = VentaTipoCambio, - .EquivalenciaDR = VentaTipoCambio, + .EquivalenciaDR = Equivalencia, .NumParcialidad = VentaNumParcialidad, .ObjetoImpuesto = ObjetoImpuesto} 'If(drr("MetodoPago").ToString = "PUE", 0, drr("NumParcialidad").ToString.ToEntero)} @@ -1160,17 +1167,18 @@ Public Class Timbrado .TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal, .Impuesto = drp("TipoImpuesto").ToString, .Importe = drp("Importe").ToString().ToDecimal.RoundSQL, - .BaseMN = (drp("Base").ToString.ToDecimal / VentaTipoCambio).RoundSQL(6), - .ImporteMN = (drp("Importe").ToString.ToDecimal * VentaTipoCambio).RoundSQL(6) + .BaseMN = (drp("Base").ToString.ToDecimal / Equivalencia).RoundSQL(2), + .ImporteMN = (drp("Importe").ToString.ToDecimal / Equivalencia).RoundSQL(2) } ) Next - Timbre.ComplementoPagos.DocumentosRelacionados.Add(doc) + docPago.DocumentosRelacionados.Add(doc) Next + Timbre.ComplementoPagos20.ComplementoPagos.Add(docPago) End If 'If drr("IVA").ToString.ToDouble > 0 Then @@ -3441,7 +3449,7 @@ Public Class Timbrado If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then 'Actualiza Estatus Factura - If Ventas.CveVenta > 0 Then + If Ventas.CveVenta > 0 Then Using ObjVentas As New ClsVentas() @@ -4113,24 +4121,24 @@ Public Class Timbrado Dim Totales As New Profact.TimbraCFDI40.Complementos.Pagos20.PagosTotales() 'Totales Generales - Totales.MontoTotalPagos = ObjCFDITimbre.ComplementoPagos.Totales.MontoTotalPagos.RoundSQL + Totales.MontoTotalPagos = ObjCFDITimbre.ComplementoPagos20.MontoTotalPagos.RoundSQL - Totales.TotalTrasladosBaseIVA16 = ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosBaseIVA16.RoundSQL + Totales.TotalTrasladosBaseIVA16 = ObjCFDITimbre.ComplementoPagos20.TotalTrasladosBaseIVA16.RoundSQL Totales.TotalTrasladosBaseIVA16Specified = Totales.TotalTrasladosBaseIVA16 > 0 - Totales.TotalTrasladosImpuestoIVA16 = ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosImpuestoIVA16.RoundSQL + Totales.TotalTrasladosImpuestoIVA16 = ObjCFDITimbre.ComplementoPagos20.TotalTrasladosImpuestoIVA16.RoundSQL Totales.TotalTrasladosImpuestoIVA16Specified = Totales.TotalTrasladosImpuestoIVA16 > 0 - Totales.TotalTrasladosBaseIVA8 = ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosBaseIVA8.RoundSQL + Totales.TotalTrasladosBaseIVA8 = ObjCFDITimbre.ComplementoPagos20.TotalTrasladosBaseIVA8.RoundSQL Totales.TotalTrasladosBaseIVA8Specified = Totales.TotalTrasladosBaseIVA8 > 0 - Totales.TotalTrasladosImpuestoIVA8 = ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosImpuestoIVA8.RoundSQL + Totales.TotalTrasladosImpuestoIVA8 = ObjCFDITimbre.ComplementoPagos20.TotalTrasladosImpuestoIVA8.RoundSQL Totales.TotalTrasladosImpuestoIVA8Specified = Totales.TotalTrasladosImpuestoIVA8 > 0 - Totales.TotalTrasladosBaseIVA0 = ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosBaseIVA0.RoundSQL + Totales.TotalTrasladosBaseIVA0 = ObjCFDITimbre.ComplementoPagos20.TotalTrasladosBaseIVA0.RoundSQL Totales.TotalTrasladosBaseIVA0Specified = Totales.TotalTrasladosBaseIVA0 > 0 Totales.TotalTrasladosImpuestoIVA0 = 0 Totales.TotalTrasladosImpuestoIVA0Specified = Totales.TotalTrasladosBaseIVA0 > 0 ' si hay base > 0, debe de ponerse aunque sea en cero - If ObjCFDITimbre.ComplementoPagos.Totales.TotalRetencionesIEPS > 0 Then - Totales.TotalRetencionesIEPS = ObjCFDITimbre.ComplementoPagos.Totales.TotalRetencionesIEPS.RoundSQL + If ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIEPS > 0 Then + Totales.TotalRetencionesIEPS = ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIEPS.RoundSQL Totales.TotalRetencionesIEPSSpecified = True Else Totales.TotalRetencionesIEPSSpecified = False @@ -4138,24 +4146,24 @@ Public Class Timbrado ComPag.Totales = Totales - ComPag.Pago(0).DoctoRelacionado = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionado(ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados.Count - 1) {} - Dim i As Integer - For Each doc As CFDIComplementoPagosDocsRelacionados In ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados - ComPag.Pago(0).DoctoRelacionado(i) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionado() - ComPag.Pago(0).DoctoRelacionado(i).IdDocumento = doc.IdDocumento - If Not String.IsNullOrEmpty(doc.Serie) Then - ComPag.Pago(0).DoctoRelacionado(i).Serie = doc.Serie - End If - ComPag.Pago(0).DoctoRelacionado(i).Folio = doc.Folio - ComPag.Pago(0).DoctoRelacionado(i).MonedaDR = doc.MonedaDR - ComPag.Pago(0).DoctoRelacionado(i).NumParcialidad = doc.NumParcialidad.ToString - ComPag.Pago(0).DoctoRelacionado(i).ImpSaldoAnt = doc.ImpSaldoAnt.RoundSQL - ComPag.Pago(0).DoctoRelacionado(i).ImpPagadoSpecified = True - ComPag.Pago(0).DoctoRelacionado(i).ImpPagado = doc.ImpPagado.RoundSQL - ComPag.Pago(0).DoctoRelacionado(i).ImpSaldoInsoluto = doc.ImpSaldoInsoluto.RoundSQL - ComPag.Pago(0).DoctoRelacionado(i).EquivalenciaDR = doc.EquivalenciaDR.RoundSQL(6) - ComPag.Pago(0).DoctoRelacionado(i).EquivalenciaDRSpecified = True - ComPag.Pago(0).DoctoRelacionado(i).ObjetoImpDR = doc.ObjetoImpuesto + ComPag.Pago(0).DoctoRelacionado = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionado(ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados.Count - 1) {} + Dim i As Integer + For Each doc As CFDIComplementoPagosDocsRelacionados In ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados + ComPag.Pago(0).DoctoRelacionado(i) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionado() + ComPag.Pago(0).DoctoRelacionado(i).IdDocumento = doc.IdDocumento + If Not String.IsNullOrEmpty(doc.Serie) Then + ComPag.Pago(0).DoctoRelacionado(i).Serie = doc.Serie + End If + ComPag.Pago(0).DoctoRelacionado(i).Folio = doc.Folio + ComPag.Pago(0).DoctoRelacionado(i).MonedaDR = doc.MonedaDR + ComPag.Pago(0).DoctoRelacionado(i).NumParcialidad = doc.NumParcialidad.ToString + ComPag.Pago(0).DoctoRelacionado(i).ImpSaldoAnt = doc.ImpSaldoAnt.RoundSQL + ComPag.Pago(0).DoctoRelacionado(i).ImpPagadoSpecified = True + ComPag.Pago(0).DoctoRelacionado(i).ImpPagado = doc.ImpPagado.RoundSQL + ComPag.Pago(0).DoctoRelacionado(i).ImpSaldoInsoluto = doc.ImpSaldoInsoluto.RoundSQL + ComPag.Pago(0).DoctoRelacionado(i).EquivalenciaDR = doc.EquivalenciaDR.RoundSQL(6) + ComPag.Pago(0).DoctoRelacionado(i).EquivalenciaDRSpecified = True + ComPag.Pago(0).DoctoRelacionado(i).ObjetoImpDR = doc.ObjetoImpuesto If doc.Impuestos IsNot Nothing Then ComPag.Pago(0).DoctoRelacionado(i).ImpuestosDR = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionadoImpuestosDR @@ -4202,7 +4210,7 @@ Public Class Timbrado End If End If i += 1 - Next + Next If (ObjCFDITimbre.ComplementoPagos.Retenciones).Count > 0 OrElse ObjCFDITimbre.ComplementoPagos.Traslados.Count > 0 Then ComPag.Pago(0).ImpuestosP = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosP(0) {} @@ -4214,7 +4222,7 @@ Public Class Timbrado For Each Ret As CFDIRetenciones In ObjCFDITimbre.ComplementoPagos.Retenciones ComPag.Pago(0).ImpuestosP(0).RetencionesP(x) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPRetencionP() ComPag.Pago(0).ImpuestosP(0).RetencionesP(x).ImpuestoP = Ret.Impuesto - ComPag.Pago(0).ImpuestosP(0).RetencionesP(x).ImporteP = Ret.Importe + ComPag.Pago(0).ImpuestosP(0).RetencionesP(x).ImporteP = Ret.ImporteMN x += 1 Next End If @@ -4236,16 +4244,16 @@ Public Class Timbrado Dim nsComp As New System.Xml.Serialization.XmlSerializerNamespaces() - nsComp.Add("pago20", "http://www.sat.gob.mx/Pagos20") - Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComPag, GetType(Profact.TimbraCFDI40.Complementos.Pagos20.Pagos), nsComp) - Dim docComp As New XmlDocument() - docComp.LoadXml(xmlComp) - 'comprobante.PagosSpecified = True - LXmlComplementos.Add(docComp.DocumentElement) - TieneComplemento = True - End If - + nsComp.Add("pago20", "http://www.sat.gob.mx/Pagos20") + Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComPag, GetType(Profact.TimbraCFDI40.Complementos.Pagos20.Pagos), nsComp) + Dim docComp As New XmlDocument() + docComp.LoadXml(xmlComp) + 'comprobante.PagosSpecified = True + LXmlComplementos.Add(docComp.DocumentElement) + TieneComplemento = True End If + + End If #End Region @@ -5066,88 +5074,92 @@ Public Class Timbrado If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then - cfdi.Pago20Totales(ObjCFDITimbre.ComplementoPagos.Totales.TotalRetencionesIVA, - ObjCFDITimbre.ComplementoPagos.Totales.TotalRetencionesISR, - ObjCFDITimbre.ComplementoPagos.Totales.TotalRetencionesIEPS, - ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosBaseIVA16, - ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosImpuestoIVA16, - ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosBaseIVA8, - ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosImpuestoIVA8, - ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosBaseIVA0, - ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosImpuestoIVA0, - ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosBaseExento, - ObjCFDITimbre.ComplementoPagos.Totales.MontoTotalPagos) - cfdi.Pago20(ObjCFDITimbre.ComplementoPagos.FechaPago.ToString("yyyy-MM-ddTHH:mm:ss"), - ObjCFDITimbre.ComplementoPagos.FormaDePagoP, - ObjCFDITimbre.ComplementoPagos.MonedaP, - ObjCFDITimbre.ComplementoPagos.TipoCambioP, - ObjCFDITimbre.ComplementoPagos.Monto, - ObjCFDITimbre.ComplementoPagos.NumOperacion, - ObjCFDITimbre.ComplementoPagos.RfcEmisorCtaOrd, - ObjCFDITimbre.ComplementoPagos.NomBancoOrdExt, - ObjCFDITimbre.ComplementoPagos.CtaOrdenante, - ObjCFDITimbre.ComplementoPagos.RfcEmisorCtaBen, - ObjCFDITimbre.ComplementoPagos.CtaBeneficiario, - ObjCFDITimbre.ComplementoPagos.TipoCadPago, - ObjCFDITimbre.ComplementoPagos.CertPago, - ObjCFDITimbre.ComplementoPagos.CadPago, - ObjCFDITimbre.ComplementoPagos.SelloPago) + cfdi.Pago20Totales(ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIVA, + ObjCFDITimbre.ComplementoPagos20.TotalRetencionesISR, + ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIEPS, + ObjCFDITimbre.ComplementoPagos20.TotalTrasladosBaseIVA16, + ObjCFDITimbre.ComplementoPagos20.TotalTrasladosImpuestoIVA16, + ObjCFDITimbre.ComplementoPagos20.TotalTrasladosBaseIVA8, + ObjCFDITimbre.ComplementoPagos20.TotalTrasladosImpuestoIVA8, + ObjCFDITimbre.ComplementoPagos20.TotalTrasladosBaseIVA0, + ObjCFDITimbre.ComplementoPagos20.TotalTrasladosImpuestoIVA0, + ObjCFDITimbre.ComplementoPagos20.TotalTrasladosBaseExento, + ObjCFDITimbre.ComplementoPagos20.MontoTotalPagos) + + For Each docp As CFDIComplementoPago In ObjCFDITimbre.ComplementoPagos20.ComplementoPagos + + cfdi.Pago20(docp.FechaPago.ToString("yyyy-MM-ddTHH:mm:ss"), + docp.FormaDePagoP, + docp.MonedaP, + docp.TipoCambioP, + docp.Monto, + docp.NumOperacion, + docp.RfcEmisorCtaOrd, + docp.NomBancoOrdExt, + docp.CtaOrdenante, + docp.RfcEmisorCtaBen, + docp.CtaBeneficiario, + docp.TipoCadPago, + docp.CertPago, + docp.CadPago, + docp.SelloPago) - If ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados.Count > 0 Then + If docp.DocumentosRelacionados.Count > 0 Then - For Each doc As CFDIComplementoPagosDocsRelacionados In ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados - cfdi.Pago20DoctoRelacionado(doc.IdDocumento, - doc.Serie, - doc.Folio, - doc.MonedaDR, - doc.EquivalenciaDR, - doc.NumParcialidad, - doc.ImpSaldoAnt, - doc.ImpPagado, - doc.ImpSaldoInsoluto, - doc.ObjetoImpuesto) - If doc.Impuestos IsNot Nothing Then + For Each doc As CFDIComplementoPagosDocsRelacionados In docp.DocumentosRelacionados + cfdi.Pago20DoctoRelacionado(doc.IdDocumento, + doc.Serie, + doc.Folio, + doc.MonedaDR, + doc.EquivalenciaDR, + doc.NumParcialidad, + doc.ImpSaldoAnt, + doc.ImpPagado, + doc.ImpSaldoInsoluto, + doc.ObjetoImpuesto) + If doc.Impuestos IsNot Nothing Then - ''retenciones - If (doc.Impuestos).Where(Function(x) x.TrasladooRetencion = "R").Count > 0 Then - Dim j As Integer = 0 - For Each docimp As CFDIConceptosImpuestos In doc.Impuestos.Where(Function(x) x.TrasladooRetencion = "R") - If docimp.TrasladooRetencion = "R" Then - cfdi.Pago20RetencionDR(docimp.Base, docimp.Impuesto, docimp.TipoFactor, docimp.TasaOCuota, docimp.Importe) - End If - j += 1 - Next + ''retenciones + If (doc.Impuestos).Where(Function(x) x.TrasladooRetencion = "R").Count > 0 Then + Dim j As Integer = 0 + For Each docimp As CFDIConceptosImpuestos In doc.Impuestos.Where(Function(x) x.TrasladooRetencion = "R") + If docimp.TrasladooRetencion = "R" Then + cfdi.Pago20RetencionDR(docimp.Base, docimp.Impuesto, docimp.TipoFactor, docimp.TasaOCuota, docimp.Importe) + End If + j += 1 + Next + End If + + ''traslados + If (doc.Impuestos).Where(Function(x) x.TrasladooRetencion = "T").Count > 0 Then + Dim j As Integer = 0 + For Each docimp As CFDIConceptosImpuestos In doc.Impuestos.Where(Function(x) x.TrasladooRetencion = "T") + If docimp.TrasladooRetencion = "T" Then + cfdi.Pago20TrasladoDR(docimp.Base, docimp.Impuesto, docimp.TipoFactor, docimp.TasaOCuota, docimp.Importe) + End If + j += 1 + Next + End If End If - ''traslados - If (doc.Impuestos).Where(Function(x) x.TrasladooRetencion = "T").Count > 0 Then - Dim j As Integer = 0 - For Each docimp As CFDIConceptosImpuestos In doc.Impuestos.Where(Function(x) x.TrasladooRetencion = "T") - If docimp.TrasladooRetencion = "T" Then - cfdi.Pago20TrasladoDR(docimp.Base, docimp.Impuesto, docimp.TipoFactor, docimp.TasaOCuota, docimp.Importe) - End If - j += 1 - Next - End If + Next + + If (docp.Retenciones).Count > 0 Then + For Each Ret As CFDIRetenciones In docp.Retenciones + cfdi.Pago20RetencionP(Ret.Impuesto, Ret.ImporteMN) + Next End If - Next - - If (ObjCFDITimbre.ComplementoPagos.Retenciones).Count > 0 Then - For Each Ret As CFDIRetenciones In ObjCFDITimbre.ComplementoPagos.Retenciones - cfdi.Pago20RetencionP(Ret.Impuesto, Ret.ImporteMN) - Next + If docp.Traslados.Count > 0 Then + For Each Tra As CFDITraslados In (docp.Traslados) + cfdi.Pago20TrasladoP(Tra.BaseMN, Tra.Impuesto, Tra.TipoFactor, Tra.TasaOCuota, Tra.ImporteMN) + Next + End If End If + Next - If ObjCFDITimbre.ComplementoPagos.Traslados.Count > 0 Then - - For Each Tra As CFDITraslados In (ObjCFDITimbre.ComplementoPagos.Traslados) - cfdi.Pago20TrasladoP(Tra.BaseMN, Tra.Impuesto, Tra.TipoFactor, Tra.TasaOCuota, Tra.ImporteMN) - Next - End If - End If End If #End Region diff --git a/App_Code/TimbradoB.vb b/App_Code/TimbradoB.vb index 6e044c5ed..4fbeca9e5 100644 --- a/App_Code/TimbradoB.vb +++ b/App_Code/TimbradoB.vb @@ -1,6 +1,4 @@ -Imports Microsoft.VisualBasic - -Public Class TimbradoB +Public Class TimbradoB diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index 7163c3278..3094bb25f 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -610,20 +610,20 @@ Public Class Timbres End Function Public Function Timbrar() As Boolean - Dim Respuesta As Boolean = False + Dim Respuesta As Boolean = False - Dim ObjTimbrado As New Timbrado + Dim ObjTimbrado As New Timbrado - If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then - Respuesta = True - Else - Respuesta = False - _MsgError.AppendLine(ObjTimbrado.MensajeErrorCFDI) - End If + If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then + Respuesta = True + Else + Respuesta = False + _MsgError.AppendLine(ObjTimbrado.MensajeErrorCFDI) + End If - Return Respuesta + Return Respuesta - End Function + End Function - End Class +End Class diff --git a/App_Code/Usuario.vb b/App_Code/Usuario.vb index 1553bf1a6..f7601a29b 100644 --- a/App_Code/Usuario.vb +++ b/App_Code/Usuario.vb @@ -1,14 +1,13 @@ Option Strict On Option Explicit On Imports System.Collections.Concurrent -Imports Extensiones -Public Class Usuario - +Public Class Usuario + #Region "Propiedades" - + Public Property CveUsuario As Integer Public Property Usuario As String Public Property Contraseña As String @@ -99,11 +98,11 @@ Public Class Usuario If ListaSesion.Item(Campo) IsNot Nothing Then ListaSesion.Item(Campo) = value Else ListaSesion.Add(Campo, value) End Set - End Property - - + End Property + + #End Region - + Public Shared Sub CerrarSession(Optional portal As Integer = -1) If Not IsNothing(HttpContext.Current) Then HttpContext.Current.Session.Abandon() 'Destruye la session Si no no Entra al sessionEnd hasta que se expire el tiempo. diff --git a/App_Code/UsuarioWs.vb b/App_Code/UsuarioWs.vb index db357daf8..3c7ba1296 100644 --- a/App_Code/UsuarioWs.vb +++ b/App_Code/UsuarioWs.vb @@ -14,5 +14,5 @@ Public Class UsuarioWs #End Region - + End Class diff --git a/App_Code/WS.vb b/App_Code/WS.vb index d3e2f8562..d9adefccb 100644 --- a/App_Code/WS.vb +++ b/App_Code/WS.vb @@ -1,7 +1,5 @@ -Imports System.Web +Imports System.Data Imports System.Web.Services -Imports System.Web.Services.Protocols -Imports System.Data ' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. ' _ @@ -9,7 +7,7 @@ Imports System.Data _ _ Public Class WS - Inherits System.Web.Services.WebService + Inherits System.Web.Services.WebService _ Public Function HelloWorld() As String @@ -48,6 +46,6 @@ Public Class WS Return DT End Function - + End Class \ No newline at end of file diff --git a/App_Code/WS/WSApiController.vb b/App_Code/WS/WSApiController.vb index f01545bfb..2829eb58c 100644 --- a/App_Code/WS/WSApiController.vb +++ b/App_Code/WS/WSApiController.vb @@ -1,6 +1,5 @@ Imports System.Web.Http Imports Extensiones -Imports Microsoft.VisualBasic Public Class WSApiController Inherits ApiController diff --git a/App_Code/WS/WSSIGVentas.vb b/App_Code/WS/WSSIGVentas.vb index badabe60b..413ecd075 100644 --- a/App_Code/WS/WSSIGVentas.vb +++ b/App_Code/WS/WSSIGVentas.vb @@ -1,5 +1,4 @@ -Imports System.Net -Imports System.Web.Http +Imports System.Web.Http Imports Extensiones Imports WsUtility diff --git a/App_Code/WS/WSUSer.vb b/App_Code/WS/WSUSer.vb index cc02c4fab..c6a207031 100644 --- a/App_Code/WS/WSUSer.vb +++ b/App_Code/WS/WSUSer.vb @@ -1,6 +1,4 @@ - -Imports System.Net -Imports System.Web.Http +Imports System.Web.Http Imports Extensiones Imports WsUtility diff --git a/App_Code/WS/WsUtility.vb b/App_Code/WS/WsUtility.vb index ce5cf2ac1..f5cd97649 100644 --- a/App_Code/WS/WsUtility.vb +++ b/App_Code/WS/WsUtility.vb @@ -1,8 +1,4 @@ -Imports System.Net.Http -Imports Microsoft.VisualBasic - - -Namespace WsUtility +Namespace WsUtility 'Public Class SigAuthenticationAttribute ' Inherits Http.Filters.AuthorizationFilterAttribute diff --git a/App_Code/WSSIGApps.vb b/App_Code/WSSIGApps.vb index 5b19c708b..ada69b7b1 100644 --- a/App_Code/WSSIGApps.vb +++ b/App_Code/WSSIGApps.vb @@ -1,18 +1,6 @@ Option Explicit On Option Strict On - -Imports System.Data -Imports System.Web Imports System.Web.Services -Imports System.Web.Services.Protocols -Imports Microsoft.Reporting.WebForms -Imports Extensiones -Imports Newtonsoft.Json -Imports Modelos -Imports System.IO -Imports System -Imports System.Globalization -Imports Newtonsoft.Json.Linq ' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. ' _ diff --git a/App_Code/WS_PuntoVenta.vb b/App_Code/WS_PuntoVenta.vb index 602e52a5b..4c013f546 100644 --- a/App_Code/WS_PuntoVenta.vb +++ b/App_Code/WS_PuntoVenta.vb @@ -1,7 +1,5 @@ -Imports System.Web +Imports System.Data Imports System.Web.Services -Imports System.Web.Services.Protocols -Imports System.Data Imports Extensiones ' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. diff --git a/App_Code/WsEcommerce.vb b/App_Code/WsEcommerce.vb index 4a1b10f20..bf3895679 100644 --- a/App_Code/WsEcommerce.vb +++ b/App_Code/WsEcommerce.vb @@ -3,10 +3,8 @@ Option Explicit On Imports System.Data Imports System.Web.Http -Imports System.Web.Http.Cors Imports System.Web.Http.Results Imports Extensiones -Imports Newtonsoft.Json Namespace Controllers diff --git a/App_Code/WsRespaldos.vb b/App_Code/WsRespaldos.vb index f99da5c60..973c698f8 100644 --- a/App_Code/WsRespaldos.vb +++ b/App_Code/WsRespaldos.vb @@ -1,12 +1,9 @@ -Imports System.Web -Imports System.Web.Services -Imports System.Web.Services.Protocols +Imports System.Data Imports System.IO -Imports System.Threading -Imports System.Data -Imports Extensiones -Imports System.Security.AccessControl Imports System.Security.Cryptography +Imports System.Threading +Imports System.Web.Services +Imports Extensiones diff --git a/App_Code/WsSigfox.vb b/App_Code/WsSigfox.vb index 225d6c984..bf1300792 100644 --- a/App_Code/WsSigfox.vb +++ b/App_Code/WsSigfox.vb @@ -1,11 +1,8 @@ Imports System.Net Imports System.Net.Http Imports System.Web.Http -Imports System.Web.Http.Controllers -Imports System.Web.Http.Filters Imports System.Xml Imports Extensiones -Imports Newtonsoft.Json Imports Newtonsoft.Json.Linq Imports SigFoxModels diff --git a/App_Code/clsGemBoxDocument.vb b/App_Code/clsGemBoxDocument.vb index ea81a4af3..91fe14d0c 100644 --- a/App_Code/clsGemBoxDocument.vb +++ b/App_Code/clsGemBoxDocument.vb @@ -1,6 +1,5 @@ -Imports Microsoft.VisualBasic +Imports System.IO Imports Extensiones -Imports System.IO Imports GemBox.Document Public Class clsGemBoxDocument @@ -115,7 +114,7 @@ Public Class clsGemBoxDocument End Function Public Sub Guardar(ruta As String) - documento.Save(ruta) + documento.Save(ruta) End Sub Public Sub GuardarStream() diff --git a/App_Code/clsUtilerias.vb b/App_Code/clsUtilerias.vb index b82be4e5b..1d71ad450 100644 --- a/App_Code/clsUtilerias.vb +++ b/App_Code/clsUtilerias.vb @@ -2,9 +2,6 @@ Option Explicit On Option Strict On Imports System.Net -Imports System.Drawing -Imports System.Web -Imports System Public Class clsUtilerias diff --git a/App_Code/highchart.vb b/App_Code/highchart.vb index 79aeba22f..82be3cc28 100644 --- a/App_Code/highchart.vb +++ b/App_Code/highchart.vb @@ -1,7 +1,4 @@ -Imports System.Collections.Generic -Imports Microsoft.VisualBasic - -Public Class HighChart +Public Class HighChart Public chart As Chart Public title As Title diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 6e85da25f..40e68aafc 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2,32 +2,23 @@ Option Strict On Imports System.Data -Imports System.Text -Imports System Imports System.IO +Imports System.Net +Imports System.Net.Http +Imports System.Reflection Imports System.Security.Cryptography -Imports System.Configuration Imports System.Web.Configuration +Imports System.Web.Http.Controllers +Imports System.Web.Http.Filters +Imports ADServerControl Imports AjaxControlToolkit 'Imports Microsoft.VisualBasic 'Imports msExcel = Microsoft.Office.Interop.Excel 'Imports VBIDE -Imports System.Web.UI -Imports System.Web.UI.WebControls -Imports System.Web.UI.HtmlControls -Imports System.Web Imports ClosedXML.Excel -Imports Newtonsoft.Json -Imports Microsoft.Reporting.WebForms -Imports ADServerControl -Imports iTextSharp.text.pdf -Imports System.Reflection Imports GemBox.Spreadsheet -Imports System.Web.Http.Filters -Imports System.Web.Http.Controllers -Imports System.Net.Http -Imports System.Net +Imports Newtonsoft.Json Namespace Extensiones diff --git a/App_Code/wsOI.vb b/App_Code/wsOI.vb index 16692b2d8..bf2faa64a 100644 --- a/App_Code/wsOI.vb +++ b/App_Code/wsOI.vb @@ -1,6 +1,4 @@ -Imports System.Web -Imports System.Web.Services -Imports System.Web.Services.Protocols +Imports System.Web.Services ' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. ' _ @@ -16,7 +14,7 @@ Public Class wsOI Private _Asunto As String Private _Descripcion As String Private _Acuerdos As String - + Public Property CveEvento() As Integer Get Return _CveEvento @@ -49,7 +47,7 @@ Public Class wsOI _Acuerdos = value End Set End Property - + Public Sub New() End Sub End Class diff --git a/App_Code/wsRedes.vb b/App_Code/wsRedes.vb index b3f5a7a68..23b68792a 100644 --- a/App_Code/wsRedes.vb +++ b/App_Code/wsRedes.vb @@ -1,8 +1,6 @@ -Imports System.Web.Services -Imports System.Data +Imports System.Data +Imports System.Web.Services Imports Extensiones -Imports System.IO -Imports System ' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. ' _ @@ -10,7 +8,7 @@ Imports System _ _ Public Class wsRedes - Inherits System.Web.Services.WebService + Inherits System.Web.Services.WebService Private Const TiempoValido = -600 _ Private Function DecriptaCadena(Cadena As String) As String() diff --git a/App_Code/wsSIG.vb b/App_Code/wsSIG.vb index 33596c4e1..ed4aa3d7d 100644 --- a/App_Code/wsSIG.vb +++ b/App_Code/wsSIG.vb @@ -1,7 +1,7 @@ -Imports System.Web.Services -Imports System.Data -Imports Extensiones +Imports System.Data Imports System.IO +Imports System.Web.Services +Imports Extensiones Imports Newtonsoft.Json ' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index c5ba7c563..fb2ff5d71 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -1,12 +1,10 @@ <%@ WebHandler Language="VB" Class="SIGWeb" %> -Imports System -Imports System.Web Imports System.Data -Imports Newtonsoft.Json -Imports Extensiones Imports System.IO +Imports Extensiones Imports Microsoft.Reporting.WebForms +Imports Newtonsoft.Json Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState 'TEMPORAL, DEBE SER REEMPLAZADO POR EL MODELO DE LA LIBRERIA diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index 4b2861f5b..b8c6648dc 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/Ashx/TareasProgramadas.ashx @@ -906,19 +906,19 @@ Public Class TareasProgramadas : Implements IHttpHandler Using ObjVentas As New ClsVentas 'VENDEDORES If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1, - -1, -1, -1, + -1, -1, -1,-1, -1, -1, GrupoSuperior:=0) Then DtGrupoVendedores = ObjVentas.DtResultados.Copy End If 'SUCURSAL If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1, - -1, -1, -1, + -1, -1, -1, -1, -1, -1, GrupoSuperior:=1) Then DtGrupoSucursales = ObjVentas.DtResultados.Copy End If 'EMPRESA If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1, - -1, -1, -1, + -1, -1, -1, -1, -1, -1, GrupoSuperior:=2) Then DtGrupoEmpresa = ObjVentas.DtResultados.Copy End If @@ -1036,7 +1036,7 @@ Public Class TareasProgramadas : Implements IHttpHandler Using ObjVentas As New ClsVentas If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, UsuarioEnviar.CveVendedor, -1, - -1, -1, -1, UsuarioEnviar.CveSubProyecto, -1, GrupoSuperior:=1) Then + -1, -1, -1, UsuarioEnviar.CveSubProyecto, -1, -1, GrupoSuperior:=1) Then DtReporteVendedor = ObjVentas.DtResultados.Copy End If End Using diff --git a/Bancos/CargarConciliacionesBancarias.aspx.vb b/Bancos/CargarConciliacionesBancarias.aspx.vb index 380ccb142..2da1ae93e 100644 --- a/Bancos/CargarConciliacionesBancarias.aspx.vb +++ b/Bancos/CargarConciliacionesBancarias.aspx.vb @@ -3,9 +3,6 @@ Option Explicit On Imports System.Data Imports Extensiones -Imports System.Xml -Imports Microsoft.Reporting.WebForms -Imports GemBox.Spreadsheet Partial Class Bancos_CargarConciliacionesBancarias Inherits ClsPaginas diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index a33f03cee..aa9da1968 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -1,8 +1,8 @@ Option Explicit On Option Strict On -Imports Extensiones Imports System.Data +Imports Extensiones Partial Class Bancos_DepositosCaja Inherits ClsPaginas diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index cfe9b6d4a..1f602c371 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -1,13 +1,10 @@ -using System; +using Extensiones; +using System; using System.Collections.Generic; using System.Data; -using System.Drawing; -using System.Linq; using System.Text; using System.Web; -using System.Web.UI; using System.Web.UI.WebControls; -using Extensiones; using static Extensiones.ModExtensiones; public partial class Bancos_Devoluciones : ClsPaginas @@ -111,11 +108,11 @@ public partial class Bancos_Devoluciones : ClsPaginas ComprobanteMuestraOculta(); CargaTipoTransaccion(tipo); - + } protected void TipoDevolucion_SelectedIndexChanged(object sender, EventArgs e) - { + { switch (TipoDevolucion.SelectedValue) { case "1": @@ -139,7 +136,7 @@ public partial class Bancos_Devoluciones : ClsPaginas if (OpcionDevolucion.SelectedValue.ToEntero() == 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() == 2) { Anexo.Text = ""; - DvComprobante.Visible = false; + DvComprobante.Visible = false; } else { @@ -163,7 +160,7 @@ public partial class Bancos_Devoluciones : ClsPaginas } protected void CargaSubProyectos() { - DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa:UsuarioActual.CveEmpresa); + DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); DdlSubProyecto.DataBind(); DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione SubProyecto", "-1")); } @@ -358,14 +355,14 @@ public partial class Bancos_Devoluciones : ClsPaginas #region"GUARDAR" protected void BtnGuardar_Click(object sender, EventArgs e) { - //inician validaciones + //inician validaciones if (OpcionDevolucion.SelectedValue.ToEntero() != 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() != 2 && TxtImporte.Text == "") { - Alert("Debe ingresar un importe", TipoMensaje.MsgAdvertencia); - return; + Alert("Debe ingresar un importe", TipoMensaje.MsgAdvertencia); + return; } - if (OpcionDevolucion.SelectedValue == "3" && TipoDevolucion.SelectedValue == "2") + if (OpcionDevolucion.SelectedValue == "3" && TipoDevolucion.SelectedValue == "2") { if (TxtValor.Text == "") { @@ -382,8 +379,8 @@ public partial class Bancos_Devoluciones : ClsPaginas return; } else - { - if (valor ==0) + { + if (valor == 0) { Alert("No se han seleccionado opciones", TipoMensaje.MsgAdvertencia); return; @@ -400,7 +397,8 @@ public partial class Bancos_Devoluciones : ClsPaginas List filesgral = Anexo.getfiles().Archivos; string filemove = ""; string Comprobante = ""; - foreach(Archivo fileItem in filesgral){ + foreach (Archivo fileItem in filesgral) + { Comprobante = System.IO.Path.GetExtension(String.Format("{0}Temp\\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", ""); filemove = fileItem.filename; } @@ -465,7 +463,7 @@ public partial class Bancos_Devoluciones : ClsPaginas } // DATOS PREPOLIZA - if ( DdlTipoTransanccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); + if (DdlTipoTransanccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE Devoluciones", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), 1, TxtFechaDocumento.Text.ToDate(), TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransanccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: CveTipoPoliza); if (CvePrePoliza > 0) @@ -475,25 +473,25 @@ public partial class Bancos_Devoluciones : ClsPaginas if (OpcionDevolucion.SelectedValue.ToEntero() == 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() == 2) { - - int cveConcepto = DdlConcepto.SelectedValue.ToEntero(); - string descripcion = TxtDescripcion.Text; - int tipoDescuento = 1; - double valor = TxtValor.Text.ToDouble(); - int vecesAplicar = TxtVecesAplicar.Text.ToEntero(); - decimal montoLimite = 0; - string fechaInicioAplicacion = DateTime.Now.ToString("yyyy/MM/dd"); - bool estatus = true; - int CveCuenta = -1; - int CveMovtoPermanente = ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta); + int cveConcepto = DdlConcepto.SelectedValue.ToEntero(); + string descripcion = TxtDescripcion.Text; + int tipoDescuento = 1; + double valor = TxtValor.Text.ToDouble(); + int vecesAplicar = TxtVecesAplicar.Text.ToEntero(); + decimal montoLimite = 0; + + string fechaInicioAplicacion = DateTime.Now.ToString("yyyy/MM/dd"); + bool estatus = true; + int CveCuenta = -1; + int CveMovtoPermanente = ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta); + + if (CveMovtoPermanente < 0) + { + MsgError = "No se pudo insertar movimiento permanente"; + } - if (CveMovtoPermanente < 0) - { - MsgError = "No se pudo insertar movimiento permanente"; - } - foreach (GridViewRow gvr in GvDevoluciones.Rows) { @@ -515,7 +513,7 @@ public partial class Bancos_Devoluciones : ClsPaginas } } } - } + } } else @@ -605,7 +603,7 @@ public partial class Bancos_Devoluciones : ClsPaginas { MsgError = "No se insertó movimiento bancario"; } - } + } } else { @@ -674,7 +672,7 @@ public partial class Bancos_Devoluciones : ClsPaginas { archivo = new System.IO.FileInfo(String.Format("{0}Formatos/ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta, DdlCuenta.SelectedValue.ToEntero())); } - + if (IDPoliza > 0) { Msg.AppendFormat(@"

    Ver Póliza", IDPoliza); @@ -699,7 +697,7 @@ public partial class Bancos_Devoluciones : ClsPaginas Msg.Clear(); Alert(Msg.ToString(), TipoMensaje.MsgError); } - + ObjIE.Dispose(); ObjMov.Dispose(); @@ -718,8 +716,8 @@ public partial class Bancos_Devoluciones : ClsPaginas DataTable dt = onom.DtResultados.FiltraParametros(" FormulaTotal = 'FNC.[MovimientosPermanentes]'"); DdlConcepto.Items.Clear(); - DdlConcepto.DataSource = dt.FiltraParametros("Tipo ='D'"); - + DdlConcepto.DataSource = dt.FiltraParametros("Tipo ='D'"); + DataRow drow = dt.NewRow(); drow["CveConcepto"] = "-1"; drow["Concepto"] = "Seleccione"; diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 75982a281..9efa900c9 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -1211,7 +1211,7 @@ Partial Class Bancos_FluctuacionCambiaria If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorCvePrePoliza.Value.ToEntero, 1, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then Banco.Commit() - BtnProveedoresRemove.visible = False + BtnProveedoresRemove.visible = False Alert("Flucturación eliminada.") Else Banco.RollBack() diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 4e604b518..3b8fcc2f5 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -858,7 +858,7 @@ Partial Class Bancos_IE DdlMotivoCancelacion.DataBind() DdlMotivoCancelacion.Items.Insert(0, New ListItem("Seleccione uno", "-1")) - If UsuarioActual.Empresa.UsaAC Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then DvFolioACCondiciones.Visible = True End If @@ -1424,7 +1424,7 @@ Partial Class Bancos_IE End If - If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False @@ -1546,7 +1546,7 @@ Partial Class Bancos_IE DivOtrosIngresosEgresos.Visible = True End If - If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False @@ -1602,7 +1602,7 @@ Partial Class Bancos_IE HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString IDCtaBeneficiario = ObjPersonal.IdCtaContPersonal - If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False @@ -4614,7 +4614,7 @@ Partial Class Bancos_IE Dim IdPolizaNueva = -1 Dim FolioPolizaNueva = -1 - If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then + If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then If ObjAC Is Nothing Then ErrorCancelar = True @@ -4942,7 +4942,7 @@ Partial Class Bancos_IE Dim ErrorCompra = False 'Elimina la poliza - If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then + If (UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then If Not ObjAC.RemovePoliza(IDPoliza) Then ErrorCompra = True End If diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index e1610060d..d9f4f41b0 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -1,13 +1,10 @@ -using System; +using Extensiones; +using System; using System.Collections.Generic; using System.Data; -using System.Drawing; -using System.Linq; using System.Text; using System.Web; -using System.Web.UI; using System.Web.UI.WebControls; -using Extensiones; using static Extensiones.ModExtensiones; public partial class Bancos_PagoAcreedor : ClsPaginas @@ -115,7 +112,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (!IsPostBack) { UsaComplementaria = true; - CveMonedaCuentaPago = 0; + CveMonedaCuentaPago = 0; rowComisiones.Visible = UsuarioActual.CveEmpresa.Contiene(1, 4, 5, 7, 11, 12, 72, 80, 126, 119, 122); CargaTipoTransaccion(); @@ -303,7 +300,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas AsignaCuentaProveedor(DdlProveedores.SelectedValue.ToEntero()); // DATOS PREPOLIZA - if ( DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); + if (DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PAGO ACRREDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMonedaPago, TxtFechaDocumento.Text.ToDate(), DdlProveedores.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)); @@ -319,14 +316,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero(), DdlTipoTransaccion.SelectedValue.ToEntero(), TxtFechaDocumento.Text.Trim().ToDate(), TxtFolio.Text.Trim(), DdlProveedores.SelectedText.ToString(), ImporteBanco.ToString().ToDouble(), CveMonedaPago, TCPago.ToString().ToDouble(), TxtObservaciones.Text.Trim(), "", ChkAbonoCuenta.Checked, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); - + if (CveIE > 0) { //GUARDA COMPROBANTE if (!filemove.Equals("")) { - filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:false); + filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase: false); } decimal Importe; decimal ImporteMN; @@ -402,7 +399,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { ImporteMN = Importe; ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); - } + } else { ImporteMN = (Importe * TC).RoundSQL(); @@ -419,7 +416,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (tCveMoneda != 1) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedorExtranjera, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto:DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedorExtranjera, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago acreedor"; break; @@ -493,7 +490,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { ImporteMNBanco = (ImporteBanco * TCPago).RoundSQL(); ImporteComplementaria = 0; - } + } } @@ -508,7 +505,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { MsgError = "No se pudo insertar concepto de bancos complementaria"; } - if (AcumImporteMN!=(ImporteBanco + ImporteComplementaria)) { + if (AcumImporteMN != (ImporteBanco + ImporteComplementaria)) + { int tCveConceptoOtIngresos = 0; bool TipoMovtoOt = false; decimal Dif = AcumImporteMN - (ImporteBanco + ImporteComplementaria); @@ -520,7 +518,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { tCveConceptoOtIngresos = 64; TipoMovtoOt = true; } - + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de ajuste en redondeo"; @@ -769,7 +767,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas //GUARDA COMPROBANTE if (!filemove.Equals("")) { - filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase: false); + filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase: false); } if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: ImporteMN, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) @@ -825,7 +823,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } //CONTABILIZA - if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") ) + if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("")) { if (IDCtaContableAcreedor > 0 && IDCtaContableBancos > 0) { @@ -959,12 +957,12 @@ public partial class Bancos_PagoAcreedor : ClsPaginas DateTime FInicio = MinFecha; DateTime FFin = MaxFecha; - if(TxtFechaInicio.Text.Length == 10) + if (TxtFechaInicio.Text.Length == 10) { FInicio = TxtFechaInicio.Text.ToDate(); } - if(TxtFechaFin.Text.Length == 10) + if (TxtFechaFin.Text.Length == 10) { FFin = TxtFechaFin.Text.ToDate(); } diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index d1e3553b6..4a6183671 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -1,13 +1,9 @@ -using System; +using Extensiones; +using System; using System.Collections.Generic; -using System.Data; -using System.Drawing; -using System.Linq; using System.Text; using System.Web; -using System.Web.UI; using System.Web.UI.WebControls; -using Extensiones; using static Extensiones.ModExtensiones; public partial class Bancos_PagoDeudor : ClsPaginas @@ -86,7 +82,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas } } - + private int IDCtaContableBancosPrestamo { @@ -156,7 +152,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas { if (!IsPostBack) { - + CargaTipoTransaccion(); CargaCuentas(); CargaProveedores(); @@ -187,7 +183,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas DdlSubProyectoPago.DataBind(); DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1")); - + } @@ -321,12 +317,12 @@ public partial class Bancos_PagoDeudor : ClsPaginas int CveConceptoContableBanco = 30; int CveConceptoContablePrestamo = 43; int CvePlantillaPoliza = 45; - int CvePrePoliza = 0; + int CvePrePoliza = 0; int FolioFijo = 0; int IDPoliza = 0; decimal tipoCambio = (CveMonedaPrestamo == 2) ? TxtTCDolaresPrestamo.Text.ToDecimal() : 1; StringBuilder Msg = new StringBuilder(); - + //OBTIENE COMPROBANTE !! string Comprobante = ""; List filesgral = AnexoPrestamo.getfiles().Archivos; @@ -359,19 +355,19 @@ public partial class Bancos_PagoDeudor : ClsPaginas } // SI ES DOLARES - if(CveMonedaPrestamo == 2) + if (CveMonedaPrestamo == 2) { // BANCOS - BANCOS COMPLEMENTARIA if (UsaComplementaria) { // BANCOS - COMPLEMENTARIA - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true,0, Ref, 204, Conc, DateTime.Now, IDCtaContableBancosComplementariaPrestamo, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio:tipoCambio, CveSubProyecto:DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, 0, Ref, 204, Conc, IDCtaContableBancosComplementariaPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos complementaria"; } - + s // BANCOS - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancosPrestamo, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos"; } @@ -379,23 +375,23 @@ public partial class Bancos_PagoDeudor : ClsPaginas else { // BANCOS - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancosPrestamo, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos"; } - } - + } + // DEUDORES - DEUDORES COMPLEMENTARIAIDCtaContableDeudorPrestamo if (UsaComplementaria) //(IDCtaContableDeudorCompPrestamo > 0) { // DEUDOR COMPLEMENTARIA - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false,0, Ref, 256, Conc, DateTime.Now, IDCtaContableDeudorCompPrestamo, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(),TipoCambio:tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, 0, Ref, 256, Conc, IDCtaContableDeudorCompPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor complementaria"; } // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, DateTime.Now, IDCtaContableDeudorPrestamo, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, IDCtaContableDeudorPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } @@ -403,7 +399,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas else { // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, DateTime.Now, , -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, IDCtaContableDeudorPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } @@ -413,17 +409,17 @@ public partial class Bancos_PagoDeudor : ClsPaginas else { // BANCOS - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancosPrestamo, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos"; } // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, DateTime.Now, IDCtaContableDeudorPrestamo, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, IDCtaContableDeudorPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } - } + } } else { @@ -439,13 +435,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas { if (ObjMov.ValorPolizaDescuadre > 0) { - $"Bancos/IE PAGO Deudor | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}".GuardaLogAD( "LogPrePolizas"); + $"Bancos/IE PAGO Deudor | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}".GuardaLogAD("LogPrePolizas"); } } bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1"); - // if (UsuarioActual.CveEmpresa == 119) AutoConta = false; - + // if (UsuarioActual.CveEmpresa == 119) AutoConta = false; + if (AutoConta && MsgError.Equals("")) { //JJMQ:20190103: Cambio la siguiente linea porque esta validando siempre una complementaria aunque el movto sea dlls @@ -453,7 +449,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas //Y se valida la moneda con el siguiente IF bool ValidoComplementaria = false; - if ((CveMonedaPrestamo == 2 && IDCtaContableBancosComplementariaPrestamo > 0 && IDCtaContableDeudorCompPrestamo > 0) || CveMonedaPrestamo == 1) + if ((CveMonedaPrestamo == 2 && IDCtaContableBancosComplementariaPrestamo > 0 && IDCtaContableDeudorCompPrestamo > 0) || CveMonedaPrestamo == 1) { ValidoComplementaria = true; } if (IDCtaContableDeudorPrestamo > 0 && IDCtaContableBancosPrestamo > 0 && ValidoComplementaria) @@ -689,7 +685,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero(), DdlTipoTransaccion.SelectedValue.ToEntero(), TxtFechaDocumento.Text.Trim().ToDate(), TxtFolio.Text.Trim(), DdlProveedores.SelectedText.ToString(), ImporteBanco.ToString().ToDouble(), CveMoneda, (Double)tipoCambio, TxtObservaciones.Text.Trim(), "", false, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); - + if (CveIE > 0) { @@ -747,7 +743,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas if (UsaComplementaria) { ImporteMN = Importe; - ImporteComplementaria = Importe * TCDoc - Importe; + ImporteComplementaria = Importe * TCDoc - Importe; } else { @@ -756,13 +752,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas } } - ImporteMN = ImporteMN.RoundSQL(); + ImporteMN = ImporteMN.RoundSQL(); ImporteComplementaria = ImporteComplementaria.RoundSQL(); if (tCveMoneda != 1) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableDeudor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TCDoc, TipoCambioPago: TC,CveSubProyecto:DdlSubProyectoPago.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableDeudor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TCDoc, TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago deudor"; break; @@ -792,7 +788,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas CveConceptoDiferenciaCambiaria = 64; IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria; TipoMovto = true; - + Importe = (Importe * TC) - (Importe * gvr.DataKey("TipoCambio").ToDecimal()); } ImporteMN = Importe; @@ -803,7 +799,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas } } - }else + } + else { if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableDeudor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: gvr.DataKey("TipoCambio").ToDecimal(), TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { @@ -811,7 +808,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas break; } } - + } } @@ -892,7 +889,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas MsgError = "No se pudo insertar la póliza"; } - + if (MsgError.Equals("")) { if (Msg.ToString().Equals("")) diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 6d643bf30..0a0429949 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -5,7 +5,7 @@ Imports System.Data Imports Extensiones Partial Class Bancos_PopIECompras - Inherits ClsPaginas + Inherits ClsPaginas #Region "Propiedades" Private Property DtDeudores As DataTable Get @@ -515,8 +515,8 @@ Partial Class Bancos_PopIECompras End If UpDatos.Update() End If - End Sub - + End Sub + #Region "C A M B I A R P A N E L" Private Sub RBLContado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLContado.SelectedIndexChanged Select Case RBLContado.SelectedValue @@ -573,9 +573,9 @@ Partial Class Bancos_PopIECompras CargaVentas(CveMoneda) TxtImporte.Text = "0.00" End Select - End Sub + End Sub #End Region - + #Region "C A R G A R I N F O R M A C I O N" Private Sub CargaCompra(pCveCompra As Integer) Dim ObjCompra As New ClsCompras() @@ -1008,9 +1008,9 @@ Partial Class Bancos_PopIECompras 'RecargaGlobalCuentasBancarias() UpCuentaDeposito.Update() - End Sub + End Sub #End Region - + #Region "DDL'S CHANGED" Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged Dim valor As Integer = DirectCast(sender, DropDownList).SelectedValue.ToEntero @@ -1104,11 +1104,11 @@ Partial Class Bancos_PopIECompras Private Sub DdlAcreedor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAcreedor.SelectedIndexChanged CambieAcreedor() - End Sub + End Sub #End Region - + #Region "CHK TIPO CAMBIO" - + #Region "PAGAR CON PESOS" Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs) If ChkPagarPesos.Checked Then @@ -1165,9 +1165,9 @@ Partial Class Bancos_PopIECompras Else args.IsValid = False End If - End Sub + End Sub #End Region - + #Region "PAGAR CON DOLARES" Protected Sub ChkPagarDolares_CheckedChanged(sender As Object, e As EventArgs) If ChkPagarDolares.Checked Then @@ -1224,9 +1224,9 @@ Partial Class Bancos_PopIECompras Else args.IsValid = False End If - End Sub + End Sub #End Region - + Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs) CambiaTipoMoneda() End Sub @@ -1244,10 +1244,10 @@ Partial Class Bancos_PopIECompras End If UpDatos.Update() - End Sub - + End Sub + #End Region - + #Region "GV ROW DATA BOUND" Private Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvIngresos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 86f900e92..d8c35acdb 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -719,7 +719,7 @@ Partial Class Bancos_ProveedoresAbonar Exit Sub End If - Dim ImporteSeleccionado As Decimal = 0 + Dim ImporteSeleccionado As Decimal = 0 If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then Dim Validada As Boolean = False Dim MsgValidadas As New StringBuilder diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index bf069b542..b6ba10c25 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -2,9 +2,7 @@ Option Strict On Imports System.Data -Imports Microsoft.Reporting.WebForms Imports Extensiones -Imports System.Collections.Generic Partial Class Bancos_RepCortes Inherits ClsPaginas @@ -59,10 +57,10 @@ Partial Class Bancos_RepCortes Set(value As Integer) ViewState("CveCorte") = value End Set - End Property - + End Property + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then txtFechaVI.Text = Now.ToShortDateString @@ -189,9 +187,9 @@ Partial Class Bancos_RepCortes GvP.DataBind() UPPDetalle.Update() UpAcciones.Update() - End Sub - + End Sub + #End Region - - + + End Class diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index 8ab7461d7..941639121 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -1,23 +1,21 @@ -using System; +using ADSNetLibrary.SIGAPI.Models.CRM.Request; +using ADSNetLibrary.SIGAPI.Models.CRM.Response; +using ADSNetLibrary.SIGAPI.Models.Encuestas.Request; +using ADSNetLibrary.SIGAPI.Models.Ventas.Request; +using ADSNetLibrary.SIGAPI.Services; +using ADSNetLibrary.SIGAPI.Services.CRM; +using ADSNetLibrary.SIGAPI.Services.Encuestas; +using Extensiones; +using MoreLinq; +using System; using System.Collections.Generic; +using System.Data; +using System.IO; using System.Linq; using System.Web; using System.Web.UI; -using System.Web.UI.WebControls; -using System.IO; -using System.Data; - -using Extensiones; using System.Web.UI.HtmlControls; -using ADSNetLibrary.SIGAPI.Services.CRM; -using ADSNetLibrary.SIGAPI.Models.CRM.Request; -using ADSNetLibrary.SIGAPI.Models.CRM.Response; -using ADSNetLibrary.SIGAPI.Models.Ventas.Request; -using ADSNetLibrary.SIGAPI.Models.Ventas.Response; -using MoreLinq; -using ADSNetLibrary.SIGAPI.Services; -using ADSNetLibrary.SIGAPI.Services.Encuestas; -using ADSNetLibrary.SIGAPI.Models.Encuestas.Request; +using System.Web.UI.WebControls; public partial class CRM_Acercamiento : ClsPaginas { @@ -313,7 +311,7 @@ public partial class CRM_Acercamiento : ClsPaginas if (CveAcercamiento > 0) { ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString); - RequestAcercamiento AcercamientoModel = new RequestAcercamiento(UsuarioActual.CveEmpresa, CveAcercamiento); + RequestAcercamiento AcercamientoModel = new RequestAcercamiento(UsuarioActual.CveEmpresa, CveAcercamiento); var objAcercamiento = cRMService.GetAceracamientoCRM(AcercamientoModel); if (objAcercamiento.Result.Count > 0) { @@ -379,7 +377,7 @@ public partial class CRM_Acercamiento : ClsPaginas BtnGuardarAcercamiento.Visible = true; BtnEliminarAcercamiento.Visible = true; } - + else { Alert("La Empresa solicitada no existe, por favor revise su búsqueda.", ModExtensiones.TipoMensaje.MsgAdvertencia); @@ -493,7 +491,7 @@ public partial class CRM_Acercamiento : ClsPaginas DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1")); } - + DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa); DdlProbabilidadAcercamiento.DataBind(); DdlEmpresaCRM.DataBind(); @@ -619,7 +617,7 @@ public partial class CRM_Acercamiento : ClsPaginas private void CargarPS() { DdlPS.setEsWebService(true); - if(CvePS > 0) + if (CvePS > 0) { string productoAsignado = get_GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS: CvePS).FiltroPrimeroValor("PSCodigo"); DdlPS.SelectedValue = CvePS.ToString(); @@ -771,7 +769,7 @@ public partial class CRM_Acercamiento : ClsPaginas AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario; AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso; AcercaminetoModel.FechaApertura = FechaApertura; - AcercaminetoModel.FechaCierre = FechaCierre != null? (DateTime)FechaCierre : ModExtensiones.MinFecha; + AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha; AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero(); AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo; @@ -895,7 +893,7 @@ public partial class CRM_Acercamiento : ClsPaginas { } - + protected void BtnRegistrarCierreCancelacion_Click(object sender, EventArgs e) { @@ -1173,7 +1171,7 @@ public partial class CRM_Acercamiento : ClsPaginas int CveEmpresaCRM = DdlEmpresaCRM.SelectedValue.ToEntero(); int CveEtapa = HdfEtapaSeleccionada.Value.ToEntero() == -1 ? CveEtapaActual : HdfEtapaSeleccionada.Value.ToEntero(); - if (ObjEventos.AddEventoAgenda(DdlTipoAgenda.SelectedValue.ToEntero(), TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridadAgenda.SelectedValue.ToEntero(), FechaInicio, FechaInicio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoProcesoCRM: CveTipoProceso, CveAcercamientoCRM: CveAcercamiento, CveContactoCRM: CveContactoAgendar, CveEtapaProcesoCRM: CveEtapa, CveEmpresaCRM:CveEmpresaCRM)) + if (ObjEventos.AddEventoAgenda(DdlTipoAgenda.SelectedValue.ToEntero(), TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridadAgenda.SelectedValue.ToEntero(), FechaInicio, FechaInicio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoProcesoCRM: CveTipoProceso, CveAcercamientoCRM: CveAcercamiento, CveContactoCRM: CveContactoAgendar, CveEtapaProcesoCRM: CveEtapa, CveEmpresaCRM: CveEmpresaCRM)) { limpiarModalAgendar(); RegistraScript("$('#ModalAgenda').modal('hide')"); @@ -1525,7 +1523,7 @@ public partial class CRM_Acercamiento : ClsPaginas return _CveEncuestaAplicada; } #endregion - + #region "MUESTRA UBICACION GEOGRAFICA" protected void LnkVerUbicacion_Click(object sender, EventArgs e) { @@ -1781,7 +1779,7 @@ public partial class CRM_Acercamiento : ClsPaginas Actualizar = true; CveAcercamientoGasto = GvRow.DataKey("CveAcercamientoGasto").ToEntero(); - + TxtDescripcionGasto.Text = GvRow.DataKey("Descripcion"); TxtImporteGasto.Text = GvRow.DataKey("Importe"); diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index 59d6f5833..b63b5860a 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -1,21 +1,20 @@ -using System; +using ADSNetLibrary.SIGAPI.Models.CRM.Request; +using ADSNetLibrary.SIGAPI.Models.CRM.Response; +using ADSNetLibrary.SIGAPI.Models.Encuestas.Request; +using ADSNetLibrary.SIGAPI.Models.Ventas.Request; +using ADSNetLibrary.SIGAPI.Services; +using ADSNetLibrary.SIGAPI.Services.CRM; +using ADSNetLibrary.SIGAPI.Services.Encuestas; +using Extensiones; +using MoreLinq; +using System; using System.Collections.Generic; +using System.Data; +using System.IO; using System.Linq; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; -using System.IO; -using System.Data; -using ADSNetLibrary.SIGAPI.Services.CRM; -using ADSNetLibrary.SIGAPI.Models.CRM.Request; -using ADSNetLibrary.SIGAPI.Models.CRM.Response; -using ADSNetLibrary.SIGAPI.Models.Ventas.Request; -using ADSNetLibrary.SIGAPI.Models.Ventas.Response; -using Extensiones; -using MoreLinq; -using ADSNetLibrary.SIGAPI.Services; -using ADSNetLibrary.SIGAPI.Services.Encuestas; -using ADSNetLibrary.SIGAPI.Models.Encuestas.Request; public partial class CRM_EmpresaCRM : ClsPaginas { @@ -1359,11 +1358,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas DTRespuestasDatosTecnicos = responseGenericGetRespuestas.Result.ToDataTable(); } - var responseGenericGetDatosTecnicosEmpresaCRM = encuestaService.GetDatosTecnicosEmpresaCRM(new RequestDatosTecnicosEmpresaCRMGet() { CveEmpresa = UsuarioActual.Empresa.CveEmpresa , CveEncuesta = CveEncuestaCRM, CveEncuestaAplicada = CveEncuestaAplicada, CvePregunta = -1}); + var responseGenericGetDatosTecnicosEmpresaCRM = encuestaService.GetDatosTecnicosEmpresaCRM(new RequestDatosTecnicosEmpresaCRMGet() { CveEmpresa = UsuarioActual.Empresa.CveEmpresa, CveEncuesta = CveEncuestaCRM, CveEncuestaAplicada = CveEncuestaAplicada, CvePregunta = -1 }); if (responseGenericGetDatosTecnicosEmpresaCRM.IsSuccess) { GvDatosTecnicos.DataSource = responseGenericGetDatosTecnicosEmpresaCRM.Result; - if(responseGenericGetDatosTecnicosEmpresaCRM.Result.Count > 0) + if (responseGenericGetDatosTecnicosEmpresaCRM.Result.Count > 0) { GvDatosTecnicos.Visible = true; } @@ -1567,7 +1566,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas DdlVendedor.Enabled = false; DdlVendedorAsignado.Enabled = false; } - + if (UsuarioActual.TienePermisoProceso(336)) //permiso para editar vendedor { @@ -1822,7 +1821,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas protected void DdlTipoProcesos_Change(Object sender, EventArgs e) { DdlMedioCaptacion.Items.Clear(); - CargaMetodosCaptacion(); + CargaMetodosCaptacion(); UpDatos.Update(); } diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index d024dcd69..98e73dc6e 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1,12 +1,9 @@ Option Explicit On Option Strict On - -Imports System Imports System.Data Imports System.Diagnostics Imports System.Globalization Imports System.IO -Imports System.Text.RegularExpressions Imports System.Threading.Tasks Imports System.Xml Imports Extensiones @@ -2208,7 +2205,8 @@ Partial Class Compras_Compras If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) - DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2")) + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3")) + DdlRetIVAConcepto.Items.Add(New ListItem("General", "6")) End If @@ -2225,6 +2223,7 @@ Partial Class Compras_Compras DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2")) + DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) End If @@ -3449,20 +3448,6 @@ Partial Class Compras_Compras CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion) CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion) - 'If ObjProveedor.DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales - ' DdlRetIVAConcepto.SelectedValueExist("1") - ' DdlRetISRConcepto.SelectedValueExist("1") ' honorarios - 'ElseIf ObjProveedor.DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles - ' DdlRetIVAConcepto.SelectedValueExist("4") - ' DdlRetISRConcepto.SelectedValueExist("2") ' arrendamiento - 'ElseIf ObjProveedor.DIOTCveTipoOperacion = 3 Then ' 85 - Otros - ' DdlRetIVAConcepto.SelectedValueExist("2") ' flete pf - ' DdlRetIVAConcepto.SelectedValueExist("3") ' fletes pm - ' DdlRetISRConcepto.SelectedValueExist("1") ' honorarios - ' 'ElseIf ObjProveedor.DIOTCveTipoOperacion = 0 Then - - 'End If - If CveFactura > 0 Then If RetIVAOriginal > 0 Then @@ -5592,7 +5577,6 @@ Partial Class Compras_Compras 'Afectable con el tabpanel Contable Dim CveProveedorLocal As Integer Dim CveProveedorConcepto As Integer - Dim CveAcreedor As Integer Dim CveColectiva As Integer = -1 Dim TipoCreditoInteres As Boolean = False @@ -5603,8 +5587,6 @@ Partial Class Compras_Compras 'Credito Proveedor CveProveedorLocal = CveProveedor CveProveedorConcepto = CveProveedor - CveAcreedor = -1 - Else 'cuando es contado @@ -5612,11 +5594,9 @@ Partial Class Compras_Compras Case "1", "6" 'Proveedores CveProveedorLocal = CveProveedor CveProveedorConcepto = CveProveedor - CveAcreedor = -1 Case "2" ' F y E CveProveedorLocal = CveProveedor CveProveedorConcepto = CveProveedor - CveAcreedor = -1 CveIE = DDlCheques.SelectedValue.ToEntero Case "3" ' Doctos @@ -5625,7 +5605,6 @@ Partial Class Compras_Compras If DdlTipoCredito.SelectedValue.ToEntero = 2 Then CveProveedorLocal = CveProveedor CveProveedorConcepto = CveProveedor - CveAcreedor = -1 CveColectiva = -1 ' CveConceptoAfectacionContado = 55 CveConceptoAfectacion = 59 @@ -5641,14 +5620,13 @@ Partial Class Compras_Compras Exit For End If Next - CveAcreedor = -1 + CveColectiva = -1 ' CveConceptoAfectacionContado = 55 CveConceptoAfectacion = 37 Case "5" ' Acreedores CveProveedorLocal = CveProveedor CveProveedorConcepto = DdlAcreedor.SelectedValue.ToEntero - CveAcreedor = -1 CveColectiva = -1 CveConceptoAfectacion = 41 @@ -6026,12 +6004,12 @@ Partial Class Compras_Compras Dim ImporteSubCre As Decimal = TxtSubTotal.Text.ToDecimal Dim ImporteSubCreMN As Decimal = TxtSubTotal.Text.ToDecimal * tipoCambioActual - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteSubCre, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=ImporteSubCreMN, ImporteME:=If(tipoCambioActual = 1, 0, ImporteSubCre), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteSubCre, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=ImporteSubCreMN, ImporteME:=If(tipoCambioActual = 1, 0, ImporteSubCre), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 41, Concepto, FechaMovimiento, CtaProveedorAcreedores, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 41, Concepto, FechaMovimiento, CtaProveedorAcreedores, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -6042,10 +6020,10 @@ Partial Class Compras_Compras Dim importeMNIn As Decimal = importeMovimientoIn * tipoCambioActual * Multiplicador - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoIn, Referencia, 41, Concepto, FechaMovimiento, CtaProveedorAcreedores, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMNIn, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoIn, Referencia, 41, Concepto, FechaMovimiento, CtaProveedorAcreedores, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMNIn, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoIn, Referencia, 50, Concepto, FechaMovimiento, ViewState("IdCtaContDocsXPagar").ToString.ToEntero(), IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMNIn, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoIn, Referencia, 50, Concepto, FechaMovimiento, ViewState("IdCtaContDocsXPagar").ToString.ToEntero(), IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMNIn, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -6138,7 +6116,7 @@ Partial Class Compras_Compras ttConceptoContable = 287 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ttConceptoContable, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ttConceptoContable, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then ErrorPrepoliza = True End If End If @@ -6237,7 +6215,7 @@ Partial Class Compras_Compras End If End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 25, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIEPS, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 25, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIEPS, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then ErrorPrepoliza = True End If End If @@ -6274,7 +6252,10 @@ Partial Class Compras_Compras Funcionalidad = 578 ConceptoContable = 286 ConceptoContableContra = 285 - + ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 6 Then + Funcionalidad = 578 + ConceptoContable = 333 + ConceptoContableContra = 334 End If importeMovimiento = importeRetIVAAcreditable @@ -6301,7 +6282,7 @@ Partial Class Compras_Compras 'Agregamos el Opuesto del 22 -> 15 If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ConceptoContableContra, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ConceptoContableContra, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then ErrorPrepoliza = True End If End If @@ -6330,6 +6311,8 @@ Partial Class Compras_Compras ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then Funcionalidad = 578 ConceptoContable = 285 + ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 6 Then + ConceptoContable = 333 End If importeMovimiento = importeRetIVAxAcreditar @@ -6351,9 +6334,6 @@ Partial Class Compras_Compras End If End If - - - End If End If @@ -6398,7 +6378,7 @@ Partial Class Compras_Compras 'Agregamos el Opuesto del 23 -> 16 If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ConceptoContableContra, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ConceptoContableContra, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If End If @@ -6526,7 +6506,7 @@ Partial Class Compras_Compras idCuentaContabilizacion = 0 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If End If @@ -6572,7 +6552,7 @@ Partial Class Compras_Compras If importeMN <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -6602,13 +6582,13 @@ Partial Class Compras_Compras End If 'SI ES GASTO CON ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68 - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then ErrorPrepoliza = True End If 'SI ES GASTO CON ALMACEN REGISTRA EL CONCEPTO 95 If DdlTipoCompra.SelectedValue = "10" Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMN, Referencia, 95, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=False) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMN, Referencia, 95, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=False) Then ErrorPrepoliza = True End If End If @@ -6803,7 +6783,7 @@ Partial Class Compras_Compras End If If importeMN <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -7123,7 +7103,7 @@ Partial Class Compras_Compras Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" importeMN = tipoCambioActual * importeMovimiento - importeMovimiento - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovimiento, importeMovimiento, Referencia, 266, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=importeMovimiento, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovimiento, importeMovimiento, Referencia, 266, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=importeMovimiento, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If importeMN = importeMovimiento @@ -7133,7 +7113,7 @@ Partial Class Compras_Compras If Not Insertado205 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovimiento, importeMovimiento, Referencia, tcvecon, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovimiento, importeMovimiento, Referencia, tcvecon, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -7210,7 +7190,7 @@ Partial Class Compras_Compras idCuentaContabilizacion = 0 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If End If @@ -7258,9 +7238,9 @@ Partial Class Compras_Compras 'PROVISION IdCtaContable = CtaProveedorExtranjera - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then IdCtaContable = CtaProveedorComplementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, 234, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, 234, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then ErrorPrepoliza = True Exit Select End If @@ -7278,13 +7258,13 @@ Partial Class Compras_Compras Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador IdCtaContable = CtaProveedorExtranjera - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then Dim CveConceptoContableComplementaria As Integer = 206 If Gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor IdCtaContable = CtaProveedorComplementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then ErrorPrepoliza = True Exit For End If @@ -7296,9 +7276,9 @@ Partial Class Compras_Compras importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador IdCtaContable = CtaProveedorExtranjera - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then IdCtaContable = CtaProveedorComplementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -7346,14 +7326,14 @@ Partial Class Compras_Compras Else IdCtaContable = CtaProveedor - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then For Each Gvr As GridViewRow In GvFacturaNC.Rows If Gvr.FCCheckBox("ChkFacturaNC").Checked Then 'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, Contabilizable:=SeContabiliza) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If Else @@ -7452,9 +7432,9 @@ Partial Class Compras_Compras importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador IdCtaContable = CtaProveedorExtranjera - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then IdCtaContable = CtaProveedorComplementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -7465,13 +7445,13 @@ Partial Class Compras_Compras importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador IdCtaContable = CtaProveedorExtranjera - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Ant.CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Ant.CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then Dim CveConceptoContableComplementaria As Integer = 206 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor IdCtaContable = CtaProveedorComplementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -7513,9 +7493,9 @@ Partial Class Compras_Compras importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador IdCtaContable = CtaProveedorAnticiposExtranjera - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 265, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 265, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then IdCtaContable = CtaProveedorAnticiposComplementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 266, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 266, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -7527,13 +7507,13 @@ Partial Class Compras_Compras If TxtTotal.Text.ToDouble > 0 AndAlso TieneAnticiposXML = False Then importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador IdCtaContable = CtaProveedorExtranjera ' CtaProveedorAnticiposExtranjera - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCompraAmortizacion:=CveCompraNC, Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCompraAmortizacion:=CveCompraNC, Contabilizable:=SeContabiliza) Then Dim CveConceptoContableComplementaria As Integer = 206 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor IdCtaContable = CtaProveedorExtranjera 'CtaProveedorAnticiposComplementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -7547,24 +7527,24 @@ Partial Class Compras_Compras Dim ImporteIVA As Decimal = Math.Round(PorcentajePagoAnt * TxtIVA.Text.ToDecimal, 2) 'Agregamos el 14 - If ImporteIVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIVA, Referencia, 14, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then + If ImporteIVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIVA, Referencia, 14, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If 'Agregamos el 19 - If ImporteIVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIVA, Referencia, 19, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then + If ImporteIVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIVA, Referencia, 19, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If Dim ImporteIEPS As Decimal = Math.Round(PorcentajePagoAnt * TxtIEPS.Text.ToDecimal, 2) 'Agregamos el 25 - If ImporteIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIEPS, Referencia, 25, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then + If ImporteIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIEPS, Referencia, 25, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If 'Agregamos el 26 - If ImporteIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIEPS, Referencia, 26, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then + If ImporteIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIEPS, Referencia, 26, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If End If @@ -7610,7 +7590,7 @@ Partial Class Compras_Compras If usacomplementariaAnticipo Then IdCtaContable = CtaProveedorAnticiposComplementaria ImporteAntMN = TipoCambioAnt * ImporteAnt - ImporteAnt - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, Referencia, 266, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=ImporteAntMN, ImporteME:=ImporteAnt, TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, Referencia, 266, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=ImporteAntMN, ImporteME:=ImporteAnt, TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -7622,7 +7602,7 @@ Partial Class Compras_Compras End If 'Agregamos el 21/37/60 - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, Referencia, ConceptoContableAnticipo, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteAntMN, ImporteME:=If(tipoCambioActual = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, Referencia, ConceptoContableAnticipo, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteAntMN, ImporteME:=If(tipoCambioActual = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -7635,7 +7615,7 @@ Partial Class Compras_Compras If usacomplementariaProveedor Then Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" importeMN = tipoCambioActual * importeMovimiento - importeMovimiento - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, CtaProveedorComplementaria, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, CtaProveedorComplementaria, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If importeMN = importeMovimiento @@ -7658,7 +7638,7 @@ Partial Class Compras_Compras End If 'Agregamos el 17 - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, CveConceptoContablePago, Concepto, FechaMovimiento, IdCtaContablePago, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, CveConceptoContablePago, Concepto, FechaMovimiento, IdCtaContablePago, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -7702,7 +7682,7 @@ Partial Class Compras_Compras If chkImportacion.Checked Then tConceptoContable = 287 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIVA, Referencia, tConceptoContable, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIVA, Referencia, tConceptoContable, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -7711,7 +7691,7 @@ Partial Class Compras_Compras If chkImportacion.Checked Then tConceptoContable = 288 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIVA, Referencia, tConceptoContable, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIVA, Referencia, tConceptoContable, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If End If @@ -7754,7 +7734,7 @@ Partial Class Compras_Compras 'Case 205 ' If TxtTotal.Text.ToDecimal = 0 And DdlTipoComprobante.SelectedValue = "Fac" Then - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=True) Then + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=True) Then ' ErrorPrepoliza = True ' Exit For ' End If @@ -7774,7 +7754,7 @@ Partial Class Compras_Compras idCuentaContabilizacion = 0 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -7910,32 +7890,32 @@ Partial Class Compras_Compras 'inserto los movimientos de la conta para abonar al saldo 'Se agregamovimiento de pago de proveedor - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteCompra, " ", CveConceptoAfectacionContado, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteCompra, " ", CveConceptoAfectacionContado, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then ErrorMovtosCxP = True End If 'Compra - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtSubTotal2.Text.ToDecimal, " ", 30, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtSubTotal2.Text.ToDecimal, " ", 30, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then ErrorMovtosCxP = True End If 'IVA por Acreditar . siempre se registra aunque sea cero If Not ErrorMovtosCxP Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal, " ", 19, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal, " ", 19, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then ErrorMovtosCxP = True End If End If If Not ErrorMovtosCxP AndAlso TxtRetIVA.Text.ToDouble > 0 Then 'Agrego el RetIVA - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal, " ", 22, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal, " ", 22, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then ErrorMovtosCxP = True End If End If If Not ErrorMovtosCxP AndAlso TxtRetISR.Text.ToDouble > 0 Then 'Agrego el RetIVA - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal, " ", 23, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal, " ", 23, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva) Then ErrorMovtosCxP = True End If End If @@ -7950,7 +7930,7 @@ Partial Class Compras_Compras 'movimiento de compra '[IPP] PARCHE PROVISIONAL DE CLASIFICACION Y SUBPROYECTO [CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero] [CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero] - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, TxtSubTotal2.Text.ToDecimal, " ", CveConceptoCompra, " ", TxtFechaPago.Text.ToDate, 0, -1, CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero, CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtSubTotal2.Text.ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, TxtSubTotal2.Text.ToDecimal, " ", CveConceptoCompra, " ", TxtFechaPago.Text.ToDate, 0, -1, CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero, CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtSubTotal2.Text.ToDecimal) Then ErrorMovtosCxP = True End If @@ -7958,13 +7938,13 @@ Partial Class Compras_Compras If CveConceptoAfectacion = 37 Then For Each rw As GridViewRow In GvDeudores.Rows If rw.FCCheckBox("Chk").Checked Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoCompra, rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal, " ", CveConceptoAfectacion, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoCompra, rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal, " ", CveConceptoAfectacion, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal) Then ErrorMovtosCxP = True End If End If Next Else - If ImporteCompra > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoCompra, ImporteCompra, " ", CveConceptoAfectacion, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=ImporteCompra) Then + If ImporteCompra > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoCompra, ImporteCompra, " ", CveConceptoAfectacion, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=ImporteCompra) Then ErrorMovtosCxP = True End If End If @@ -7974,33 +7954,33 @@ Partial Class Compras_Compras 'Siempre: Se agrega IVA aunque sea cero ' If TxtIVA.Text.Replace(", ", "").Trim.ToDouble <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoImpuestos, TxtIVA.Text.ToDecimal, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoImpuestos, TxtIVA.Text.ToDecimal, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal) Then ErrorMovtosIVA = True End If 'End If 'Se agregan las Ret IVA If TxtRetIVA.Text.ToDouble <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtRetIVA.Text.ToDecimal, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtRetIVA.Text.ToDecimal, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal) Then ErrorMovtosRetIVA = True End If End If 'Se agregan las Ret ISR If TxtRetISR.Text.ToDouble > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtRetISR.Text.ToDecimal, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtRetISR.Text.ToDecimal, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal) Then ErrorMovtosRetISR = True End If End If If TxtIEPS.Text.ToDouble > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtIEPS.Text.ToDecimal, " ", CveConceptoRetIEPS, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIEPS.Text.ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtIEPS.Text.ToDecimal, " ", CveConceptoRetIEPS, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIEPS.Text.ToDecimal) Then ErrorMovtosRetISR = True End If End If If TxtOtrosImpuestos.Text.ToDouble <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtOtrosImpuestos.Text.ToDecimal, " ", CveConceptoRetOtrosImpuestos, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtOtrosImpuestos.Text.ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtOtrosImpuestos.Text.ToDecimal, " ", CveConceptoRetOtrosImpuestos, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtOtrosImpuestos.Text.ToDecimal) Then ErrorMovtosRetISR = True End If End If @@ -8047,28 +8027,28 @@ Partial Class Compras_Compras End Select - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Ant.Importe, " ", CveConceptoAnt, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Ant.Importe, " ", CveConceptoAnt, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe) Then ' ImporteAnticipo += Ant.Importe ' RESTO DEL IMPORTE POR SI QUEDA DIFERENCIA DE LA SUMA DE LOS ANTICIPOS Y EL PROVEEDOR TIENE QUE PAGAR 'movimiento de pago proveedor, --no se regisra porque no se registra el total de la compra como deuda del proveedor, solo lo que queda a deber 'si es l moviemiento es de amortizacion con descuento, no registra el pago, ya esta descontado - If TieneAnticiposXML = False AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, Ant.Importe, " ", CveConceptoPago, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe, CveCompraAmortizacion:=CveCompraNC) Then + If TieneAnticiposXML = False AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, Ant.Importe, " ", CveConceptoPago, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe, CveCompraAmortizacion:=CveCompraNC) Then ErrorMovtosCxP = True End If PorcentajePago = (Ant.Importe) / TxtTotal.Text.ToDecimal 'IVA por Acreditar . siempre se registra aunque sea cero If Not ErrorMovtosCxP Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", 19, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", 19, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True End If 'Agrego el RetIVA If Not ErrorMovtosCxP AndAlso TxtRetIVA.Text.ToDouble > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", 22, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", 22, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True End If 'Agrego el RetISR If Not ErrorMovtosCxP AndAlso TxtRetISR.Text.ToDouble > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", 23, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", 23, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True End If Else ErrorMovtosCxP = True @@ -8083,21 +8063,21 @@ Partial Class Compras_Compras PorcentajePago = (TxtTotal.Text.ToDecimal - ImporteAnticipo) / TxtTotal.Text.ToDecimal 'Siempre: Se agrega IVA aunque sea cero If TxtIVA.Text.ToDouble <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosIVA = True End If End If 'Se agregan las Ret IVA If TxtRetIVA.Text.ToDouble <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosRetIVA = True End If End If 'Se agregan las Ret ISR If TxtRetISR.Text.ToDouble > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then ErrorMovtosRetISR = True End If End If @@ -8186,7 +8166,7 @@ Partial Class Compras_Compras 'CvePrePoliza = ObjConta.AddPrePolizas("Banc", 2, ImporteAPagarFE, ImporteAPagarFE, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CvePrePoliza > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImportePagar, " ", 29, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CvePersonal:=DdlFuncionarioEmpleado.SelectedValue.ToEntero, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveColectiva:=CveColectiva, CveIE:=CveIE, ImporteMX:=ImportePagar) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImportePagar, " ", 29, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CvePersonal:=DdlFuncionarioEmpleado.SelectedValue.ToEntero, CveProveedor:=CveProveedorLocal, CveColectiva:=CveColectiva, CveIE:=CveIE, ImporteMX:=ImportePagar) Then ErrorMovtosCxP = True End If @@ -8201,7 +8181,7 @@ Partial Class Compras_Compras Case Else End Select End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImportePagar, " ", CveConceptoPago, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CvePersonal:=DdlFuncionarioEmpleado.SelectedValue.ToEntero, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveColectiva:=CveColectiva, CveIE:=CveIE, ImporteMX:=ImportePagar) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImportePagar, " ", CveConceptoPago, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CvePersonal:=DdlFuncionarioEmpleado.SelectedValue.ToEntero, CveProveedor:=CveProveedorLocal, CveColectiva:=CveColectiva, CveIE:=CveIE, ImporteMX:=ImportePagar) Then ErrorMovtosCxP = True End If @@ -8211,21 +8191,21 @@ Partial Class Compras_Compras 'IVA por Acreditar . siempre se registra aunque sea cero If Not ErrorMovtosCxP Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", 19, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", 19, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True End If If Not ErrorMovtosCxP AndAlso TxtRetIVA.Text.ToDouble > 0 Then 'Agrego el RetIVA - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", 22, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", 22, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True End If If Not ErrorMovtosCxP AndAlso TxtRetISR.Text.ToDouble > 0 Then 'Agrego el RetISR - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", 23, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", 23, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True End If @@ -8234,26 +8214,26 @@ Partial Class Compras_Compras If TxtTotal.Text.ToDouble - ImportePagar > 0 Then PorcentajePago = (TxtTotal.Text.ToDecimal - ImportePagar) / TxtTotal.Text.ToDecimal 'Movimiento, se omite, porque se esta registrando la totalidad de la deuda - 'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtTotal.Text.ToDouble - ImporteAnticipo, " ", 5, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then + 'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtTotal.Text.ToDouble - ImporteAnticipo, " ", 5, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then ' ErrorMovtosCxP = True 'End If 'Siempre: Se agrega IVA aunque sea cero If TxtIVA.Text.ToDouble <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosIVA = True End If End If 'Se agregan las Ret IVA If TxtRetIVA.Text.ToDouble <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosRetIVA = True End If End If 'Se agregan las Ret ISR If TxtRetISR.Text.ToDouble > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then ErrorMovtosRetISR = True End If End If @@ -9261,6 +9241,8 @@ Partial Class Compras_Compras ElseIf CveRetIVAConceptoOriginal = 5 Then Funcionalidad = 578 ConceptoContable = 285 + ElseIf CveRetIVAConceptoOriginal = 6 Then + ConceptoContable = 333 End If ImporteMovimiento = Math.Round(PorcentajePago * TxtRetIVA.Text.ToDecimal, 2) @@ -9318,7 +9300,9 @@ Partial Class Compras_Compras Funcionalidad = 578 ConceptoContable = 286 ConceptoContableContra = 285 - + ElseIf CveRetIVAConceptoOriginal = 6 Then + ConceptoContable = 334 + ConceptoContableContra = 333 End If ImporteMovimiento = Math.Round(PorcentajePago * TxtRetIVA.Text.ToDecimal, 2) @@ -9342,7 +9326,7 @@ Partial Class Compras_Compras If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}" 'Agregamos el Opuesto del 22 -> 15 If ImporteMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveAcreedor:=-1, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoAnticipo) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoAnticipo) Then ErrorMovtosCxP = 1 Exit For End If @@ -9441,7 +9425,7 @@ Partial Class Compras_Compras 'Agregamos el Opuesto del 23 -> 16 If ImporteMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=-1, CveAcreedor:=-1, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, CveSubProyecto:=CveSubProyectoAnticipo) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=-1, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, CveSubProyecto:=CveSubProyectoAnticipo) Then ErrorMovtosCxP = 1 Exit For End If @@ -9450,10 +9434,6 @@ Partial Class Compras_Compras End If End If - - - - Case 64 'GANANCIA If gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then 'SOLO SE IMPLEMENTÓ PARA NC If DdlMoneda.SelectedValue.ToEntero <> 1 Or gvr.DataKey("CveMoneda").ToEntero <> 1 Then @@ -10435,6 +10415,7 @@ Partial Class Compras_Compras (row1("NoDeducible").ToString <> row2("NoDeducible").ToString) Or (row1("CveActivoFijo").ToString.ToEntero <> row2("CveActivoFijo").ToString.ToEntero) Or (row1("AFMedida").ToString.ToEntero <> row2("AFMedida").ToString.ToEntero) Or + (row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Then Return False End If @@ -10566,7 +10547,7 @@ Partial Class Compras_Compras 'AF DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2") - If DT.Rows.Count > 0 AndAlso DdlTipoComprobante.SelectedValue <> "NC" And ConceptoContabilizacionAlmacen = 0 Then + If DT.Rows.Count > 0 AndAlso DdlTipoComprobante.SelectedValue <> "NC" Then For Each Row2 As DataRow In DT.Rows importeMovimiento = Row2("Total").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 3b175dda0..052b64ca0 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1,21 +1,15 @@ Option Strict On Option Explicit On -Imports Extensiones Imports System.Data -Imports Microsoft.Reporting.WebForms -Imports System.Xml Imports System.IO +Imports System.Xml +Imports Extensiones Imports iTextSharp.text Imports iTextSharp.text.pdf - +Imports Microsoft.Reporting.WebForms Imports Stimulsoft.Report -Imports Stimulsoft.Report.Components -Imports Stimulsoft.Report.Dictionary Imports Stimulsoft.Report.Web -Imports Newtonsoft.Json.Linq -Imports System -Imports Microsoft.VisualBasic Partial Class PopUpVerFactura Inherits ClsPaginas @@ -1001,9 +995,10 @@ Partial Class PopUpVerFactura 'IMPRIME FACTURA If UrlParametros("OP").ToString = "VTA" Then If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then + Dim AplicaPagare As String = If(UrlParametros("PAG") IsNot Nothing AndAlso UrlParametros("PAG").ToString <> "", UrlParametros("PAG").ToString, "0") Dim Guardar As Boolean = UrlParametros("GUARDAR") IsNot Nothing AndAlso UrlParametros("GUARDAR").ToString() = "1" - - imprimirFacturaVenta(UrlParametros("CVEVENTA").ToString.ToEntero, If(UrlParametros("PAG") IsNot Nothing AndAlso UrlParametros("PAG").ToString <> "", UrlParametros("PAG").ToString, "0"), GuardarPDF:=Guardar) + Dim RegenerarPDF As Boolean = UrlParametros("REGENERAR") IsNot Nothing AndAlso UrlParametros("REGENERAR").ToString() = "1" + imprimirFacturaVenta(UrlParametros("CVEVENTA").ToString.ToEntero, AplicaPagare, GuardarPDF:=Guardar, RegenerarPDF:=RegenerarPDF) End If End If @@ -1870,6 +1865,11 @@ Partial Class PopUpVerFactura Dim SelloCFDi As String = "" Dim SelloSAT As String = "" Dim TipoDocto As String = "" + Dim PermisoSCTR1 As String = "" + Dim PermisoSCTR2 As String = "" + Dim ConfATR1 As String = "" + Dim ConfATR2 As String = "" + Dim ObjInv As New ClsGenerales @@ -1880,6 +1880,14 @@ Partial Class PopUpVerFactura SerieFolio = Dr("SerieFolio").ToString Telefono = Dr("FiguraTelefono").ToString TipoDocto = Dr("TipoDocto").ToString + + If UsuarioActual.CveEmpresa = 13 Then + PermisoSCTR1 = Dr("PermisoSCTR1").ToString + PermisoSCTR2 = Dr("PermisoSCTR2").ToString + ConfATR1 = Dr("ConfATR1").ToString + ConfATR2 = Dr("ConfATR2").ToString + End If + End If End If End If @@ -2061,7 +2069,12 @@ Partial Class PopUpVerFactura Dim nodeMercanciaPadre As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancias", "cartaporte20"), namespaces) If UsuarioActual.CveEmpresa = 13 AndAlso nodeMercanciaPadre IsNot Nothing Then Dim PesoNetoTotal = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "") + Dim UnidadPeso = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "") + Dim NumTotalMercancias = ValorXML(nodeMercanciaPadre(0), "NumTotalMercancias", "") + params.Add(New ReportParameter("PesoNetoTotal", PesoNetoTotal)) + params.Add(New ReportParameter("UnidadPeso", UnidadPeso)) + params.Add(New ReportParameter("NumTotalMercancias", NumTotalMercancias)) End If Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:TiposFigura", "cartaporte20"), namespaces) @@ -2244,9 +2257,18 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("RemolquePlaca1", RemolquePlaca1)) params.Add(New ReportParameter("RemolqueSubtimo1", RemolqueSubtimo1)) + params.Add(New ReportParameter("RemolquePlaca2", RemolquePlaca2)) params.Add(New ReportParameter("RemolqueSubtimo2", RemolqueSubtimo2)) + If UsuarioActual.CveEmpresa = 13 Then + params.Add(New ReportParameter("PermisoSCTRemolque1", PermisoSCTR1)) + params.Add(New ReportParameter("PermisoSCTRemolque2", PermisoSCTR2)) + params.Add(New ReportParameter("ConfATR1", ConfATR1)) + params.Add(New ReportParameter("ConfATR2", ConfATR2)) + End If + + ' [@CertificadoContribuyente] '[@CadenaOriginal] @@ -2595,6 +2617,9 @@ Partial Class PopUpVerFactura Dim ObjVentas As New ClsVentas Dim Vta As Modelos.Factura = Nothing + Dim PathArchivo As String = "" 'String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio) + + Dim TmpDTImpuestos = New DataTable TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String)) TmpDTImpuestos.Columns.Add("Importe", GetType(Double)) @@ -2613,233 +2638,254 @@ Partial Class PopUpVerFactura Vta = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.Factura) - Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString - 'se rellena la sucursal - 'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel) - Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero() + PathArchivo = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio) + Dim Archivo As New System.IO.FileInfo(PathArchivo) - Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero()) + 'SI EL ARCHIVO NO EXISTE O SE VA REGENERA EL PDF, SE DEBEN LLENAR LOS DATOS + If Not Archivo.Exists OrElse RegenerarPDF Then + Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString + 'se rellena la sucursal + 'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel) + Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero() - Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) - 'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) - Vta.Cliente = New Modelos.ClienteModel - Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString - Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString - Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString - Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString - Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString - Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString - Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString - Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString - Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString - Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString - Vta.AtencionA = dtVentas(0)("AtencionA").ToString - Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString - Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString - Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString - Vta.Cliente.Mail = dtVentas(0)("Mail").ToString - Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString - Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString - Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString + Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero()) + + Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) + 'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) + Vta.Cliente = New Modelos.ClienteModel + Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString + Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString + Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString + Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString + Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString + Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString + Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString + Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString + Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString + Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString + Vta.AtencionA = dtVentas(0)("AtencionA").ToString + Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString + Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString + Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString + Vta.Cliente.Mail = dtVentas(0)("Mail").ToString + Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString + Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString + Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString - Vta.RefDocto = dtVentas(0)("Ref").ToString - Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero - Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString - Vta.Version = dtVentas(0)("CFDIVersion").ToString + Vta.RefDocto = dtVentas(0)("Ref").ToString + Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero + Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString + Vta.Version = dtVentas(0)("CFDIVersion").ToString - Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString - Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString - Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString} - {dtVentas(0)("NumeroLicitacion").ToString}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString} {If(dtVentas(0)("NumeroLicitacion").ToString = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString}")}") + Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString + Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString + Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString} - {dtVentas(0)("NumeroLicitacion").ToString}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString} {If(dtVentas(0)("NumeroLicitacion").ToString = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString}")}") - Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }") - Vta.Kilometraje = If(dtVentas(0)("Kilometraje").ToString = "", -1, dtVentas(0)("Kilometraje").ToString.ToDecimal) - 'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString + Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }") + Vta.Kilometraje = If(dtVentas(0)("Kilometraje").ToString = "", -1, dtVentas(0)("Kilometraje").ToString.ToDecimal) + 'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString - Vta.ClienteSucursal = New Modelos.SucursalModel - Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString - Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString - Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString - Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString - Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString - Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString - Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString - Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString - Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString - Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString - Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString - Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString - Vta.ClienteSucursal.ImprimeNombreSucursal = dtVentas(0)("ImprimeNombreSucursal").ToString + Vta.ClienteSucursal = New Modelos.SucursalModel + Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString + Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString + Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString + Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString + Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString + Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString + Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString + Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString + Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString + Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString + Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString + Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString + Vta.ClienteSucursal.ImprimeNombreSucursal = dtVentas(0)("ImprimeNombreSucursal").ToString - Vta.EnviarA = New Modelos.EnviarAModel - Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero - Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString - Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString - Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString - Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString - Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString - Vta.EnviarA.EnvioTel = dtVentas(0)("EnvioTel").ToString + Vta.EnviarA = New Modelos.EnviarAModel + Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero + Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString + Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString + Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString + Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString + Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString + Vta.EnviarA.EnvioTel = dtVentas(0)("EnvioTel").ToString - Vta.EnviarA.EnvioNoExt = dtVentas(0)("EnvioNoExt").ToString - Vta.EnviarA.EnvioNoInt = dtVentas(0)("EnvioNoInt").ToString - Vta.EnviarA.EnvioContacto = dtVentas(0)("EnvioContacto").ToString - Vta.EnviarA.EnvioDepartamento = dtVentas(0)("EnvioDepartamento").ToString + Vta.EnviarA.EnvioNoExt = dtVentas(0)("EnvioNoExt").ToString + Vta.EnviarA.EnvioNoInt = dtVentas(0)("EnvioNoInt").ToString + Vta.EnviarA.EnvioContacto = dtVentas(0)("EnvioContacto").ToString + Vta.EnviarA.EnvioDepartamento = dtVentas(0)("EnvioDepartamento").ToString - 'Vta.EnviarA.EnvioPedidoContrato = dtVentas(0)("EnvioPedidoContrato").ToString + 'Vta.EnviarA.EnvioPedidoContrato = dtVentas(0)("EnvioPedidoContrato").ToString - 'INE COMPLEMENTO - If dtVentas(0)("TipoComite").ToString <> "" Then - Dim INE As New Modelos.ComplementoINE - INE.INETipoComite = dtVentas(0)("TipoComite").ToString - INE.INETipoProceso = dtVentas(0)("TipoProceso").ToString - INE.INEIdContabilidad = dtVentas(0)("IdContabilidad").ToString.ToEntero - Vta.ComplementoINE = INE - End If + 'INE COMPLEMENTO + If dtVentas(0)("TipoComite").ToString <> "" Then + Dim INE As New Modelos.ComplementoINE + INE.INETipoComite = dtVentas(0)("TipoComite").ToString + INE.INETipoProceso = dtVentas(0)("TipoProceso").ToString + INE.INEIdContabilidad = dtVentas(0)("IdContabilidad").ToString.ToEntero + Vta.ComplementoINE = INE + End If - Dim DR As DataRow = TmpDTImpuestos.NewRow() - If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR) + Dim DR As DataRow = TmpDTImpuestos.NewRow() + If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR) - 'solo para eclipse, que muesre un subtotal debajo de IVA - If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() + 'solo para eclipse, que muesre un subtotal debajo de IVA + If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() - If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra - Vta.DtDetalle = ObjVentas.DtResultados - End If + If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra + Vta.DtDetalle = ObjVentas.DtResultados + End If - If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then + If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then - Dim dtImpuesto As DataTable = ObjVentas.DtResultados - If dtImpuesto.Rows.Count > 0 Then - For Each Row As DataRow In dtImpuesto.Rows - Dim Orden = 80 - If Row("Importe").ToString.ToDouble <> 0 Then - DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString - DR("Importe") = Row("Importe").ToString.ToDouble - DR("Orden") = Orden - TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - Orden = Orden + 1 + Dim dtImpuesto As DataTable = ObjVentas.DtResultados + If dtImpuesto.Rows.Count > 0 Then + For Each Row As DataRow In dtImpuesto.Rows + Dim Orden = 80 + If Row("Importe").ToString.ToDouble <> 0 Then + DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString + DR("Importe") = Row("Importe").ToString.ToDouble + DR("Orden") = Orden + TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + Orden = Orden + 1 + End If + Next + End If + Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC") + + End If + + 'TmpDT DESGLOSE DE IMPUESTOS 3.3 + For Each dr1 As DataRow In Vta.DtDetalle.Rows + Dim DrIVA As DataRow = Nothing + Dim DrIEPS As DataRow = Nothing + + Try + DrIVA = TmpDTImpuestosIVAIEPS.Select("Impuesto = 'IVA'")(0) + Catch ex As Exception + DrIVA = Nothing + End Try + + If DrIVA IsNot Nothing Then + DrIVA("Importe") = DrIVA("Importe").ToString.ToDouble + dr1("ImporteIVA").ToString.ToDouble + TmpDTImpuestosIVAIEPS.AcceptChanges() + Else + Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() + If dr1("PorcentajeIVA").ToString.ToDouble > 0 Then + DR2("Impuesto") = "IVA" : DR2("tasa") = String.Format("{0} %", dr1("PorcentajeIVA").ToString.ToDouble() * 100) : DR2("Importe") = dr1("ImporteIVA").ToString.ToDouble : DR2("Orden") = "1" + TmpDTImpuestosIVAIEPS.Rows.Add(DR2) + TmpDTImpuestosIVAIEPS.AcceptChanges() End If - Next - End If - Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC") + End If - End If + Try + DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{dr1("PorcentajeIEPS").ToString.ToDouble * 100} %'")(0) + Catch ex As Exception + DrIEPS = Nothing + End Try - 'TmpDT DESGLOSE DE IMPUESTOS 3.3 - For Each dr1 As DataRow In Vta.DtDetalle.Rows - Dim DrIVA As DataRow = Nothing - Dim DrIEPS As DataRow = Nothing - - Try - DrIVA = TmpDTImpuestosIVAIEPS.Select("Impuesto = 'IVA'")(0) - Catch ex As Exception - DrIVA = Nothing - End Try - - If DrIVA IsNot Nothing Then - DrIVA("Importe") = DrIVA("Importe").ToString.ToDouble + dr1("ImporteIVA").ToString.ToDouble - TmpDTImpuestosIVAIEPS.AcceptChanges() - Else - Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() - If dr1("PorcentajeIVA").ToString.ToDouble > 0 Then - DR2("Impuesto") = "IVA" : DR2("tasa") = String.Format("{0} %", dr1("PorcentajeIVA").ToString.ToDouble() * 100) : DR2("Importe") = dr1("ImporteIVA").ToString.ToDouble : DR2("Orden") = "1" - TmpDTImpuestosIVAIEPS.Rows.Add(DR2) + If DrIEPS IsNot Nothing Then + DrIEPS("Importe") = DrIEPS("Importe").ToString.ToDouble + dr1("ImporteIEPS").ToString.ToDouble TmpDTImpuestosIVAIEPS.AcceptChanges() + Else + Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() + If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then + DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.03, "2", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.06, "3", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.07, "4", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.09, "5", "")))) + TmpDTImpuestosIVAIEPS.Rows.Add(DR2) + TmpDTImpuestosIVAIEPS.AcceptChanges() + End If End If + + Next + + Vta.DtDesgloseImpuestos = TmpDTImpuestosIVAIEPS.FiltraParametros("", Orderby:="Orden ASC") + + If ObjVentas.GetVentasFirmas(CveVenta) Then + Vta.DtFirmas = ObjVentas.DtResultados End If - Try - DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{dr1("PorcentajeIEPS").ToString.ToDouble * 100} %'")(0) - Catch ex As Exception - DrIEPS = Nothing - End Try - If DrIEPS IsNot Nothing Then - DrIEPS("Importe") = DrIEPS("Importe").ToString.ToDouble + dr1("ImporteIEPS").ToString.ToDouble - TmpDTImpuestosIVAIEPS.AcceptChanges() - Else - Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() - If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then - DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.03, "2", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.06, "3", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.07, "4", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.09, "5", "")))) - TmpDTImpuestosIVAIEPS.Rows.Add(DR2) - TmpDTImpuestosIVAIEPS.AcceptChanges() + 'CFDI RELACIONADO + If dtVentas(0)("CveTipoRelacion").ToString.ToEntero > 0 Then + Vta.Timbre.Comprobante.TipoComprobante = If(Vta.TipoDocto.Contiene("Ing", "Ant"), "I", If(Vta.TipoDocto.Contiene("Egs", "Dev"), "E", "")) + If Vta.Timbre.Comprobante.TipoComprobante = "E" Then + If Vta.TipoDocto.Contiene("Egs") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" + End If + If Vta.TipoDocto.Contiene("Dev") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" + End If + Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString) End If + ' cuando es refacturacoin es cfdirelacionado, con relacion 04 + If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "04" + Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString) + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Sustitución de los CFDI Previos" + End If + + If UsuarioActual.Empresa.Funcionalidad(592) = "1" Then + + Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}") + + Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() + + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + End If + + End If + End If - Next - - Vta.DtDesgloseImpuestos = TmpDTImpuestosIVAIEPS.FiltraParametros("", Orderby:="Orden ASC") - - If ObjVentas.GetVentasFirmas(CveVenta) Then - Vta.DtFirmas = ObjVentas.DtResultados - End If - - - 'CFDI RELACIONADO - If dtVentas(0)("CveTipoRelacion").ToString.ToEntero > 0 Then - Vta.Timbre.Comprobante.TipoComprobante = If(Vta.TipoDocto.Contiene("Ing", "Ant"), "I", If(Vta.TipoDocto.Contiene("Egs", "Dev"), "E", "")) - If Vta.Timbre.Comprobante.TipoComprobante = "E" Then - If Vta.TipoDocto.Contiene("Egs") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" - End If - If Vta.TipoDocto.Contiene("Dev") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" - End If - Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString) - End If - ' cuando es refacturacoin es cfdirelacionado, con relacion 04 + 'If UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "04" - Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString) - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Sustitución de los CFDI Previos" - End If - - If UsuarioActual.Empresa.Funcionalidad(592) = "1" Then - - Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}") - - Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() - - If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If ObjVentas.GetVentaRefacturacion(dtVentas(0)("CveVentaPadre").ToString.ToEntero) Then + If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal)) + ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total") + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtNCVinculadas = ObjVentas.DtResultados + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then + If Vta.TipoDocto.Contiene("Dev") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" + End If + End If + End If + End If End If + Else - End If + If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then - End If - - 'If UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then - If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then - If ObjVentas.GetVentaRefacturacion(dtVentas(0)("CveVentaPadre").ToString.ToEntero) Then - If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal)) - ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total") - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then Vta.DtNCVinculadas = ObjVentas.DtResultados Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") @@ -2852,20 +2898,22 @@ Partial Class PopUpVerFactura End If End If End If - Else - 'If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then - ' 'carga as notas de credito vinculadas - ' If ObjVentas.GetVentasAntNC(CveVenta, -1) Then - ' Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") - ' End If - 'End If - - If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (Vta.DtDocumentosRelacionados Is Nothing OrElse Vta.DtDocumentosRelacionados.Rows.Count = 0) Then If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then Vta.DtNCVinculadas = ObjVentas.DtResultados - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados '.FiltraParametros("FolioFiscal IS NOT NULL") If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then + If Vta.TipoDocto.Contiene("Ing") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" + End If + + If Vta.TipoDocto.Contiene("Egs") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" + End If + If Vta.TipoDocto.Contiene("Dev") Then Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" @@ -2873,96 +2921,50 @@ Partial Class PopUpVerFactura End If End If End If - End If - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (Vta.DtDocumentosRelacionados Is Nothing OrElse Vta.DtDocumentosRelacionados.Rows.Count = 0) Then - If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - Vta.DtNCVinculadas = ObjVentas.DtResultados - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados '.FiltraParametros("FolioFiscal IS NOT NULL") - If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then - If Vta.TipoDocto.Contiene("Ing") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" - End If + 'SI ES TIPO RELACION 07- APLICACION DE ANTICIPOS + If dtVentas(0)("CveTipoRelacion").ToString.ToEntero = 7 Then + Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}") - If Vta.TipoDocto.Contiene("Egs") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" - End If + Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() - If Vta.TipoDocto.Contiene("Dev") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" - End If + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") End If End If + End If - 'SI ES TIPO RELACION 07- APLICACION DE ANTICIPOS - If dtVentas(0)("CveTipoRelacion").ToString.ToEntero = 7 Then - Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}") - - Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() - - If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") - End If - End If - - 'End If - - 'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then - ' 'If ObjVentas.GetVentasAntNC(-1, CveVenta) Then - ' ' Vta.DtNCVinculadas = ObjVentas.DtResultados - ' 'End If - ' If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - ' Vta.DtNCVinculadas = ObjVentas.DtResultados - ' End If - 'End If - End If ObjVentas.Dispose() - Dim CveTimbreCartaPorteVenta As Integer = -1 - Dim CartaPorte As Modelos.MSubReportData = Nothing - - If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Ing" Then - Using ObjGral As New ClsGenerales - If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then - Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0) - CveTimbreCartaPorteVenta = RowCP("CveTimbre").ToString().ToEntero() - End If - End Using - - If CveTimbreCartaPorteVenta > 0 Then - 'CartaPorte = New Modelos.MSubReportData - 'CartaPorte.Parametros.Add(New ReportParameter("SRP_ParametroPrueba", "Rarametro pasado")) - 'Dim dt As New DataTable() - 'dt.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) - 'dt.Columns.Add(New DataColumn("Unidad", GetType(String))) - - 'Dim row As DataRow = dt.NewRow() - 'row("Cantidad") = 2.3D - 'row("Unidad") = "PIEZAS" - - 'dt.Rows.Add(row) - 'CartaPorte.DataSources.Add(New ReportDataSource() With {.Name = "DataSet1", .Value = dt}) - - CartaPorte = PreParaImpresionCartaPorte(CveTimbreCartaPorteVenta, AplicaSubReporte:=True) - Else - CartaPorte = New Modelos.MSubReportData() - CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False")) - End If - End If - - Dim Guardar As Boolean = If(GuardarPDF, True, If(AplicaPagare = "1", False, True)) - If Not IsNothing(Vta) Then - - Dim PathArchivo As String = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio) Dim Archivo As New System.IO.FileInfo(PathArchivo) + Dim Guardar As Boolean = If(GuardarPDF, True, If(AplicaPagare = "1", False, True)) + + Dim CveTimbreCartaPorteVenta As Integer = -1 + Dim CartaPorte As Modelos.MSubReportData = Nothing + 'SI EL ARCHIVO NO EXISTE O SE VA REGENERA EL PDF, SE DEBEN LLENAR LOS DATOS + If Not Archivo.Exists OrElse RegenerarPDF Then + If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Ing" Then + Using ObjGral As New ClsGenerales + If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then + Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0) + CveTimbreCartaPorteVenta = RowCP("CveTimbre").ToString().ToEntero() + End If + End Using + + If CveTimbreCartaPorteVenta > 0 Then + CartaPorte = PreParaImpresionCartaPorte(CveTimbreCartaPorteVenta, AplicaSubReporte:=True) + Else + CartaPorte = New Modelos.MSubReportData() + CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False")) + End If + End If + End If + If Archivo.Exists Then If RegenerarPDF Then Archivo.Delete() diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 09deb5ebe..3c9bf20ce 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -1,6 +1,6 @@  -Imports Extensiones Imports System.Data +Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Compras_ReembolsosComprobaciones @@ -1424,7 +1424,7 @@ Partial Class Compras_ReembolsosComprobaciones GvCxP.Visible = True - ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim)) + ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), OpcionSaldo:=1) DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0") GvCxP.DataSource = DtDatos CvePrePolizaComprobacion = DtDatos.MAX("CvePrePolizaComprobacion").ToEntero diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index 3c1bb16b5..bef7e5cdb 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/Compras/RepRembolsoComprobaciones.aspx.vb @@ -261,7 +261,7 @@ Partial Class Compras_RepRembolsoComprobaciones Dim FechaI As DateTime = If(String.IsNullOrEmpty(txtFechaI.Text.Trim()), ModExtensiones.MinFecha, txtFechaI.Text.ToDateTime()) Dim FechaF As DateTime = If(String.IsNullOrEmpty(txtFechaF.Text.Trim()), ModExtensiones.MaxFecha, txtFechaF.Text.ToDateTime()) - ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF) + ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1) DtDatos = ObjMovtos.DtResultados GvCxP.DataSource = DtDatos diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index f12ed7e4d..104f5bc38 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2,15 +2,15 @@ Option Explicit On Imports System.Data -Imports Extensiones Imports System.Diagnostics +Imports System.Globalization Imports System.IO Imports System.IO.Compression Imports System.Xml -Imports Microsoft.Reporting.WebForms -Imports System.Globalization Imports ADSistemaLibrary.SatXml Imports ADSistemaLibrary.SatXml.XmlSatCFDI +Imports Extensiones +Imports Microsoft.Reporting.WebForms Partial Class Compras_eFacturas Inherits ClsPaginas diff --git a/Contabilidad/ContabilizacionVentas.aspx.cs b/Contabilidad/ContabilizacionVentas.aspx.cs index 694c0a2f2..d971144cb 100644 --- a/Contabilidad/ContabilizacionVentas.aspx.cs +++ b/Contabilidad/ContabilizacionVentas.aspx.cs @@ -1,7 +1,7 @@ -using System; -using System.Web.UI.WebControls; -using Extensiones; +using Extensiones; +using System; using System.Data; +using System.Web.UI.WebControls; public partial class Contabilidad_ContabilizacionVentas : ClsPaginas { @@ -42,16 +42,16 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas TienePermisoVerPoliza = true; } - if (UsuarioActual.Empresa.TipoContabilizacion != 1 ) + if (UsuarioActual.Empresa.TipoContabilizacion != 1) { - + ClsContPAQi ObjCont = new ClsContPAQi(UsuarioActual.Empresa); ObjCont.GetCuentas(-1, "-1", -1); string[] columnas = new string[3] { "Id", "CuentaFormato", "Nombre" }; DTmpC = ObjCont.DtResultados.FiltraParametros("", "", columnas); ObjCont.Dispose(); - + } //else //{ @@ -258,7 +258,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas ClsContabilidad cont = new ClsContabilidad(); // Cargamos las ventas - if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 4, FechaI, FechaF, CveMoneda: DdlMoneda.SelectedValue.ToEntero(),EstatusContabilizacion:DdlEstatusContabilizacion.SelectedValue.ToEntero(),CveSubProyecto:DdlSubProyecto.SelectedValue.ToEntero())) + if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 4, FechaI, FechaF, CveMoneda: DdlMoneda.SelectedValue.ToEntero(), EstatusContabilizacion: DdlEstatusContabilizacion.SelectedValue.ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { if (DdlClientes.SelectedValue.ToEntero() > 0) { @@ -286,7 +286,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas } // Cargamos los anticipos - if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 12, FechaI, FechaF, EstatusContabilizacion: DdlEstatusContabilizacion.SelectedValue.ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 12, FechaI, FechaF, EstatusContabilizacion: DdlEstatusContabilizacion.SelectedValue.ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { if (DdlClientes.SelectedValue.ToEntero() > 0) { @@ -336,7 +336,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas int cvecuenta = e.Row.DataKey("CveCuenta").ToString().ToEntero(); int CveConcepto = e.Row.DBCampo("CveConceptoContable").ToEntero(); - if (CveConcepto.Contiene(5, 6, 14, 19, 17, 206, 25, 26,272,275, 305,306,307,308,309,310,311,312 )) + if (CveConcepto.Contiene(5, 6, 14, 19, 17, 206, 25, 26, 272, 275, 305, 306, 307, 308, 309, 310, 311, 312)) { e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra")); } @@ -352,7 +352,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas { e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen")); } - if (CveConcepto.Contiene(28,29)) + if (CveConcepto.Contiene(28, 29)) { e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/RH/Personal.aspx?CvePersonal={0}", e.Row.DBCampo("CvePersonal")); } @@ -386,7 +386,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas } } - + if (Convert.ToDecimal(e.Row.DataKey("Cargo").ToString()) == 0) e.Row.Cells[4].Text = ""; if (Convert.ToDecimal(e.Row.DataKey("Abono").ToString()) == 0) e.Row.Cells[5].Text = ""; @@ -412,9 +412,9 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas if (ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa)) { - if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza,5))// por default manda la opcion 5, para ajustar a fluctuacion + if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5))// por default manda la opcion 5, para ajustar a fluctuacion { - + } Alert("Se ha simplificado la poliza correctamente", ModExtensiones.TipoMensaje.MsgInformacion); } diff --git a/Contabilidad/DiarioPagos.aspx.vb b/Contabilidad/DiarioPagos.aspx.vb index 08f6e4059..54ffcf3c7 100644 --- a/Contabilidad/DiarioPagos.aspx.vb +++ b/Contabilidad/DiarioPagos.aspx.vb @@ -1,6 +1,6 @@ Imports System.Data -Imports Extensiones Imports System.Web.Services +Imports Extensiones Partial Class Contabilidad_DiarioPagos Inherits ClsPaginas @@ -927,7 +927,7 @@ Partial Class Contabilidad_DiarioPagos If SimplificaRetIVA = False Then CompraRetIVA = CompraPagadoRetIVA 'no registra la retencion de iva al pagar - If UsuarioActual.CveEmpresa = 13 Then IdCuentaRetIVA = 0 : IdCuentaRetIVACirculacion = 0 + If UsuarioActual.CveEmpresa = 13 Then IdCuentaRetIVACirculacion = 0 ConceptoTmp = If(CveMoneda = 2, String.Format("{0} TC {1}", ConceptoDetalle, TipoCambioFechaCompra), ConceptoDetalle) diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 6e3813cef..c03c6c64e 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -1,11 +1,9 @@  Imports System.Data -Imports Extensiones -Imports System.Linq -Imports System.Web.Services -Imports GemBox.Spreadsheet Imports System.IO +Imports Extensiones +Imports GemBox.Spreadsheet Imports iTextSharp.text.pdf Imports Microsoft.Reporting.WebForms diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index b3bc6296c..8dc963d5d 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1,12 +1,8 @@  Imports System.Data Imports Extensiones -Imports System.Linq -Imports System.Web.Services Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms -Imports System.IO -Imports iTextSharp.text.pdf Partial Class ContabilidadC_RegPrePolizaS Inherits ClsPaginas @@ -1758,9 +1754,9 @@ Partial Class ContabilidadC_RegPrePolizaS DdlClientesE.SelectedText = "" End If - RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal") - End If - UpPrePoliza.Update() + RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal") + End If + UpPrePoliza.Update() End Sub Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting @@ -2264,7 +2260,7 @@ Partial Class ContabilidadC_RegPrePolizaS If Not ErrorArchivo Then If Not dt.Columns(0).ColumnName.ToUpper = "CONCEPTOADMINISTRATIVO" Then - Alert("El nombre de la primera columna debe ser 'ConceptoAdmin'. Favor de corregirlo", TipoMensaje.MsgError) + Alert("El nombre de la primera columna debe ser 'ConceptoAdministrativo'. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If If Not dt.Columns(1).ColumnName.ToUpper = "CUENTA" Then diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index 2382051b3..c37d1511e 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -1,5 +1,4 @@ Imports System.Data -Imports System.Linq Imports Extensiones Partial Class Contabilidad2_CatCuentasAsignaciones diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index c920c753a..e1e2df363 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -1,12 +1,12 @@ Option Explicit On Option Strict On -Imports Extensiones -Imports System.IO Imports System.Data -Imports Microsoft.Reporting.WebForms Imports System.Globalization +Imports System.IO +Imports Extensiones Imports GemBox.Spreadsheet +Imports Microsoft.Reporting.WebForms Partial Class Contratos_ContratoObra Inherits ClsPaginas diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index c0d5100a4..fcbbe1977 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -6,8 +6,8 @@ Imports System.IO Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class RepCxC - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "P R O P I E D A D E S" Private Property DtDatos As DataTable Get @@ -93,11 +93,11 @@ Partial Class RepCxC Set(value As DataTable) ViewState("DtGrafica") = value End Set - End Property - + End Property + #End Region - - + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then Index = 0 @@ -110,8 +110,8 @@ Partial Class RepCxC If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True CreaDataTableColor() End If - End Sub - + End Sub + #Region "CARGAS" Private Sub CargaCombos() 'CargaClientes @@ -321,22 +321,22 @@ Partial Class RepCxC GvDatos.DataBind() ActualizarDatatable(NumCol) Agrupador = DdlGrupo.SelectedItem.Text - End Sub - + End Sub + #End Region - + #Region "CONSULTAR" - + Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click CargaDatos() UPDatos.Update() ActivaEnviarEstadoCuenta() - End Sub - + End Sub + #End Region - + #Region "GRIDVIEW" - + Protected Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated If e.Row.RowType = DataControlRowType.Header Then Dim FC As New SortedList @@ -598,10 +598,10 @@ Partial Class RepCxC If e.Row.FCHyperLink("LtlVentas").Text.ToDouble = 0 Then e.Row.FCHyperLink("LtlVentas").Text = "-" End If - End Sub - + End Sub + #End Region - + #Region "PERSONALIZAR COLUMNAS" Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click @@ -634,10 +634,10 @@ Partial Class RepCxC End If UPDatos.Update() - End Sub - + End Sub + #End Region - + #Region "IMPRESIONES" Private Sub ActualizarDatatable(NumCol As Integer) @@ -743,12 +743,12 @@ Partial Class RepCxC Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) End If - End Sub - + End Sub + #End Region - + #Region "TIPO DE CAMBIO" - + Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged If RblTipoCambio.SelectedValue.ToEntero = 3 Then Dim TipoCambio As Double @@ -765,13 +765,13 @@ Partial Class RepCxC CargaDatos() RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio")) UPDatos.Update() - End Sub - - + End Sub + + #End Region - + #Region "PERSONALIZAR RANGO COLUMNAS" - + Protected Sub GvPersonalizarRango_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then If Not e.Row.DBCampo("RangoFinal").ToDouble > 0 Then @@ -927,10 +927,10 @@ Partial Class RepCxC End If ObjComp.Dispose() UPDatos.Update() - End Sub - + End Sub + #End Region - + #Region " ENVIAR ESTADO DE CUENTA " Private Sub ActivaEnviarEstadoCuenta() LBEnviarSMS.Visible = DdlGrupo.SelectedValue = "5" And UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12) @@ -1052,11 +1052,11 @@ Partial Class RepCxC Catch ex As Exception OnError("Ocurrió error al mandar el Mail", ex) End Try - End Sub + End Sub #End Region - + #Region "DESCARGA TXT SEGMENTOS" - + Protected Sub LnkDescargarSegmentos_Click(sender As Object, e As EventArgs) Dim ObjMov As New ClsMovimientos If ObjMov.GetDescargaSegmentos(UsuarioActual.CveEmpresa) Then @@ -1216,13 +1216,13 @@ Partial Class RepCxC End If ObjMov.Dispose() - End Sub - - + End Sub + + #End Region - + #Region "GRAFICA" - + Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs) If Not DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia) @@ -1425,13 +1425,13 @@ Partial Class RepCxC End Sub Protected Sub DdlMostrarGraficaTotales_SelectedIndexChanged(sender As Object, e As EventArgs) CambioGrafica(DdlVer.SelectedValue.ToEntero) - End Sub - - + End Sub + + #End Region - + #Region "SELECTED INDEX CHANGE" - + Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) CargaClientes() End Sub @@ -1443,9 +1443,9 @@ Partial Class RepCxC DdlClientesWS.DataBind() DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) End If - End Sub - + End Sub + #End Region - - + + End Class \ No newline at end of file diff --git a/Empresas/1/Formatos/Factura.rdlc b/Empresas/1/Formatos/Factura.rdlc index 4b7164339..677f609ca 100644 --- a/Empresas/1/Formatos/Factura.rdlc +++ b/Empresas/1/Formatos/Factura.rdlc @@ -1,4478 +1,4490 @@ - - - - - - true - - - - - EXPLORACIONES MINERAS DEL DESIERTO S.A. - - - - - - - - - DE C.V. RFC: EMD950206SRA - - - - - - - - - Tipo de Comprobante: I - Ingreso - - - - - - - - - Del Cobre No. 95 Col. Parque Industrial Hermosillo, Sonora. México, C.P. 83299 - - - - - - - - - Tel. 6622510249 - - - - - - - - - Régimen Fiscal: 601 - General de Ley Personas Morales - - - - - - - Textbox4 - 1.83923in - 1.10377in - 6.21276in - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo1 - FitProportional - 0.65302cm - 2.88998cm - 3.84225cm - 1 - - - - - - true - true - - - - - Nombre: - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 1.50708cm - - - 1.63629cm - - - 1.29788cm - - - 1.66402cm - - - 8.32569cm - - - 1.42482cm - - - 1.73271cm - - - 2.4815cm - - - - - 0.74994cm - - - - - true - - - - - Cantidad - - - - - - - Textbox34 - - - - Black - - - - Black - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Codigo - - - - - - - Textbox15 - - - - Black - - - - Black - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - C.U. SAT - - - - - - - Textbox75 - - - - Black - - - - Black - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Clave - - - - - - - - - Producto - - - - - - - Textbox82 - - - - Black - - - - Black - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Descripción - - - - - - - Textbox79 - - - - Black - - - - Black - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - P.U. - - - - - - - Textbox84 - - - - Black - - - - Black - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Impuestos - - - - - - - Textbox91 - - - - Black - - - - Black - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Importe - - - - - - - - - - - - - - - - Black - - - - Black - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.48536cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - - #4f81bd - - - #4f81bd - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SATClaveProdServ.Value - - - - - - - SATClaveProdServ - - - - #4f81bd - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SATClaveUM.Value - - - - - - - SATClaveUM - - - - #4f81bd - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - - #4f81bd - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value & " " & Fields!Obs.Value - - - - - - - #4f81bd - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteIVA.Value - - - - - - - ImporteIVA - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value*Fields!PU.Value - - - - - - - Textbox88 - - - - #4f81bd - - - #4f81bd - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 6.28717cm - 0.44641cm - 1.2353cm - 20.06999cm - 4 - - - - - - true - true - - - - - =Parameters!ClienteDatoExtra1.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 3.15414cm - - - - - 0.27059cm - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - 0.38492cm - - - - - true - true - - - - - =Replace(Parameters!Moneda.Value,"Pesos","Peso mexicano") - - - - - - - Textbox47 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - =Fields!ImpuestoLocal.Value - - - - 2.52863cm - - - true - true - - - - - =Fields!ImpuestoLocal.Value - - - - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 2.52863cm - - - true - true - - - - - Moneda - - - - - - White - 2pt - 2pt - 2pt - 2pt - - - - - Before - - - - DataSet1 - 7.71422cm - 14.83363cm - 0.65551cm - 5.68277cm - 6 - - - - - - true - true - - - - - Folio Factura - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) - - - - - - - Textbox3 - 2.79612cm - 17.39754cm - 0.41303cm - 3.066cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Fecha.Value - - - - - - - Textbox12 - 3.22326cm - 17.39754cm - 0.42714cm - 3.066cm - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Lugar de Expedición - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - 83299 - - - - - - - Textbox55 - 3.75976cm - 17.39754cm - 0.46681cm - 3.05452cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Forma de Pago - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FormaPago.Value - - - - - - - Textbox3 - 3.0229cm - 4.48098cm - 0.42944cm - 6.76133cm - 14 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Método de Pago - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) - - - - - - - Textbox3 - 3.46998cm - 4.48098cm - 0.40122cm - 6.76133cm - 16 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Moneda - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Moneda.Value - - - - - - - - Tipo de Cambio - - - - - - - - =Parameters!TipoCambio.Value - - - - - - - - - - - Textbox3 - 3.95234cm - 4.48098cm - 0.43297cm - 6.76133cm - 18 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Datos del Cliente - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - R.F.C.: - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ClienteRFC.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Uso CFDI: - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!UsoCFDI.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Domicilio: - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ClienteDireccion.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - OBSERVACIONES GENERALES: - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - - Textbox3 - 7.54478cm - 5.057cm - 0.44003cm - 9.60024cm - 27 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ImporteLetra.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Importe Con Letra: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!QR.Value - FitProportional - 3.40943in - 0.22897in - 1.14694in - 1.34784in - 30 - - - - - - true - true - - - - - Serie del Certificado del Emisor - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Folio Fiscal - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - No. de Serie del Certificado de l SAT - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha y Hora de Certificación - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CertificadoContribuyente.Value - - - - - - - Textbox2 - 9.29495cm - 14.82657cm - 0.35889cm - 5.62289cm - 35 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FolioFiscal.Value - - - - - - - Textbox2 - 9.67148cm - 14.82657cm - 0.40122cm - 5.62289cm - 36 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - - Textbox2 - 10.05859cm - 14.82657cm - 0.3536cm - 5.62289cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaCertificacion.Value - - - - - - - Textbox2 - 10.41395cm - 14.82657cm - 0.31479cm - 5.62289cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Este documento es una representación impresa de un CFDI - - - - - - - - - Version 3.3 - - - - - - - Textbox19 - 4.27878in - 9.81667cm - 0.34009in - 4.18614in - 39 - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SelloCFDI.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sello Digital del CFDI - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SelloSAT.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sello SAT - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CadenaSAT.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Cadena Original del Complemento del Certificación Digital del SAT - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - CFDI Relacionados - - - - - - - Textbox5 - 0.14926cm - 0.9525cm - 0.46066cm - 18.98926cm - - - White - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tipo Relación: - - - - - - - Textbox29 - 0.735cm - 4.71624cm - 0.41981cm - 5.31841cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!TipoRelacionTexto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.42456cm - - - 2.05585cm - - - 3.03631cm - - - 7.7847cm - - - - - 0.44125cm - - - - - true - true - - - - - Folio - - - - - - - Textbox10 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox12 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox21 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Folio Fiscal - - - - - - - Textbox11 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.41479cm - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Fecha.Value - - - - - - - Fecha - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FolioFiscal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet4 - 1.39643cm - 3.2145cm - 0.85604cm - 15.30142cm - 3 - - - - - - true - 14.54249cm - 0.07193cm - 2.25247cm - 20.37753cm - 46 - - =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) - - - - - - - 16.79496cm - - - - - - - Textbox3 - 0.04232cm - 16.34905cm - 0.6cm - 3.95896cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 1cm - 0.5cm - 1.27cm - + + + + + + + + DE C.V. RFC: EMD950206SRA + + + + + + + + + Tipo de Comprobante: I - Ingreso + + + + + + + + + Del Cobre No. 95 Col. Parque Industrial Hermosillo, Sonora. México, C.P. 83299 + + + + + + + + + Tel. 6622510249 + + + + + + + + + Régimen Fiscal: 601 - General de Ley Personas Morales + + + + + + + Textbox4 + 1.83923in + 1.10377in + 6.21276in + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo1 + FitProportional + 0.65302cm + 2.88998cm + 3.84225cm + 1 + + + + + + true + true + + + + + Nombre: + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 1.50708cm + + + 1.63629cm + + + 1.29788cm + + + 1.66402cm + + + 8.32569cm + + + 1.42482cm + + + 1.73271cm + + + 2.4815cm + + + + + 0.74994cm + + + + + true + + + + + Cantidad + + + + + + + Textbox34 + + + + Black + + + + Black + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Codigo + + + + + + + Textbox15 + + + + Black + + + + Black + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + C.U. SAT + + + + + + + Textbox75 + + + + Black + + + + Black + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Clave + + + + + + + + + Producto + + + + + + + Textbox82 + + + + Black + + + + Black + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox79 + + + + Black + + + + Black + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + P.U. + + + + + + + Textbox84 + + + + Black + + + + Black + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Impuestos + + + + + + + Textbox91 + + + + Black + + + + Black + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Importe + + + + + + + + + + + + + + + + Black + + + + Black + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.48536cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + + #4f81bd + + + #4f81bd + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveProdServ.Value + + + + + + + SATClaveProdServ + + + + #4f81bd + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveUM.Value + + + + + + + SATClaveUM + + + + #4f81bd + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + + #4f81bd + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + + #4f81bd + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteIVA.Value + + + + + + + ImporteIVA + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value*Fields!PU.Value + + + + + + + Textbox88 + + + + #4f81bd + + + #4f81bd + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 6.28717cm + 0.44641cm + 1.2353cm + 20.06999cm + 4 + + + + + + true + true + + + + + =Parameters!ClienteDatoExtra1.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 3.15414cm + + + + + 0.27059cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + 0.38492cm + + + + + true + true + + + + + =Replace(Parameters!Moneda.Value,"Pesos","Peso mexicano") + + + + + + + Textbox47 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.52863cm + + + true + true + + + + + =Fields!ImpuestoLocal.Value + + + + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 2.52863cm + + + true + true + + + + + Moneda + + + + + + White + 2pt + 2pt + 2pt + 2pt + + + + + Before + + + + DataSet1 + 7.71422cm + 14.83363cm + 0.65551cm + 5.68277cm + 6 + + + + + + true + true + + + + + Folio Factura + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) + + + + + + + Textbox3 + 2.79612cm + 17.39754cm + 0.41303cm + 3.066cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox12 + 3.22326cm + 17.39754cm + 0.42714cm + 3.066cm + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Lugar de Expedición + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 83299 + + + + + + + Textbox55 + 3.75976cm + 17.39754cm + 0.46681cm + 3.05452cm + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Forma de Pago + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FormaPago.Value + + + + + + + Textbox3 + 3.0229cm + 4.48098cm + 0.42944cm + 6.76133cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Método de Pago + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) + + + + + + + Textbox3 + 3.46998cm + 4.48098cm + 0.40122cm + 6.76133cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Moneda + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Moneda.Value + + + + + + + + Tipo de Cambio + + + + + + + + =Parameters!TipoCambio.Value + + + + + + + + + + + Textbox3 + 3.95234cm + 4.48098cm + 0.43297cm + 6.76133cm + 18 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Datos del Cliente + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + R.F.C.: + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteRFC.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Uso CFDI: + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!UsoCFDI.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Domicilio: + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteDireccion.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + OBSERVACIONES GENERALES: + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + Textbox3 + 7.54478cm + 5.057cm + 0.44003cm + 9.60024cm + 27 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ImporteLetra.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Importe Con Letra: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 3.40943in + 0.22897in + 1.14694in + 1.34784in + 30 + + + + + + true + true + + + + + Serie del Certificado del Emisor + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio Fiscal + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. de Serie del Certificado de l SAT + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora de Certificación + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + Textbox2 + 9.29495cm + 14.82657cm + 0.35889cm + 5.62289cm + 35 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioFiscal.Value + + + + + + + Textbox2 + 9.67148cm + 14.82657cm + 0.40122cm + 5.62289cm + 36 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + Textbox2 + 10.05859cm + 14.82657cm + 0.3536cm + 5.62289cm + 37 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaCertificacion.Value + + + + + + + Textbox2 + 10.41395cm + 14.82657cm + 0.31479cm + 5.62289cm + 38 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Este documento es una representación impresa de un CFDI + + + + + + + + + Version 3.3 + + + + + + + Textbox19 + 4.27878in + 9.81667cm + 0.34009in + 4.18614in + 39 + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SelloCFDI.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sello Digital del CFDI + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SelloSAT.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sello SAT + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CadenaSAT.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Cadena Original del Complemento del Certificación Digital del SAT + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.14926cm + 0.9525cm + 0.46066cm + 18.98926cm + + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo Relación: + + + + + + + Textbox29 + 0.735cm + 4.71624cm + 0.41981cm + 5.31841cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TipoRelacionTexto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.42456cm + + + 2.05585cm + + + 3.03631cm + + + 7.7847cm + + + + + 0.44125cm + + + + + true + true + + + + + Folio + + + + + + + Textbox10 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox21 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio Fiscal + + + + + + + Textbox11 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet4 + 1.39643cm + 3.2145cm + 0.85604cm + 15.30142cm + 3 + + + + + + true + 14.54249cm + 0.07193cm + 2.25247cm + 20.37753cm + 46 + + =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) + + + + + + + 16.79496cm + + + + + + + Textbox3 + 0.04232cm + 16.34905cm + 0.6cm + 3.95896cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Today + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 1cm + 0.5cm + 1.27cm + - - Black - - 1pt - 2pt 2pt 2pt @@ -131,11 +126,6 @@ - - Black - - 1pt - 2pt 2pt 2pt @@ -170,11 +160,6 @@ - - Black - - 1pt - 2pt 2pt 2pt @@ -209,11 +194,6 @@ - - Black - - 1pt - 2pt 2pt 2pt @@ -248,11 +228,6 @@ - - Black - - 1pt - 2pt 2pt 2pt @@ -430,7 +405,7 @@ - Peso (KG) + Peso @@ -491,11 +466,6 @@ - - Black - - 1pt - 2pt 2pt 2pt @@ -553,6 +523,10 @@ White + + Black + 1pt + 2pt 2pt 2pt @@ -650,22 +624,9 @@ + 2pt - - - - - Black - 1pt - - - - - - - 2pt 2pt 2pt @@ -699,22 +660,9 @@ + 2pt - - - - - Black - 1pt - - - - - - - 2pt 2pt 2pt @@ -751,11 +699,6 @@ 5pt - - Black - - 1pt - 2pt 2pt 2pt @@ -793,11 +736,6 @@ 5pt - - Black - - 1pt - 2pt 2pt 2pt @@ -834,11 +772,6 @@ 5pt - - Black - - 1pt - 1pt @@ -1097,8 +1030,7 @@ - Black - 1pt + 1pt @@ -1163,6 +1095,10 @@ White + + Black + 1pt + 2pt 2pt 2pt @@ -1251,22 +1187,9 @@ + 2pt - - - - - Black - 1pt - - - - - - - 2pt 2pt 2pt @@ -1303,11 +1226,6 @@ 5pt - - Black - - 1pt - 1pt @@ -1446,8 +1364,7 @@ - Black - 1pt + 1pt @@ -1512,6 +1429,10 @@ White + + Black + 1pt + 2pt 2pt 2pt @@ -1662,6 +1583,11 @@ + + Black + + 1pt + 2pt 2pt 2pt @@ -1818,9 +1744,51 @@ + + + =Parameters!PermisoSCTRemolque1.Value + + + + + + + =Parameters!ConfATR1.Value + + + + + + + =Parameters!PermisoSCTRemolque2.Value + + + + + + + =Parameters!ConfATR2.Value + + + + - =Parameters!PesoNetoTotal.Value + =Parameters!NumTotalMercancias.Value @@ -3757,6 +3769,72 @@ 2pt + + true + true + + + + + Peso Neto Total : + + + + =Parameters!PesoNetoTotal.Value + + + + + + + + Unidad de peso : + + + + =Parameters!UnidadPeso.Value + + + + + + + Textbox46 + 5.72244cm + 13.28458cm + 0.3768cm + 7.09598cm + 18 + + + 2pt + 2pt + 2pt + 2pt + + 7.00495in @@ -680,7 +680,7 @@ - SATClaveProdServ + Codigo1 @@ -754,7 +754,7 @@ - Codigo + SATClaveProdServ