From 0e3e0b50ef9b9ce5e217cea03dbc4f425204232b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 May 2021 14:19:42 -0700 Subject: [PATCH 01/19] - longitud notifcara --- Bancos/ProveedoresAbonar.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index f67afd6b0..32b656103 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -176,7 +176,7 @@
- +
From 6d5b1cb15da2ab7602010f49c23b03191357ba73 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 May 2021 14:20:25 -0700 Subject: [PATCH 02/19] -- desbloquea antes de cancelar --- Contabilidad/PopUpAuxiliar.aspx.vb | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb index 115d1b7b7..7658cd839 100644 --- a/Contabilidad/PopUpAuxiliar.aspx.vb +++ b/Contabilidad/PopUpAuxiliar.aspx.vb @@ -247,17 +247,15 @@ Partial Class PopUpAuxiliar Dim TieneError = False - If Not TieneError Then - If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then - TieneError = True - End If - End If - - If Not Conta.RemovePrePolizas(ClavePrePoliza, UsuarioActual.CveEmpresa) Then + If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then TieneError = True End If - If Conta.ValidacionPrePolizaCuadre(ClavePrePoliza, -1) Then + If Not TieneError AndAlso Not Conta.RemovePrePolizas(ClavePrePoliza, UsuarioActual.CveEmpresa) Then + TieneError = True + End If + + If Not TieneError AndAlso Conta.ValidacionPrePolizaCuadre(ClavePrePoliza, -1) Then If Conta.ValorPolizaDescuadre > 0 Then TieneError = True End If From e4bff3753fa61a95e074fea5e9d7738516104437 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 May 2021 14:24:13 -0700 Subject: [PATCH 03/19] =?UTF-8?q?--=20=20se=20quit=C3=B3=20la=20generaci?= =?UTF-8?q?=C3=B3n=20de=20la=20n=C3=B3mina?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/RegPrePolizaS.aspx | 2 +- Contabilidad/RegPrePolizaS.aspx.vb | 206 +++++++++++++++-------------- 2 files changed, 108 insertions(+), 100 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 858da02e8..c626daa83 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -342,7 +342,7 @@
+ DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None"> Cuenta diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index a12253b63..00bbf137e 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -261,23 +261,23 @@ Partial Class ContabilidadC_RegPrePolizaS CargaCuentas() - If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero > 0 Then - ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero - ViewState("CveProyecto") = Request("CveProyecto").ToEntero - ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero - ViewState("CveTurno") = Request("CveTurno").ToEntero + 'If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero > 0 Then + ' ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero + ' ViewState("CveProyecto") = Request("CveProyecto").ToEntero + ' ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero + ' ViewState("CveTurno") = Request("CveTurno").ToEntero - DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61")) - DdlPlantilla.SelectedValue = "61" - DdlPlantilla.Enabled = False - DivAgregarConceptos.Visible = False + ' DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61")) + ' DdlPlantilla.SelectedValue = "61" + ' DdlPlantilla.Enabled = False + ' DivAgregarConceptos.Visible = False - CargaNomina() + ' CargaNomina() - RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1) - RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2) - RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3) - End If + ' RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1) + ' RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2) + ' RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3) + 'End If If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then GvPrePoliza.Columns(4).Visible = False @@ -293,8 +293,7 @@ Partial Class ContabilidadC_RegPrePolizaS Private Sub CreaDT() DtMovimientos = New DataTable("Movimientos") Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True - With DtMovimientos.Columns - .Add("IdCuenta", Type.GetType("System.Int32")) + With DtMovimientos.Columns .Add("CodigoCuenta", Type.GetType("System.String")) .Add("Cuenta", Type.GetType("System.String")) .Add("Referencia", Type.GetType("System.String")) @@ -318,84 +317,85 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("CveConceptoContable", Type.GetType("System.Int32")) .Add("IdCtaContable", Type.GetType("System.Int32")) .Add("ConceptoContable", Type.GetType("System.String")) + .Add("CveCuenta", Type.GetType("System.Int32")) End With End Sub - Private Sub CargaNomina() - Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero - Dim ObjNomina As New ClsNominas - Dim ObjConta As New ClsContabilidad + 'Private Sub CargaNomina() + ' Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero + ' Dim ObjNomina As New ClsNominas + ' Dim ObjConta As New ClsContabilidad - Dim Dt As DataTable = Nothing - Dim Cuenta As String = "" - Dim Concepto As String = "" - Dim IdCuenta As Integer = 0 - Dim TipoMovto As Integer - Dim CveConcepto As Integer - Dim CodigoCuenta As String = "" - Dim NombreCuenta As String = "" - Dim Referencia As String = "" - Dim EsComodin As Integer = 0 - DtMovimientos.Clear() + ' Dim Dt As DataTable = Nothing + ' Dim Cuenta As String = "" + ' Dim Concepto As String = "" + ' Dim IdCuenta As Integer = 0 + ' Dim TipoMovto As Integer + ' Dim CveConcepto As Integer + ' Dim CodigoCuenta As String = "" + ' Dim NombreCuenta As String = "" + ' Dim Referencia As String = "" + ' Dim EsComodin As Integer = 0 + ' DtMovimientos.Clear() - If ObjNomina.GetProvisionNomina(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, UsuarioActual.CveEmpresa) Then - Dt = ObjNomina.DtResultados + ' If ObjNomina.GetProvisionNomina(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, UsuarioActual.CveEmpresa) Then + ' Dt = ObjNomina.DtResultados - For Each drt As DataRow In Dt.Rows - Dim dr As DataRow = DtMovimientos.NewRow + ' For Each drt As DataRow In Dt.Rows + ' Dim dr As DataRow = DtMovimientos.NewRow - If drt("NombreCompleto").ToString = "" AndAlso ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa) Then - CveConcepto = 98 - Cuenta = "Nominas por Pagar" - IdCuenta = ObjConta.DtResultados(0)("IdCtaContable").ToString.ToEntero - Concepto = "Pago Nomina" - Referencia = "Pago Nomina" - Else - Concepto = drt("NombreCompleto") - Referencia = "" - CveConcepto = drt("CveConceptoContable").ToString.ToEntero - Cuenta = drt("ConceptoContable").ToString - IdCuenta = drt("IdCtaContable").ToString.ToEntero - End If + ' If drt("NombreCompleto").ToString = "" AndAlso ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa) Then + ' CveConcepto = 98 + ' Cuenta = "Nominas por Pagar" + ' IdCuenta = ObjConta.DtResultados(0)("IdCtaContable").ToString.ToEntero + ' Concepto = "Pago Nomina" + ' Referencia = "Pago Nomina" + ' Else + ' Concepto = drt("NombreCompleto") + ' Referencia = "" + ' CveConcepto = drt("CveConceptoContable").ToString.ToEntero + ' Cuenta = drt("ConceptoContable").ToString + ' IdCuenta = drt("IdCtaContable").ToString.ToEntero + ' End If - Dim drr As DataRow = DtCuentasContables.FiltroPrimero($"Id={IdCuenta}") - CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "") - NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "") + ' Dim drr As DataRow = DtCuentasContables.FiltroPrimero($"Id={IdCuenta}") + ' CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "") + ' NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "") - TipoMovto = drt("TipoMovto") + ' TipoMovto = drt("TipoMovto") - If TipoMovto = 0 Then - dr("Cargo") = Math.Abs(drt("Importe").ToString.ToDecimal) - dr("Abono") = 0 - Else - dr("Cargo") = 0 - dr("Abono") = Math.Abs(drt("Importe").ToString.ToDecimal) - End If + ' If TipoMovto = 0 Then + ' dr("Cargo") = Math.Abs(drt("Importe").ToString.ToDecimal) + ' dr("Abono") = 0 + ' Else + ' dr("Cargo") = 0 + ' dr("Abono") = Math.Abs(drt("Importe").ToString.ToDecimal) + ' End If - dr("IdCuenta") = IdCuenta - dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta - dr("Cuenta") = Cuenta - dr("Concepto") = Concepto - dr("Descripcion") = Concepto - dr("Referencia") = Referencia - dr("TipoMovto") = TipoMovto - dr("EsComodin") = EsComodin - dr("CveConcepto") = CveConcepto - dr("CveProveedor") = "-1" - dr("CveSubProyecto") = drt("CveSubProyecto") - dr("CvePersonal") = drt("CvePersonal") - dr("CveClasificacion") = drt("CveClasificacion") - dr("CveTipoGasto") = drt("CveTipoGasto") + ' dr("IdCuenta") = IdCuenta + ' dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta + ' dr("Cuenta") = Cuenta + ' dr("Concepto") = Concepto + ' dr("Descripcion") = Concepto + ' dr("Referencia") = Referencia + ' dr("TipoMovto") = TipoMovto + ' dr("EsComodin") = EsComodin + ' dr("CveConcepto") = CveConcepto + ' dr("CveProveedor") = "-1" + ' dr("CveSubProyecto") = drt("CveSubProyecto") + ' dr("CvePersonal") = drt("CvePersonal") + ' dr("CveClasificacion") = drt("CveClasificacion") + ' dr("CveTipoGasto") = drt("CveTipoGasto") - DtMovimientos.Rows.Add(dr) - Next + ' DtMovimientos.Rows.Add(dr) + ' Next - GvMov.DataSource = DtMovimientos - GvMov.DataBind() - UPMovs.Update() - End If + ' GvMov.DataSource = DtMovimientos + ' GvMov.DataBind() + ' UPMovs.Update() + ' End If - End Sub + 'End Sub Private Sub CargaPrePoliza() BtnEliminar.Visible = True @@ -723,8 +723,8 @@ Partial Class ContabilidadC_RegPrePolizaS EsComodin = 0 End If - Dim dr As DataRow = DtMovimientos.NewRow - dr("IdCuenta") = IdCuenta + Dim dr As DataRow = DtMovimientos.NewRow + dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta dr("Cuenta") = Cuenta 'TxtCuentaContable.Text dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial")) @@ -738,7 +738,8 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CveProveedor") = drt("CveProveedor") dr("CvePersonal") = drt("CvePersonal") dr("CveClasificacion") = -1 - dr("MultipleSubProyecto") = drt("MultipleSubProyecto") + dr("MultipleSubProyecto") = drt("MultipleSubProyecto") + dr("CveCuenta") = drt("CveCuenta") 'dr("FolioPoliza") = 0 'drt("FolioPoliza") DtMovimientos.Rows.Add(dr) @@ -756,7 +757,7 @@ Partial Class ContabilidadC_RegPrePolizaS e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Height = Unit.Pixel(1) - e.Row.Cells(0).ToolTip = e.Row.DBCampo("IdCuenta") + e.Row.Cells(0).ToolTip = e.Row.DBCampo("CveCuenta") If e.Row.DBCampo("TipoMovto") = "1" Then e.Row.FCTextBox("TxtAbono").Visible = True @@ -851,8 +852,8 @@ Partial Class ContabilidadC_RegPrePolizaS Else Dim MensajeAlert = New StringBuilder Dim ObjIE As New ClsBancos() - Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) - Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL) + Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) + ' Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL) Dim Conta As ClsContPAQi = Nothing Dim IDPoliza As Integer = 0 Dim MsgError As String = "" @@ -884,9 +885,9 @@ Partial Class ContabilidadC_RegPrePolizaS 'inserto las compras que voy a pagarDdlSaldos For Each gvr As GridViewRow In GvMov.Rows - If gvr.DataKey("IDCuenta").ToEntero > 0 Then - IdCtaContable = gvr.DataKey("IDCuenta") - End If + 'If gvr.DataKey("IDCuenta").ToEntero > 0 Then + ' IdCtaContable = gvr.DataKey("IDCuenta") + 'End If If gvr.DataKey("TipoMovto").ToDouble > 0 Then Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble @@ -911,12 +912,18 @@ Partial Class ContabilidadC_RegPrePolizaS idCuentaContabilizacion = 0 End If If Importe > 0 Then + Dim tCveCuenta As Integer = -1 + + If gvr.datakey("CveConcepto") = "299" Then + tCveCuenta = gvr.datakey("CveCuenta").toentero + End If + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero, ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, - CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero) Then + CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then Else MsgError = "No se pudo insertar el detalle de la póliza2" Exit For @@ -924,11 +931,11 @@ Partial Class ContabilidadC_RegPrePolizaS End If Next - If CvePeriodo > 0 Then - If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then - MsgError = "No se pudo actualizar el periodo de la nómina" - End If - End If + 'If CvePeriodo > 0 Then + ' If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then + ' MsgError = "No se pudo actualizar el periodo de la nómina" + ' End If + 'End If If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then If ObjMov.ValorPolizaDescuadre > 0 Then @@ -1406,7 +1413,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim dr As DataRow = Rows(0) Dim CodigoCuenta As String = "" Dim NombreCuenta As String = "" - dr("IdCuenta") = DdlCtaContable.SelectedValue + dr("CveCuenta") = DdlCtaContable.SelectedValue If DdlCtaContable.SelectedValue.ToEntero > 0 Then Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue)) @@ -1433,6 +1440,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CveClasificacion") = -1 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero dr("CveVenta") = DdlVentas.SelectedValue.ToEntero + dr("CveCuenta") = DdlCtaContable.SelectedValue.ToEntero End If LbCancelarEdicion.Visible = False LbAgregar.Text = "Agregar" @@ -1474,7 +1482,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CodigoCuenta As String = "" Dim NombreCuenta As String = "" - dr("IdCuenta") = DdlCtaContable.SelectedValue + dr("CveCuenta") = DdlCtaContable.SelectedValue If DdlCtaContable.SelectedValue.ToEntero > 0 Then Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue)) @@ -1548,7 +1556,7 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub Private Sub CargaTipoTransaccion(Tipo As String) DdlTipoTransaccion.Items.Clear() - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}'") + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND Estatus = 1 ") DdlTipoTransaccion.DataBind() DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1")) End Sub @@ -1644,7 +1652,7 @@ Partial Class ContabilidadC_RegPrePolizaS If DrM IsNot Nothing Then HdnCve.Value = idMov.ToString - DdlCtaContable.SelectedValue = DrM("IdCuenta") + DdlCtaContable.SelectedValue = DrM("CveCuenta") TxtReferencia.Text = DrM("Referencia") TxtObservaciones.Text = DrM("Concepto") ' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto") From d33073e3236fcddc947ec57b597d4c0bb6e308ec Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Thu, 20 May 2021 13:01:16 -0700 Subject: [PATCH 04/19] Error al querer eliminar documentacion con parametros --- App_Code/ClsEdocumentacion.vb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb index b06f629cf..dc764e2bb 100644 --- a/App_Code/ClsEdocumentacion.vb +++ b/App_Code/ClsEdocumentacion.vb @@ -237,7 +237,11 @@ Public Class ClsEdocumentacion SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al consultar el catalogo de documentación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + If ex.Message.Contains("FK_Edoc_DocumentacionParametros_Edoc_Documentacion") Then + Alert("Este documento tiene parametros registrados", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al eliminar la documentacion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End If End Try Return Retorno From 900aa1ae2c4e9d096fcbdfdc8d9c671f057b0fbe Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 20 May 2021 19:27:33 -0700 Subject: [PATCH 05/19] Tareas119 Cambio servidor FTP, Proveedores abonar filtros SubProyectos y tipo de contrato --- Bancos/ProveedoresAbonar.aspx | 2 +- Bancos/ProveedoresAbonar.aspx.vb | 7 +++++-- TareasProgramadas/Tareas119.ashx | 9 ++++++--- 3 files changed, 12 insertions(+), 6 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index f67afd6b0..32b656103 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -176,7 +176,7 @@
- +
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index fdf1a13af..9aebbf918 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1938,6 +1938,7 @@ Partial Class Bancos_ProveedoresAbonar End If Case 42 'Acreedores + If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then Dim ObjCreditos As New ClsBancos ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero) @@ -1947,10 +1948,12 @@ Partial Class Bancos_ProveedoresAbonar IdCtaContable = IdCuenta End If - ImporteMovimiento = TxtImporte.Text.ToDecimal - importeMX = If(CveMoneda = 2, If(DivTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal * TipoCambioPago, TxtImporte.Text.ToDecimal * TipoCambioPago), TxtImporte.Text.ToDecimal) + Dim Importe42 As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal + ImporteMovimiento = Importe42 + importeMX = If(CveMoneda = 2, If(DivTC.Visible, Importe42 / TxtTC.Text.ToDecimal * TipoCambioPago, Importe42 * TipoCambioPago), Importe42) TipoCambioGeneral = TipoCambioPago End If + Case 30 'Conta ContPAQ If IdCuenta < 1 Then diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index c573d0a37..573054243 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/TareasProgramadas/Tareas119.ashx @@ -26,7 +26,7 @@ public class TareasJam : IHttpHandler switch (Metodo) { case "TestConexion": - retorno = PruebaConexionFTP("ftp://us2.hostedftp.com/", "agrojam", "A12345678"); + retorno = PruebaConexionFTP("ftp://thalamus.exavault.com", "agrojam", "A12345678"); break; case "EjecutaThalamus": @@ -112,7 +112,7 @@ public class TareasJam : IHttpHandler //string FTPPass = "agj-3500"; - string FTPServer = "ftp://us2.hostedftp.com"; + string FTPServer = "ftp://thalamus.exavault.com"; string TFPUsr = "agrojam"; string FTPPass = "A12345678"; @@ -375,7 +375,10 @@ public class TareasJam : IHttpHandler ErrorProceso = true; Respuesta = false; } - + + + // ErrorProceso = true; + if (!ErrorProceso) { From c763dc750c0a8963fcb881ab444535f2e57b7f8e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 20 May 2021 20:50:38 -0700 Subject: [PATCH 06/19] PAC 5 con API Rest --- App_Code/Timbrado.vb | 276 +++++++++++++++++++++---------------- App_Code/modExtensiones.vb | 12 ++ Ashx/SIGPolizaVirtual.ashx | 114 ++++++++++++++- 3 files changed, 280 insertions(+), 122 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index e09436df7..f0bd8f5ef 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -3,9 +3,12 @@ Option Strict On Imports Extensiones Imports System.IO -Imports System.Linq +Imports Newtonsoft.Json.Linq +Imports System.Net.Http Imports System.Xml Imports System.Data +Imports System.Xml.Serialization + Public Class Timbrado #Region "P R O P I E D A D E S" @@ -2213,41 +2216,26 @@ Public Class Timbrado ' 'Sucursal matriz de la empresa Dim ArchivoLLave As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoKey) Dim ArchivoCertificado As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoCer) - Dim UsuarioServicio As String = If(CvePACEspecial = 2, UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx") - Dim ClaveServicio As String = If(CvePACEspecial = 2, UsuarioActual.Empresa.RFC.ToLower, "rene2018") + + Dim UsuarioServicio As String = "rene.molina@adssistemas.mx" + Dim ClaveServicio As String = "Facturacion2021#" + Dim Clave As String = UsuarioActual.Empresa.ContraseñaKey Dim EmisorRFC As String = UsuarioActual.Empresa.RFC - Dim UrlServicio As String = "" ' Produccion + Dim RutaArchivo As String = String.Format("{0}XML\{1}\", UsuarioActual.Empresa.Ruta, Ventas.TipoDocto) Dim NombreArchivoXML As String = ObjCFDITimbre.Comprobante.SerieFolio Dim SubTotal As Decimal = 0 Dim TimbraProduccion As Boolean = True If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) - Select Case CvePACEspecial - Case 2 - UrlServicio = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL" 'productivo - Case 4 - 'UrlServicio = "http://juancalderon-001-site1.ftempurl.com/timbrado.asmx?WSDL" - UrlServicio = "http://alterno.gofac.com.mx/cfdi/timbrado.asmx?WSDL" ' alterno - End Select + If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then - - EmisorRFC = "AAA010101AAA" - ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_AAA010101AAA.key" - ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_AAA010101AAA.cer" + EmisorRFC = "ZUÑ920208KL4" + ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key" + ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.cer" Clave = "12345678a" TimbraProduccion = False - Select Case CvePACEspecial - Case 2 - UsuarioServicio = "fgomez" - ClaveServicio = "12121212" - UrlServicio = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL" '"http://108.60.211.43/rvltimbrado/service1.asmx" - Case 4 - UsuarioServicio = "UserTest" - ClaveServicio = "1234567890" - UrlServicio = "http://juancalderon-001-site1.ftempurl.com/timbrado.asmx?WSDL" - End Select End If #Region "Valida" @@ -2294,19 +2282,15 @@ Public Class Timbrado End Try #End Region - sw.Stop() swTiempo.AppendFormat("Verificado : ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) swmili = sw.ElapsedMilliseconds sw.Start() - ' cfdi.saltarValidacion("bNtMuvZockPVhEjaPj0E") - ' cfdi.Decimales = 4 #Region "Certificado" cfdi.CertificadoArchivo(ArchivoCertificado) #End Region - sw.Stop() swTiempo.AppendFormat("Certificado : ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) swmili = sw.ElapsedMilliseconds @@ -2379,6 +2363,7 @@ Public Class Timbrado cfdi.Impuestos(ObjCFDITimbre.TotalImpuestosRetenidos, ObjCFDITimbre.TotalImpuestosTrasladados) End If #End Region + #Region " Traslados y Retenciones" @@ -2582,8 +2567,6 @@ Public Class Timbrado End If #End Region - - #Region "Nomina12" If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then @@ -2676,7 +2659,7 @@ Public Class Timbrado Dim ArchivoGenerado As Boolean = False Try cfdi.GenerarXMLB64(llaveBase64, Clave) - ArchivoGenerado = True + If cfdi.Xml <> "" Then ArchivoGenerado = True Catch ex As Exception Retorno = cfdi.MensajeError If Retorno = "" OrElse IsNothing(Retorno) Then @@ -2694,111 +2677,131 @@ Public Class Timbrado #Region "Timbra" If ArchivoGenerado Then - Dim opciones As String() = New String(0) {"CALCULAR_SELLO"} - Dim pade = New PADE33.PadeTimbradoServiceClient - Dim Respuesta As String = pade.timbradoPrueba("72330711-cac6-4106-8051-cbcda1aef495", "rene.molina@adssistemas.mx", "Facturacion2021#", cfdi.Xml, opciones) + 'Dim opciones As String() = New String(0) {""} + 'Dim pade = New PADETimbrado.PadeTimbradoServiceClient + + 'Dim Respuesta As String = pade.timbradoConCSD("72330711-cac6-4106-8051-cbcda1aef495", UsuarioServicio, ClaveServicio, cfdi.Xml, certByte, llaveByte, Clave, Not TimbraProduccion, opciones) + + Dim TokenAuth As String = $"{UsuarioServicio}:{ClaveServicio}".ToBase64Encode() + + Dim payload As New JObject( + New JProperty("contrato", "72330711-cac6-4106-8051-cbcda1aef495"), + New JProperty("certBase64", certBase64), + New JProperty("keyBase64", llaveBase64), + New JProperty("keyPass", Clave), + New JProperty("xmlBase64", cfdi.Xml.ToBase64Encode()), + New JProperty("prueba", (Not TimbraProduccion).ToString().ToLower), + New JProperty("opciones", New String(0) {""}) + ) + + Dim Respuesta = EnviarInformacionPADE("https://timbrado.pade.mx/servicio/rest/timbrado/timbrarConCSD", payload.ToString(), TokenAuth) + ' Aumentamos el timeout de la operación + If Not String.IsNullOrEmpty(Respuesta) Then - Dim FolioFiscal As String - FolioFiscal = obtenerAtributo(Respuesta, "TimbreFiscalDigital", "UUID") 'XmlDoc.DocumentElement("cfdi:Complemento").FirstChild.Attributes("UUID").InnerText + Dim result As PADEServicioTimbradoResp = Nothing + Dim serializer As XmlSerializer = New XmlSerializer(GetType(PADEServicioTimbradoResp)) + Try + Using reader As TextReader = New StringReader(Respuesta) + result = CType(serializer.Deserialize(reader), PADEServicioTimbradoResp) + End Using + Catch ex As Exception + OnError("Ocurrió un error al obtener los resultados", ex) + End Try - 'cfdi.TimbrarCfdi(UsuarioServicio, ClaveServicio, UrlServicio, TimbraProduccion) + If result IsNot Nothing Then + If result.timbradoOk Then + Dim FolioFiscal As String = result.UUID - 'sw.Stop() - 'swTiempo.AppendFormat("Timbrado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) - 'swmili = sw.ElapsedMilliseconds - 'sw.Start() - ''Verifica el error - 'If cfdi.CodigoError = 0 Then + cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML) - ' Dim FolioFiscal As String + If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then - ' UUID = cfdi.UUID - ' FolioFiscal = cfdi.UUID 'obtenerAtributo(cfdi.XmlTimbrado, "TimbreFiscalDigital", "UUID") 'XmlDoc.DocumentElement("cfdi:Complemento").FirstChild.Attributes("UUID").InnerText + 'Actualiza Estatus Factura + If Ventas.CveVenta > 0 Then - ' If FolioFiscal <> "" Then + Using ObjVentas As New ClsVentas() - ' cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML) + If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial, RFCReceptor:=ObjCFDITimbre.Receptor.RFC) Then + Retorno = "" + Else + Retorno = "Error" + End If + End Using - ' sw.Stop() - ' swTiempo.AppendFormat("Guardado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) - ' swmili = sw.ElapsedMilliseconds - ' sw.Start() + 'Genero la addenda Ford + If Ventas.Cliente.Ford_GSDB <> "" Then - ' If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then + Dim RutaCadena As String = String.Format("{0}{1}.xml", RutaArchivo, NombreArchivoXML) 'If(UsuarioActual.Empresa.FacturaProduccion, String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.SerieFolio), String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.TipoDocto, Ventas.SerieFolio)) - ' 'Actualiza Estatus Factura - ' If Ventas.CveVenta > 0 Then + Dim FolioFactura As String = "" + If UsuarioActual.CveEmpresa = 8 Then FolioFactura = Ventas.Folio.ToString ' sogo, pordefault manda el folio de la factura + GeneraAddendaFord(RutaCadena, FolioFactura, Ventas.FordASN, Ventas.FordGSDB) - ' Using ObjVentas As New ClsVentas() + End If - ' If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial) Then - ' Retorno = "" - ' Else - ' Retorno = "Error" - ' End If - ' End Using + End If - ' 'Genero la addenda Ford - ' If Ventas.Cliente.Ford_GSDB <> "" Then + If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then + Using ObjNomina2 As New ClsNominas() - ' Dim RutaCadena As String = String.Format("{0}{1}.xml", RutaArchivo, NombreArchivoXML) 'If(UsuarioActual.Empresa.FacturaProduccion, String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.SerieFolio), String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.TipoDocto, Ventas.SerieFolio)) + If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, FolioFiscal, "", ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0) Then + Retorno = "" + Else + Retorno = "Error" + End If + End Using + End If - ' Dim FolioFactura As String = "" - ' If UsuarioActual.CveEmpresa = 8 Then FolioFactura = Ventas.Folio.ToString ' sogo, pordefault manda el folio de la factura - ' GeneraAddendaFord(RutaCadena, FolioFactura, Ventas.FordASN, Ventas.FordGSDB) + If ObjCFDITimbre.Comprobante.TipoComprobante = "T" Then + Using ObjInv As New ClsInventarios() + If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then + Retorno = "" + Else + Retorno = "Error" + End If + End Using + End If + End If - ' End If + If Not IO.Directory.Exists($"{UsuarioActual.Empresa.Ruta}CBB\") Then IO.Directory.CreateDirectory($"{UsuarioActual.Empresa.Ruta}CBB\") - ' End If + Try + Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" + Dim b As Byte() = cfdi.QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}") + File.WriteAllBytes(RutaCBB, b) + Catch ex As Exception + OnError("Ocurrió un error al generar el QR", ex) + End Try + Retorno = "" + Else + If String.IsNullOrEmpty(result.mensaje) Then + Retorno = Respuesta + MensajeErrorCFDI = "" + Else + Retorno = result.mensaje + MensajeErrorCFDI = result.codigo + If cfdi.Xml <> "" Then cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML) + End If - ' If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then - ' Using ObjNomina2 As New ClsNominas() - - ' If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, FolioFiscal, "", ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0) Then - ' Retorno = "" - ' Else - ' Retorno = "Error" - ' End If - ' End Using - ' End If - - ' If ObjCFDITimbre.Comprobante.TipoComprobante = "T" Then - ' Using ObjInv As New ClsInventarios() - ' If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then - ' Retorno = "" - ' Else - ' Retorno = "Error" - ' End If - ' End Using - ' End If - ' End If - - ' If Not IO.Directory.Exists($"{UsuarioActual.Empresa.Ruta}CBB\") Then IO.Directory.CreateDirectory($"{UsuarioActual.Empresa.Ruta}CBB\") - - ' Try - ' Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" - ' Dim b As Byte() = cfdi.QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}") - ' File.WriteAllBytes(RutaCBB, b) - ' Catch ex As Exception - ' OnError("Ocurrió un error al generar el QR", ex) - ' End Try - ' Retorno = "" - ' Else - ' Retorno = "No se pudo timbrar ante el SAT. UUID no generado." - ' End If - ' sw.Stop() - ' swTiempo.AppendFormat("Actualizado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) - ' swmili = sw.ElapsedMilliseconds - ' sw.Start() - - 'Else - ' Retorno = cfdi.MensajeError - ' MensajeErrorCFDI = cfdi.MensajeError - ' If cfdi.Xml <> "" Then cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML) - - ' End If + End If + Else + If String.IsNullOrEmpty(Respuesta) Then + Retorno = "Ocurrió un error al obtener la respuesta" + MensajeErrorCFDI = "" + Else + Retorno = Respuesta + MensajeErrorCFDI = "" + End If + End If + Else + Retorno = "Ocurrió un error al obtener la respuesta" + MensajeErrorCFDI = "" + End If + Else + Retorno = "Ocurrió un error al generar el xml" + MensajeErrorCFDI = "" End If #End Region @@ -2806,6 +2809,45 @@ Public Class Timbrado Return Retorno End Function + Private Function EnviarInformacionPADE(url As String, payload As String, tokenAuth As String) As String + Dim Retorno As String = "" + Try + Using httpClient = New HttpClient() + httpClient.Timeout = New TimeSpan(0, 1, 0) + Using request = New HttpRequestMessage(HttpMethod.Post, New Uri(url)) + request.Headers.Add("Authorization", $"Basic {tokenAuth}") + Using content = New StringContent(payload, Encoding.UTF8, "application/json") + request.Content = content + Dim response = httpClient.SendAsync(request, HttpCompletionOption.ResponseHeadersRead).Result + + Retorno = response.Content.ReadAsStringAsync().Result + End Using + End Using + End Using + Catch ex As Exception + Retorno = "" + OnError("Ocurrió un error al enviar la informacion", ex) + End Try + Return Retorno + End Function + + + Public Class PADEServicioTimbradoResp + + Public Property id As String + + Public Property timbradoOk As Boolean + + Public Property contrato As String + + Public Property codigo As String + + Public Property mensaje As String + + Public Property UUID As String + End Class + + Public Sub GuardaLogTimbrado(Str As String, CvePAC As Integer) Dim ArchivoW As StreamWriter Dim strLineaTMP As String diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 95db7694d..24e6e11b6 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2805,6 +2805,18 @@ Namespace Extensiones Return img End Function + + + Public Function ToBase64Encode(ByVal plainText As String) As String + Dim plainTextBytes = System.Text.Encoding.UTF8.GetBytes(plainText) + Return System.Convert.ToBase64String(plainTextBytes) + End Function + + + Public Function ToBase64Decode(ByVal base64EncodedData As String) As String + Dim base64EncodedBytes = System.Convert.FromBase64String(base64EncodedData) + Return System.Text.Encoding.UTF8.GetString(base64EncodedBytes) + End Function Public Function DecriptaConexion() As String Dim Salida As String Dim stringtodecrypt As String = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString diff --git a/Ashx/SIGPolizaVirtual.ashx b/Ashx/SIGPolizaVirtual.ashx index 10eab84ae..1ea9302b0 100644 --- a/Ashx/SIGPolizaVirtual.ashx +++ b/Ashx/SIGPolizaVirtual.ashx @@ -57,12 +57,77 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest context.Response.ContentType = "application/json" - Dim usuario = ValidaUsuarioSistema(140, 100) - Dim ObjFactura As New Modelos.Factura(usuario, 898028, 140) - GeneraPolizaVentaWS(context, ObjFactura) - 'GeneraPolizaVentaLTHWSD(context) - 'GeneraIndicadores(context) + Dim UsuarioActual = ValidaUsuarioSistema(1, 100) + 'Dim ObjFactura As New Modelos.Factura(usuario, 898028, 140) + + Dim UsuarioServicio As String = "rene.molina@adssistemas.mx" + Dim ClaveServicio As String = "Facturacion2021#" + + Dim RutaArchivo As String = String.Format("{0}XML\{1}\", UsuarioActual.Empresa.Ruta, "Ing") + Dim NombreArchivoXML As String = "test" + + If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) + + Dim EmisorRFC As String = "ZUÑ920208KL4" + Dim ArchivoLLave As String = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key" + Dim ArchivoCertificado As String = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.cer" + Dim Clave = "12345678a" + Dim TimbraProduccion = False + + If Not File.Exists(ArchivoCertificado) Then + context.Response.Write("El archivo de llave privada no existe") + Exit Sub + End If + If Not File.Exists(ArchivoLLave) Then + context.Response.Write("El archivo de llave privada no existe") + Exit Sub + End If + If UsuarioActual.Empresa.ContraseñaKey = "" Then + context.Response.Write("La clave no puede ser vacía") + Exit Sub + End If + + Dim llaveByte As Byte(), certByte As Byte() + Dim llaveBase64 As String = "", certBase64 As String = "" + Dim cfdi As New GoFac.GoCfdi() + Dim complemento As String = "" + Dim complementoConcepto As String = "" + + + Try + llaveByte = System.IO.File.ReadAllBytes(ArchivoLLave) + llaveBase64 = Convert.ToBase64String(llaveByte) + Catch ex As Exception + context.Response.Write($"Error al leer la llave privada: {ex.Message}") + Exit Sub + End Try + + + Try + certByte = System.IO.File.ReadAllBytes(ArchivoCertificado) + certBase64 = Convert.ToBase64String(certByte) + Catch ex As Exception + context.Response.Write($"Error al leer el certificado: {ex.Message}") + Exit Sub + End Try + + Dim TokenAuth As String = ToBase64Encode($"{UsuarioServicio}:{ClaveServicio}") + Dim XmlBase64 As String = ToBase64Encode(XMLPrueba) + + Dim payload As New JObject( + New JProperty("contrato", "72330711-cac6-4106-8051-cbcda1aef495"), + New JProperty("certBase64", certBase64), + New JProperty("keyBase64", llaveBase64), + New JProperty("keyPass", Clave), + New JProperty("xmlBase64", XmlBase64), + New JProperty("prueba", (Not TimbraProduccion).ToString().ToLower), + New JProperty("opciones", New String(0) {""}) + ) + + Dim resp = EnviarInformacionPADE("https://timbrado.pade.mx/servicio/rest/timbrado/timbrarConCSD", payload.ToString(), TokenAuth) + + context.Response.Write(resp) End Sub @@ -72,6 +137,44 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState End Get End Property + Private Function EnviarInformacionPADE(url As String, payload As String, tokenAuth As String) As String + Dim Retorno As String = "{}" + Try + Using httpClient = New HttpClient() + httpClient.Timeout = New TimeSpan(0, 5, 0) + Using request = New HttpRequestMessage(HttpMethod.Post, New Uri(url)) + request.Headers.Add("Authorization", $"Basic {tokenAuth}") + Using content = New StringContent(payload, Encoding.UTF8, "application/json") + request.Content = content + + Dim response = httpClient.SendAsync(request, HttpCompletionOption.ResponseHeadersRead).Result + Retorno = response.Content.ReadAsStringAsync().Result + End Using + End Using + End Using + Catch ex As Exception + OnError("Ocurrió un error al enviar la informacion", ex) + End Try + Return Retorno + End Function + + + Public Function ToBase64Encode(ByVal plainText As String) As String + Dim plainTextBytes = System.Text.Encoding.UTF8.GetBytes(plainText) + Return System.Convert.ToBase64String(plainTextBytes) + End Function + + + Public Function ToBase64Decode(ByVal base64EncodedData As String) As String + Dim base64EncodedBytes = System.Convert.FromBase64String(base64EncodedData) + Return System.Text.Encoding.UTF8.GetString(base64EncodedBytes) + End Function + + Public Property XMLPrueba As String = "" + + + +#Region "P O L I Z A - V I R T U A L" Protected Sub GeneraPolizaVentaWS(ByVal context As HttpContext, ObjFactura As Modelos.Factura) Dim obj As New MPolizaVentaWS 'DATOS DEL CLIENTE @@ -320,6 +423,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState context.Response.Write(Retorno) End Sub +#End Region End Class From b70f7553169df635630e8b8fe44e7c3affce174f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 20 May 2021 20:50:52 -0700 Subject: [PATCH 07/19] Correcion al cambiar estatus en trayecto --- GPS/TrayectoDetalle.aspx.vb | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/GPS/TrayectoDetalle.aspx.vb b/GPS/TrayectoDetalle.aspx.vb index 530b6ad37..dc4fc125d 100644 --- a/GPS/TrayectoDetalle.aspx.vb +++ b/GPS/TrayectoDetalle.aspx.vb @@ -393,10 +393,19 @@ Partial Class GPS_TrayectoDetalle Using ObjGPS As New ClsGPS If ObjGPS.GetTrayectosGeoReferencias(CveTrayecto) Then - Dim Row As DataRow = ObjGPS.DtResultados.FiltroPrimero($"CveEstatusTrayecto = {CveEstatusActual}") - If Row IsNot Nothing Then - CveEstatusSiguiente = Row("CveEstatusSiguiente").ToString().ToEntero() + If CveEstatusActual = 1 Then + 'TOMA LA GEOCERCA DE INICIO + Dim Row As DataRow = ObjGPS.DtResultados.FiltroPrimero($"EsInicio = True") + If Row IsNot Nothing Then + CveEstatusSiguiente = Row("CveEstatusTrayecto").ToString().ToEntero() + End If + Else + Dim Row As DataRow = ObjGPS.DtResultados.FiltroPrimero($"CveEstatusTrayecto = {CveEstatusActual}") + If Row IsNot Nothing Then + CveEstatusSiguiente = Row("CveEstatusSiguiente").ToString().ToEntero() + End If End If + End If If CveEstatusSiguiente > 0 Then From 52b5d83366f59b6ead93e7d53d0a4c9555c850db Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 May 2021 08:07:39 -0700 Subject: [PATCH 08/19] -- parametro de cuenta, al actualizar la cuentacontable --- App_Code/ClsContabilidad.vb | 7 ++++--- Contabilidad/RegPrePolizaS.aspx.vb | 4 ++-- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 8b5995aea..8dc205cc6 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -256,13 +256,13 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function UpdatePrepolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, + Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, - Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean + Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_PrePolizaDetalleUpdate") + DataAdapter("PA_Conta_PrePolizasDetalleUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle @@ -280,6 +280,7 @@ Public Class ClsContabilidad .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta End With Try diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 00bbf137e..77449b8aa 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1008,11 +1008,11 @@ Partial Class ContabilidadC_RegPrePolizaS For Each row As GridViewRow In GvPrePoliza.Rows If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then If row.FCCheckBox("chkModificado").Checked Then - If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, + If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, - CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then OcurrioError = True Exit For End If From d54e04025ac2b3537201f98f17c8be27f7c6e181 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 May 2021 08:10:02 -0700 Subject: [PATCH 09/19] =?UTF-8?q?-=20se=20quit=C3=B3=20la=20llamada=20de?= =?UTF-8?q?=20provisionnominaupdate?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsNominas.vb | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 59e51f69a..029ac7fcb 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -463,24 +463,24 @@ Public Class ClsNominas Return Retorno End Function - Public Function UpdateProvisionNomina(CvePeriodo As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Nom_ProvisionNominaUpdate") + 'Public Function UpdateProvisionNomina(CvePeriodo As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Nom_ProvisionNominaUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + ' .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al actualizar el periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try - Return Retorno - End Function + ' Return Retorno + 'End Function Public Function GetNom_NominasDetalles(CveNomina As Integer, CvePersonal As Integer, CvePeriodo As Integer, Tipo As String) As Boolean Dim Retorno As Boolean = False From 7589ecf114e8742d7bf8d9937a80030895a71d80 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 May 2021 08:11:03 -0700 Subject: [PATCH 10/19] - que seleccione el tipo transito, si se manda por parametro --- Inventarios/Kardex.aspx.vb | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index ac69f6856..3e188d6e2 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -81,18 +81,27 @@ Partial Class Inventarios_Kardex ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) ddlAlmacen.DataBind() - If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValuesIfExist(Request("CveAlmacen").ToString) + Dim CveTipoAlmacen As Integer + If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then + ddlAlmacen.SelectedValuesIfExist(Request("CveAlmacen").ToString) + CveTipoAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=Request("CveAlmacen").ToString.ToEntero).FiltroPrimeroValor("CveTipoAlmacen").ToEntero + ' If CveTipoAlmacen = 3 Then chktransitorio.checked = True + End If CargaClasificaciones() + CBLTiposAlmacen.DataSource = GlobalDTTipoAlmacen(-1) CBLTiposAlmacen.DataBind() For Each item As ListItem In CBLTiposAlmacen.Items If item.Text.Contiene("Entrega Adelantado", "Transitorio") Then - item.Selected = False + If CveTipoAlmacen = 3 Then + item.Selected = True + Else + item.Selected = False + End If Else item.Selected = True End If - Next End Sub Private Sub CargaFuncionalidad105() From cf8a3fd05d752039a16920a33263a6750d9ce986 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 May 2021 08:11:24 -0700 Subject: [PATCH 11/19] =?UTF-8?q?-=20correci=C3=B3n=20de=20tipocontabilida?= =?UTF-8?q?d?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/PlantillasPolizasDetalle.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb index c80bca90a..d41facbad 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb @@ -141,7 +141,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1")) - If UsuarioActual.Empresa.TipoContabilizacion = 2 Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then Dim Conta As New ClsContabilidad Dim dtt As New DataTable @@ -378,7 +378,7 @@ CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then 'cargar la cuenta - If UsuarioActual.Empresa.TipoContabilizacion = 0 Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then 'busco en la cuenta contable, lo que tenga asignado Dim Con As New ClsContabilidad Dim dtt As DataTable = Nothing From 64fd1fb9b66b2d5c48014ac86832e2f9a4154171 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 May 2021 08:12:03 -0700 Subject: [PATCH 12/19] =?UTF-8?q?--=20se=20aument=C3=B3=20el=20limite=20de?= =?UTF-8?q?=20impresi=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/PolizasImpresion.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb index d597518c4..567c14f2b 100644 --- a/Contabilidad/PolizasImpresion.aspx.vb +++ b/Contabilidad/PolizasImpresion.aspx.vb @@ -41,7 +41,7 @@ Partial Class Contabilidad_PolizasImpresion Dim objcont As New ClsContPAQi(UsuarioActual.Empresa) If objcont.GetPolizasMasivo(TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, foli, folf, ddlTipoPoliza.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlSegmentoNeg.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, DdlGrupoPlantilla.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - If objcont.DtResultados.Rows.Count < 10000 Then + If objcont.DtResultados.Rows.Count < 15000 Then If objcont.DtResultados.Rows.Count > 0 Then Dim dr As DataRow From 6b6fa049102c09da656d956c515f9cbfa9a5b719 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 May 2021 08:14:44 -0700 Subject: [PATCH 13/19] - se quitan los llamados de enviar la cvecuenta --- Compras/Compras.aspx.vb | 469 +++++++++++++--------------------------- 1 file changed, 155 insertions(+), 314 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a1754b4d9..83195cf68 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1,17 +1,15 @@ Option Explicit On Option Strict On -Imports Extensiones -Imports System.Data -Imports System.Xml -Imports System.Globalization -Imports System.Linq Imports System -Imports System.IO -Imports ADServerControl -Imports System.Threading.Tasks +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 Partial Class Compras_Compras Inherits ClsPaginas @@ -5870,12 +5868,10 @@ Partial Class Compras_Compras Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero If chkImportacion.Checked And ConceptoContable = 14 Then ConceptoContable = 287 - End If Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False) Dim importeMovimiento As Decimal = 0 Dim IdCtaContable As Integer = 0 - Dim CveCuenta As Integer = 0 Dim Concepto As String = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreProveedor, $"{TxtSerie.Text}-{TxtFolio.Text}", If(TxtDocumentoFolio.Visible, TxtDocumentoFolio.Text, If(TxtDocumentoFolioCaja.Visible, TxtDocumentoFolioCaja.Text, ConceptoPersonal))) Dim importeMN As Decimal = 0 Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1) @@ -5907,8 +5903,6 @@ Partial Class Compras_Compras End If importeMN = importeMovimiento * TipoCambioCompra * Multiplicador IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor) - CveCuenta = CveCuentaProveedor - If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(2, 102) Then 'SI ES CRÉDITO Y ESTA PAGADO @@ -5922,17 +5916,12 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(6, Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero) Then If ObjConta.DtResultados.Rows.Count > 0 AndAlso ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero Else IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero - CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero End If End If End If - - - 'SEGMENTO DE NEGOCIO Dim drT As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero).FiltroPrimero(String.Format("CveSubProyecto = {0} ", Row2("CveSubProyecto").ToString.ToEntero)) @@ -5968,12 +5957,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), CveCuenta:=CveCuenta, CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + 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 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), CveCuenta:=CveCuenta, CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + 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 ErrorPrepoliza = True End If @@ -5984,10 +5973,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), CveCuenta:=CveCuenta, CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + 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 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), CveCuenta:=CveCuenta, 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, 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 ErrorPrepoliza = True End If @@ -6002,24 +5991,21 @@ Partial Class Compras_Compras If TipoCambioCompra = 1 Or DdlMoneda.SelectedValue.ToEntero = 1 Then IdCtaContable = CtaProveedor - CveCuenta = CveCuentaProveedor importeMovimiento = importeMN Else IdCtaContable = CtaProveedorComplementaria - CveCuenta = CveCuentaProveedorComplementaria - If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0) Then 'Cuando tiene complementaria lo dividimos en dos + If importeMovimiento <> 0 AndAlso (IdCtaContable > 0) Then 'Cuando tiene complementaria lo dividimos en dos Dim CveConceptoContableComplementaria As Integer = 206 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor importeMN = importeMovimiento - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento * TipoCambioCompra - importeMovimiento, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * TipoCambioCompra - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=TipoCambioCompra) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento * TipoCambioCompra - importeMovimiento, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * TipoCambioCompra - importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=TipoCambioCompra) Then ErrorPrepoliza = True End If End If IdCtaContable = CtaProveedorExtranjera - CveCuenta = CveCuentaProveedorExtranjera End If Case 30 'Bancos @@ -6033,19 +6019,16 @@ Partial Class Compras_Compras If TCPago = 1 Or CveMonedaPago = 1 Then IdCtaContable = IdCuentaBancaria - CveCuenta = CveCuentaBancaria Else IdCtaContable = IdCuentaBancariaComplementaria - CveCuenta = CveCuentaBancariaComplementaria - If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0) Then 'Cuando tiene complementaria lo dividimos en dos + If importeMovimiento <> 0 AndAlso (IdCtaContable > 0) Then 'Cuando tiene complementaria lo dividimos en dos importeMN = importeMovimiento - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento * TCPago - importeMovimiento, Referencia, 204, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * TCPago - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=TCPago) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento * TCPago - importeMovimiento, Referencia, 204, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * TCPago - importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=TCPago) Then ErrorPrepoliza = True End If End If IdCtaContable = IdCuentaBancaria - CveCuenta = CveCuentaBancaria End If @@ -6068,24 +6051,21 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero End If End If 'Agregamos el Opuesto del 19 -> 14 If importeMovimiento <> 0 Then Dim IdCtaIva As Integer = 0 - Dim CveCuentaIVA As Integer = 0 IdCtaIva = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0) If ObjConta.GetRetCuenta(14, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaIva = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero - CveCuentaIVA = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero End If End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 14, 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), CveCuenta:=CveCuentaIVA, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 14, 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 ErrorPrepoliza = True End If End If @@ -6100,7 +6080,6 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero End If End If @@ -6112,8 +6091,7 @@ Partial Class Compras_Compras IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0) If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero End If End If @@ -6126,7 +6104,6 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero End If End If End If @@ -6137,7 +6114,6 @@ Partial Class Compras_Compras importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1) - CveCuenta = -1 End If Case 26 'IEPS Acreditable If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then @@ -6146,22 +6122,19 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditableSIG").ToString.ToEntero End If End If 'Agregamos el Opuesto del 26 -> 25 If importeMovimiento <> 0 Then Dim IdCtaIEPS As Integer = 0 - Dim CveCuentaIEPS As Integer = 0 If ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaIEPS = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero - CveCuentaIEPS = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero 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), CveCuenta:=CveCuentaIEPS, 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, CveAcreedor:=CveAcreedor, 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 @@ -6177,14 +6150,12 @@ Partial Class Compras_Compras importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -6202,7 +6173,7 @@ Partial Class Compras_Compras 'Agregamos el Opuesto del 22 -> 15 If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, 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), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, 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 ErrorPrepoliza = True End If End If @@ -6220,14 +6191,12 @@ Partial Class Compras_Compras If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -6242,21 +6211,19 @@ Partial Class Compras_Compras importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If 'Agregamos el Opuesto del 184 -> 183 If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 183, 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), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 183, 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 ErrorPrepoliza = True End If End If @@ -6274,14 +6241,12 @@ Partial Class Compras_Compras If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -6296,14 +6261,12 @@ Partial Class Compras_Compras If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -6318,21 +6281,19 @@ Partial Class Compras_Compras importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If 'Agregamos el Opuesto del 186 -> 185 If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 185, 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), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 185, 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 ErrorPrepoliza = True End If End If @@ -6350,14 +6311,12 @@ Partial Class Compras_Compras If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -6371,14 +6330,12 @@ Partial Class Compras_Compras importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -6394,21 +6351,19 @@ Partial Class Compras_Compras ' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador ' If CtaProveedorRetISR > 0 Then ' IdCtaContable = CtaProveedorRetISR - ' CveCuenta = CveCuentaProveedorRetISR ' ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(316).ToEntero ' Else ' If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then ' If ObjConta.DtResultados.Rows.Count > 0 Then ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero ' End If ' End If ' End If ' 'Agregamos el Opuesto del 23 -> 16 ' If importeMovimiento <> 0 Then - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, 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), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, 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 ' ErrorPrepoliza = True ' End If ' End If @@ -6424,14 +6379,12 @@ Partial Class Compras_Compras If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" If CtaProveedorRetISR > 0 Then IdCtaContable = CtaProveedorRetISR - CveCuenta = CveCuentaProveedorRetISR ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(315).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero End If End If End If @@ -6444,14 +6397,12 @@ Partial Class Compras_Compras importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If CtaProveedorRetISR > 0 Then IdCtaContable = CtaProveedorRetISR - CveCuenta = CveCuentaProveedorRetISR ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(317).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero End If End If End If @@ -6466,20 +6417,18 @@ Partial Class Compras_Compras ' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador ' If CtaProveedorRetISR > 0 Then ' IdCtaContable = CtaProveedorRetISR - ' CveCuenta = CveCuentaProveedorRetISR ' ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero ' Else ' If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then ' If ObjConta.DtResultados.Rows.Count > 0 Then ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero ' End If ' End If ' End If ' 'Agregamos el Opuesto del 244 -> 243 ' If importeMovimiento <> 0 Then - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 243, 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), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 243, 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 ' ErrorPrepoliza = True ' End If ' End If @@ -6498,7 +6447,6 @@ Partial Class Compras_Compras If TCPago > 0 AndAlso TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria If TCPago < TipoCambioCompra Then importeMovimiento = Math.Abs(TCPago - TipoCambioCompra) * importePagoProv importeMovimiento -= Math.Abs(TCPago - TipoCambioCompra) * importeIVAAcreditable @@ -6520,7 +6468,6 @@ Partial Class Compras_Compras If TCPago > 0 AndAlso TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria If TCPago < TipoCambioCompra Then importeMovimiento = Math.Abs(TCPago - TipoCambioCompra) * importePagoProv importeMovimiento -= Math.Abs(TCPago - TipoCambioCompra) * importeIVAAcreditable @@ -6538,7 +6485,6 @@ Partial Class Compras_Compras 'If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then ' If ObjConta.DtResultados.Rows.Count > 0 Then ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero - ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero ' End If 'End If @@ -6578,7 +6524,6 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(49, Row2("CveActivoFijo").ToString.ToEntero) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContActivoFijo").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContActivoFijoSIG").ToString.ToEntero End If End If @@ -6589,7 +6534,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), CveCuenta:=CveCuenta, 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, CveAcreedor:=CveAcreedor, 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 @@ -6599,7 +6544,6 @@ Partial Class Compras_Compras 'LIMPIA importeMovimiento = 0 IdCtaContable = 0 - CveCuenta = 0 'COSTO ALMACEN Dim DtAlmacenes = GlobalDTAlmacen(UsuarioActual.CveEmpresa) @@ -6629,12 +6573,11 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(6, RowDetalle("CveClasificacion").ToString().ToEntero()) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero End If 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), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, + 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, CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -6649,7 +6592,6 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(68, GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToString.ToEntero) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero End If End If If importeMN <> 0 Then @@ -6660,13 +6602,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), CveCuenta:=CveCuenta, 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, 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 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), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=False) 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 ErrorPrepoliza = True End If End If @@ -6680,7 +6622,6 @@ Partial Class Compras_Compras 'LIMPIA importeMovimiento = 0 IdCtaContable = 0 - CveCuenta = 0 ''FLETES 'If UsuarioActual.CveEmpresa.Contiene(119) And UsuarioActual.Empresa.UsaInventarios And DdlTipoComprobante.SelectedValue <> "NC" And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen.Contiene(237, 240) Then @@ -6775,8 +6716,8 @@ Partial Class Compras_Compras SumatoriaInventario += Importe228 + Importe229 'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN228 + ImporteMN229 - ImporteCI176) - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe228, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN228, ImporteME:=ImporteME228, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe229, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN229, ImporteME:=ImporteME229, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe228, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN228, ImporteME:=ImporteME228, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe229, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN229, ImporteME:=ImporteME229, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -6789,7 +6730,7 @@ Partial Class Compras_Compras SumatoriaInventario += Importe176 'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN176 - ImporteCI176) - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -6824,7 +6765,7 @@ Partial Class Compras_Compras End If IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69) Then ErrorPrepoliza = True Exit For End If @@ -6833,8 +6774,8 @@ Partial Class Compras_Compras Insertado205 = True Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" If DdlMoneda.SelectedValue.ToEntero <> 1 AndAlso UsaComplementariaFleteImportaciones Then - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN - importeMovimiento, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN - importeMovimiento, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN - importeMovimiento, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN - importeMovimiento, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If Else @@ -6842,7 +6783,7 @@ Partial Class Compras_Compras End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If End If @@ -6854,12 +6795,11 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(6, RowDetalle("CveClasificacion").ToString().ToEntero()) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero End If 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), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, + 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, CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -6936,10 +6876,9 @@ Partial Class Compras_Compras If DdlTipoCompra.SelectedValue = "10" AndAlso ConceptoContabilizacionNC = 68 Then SeContabiliza = False IdCtaContable = 0 - CveCuenta = 0 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -6963,8 +6902,8 @@ Partial Class Compras_Compras Dim CveSubProyecto259 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto259) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto259) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto259) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto259) Then ErrorPrepoliza = True End If Else @@ -7060,10 +6999,8 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(6, Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero) Then If ObjConta.DtResultados.Rows.Count > 0 AndAlso ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero - ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero Else IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero - ' CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero End If End If End If @@ -7111,7 +7048,7 @@ Partial Class Compras_Compras Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" importeMN = tipoCambioActual * importeMovimiento - importeMovimiento - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 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, CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 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 ErrorPrepoliza = True End If importeMN = importeMovimiento @@ -7121,7 +7058,7 @@ Partial Class Compras_Compras If Not Insertado205 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 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), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 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 ErrorPrepoliza = True End If @@ -7139,7 +7076,6 @@ Partial Class Compras_Compras 'LIMPIA importeMovimiento = 0 IdCtaContable = 0 - CveCuenta = 0 End If Case 5 'Proveedores If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor @@ -7165,18 +7101,15 @@ Partial Class Compras_Compras If tipoCambioActual = 1 Then IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor) - CveCuenta = CveCuentaProveedor Else IdCtaContable = CtaProveedorComplementaria - CveCuenta = CveCuentaProveedorComplementaria - If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsaComplementaria) Then 'Cuando tiene complementaria lo dividimos en dos Then + If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsaComplementaria) Then 'Cuando tiene complementaria lo dividimos en dos Then importeMN = importeMovimiento - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If End If IdCtaContable = CtaProveedorExtranjera - CveCuenta = CveCuentaProveedorExtranjera End If End If @@ -7193,7 +7126,6 @@ Partial Class Compras_Compras If ObjConta.DtResultados.Rows.Count > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero End If End If End If @@ -7205,7 +7137,6 @@ Partial Class Compras_Compras importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador IdCtaContable = CtaProveedorDeudores - CveCuenta = CveCuentaProveedorDeudores 'Conta ContPAQ If IdCtaContable = 0 Then @@ -7213,7 +7144,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), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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 ErrorPrepoliza = True End If End If @@ -7224,9 +7155,8 @@ Partial Class Compras_Compras importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador IdCtaContable = CtaProveedorDeudores - CveCuenta = CveCuentaProveedorDeudores - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, 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), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, 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 @@ -7240,13 +7170,11 @@ Partial Class Compras_Compras importeMN = importeMovimiento * tipoCambioActual * Multiplicador IdCtaContable = CtaProveedorAcreedores - CveCuenta = CveCuentaProveedorAcreedores Case 42 'Acreedores importeMovimiento = importeAcreedoresTarjeta importeMN = importeMovimiento * tipoCambioActual * Multiplicador IdCtaContable = CtaProveedorAcreedores - CveCuenta = CveCuentaProveedorAcreedores Case 18 'NC - Notas de Credito @@ -7259,10 +7187,8 @@ Partial Class Compras_Compras importeMN = importeMovimiento * tipoCambioActual * Multiplicador If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" IdCtaContable = CtaProveedor - CveCuenta = CveCuentaProveedor If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then IdCtaContable = CtaProveedorExtranjera - CveCuenta = CveCuentaProveedorExtranjera End If If importeMovimiento <> 0 Then @@ -7271,11 +7197,9 @@ Partial Class Compras_Compras 'PROVISION IdCtaContable = CtaProveedorExtranjera - CveCuenta = CveCuentaProveedorExtranjera - 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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 IdCtaContable = CtaProveedorComplementaria - CveCuenta = CveCuentaProveedorComplementaria - 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then + 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 ErrorPrepoliza = True Exit Select End If @@ -7293,15 +7217,13 @@ Partial Class Compras_Compras Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador IdCtaContable = CtaProveedorExtranjera - CveCuenta = CveCuentaProveedorExtranjera - 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then + 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 Dim CveConceptoContableComplementaria As Integer = 206 If Gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor IdCtaContable = CtaProveedorComplementaria - CveCuenta = CveCuentaProveedorComplementaria - 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, CveCuenta:=CveCuenta, 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, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then ErrorPrepoliza = True Exit For End If @@ -7313,11 +7235,9 @@ Partial Class Compras_Compras importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador IdCtaContable = CtaProveedorExtranjera - CveCuenta = CveCuentaProveedorExtranjera - 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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 IdCtaContable = CtaProveedorComplementaria - CveCuenta = CveCuentaProveedorComplementaria - 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, CveCuenta:=CveCuenta, 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, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -7335,12 +7255,10 @@ Partial Class Compras_Compras ConceptoContable = 64 TipoMovimiento = True IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria ElseIf importeMovimiento < 0 Then ConceptoContable = 65 TipoMovimiento = False IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria End If importeMovimiento = importeMovimiento.Abs.RoundSQL() @@ -7350,7 +7268,7 @@ Partial Class Compras_Compras - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then ErrorPrepoliza = True Exit For End If @@ -7368,16 +7286,15 @@ Partial Class Compras_Compras Else IdCtaContable = CtaProveedor - CveCuenta = CveCuentaProveedor - 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:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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:=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(CvePrePolizaTemp, False, 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, 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:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, 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(CvePrePolizaTemp, 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:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If Else @@ -7398,7 +7315,6 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(ConceptoContable, CvePersonal) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContPersonal").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContPersonalSIG").ToString.ToEntero End If End If @@ -7409,14 +7325,12 @@ Partial Class Compras_Compras Dim CtaIvaxAcreditar As Integer = 0 Dim CtaIvaAcreditable As Integer = 0 - Dim CveCuentaIvaxAcreditar As Integer = 0 Dim PorcentajeImpuestoAnticipo = PorcentajeIVA CtaIvaxAcreditar = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0) CtaIvaAcreditable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0) If ObjConta.GetRetCuenta(14, UsuarioActual.CveEmpresa) And Not CtaIvaxAcreditar > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then CtaIvaxAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero - CveCuentaIvaxAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero End If End If If ObjConta.GetRetCuenta(19, UsuarioActual.CveEmpresa) And Not CtaIvaAcreditable > 0 Then @@ -7446,22 +7360,18 @@ Partial Class Compras_Compras ConceptoContableAnticipoComplementaria = 235 CveCompraNC = Ant.CveCompra 'cuando es NC, se utiliza la clave de compra de la nota de credito IdCtaContable = CtaProveedor - CveCuenta = CveCuentaProveedor Case "Egsc" ConceptoContableAnticipo = 21 IdCtaContable = CtaProveedorAnticipos - CveCuenta = CveCuentaProveedorAnticipos Case "DD" ConceptoContableAnticipo = 37 IdCtaContable = CtaProveedorDeudores - CveCuenta = CveCuentaProveedorDeudores Case "Ant" ConceptoContableAnticipo = 265 ConceptoContableAnticipoComplementaria = 266 CveCompraNC = Ant.CveCompra IdCtaContable = CtaProveedorAnticipos - CveCuenta = CveCuentaProveedorAnticipos End Select importeMovimiento = Ant.Importe @@ -7482,11 +7392,9 @@ Partial Class Compras_Compras importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador IdCtaContable = CtaProveedorExtranjera - CveCuenta = CveCuentaProveedorExtranjera - 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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 IdCtaContable = CtaProveedorComplementaria - CveCuenta = CveCuentaProveedorComplementaria - 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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 ErrorPrepoliza = True Exit For End If @@ -7497,15 +7405,13 @@ Partial Class Compras_Compras importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador IdCtaContable = CtaProveedorExtranjera - CveCuenta = CveCuentaProveedorExtranjera - 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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, Contabilizable:=SeContabiliza) Then Dim CveConceptoContableComplementaria As Integer = 206 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor IdCtaContable = CtaProveedorComplementaria - CveCuenta = CveCuentaProveedorComplementaria - 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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 ErrorPrepoliza = True Exit For End If @@ -7522,12 +7428,10 @@ Partial Class Compras_Compras ConceptoContable = 64 TipoMovimiento = True IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria ElseIf importeMovimiento < 0 Then ConceptoContable = 65 TipoMovimiento = False IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria End If importeMovimiento = importeMovimiento.Abs.RoundSQL() @@ -7535,7 +7439,7 @@ Partial Class Compras_Compras If importeMovimiento <> 0 Then Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -7549,11 +7453,9 @@ Partial Class Compras_Compras importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador IdCtaContable = CtaProveedorAnticiposExtranjera - CveCuenta = CveCuentaProveedorAnticiposExtranjera - 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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 IdCtaContable = CtaProveedorAnticiposComplementaria - CveCuenta = CveCuentaProveedorAnticiposComplementaria - 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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 ErrorPrepoliza = True Exit For End If @@ -7565,15 +7467,13 @@ Partial Class Compras_Compras If TxtTotal.Text.ToDouble > 0 AndAlso TieneAnticiposXML = False Then importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador IdCtaContable = CtaProveedorExtranjera ' CtaProveedorAnticiposExtranjera - CveCuenta = CveCuentaProveedorExtranjera 'CveCuentaProveedorAnticiposExtranjera - 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, CveCuenta:=CveCuenta, CveCompraAmortizacion:=CveCompraNC, Contabilizable:=SeContabiliza) Then + 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 Dim CveConceptoContableComplementaria As Integer = 206 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor IdCtaContable = CtaProveedorExtranjera 'CtaProveedorAnticiposComplementaria - CveCuenta = CveCuentaProveedorExtranjera 'CveCuentaProveedorAnticiposComplementaria - 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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 ErrorPrepoliza = True Exit For End If @@ -7587,7 +7487,7 @@ 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), CveCuenta:=CveCuentaIvaxAcreditar, 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, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -7599,7 +7499,7 @@ Partial Class Compras_Compras 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), CveCuenta:=CveCuentaIvaxAcreditar, 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, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -7618,19 +7518,17 @@ Partial Class Compras_Compras ConceptoContable = 64 TipoMovimiento = True IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria ElseIf importeMovimiento < 0 Then ConceptoContable = 65 TipoMovimiento = False IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria End If importeMovimiento = importeMovimiento.Abs.RoundSQL() importeMN = importeMovimiento If importeMovimiento <> 0 Then Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For @@ -7651,9 +7549,8 @@ Partial Class Compras_Compras Dim ImporteAntMN As Decimal = ImporteAnt * TipoCambioAnt If usacomplementariaAnticipo Then IdCtaContable = CtaProveedorAnticiposComplementaria - CveCuenta = CveCuentaProveedorAnticiposComplementaria 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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 ErrorPrepoliza = True Exit For End If @@ -7662,11 +7559,10 @@ Partial Class Compras_Compras If TipoCambioAnt > 1 Then IdCtaContable = CtaProveedorAnticiposExtranjera - CveCuenta = CveCuentaProveedorAnticiposExtranjera 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, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + 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 ErrorPrepoliza = True End If @@ -7674,13 +7570,12 @@ Partial Class Compras_Compras Dim CveConceptoContableComplementaria As Integer = 201 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307 Dim IdCtaContablePago As Integer = CtaProveedor - Dim CveCuentaPago As Integer = CveCuentaProveedor Dim usacomplementariaProveedor As Boolean = False usacomplementariaProveedor = If(tipoCambioActual > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False) 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), CveCuenta:=CveCuentaProveedorComplementaria, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + 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 ErrorPrepoliza = True End If importeMN = importeMovimiento @@ -7688,7 +7583,6 @@ Partial Class Compras_Compras If tipoCambioActual > 1 Then IdCtaContablePago = CtaProveedorExtranjera - CveCuentaPago = CveCuentaProveedorExtranjera End If Dim CveConceptoContablePago As Integer = 17 @@ -7704,7 +7598,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), CveCuenta:=CveCuentaPago, Contabilizable:=SeContabiliza) Then + 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 ErrorPrepoliza = True End If @@ -7717,18 +7611,16 @@ Partial Class Compras_Compras ConceptoContable = 64 TipoMovimiento = True IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria ElseIf importeFluctuacion < 0 Then ConceptoContable = 65 TipoMovimiento = False IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria End If importeFluctuacion = importeFluctuacion.Abs.RoundSQL() If importeFluctuacion <> 0 Then Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeFluctuacion, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeFluctuacion, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -7749,7 +7641,7 @@ Partial Class Compras_Compras If ImporteIVA <> 0 Then 'Agregamos el 14 - If 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), CveCuenta:=CveCuentaIvaxAcreditar, PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then + If 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 ErrorPrepoliza = True End If @@ -7775,7 +7667,13 @@ Partial Class Compras_Compras 'Simplificacion de PrePolizas If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjConta.PrePolizaSimplificacion(Ant.CvePrePoliza, UsuarioActual.CveEmpresa) Then + + If Not ObjConta.UpdatePrePolizasDetalleBloquear(Ant.CvePrePoliza, False) Then + ErrorPrepoliza = True + Alert("No se pudo desbloquear los movimientos", TipoMensaje.MsgError) + End If + + If Not ErrorPrepoliza AndAlso Not ObjConta.PrePolizaSimplificacion(Ant.CvePrePoliza, UsuarioActual.CveEmpresa) Then ErrorPrepoliza = True Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) End If @@ -7791,7 +7689,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), CveCuenta:=CveCuenta, 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, 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 ' ErrorPrepoliza = True ' Exit For ' End If @@ -7813,7 +7711,7 @@ Partial Class Compras_Compras - 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), CveCuenta:=CveCuenta, 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, 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 ErrorPrepoliza = True Exit For End If @@ -8873,7 +8771,7 @@ Partial Class Compras_Compras ObjConta = New ClsContabilidad(ObjCompra.IniciaTransacSQL) End If - Dim CveCompraNC, IdCtaContable, CveCuenta As Integer + Dim CveCompraNC, IdCtaContable As Integer Dim PorcentajePago, ImporteMovimiento, sumaAmortizacion, sumaAmortizacionCompleto As Decimal Dim ConceptoPoliza As String = $"Amortización {NombreProveedor} - {TxtSerie.Text}-{TxtFolio.Text}" @@ -8896,7 +8794,6 @@ Partial Class Compras_Compras Dim tipoCambioNC As Decimal Dim alertaContabilizacion As New StringBuilder Dim idCuentaContabilizacion As Long = 1 - Dim CveCuentaContabilizacion As Long = 1 Dim CvePrepolizaPadre As Integer = CvePrePoliza Dim CuentasContablesInvalidas As New StringBuilder Dim CuentasContablesInvalidasSIG As New StringBuilder @@ -8928,7 +8825,6 @@ Partial Class Compras_Compras Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False) ImporteMovimiento = 0 IdCtaContable = 0 - CveCuenta = 0 Dim Concepto As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text) Dim importeMN As Decimal = 0 Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1) @@ -8953,12 +8849,10 @@ Partial Class Compras_Compras If DdlMoneda.SelectedValue.ToEntero <> 1 Then IdCtaContable = CtaProveedorAnticiposExtranjera - CveCuenta = CveCuentaProveedorAnticiposExtranjera - If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, "", ConceptoContable, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra, CveCuenta:=CveCuenta) Then + If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, "", ConceptoContable, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then If UsuarioActual.CveEmpresa.Contiene(119) Then IdCtaContable = CtaProveedorAnticiposComplementaria - CveCuenta = CveCuentaProveedorAnticiposComplementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeMN - ImporteMovimiento, "", 266, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN - ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeMN - ImporteMovimiento, "", 266, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN - ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then ErrorMovtosCxP = 1 Exit Select End If @@ -8969,10 +8863,9 @@ Partial Class Compras_Compras End If Else IdCtaContable = CtaProveedorAnticipos - CveCuenta = CveCuentaProveedorAnticipos If ImporteMovimiento <> 0 Then PorcentajePago = ImporteMovimiento / TxtTotal.Text.ToDecimal - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, "", ConceptoContable, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), CveCompraAmortizacion:=CveCompra, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, "", ConceptoContable, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), CveCompraAmortizacion:=CveCompra) Then ErrorMovtosCxP = 1 End If End If @@ -8996,11 +8889,9 @@ Partial Class Compras_Compras If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then IdCtaContable = CtaProveedorExtranjera - CveCuenta = CveCuentaProveedorExtranjera - If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, ConceptoPartida, ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra, CveCuenta:=CveCuenta) Then + If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, ConceptoPartida, ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then IdCtaContable = CtaProveedorComplementaria - CveCuenta = CveCuentaProveedorComplementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeMN - ImporteMovimiento, ConceptoPartida, 235, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN - ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeMN - ImporteMovimiento, ConceptoPartida, 235, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN - ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then ErrorMovtosCxP = 1 Exit Select End If @@ -9010,10 +8901,9 @@ Partial Class Compras_Compras End If Else IdCtaContable = CtaProveedor - CveCuenta = CveCuentaProveedor If ImporteMovimiento <> 0 Then PorcentajePago = ImporteMovimiento / TxtTotal.Text.ToDecimal - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, ConceptoPartida, ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), CveCompraAmortizacion:=CveCompra, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, ConceptoPartida, ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), CveCompraAmortizacion:=CveCompra) Then ErrorMovtosCxP = 1 End If End If @@ -9029,7 +8919,6 @@ Partial Class Compras_Compras sumaAmortizacion += ImporteMovimiento sumaAmortizacionCompleto += ImporteMovimiento IdCtaContable = CtaProveedorAnticipos - CveCuenta = CveCuentaProveedorAnticipos PorcentajePago = ImporteMovimiento / TxtTotal.Text.ToDecimal @@ -9051,9 +8940,8 @@ Partial Class Compras_Compras Dim ImporteAntMN As Decimal = ImporteAnt * TipoCambioAnt If usacomplementariaAnticipo Then IdCtaContable = CtaProveedorAnticiposComplementaria - CveCuenta = CveCuentaProveedorAnticiposComplementaria ImporteAntMN = TipoCambioAnt * ImporteAnt - ImporteAnt - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteAnt, "", 266, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraNC, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, ImporteMX:=ImporteAntMN, ImporteME:=ImporteAnt, TipoCambio:=TipoCambioAnt, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteAnt, "", 266, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraNC, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, ImporteMX:=ImporteAntMN, ImporteME:=ImporteAnt, TipoCambio:=TipoCambioAnt) Then ErrorMovtosCxP = 1 End If ImporteAntMN = ImporteAnt @@ -9061,10 +8949,9 @@ Partial Class Compras_Compras If TipoCambioAnt > 1 Then IdCtaContable = CtaProveedorAnticiposExtranjera - CveCuenta = CveCuentaProveedorAnticiposExtranjera End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteAnt, "", ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, CvePrePolizaOriginal:=CvePrePolizaNueva, ImporteME:=If(tipoCambio = 1, 0, ImporteAnt), CveCompraAmortizacion:=CveCompraNC, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteAnt, "", ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, CvePrePolizaOriginal:=CvePrePolizaNueva, ImporteME:=If(tipoCambio = 1, 0, ImporteAnt), CveCompraAmortizacion:=CveCompraNC) Then ErrorMovtosCxP = 1 End If @@ -9082,22 +8969,16 @@ Partial Class Compras_Compras ConceptoContable = 64 TipoMovimiento = True IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria ElseIf importeFluctuacion < 0 Then ConceptoContable = 65 TipoMovimiento = False IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria End If - - - - importeFluctuacion = importeFluctuacion.Abs.RoundSQL() If importeFluctuacion <> 0 Then Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeFluctuacion, "", ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePolizaNueva, ImporteME:=0, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeFluctuacion, "", ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePolizaNueva, ImporteME:=0) Then ErrorMovtosCxP = 1 End If End If @@ -9116,11 +8997,10 @@ Partial Class Compras_Compras sumaAmortizacion += ImporteMovimiento sumaAmortizacionCompleto += ImporteMovimiento IdCtaContable = CtaProveedorDeudores - CveCuenta = CveCuentaProveedorDeudores If ImporteMovimiento <> 0 Then PorcentajePago = ImporteMovimiento / TxtTotal.Text.ToDecimal - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, "", ConceptoContable, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), CveCompraAmortizacion:=CveCompraNC, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, "", ConceptoContable, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), CveCompraAmortizacion:=CveCompraNC) Then ErrorMovtosCxP = 1 End If End If @@ -9154,15 +9034,13 @@ Partial Class Compras_Compras If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then IdCtaContable = CtaProveedorExtranjera - CveCuenta = CveCuentaProveedorExtranjera - If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=TipoCambio17, CveCuenta:=CveCuenta) Then + If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=TipoCambio17) Then Dim CveConceptoContableComplementaria As Integer = 206 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor IdCtaContable = CtaProveedorComplementaria - CveCuenta = CveCuentaProveedorComplementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeMN - ImporteMovimiento, Concepto, CveConceptoContableComplementaria, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN - ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=TipoCambio17, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeMN - ImporteMovimiento, Concepto, CveConceptoContableComplementaria, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN - ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=TipoCambio17) Then ErrorMovtosCxP = 1 Exit Select End If @@ -9172,9 +9050,8 @@ Partial Class Compras_Compras End If Else IdCtaContable = CtaProveedor - CveCuenta = CveCuentaProveedor If ImporteMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(TipoCambio17 = 1, 0, ImporteMovimiento), CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(TipoCambio17 = 1, 0, ImporteMovimiento)) Then ErrorMovtosCxP = 1 Exit For End If @@ -9183,6 +9060,7 @@ Partial Class Compras_Compras ImporteMovimiento = 0 Case 14 'Iva X Acreditar + If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then If sumaAmortizacion = CompraSaldo Then @@ -9201,39 +9079,44 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio PorcentajeImpuesto = TmpDT.MAX("IVAPorcentaje").ToDecimal IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0) + + If chkImportacion.checked Then + ConceptoContable = 287 + End If + If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero End If End If End If - Case 287 'Iva X Acreditar importacion - If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then - If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then - If sumaAmortizacion = CompraSaldo Then - ImporteMovimiento = TxtIVA.Text.ToDecimal + 'Case 287 'Iva X Acreditar importacion + ' If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") AndAlso chkImportacion.checked Then + ' If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then + ' If sumaAmortizacion = CompraSaldo Then + ' ImporteMovimiento = TxtIVA.Text.ToDecimal + + ' If ImporteMovimiento > 0 Then + ' IVACompleto = True + ' End If + + ' Else + ' ImporteMovimiento = 0 + ' End If + ' Else + ' ImporteMovimiento = Math.Round(PorcentajePago * TxtIVA.Text.ToDecimal, 2) + ' End If + ' importeMN = ImporteMovimiento * tipoCambio + ' PorcentajeImpuesto = TmpDT.MAX("IVAPorcentaje").ToDecimal + ' IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0) + ' If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then + ' If ObjConta.DtResultados.Rows.Count > 0 Then + ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero + ' End If + ' End If + ' End If - If ImporteMovimiento > 0 Then - IVACompleto = True - End If - Else - ImporteMovimiento = 0 - End If - Else - ImporteMovimiento = Math.Round(PorcentajePago * TxtIVA.Text.ToDecimal, 2) - End If - importeMN = ImporteMovimiento * tipoCambio - PorcentajeImpuesto = TmpDT.MAX("IVAPorcentaje").ToDecimal - IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0) - If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then - If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero - End If - End If - End If Case 19 'Iva Acreditado If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then @@ -9249,10 +9132,13 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio PorcentajeImpuesto = TmpDT.MAX("IVAPorcentaje").ToDecimal IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0) + + If chkImportacion.checked Then + ConceptoContable = 288 + End If If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero End If End If End If @@ -9264,14 +9150,12 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -9288,14 +9172,12 @@ Partial Class Compras_Compras If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -9323,14 +9205,12 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -9346,14 +9226,12 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -9369,14 +9247,12 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -9392,14 +9268,12 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -9414,14 +9288,12 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -9437,14 +9309,12 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA - CveCuenta = CveCuentaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, 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 End If End If End If @@ -9458,14 +9328,12 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio If CtaProveedorRetISR > 0 Then IdCtaContable = CtaProveedorRetISR - CveCuenta = CveCuentaProveedorRetISR ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(315).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero End If End If End If @@ -9479,14 +9347,12 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio If CtaProveedorRetISR > 0 Then IdCtaContable = CtaProveedorRetISR - CveCuenta = CveCuentaProveedorRetISR ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(316).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero End If End If End If @@ -9499,14 +9365,12 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio If CtaProveedorRetISR > 0 Then IdCtaContable = CtaProveedorRetISR - CveCuenta = CveCuentaProveedorRetISR ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(317).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero End If End If End If @@ -9519,14 +9383,12 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento * tipoCambio If CtaProveedorRetISR > 0 Then IdCtaContable = CtaProveedorRetISR - CveCuenta = CveCuentaProveedorRetISR ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero Else If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero End If End If End If @@ -9536,7 +9398,6 @@ Partial Class Compras_Compras 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 IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria Dim TipoCambioDiferenciaCambiaria = If(ChkPagarConPesos.Checked, GlobalTipoCambio(gvr.DataKey("Fecha").ToDate).ToDecimal, tipoCambioNC) Dim TipoCambioDiferenciaCompra = If(ChkPagarConDolares.Checked, GlobalTipoCambio(TxtFecha.Text.ToDate), TipoCambioCompra).ToDecimal If TipoCambioDiferenciaCompra > TipoCambioDiferenciaCambiaria Then @@ -9551,7 +9412,7 @@ Partial Class Compras_Compras If ImporteMovimiento <> 0 Then Dim CveSubProyecto64 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto64, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto64, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0) Then ErrorMovtosCxP = 1 Exit For End If @@ -9564,7 +9425,6 @@ Partial Class Compras_Compras 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 IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria Dim TipoCambioDiferenciaCambiaria = If(ChkPagarConPesos.Checked, GlobalTipoCambio(gvr.DataKey("Fecha").ToDate).ToDecimal, tipoCambioNC) Dim TipoCambioDiferenciaCompra = If(ChkPagarConDolares.Checked, GlobalTipoCambio(TxtFecha.Text.ToDate), TipoCambioCompra).ToDecimal If TipoCambioDiferenciaCambiaria > TipoCambioDiferenciaCompra Then @@ -9575,7 +9435,7 @@ Partial Class Compras_Compras If ImporteMovimiento <> 0 Then Dim CveSubProyecto65 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto65, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto65, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0) Then ErrorMovtosCxP = 1 Exit For End If @@ -9592,13 +9452,9 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) 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 - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then + + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto) Then ErrorMovtosCxP = 1 Exit For End If @@ -9630,11 +9486,11 @@ Partial Class Compras_Compras If TxtIVA.Text.ToDecimal > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, True, TxtIVA.Text.ToDecimal, "", 14, "", Fecha, IdCtaIVAXAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, True, TxtIVA.Text.ToDecimal, "", 14, "", Fecha, IdCtaIVAXAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), PorcentajeImpuesto:=PorcentajeImpuesto) Then ErrorMovtosCxP = 1 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, False, TxtIVA.Text.ToDecimal, "", 19, "", Fecha, IdCtaIVAAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, False, TxtIVA.Text.ToDecimal, "", 19, "", Fecha, IdCtaIVAAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), PorcentajeImpuesto:=PorcentajeImpuesto) Then ErrorMovtosCxP = 1 End If End If @@ -10526,7 +10382,6 @@ Partial Class Compras_Compras Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False) Dim importeMovimiento As Decimal = 0 Dim IdCtaContable As Integer = 0 - Dim CveCuenta As Integer = 0 Dim importeMN As Decimal = 0 Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1) Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation @@ -10534,11 +10389,11 @@ Partial Class Compras_Compras Select Case ConceptoContable 'Case 5 ' IdCtaContable = 1244 - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal)) Then ' ErrorPrepoliza = True ' End If ' IdCtaContable = 1243 - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal)) Then ' ErrorPrepoliza = True ' End If Case 6 @@ -10590,7 +10445,7 @@ Partial Class Compras_Compras End If If importeMovimiento <> 0 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, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) 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, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento)) Then ErrorPrepoliza = True End If End If @@ -10600,7 +10455,6 @@ Partial Class Compras_Compras 'LIMPIA importeMovimiento = 0 IdCtaContable = 0 - CveCuenta = 0 'COSTO ALMACEN Dim DtAlmacenes = GlobalDTAlmacen(UsuarioActual.CveEmpresa) @@ -10633,10 +10487,9 @@ Partial Class Compras_Compras If DdlTipoCompra.SelectedValue = "10" Then SeContabiliza = False IdCtaContable = 0 - CveCuenta = 0 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -10648,7 +10501,6 @@ Partial Class Compras_Compras 'LIMPIA importeMovimiento = 0 IdCtaContable = 0 - CveCuenta = 0 'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ] If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then @@ -10663,7 +10515,7 @@ Partial Class Compras_Compras If importeMovimiento <> 0 Then Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionAlmacen, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionAlmacen, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento)) Then ErrorPrepoliza = True End If End If @@ -10684,7 +10536,7 @@ Partial Class Compras_Compras If importeMovimiento <> 0 Then Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionAlmacen, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionAlmacen, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento)) Then ErrorPrepoliza = True End If End If @@ -10750,7 +10602,7 @@ Partial Class Compras_Compras 'AGREGA MOVIMIENTO If importeMovimiento <> 0 Then Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, 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) Then ErrorPrepoliza = True End If End If @@ -10761,7 +10613,6 @@ Partial Class Compras_Compras 'LIMPIA importeMovimiento = 0 IdCtaContable = 0 - CveCuenta = 0 End Select @@ -14161,7 +14012,6 @@ Partial Class Compras_Compras If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero - CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero EstaAsociadoACajaChica = True End If ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue @@ -15142,7 +14992,7 @@ Partial Class Compras_Compras If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero, dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero, dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero, - dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero, CveCuenta:=dr("CveCuenta").ToString.ToEntero, + dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero, ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero, CveCompraAmortizacion:=dr("CveCompraAmortizacion").ToString.ToEntero) Then ErrorCancelar = True @@ -15166,7 +15016,7 @@ Partial Class Compras_Compras If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero, dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero, dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero, - dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero, CveCuenta:=dr("CveCuenta").ToString.ToEntero, + dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero, ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then ErrorCancelar = True Exit For @@ -17588,6 +17438,11 @@ Partial Class Compras_Compras End If End If + If Not CveCompra > 0 Then 'cuando se está registrando manualmente y se va amortizar + LblSaldoFactura.Text = TxtTotal.Text.FormatoNumero + End If + + LblRetIVA.Text = (If(SubTotal2 > 0, (RetIVA / SubTotal2), 0) * 100).FormatoNumero(3) + "%" LblRetISR.Text = (If(SubTotal2 > 0, (RetISR / SubTotal2), 0) * 100).FormatoNumero(3) @@ -19519,9 +19374,7 @@ Partial Class Compras_Compras 'CONFIGURACIONES Dim CuentasContablesInvalidas As New StringBuilder - Dim CuentasContablesInvalidasSIG As New StringBuilder Dim IdCtaContable As Integer = 0 - Dim CveCuenta As Integer = 0 Dim CveProveedorConcepto = 0 Dim Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" Dim Multiplicador = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1) @@ -19562,17 +19415,14 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(49, Row2("CveActivoFijo").ToString.ToEntero) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContActivoFijo").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContActivoFijoSIG").ToString.ToEntero End If End If If ImporteMovimiento <> 0 Then If IdCtaContable = 0 Then CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString) End If - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString) - End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), CveCuenta:=CveCuenta) Then + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento)) Then TieneError = True End If End If @@ -19602,7 +19452,6 @@ Partial Class Compras_Compras End If CveMovimientoInventario = DtInv.MAX("CveMovimiento", $"CveCompraDetalle = {Row2("CveCompraDetalle")}").ToEntero IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero - ' CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero ImporteMovimiento = DtInv.SUM(If(DdlMoneda.SelectedValue = "1", "Total", "TotalExtranjero"), $"CveCompraDetalle = {Row2("CveCompraDetalle")}").ToDecimal ImporteMovimiento = If(ImporteMovimiento > Row2("Total").ToString.ToDecimal, Row2("Total").ToString.ToDecimal, ImporteMovimiento) * Multiplicador @@ -19616,7 +19465,6 @@ Partial Class Compras_Compras Dim DrInv = DtMovtosAlmacen.NewRow DrInv("CveMovimiento") = CveMovimientoInventario DrInv("IdCtaContable") = IdCtaContable - DrInv("CveCuenta") = CveCuenta DrInv("Importe") = ImporteMovimiento DtMovtosAlmacen.Rows.Add(DrInv) @@ -19632,9 +19480,7 @@ Partial Class Compras_Compras If IdCtaContable = 0 Then CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString) End If - 'If CveCuenta = 0 Then - ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString) - 'End If + Dim SeContabiliza As Boolean = True 'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68 If DdlTipoCompra.SelectedValue = "10" Then @@ -19651,7 +19497,6 @@ Partial Class Compras_Compras ImporteMovimiento = 0 IdCtaContable = 0 - CveCuenta = 0 'INGRESA DETALLE DE GASTO(6) DT = DtTemporal @@ -19684,10 +19529,8 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(6, Row2("CveClasificacion").ToString.ToEntero) Then If ObjConta.DtResultados.Rows.Count > 0 AndAlso (ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero > 0 Or ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero > 0) Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero Else IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero - CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero End If End If End If @@ -19700,9 +19543,7 @@ Partial Class Compras_Compras If IdCtaContable = 0 Then CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString) End If - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString) - End If + Dim tcvecon As Integer = 6 Dim tidctacon As Integer = 6 tidctacon = IdCtaContable @@ -19715,7 +19556,7 @@ Partial Class Compras_Compras End If Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, tcvecon, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, tcvecon, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento)) Then TieneError = True End If @@ -20454,7 +20295,7 @@ Partial Class Compras_Compras End If Else '2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, ConceptoPartida, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then Retorno = False Exit For From 9f76a4d4ba8b98ae2281b2f2f87bc3b7d6f431b4 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 May 2021 13:38:13 -0700 Subject: [PATCH 14/19] =?UTF-8?q?--=20columnas=20de=20retenci=C3=B3n=20IVA?= =?UTF-8?q?=20e=20ISR?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/RepComprasDetalle.aspx | 9 +++++++++ Compras/RepComprasDetalle.aspx.vb | 25 +++++++++++++------------ 2 files changed, 22 insertions(+), 12 deletions(-) diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx index 405e52e78..050c2e50b 100644 --- a/Compras/RepComprasDetalle.aspx +++ b/Compras/RepComprasDetalle.aspx @@ -355,6 +355,8 @@ + + Total @@ -498,6 +500,13 @@ + + + + + + +
diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index 9e2776116..d66383613 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -368,14 +368,13 @@ Partial Class Compras_RepComprasDetalle e.Row.FCHyperLink("HplSerieFolio").Text = "" End If - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left - e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Left - e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Left + e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right - + e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right + e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right + End If End Sub @@ -604,13 +603,15 @@ Partial Class Compras_RepComprasDetalle GvDatos.Columns(4).Visible = ChkIVA.Checked GvDatos.Columns(5).Visible = ChkIEPS.Checked GvDatos.Columns(6).Visible = ChkDesc.Checked - GvDatos.Columns(7).Visible = ChkTotal.Checked - GvDatos.Columns(8).Visible = ChkAbre.Checked - GvDatos.Columns(9).Visible = ChkRazon.Checked - GvDatos.Columns(10).Visible = ChkFolio.Checked - GvDatos.Columns(11).Visible = ChkFecha.Checked - GvDatos.Columns(12).Visible = ChkObs.Checked - GvDatos.Columns(13).Visible = ChkDescripcion.Checked + GvDatos.Columns(7).Visible = Chkretiva.Checked + GvDatos.Columns(8).Visible = Chkretisr.Checked + GvDatos.Columns(9).Visible = ChkTotal.Checked + GvDatos.Columns(10).Visible = ChkAbre.Checked + GvDatos.Columns(11).Visible = ChkRazon.Checked + GvDatos.Columns(12).Visible = ChkFolio.Checked + GvDatos.Columns(13).Visible = ChkFecha.Checked + GvDatos.Columns(14).Visible = ChkObs.Checked + GvDatos.Columns(15).Visible = ChkDescripcion.Checked UPDatos.Update() End Sub From a00195d2448de7bfb905054ba83d1c1ff76cf5ac Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 May 2021 13:40:10 -0700 Subject: [PATCH 15/19] =?UTF-8?q?ultima=20versi=C3=B3n,=20cambios=20en=20n?= =?UTF-8?q?=C3=B3minas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bin/GoCfdi.dll | Bin 342528 -> 343040 bytes 1 file changed, 0 insertions(+), 0 deletions(-) diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 9b90aa84d825d1d02c95747205636970cb9909be..aba020c12f4ab08c987d2a636243b15464c8d7e3 100644 GIT binary patch delta 33431 zcmd_T2YggT_cuN>_wHuXce9&9dheZ(gfvPD1OllboggKY0Le;KU=zVm1Ox}UAVomB zs9;b;lqL#DZ-UYh5fl^zDN_8OnR|D$i9FBm@%Mk<_xE`}ug~Y1z2EOSbLPyMGv(gB z8*1(uY91QqOba}{dQ~}6{=0+%{q1o)LP;uw)G`@aI(L0nr!yrgRLF>O6&fte4bVH( zsE`BTWyLDwE!8HdqG@*=W>?i5YWf48L}%bAoJ>E#VK|Lmz=2^7r67X;+Qa_|QXy?; zjN<1IggJ{)>k9%Ze+e^N5%om`XOnGT(3%o=^2ZmnHqRr(c{{2iPAZS^_rbT3I}x%& z#25zTM0bS5NTiQfp*Wfl?~`BvljIe~a(Q?Z=tc)COdF^nGcF4A!gi_)^GO=c1SzcF zsoR)~vH`9h3`~MJBAb3;XOp&G2Z9I`M|qG{JE>oCkZwOPig6y3 zYs|Xe0c-2ek3hsPP*aJ(6t2#Db9`5mCjZ<;agm!r+>NS4WgHaewo}~Rjd<*a@p7l- z?bLc=e4(MM+?!B3H`>S1zF~ygY^Q&Pd3q#)HKpzE8rtsuCB2a2M;3ia|H=s?yS}91 zxe?@tFL_!#{*t8y_M@%yeW9Utdm48;lcj=Rpmjsf?{?BysHrr4wn>!!?ZCSq|Efu3 z3}5rXsLs`s=&$L{&TgdO>%aMGAjVOkXC5LRm7Xjr*{z@FY_gJw$G4f?H)k@l^1Mv$ zxRMFvOg;r2`VUe$+ML{$R-&+*gC^RW?&{!4q8#Y$c!T|Gd(GVys5aM)e7F}z#XCwb z>cr?~N`B7V01*%y&(X6`Pwp-4*fG|?U}LxM?qw6u-DaP~?U@Z;-=(`c`r$n^w^L7i zmu42EhN}0Q4VWWw_irX4tH7j(2UC?JaizhedOtl{kk;w%Q=8jSrnaMPv`*>NDX`LL zf@~y4>pa{zcD)z1%t`w)D@r_S#&$VGp9|u2Tkgn zV6K@Atn7YNg;G<0uu07qfPe*n<=n`FJmzDzR?L zOqjy3kjjj!!bk^c??Qj_;X!IDbR~f17sjVctZ`<_?HRU;&$vTCTQ7jCn-WJ4@g?In z@Qs%Y?P0}NwMdN6O2?uEl6aU-D)J<457W1cS`+;ddafv%prh2TIF5XAl%^NA3mbK; zX$ma1Fy>U=d<@aUb-wh^M0L8lb|p!VyEn_J^5i59EsZ3LPSKLm zG?Mf!on0D7{`!{gD2*a-pQbnAqvILctSpLxU~z+i&By5QUV#L3=JtwZuI}n(2#!D3BtAt=iDl>LsxGa_ z=jZ6PF7f2dIqK0h+4Ui4IcXY&!23My-?cS?R#tV*c1}BQ_RUc+wmnZDboC(x=c(HZ z(UE^Jkvu&wH%!mxcBb+LACDOqEb4DttJCE#xEgw1G`kP$9UqBTF4Ava=*xN;)h&T6 zyvVca%Zv2oZc${xCAy|t4C#BBe%mdlNW5aMt5huq!nl~RJLOE^sqv5ze@l(GerQnR zsqxkiv`tGx$l9w7JojfK5RG%?;8pr=_Ym^)RklgEKLI&$YO;93;5_VJKr}znydDwc z?2oj%MKLk(&0pX8DHR?|E(HW*Oy2y`0qDB1TG^xJwhc(EyQ7>LG!`1uyK@9mX#9|S6M z$a&130prwo$?*IYsK#1pztZyF9^nN{V$-O86{8ww=j>nUvfdu<>p?=C>>6)X(4ix} z+x#tM{rd2f&FT|PKKqqc_K8li%G~SLsc24h^CF}M|M_MI`zft`)pdYX4!_f+BHMWM zDxE4?Z_eQS-^`&jGt|N;nR*t8#<9Hh8yo|@1mpT&>C;Frb_|216^3Y9-+1#R5N^|N z`{t3Ox2bP=ELnAjb}mmPFaA!amB*3hcj?yhUPa&BH8-s^WOomyL^2fS`0^?7DkJ_j zC7xNS@hS1_9!!Z4vhgatJ<5~TOm#^A@sFlk!9hs>#>4vD31M@e-s)FK!tT?o7n2=t z-?t?8B0`IM_>w~p=<*k%N!>$wlne`_f3LkwQ)7AasBD*}X z)J<#1X&Yvd-!YiSP<%@N>hDM5pHlw;1{0U_p|aQ6Hw@L?r{;K>hbruunNcG6ytHo` zgul;#?qJ4h2H3F8r~flVmsNU&I_Mmt^@{asrf0q{k{3WZ#cgPtbWZ}Ea39#lSpqG& zcaEZQ(KEgnzw?aN4a_1v{-R$G^mXZua1}e!8EfG}U?sgjFv##4AZ4lkT!h5swPOZ( zlg^lS927uqVLAfPT})>VDkZB4y*wz8^cSeAB9m@}MW9}*h6Y@8F1!IJ z8{WeE6+vXCnjWtxCBtlJ*x(%EsiDIM=MLJW!HpM_i$EA3FxGly&bI~PZ)v!Nv5Fc` zLrz$$ZC?yYz4j{g7~=1`(GL1+R_BWkZ04 zYuW(Vlt@4JT9VX~9BoCx4y4MPac$9XT|Nd}>b@ z42^X^X^&w!vTwW`U9+d>hxT;SIGAG}m2J+hDGqc~wFjLOX78N-X~Pm=T_it0k0hO)>E7Y- zu6La+eI8*xk~&d`5&mSJmd1`qBcE#N&=E7UhIMO)W~WOZi?4s?0ir~pF)4|9PF2Ds8M zM){LhUFpS9DP)B!^%xyOzHz0kM#qxtu5{$+Fg0;w(~Iiz4epWrQr&o_fr-7NyOA6> z8ZgG7Z{^<5G@m#V-Pt^u?rxbUlDm1HsNVx+Cy{6Jm+tiRm;|3kz{rcNr(ksSFatRL z26e zf2((PtRK^RGPVsF?MYjWt1x+ZHR)J55XKC~S}&(njIdrO`909*R%(1X<%G4GvYa-Y z5qR+WdYczk`f!vBJ!%w_&8z8H5GkiS6+2hTVbimHt-EzpqM_qrGg>{~gUs@#uaEcF zy$3awTVn@!4w&dmKOf)1HPP1`HuL74<%{XjG;h~3CgBl}8l$95mM=|t*r zPjw)v;e11a{GrPxY1q2O_FU^T5UgRaLDAcj9D1eyePiNlTH}q0t!d7-#?IhE_=%<- z@YSucQ+#!^=W`u8Kf+YvSjMW#Gx;Ls2T*+ky=96fKSxlnnm9ruX+cd~WNeg0E!a9n zz&1K-g4IKH5Yh&9t4ER`JXhndpBCLDr2C>Ff86}<1Mh;2o-tr_T+_}Z#$fs^(#xg@ zq;QkT9~h^dr?s`gp&8L=>czWzrH``7ia26o!^!BS!>S{pB0y;gOrc6$7eisu3-$z`7%LMj>aoha( zBE3JkGg+8O^QJ_RyyoPWX`UE;^-f%$onVJT@Dyg+ zzw*?Z!rXJ^-Zs8F^J+=YPYou}yf7_6+hoZ2HW!u9($Xb4K<;cGuV)=?l=Uy9VtOIb z+v9eFeoaHPAwD~%`Ll*DPmA?Gl4kCTGOUe8QJ+rZrgtJO(&?n>QRHemeQ$bJv)3~$ zZrlO0=1~M)7)9cdN&ROS$brm%G;Df$V@5j%eU`t-hif40SRX^cB@$)+b}hYP;h zm|kvWa8m2kmV1oUZ0i3;0O^)Zv*BY*HXQ^XbF%65Hv)u>pkLM6;Kc96m4rB&O^>`0 z;B-A3CYYn#CnqO*JJ^-{nN3~i1ZeGYK;o?Q)>zk;=FMs4%6rf#E9Zl2<+0uozM!s5 z%yoQb@zw4Wu#HwbRW7|ar!(=%rEznEZQ^p-I;*00UeL$o!?pR=+{wl*-pNUAtN@M& z48BF=4}Clo??>j+#dG~gMK1kft~;5POTV2PMONif;mrWAMwK)=O|+*{X=^TR^`;+z zn3unqDKN)tLz=msWo^hy=4eH6ULHOCW-szd9w-`UYZ~GDNggOQ>i5Y!eq>6ws%}zN zT&}DfQ_bIw+y(=U0^!yU)Av&R=^xaeoXn%{^RmJk8Zm!m1C2CkHWjKtxIIeRnY~WE z&@frS(8hUwX@7xGZp=K3EiPHzIy7i0-41BaT*{+`Z-tW7c697pT}hkv^vGM$043c-FzB3KbG|9KzqQ)(++e7d@SuqKbs#%vJ2=h^Sh8U1+=XcOQcTJC?%4z&UCd@ zQ5I5Y_D5-{HxS0x7`qd;U~rO8rbCSQ+hl4})S$*E6DM}l<+B3R-o=nV{Ciy?s~A)N zWY2VCIdF~F;7Pz(Jse`I>kLLU)|yw$jzvz+I%mtAT2Ty-CA?|YLI?6$F+7?GcRkMP zHNNBfzL-v5*e3KENE!`rWC^G?zU_ktxVIMusZ*K6k@j0`pfPXPJLLgXW)6J&KzBui z(u?u_G-;83$gon2QTK`d;JA5XTGAkp7mDwIFbZW2q2dwk#E8E|^eZbh9?`GL=*C6Q zc^1FEOT*SLH?yw`y|E}d zZ2bd6`Y;ip)C#Dk@sCRQu35SVya>WH{p_ZPr|T8XAB3^7>F3}Cmzv2n4~My@wTRUC zkL`9jA$^8oyZ%gSi}Vk{9IMVW(zh_%_D~~CE5-KK_xFuYuTuciNMFNx*AZ%%H2$kDqSssaX#AIK zI5#z2r`Tm=`by?OD7V|AKJ<W~dJ}VGj~%NTI&|ae^fijqZ`ey~(_<88 zn9=n4%$c{jrf#?6US{03ll#Z%`;{6e59RGlpRLqj8tER)_F!J)O#UzX(|-aBtYyyw z=MSd`$Uae@mG(G`MyzZ}L_0cQWjOwx&RUs(*U}v;gH4ldnPWq%j{KGWhtdqX`O{zN ztC;0MAXFQpd%?mI3=<{IjyYJ&$!qWkRVM$0W>Paaxs*K!<(l^y8OBKoZu?~NcSgE! z@>8u$n(Wee{ihn%lI6);8n1tylLlR*`X@MPd4?rd-_FSau4YYMeH|yiWY32hyr0KO z{$(5^O=-TYPbSXt??Sn%CnJY)l7Feh$yi2q;bitl@brX}of+AhlLIYe2S!G5a&5g? zGmnvOoU|O^(oAg`i#ZD?3B@R{e-plaP#Y~fZdwV`Jk3eIp9ixM8N|rloP;f1sb0s( z_c__tGIpyOxqy@7EaVCkV<&T#f2kkLjDEt%5uD`DcsThjBfE2wKY!umaYp8F@-}-^ z!^!U%8OO;vmX@wC(vy>`E#w8!1gwg)$1UtNrg|F|A+^!+{ZHDjj6BOp5x)JATl$%i zUvu(zOZDFwxrvicEaabzT+B(2-eyOM3Yk#qRL=4TF2Ov>*{nBmat(Xf!bvqFdvo$d zcFWI6Cq}mCB)>ausNS5D{PwY-x-TdB4Vk67Db<#0QI$S1OqyC8xnm6>itgs2cbw$77AuhY7wJ`kHoVZga`*gCC{ z`l(2(-VY;h@DKfi>|5Dn(B-tau2?LFGfs-_h)!_LN>$@*aE9Jc+;v4 z6(qG6zx-o^R-YOROKqb@e7G#>{g%ujG4(Sfn~;Fee&C3E&^GHm_*D|W^8UcLKI4N4 zn3VUXpM5xsyxF@xf8%vbR`#aNKYE+o?oE$;lt?`LP@%rSsaGF%x;66W#V_`uz3V*% z_C@2%^&xibYex{x=mYmK^}c4fx-r}>Lk~syB$$&QAAiM?v{xS*x48wm--iy`>_;;C z(y5zw>n8M7bVgP~LKr9Xr9D0lBz1l1q>rmeL^-|vaXcAVP6Iy~Ve=;BvvGMjl|Jd| zw5r^?8m+C=Q~efC@_spu+v4i738a%wfjw??h4JI^`mS4!;T~Ioms9cvgf%r3l24~G z-nFpT7|Tv7z`FJ`>xQrmjx7tordwEF#$J`#zWr$JR)eY9B6MTIPi5g$3!A{$6*9ZT z!oI-RnKFCU!WJ=hjLhm^G`li@vE?$`$-<6fYzNVYdpO)eS2H?ER(|b8n(&#y^r1yK znF%$r@H-1Tg|Te&g|7Z#VLxQ-Ihpn8Z}#P5#(pictt{+z#%`3^{uXvGW8W5J4@X<* z$BdpLE3fNMFMnq6IARe-0-xGV7XHz{-f^29f$^hKY&K<@Nv)$gcK=c#Y+Qe*^Zdf$#AVxjSPdl2oGlkzXv}*6$V{B z@*c~+1E9fgy7lZqM`xh_VDwoF&AwwzMnvIT4x%S_G$&^VQrn#!$$^2i>&`HnR)e6$ z;z9JrZZ85K%Xhljz@*{ScDUwq0{F8#{TypSwZW9lu2R=stTOmhB`2;LI(1|a9l7f+ znLLmV*gfe#wch&6-^htUG-1zYB&LGi+A~(O9Fkl#N)@#7t7c?L1)cg;f$#DP#=Xzd zKh6>lL9dF65R7Ll=$)@xHB?Lex_{tv^|`xxb(9aQQ~$-+K3KR|0Z)JS8R(t8El9v% z8ouuhQZcxG>%J^Z4h*J`_FrYax%kazBw`3%bfDOO{1E8%Tqs691~=@Z+|};fs*wv0 z451DOQvxG~g8UiCNB#vxsLjZy@L}XEysK_!%p6Jw9-JIxdafF0nVP^B5c@-ZgbtEySeRDF0fsTf8l9v)0!B{Urkp$NZ&c-L%%=0gLJK?i_V0T z1=aMcGkN4%HFf-M8zaB@u8Ooa(v0tGNR5$h|9%l8d!Eg7{@e(;0Y5LWi-s?Ae>c)K zXIneBw&py@ZE}C zs0R4@;`1tEWdM}H08?g08z}={d_K4S!bN9+1dpP>UAaU?jjBKP!vIY7jG`$&7CJTb z0nGePz0U`_FshN2-)YhLyn3f=4n(US4Iy(3hxLhlt>QVlKJxmff_l#=VEt+OkKRELpca<-vll#Ct@ufCTy2zKau$?qF6vs-x24g!~@K*%w z^fX20;_1gvN087l(sDcOOS7NlE7u0P;#oD$XjH9S#_{z0Un5B8F|5_M2H~!7`PO#4 zkCcy*<}|}`Tee_)T|-83lNHLRLGrc7)ud*OG}j(iuuo{uAUQeUl}f#E>8LBV+42K0 zBAGKrny$lBmCqQdl?xo2){l`kx#0fn(@l?S$v5D^6JKeI9(RFj$;p6ck=tXWB?jD+ zeg0{{8_c%1fbDuho{f=S^8hJ)Uh&}4E#R?UrP7YYRX%jnUm?;VUtD1Y`}l#^p<|_E ze&98Ha<4o41DP>a+U1X5Q9gsDegSv{=>wVpK*A>ogQV&}Ag7I$E(bz&_~g~$3+igJ z0W^bvgiqOKFpy`US}>NB&lqWH2z2`%C(EVop*TeWG187u{I0oka^PqfzDc$ptMe#<71W7E>{=4@uiM=d7Co4}0R1Heul z?FUnXVWZ(?c#daGgOcxbe0Q~vYEL-Dwc)!;Ptay6iXuBAD2mL^iy%?#%&^#zN@B1F zIrFkq8G{qa@^Wce49;?jdak>1Zc( zuI=e)HQJH&S(zG%;qyz>s5CMWB=GU@((d=vz;fX$Ido4?iZpAPcue3L@4-YjfeR&xt zuxp!C*894k*=^P6yI`L@JLD5OAvzFE2~N%nMB`(AEl{J^BhQ5eqOl>r76hV_AXa|i zzal9RMf$PpIURm2utV9A%;}im>CK(c-H_?c1CdwOuLVv>7s9&HIe5AWMs{`p3*gr< zQff32D%hd69VUSIB2)-P$9)!Q)MyEhK|rhN5QzsVqng{HEddjv?a+-NR-X0m3(Pyg zth^h}%3b`r0!qjtUuJoiFUyUCe6T7+#_SKziZ#K=`LVH)iW$`{mi4|Mf-$jOSUEO; zrOvm0tkghexS*4bOIfZg3uEO0 zZ&n6D_J9-q1&}w97`oaGeeBOt=^Ci2QF$nH!atjp*&=hL8&9G@?)4^b=Fo{u79l5| zM7EGIcIc1hHLj6}7Vl0{BL{&=S9s@0eBoG% z03LgyRnaU(nulG>@GJr{LJLdsMUO0RRR@=DtPKhe8ew1umtMQnd5w#{2a^7-Qm6c zi8pYzY!i&;H5gx*xxSm)v9$%mjUbf#e_C|1#VOl-evM$2c_Wh{J&FZJizJUE>}xuj z+!E)Y`w07M(S7@)$^CE-l#UsS@;;iJk9woF9A(8Y)E^acG%}i@L8vQ7pSUtqiTY!V z5jxT4X!3A80Zjp*MK?PhO&$+u8kcS2vWaL0mmTVO)C9tbXf_wlYRxK6LUXuqPX|_U z5}L%E4ybM!5WO>Bwl&`ut;@}k(p{ABbxI>9TBZxfq19M4BTbJay1V-v>%`jyM(ahZf} zb6I`ISm{O!9A+Ba>IZQ+UWvR3i}dvTAH?y1{0V5Gqn3WajnPpz43 zH45i4S1wzPqPeV;%hsS+E*sl{)mwuSIeP4sqHc-Tq9nrdV~F%dGIlim-YP{s9KVn9 zxQb1O6!myO9XRR{e>Arx{s0y53Xn9p`Dh24%+cjShIXSFyxH}wkLC`?Un9!vUFdK$ zcRV18%d*=t*m~bC@hYR=QGvPk;E*JjZhROD$Ra~aw75Afc zT;|MW-=O!nEUhD}_YL}x%lh*M51>t4R>kWbKp%6NmOFY7ZQ-)O4klLdAlk---n`-= z^aU5j@rsAgE_gPgMRW4*<>jNp=u7xPwiXS@zn8ZVA4U7PW>REz=X`Vw9p&i7LWWMD zQ@q}dh|2c)=oI>%%QS^DI?HAHyh?8no<u_mnDvl@& z?J@)?$G{O#dUrBHc{i7p-FX8qwCf4iht#Y>N=sJmNoD1L5>~46n7Qditel_D%6JLh zUYeY}AnOBFag7U@D6W~nukW{I*H!%bXMR1MUkkjMhTfQaFh_dO5|`quTRNs;N1Pv2 z_!(IL@0DNbrb6BGyu2zcPsgP;iXrK7I`+X=rDhp8F6CbtZ?9$5ua>dyWjdXM^0+7K zyd5utBvS@%0X9C)z=x_@ypqW9u9y%-?%EBqwT~f8e6Qim+wb5!(Wvnc#>XfI|p_?4lqN+{>T0JUD zV6s}YLwdgz_Ucko++FL2t|!Z6v;4kVcN7ng@|em_+rHXnXoG@KX&LcCnp9cVK75eY z8};I-4t-KQTX5ruTa2#5Z3mO(WNgxQMKe3ds4{uGwl8uhkkKkBJsU?vt?ay4 zI}D*xnJh{?q#ce5%4GC<@(JxoRMS;PD(Q`E$lVfXZ!&t=QznmyhqQHQb1xa4k$wQ1 zrquTKx_8jZ{xaDk(V$z2E)9^83EEqS77vtBPmPc6Jv3*KjO^3xbswTV6*B6d5Te_R zv_oWcv)x|pRy1y?jMgN?>b9X#;5h5%wbWSM4s@ncM*B=D$+|DmfZ;M6nVYWLgMvrM z$l%acw-?onl+j~!Li-K63O9hvOsSZ!JB)6QmQg$LtoA!pK2}DH+MUpzL($`9MB8=K zT|$P5GMblsR{Jyhe3Fc&YD}@ZTPV0zh9=D*-5u0xij3NzYTZL*m?5KHi-Tv&C@!}~r^7ejkkQ4Kvvpqh;hQpYvRP`$n;5lYyhYm09#lTm)!K3zLpxk5%C25OP1BaVJohD!q1Y76kql`4lWDvO$9~3++U1?x67LM)ATM&u<4Ql-%D4ccks!bvamRi zp^fadaR_idDI@P-_~k$R2S-~#%W(W*Syl#UIj&JqJr09|aQRVLmaPgyEAdf|YSFtY zH}z_K^_VPsTUAEZU=P!A8Scy|BWv+y1wHfAqIG!l2_~yWlheY`dc5GItT|Yhao34Ar96Dc#8@*yFM+`_0DRWebkK3~vgs z9{NW{xO|S!U6Iiz#Y@#YanTPl>QdzI@+E$vpc`U>%Rap4DwEZsQL0Rrqj=7bvgT_l zQFjs-U6YY({94^<{6s;)WUcNj9&lZjt&fOsxrjAC!hN34u!;2BSP+RSc_(rh5@R4!i2TxcIiqi63tT?<)&7;sL1ALGAb%tiPfYCzG32n zmim&54f#~S9L3{_F1F;VD5LFQ#hKK=F^y@iFRgUZl3)!-CZsN_bkUKW?9b_d(6elo ziwl|OC?iwZd=~?Wc9Ic0l(>@`1uZLE?&3kN!wHbpYZLaqi#J)RmC=#H%`QGf)XC_B z&Y!#Z5pM;tLy$ii#ZjGyi5+7C$vzos#)s~92_%;kG%Iv3pqmPs191u>q6;%xr&$oA z1yrD*&k7RM!DN7fP8PVLU@}fY9Sw(E;CJH+dJ#}4xvn6C$#B9YjQHziqp^U(NjC+# zI)CR9LFOnZ5>O=Bryys?i!MR0VtNNRnS<+UtHqI zB?ZlPH2vZdPdr>@Ge0@raY-OW3L;K-ToTDN1x<5$;L@DzRM0X&N#vn|-q1gFX+h%M zWGkxxC6mDly5=P4Q^+y}Jpq(T&d3Ovifm2#mPF&uE27u!wJ41kEXY}(PRco|MIJ6) z?K8TJ%8I)xIs6#!(#_86fJi$xa1*XSY;s zf2a#nK z)Ji{$AaA+B%g|soDdGr@SDJjik*rkENV{B@m&ra0>Z*U0r25G9f}w-26Vo&f>rhMY z{`#3@r-I&v(7Zv8T9B9iO%m=aS9}dB&L`tIszYlE^7RrqsGw5&T$gvqZ42tEUqj0M zlK+`-_?Ex z`BafPd)JCPiFW|6r^)oIhGzju3hD&A=q}P)K@+{I(QeXBL9@KHfCdDZT~vaiS)1-;a6FZ!C? zR?y^j7|@ddc*4f!@5i0?qP@frC_A&K69(k3pvaWH@C+kWK`l}+pd1BFgFB@Cq?dvg zBx(UwW`Id$Q~QPtR%C=!qi;x!f}DsJ&`dyV|I@H04v>|KkTr3DY*Y|y;vm_lAlAge zMok zjBxjUg6vULYvA;Lf*e)Q4UnBA*A?^#WGBfz1+hl~r-(za+^1*I{3+t0paDMB=vxx6 zpb=#=T2_J$&TQNMfv`*$SguQ7mf*OMpSkK}n6Yo^ZxR$L z_i0LZe2QT`U*pZ z&`Uwb01X!AnH2bweuQC&a8N-{01XwyNNxrd7L7Ix6EYOk&wi@6QG7e8MQ5R6jbOcF)e2X+YAs?r)~iDM zXt_^p>76W;D~K(R?z6vP&v*MzkSVvEmf!scjYJ7FtYop4YQ zvK6gPIHMr8qD>WUD~PRVQ-voAx>i(;rU`}^*|obxT0s5^LdDf+x{#_M$71+4M95Ll zqReVEL+AyFZzpTv&TED+SP|-?tI_L1je@+QwSZ^< zVV{DA!j3gdu-@BdH>6&UtG$Axe%)|L$Z=jto-mSdT`{q(Xr5tFLnZ0GZji4|v8=PQ z>PjJ)BbKl83~Pk~8S#8wD=brFEMM0OpDKvu>skTD$suF;x=!#=5X;wfLbQTfJ8m?r z7X~P(2cY+a#U=%o=(iX)2qzUZ643jCL%eMCu*-JC2SSd5eg*WQFhN1voW3$_6gDg9 z2%t^EO&Os<_@LnuFne@7UZnIAWY+^7OjM%;H5?r>#}f0k+F$&MaXEu zt?)C=4?>xO*u?rlC|3}hSXYH{fZz!(+{(f1xhhOighw-;p&y0C3ObiD43Kr+vDe_u zOP;s+>Z<37;z!w-p7s-nCM#V5(QFRG$bBEvl_t;m3m(tJ|2WZ!+tLY}Hmw z;)o??g4)qa)wvhsa1Se0H?hj18szFJE|3w=VNda?MvQge6qWP!NR&^r2#V1x3OG`Y^G)rE(l=0Z-_|MC*|X zw+d9>-Vmsvyrvw}1hGc3v#sbY*B0Vh8Sy~15T7VA7N{1YA*~@$EyP|5Vu4B)M=6K} zDp{PSptjD7TvNoI3hDtUReWetpy;~7wWS!JE*td*lqL>V&|1fJuIb`31$_-DLp-CP z35JcXnW8pBuD29Wme^iFI{g;cR$`5U;sLc5KUGkQ>vq>R;_VFOUZ)4ZwqkguY^KoZ zE7xqXTtPzt<%kOu^rhjTYp!@yL016fiJB~44}B7G!nK`Prl4zfms~rG<1FYG*Dm5! zj%v|E813F-QY&S$-za|I+DEKxC7U?_+h{*=f(3c$2Z$#*sztBCJ^x@axV5YqX@lH` zh{F`r-Oj;nq*!A?Zf>K+s~pv$zhE_+ASShu>+LQ^ZWF~<0I|&py>0K{Hd&mb2;a7M zbDJ*Sh6)K$Ml zbjW3zwWvRYbf?&hqdIiDIKXX}xKTly;TC+qc+!Hp>W_&zd90qP7WIV&zi%}2&WiK6 zP(GNP6CZLU-xHn}we7fT8n%9(7rhn4*3S!Kl7iUsc|mNgAOU8~MX{TL>|trSXr7cN zKDjQ50~8^f+?T`&3SyJ{k~mF4Y;s=~mnn$N?aSf@1>J?4t1IFj1&O{|Kt~mn3in7q zh}RWV2=_=on49jpmsv#7T0530WTtRu3ov8p7F*#430#(s8YwmOTc_OMb-S5;Z5wz5*a463I2R;uk) z8?00dRL3ncc!f=Mjw7n^Y4wX+fhxEI^M-0>`QHJQuAqhf4*=yTXfb}~)=5>#(R|H^ zMZ~?6Y6?enn%$@xbyBT0Dex*h%ju*#sGzUo7`m;Xm0Z=(Q69%Sj*?}>^RJVt6-RSD z*5?#My)KI8PB?FNQuS8Q5jbylQVmkjkV1`nXVr*~$_hHV&MzS=$q_{n5&rJo zV6-vn*n*XpczK7H^WlydqmR@GNe+Xs2Htsg9fZ?EmcjMx!OI5%`V$%x zQ60RNph9m#sYW5u2-%=p>F{%F^fgFrQ8Z}Up#cU4hpX6+Wyz(>cNQ=cTagEO1CbI&cLe=VZo|KnaYAQ}!B0 z^@W}YXeE>oO(<1pHJDJNPGHW4|FaYt)DK+2s2WbT1bqk22`Ds< z$54V>4$Rt%pabt7gF`l`8ltH|z2jilv_*m7iyfK{VtZ5y{c}K_pmao|!3ihydlEv< zs2n`dqPMf*2XROM6E5f!7{%yyh#7%5m6$868H^%%XTFBugIhdulM|RU3haw$0Mu0> z71+mUcp~hYglCQbZ%8n47cPDPsu&R-sEh!1{cA33<}s84>JJUTV1X2#`+;c)CNwOd zFQNA$f|pC70aqw7%HS3T^6VPo)l{m3xb}t|=ONw74Y4FPyTTF&qX*El#xBadCpd~x zf9@80UqwL2dD5qXD+GmehrA{DQI!wQly(foEgV@o+M6>+!o%P-nT}G_FdXNY4ib3n zo3}SfssKq!M+h`b69~Eh@9#6u$3P=0)D1FNjSMiVHcExpcptxrXPUdEy~D6i)HjfA zw&+4TX7xkpwmn)6CFUmJ%`-kljnIIADkSGh?C!W4BBVi`p-Z-Ch19$f2ig1^d2J=M z!Q?7b0VTXg3~t(>_RwbyN{4G(#0=VTgZ5x>ekHAwXc*)jL4%>g0_p>$h-SeG zfKhu%HypcXzsd*R2$mpsU12!Mz#3{v58JTJb9yh#dyM))ieQu$$#^Ce_@X4DYzVUo$vW1x z7%x7Lj|TzfCd>`Usw1Fbv!Ni+A!q?_=C-t^3i~9;{`Q6L5HyGP;7gc{BAN&hlerT4#M-`6i`LA5M%9o{mPzt;YB4WS5R-q{{Bx=O=UmNrY4hkA{1QtAa`8kX= z9G}OoXM+x0OQve6hiqf(f#aaQbeWd{BWUTQZ6 z`LQ-+iekqEsix)!D;x9_`k~=Rr+?q@|9^d3i*x*J z(liEtZ{EU4y+=dVDHWtwM#D^JXG0BlzCr8X3JM!)G&u77DE-F+`G+Zj=UoX;euq{p zBl^Rn!KmR{Kucl$fCC68}9pvSQIib`buu{G2GT66!{8k`gVkM;F= z&YAxEp?jXWe{2o@=Fk6@as5x7Gg&3t|HMGx1=8}@aGZ2$5LWXWKJ)f={ck&}!bo#p zhC4Cqb@$(^O1EFeo&Tq&nS=FsSbFRWKSb?20sGjz$d4n>0VXD~u`GLRvXJJDOVUVM z%+Hv&VKW!_NkByF_`V?DMgL=|^mqa;{htor|MVKgx5EEuJ!T^tCM}+XvoinjO8ndm z>8!Uta}^KWzP`HXpY`B#Smw%w`tR;vD&=Kw_~ z7!C{nrINI(2D|rby1k3&AGGryHxtEirf9aK70RPKVkI$KXAfe>s~vPH{6ApZz}Kd`?!mR1?YWj zix$H7Q93Bqs2P-YC<00?O5kNnUbf+7J}--T*`1gDpmaq;_;oceYoYW+)A{vW{wuiU zm|5Orf)9UGOcv&Zq3%$sQ9mf*_ptoBmS0cjfJ6KH{aVz-mQ68G~B#>wGAa zP%)HRG#8qL$DBe&Q85}Xq;~0vYK5pma1i)mXgSJm4iE9i3u4h|c*!L^d@=~yl+6Vu z2UHgdz5Ujp<#Gk#+r%|oa|2q(jjls;{OaMYj}N7Ysc>`0x?C%KP;!h>#XrF{$^RY9 zeXn^2)n1ORMw@uGP3Vx9D_ra0`?9UTc;JO75&pf8t!M}|yo>AXLaid<1yALAT5K># z%eI8o^Q0-&d<4vfA1b@jZ z0=%1qFGKCu@E!a^(k$FvVBa*{;VoW`9Rt7 z660eIXRs}vSb70J66(XQLV3aa7bsii|BknU&Lg-kC_&_rFx=k;e#YC;$C23LaFdq- zKDrlr5*^Me41hANxg7T}GG6$~3;sPoaXb8u!4}VlKTNR@{hqiN1&C|Ht09>2@T$^6 zw4-fjl7QEQmyw02uYYF}0F7xOuvKB*;o3c-4~Y;5hBD1lrGrR<_;#r;o+}iE?d3YA zO0rJ)q4XJQ3Dt(7Hc(2W4Q?(hg|bWN3MjLL)ufFWj@QHWk<7iIbEf?!a)U=GA14=X zAzOtD!Zs+s4&O!caYgYKk}p2!yqC-s7KI;%THz2;7Be+Cy%ye@sui}CTp`6`vRAb? zDi)cTWe)t_2YuyrgLD^lf%i#2yij^)I`;8t88M$JG0rP%He=ellXI@l?2su7=x)Hw2%gFmyx6hc4U@>cZKz zXEFT22Xrjip^KP+lLKBB#|sXfYT6i2HeOmC|Cii8>RCz;4%16>G2F4gte02>)5^7!ko*h0Q{BL2DG0?;21BzgU}R$ z*snVbTrK}L0v1XC|LtjXiX@~fR)l~ufra_5Pkr;UmSo|sgH@Pq>q8p&n$kR z-h}RW541_Zsa@8Ickq7cm)GHW_3F0O@Drgx6)X3YFe8hL=G(AkV6n|3X#0Q-mRA^Y zq11dP4uZJf0xGHWPn!VM*I`K0j9iRSYaIAsj~B*9)IvZ;KpCORFI}ps#i>c_gf^I%6Qvil{SA9>8@H)It+DJ z<*Qj)nwxAJKo+{>WZ2f?^awR%<#rgx1l2FnPcw0PzD*Z9y9BW6YFDk|siX3V2n1$( zW`x}hB%~JGbr%=;6(d%@U{}pMRjXpJy40%JYb>=Y_EuZ1>N9EBEO`xs9~kVg^Riz~ z+zVsu?~wPi6QR5XLB9iUyQkPMRI!)x*MT8OWAaY%UMRCm*i^pnH^6=uZ{QA;qo9^U z7g*p`k9=($H>pmSX&rU2BD+EPb$GDjepQRuM8^caUhh}EqN5O1I9;xsJS?${pR;i81X`Sh<+Hfa<}b7kJ64nVDYv+Pdu5 zgt3l+bw6ac6h}?m(+5S&w62(y8!}m$5Y5UNX{;QlkuuE6v)zN{?eVLVtgnOl&{>HJzQt@(!Q zfL3pS&inpvLAeYs65*p>I<*u>I4&t%1z;UdQ131F@8CbwhWJty{IQDGP@X|WP{MDd zOC`fF9RiMryW7ZN4X|l4%<$+H!0gIgW9F zl=B4%*z)cdBnEG}ww=Tgcu17C6FzIZ%gTkji2s)AU2rhKZKP#ei9wpWn|MpBcEj!! zCyo1z`07W%!SQ9(5B@sN5Hu40Mir{L$m(WDg=&yBbF{{XDB?%cn^fcNTh|TRWu>q*Z(1_;cdopeRveuM!U#Nt9?`x=IhxF3Wg`MUZ#9dXAa6o zxqdG0`_b_7{k(>^U74EA9aZ1iwWOw03oFWv-c3{600L`Z`Xt@-#8jD{K*X zlB$X7MkHU^)%BcLRwKH7i8rCuw4%hDZp%^HNWJ-rJKb2{>A)S}L3UaxJ6(C8p3}oX zIOFh9&!wCe2K1Ab0jI@9YVy&Vu)d2r!ff zYFVB4sfX(I_v=G+VmprpH-UF1f9(vR+uC{lrD|m)8@nIr8tSV#Wmz*+8AT7Y_oUuo zTF1!4<`zst^vTEG^rr+Bv9F;|+WO-rG%nYd#^%`5Zn>_S(i(F*@_c+mE2j9;rMdR5 zOkBC%q?QAGym4{U|)ITo=SJFXwDGg7VU53a5QfX%DW%~`L zkh1+|T_vY#=rGm7%X>|TC^lT!Bq0kx{?Frl2^X2S2Exj8)mPRV}C!)na3c- zB*y^-2`Q{+XcQ-37e$RK0jy?w*Q3BgYgbC|`jMr0Ui(cVd5n9xluz zS58n>$7qM6C(W&2Ned03Wa=q8pkte`^wX>Wge2OOH2utsY52#VM)bFL{pfFv?CBpJ zwFT?J!fO1!2SWFnvDM%S0^r6L$N_&9c+>N>@d4>&?r4r>RqCf6w3Q94xPM zF#a@M(kqC7&E8(IsoWi#Ct4?slX;rFyi_k-4KCLs23@ALotu+)E>o8-@np?qn$;!A z?EqLgsjMRM{bf40OD2IzYrC{k3s+1{brf{=R}d{6>qFeG(3V}J$-XOecvn}~zwOQ9 zuD&gczB7koXCa@avRx&nh@^-Q+~}8gT=%p&tlS7kSbgV8maN=8cgIvVBU3C*^Ps1hk&}8I5Z2NC9QOPY9|3wrD<*lt9;YHu_opTC zmNVw~BT7nJlO;dVcBQeT>@j_-G=)Sxp`Vt8)t?@N0Y(4S3}%T=8PLiZKVe&B2RN&k$D;6Kda(ZHRQz*Y*$7)~2)kS^#? zG+YboxUL;s2waB8vFUvfggc#Q@bK&a8hNtp5g}&04z`MC_Vpwlh>jT$NIpk&=>Q+H z2hp7aiby%8jst^8G@%ItW67U{mJVz|z82`ZfkE1fA|9@F(YWxcoNU+!y*MzKbW+ei z1{RS-B`q41MQ$nSl0n(}w`{QWLbVYHT{UAZ)7eD@#9z{RB4aJnnG=>~`FLaoV+w%>;{pKp3#=B9vnt?+0r$`e4KnVKISp} z&Xyh<=0lx_I1n4V1rvQ}Q@BdAqaBv|IQeV*&31Wqv|>m&>1Rim4GAL#J9=58F_WPm;0JhV%M-ri)HGJww! z-sG_k^@6+DfkqDtA?qCIzS#|!5Avl0tsWCbt~)@l!pUO?=t(#c9ibQPZ8SFKrh7T! z`pb7LqpX+jW{k2mjR+y1Yk?Es^# zrP~_Yi$rJZLLZLoPGVeW&ZwA-T&-!aQOd}=rQFshdQx5TH*-1-jPp z&|$8Kai#Z01(5cx)P8ibFvJzp)7?F3uh9;Ky3!$|W65?`x@>fq%`xx@&x!ci;wisY zT2DG~^mKIB2uC+lBU85V{e$PR%Dt{VQewOFsnpTkJe5k^*;G=F1WPB8XZ$R8DvV9= z`4Sju_4X2U-YkbbYz7{l z^uw{fB+Zi^9UJ8HU)tGJ`ZK%m$`&M}0Uc5~K!2k_y-qy=LZ|Qo)^hP}$_UFd>u9*QX|<&xqg|ZXc5GT=GreiWTfWZb-bX_RPk7K3Z+Vi=-gL)X z0h*CeSY8nw;4$ATAA0w#Ca$l1OyM!zs@nL{gtvVIe0|O4qvdq5VU!$NC;C&ooAwMa zR%hiOePL+%^5`u3Ve`GV4xAo+yKSTkaPnwP;R(Xiko&bdTJG|rY2$nwUNoCWWy&G= z+`nFp(7OradYMJh5Blr02r2bAgqREF(WMF&4#s`v|Ao^&06nPXxy(h$yxxuvkgm{t?LdQ>tjjRnZ_x6XnDXRcC z)~B!Gq4eAY{{b^X&E_lXnX{m4RT`D~hPX?^dSQ64K2ZyVP@V(@O+Dvx54N#=vm288 z4Pi(2rl&`U^uaV0!C`D?rbqM+Y>k5**~#*t_1Iy-#PF_sxwF0v;ftO1KE@V1XIq^| z81&_A{mS{WXWgFGj&$NgPXZxWIaMbopBdXk)InlL$z9F3-LPL3vhW9YoeuKK8GaKjqQ4wcb< zhy=i6dlcS;Ju@ddw^(zFm(;DEUjS=0#eN0C`u+&TLF51C39UQhg}Skz!Baw%sX)qW zY{xj-XG(&8C@}H~S)m{fOyp_4ZMI1FPF0a#W9gqW-C?U8mq>3+ z%_pl9=^L}6NKq5o``s9Fvk9H^ZYG(VL{Go#=Gqb(X+3KLl6jt4w8ptEEupFL)7)I! zC7U{HI%6zOhGs_5ZL=MurZ)V?&6Fpn7aQ<;PX=y-U*e>s6>a9pyJfePrqc)5vf;c@r`^Mqe4Sd@>^~dMUgSzMK8o|x z`6vcu@KLPI;G=j28gJe8zRmxWQJmNOzk3v+9X;j@C0Co%qjN%=zi1A-mP;l?x*Aps z2pE4b(T)*+*|k<%nDJd}bta9O>*1Q;0{Y4}4)Z~|cMIBeZZI*lpyTHTx-J2|^-XqF z3;N021mUX|n68ZRAeURvKj(%EKLEVZ+?8g`b0D}S&7BuW0$bAZd4W#NTS8*WXI;2a z*`Db}y0xUA%?lJNTVgsq)0IAiGD}+0S5RhqOX@d2kbKpWwwNENKFf+a%e~X(x1hTD z&E0s5t=971P;6;HOJ_6s_YJFRGs1tH``D{5Ha>F$yR zRmqPDoNV0Vot%`q_$<10fd@&+qDL0^d&h$Xj}&}2qg85@(OzI ztjySEY%-e!&!Xu9Yq%k_f%`h%w$b zeKuHGb$mrOJA|cL6xYkkEw_~qVWw}9c0qZoHT7Edg7;bwaMJ3%jIcWIrtc?K{G~qJ zng`m`yS1skDOc-eDmc3Go`2ILpp>dHO<{9mEN(yQtmF>=*m}Wxf%I5%LwY67o=#ol zO>k@a{-Vyrt_^*)D4OhULnDk)WN2I3*%(WLbLdp~IGjU2hmQg6=pADmacECH7Iz|R z+S9Vdv7{uIu3X%R_~y|wiw6`x$}_b}uCHMSm^>XoSWTWqjQGpsvCFSBrrW;1N@*+lAKl1BUz#eR5E_EP73gE#;IGJ1k z4>NoMH5!fiA;B_M%=)(R{Q~;g(iRQ3g2rlWpE6VHd&jB=)Mr^R!G*NNvSY-#kUA~z zr%&u?F6c2n0G>>lwxIrX3hD98S|D`C8Ed)PxEBHOmw?S-tZc>u#tBQaTif|_qu{#7 zrF^oED6ZS(rE2FFQ@0h-p-VvVmkwG-5c=1DMIh@R?ALVFiZF7mn8vSkrE2)!;}v#f zTqha&ksmt4KfFin(E@}Qw?=(>Qh>4_w@Yg?;T6QNS@Klx>p@togu%J7>6DIHV+-K!eTZ8?+vxi(b44qhdRLaKmg8ErIaYC!^*tDd{2 z6^RI?_(CyNKvcrT25InG2)FdNn;xF_ib&v=FeWzbAb^yo_RR8Rm`7@pNL9d?t~V0W zbh7WN3n@*~jNpz{#4OTQG2aKEM3^cd@sej|+6!6xU}!{}w7qgo&6XW$llGLE8tK>X zd+EL8=DmD1p(xE(F0okH(kty2GwQ`#@I2;OuQZe8aT{Yv+FNp4_t?9XrR@bDDUG@1 z{>?8dSzELEZ5W#tCi~vCEej)anijyCHjtZsbE0)MbH2Up+>g^H$j)u^ zJU&a?BbQ(nX$DpziI>oP=~$DdA~b)!FLt2A);A?*Z0W}J;dmphU7vtQQ{jUUm?+^N z_~;XDA$fGaK&J8CE%g@`M1M|hWsgTgAo)|jXQUk`2iTj)8;tx##fq1}4V`599V4%E z(%@_&dGTYMG(VY3<;6eObM`y4DKEcagu)($SoC&Oi}4s^G~ra5;@y|vBBK5)h8yhDI=XY+0RTiVdP62R(xZX z$ufbFw>fD(S*6A>@)Rdw$CoSO#lNsYdMIz+AXC$s>3VL;x8D#J{6a>~<0S0Ba`_5I zzRgMd9wu@=Bl~l*g_)eq$U;u?R}Mm$&ozu}2BcmI4|z=G4=^^2o0=cvr0!*;3nzE6 zM=iYkAx6H2H9)EBX0GW3Bkyvu+)N&2P5zG;-)9qmrNn7 zrRNyAkdwR3<-cR3o|A{nJvvrZt1eQzG4~Ge-uVi zbnHW$l2c!uBB`C>BQf+6tSMFvI$EFDDIogGM{P*TFdDcy9A|+Hqt`b(VrSEp%OzMH zt)0-qE#BN{HNR4?apVuxQ-%;kTW(3CC0iT?ScU0qxQ_qWQ8#u zZOSVk2XxtQ(377Bk^DF4&z}z`Kfgiy?uaL`z3HMIWi~w^TXlnbQ~RAgNLg<>aA(tq z(Y^8T3Fn|7FTK`QqlEuos(Z_t)=lVL_4UqLte*tDl-l4%mt%CJ%m$y)CifX4ZqTCnYx3%(^pnrwD5sxF{&0fxBJx{mt4gOgl>| zv(C&GFm|-WUNN(M8CxQ;?xm)-jAd*)iA^%I6^u=k*bZiP3}gL7U*49nW_mKCRg&@A zQd$cw+-Fv9Wy&is8KC)h%(VL>ND zKGeT@0{Ng1T~+Pta0ytQXI~J_`qCrSF(kJyeO?{VU?EWaewW{EcYt?~e_@%pt}l&0 z;7&+C+V((W0%-h!_GDpS`t^Y@8&yB>;?Yx0G!Cj9r+|LMV> z$nt)4{h=?&ul;E0;W4VgkoKakq(8lWxB=o>SRreaDG_NbRxu#Fh-`evIX_ZmFtV~tH5noI;_NN6$+mRpp)8$9!lK25tF<)n3vTy($ ze%6&5j-6)REjs=M`FQ|!K2aFZav+4IJBadEFhKTE9!d}HRL2zy2hxcrl7oI``ajr; z@F$3dHs!C`U~(4TY_`)W2hocsCI`12^mk^QWo80fXY?oiNzXxa^~o`|gTY*5tD7*0 z2At|jb`GL%of<{r2h%5~1`=2$dz_xrUn0+f9Ue_GXc!yg)@stt054| zF=YG@dhcv78)2t!=Bb_x!NYBIuZPeNzL^24sz&G1F~LJ=#kUPf=}@}l+YoYMDBb^U zBuN`a?|&Oah76<5=W|HaFxve*H<@(45s4_HpPvsW`DOGve2gfgb{7K4fifC%A(r@- z(_R;XN$+wx=|WSozMSp_1g>vh2xUHPFLIwT7q1il;new3I4K=Yn_g;7whpI;OS>7F zad|kgt)Sa3PZV-0Fs)Q2(7sm&G0mwf>CW#|z~H&UFh#>xue&R#_jj4jww7E@1s(id zOXr7{T&Rxj{;q>_H=RY<^*ZW#b+Cn<8g?lioqsh@%gRb~5WfDfYp7zpruFCO7u|OW`XrJ5HN&1MY?C<+xGJ6F5=uW;xAHW6lfw^G)vU0Jz zqALA|LZUu30@BYh9M&cF)y%CCRV(l96qK_W8$h?-@u6cMzF`po@CXt3{$YrgMa9Y^ z@QybEY5F5y^2-R?^HE4(@JKlz@V+yD%~j>9bx64gcbyt|Sx#3pvTDtv)>x`cWR+Ff zJ}wbRmyuONo{m$HUL)y&m+th>7uoEx^~*|9!I&QG!|%6BGIJzd^4kFTFivp5?$q;D zIawwZS@kNLUEXIUITz7dqf_oMYAmJA#Hm591U^ycP-@eLQg7jxJ7k zok+TkGQM`f@5-Ms#wsnGs78!3hPvWD>~n@IHegC?U;7)Q+;As;8E9PVhKG?|ql_AN z+=G3Vx#P{ORp9tC!8Nq{rH9ek3ulv>QO3?*TxWz9$L(nBjc<#Ji=*&xUly-Ws^Xi!I4B0k{JHWbVPxhS=6PG!SQU&ck>x5SJ?yqw#Pb<|Duusl|52H-m5oOY&S0 zE>ncnGtvcvkp=mEFfPM|?_n$jkykV>1S(>jhw+;bh~y}1_0UjIGY;Aj3hFh+K#XJQ zoImW0P`pIK@y6E;!Sh}#U4-#O7*3YRcw>`ryv95hHWBzSAvZ=FUq<0Kh{qUXw`iP7 z(#IHa3=SgY^59ZS`i=sp9c{2%~3WwbxcLWXtUfe>^; zrMxrp{n|dNE#VZmhVLQ0z?zxJhT-5tHe`OHKqLDpGW#(ej>Vp2O{MXAEN(;w_cpGH z!(qm>IPBr{6pZZL?W0PeZ1r2lk~r)YR{a)uw<+(&Hn?@LS@UgLn)kf(P8NLT<`~Q3@nZdu)=HGz zkjXEC{aZVuv#r@u`75^}A-PaCE0{??&TsK&*JYe( zz-355Mywr5$8Wb)qIroKu}X9)V{u0()T{8kKH3F&$J_+j#fQlcW0~Bbx*6?+q6^Q1 zyxQ`7v=SZ2*i)=TV)){YN;D#IPq7_3)cEbTc4$x>lkM}FEX-k2TNILKhdd%e@|0+T zKda0>c8fxZ`eiVAzXS7=$FFBVQ{V|eRSZ+K3oq_uha5V#F0eylVCw=U(m*kI6b9FJ zsDC13%8-+t5=8{FXsr(P2YC`=rbLc$8L>{NRR(MBd$H?coKRxNbumhm1l72sV$>zw z9SuwGlJ10l_c;$qnlF~W|RmMEdRic@ZSHgnOn9#?$L8xOe zlY0Z!B?h5Le|Ei~-Q!$4)GCrSS|1ZKv#}F;8alIa5c17SW zVEmM5JQT1)S?$Jw_8QnXL}z@Lsg!61k3n$rnGlJW$)g+Fp&fzaqV3SVU?wjIlmfFV zgvqDjOdjCZ13*G5Z|sen}yNU1M2Cb0gTe#CKwHOd!jhZ~d86K@zy2 zZy-_ZP;uhhZCy}t3QL-aiZP=27;XV^2|35YQw#hl$9Da>p@tJSbH^EW* zGf7Qx7Wx(805$s6{!CIS?vBzhLs33wl5$Wl)RLo&7>4>F*xNx@9?ejH)S08t-545* z`e2L^I@jV%(l9&@O#z@rkJ_I}ssuER>#DeJJet9Er`n&4?ZWb?RKx?_~Ltf5+KH$1q z(CLTaNoXTi-s8$iXfszf;Z7%`kGZZVcRCq;!galPFQ%YRxo#5g;S{u!>neD;chDDH z_Yp7m4%)}jw#3C%=jdBL|^#5Wp-7oi`y>5BI8jVb{>;<`m# zXGD*=?z8ss#$L%dtk2-)x5Qz19r7V8(lc{ziIso?2w0(%7EHGu1#w+Td!}2D8gkve zOs4w)g>#(;*L{GZxvmq}Z9uVHS84nq8As@!HBVL!!&^{mPTIChR#pOP$5HqAGuch? z$0(P`iIJUy_M^!h-O4`$=u0$%yWX66CVLn@j3_U6z1^AYN5iiHTxZ7%9z~nDPQ!IyqmQ_*S$kIQYqXW? z`tb^nq3v9!Q_&$!NoH}p8#!F3_+^sL}(;W59XXq?C$IIP|C~KR8&Y??OXO}Ob z%UtKyy37ZZ=h0PS0H+zvnesfk#!=(uWyVcSaf?th8*u~|KwHOM3E4R|T(vG69y z{Y@C}(3r{14ViX9>c6fPi`AasFJzB8> z-P-hk>k~?L-Lxr_hf|pB-;qh1*38|^0wx!yG16II zl3nZg^#guAlV2-%HFdo)^cU;~vx~1bH z8`+VuJRSSuJI2}RI4=1gId7|G#qSie?xj0j0eQxYb>5E4P~+2d+ys0?WZ>RW|H#MR z@W!eP+|7Acs|r}42L`ZZd#dWV(YrZL_Wh^{Bd^QkvqlWP;K-m#G?q8V-p+lp7?~L; zm1|&J(j1qzL2!D(Xh9GsJ(p!M^u8IX0qx=FAnF+g_q*tYq(i5hr~%Ci=H<|7V~b2U z`!_IFX5#Tty1W)@H5wW#>2!Im)f)7GBLmXq<*K!)IDzR5=zuY>1+;8ZVK=oqx|<}C z-p2Mo!rOMm#2cwnB(iOIf3*+l$|xGAsW?;kyBMp zSv7#hb7WBYWnn;5W!+VXU>KSs>wYrgmN){pH%7ID#xHDIfnt$wI(MyF*;EavAxBeH zA3|8;P^_%mZG?A~BAjm|RiFe^Ad^px_N`zsd>4kJG1AH85(rjf^tSB99(0LlvaIt4 zT_Tz#>mKA+peAUctb3WS2DC!f-Ab-NNoc*Sdz7pO^s%h7&#r(s1U{E_e#WX+cqaBU zHqXM|oo?r;Q7*dBipK@5O;V#gbei2zps8qj)=FgubUIr?x!D`lh3GEaPcU8UX4}=B z(JXja%1~L-K6P*8kSn1L#;sX6BI<(
S<6-i{rMkmz6P;Rk=W+$Chm!pZDC1hh1 zvLQo?jcM7~8(%VZ$%ZJUwzb!+LhJfSCOsRuYSy8heI;Z7*PGD5eiG`T^3{98iPo?!GOdMM;;{Kcac#CG@UJAFFwYUci^p%v7)HuX%#vCrhXW zs?fYZcc)1xElZ6AJZ-v!#x|X(5plsx38B<5u$4&|vYjrVu-PAfXpv+6AXUtMMLLR}5$kc3^+U1A176!{7+} z;G~3FDZ`yK4QTfJ3U}oPc=%~aw^UI~HsE!78GhNUm~6zEwUY7=e>K{KGtWo` z-+}b{5Qm(VbORMDm7DQu86~8Lp{=;&8%Z~zV;I_wA3*Z6#=J;x;8KMXuQ6mmEt9*E z&+$5rrlOy00$g_BJ=gS-X+UIz%N{)NhJCX*5a99^o_15x-4hdBj^Kh@ z3>nZ!MY_vr>~mYvy`vB{-{31Ua*N-nIgh7(FX=+aM$KjX_>P1=jEHc#h8Nz2*DzR1 zKa9wBxrLkEV@d-Gi!XG!j}OYIS9CX*hdB3vRB)EhALu81oBhQbC^yij0?^2xOuBXW zCmjA*LL^-c=kNj<6~ZR+1i#?OfUd&W|BMTsz-t)bhHtsg@M(a6RBUg5hVRPgc&i#f z=x0gCw)kh*Q$~rfQ#`}*GKvsOT%O^!5|Vv(GovuD9LbTijsJ?TFrk$_N)5k_882W*LviyV#Q9f`qEUi!*T$CA7I{sEe9xQ*xw7 zs^Xz88j@=#DSe7(ySR`5Sl^f%L-8UPSF%$^?EK+D92_Ox+Tt}Xo@Atxgj$4caq%JX zaLQxlYV$vJ@g?(Qw5`J)7k{!*M&3ES)$n$KnpsZu)Uy*y5Gj_RsliMByl+h^X?_FZZ z?=qSJD3&B@B`;$f@4Lj2p)#7|sK4(LPu9us2gfHa3FL~5h|?37M#L4qS7N=G=Jed9 zG0BzDYCwr(ij3xJU%NCRdt|g8P!f42qdQK5Hkm}bNnU;jltTJS2pI}&_1dOnp$uo* zt5GUhZAQ-8H1dEW1M+m~Y@be=xpOyYWPzJDgAA2XC6sGU#+s3{Hj^CW$bg<}I@`A- zt{zgk@<373isZ`ZqTNcRzBTD-hThs7@+n6KbVc3SK97i=Qo#<`R@;Fj$|%B4jq*vR z898eU$SjWF0fuvD`;O#_tc#8e))tWl4J0qW+HKTyA<OFB4`^u#xgaZF zi%qnp#LG)6*v@XFx<83FqvqNnWEMvTbOS1^AXjAF9aWB2N8-KZ{@P``yhV!5sIztw zImnR#g+K>q61}UBWZKlHk9HQxmC^eUnz^K>8F_0LkWV=>pm(6)A|m=qK!XpN++ zjEd~DT~?8CX4F}`fjr>IfYw0=w~=P>_6=Lu`UeJUx06b}439x*J|nZtC|bLV+~vrC z_CtmHNRq!)P_XZ8zn^4rWI)b72C;ennIP68bP(2gpT2d?i0f;HQdw9*7-k&_R+YBi9ZXP^OHUf$k9L zDx)0G9U^^YG^$MvI!wmN=$$rjM^2^%z_T$nxpw5$pc=ATRvym7fHuo0I=Kd(OdOO^ zaxw;VT1GSAX6PunE2E{2)PRQaTPkT&`O$#NO}s8j>m z$Pny*s?XuZ=@hA!mDSm5K*wb?5S*SSw`DXAoSr6+WyG3ROH@HppIFms34bXJeBKVM zL1##`ta}6{&R8}3EJ@)y{Z!RRxFG|#LdGbJ3{*X|CE)X$T>eH(P zH6XQ&j>T7?izHk|SL4-y5@po0Sp__m%9T-BGc};DGKzp0UM9n3lnybxOvcGbf6=A_ zT_Fo)c-uw|Xtj*yfbKi8Q$~wH_Z>MXqh4?lx=OCdNC!vjtK_c9GNJ;Wd!Z1i6Kf*W zfE;Ax7*K((lMoqs7Q;j8>m*)=Y(#I6wlZQPdV>_ph>hq?GE_!vL;+dk`Yi%e2?^{t zXG|`}aiOER>13F{?`a>9S#rU>1*^1=Elg)J(@!i+Uy>tc)1BJa7N*yj=_3nMr67h% zecW460WZnaHK1`PFpcC&sR3Fc(`>p*>tSK~E;H?KVHzNeGn>BDhFF+hW~OT`Ok;$d z7N!Xnrg5FY^s0qvs_@LhG{eGlGBfpR$T}jmwT%$Z(Nxvmf>hV`7N+N!X=e-5VgbI9 zhJwuWrIx*nW*UO1E;vrVz{0dt*l1zePdF_hzP$DmLc%0B?2y$@XeJ|e$m%Cdkr6v& z^%s`Qh#j)}3)^J0PdmVMfN)nvwSWc+0s3&s=?~g6*Fi#88T}4uurNk#3H zj7sfSD$9fmX5_7{5aJ`47kE$x``0L8B1covP$)NA*l9vgu2MK+M&8+nTny+k z6r3nn?q3FBc%|O5!6vqm)P8xBKXLNEk*AL zi85kK(K|wBl)SmH^=+!qRaUa~ZK}{$Mr?h1R~RQFw!Xb9Oq0=F$mwaqY8m}fpa!&A zMx?L;O&1Qz$hlAr=(LPhq*tIB!d*b@=1TP;+=tB&p2xM%^-{6I$)HVtu zWfyx37P>C0D`fQV4*9y&!gQUm&BAn}a6v*mUpETTF;Wj$zHSttw|8b(64DMwyP=Tt5^Z%cwh`kA!f2tmL$#c8BX`p+rXIfVK#WWpvVIpX&LD zIUxL#_OiHMVEUnjsjXOTHce1ET9{4-Q~ezaQ+M%qvuUuKml)E7_loDRmpE2JDwe}u z;yf9#9QG0~$cW{zxA<5_EQh^CF-eL|fK!E=kJwB`Nq~ICk$MRtd)u*Ye&RYAO@dJj z5Vx6;vo=utog)Kk4Wk$=S}uJaXWxK8{mM&9Bb6XJq)46GTkxJ+6ERUjJWx%*sy8FdGgB2IxHpzsV6-PXD_75B)< z2T-c`Ohy|WH@T&W(W#Q#a=hi|TmnPr&bO+c{{8U!vI~{UsB|ebRU_e=7NHfXJSFXq1vc;Y%C;&6@(=mm^+FR?mZp6vGvpS!&wzK~6i!8Ted zsxqX4$LzheeZ>-v;ILtQQ~lp4Cqf- z&BlqDOI9=QvKWvpHHOW+E8-N6r1kSVak-4x`uUx>QATY2 zyed}9h%KL2#p5y(V8&b%Z_CIYX3RCyq}21tbzOWcE7|0}E~;AdcB|OrzAn1Th)wPr zVzi9d+`b{E$ml8DYTXnIWF-2j0riwo3fwW>5=Y7?AMTiLnX316W>5au?^R3-t!*Dz zXeV%6X;FA6E|g2|Ey#9fKQl9#_F|@ASeX7Mp0+Uk!@_hsGyT=V)JEaZM(X3^X_oi;) zeqegX!Zc0syM<|U3)4faict%V;_N!#z*&f}=&M?FGamPod6{0{11VKzWKpy$o-|lbt+8R~a3S zV`!X=)^XF-GJ;bH=)RN?&%ZpyF^=YYZq6zM-3{5Y8qS+}ihD9T1?SB?#m_PtlCSdU zp!h9EUO~s?I{_5h@wRcN`HD~psg^);<||@kv>u)VsyosPd3qdMTXf#4L=%+OJZ8$m%T3ZwgmUbus zczfg#gy28ka26~bk+acz5N@M?096uXjAQOTb71b~gH)hJAeCrkBjzp+8mdCJ!OR_V zjnSh3R%#49b`a2-ELJMkmX%^Q|4e(9d&r7nmLd8M%+Z`Y2ADe{yO6G#Yk|8KWj>-U zvpL7@7s1~lASe@>C?E~5Sd+w$ZXfnWQ<_phzscN9ng9$e5l2sONh1OX)QdJ?PH zmNSvO?MEQ^&zZ*!5GPs8UJn05`8`llNYP}Ys z1`oG*)OPdIER{|5OPTNzx?|lgiT8olVbqVer6WXKK;J+fVw3{)6BN!{;m13^HJ&l9 z5FCLgx5!f&qvpoOLva&FmYVjaoH33X3NO#(8CMO(agOPrv6J&+qVY0llJg+wFt=a; z1bAJa^>HlJtw3ENo0Z5F#@t3O@GkG~UZ`6@2aRdNuy53H2(c}?-iCSI>dk8X03_xv zF!JH^cO+CGph3pkVesEi*a*>5p#tcsEm~*XFboIVSn4}j>2sOe^l0X=iYEeVlfd1I zh!srDkOWOJt|-GEQLHwR*9MV+8kD>?8(y1=*JjIWvxC~ML2aE_ z5DA(LrUDuQjTg}bh!sZchx?cZm!K-%iuZXdSm+gU+*mjNR%`54jy=-cM({z?IJ(GIf24lUy|kj;aCXCd>45D_$jXV^VxwaAA{fxdze zDfyt;pek7YRD95E(Oqb?9hw1SV~_5$so{X0!T36&GZ1%-E`bYzZiA74l*ZcOI8CqQ z&CYMb)cG+?{ss#WMyEJnLQny!arFs41XZ^tcb`1rH&Ico%7Xv zkxDlX(&4y-f7GNqd=2}WucuN2c0$@K&{X45s4c2dYvy$x3?xC)^>iP`ylo++fm&+R zjKJOW^SQqjkf`uZDqLgqqfmGK16;#un9rEke0$gonJ6H5^9j1J7fLBmt2~xL8emKw zmKL+?Pq}11O&+Sbhqr*2Jiy>2@pdt%gu4^axI*UoWJ~5EmB(m0U!czNaWsMpcA)Ve ziEFK5G!?pRJv@KI7z0Pao2yJ=oeM|YSmA%d8+VU^nfO;DHc=J)fb@4R{#7mf%82im znuxz|itJ}7B$$$)!)(x>&<~ZoJ^feB`j736b4SDaT;KIydue8jwNSuDE@1p=H1^f9 zgQJQ!wa)6lROHu{u>B`7`Im?77kw1Zu#P;@m9R#Lh*@HEj>}L; ze3;I#j0xx!>{+7Rpnuz&{=e7VzwJ%`KiJp5Yn=W+58dCn`?tO6|9=|Sf3KT`trlb z-vEE6v9VfS#Kvrn$kOOM0T!~KVM7+sQe(_N1cN5P7W!|m2A1vp-@mr-4eMW8M_CSr z8R2c?jP(Dbm@z+j>={M8*77*S4niUvgvt%r%?*Bn!cQL3N$Fox1zRP(*I(v`%oukV zuy1MoZBayQJ5uniPWcaa<$uG*xMdRd_#dh!ik&4a&qSE_<8K+h$^Y90Y~&h@`IB+5 z<63?+|0h%fW@UW__$MX)#xGuLET00;o&Jv!?tlLz{eS%c(C2^P0Kk@|IAhkk*i-KZ z_e7?fyI=TS)s6gIv<2IuW$-1C2BZ=-0BMIJK&nv!mrc2B!DSAYgDkXbJE`&>GaLF+6{-6qE&{ z;Qf^F@X4TPRXiV<)?m6s=;glwt&s`{7aDEgmYdNg?sOBH=U)XcY-~5Km5N7aA9! z1gdRJTf7}58w;nykGPg)O~5yx^gH+o{yuRw?k2D=37+s8b_p&y>+lm{rMLmzLpxL- z;(KU(x*OEMB8d4w*>Z_-t-}Rui}giU@k^m9>^8`&KKDVU<@}6yfz3;}?$8mDm%^|B z8~BxNdtXOli^Ge(UE!lgz8BHp%=|!*%^FK_4)~NT$tL0ZqCeofb~ef_z;yZy7^2$r8UUBtZYTG6$8&H>{tmKBxGL-hc{uz4$-#pP zcaR+MWrrFvUsx7?lC;3#5GWQ3CA8&3c#p{-?Cp4y6pBgkrBb2Dv@9Rs=Q!w)_dU{0 z)CB!XN}*zfV8EInN07`0vMUn%3WG!s94u4{eLIz+K|H3FLZ6}}VGur?o+ea??*?`U zdD@si6TUrLmSrT<#Rdgqg#`Rt$M->glDkQm4{<3b71%G#jdxH9U3Mwh0`=55d`>ej(jt_|fOke- zRBT7b9gO6FxGd|2A`l<)-i(g&7}aul5hT2?jo%G)R36309o#{F6YHyNihICV8~E2= z2OtOuN`tVj;|7>x8yc!1I3E~aLS>H2;8&DK#lC30vR2$+jF^pswQ~xeE4QO3KK*PG zaB8Pb;uCz#*n2iSoZ8s30)7k>q+s%JN9JT@!6F;BPAs>13C%cWgQX=%TxQ$=o?xgR z0+m$sn@ynNa2QfGAlG7)DhHl6mBN?^1H`ZlWQ3x9(Mpv8rzUO^S|~22+S(3+0johd zir$e9wmAyhPFj#{B7JNlpn^c#1oCcRq-|4>@wSBumz?dSn_^wj5Y$bPqhzvEc9Lx% zS>}?}%+`QeAY0&lF!BkChsGXra9WOSCp)_Y@akq)pm0;W1W!tNeYq!ik9 z6PNiHA||`oRq#$36znw?gMz)HVo@53hmSyNa8KiJRi$fowM{(bEaaDPugjs#OD_+ziz6)*j49Jebj7ONdKutK|o zJRBb4cvR6Owvl53U%!tkR=FiRmhu&<7FwO@=zyBU7K7A*|4QL-hu)4(=mOG%yn^BxhOgrwm}_kzlOLxu znGnt7tW+k;cqmR5^oMIn{v+3E=|j0q1(##EWJ7SWfH9V(mhfTBN!GIpP8N)>r?zab zlqjYG%wFZkWDyVJ$%4t;gCwW(Ye`!2b=Seo=Yq|afcHSI#>+(b_{^BI8b>&;%3lv) z6CW&q9V0g4rwRUp$_Bkv+GkLC87eLxSvs_+-|$i$$2nzv`wbhkWAY_@DVRNGH(nEn z*N(A&;C_2?n(^vx5{?HM6?@3X#y*G1-W^l+k~Nr2{N7l*oJ1N|e?**&hW+HJv1$)- z-!Zb9#1UfXVWD*ViUi<6JEFfLa7bunRPQFP##Znf8gTl?L8ANo5b1+=1k{k;RqER3 z&ByHuxRJa4m+}dn-&pYJyYt=>cFcQAblnwwVC2XW)+f0CMLy6i*L($XO;DhYMOp9@ z!d@2+|BQ2%>gMe}aw9ft$LYoj6?W+gAu|2bvFm{Of$pSl!4A?y;ed?+sfvv|oRSp3 S31mwA4o#}!Cp Date: Sat, 22 May 2021 12:03:37 -0700 Subject: [PATCH 16/19] Mejora visual y de ortografia --- Bancos/DepositosCaja.aspx | 165 ++++++++++++++++++++++++++--------- Bancos/DepositosCaja.aspx.vb | 8 +- RH/CatDocumentos.aspx | 22 ++--- RH/CatDocumentos.aspx.vb | 12 +-- 4 files changed, 146 insertions(+), 61 deletions(-) diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index df3cbc36c..f294cf4bf 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -4,6 +4,33 @@ + @@ -95,22 +122,22 @@
- - - +
+ + -
+
- +
@@ -136,23 +163,23 @@
-
-
- +
+
+
-