From 9c0b26a25fb474e4f7c7f8d6ff04c7508058d552 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Jul 2020 10:01:27 -0700 Subject: [PATCH 1/8] error ortografico --- App_Code/ClsPaginas.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 2a66e9236..af923181d 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3351,7 +3351,7 @@ Public Class ClsPaginas Application("GlobalDTClasificacionPorcentaje") = value End Set End Property - Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaquteria As Integer = -1) As DataTable + Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaqueteria As Integer = -1) As DataTable Get Dim AppNombre As String = String.Format("GlobalDTPaqueterias-{0}", CveEmpresa) If Application(AppNombre) Is Nothing Then @@ -3361,7 +3361,7 @@ Public Class ClsPaginas End If Dim Str As StringBuilder = New StringBuilder() - If TipoPaquteria <> -1 Then Str.AppendFormat("TipoPaqueteria = {0}", TipoPaquteria) + If TipoPaqueteria <> -1 Then Str.AppendFormat("TipoPaqueteria = {0}", TipoPaqueteria) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) GlobalDTPaqueterias = Dv.ToTable From aec5743b9afb5b57704c6f4a583889e6b2118b49 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Jul 2020 10:01:42 -0700 Subject: [PATCH 2/8] globaldtpaqueterias --- Inventarios/RepEntregasForaneas.aspx.vb | 6 +++--- Inventarios/TrasladoSolicitud.aspx.vb | 2 +- RMA/Garantias.aspx.vb | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Inventarios/RepEntregasForaneas.aspx.vb b/Inventarios/RepEntregasForaneas.aspx.vb index 19e7d2694..23cb7c449 100644 --- a/Inventarios/RepEntregasForaneas.aspx.vb +++ b/Inventarios/RepEntregasForaneas.aspx.vb @@ -204,12 +204,12 @@ Partial Class Inventarios_RepEntregasForaneas DTEstatus = ObjInv.DtResultados DdlEstatusFiltro.DataSource = DTEstatus End If + ObjInv.Dispose() - DdlPaqueteria.DataSource = GlobalDTPaqueterias + DdlPaqueteria.DataSource = GlobalDTPaqueterias(UsuarioActual.CveEmpresa) DdlPaqueteria.DataBind() DdlEstatusFiltro.DataBind() - ObjInv.Dispose() CargaSucursales() @@ -334,7 +334,7 @@ Partial Class Inventarios_RepEntregasForaneas e.Row.FCDropDownList("DdlEstatus").DataBind() e.Row.FCDropDownList("DdlEstatus").SelectedValueExist(e.Row.DBCampo("CveEntregaForaneaEstatus")) - e.Row.FCDropDownList("DdlPaqueteria").DataSource = GlobalDTPaqueterias + e.Row.FCDropDownList("DdlPaqueteria").DataSource = GlobalDTPaqueterias(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlPaqueteria").DataBind() e.Row.FCDropDownList("DdlPaqueteria").SelectedValueExist(e.Row.DBCampo("CvePaqueteria")) diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 9d8f8a66b..515063e12 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -85,7 +85,7 @@ Partial Class Inventarios_TrasladoSolicitud TempDT.Columns.Add() End Sub Private Sub CargaPaqueterias() - DdlPaqueteria.DataSource = GlobalDTPaqueterias() + DdlPaqueteria.DataSource = GlobalDTPaqueterias(UsuarioActual.CveEmpresa) DdlPaqueteria.DataBind() DdlPaqueteria.Items.Insert(0, New ListItem("-", "-1")) End Sub diff --git a/RMA/Garantias.aspx.vb b/RMA/Garantias.aspx.vb index 61bf19f23..178f130fa 100644 --- a/RMA/Garantias.aspx.vb +++ b/RMA/Garantias.aspx.vb @@ -27,7 +27,7 @@ Partial Class Ventas_Garantias DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedores.DataBind() - DdlPaqueteria.DataSource = GlobalDTPaqueterias + DdlPaqueteria.DataSource = GlobalDTPaqueterias(UsuarioActual.CveEmpresa) DdlPaqueteria.DataBind() From 5c0f5b3072e45be87f41dbf0ea9c2275f931f71d Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Jul 2020 10:02:03 -0700 Subject: [PATCH 3/8] ddl estado de cleinte --- Ventas/Ventas.aspx | 4 ++-- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index f4435a3a5..a394d9dfa 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -6403,14 +6403,14 @@ - +
- +
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 1583f4af3..d9bf20d71 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -26013,7 +26013,7 @@ Partial Class Ventas If ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(), TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, DdlMetodoPago33.SelectedValue.ToEntero, DdlFormaPago33.SelectedValue.ToEntero, TipoDocto:=DdlTipoComprobante.SelectedValue, OrdenCompra:=TxtOrdenCompra.Text, PedidoContrato:=TxtPedidoContrato.Text, ObsAlm:=TxtObsAlmacen.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, - CorreoNot:=TxtCorreoNotificaciones.Text) Then + CorreoNot:=TxtCorreoNotificaciones.Text, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, Kilometraje:=TxtKilometraje.Text.ToDouble) Then CargaVenta() BtnEditar.Text = "Editar" Alert("Actualizado correctamente") From 533d3204ccba171dabe6e4538c5511af75bb57fd Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Jul 2020 16:06:07 -0700 Subject: [PATCH 4/8] -- filtro den globaldtvendedores de empresa --- App_Code/ClsPaginas.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index af923181d..92bcf5399 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1627,7 +1627,7 @@ Public Class ClsPaginas 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjVendedores As New ClsVtaVendedores - If ObjVendedores.GetVendedores(-1) Then Application(AppNombre) = ObjVendedores.DtResultados + If ObjVendedores.GetVendedores(CveEmpresa) Then Application(AppNombre) = ObjVendedores.DtResultados ObjVendedores.Dispose() End If If CveEmpresa <> -1 Then From 4af23d2073f19d38c460af1e35bde8f44b9718f2 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Jul 2020 16:06:33 -0700 Subject: [PATCH 5/8] -- RF validacion de estados, en el combo --- Ventas/PV.aspx | 27 ++++++++++++++++++--------- Ventas/PV.aspx.vb | 26 ++++++++++++++++++-------- Ventas/Ventas.aspx.vb | 2 -- 3 files changed, 36 insertions(+), 19 deletions(-) diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 190076940..b0ac30892 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2374,16 +2374,25 @@ -
+
+
- - - + + + + + + + + +
- - - + + + + +
@@ -3665,8 +3674,8 @@ $('#<%= TxtTelefonoCliente.ClientID %>').val(''); $('#<%= TxtCiudadCliente.ClientID %>').val(''); $('#<%= TxtLocalidadCliente.ClientID %>').val(''); - $('#<%= TxtEstadoCliente.ClientID %>').val(''); - $('#<%= TxtPaisCliente.ClientID %>').val(''); + $('#<%= DdlEstadoSAT.ClientID %>').val(''); + $('#<%= DdlSATPais.ClientID %>').val(''); $('#<%= TxtCorreoCliente.ClientID %>').val(''); $('#divAgregarCliente').modal(); diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 927c6b1ad..da3eeb9e4 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -2298,6 +2298,19 @@ Partial Class PV If UsuarioActual.TienePermisoProceso(152) Then DdlSubProyectoDatos.Enabled = False End Sub + Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX") + + DdlEstadoSAT.Items.Clear() + DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais) + + DdlEstadoSAT.DataBind() + DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) + + End Sub + Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaEstados(DdlSATPais.SelectedValue) + End Sub + Private Sub CargaEmpresa() If UsuarioActual.Empresa.UsaContabilidad Then Dim ObjFisConfiguracion As New ClsFISConfiguracion @@ -5505,6 +5518,7 @@ Partial Class PV DivFormaCliente.Visible = False TxtRFCCliente.Text = "XAXX010101000" UpAgregarCliente.Update() + CargaEstados() RegistraScript("showDivEC();") End Sub @@ -5527,8 +5541,6 @@ Partial Class PV RFVColoniaC.Visible = False RFVCiudadC.Visible = False RFVLocalidadC.Visible = False - RFVEstadoC.Visible = False - RFVPaisC.Visible = False TxtNombreCliente.Focus() DdlMetodoCliente.SelectedValueExist(1) @@ -5538,7 +5550,7 @@ Partial Class PV If dr IsNot Nothing Then TxtCPCliente.Text = dr("CP").ToString - TxtEstadoCliente.Text = dr("Estado").ToString + 'TxtEstadoCliente.Text = dr("Estado").ToString RMf FAlta TxtCiudadCliente.Text = dr("Municipio").ToString TxtLocalidadCliente.Text = dr("Localidad").ToString End If @@ -5570,8 +5582,6 @@ Partial Class PV RFVColoniaC.Visible = True RFVCiudadC.Visible = True RFVLocalidadC.Visible = True - RFVEstadoC.Visible = True - RFVPaisC.Visible = True DdlMetodoCliente.SelectedValueExist(-1) DdlFormaCliente.SelectedValueExist(-1) @@ -5580,12 +5590,12 @@ Partial Class PV End Sub Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click - Dim CvePreioLista As Integer = -1 + Dim CvePrecioLista As Integer = -1 If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0) If Dr IsNot Nothing Then If Dr("CvePrecioLista").ToString.ToEntero > 0 Then - CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero + CvePrecioLista = Dr("CvePrecioLista").ToString.ToEntero End If End If End If @@ -5593,7 +5603,7 @@ Partial Class PV Dim ObjCliente As New ClsClientes If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, - TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, + TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero, DdlFormaCliente.SelectedValue.ToEntero) Then If ObjCliente.DtResultados.Rows.Count > 0 Then diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index d9bf20d71..754b814a3 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -18501,7 +18501,6 @@ Partial Class Ventas RFVColoniaC.Visible = False RFVCiudadC.Visible = False RFVLocalidadC.Visible = False - RfvDdlEstadoSAT.Visible = False RFVSATPais.Visible = False DdlMetodoCliente.SelectedValueExist(1) @@ -18534,7 +18533,6 @@ Partial Class Ventas RFVColoniaC.Visible = True RFVCiudadC.Visible = True RFVLocalidadC.Visible = True - RfvDdlEstadoSAT.Visible = True RFVSATPais.Visible = True DdlMetodoCliente.SelectedValueExist(-1) From ce49be940b25a35e8aac14d5d527a8c53bcd6bb9 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Jul 2020 16:06:41 -0700 Subject: [PATCH 6/8] -- nuevo esquema --- App_Code/ClsFISConfiguracion.vb | 62 ++++++++++++++++++++------------- 1 file changed, 37 insertions(+), 25 deletions(-) diff --git a/App_Code/ClsFISConfiguracion.vb b/App_Code/ClsFISConfiguracion.vb index 3ee63918e..a1d8ddf32 100644 --- a/App_Code/ClsFISConfiguracion.vb +++ b/App_Code/ClsFISConfiguracion.vb @@ -16,6 +16,7 @@ Public Class ClsFISConfiguracion Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlCommand As SqlCommand + Private SqlTransacc As SqlTransaction Private Data As DataTable 'Atributos de la clase @@ -23,6 +24,7 @@ Public Class ClsFISConfiguracion Private disposedValue As Boolean = False ' Para detectar llamadas redundantes 'REGISTRAR CONEXIONES ABIERTAS Private CveConexion As Integer = 0 + Private EsTransaccionCompartida As Boolean = False #End Region #Region "Propiedades" @@ -42,20 +44,38 @@ Public Class ClsFISConfiguracion #End Region - Sub New() - SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString - Try - SqlConexion.Open() - Catch ex As Exception - Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) + + If TransaccionCompartida Is Nothing Then + SqlConexion = New SqlConnection + SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + Try + SqlConexion.Open() + Catch ex As Exception + OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) + End Try + Else + SqlConexion = TransaccionCompartida.Connection + SqlTransacc = TransaccionCompartida + EsTransaccionCompartida = True + End If + SqlAdapter = New SqlDataAdapter("", SqlConexion) ConexionAdd() + + End Sub + Private Sub DataAdapter(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure) + With SqlAdapter.SelectCommand + .Parameters.Clear() + .CommandText = pStrSQL + .CommandType = TipoComando + End With + If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc + Data = New DataTable End Sub #Region "Conexiones" Private Sub ConexionAdd() - If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then Try DataAdapter("PA_Sis_RegistrarConexion") With SqlAdapter.SelectCommand.Parameters @@ -87,21 +107,14 @@ Public Class ClsFISConfiguracion End If End Sub - Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) - With SqlAdapter.SelectCommand - .Parameters.Clear() - .CommandText = StrSQL - .CommandType = TipoComando - End With - Data = New DataTable - End Sub + #End Region Public Function GetConfiguracion(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - Data = New DataTable - SqlAdapter = New SqlDataAdapter("PA_Fis_CuentaContablesGet", SqlConexion) - SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + + DataAdapter("PA_Fis_CuentaContablesGet") + SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa Try SqlAdapter.Fill(Data) @@ -117,16 +130,15 @@ Public Class ClsFISConfiguracion Catch ex As SqlException OnError("Ocurrió un error al consultar las Configuraciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - SqlAdapter.Dispose() + Return Retorno End Function Public Function AddConfiguracion(ActIVAAcreditable As Integer, ActIVAxAcreditar As Integer, PasIVAPagar As Integer, PasIVAxPagar As Integer, EROtrosIngresos As Integer, ERDSV As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - Data = New DataTable - SqlAdapter = New SqlDataAdapter("PA_Fis_CuentaContablesAdd", SqlConexion) - SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + + DataAdapter("PA_Fis_CuentaContablesAdd") With SqlAdapter.SelectCommand.Parameters .Add("@ActIVAAcreditable", SqlDbType.VarChar).Value = ActIVAAcreditable @@ -150,7 +162,7 @@ Public Class ClsFISConfiguracion Catch ex As Exception OnError("Ocurrió un error al Guardar la Configuración.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - SqlAdapter.Dispose() + Return Retorno End Function From a35a65d5998897a1483156f71e9c6cc15e2976c5 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 1 Jul 2020 18:34:46 -0700 Subject: [PATCH 7/8] Correcion de mapa --- AF/AF.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/AF/AF.aspx b/AF/AF.aspx index 8ce476197..506805e0f 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -3058,7 +3058,7 @@ - + From 234e18850e6e3cbe761e27f58d07919dc04a7b9a Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Jul 2020 21:59:59 -0700 Subject: [PATCH 8/8] -- porcentaje impuesto en concepto 4 --- Ventas/Ventas.aspx.vb | 200 +++++++++++++++++++++--------------------- 1 file changed, 100 insertions(+), 100 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 754b814a3..6491aa50a 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10139,7 +10139,7 @@ Partial Class Ventas End If IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera - CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera + 'CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera End If CveSubProyectoContabilizar = CveSubProyectoVenta ImporteConcepto12 = importeMX.RoundSQL @@ -10148,10 +10148,10 @@ Partial Class Ventas CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Else @@ -10810,7 +10810,7 @@ Partial Class Ventas ' End If - DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto"}) + DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) If DT.Rows.Count > 0 Then 'Se agrega movimiento separado por la cuenta de ventas (ER) @@ -10829,7 +10829,7 @@ Partial Class Ventas End If - CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() + 'CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() If importeMovimiento <> 0 Then @@ -10838,12 +10838,12 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}")) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}")) + ' CveCuentaContabilizacion = 0 + 'End If - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then ErrorPrepoliza = True Else ViewState("SeGuardoPrePoliza") = True @@ -10912,7 +10912,7 @@ Partial Class Ventas If Row2("CveClasificacion").ToString() = "19929" Then IdCtaContable = 1142 End If - CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() + ' CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() If importeMovimiento <> 0 Then @@ -10921,10 +10921,10 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}")) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}")) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then ErrorPrepoliza = True @@ -11229,7 +11229,7 @@ Partial Class Ventas If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows.Count = 1 Then IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContable").ToString().ToEntero() - CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContableSIG").ToString().ToEntero() + ' CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContableSIG").ToString().ToEntero() End If If IdCtaContable <= 0 Then @@ -11237,10 +11237,10 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.AppendFormat("
{0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("NumCuentaMoneda").ToString().ToEntero()) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.AppendFormat("
{0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("NumCuentaMoneda").ToString().ToEntero()) + ' CveCuentaContabilizacion = 0 + 'End If 'BANCOS Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 30, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) @@ -11309,10 +11309,10 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True @@ -12546,7 +12546,7 @@ Partial Class Ventas If CveMonedaVenta = 1 Then IdCtaContable = IdCtaContClientes - CveCuenta = CveCuentaClientes + 'CveCuenta = CveCuentaClientes Else IdCtaContable = IdCtaContComplementaria CveCuenta = 0 'If(ObjFactura.Cliente IsNot Nothing AndAlso ObjFactura.Cliente.CveCuentaComplementaria > 0, ObjFactura.Cliente.CveCuentaComplementaria, -1) @@ -12557,11 +12557,11 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - 'Conta SIG - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + ''Conta SIG + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVentaValuacion) Then ErrorConta = True @@ -12596,11 +12596,11 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - 'Conta SIG - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + ''Conta SIG + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambioPago, ImporteME:=If(tipoCambioPago = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then ErrorConta = True @@ -12645,7 +12645,7 @@ Partial Class Ventas If ObjConta.GetRetCuenta(ConceptoContable, CveCliente) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString().ToEntero() - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString().ToEntero() + 'CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString().ToEntero() End If End If @@ -12656,10 +12656,10 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If Dim ImporteComplementaria As Decimal = 0 If UsaComplementariaClientes = True AndAlso gvr.DataKey("CveMoneda").ToString().ToDecimal > 1 Then @@ -12888,10 +12888,10 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral) Then ErrorConta = True @@ -13094,7 +13094,7 @@ Partial Class Ventas CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAXTrasladar").ToString().ToEntero() End If IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) - CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) + ' CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) If ImporteMovimiento > 0 Then If IdCtaContable <= 0 Then @@ -13102,10 +13102,10 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 13))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 13))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then PrePolizaCorrecta = False @@ -13123,7 +13123,7 @@ Partial Class Ventas If ObjConta.GetRetCuenta(8, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString().ToEntero() - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero() + 'CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero() End If End If End If @@ -13134,10 +13134,10 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 8))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 8))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 8, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then PrePolizaCorrecta = False @@ -13160,15 +13160,15 @@ Partial Class Ventas End If 'ContaSIG - If CveCuentaRetISR <> 0 Then - CveCuenta = CveCuentaRetISR - Else - If ObjConta.GetRetCuenta(9, UsuarioActual.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero() - End If - End If - End If + 'If CveCuentaRetISR <> 0 Then + ' CveCuenta = CveCuentaRetISR + 'Else + ' If ObjConta.GetRetCuenta(9, UsuarioActual.CveEmpresa) Then + ' If ObjConta.DtResultados.Rows.Count > 0 Then + ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero() + ' End If + ' End If + 'End If If ImporteMovimiento > 0 Then If IdCtaContable <= 0 Then @@ -13176,10 +13176,10 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - If IdCtaContable <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 9))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + 'If IdCtaContable <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 9))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 9, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then PrePolizaCorrecta = False @@ -13211,7 +13211,7 @@ Partial Class Ventas CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero() End If IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) - CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) + 'CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) If ImporteMovimiento > 0 Then 'ContaContPAQ @@ -13220,11 +13220,11 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - 'ContaSIG - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + ''ContaSIG + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then PrePolizaCorrecta = False @@ -13244,14 +13244,14 @@ Partial Class Ventas End If End If - 'Conta SIG - If CveCuentaRetIVA <> 0 Then - CveCuenta = CveCuentaRetIVA - Else - If ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero() - End If - End If + ''Conta SIG + 'If CveCuentaRetIVA <> 0 Then + ' CveCuenta = CveCuentaRetIVA + 'Else + ' If ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then + ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero() + ' End If + 'End If If ImporteMovimiento > 0 Then If IdCtaContable <= 0 Then @@ -13259,10 +13259,10 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 62, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then PrePolizaCorrecta = False @@ -13284,15 +13284,15 @@ Partial Class Ventas End If End If - If CveCuentaRetISR <> 0 Then - CveCuenta = CveCuentaRetISR - Else - If ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero() - End If - End If - End If + 'If CveCuentaRetISR <> 0 Then + ' CveCuenta = CveCuentaRetISR + 'Else + ' If ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then + ' If ObjConta.DtResultados.Rows.Count > 0 Then + ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero() + ' End If + ' End If + 'End If If ImporteMovimiento > 0 Then If IdCtaContable <= 0 Then @@ -13300,10 +13300,10 @@ Partial Class Ventas idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString()) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString()) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 63, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then PrePolizaCorrecta = False