From 7119199f0a257460d429a9b4da571aa5da4fa775 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 19 May 2021 10:15:24 -0700 Subject: [PATCH 01/25] Correccion de usuario responsable --- Compras/Proveedores.aspx.vb | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 09f67a4e8..ea3a19572 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -1458,7 +1458,22 @@ Partial Class Compras_Proveedores #Region "LL E N A R - C O M B O S" Private Sub CargaResponsable() 'DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, DistinctColumns:={"CveUsuario", "Nombre"}) - DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"}) + Dim DtUsuarios As DataTable = Nothing + + Dim ObjUsuarios As New ClsSisUsuarios + Try + If ObjUsuarios.GetUsuarios(-1) Then + DtUsuarios = ObjUsuarios.DtResultados.FiltraParametros($"CveEmpresaPredeterminada = {UsuarioActual.CveEmpresa}", DistinctColumns:={"CveUsuario", "Nombre", "Estatus"}) + If CveProveedor <= 0 AndAlso DtUsuarios IsNot Nothing Then + DtUsuarios = DtUsuarios.FiltraParametros("Estatus = True", DistinctColumns:={"CveUsuario", "Nombre"}) + End If + End If + Catch ex As Exception + OnError("Ocurrio un error al obtener los responsables", ex) + End Try + ObjUsuarios.Dispose() + + DdlCveUsuarioResponsable.DataSource = DtUsuarios 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"}) DdlCveUsuarioResponsable.DataBind() End Sub Private Sub CargaClasificacionProveedor() From 1bff45d151f7aa39b20d66d4510f04a2ea4249f8 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 19 May 2021 10:15:41 -0700 Subject: [PATCH 02/25] Correciones en facturacion masiva --- Contratos/Contrato.aspx | 2 +- Contratos/Contrato.aspx.vb | 16 +- Contratos/FacturacionMasiva.aspx | 327 +++++++-------- Contratos/FacturacionMasiva.aspx.vb | 591 ++++------------------------ 4 files changed, 262 insertions(+), 674 deletions(-) diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx index 72adfa923..7fb92b014 100644 --- a/Contratos/Contrato.aspx +++ b/Contratos/Contrato.aspx @@ -2003,7 +2003,7 @@
- + diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 346bf361c..62fc596a4 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1021,6 +1021,7 @@ Partial Class Contratos_Default If ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString().ToEntero() > 0 Then DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString().ToEntero()) DdlPeriodo_SelectedIndexChanged(DdlPeriodo, EventArgs.Empty) + DdlDiaFact.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("DiaMesFacturacion").ToString()) End If UpFacCiclica.Update() @@ -1235,6 +1236,16 @@ Partial Class Contratos_Default Exit Sub End If + If ChkAplicaFacCiclica.Checked AndAlso DdlPeriodo.SelectedValue.ToEntero() <= 0 Then + Alert("Debe seleccionar un periodo para la facturación ciclica", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If ChkAplicaFacCiclica.Checked AndAlso DdlDiaFact.SelectedValue.ToEntero() <= 0 Then + Alert("Debe seleccionar un día para la facturación ciclica", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Dim TieneError = False Dim Modificado = False ' Dim Extension = Session("FileExtension").ToString @@ -1508,7 +1519,8 @@ Partial Class Contratos_Default For Ciclo As Integer = 1 To CiclosComercialesEnMeses Dim FechaRef As DateTime = FechaI.AddMonths(PeriodoMeses * Ciclo) Dim lastDayOfMonth = DateTime.DaysInMonth(FechaRef.Year, FechaRef.Month) - Dim DiaMes As Integer = If(FechaRef.Day < DdlDiaFact.SelectedValue.ToEntero(), lastDayOfMonth, DdlDiaFact.SelectedValue.ToEntero()) + + Dim DiaMes As Integer = If(lastDayOfMonth < DdlDiaFact.SelectedValue.ToEntero(), lastDayOfMonth, DdlDiaFact.SelectedValue.ToEntero()) Dim FechaFact = New DateTime(FechaRef.Year, FechaRef.Month, DiaMes) FechaFact = If(FechaFact > FechaF, FechaF, FechaFact) @@ -2304,7 +2316,7 @@ Partial Class Contratos_Default If ObjContratos.RemoveContratosDetalle(CveContratoDetalle, CveContrato) Then TmpDT.Rows.Remove(DbRow) CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1")) - LbTotalGeneralInsumos.Text = GvInsumos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.FCLiteral("LtTotal").Text.ToDouble).ToString.FormatoNumero + LbTotalGeneralInsumos.Text = GvInsumos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.FCLabel("LtTotal").Text.ToDouble).ToString.FormatoNumero Else Alert("Ocurrió un error al eliminar el detalle (Producto/Servicio). Por favor vuelva a intentar", TipoMensaje.MsgError) End If diff --git a/Contratos/FacturacionMasiva.aspx b/Contratos/FacturacionMasiva.aspx index 431aa81db..401c20d94 100644 --- a/Contratos/FacturacionMasiva.aspx +++ b/Contratos/FacturacionMasiva.aspx @@ -1,166 +1,167 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="FacturacionMasiva.aspx.vb" Inherits="Contratos_FacturacionMasiva" %> - - - - - - - Facturación Masiva - - - - -
  • - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="FacturacionMasiva.aspx.vb" Inherits="Contratos_FacturacionMasiva" %> + + + + + + + Facturación Masiva + + + + +
  • + + - Facturar Todas - - -
    • -     - - - - - - -
    -
    -
    - - -
    -
    -
      + Facturar Todas + + + + + + + + + + +
      +
      +
      + + +
      +
      +
      • Cliente: - -
        • + + +
      • Contrato: - - -
        • -
      • - Sucursal: - - - -
        • -
      -
      -
      - -
      -       -       - - -
      -
      - - - - - - - - - - - - - - - -
      -
      -       -       -
      - - -
      -
      - -
      -
      -       -       - - - -       - - - + + + +
    • Sucursal: + + + + +
      • +
    +
    +
    + +
    +     +     + + +
    +
    + + + + + + + + + + + + + + + +
    +
    +     +     +
    + + +
    +
    + +
    +
    +     +     + + + +     + + + diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index b9f676193..1a5a1b34a 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -202,22 +202,35 @@ Partial Class Contratos_FacturacionMasiva RegistraScript("$('#ex').removeClass('expand');$('#ex').addClass('collapse');$('.portlet-body').css('display', '');") End Sub - Protected Sub ImgFacturarTodos_Click(sender As Object, e As EventArgs) Handles BtnFacturar.Click - EjecutarFacturacion() + Protected Sub ImgFacturarTodos_Click(sender As Object, e As EventArgs) Handles ImgFacturarTodos.Click + EjecutarFacturacion(FacturarTodos:=True) + Dim CveContrato As Integer = If(DdlContrato.SelectedValue.ToEntero <= 0, -1, DdlContrato.SelectedValue.ToEntero) + Dim CveCliente As Integer = If(DdlCliente.SelectedValue.ToEntero <= 0, -1, DdlCliente.SelectedValue.ToEntero) + + CargaDatos(CveContrato, CveCliente) + End Sub + + Protected Sub btnFacturarAqui_Click(sender As Object, e As EventArgs) Handles BtnFacturar.Click + EjecutarFacturacion(FacturarTodos:=False) + + Dim CveContrato As Integer = If(DdlContrato.SelectedValue.ToEntero <= 0, -1, DdlContrato.SelectedValue.ToEntero) + Dim CveCliente As Integer = If(DdlCliente.SelectedValue.ToEntero <= 0, -1, DdlCliente.SelectedValue.ToEntero) + + CargaDatos(CveContrato, CveCliente) + RegistraScript("$('#divAgregar').modal('hide')") + UpBodyEstatus.Update() End Sub - Private Sub EjecutarFacturacion() + Private Sub EjecutarFacturacion(Optional FacturarTodos As Boolean = False) Dim FacturadoCorrecto = True Dim sb As New StringBuilder() For Each row As GridViewRow In GvCiclosComerciales.Rows - If row.FCCheckBox("chkDis").Checked Then + If FacturarTodos OrElse row.FCCheckBox("chkDis").Checked Then Dim Resp = EmitirImprimir(row.DataKey("CveCicloComercial").ToString.ToEntero) - For Each Msg In Resp.Mensajes - sb.AppendFormat("{0}

    ", Msg) - Next + sb.AppendFormat("{0}

    ", Resp.Mensaje) If Not FacturadoCorrecto Then If Mensaje = "" Then @@ -234,155 +247,75 @@ Partial Class Contratos_FacturacionMasiva Else Alert("No se generaron facturas", TipoMensaje.MsgAdvertencia) End If - - Dim CveContrato As Integer = If(DdlContrato.SelectedValue.ToEntero <= 0, -1, DdlContrato.SelectedValue.ToEntero) - Dim CveCliente As Integer = If(DdlCliente.SelectedValue.ToEntero <= 0, -1, DdlCliente.SelectedValue.ToEntero) - - CargaDatos(CveContrato, CveCliente) - RegistraScript("$('#divAgregar').modal('hide')") - UpBodyEstatus.Update() End Sub - Protected Sub btnFacturarAqui_Click(sender As Object, e As EventArgs) - EjecutarFacturacion() - End Sub - Private Function EmitirImprimir(pCveCicloComercial As Integer) As Modelos.Factura.MMensajeFactura - Dim Resp As New Modelos.Factura.MMensajeFactura + + Private Function EmitirImprimir(pCveCicloComercial As Integer) As MMensajeFacturacion + Dim Retorno As New MMensajeFacturacion + ViewState("CveCicloComercial") = pCveCicloComercial CreaObjetosVenta() If ObjFactura Is Nothing Or ObjFactura.Cliente Is Nothing Then Alert("Ocurrió un error al procesar los datos de la Venta.", TipoMensaje.MsgError) ObjFactura = Nothing - Return Resp + Return Retorno End If - If ObjFactura.CveCliente > 0 Then If ObjFactura.DtDetalle.Rows.Count > 0 Then + Dim TieneError As Boolean = False + Dim RespFactura As Modelos.Factura.MMensajeFactura = Nothing + + Try + RespFactura = ObjFactura.EmitirFactura(Timbrar:=False) + + If RespFactura IsNot Nothing AndAlso RespFactura.CveVenta <= 0 OrElse RespFactura.TieneError Then + TieneError = True + End If + Catch ex As Exception + TieneError = True + OnError("Ocurrió un error al generar la factura", ex) + End Try + + If Not TieneError AndAlso RespFactura.CveVenta > 0 Then + Retorno.CveVenta = RespFactura.CveVenta + Retorno.SerieFolio = RespFactura.SerieFolio + Retorno.SeTimbro = ObjFactura.TimbrarFactura() + End If + + Dim SbMensajes As New StringBuilder + + If Not TieneError Then + SbMensajes.AppendFormat("La factura {1} se guardo correctamente.", Retorno.CveVenta, Retorno.SerieFolio) + + If Not Retorno.SeTimbro Then + SbMensajes.AppendFormat("
    La factura no se pudo timbrar.") + End If + Else + SbMensajes.Append("Ocurrió un error al generar la factura.") + If RespFactura IsNot Nothing Then + For Each msg As String In RespFactura.Mensajes + SbMensajes.Append(msg) + Next + End If + End If + + Retorno.Mensaje = SbMensajes.ToString() - Resp = ObjFactura.EmitirFactura() - - 'Dim ObjVentas As New ClsVentas() - 'Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL()) - 'Dim ObjInventario As New ClsInventarios(ObjVentas.IniciaTransacSQL()) - 'Dim ObjContr As New ClsContratos(ObjVentas.IniciaTransacSQL()) - 'Dim ObjOS As New ClsOS(ObjVentas.IniciaTransacSQL()) - 'Dim ObjBancos As New ClsBancos(ObjVentas.IniciaTransacSQL()) - 'Dim ObjClientes As New ClsClientes(ObjVentas.IniciaTransacSQL()) - 'Dim ObjContPaq As ClsContPAQi = Nothing - ''Dim ObjFolios As New ClsGralFolios(ObjVentas.IniciaTransacSQL()) - 'ErrorList = New List(Of String) - 'MensajeAlert = New StringBuilder - - - ''CONTABILIDAD AUTOMATICA Y AC - 'If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - ' ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa) - 'End If - - - ''GUARDA VENTA - 'GuardarVenta(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjFactura, TmpDT, ObjFactura.CveNCaVincular, ObjContPaq, ObjBancos, ObjOS) - - 'If pCveCicloComercial > 0 AndAlso ErrorList.Count = 0 Then - ' If Not ObjContr.CicloComercialUpdate(pCveCicloComercial, True, UsuarioActual.CveEmpresa) Then - ' ErrorList.Add("No se pudo actualizar ") - ' End If - 'End If - - 'If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso (SeGuardoPrePoliza Or ObjFactura.TipoDocto.Contiene("Ped", "Cot")) Then - ' ObjVentas.Commit() - ' If ObjContPaq IsNot Nothing Then ObjContPaq.Commit() - ' ViewState("CveVenta") = ObjFactura.CveVenta - - - ' Dim SeTimbro As Boolean = False - ' 'TIMBRADO Y CASO ESPECIAL NOTA DE CREDITO - - ' If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant") Then - ' If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso UsuarioActual.Empresa.FacturaProduccion Then - - ' Dim sw As New Diagnostics.Stopwatch - ' sw.Start() - - ' 'FACTURA INGRESO/EGRESO - ' Dim ObjTimbrado As New Timbrado - - - ' SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) - - ' sw.Stop() - ' GuardaLogTimbrado(sw.ElapsedMilliseconds.ToString, UsuarioActual.Empresa.CvePAC) - ' End If - - - ' 'MENSAJE PRINCIPAL - ' MensajeAlert.AppendFormat(String.Format("
    La {0}: {1} se generó correctamente.

    ", ObjFactura.TipoDocumento, ObjFactura.SerieFolio)) - - - ' If SeTimbro Then - ' 'XML - ' Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio) - ' If File.Exists(ArchivoXML) Then - ' MensajeAlert.AppendFormat("", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", ObjFactura.CveVenta, "XML", ObjFactura.SerieFolio, ObjFactura.TipoDocto))) - ' End If - - ' 'IMPRESION - ' GeneraPDFFactura(False) - ' Else - ' MensajeAlert.AppendFormat("La factura no se pudo timbrar. Por favor intentelo de nuevo a traves del boton Emitir o póngase en contacto con soporte técnico.") - ' End If - - ' 'MUESTA ALERT OK - ' Dim Liga = If(UsuarioActual.CveRol = 1165, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=-1"";", $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={ObjFactura.CveCliente}&Opt=3"";") - ' retorno = True - ' ObjFactura = Nothing - ' Else - ' ObjVentas.RollBack() - ' If ObjContPaq IsNot Nothing Then ObjContPaq.RollBack() - - ' For Each ErrorItem In ErrorList - ' Alert(ErrorItem, TipoMensaje.MsgAdvertencia) - ' Next - - ' 'MUESTA ALERT ERROR - ' Alert("Ocurrió un error al procesar los datos. Por favor rectifique y vuelta a intentar.", TipoMensaje.MsgError) - ' End If - - ' ObjVentas.Dispose() - ' ObjConta.Dispose() - ' ObjInventario.Dispose() - ' ObjContr.Dispose() - ' ErrorList = Nothing - ' MensajeAlert = Nothing - ' If ObjContPaq IsNot Nothing Then ObjContPaq.Dispose() - 'Else - ' ObjVentas.RollBack() - ' If ObjContPaq IsNot Nothing Then ObjContPaq.RollBack() - - ' For Each ErrorItem In ErrorList - ' Alert(ErrorItem, TipoMensaje.MsgAdvertencia) - ' Next - - ' 'MUESTA ALERT ERROR - ' Alert("Ocurrió un error al procesar los datos. Por favor rectifique y vuelta a intentar.", TipoMensaje.MsgError) - ' ObjVentas.Dispose() - ' ObjConta.Dispose() - ' ObjInventario.Dispose() - ' ObjContr.Dispose() - ' 'ObjFolios.Dispose() - ' ErrorList = Nothing - ' MensajeAlert = Nothing - ' If ObjContPaq IsNot Nothing Then ObjContPaq.Dispose() - 'End If Else - Mensaje = "No se pudo completar facturación por que no se encontraron partidas " + Retorno.Mensaje = "No se pudo completar facturación por que no se encontraron partidas " End If + End If + + If ObjFactura IsNot Nothing Then + ObjFactura.Dispose() + End If + TmpDT.Clear() - Return Resp + Return Retorno End Function @@ -500,13 +433,13 @@ Partial Class Contratos_FacturacionMasiva ObjFactura.Folio = -1 ObjFactura.Serie = "-1" ObjFactura.CveMesa = -1 - ObjFactura.Fecha = DR("FechaVenc").ToString.ToDate + ObjFactura.Fecha = DR("FechaVenc").ToString.ToDate 'If(DR("FechaVenc").ToString.ToDate > Now, Now, DR("FechaVenc").ToString.ToDate) ObjFactura.CvePrePoliza = -1 ObjFactura.CveMetodoPago = 1 ObjFactura.MetodoPago = "Efectivo" ObjFactura.FechaPago = DateTime.Today ObjFactura.MotivoDescuento = "" - ObjFactura.Observaciones = TxtObservaciones.Text + " " + DR("Observaciones").ToString + ObjFactura.Observaciones = If(String.IsNullOrEmpty(TxtObservaciones.Text), "", TxtObservaciones.Text + " ") + DR("Observaciones").ToString ObjFactura.FechaEjecucion = DateTime.Today 'ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {1}") ObjFactura.UsuarioCreo = UsuarioActual.Usuario @@ -638,7 +571,10 @@ Partial Class Contratos_FacturacionMasiva ObjFactura.SetSubProyecto(Me) ObjFactura.Timbre = PreParaTimbre(ObjFactura) - + ObjFactura.FemsaFactura = New Modelos.FemsaFactura() With { + .AplicaFEMSA = False, + .FEMSA_Version = 1 + } End Sub Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre @@ -764,372 +700,11 @@ Partial Class Contratos_FacturacionMasiva Return Timbre End Function - Private Sub GuardarVenta(ObjVentas As ClsVentas, ObjConta As ClsContabilidad, ObjInventario As ClsInventarios, ObjContr As ClsContratos, factura As Modelos.Factura, TmpDTDetalle As DataTable, CveNCaVincular As Integer, objContPaqi As ClsContPAQi, Optional ObjBancos As ClsBancos = Nothing, Optional ObjOS As ClsOS = Nothing) - - Dim Msgok As New StringBuilder - Dim CveAlmacenTraspasoOrigen As Integer = -1 - Dim CveAlmacenTraspasoDestino As Integer = -1 - Dim EsDevolucionVenta = -1 - Dim CveSubProyecto = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero - - - factura.CvePrePoliza = ObjConta.AddPrePolizas("Contratos/FacturacionMasiva", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) - If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, - factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, - factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, - factura.Observaciones, factura.FechaEjecucion, factura.CveVendedor, factura.Alfa1, factura.Alfa2, - factura.Alfa3, factura.Num1, factura.Num2, factura.Num3, - factura.Fech1, factura.Fech2, factura.Fech3, factura.CveCorte, factura.CveMesa, factura.NumeroPersonas, factura.CvePrePoliza, factura.CveUsuario, factura.CveEmpresa, - AtencionA:=factura.AtencionA, TelefonoGenerico:="", CveContrato:=factura.CveContrato, CveVentaPadre:=factura.CveVentaPadre, Det_FechaOrdenCompra:=factura.Det_FechaOrdenCompra, Det_OrdenCompra:=factura.Det_OrdenCompra, otros:=factura.Otros, - Entrega:="", Vigencia:=MinFecha, - CveAlmacenTraspasoDestino:=CveAlmacenTraspasoDestino, CveAlmacenTraspasoOrigen:=CveAlmacenTraspasoOrigen, CveDireccionEnvio:=-1, CveOC:=-1, IEPS:=factura.IEPSTC, Serie:=factura.Serie, CveCondicionEntrega:=-1, - PedidoContrato:="", CveSubProyecto:=CveSubProyecto, CveSubProyectoCobranza:=CveSubProyecto, CveSubProyectoEjecucion:=CveSubProyecto, CveFormaPago33:=factura.CveFormaPago33, - CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI) Then - ErrorList.Add("Ocurrió un error al Generar la Venta.
    Revise su factura y cualquier detalle comuníquese a Soporte Técnico") - End If - - - If ErrorList.Count = 0 AndAlso ObjVentas.CveVenta > 0 Then - - factura.CveVenta = ObjVentas.CveVenta - factura.Serie = ObjVentas.Serie - factura.Folio = ObjVentas.Folio - ViewState("VentaFolio") = ObjVentas.SerieFolio - - 'Se agregan los PS - For Each Row As DataRow In TmpDTDetalle.Rows - Dim Observacion As String = Row("Observacion").ToString - If TxtObservaciones.Text.Trim <> "" Then - Observacion = $"{Observacion} {TxtObservaciones.Text}" - End If - - If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero, - Row("PU").ToString.ToDouble(If(ObjFactura.ConvertirPesos, factura.TipoCambio, 1)), Row("IVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Math.Round((Row("Total").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("IVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6), - Observacion, 0, 0, Row("CveSubProyecto").ToString.ToEntero, -1, - TiempoEntrega:="", CveVentaDetallePadre:=-1, CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CvePromocionDetalle:=-1, IEPS:=Row("ImporteIEPS").ToString.ToDouble, - ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDouble, - PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDouble) Then - ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.
    Revise su factura y cualquier detalle comuníquese a Soporte Técnico") - Exit For - Else - Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Row("Consec").ToString}")(0) - TmpDr("CveVentaDetalle") = ObjVentas.CveVentaDetalle - End If - Next - - GuardarContratoAvanceEstimaciones(ObjVentas, factura, ErrorList, 1) - - If ErrorList.Count = 0 Then - 'prepoliza - GuardarVentaPrePolizas(ObjConta, factura, TmpDTDetalle, CveNCaVincular, objContPaqi, ObjBancos, ObjVentas) - End If - - End If - End Sub - Private Sub GuardarVentaPrePolizas(ObjConta As ClsContabilidad, factura As Modelos.Factura, TmpDTDetalleMovimientos As DataTable, CveNCaVincular As Integer, objContPaqi As ClsContPAQi, Optional ObjBancos As ClsBancos = Nothing, ByRef Optional ObjVentas As ClsVentas = Nothing) - - Dim CveIE As Integer = -1 - Dim DT As DataTable = Nothing - - - Dim CveConceptoAfectacion As Integer = 1 'Cliente - Dim CveConceptoAntCli As Integer = 3 'Anticipo Cliente - Dim CveConceptoVenta As Integer = 4 'Venta - Dim CveConceptoCanAnt As Integer = 11 'Cancelacion Anticipos - Dim CveConceptoDSV As Integer = 12 ' DSV - Dim CveConceptoIVA As Integer = 13 'IVA Trasladado - Dim CveConceptoRetIVA As Integer = 8 'Ret IVA - Dim CveConceptoRetISR As Integer = 9 'Ret ISR - 'P R E P O L I Z A S - If factura.CvePrePoliza > 0 Then - - If ProcesoPrepolizas(ObjConta, factura, CveIE, TmpDTDetalleMovimientos, objContPaqi, 1, ObjBancos, ObjVentas) Then - ErrorList.Add("Ocurrió un error al agregar los Movimientos de la prepoliza.
    Revise su factura y cualquier detalle comuníquese a Soporte Técnico") - End If - - Else - ErrorList.Add("Ocurrió un error al agregar los Movimientos de la prepoliza.
    Revise su factura y cualquier detalle comuníquese a Soporte Técnico") - End If - End Sub - - Private Function ProcesoPrepolizas(ObjConta As ClsContabilidad, ObjFactura As Modelos.Factura, CveIE As Integer, TmpDTDetalle As DataTable, objContPaqi As ClsContPAQi, Optional ValorMultiplicador As Integer = 1, ByRef Optional ObjBancos As ClsBancos = Nothing, ByRef Optional ObjVentas As ClsVentas = Nothing) As Boolean - - Dim DT As DataTable - Dim CvePlantilaPoliza As Integer - Dim PorcentajeAmortizacion As Decimal = 0 - Dim sumaAmorticaciones As Decimal = 0 - Dim ivaTrasladado As Decimal = 0 - Dim retIvaTrasladado As Decimal = 0 - Dim retIsrTrasladado As Decimal = 0 - Dim ErrorPrepoliza As Boolean = False - Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

    " - Dim idCuentaContabilizacion As Integer = 1 - Dim tipoCambio As Decimal - Dim CuentasContablesInvalidas As New StringBuilder - - If ObjFactura.TipoDocto = "Ing" Or ObjFactura.TipoDocto = "Ant" Or ObjFactura.TipoDocto = "Com" Then - CvePlantilaPoliza = 4 - ElseIf ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then - CvePlantilaPoliza = 7 - ElseIf ObjFactura.TipoDocto = "Rem" Then - CvePlantilaPoliza = 4 - End If - - If ObjFactura.CveMoneda = 2 Then - tipoCambio = GlobalTipoCambio(ObjFactura.Fecha).ToString.ToDecimal - Else - tipoCambio = 1 - End If - - Dim ConceptoContable As Integer - Dim TipoMovimiento As Boolean - Dim importeMovimiento As Decimal - Dim FechaMovimiento As Date = Date.Today - Dim IdCtaContable As Integer - Dim CveCuenta As Integer - Dim IdCtaContableCliente As Integer - Dim Concepto As String = ViewState("VentaFolio").ToString - Dim Referencia As String = ViewState("VentaFolio").ToString - Dim Fecha = ObjFactura.Fecha - - Dim importeMX As Decimal - Dim Multiplicador As Integer - 'Dim CveIEPago As Integer - ' Dim FolioIE As Long - - If ObjConta.GetPlantillaConceptos(ObjFactura.CveEmpresa, CvePlantilaPoliza) Then - For Each Row As DataRow In ObjConta.DtResultados.Rows - - ConceptoContable = Row("CveConcepto").ToString.ToEntero - TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False) - importeMovimiento = 0 - IdCtaContable = 0 - CveCuenta = 0 - Multiplicador = (Row("Multiplicador").ToString.ToEntero) - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", "") - - Dim PorcentajeImpuesto As Decimal = 0 - - Select Case ConceptoContable - Case 1 'Cliente - If ObjFactura.TipoDocto <> "Egs" Then - importeMovimiento = (ObjFactura.Total) * ValorMultiplicador - importeMX = importeMovimiento * tipoCambio * Multiplicador - FechaMovimiento = ObjFactura.FechaPago - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - - If tipoCambio = 1 Then - IdCtaContable = ObjFactura.Cliente.IdCtaContClientes - Else - IdCtaContable = ObjFactura.Cliente.IdCtaContComplementaria - If importeMovimiento <> 0 AndAlso IdCtaContable > 0 Then - importeMX = importeMovimiento - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, 0, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMovimiento * tipoCambio - importeMovimiento, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento)) Then - ErrorPrepoliza = True - End If - End If - - IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera - End If - IdCtaContableCliente = IdCtaContable - End If - - Case 4 'Venta Clasificacion - - If ObjFactura.TipoDocto <> "Ant" Then - DT = TmpDTDetalle.FiltraParametros($"CvePS <> {0}", "", {"CveClasificacion", "CveSubProyecto"}) - If DT.Rows.Count > 0 Then - 'Se agrega movimiento separado por la cuenta de ventas (ER) - For Each Row2 As DataRow In DT.Rows - importeMovimiento = (TmpDTDetalle.SUM("Total", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador - importeMX = importeMovimiento * tipoCambio * Multiplicador - FechaMovimiento = ObjFactura.FechaPago - Concepto = $"{ViewState("VentaFolio").ToString} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero - If importeMovimiento <> 0 Then - - If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}")) - idCuentaContabilizacion = 0 - End If - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento)) Then - ErrorPrepoliza = True - Else - ViewState("SeGuardoPrePoliza") = True - End If - End If - Next - End If - End If - importeMovimiento = 0 - - Case 8 'Ret IVA por Trasladar - If Not ObjFactura.TipoDocto.Contiene("Rem") Then - importeMovimiento = ObjFactura.RetIVA * ValorMultiplicador - importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador - FechaMovimiento = ObjFactura.FechaPago - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - - 'Contabilidad ContPAQ - If IdCtaContRetIVA > 0 Then - IdCtaContable = IdCtaContRetIVA - Else - If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero - End If - End If - End If - - 'Contabilidad SIG - If CveCuentaRetIVA > 0 Then - CveCuenta = CveCuentaRetIVA - Else - If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero - End If - End If - End If - End If - - Case 9 'Ret ISR por Trasladar - If Not ObjFactura.TipoDocto.Contiene("Rem") Then - importeMovimiento = ObjFactura.RetISR * ValorMultiplicador - importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador - FechaMovimiento = ObjFactura.FechaPago - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - - 'Contabilidad ContPAQ - If IdCtaContRetISR > 0 Then - IdCtaContable = IdCtaContRetISR - Else - If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - End If - End If - End If - - 'Contabilidad SIG - If CveCuentaRetISR > 0 Then - CveCuenta = CveCuentaRetISR - Else - If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero - End If - End If - End If - End If - - - - Case 13 'Iva por Trasladar - importeMovimiento = ObjFactura.IVA * ValorMultiplicador - importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador - FechaMovimiento = ObjFactura.FechaPago - IdCtaContable = UsuarioActual.Empresa.IdCuentaIVAxTrasladar - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - PorcentajeImpuesto = TmpDTDetalle.MAX("PorcentajeIVA").ToDecimal - - Case 38 'IEPS por Trasladar - If Not ObjFactura.TipoDocto.Contiene("Rem") Then - importeMovimiento = ObjFactura.IEPS * ValorMultiplicador - importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2) - FechaMovimiento = ObjFactura.Fecha - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - If importeMovimiento > 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladarSIG").ToString.ToEntero - End If - End If - PorcentajeImpuesto = TmpDTDetalle.MAX("PorcentajeIEPS").ToDecimal - End If - - End Select - - If importeMovimiento <> 0 Then - - If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - idCuentaContabilizacion = 0 - End If - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto) Then - ErrorPrepoliza = True - Else - ViewState("SeGuardoPrePoliza") = True - End If - - End If - - Next - - End If - - Return ErrorPrepoliza - End Function - - Private Sub GeneraPDFFactura(EnviaCorreo As Boolean) - - - 'If Not ImprimeAlert Then - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Factura.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/Remision.rdlc", UsuarioActual.Empresa.Ruta)) - - 'CASO NORMAL NEW - If Archivo.Exists Or Archivo2.Exists Then - MensajeAlert.AppendFormat("
    ", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", ObjFactura.CveVenta))) - Else - MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ") - End If - - - Dim pdf As Byte() = Nothing - - 'GUARDA PDF - Dim LocalSerieFolio As String = String.Empty - Dim LocalTipoDocto As String = String.Empty - - - 'TIMBRADO NUEVO - Try - pdf = PdfFactura(ObjFactura) - ' File.WriteAllBytes(String.Format("{0}PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio), pdf) - Catch ex As Exception - Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia) - End Try - - LocalSerieFolio = ObjFactura.SerieFolio - LocalTipoDocto = ObjFactura.TipoDocto - 'End If - - End Sub - - Private Sub GuardarContratoAvanceEstimaciones(ObjVentas As ClsVentas, factura As Modelos.Factura, ErrorList As List(Of String), Multiplicador As Integer, Optional CrearAvance As Boolean = False) - - If factura.CveContrato > 0 Then - Dim ObjContratos As New ClsContratos(ObjVentas.IniciaTransacSQL()) - Dim CveEstimacion As Integer = -1 - - If ObjContratos.AddEstimaciones(factura.CveContrato, factura.Fecha, -1, factura.CveVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - CveEstimacion = ObjContratos.DtResultados(0)("CveEstimacion").ToString.ToEntero - - For Each row As DataRow In TmpDT.Rows - If Not ObjContratos.AddContratosAvance(row("CveContratoDetalle").ToString.ToEntero, row("Cantidad").ToString.ToEntero * Multiplicador, factura.Fecha, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then - ErrorList.Add("Ocurrió un error al agregar los avances") - End If - Next - - Else - ErrorList.Add("Ocurrió un error al agregar las estimaciones") - End If - End If - - End Sub + Public Class MMensajeFacturacion + Public Property CveVenta As Integer = -1 + Public Property SerieFolio As String = "" + Public Property Mensaje As String = "" + Public Property SeTimbro As Boolean = False + End Class End Class From 68c6d1b3d11408f924a2c1649ad0662c74e36265 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 19 May 2021 10:16:49 -0700 Subject: [PATCH 03/25] Cambios en Trayectos --- GPS/CatEstatusTrayectos.aspx.cs | 2 +- GPS/TrayectoDetalle.aspx | 216 +++++++++++++++-- GPS/TrayectoDetalle.aspx.vb | 399 +++++++++++++++++++++++--------- GPS/Trayectos.aspx | 44 ++-- GPS/Trayectos.aspx.vb | 11 +- 5 files changed, 518 insertions(+), 154 deletions(-) diff --git a/GPS/CatEstatusTrayectos.aspx.cs b/GPS/CatEstatusTrayectos.aspx.cs index 868cb0ccc..6778292de 100644 --- a/GPS/CatEstatusTrayectos.aspx.cs +++ b/GPS/CatEstatusTrayectos.aspx.cs @@ -28,7 +28,7 @@ public partial class GPS_CatEstatusTrayectos : ClsPaginas { if (ObjGPS.GetEstatusTrayectos(-1, UsuarioActual.CveCliente)) { - DtEstatus = ObjGPS.DtResultados; + DtEstatus = ObjGPS.DtResultados.FiltraParametros("CveCliente > 0"); GvEstatus.DataSource = DtEstatus; GvEstatus.DataBind(); CargaEstatus(); diff --git a/GPS/TrayectoDetalle.aspx b/GPS/TrayectoDetalle.aspx index cef9f58d7..a10fc8071 100644 --- a/GPS/TrayectoDetalle.aspx +++ b/GPS/TrayectoDetalle.aspx @@ -36,9 +36,12 @@ -
  • +
  • Terminar Trayecto -
    • + +
  • + Actualizar al estatus siguiente +
  • Agregar Gasto
    • @@ -223,6 +226,16 @@
    +
    + + +
    +
    + +
    +
    + +
    @@ -469,7 +482,7 @@
    - @@ -547,28 +560,70 @@
    +
    @@ -134,18 +134,29 @@ -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - + + +
    +
    +
    +
    +
    + +
    + +
    +
    + +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    - @@ -170,11 +181,10 @@ - - -
    -
    - +
    +
    + + -
    +
    @@ -3725,8 +3725,8 @@ - - + + @@ -4761,10 +4761,10 @@
    - - - + + +
    @@ -6909,7 +6909,7 @@ - +
    diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index cc6238390..4b9eb526c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1298,6 +1298,16 @@ Partial Class Ventas ViewState("CveFormaPago33Cliente") = value End Set End Property + + Private Property RFCReceptorVenta As String + Get + Return If(IsNothing(ViewState("RFCReceptorVenta")), "", ViewState("RFCReceptorVenta").ToString()) + End Get + + Set(value As String) + ViewState("RFCReceptorVenta") = value + End Set + End Property #End Region #Region "Propiedades PuntoVenta" @@ -1573,7 +1583,7 @@ Partial Class Ventas Private Property EnviarCorreoCliente As Boolean Get - Return CBool(ViewState("EnviarCorreoCliente").ToString()) + Return CBool(IfNull(ViewState("EnviarCorreoCliente"), False)) End Get Set(value As Boolean) ViewState("EnviarCorreoCliente") = value @@ -2867,6 +2877,14 @@ Partial Class Ventas End If End If + 'VALIDA ESTATUS CLIENTE - SOLO SE PUEDE USAR EL CLIENTE PARA COTIZAR EN CASO DE ESTAR INACTIVO + If Not CveVenta > 0 AndAlso Not BtnEmitirImprimir.Visible AndAlso Request("Op") IsNot Nothing AndAlso Request("Op").ToString() <> "" Then + If DdlTipoComprobante.SelectedValue.Contiene("Cot") Then + BtnEmitirImprimir.Visible = True + TrVistaPrevia.Visible = True + End If + End If + End If ''EN REALIDAD SE OCUPAN ESTAS COSAS DENTRO DEL POSTABCK ??? @@ -3975,6 +3993,8 @@ Partial Class Ventas ObjUsados.Dispose() End If + RFCReceptorVenta = DbRowVenta("RFCReceptor").ToString() + ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString().ToEntero() Me.CveEstatusFacturaPadre = DbRowVenta("CveEstatusFacturaPadre").ToString().ToEntero() @@ -10922,6 +10942,29 @@ Partial Class Ventas End If factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, If(CveEmpresaCRM > 0, LblEmpresaCRM.Text, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa) + + Dim RFCReceptor As String = "" + + If factura.Timbre IsNot Nothing AndAlso factura.Timbre.Receptor IsNot Nothing Then + If Not String.IsNullOrEmpty(factura.Timbre.Receptor.RFC) Then + RFCReceptor = factura.Timbre.Receptor.RFC.Trim + End If + End If + + 'SI NO SE VA TIMBRAR TOMA EL DEL CLIENTE + If String.IsNullOrEmpty(RFCReceptor) Then + If Not String.IsNullOrEmpty(LblRFC.Text) Then + RFCReceptor = LblRFC.Text.Trim + End If + + If factura.FacturarSucursal Then + If factura.ClienteSucursal IsNot Nothing Then + RFCReceptor = factura.ClienteSucursal.RFC + End If + End If + + End If + If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, @@ -10937,7 +10980,7 @@ Partial Class Ventas CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM, DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False), Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, - FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS) Then + FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
    Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then @@ -12732,7 +12775,7 @@ Partial Class Ventas ' DrPago("Importe") = DrPago("Importe").ToString().ToDecimal - TxtCambio.Text.ToDecimal 'End If - CveIEPago = ObjBancos.AddBancos_IE(DrPago("CveCuenta").ToString().ToEntero(), DrPago("CveTipoMovimiento").ToString().ToEntero(), Fecha, FolioIE.ToString(), String.Format("PAGO: {0}", TxtFolio.Text), DrPago("Importe").ToString().ToDouble, DdlMoneda.SelectedValue.ToEntero(), tipoCambio, DrPago("Observaciones").ToString(), "", False, False, -1, ObjFactura.CvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=CveCorte, MesesSinIntereses:=DrPago("MesesSinIntereses").ToString().ToEntero()) + CveIEPago = ObjBancos.AddBancos_IE(DrPago("CveCuenta").ToString().ToEntero(), DrPago("CveTipoMovimiento").ToString().ToEntero(), Fecha, FolioIE.ToString(), String.Format("PAGO: {0}", TxtFolio.Text), DrPago("Importe").ToString().ToDouble, DdlMoneda.SelectedValue.ToEntero(), tipoCambio, DrPago("Observaciones").ToString(), "", False, False, -1, ObjFactura.CvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=CveCorte, MesesSinIntereses:=DrPago("MesesSinIntereses").ToString().ToEntero(), Modulo:="Ventas/Guardar") If CveIEPago > 0 Then @@ -14089,6 +14132,8 @@ Partial Class Ventas Dim CveCuentaIVAXTrasladar As Integer = 0 Dim CveCuentaIVATrasladado As Integer = 0 + Dim CveSubProyectoVenta As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero() + Dim Importe91 As Decimal = 0 If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then @@ -14196,7 +14241,7 @@ Partial Class Ventas ' CveCuentaContabilizacion = 0 'End If - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVentaValuacion) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVentaValuacion, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True End If @@ -14235,7 +14280,7 @@ Partial Class Ventas ' CveCuentaContabilizacion = 0 'End If - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambioPago, ImporteME:=If(tipoCambioPago = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambioPago, ImporteME:=If(tipoCambioPago = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True End If End If @@ -14300,7 +14345,7 @@ Partial Class Ventas CveCuenta = 0 importeMX = importeMovimiento ImporteComplementaria = ((importeMovimiento * TC) - importeMovimiento).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=ImporteComplementaria, ImporteME:=If(gvr.DataKey("TipoCambio").ToString().ToDecimal = 1, 0, importeMovimiento), TipoCambio:=TC) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=ImporteComplementaria, ImporteME:=If(gvr.DataKey("TipoCambio").ToString().ToDecimal = 1, 0, importeMovimiento), TipoCambio:=TC, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True Exit For End If @@ -14313,7 +14358,7 @@ Partial Class Ventas CveCuenta = 0 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TC) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TC, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True Exit For End If @@ -14322,7 +14367,7 @@ Partial Class Ventas If Not ErrorConta And DdlTipoComprobante.SelectedValue = "Ant" Then importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal) * gvr.DataKey("IVA").ToDecimal) If ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveVentaAmortizacion:=gvr.DataKey("CveVenta").ToString().ToEntero(), ImporteMX:=importeMovimiento * TC, CveCuenta:=CveCuenta) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, True, importeMovimiento, Concepto, 4, Concepto, FechaMovimiento, gvr.DataKey("IdCtaContableNC").ToEntero(), -1, CveClasificacion:=gvr.DataKey("CveClasificacionNC").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMovimiento * TC, CveCuenta:=gvr.DataKey("IdCtaContableNCSIG").ToEntero()) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, True, importeMovimiento, Concepto, 4, Concepto, FechaMovimiento, gvr.DataKey("IdCtaContableNC").ToEntero(), -1, CveClasificacion:=gvr.DataKey("CveClasificacionNC").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMovimiento * TC, CveCuenta:=gvr.DataKey("IdCtaContableNCSIG").ToEntero(), CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True Exit For End If @@ -14345,23 +14390,23 @@ Partial Class Ventas If importeMovimiento <> 0 Then ' Agregamos el 2 If tipoCambioPago = 1 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContClientes, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContClientes, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True End If Else 'Cuando son dolares If importeMovimiento <> 0 Then If IdCtaContComplementaria > 0 Or 0 > 0 Then 'Agregamos la Complementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContComplementaria, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContComplementaria, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True End If 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True End If Else 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True End If End If @@ -14378,7 +14423,7 @@ Partial Class Ventas IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) CveCuenta = If(CveCuentaIVAXTrasladar > 0, CveCuentaIVAXTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True End If @@ -14386,7 +14431,7 @@ Partial Class Ventas IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True End If End If @@ -14401,7 +14446,7 @@ Partial Class Ventas IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSxTrasladar - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, 38, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, 38, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True End If @@ -14409,7 +14454,7 @@ Partial Class Ventas IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSTrasladado - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True End If End If @@ -14443,7 +14488,7 @@ Partial Class Ventas End If End If - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=-1, TipoCambio:=tipoCambioPago) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=-1, TipoCambio:=tipoCambioPago, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True End If @@ -14587,7 +14632,9 @@ Partial Class Ventas ' CveCuentaContabilizacion = 0 'End If - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, PorcentajeImpuesto:=PorcentajeImpuesto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, + CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, + PorcentajeImpuesto:=PorcentajeImpuesto, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True Exit For End If @@ -14746,7 +14793,12 @@ Partial Class Ventas 'cuando es AMORTIZACIÓN CON FACTURA EN CERO If DdlTipoAmortizacionAnticipo.SelectedValue = "3" Then - If Amortizacion < TxtSubTotal.Text.ToDecimal Then + Dim SubTotalRef As Decimal = TxtSubTotal.Text.ToDecimal + If LblDescuentos.Text.ToDecimal() > 0D Then + SubTotalRef = TxtSubTotal.Text.ToDecimal - LblDescuentos.Text.ToDecimal() + End If + + If Amortizacion < SubTotalRef Then '[IPP] LIMPIA LO SELECCIONADO EN CASO DE QUE NO SEA AMORTIZACIÓN DEL 100% 15Junio2018 Amortizacion = 0 @@ -14767,7 +14819,7 @@ Partial Class Ventas End If - CalculaTotalesVenta() + CalculaTotalesVenta(ValidarDescuentos:=True) End If End If @@ -16582,7 +16634,7 @@ Partial Class Ventas If dr Is Nothing Then 'verifica marca, si tiene asignada la promocion - dr = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND (TipoPromocion <> 3 OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc") + dr = DtPromociones.FiltroPrimero(String.Format("CvePS IS NULL AND CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND (TipoPromocion <> 3 OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc") End If End If @@ -17969,9 +18021,11 @@ Partial Class Ventas ConfiguraTipoDocto() End If End Sub - Private Sub CalculaTotalesVenta(Optional RecalculaImpuestosLocales As Boolean = True, Optional NCDescuento As Boolean = False) + Private Sub CalculaTotalesVenta(Optional RecalculaImpuestosLocales As Boolean = True, Optional NCDescuento As Boolean = False, Optional ValidarDescuentos As Boolean = False) Dim TotalSubTotal As Decimal = TmpDT.SUMD("TotalImporte") + Dim TotalSubTotalRef As Decimal = TotalSubTotal + Dim TotalDescuentos As Decimal = TmpDT.SUMD("Descuento") Dim TotalAmortizacion As Decimal = LblAmortizacion.Text.ToDecimal Dim TotalIVA As Decimal = TmpDT.SUMD("ImporteIVA") @@ -17983,7 +18037,11 @@ Partial Class Ventas Dim TotalProntoPago As Decimal = 0 - If TotalAmortizacion > 0 AndAlso TotalSubTotal = TotalAmortizacion Then ' si se amortizó completa la factura, debe de limpiar los impuestos + If ValidarDescuentos Then + TotalSubTotalRef = TotalSubTotal - TotalDescuentos + End If + + If TotalAmortizacion > 0 AndAlso TotalSubTotalRef = TotalAmortizacion Then ' si se amortizó completa la factura, debe de limpiar los impuestos If DdlTipoAmortizacionAnticipo.SelectedValue.Contiene("3") Then For Each dr As DataRow In TmpDT.Rows dr("ImporteIVA") = 0 : dr("ImporteIEPS") = 0 : dr("ImporteRetIVA") = 0 : dr("ImporteRetISR") = 0 : dr("PorcentajeIVA") = 0 : dr("IVA") = 0 @@ -19766,7 +19824,6 @@ Partial Class Ventas End If Else sb.Append("No encontrado
    ") - script = "BtnRefacturacionConfirmarAceptacion();" End If Else sb.Append("¿Desea realizar la refacturación?
    ") @@ -20408,6 +20465,9 @@ Partial Class Ventas Case 2 'CONTADO If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then DivContado.Visible = True + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + DivTransferencia.Visible = False + End If TxtImporteContado.Text = TxtTotal.Text End If TxtFechaPago.Text = Now.ToShortDateString @@ -22040,13 +22100,21 @@ Partial Class Ventas sb.Append("La factura se encuentra en el siguiente estatus del SAT:
    ") Dim TotalT As Decimal = TxtTotal.Text.ToDecimal - Dim RFCReceptor As String = LblRFC.Text.Trim - 'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA - If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then - RFCReceptor = Me.ClienteSucursal.RFC + Dim RFCReceptor As String = "" + + If String.IsNullOrEmpty(Me.RFCReceptorVenta) Then + RFCReceptor = LblRFC.Text.Trim + + 'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA + If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then + RFCReceptor = Me.ClienteSucursal.RFC + End If + Else + RFCReceptor = Me.RFCReceptorVenta End If + Dim SWatch As New Stopwatch SWatch.Start() Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True) @@ -28249,6 +28317,15 @@ Partial Class Ventas End Sub Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged HuboCambioRemi = Not HuboCambioRemi + 'TOTAL X CONCEPTO + If RblTipo.SelectedValue = "3" Then + ChkRemProductos.Visible = True + Else + ChkRemProductos.Visible = False + ChkRemProductos.Checked = False + End If + + ChkRemProductos_CheckedChanged(ChkRemProductos, EventArgs.Empty) End Sub Protected Sub BtnGuardarRemisiones_Click(sender As Object, e As EventArgs) Handles BtnGuardarRemisiones.Click If GvRem.Rows.Count > 0 Or GvRemPS.Rows.Count > 0 Then From 6609a96e2e37f459f620f6e9de842f99ac047d3b Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 19 May 2021 10:28:31 -0700 Subject: [PATCH 09/25] --- App_Code/CFDITimbre.vb | 5 + App_Code/ClsNominas.vb | 24 +- App_Code/ClsPaginas.vb | 48 +- App_Code/ClsRH.vb | 72 +- App_Code/LogicNominas.vb | 174 +- App_Code/Timbrado.vb | 93 +- ...ft.IdentityModel.JsonWebTokens.dll.refresh | Bin 302 -> 0 bytes ...icrosoft.IdentityModel.Logging.dll.refresh | 1 - ...Microsoft.IdentityModel.Tokens.dll.refresh | Bin 274 -> 0 bytes ...ystem.IdentityModel.Tokens.Jwt.dll.refresh | Bin 278 -> 0 bytes Bin/System.Net.Http.Formatting.dll.refresh | Bin 262 -> 0 bytes Bin/System.Web.Cors.dll.refresh | Bin 266 -> 0 bytes Bin/System.Web.Http.Cors.dll.refresh | Bin 290 -> 0 bytes Bin/System.Web.Http.WebHost.dll.refresh | 1 - Bin/System.Web.Http.dll.refresh | Bin 236 -> 0 bytes Contabilidad/RegPrePoliza.aspx | 67 +- Contabilidad/RegPrePoliza.aspx.vb | 774 +++-- Empresas/119/Formatos/Nomina.rdlc | 263 +- Empresas/Grales/Formatos/SobreRecibo.rdlc | 2588 ++++++----------- General/SaldosIniciales.aspx.vb | 1054 +++++-- Nomina/ConceptoNomina.aspx | 62 +- Nomina/ConceptoNomina.aspx.cs | 49 + Nomina/Finiquito.aspx | 261 +- Nomina/Finiquito.aspx.cs | 591 +++- Nomina/Nomina2.aspx | 438 ++- Nomina/Nomina2.aspx.cs | 458 ++- RH/CalculoSBC.aspx.cs | 133 +- RH/CatPersonal.aspx | 4 + RH/CatPersonal.aspx.vb | 362 +++ RH/DiasFestivos.aspx | 79 + RH/DiasFestivos.aspx.cs | 74 + vwd.webinfo | 12 + 32 files changed, 5049 insertions(+), 2638 deletions(-) delete mode 100644 Bin/Microsoft.IdentityModel.JsonWebTokens.dll.refresh delete mode 100644 Bin/Microsoft.IdentityModel.Logging.dll.refresh delete mode 100644 Bin/Microsoft.IdentityModel.Tokens.dll.refresh delete mode 100644 Bin/System.IdentityModel.Tokens.Jwt.dll.refresh delete mode 100644 Bin/System.Net.Http.Formatting.dll.refresh delete mode 100644 Bin/System.Web.Cors.dll.refresh delete mode 100644 Bin/System.Web.Http.Cors.dll.refresh delete mode 100644 Bin/System.Web.Http.WebHost.dll.refresh delete mode 100644 Bin/System.Web.Http.dll.refresh create mode 100644 RH/DiasFestivos.aspx create mode 100644 RH/DiasFestivos.aspx.cs diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index da170c392..6600b448e 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -16,6 +16,9 @@ Public Class CFDITimbre Public Property Nomina As CFDINomina Public Property ComplementoPagos As CFDIComplementoPagos Public Property Complementos As CFDIComplementos + Public Property Timbrado As Boolean + Public Property IStimbreFiniquito As Boolean + Public ReadOnly Property TotalImpuestosRetenidos As Decimal Get Return (From c In Conceptos @@ -128,6 +131,8 @@ Public Class CFDINomina Public Property OtrosPagos As List(Of CFDINominaOtrosPagos) Public Property HorasExtras As List(Of CFDINominaHorasExtras) Public Property CveNomina As Integer + Public Property Antiguedad As Integer + Public Property UltimoSueldoOrdinario As Decimal Public ReadOnly Property TotalPercepciones As Double Get diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index c65001d7d..78496ee91 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -215,6 +215,24 @@ Public Class ClsNominas End Function + Public Function ReportedePercepcionesDeduccionesGet(cveEmpresa As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveTipoPeriodo As Integer) As Boolean + Dim retorno As Boolean = False + DTSet = New DataSet() + DataAdapter("[PA_RH_ReportedePercepcionesDeducciones]", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@TipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo + End With + Try + SqlAdapter.Fill(DTSet) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de Percepciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function ReportedeincidenciasGET(cveEmpresa As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveTipoPeriodo As Integer) As Boolean Dim retorno As Boolean = False DTSet = New DataSet() @@ -834,7 +852,7 @@ Public Class ClsNominas Return Retorno End Function - Public Function UpdateEstatusNomNominas(Estatus As Integer, CvePAC As Integer, FolioFiscal As String, SelloSAT As String, FechaCancelacion As DateTime, CveNomina As Integer, Optional SubTotal As Double = -1, Optional Descuento As Double = -1, Optional ISR As Double = -1, Optional Total As Double = -1, Optional DiasPagados As Double = -1) As Boolean + Public Function UpdateEstatusNomNominas(Estatus As Integer, CvePAC As Integer, FolioFiscal As String, SelloSAT As String, FechaCancelacion As DateTime, CveNomina As Integer, Optional SubTotal As Double = -1, Optional Descuento As Double = -1, Optional ISR As Double = -1, Optional Total As Double = -1, Optional DiasPagados As Double = -1, Optional isFiniquito As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_NominasUpdateEstatus") @@ -852,6 +870,7 @@ Public Class ClsNominas .Add("@Total", SqlDbType.Money).Value = Total .Add("@DiasPagados", SqlDbType.Int).Value = DiasPagados .Add("@CveNomina", SqlDbType.Int).Value = CveNomina + .Add("@isFiniquito", SqlDbType.Bit).Value = isFiniquito End With Try @@ -2164,7 +2183,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, Optional RegimenContratacion As Integer = 1, Optional CvePersonal As Integer = -1) As Boolean + Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, Optional RegimenContratacion As Integer = 1, Optional CvePersonal As Integer = -1, Optional SalarioDiario As Decimal = 0) As Boolean Dim retorno As Boolean = False Try DTSet = New DataSet() @@ -2178,6 +2197,7 @@ Public Class ClsNominas .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@RegimenContratacion", SqlDbType.Int).Value = RegimenContratacion .Add("@CvePersonal", SqlDbType.Decimal).Value = CvePersonal + .Add("@SalarioDiario", SqlDbType.Decimal).Value = SalarioDiario End With diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c8e653938..15411ebe9 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3855,6 +3855,7 @@ Public Class ClsPaginas PaginaDict.Add("/Nomina/CatConceptos2.aspx".ToUpper(), -1) PaginaDict.Add("/Nomina/Aguinaldo.aspx".ToUpper(), -1) PaginaDict.Add("/Nomina/RepInversiondeNomina.aspx".ToUpper(), 906) + PaginaDict.Add("/RH/DiasFestivos.aspx".ToUpper(), -1) PaginaDict.Add("/Nomina/FiniquitoB.aspx".ToUpper(), -1) ''CONFIGURACIONES GENERALES PaginaDict.Add("/Sistemas/SistemaSIG.aspx".ToUpper(), 9999) @@ -7836,7 +7837,7 @@ Public Class ClsPaginas #Region "PDF NOMINA" - Public Function GeneraPDFNomina(CvePersonal As Integer, CvePeriodo As Integer, CveEmpresa As Integer, RutaEmpresa As String) As Byte() + Public Function GeneraPDFNomina(CvePersonal As Integer, CvePeriodo As Integer, CveEmpresa As Integer, RutaEmpresa As String, Optional indemnizacion As Boolean = False) As Byte() Dim ObjNomina As New ClsNominas Dim ObjPersonal As New ClsRH @@ -7856,7 +7857,7 @@ Public Class ClsPaginas Dim DTDeducciones2 As New Data.DataTable Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\" - Dim PathXML As String = $"{Ruta}XML\Nomina\{ObjNomina.SerieFolio}.xml" + Dim PathXML As String = $"{Ruta}XML\Nomina\{ObjNomina.Serie }{If(indemnizacion, "F", "")}-{ObjNomina.Folio}.xml" Dim FechaEmision, FechaCertificacion As DateTime Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT As String FolioFiscal = "" @@ -7936,7 +7937,32 @@ Public Class ClsPaginas 'Datos Empresa RptParametro.Add(New ReportParameter("RegistroPatronal", ObjNomina.RegistroPatronal)) + Dim ajusteindemnizacion As Double = 0 + 'PERCECIONES - DEDUCCIONES + If ObjNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then + Dim filtrop As String = " AND CveSistema NOT IN(10,11,32)" + Dim friltrod As String = " AND CveSistema <>47" + If indemnizacion Then + filtrop = "AND CveSistema IN(10,11,32)" + friltrod = " AND CveSistema =47" + End If + DTPercepciones = ObjNomina.DtResultados.FiltraParametros($"((Tipo = 'P' OR (Tipo = 'D' AND Importe <0)) AND Importe <>0 AND EsPadre = 1 AND SoloVisible =0) {filtrop}") + DTDeducciones = ObjNomina.DtResultados.FiltraParametros($"(Tipo = 'D' AND Importe >0 AND EsPadre = 1 AND SoloVisible =0) {friltrod}") + DTDeducciones2 = ObjNomina.DtResultados.FiltraParametros($"((Tipo = 'D' AND Importe >0 AND EsPadre = 1 AND SoloVisible =0) OR CveSistema IN (20,21)){friltrod}") + ajusteindemnizacion = ObjNomina.DtResultados.FiltraParametros($"((Tipo = 'P' OR (Tipo = 'D' AND Importe <0)) AND Importe <>0 AND EsPadre = 1 AND SoloVisible =0) AND CveSistema IN(10,11,32)").SUM("Importe") - + ObjNomina.DtResultados.FiltraParametros($"(Tipo = 'D' AND Importe >0 AND EsPadre = 1 AND SoloVisible =0) AND CveSistema =47").SUM("Importe") + For Each row As DataRow In DTPercepciones.Rows + If row("Tipo").ToString() = "D" Then + row("Codigo") = row("Codigo").ToString().Replace("D", "OP") + row("Importe") = row("Importe").ToString().ToDecimal() * -1 + End If + Next + + Else + DTPercepciones = Nothing + DTDeducciones = Nothing + End If 'DATOS DEL EMPLEADO If ObjPersonal.GetPersonal(CvePersonal, CveEmpresa) Then @@ -7978,7 +8004,7 @@ Public Class ClsPaginas RptParametro.Add(New ReportParameter("Cantidad", "1")) RptParametro.Add(New ReportParameter("Unidad", "ACT")) RptParametro.Add(New ReportParameter("Descripcion", "PAGO DE NÓMINA")) - RptParametro.Add(New ReportParameter("Total", ObjNomina.Total.ToString())) + RptParametro.Add(New ReportParameter("Total", If(indemnizacion, ajusteindemnizacion, ObjNomina.Total - ajusteindemnizacion).ToString())) Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() cQr = CBB.GenerarCBBBytes(UsuarioActual.Empresa.RFC, ObjPersonal.RFC, ObjNomina.Total.ToString().ToDecimal(), FolioFiscal) @@ -8000,22 +8026,6 @@ Public Class ClsPaginas End If End If - 'PERCECIONES - DEDUCCIONES - If ObjNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then - DTPercepciones = ObjNomina.DtResultados.FiltraParametros("(Tipo = 'P' OR (Tipo = 'D' AND Importe <0)) AND Importe <>0 AND EsPadre = 1 AND SoloVisible =0") - DTDeducciones = ObjNomina.DtResultados.FiltraParametros("Tipo = 'D' AND Importe >0 AND EsPadre = 1 AND SoloVisible =0") - DTDeducciones2 = ObjNomina.DtResultados.FiltraParametros("(Tipo = 'D' AND Importe >0 AND EsPadre = 1 AND SoloVisible =0) OR CveConcepto IN (1471,1491)") - For Each row As DataRow In DTPercepciones.Rows - If row("Tipo").ToString() = "D" Then - row("Codigo") = row("Codigo").ToString().Replace("D", "OP") - row("Importe") = row("Importe").ToString().ToDecimal() * -1 - End If - Next - - Else - DTPercepciones = Nothing - DTDeducciones = Nothing - End If RptParametro.Add(New ReportParameter("PU", DTPercepciones.SUM("Importe").ToString())) RptParametro.Add(New ReportParameter("Importe", DTPercepciones.SUM("Importe").ToString())) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 678bccbbc..196f5f3bf 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -122,9 +122,74 @@ Public Class ClsRH CveConexion = 0 End If - End Sub + End Sub #End Region + +#Region "DiasFestivos" + + Public Function DiasFestivosGet(CveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_DiasFestivosGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener los días festivos", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al Guardar el Tipo de A-I", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + Public Function DiasFestivosAdd(fecha As DateTime, cveEmpresa As Int32, CveUsuario As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_DiasFestivosAdd", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@Fecha", SqlDbType.DateTime).Value = fecha + End With + + Try + SqlAdapter.Fill(Data) + retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert($"Ya existe un día festivo con fecha '{fecha:dd/MM/yyyy}'.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar el día festivo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar el Tipo de A-I", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + Public Function DiasFestivosRemove(fecha As DateTime, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_DiasFestivosRemove", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@Fecha", SqlDbType.DateTime).Value = fecha + End With + + Try + SqlAdapter.Fill(Data) + retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al eliminar el día festivo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al eliminar el día festivo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function +#End Region + #Region "ClsRHAsistenciasInasistencias" Public Function GetAsistenciasInasistencias() As Boolean Dim Retorno As Boolean = False @@ -2145,7 +2210,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean) As Boolean + Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalAltasUp") @@ -2156,6 +2221,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CvePeriodoFiniquito", SqlDbType.Int).Value = CvePeriodoFiniquito .Add("@CveMotivoBaja", SqlDbType.Int).Value = CveMotivoBaja .Add("@esLiquidacion", SqlDbType.Int).Value = If(esLiquidacion, 1, 0) + .Add("@ValIndemnizacion", SqlDbType.Bit).Value = If(ValIndemnizacion, 1, 0) + .Add("@ValSeparacionunica", SqlDbType.Bit).Value = If(ValSeparacionunica, 1, 0) + .Add("@ValPrimadeantiguedad", SqlDbType.Bit).Value = If(ValPrimadeantiguedad, 1, 0) End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index ae2fbadef..6ac889921 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -20,20 +20,53 @@ Public Class LogicNominas sw.Start() End If - Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual) 'CvePersonal, CvePeriodo, + Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False) 'CvePersonal, CvePeriodo, If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then - Dim ObjTimbrado As New Timbrado - Dim ObjFactura As New Modelos.Factura - ObjFactura.TipoDocto = "Nomina" - ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero() - ObjFactura.Serie = cfdi.Comprobante.Serie - ObjFactura.Timbre = cfdi - If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then - Retorno = ObjTimbrado.MensajeErrorCFDI + If Not cfdi.Timbrado Then + Dim ObjTimbrado As New Timbrado + Dim ObjFactura As New Modelos.Factura + ObjFactura.TipoDocto = "Nomina" + ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero() + ObjFactura.Serie = cfdi.Comprobante.Serie + ObjFactura.Timbre = cfdi + If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then + Retorno = ObjTimbrado.MensajeErrorCFDI + End If End If If Retorno <> "" Then Retorno = $"{Retorno} - {cfdi.Receptor.Nombre}" Else + If hasfiniquito Then + + cfdi = PreTimbrar(CveNomina, UsuarioActual, True) 'CvePersonal, CvePeriodo, + If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then + + If Not cfdi.Timbrado Then + Dim ObjTimbrado As New Timbrado + Dim ObjFactura As New Modelos.Factura + ObjFactura.TipoDocto = "Nomina" + ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero() + ObjFactura.Serie = cfdi.Comprobante.Serie + ObjFactura.Timbre = cfdi + If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then + Retorno = ObjTimbrado.MensajeErrorCFDI + End If + If Retorno <> "" Then + Retorno = $"{Retorno} - {cfdi.Receptor.Nombre}" + Else + + End If + + End If + Else + If cfdi Is Nothing Then + Retorno = $"No se pudo generar el pretimbre(GetError):
    {GetError}" + Else + Retorno = $"No se pudo generar el pretimbre:
    {cfdi.Mensaje}" + End If + End If + + End If End If Else If cfdi Is Nothing Then @@ -48,10 +81,10 @@ Public Class LogicNominas End If Return Retorno End Function - - Private Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario) As CFDITimbre + Dim hasfiniquito As Boolean + Private Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario, TimbreIndemnizacion As Boolean) As CFDITimbre Dim continuar As Boolean = True - + hasfiniquito = False Dim CvePersonal As Integer = -1 Dim CvePeriodo As Integer = -1 Dim DtPercepciones As Data.DataTable = Nothing @@ -107,13 +140,26 @@ Public Class LogicNominas Dim ObjIncapacidades As New List(Of CFDINominaIncapacidades) 'Conexiones a la Base de Datos + Dim cfdi As New CFDITimbre + cfdi.Nomina = New CFDINomina Using objNomina As ClsNominas = New ClsNominas() Using objPersonal As ClsRH = New ClsRH() If objNomina.GetNom_Nominas(CveNomina, -1, -1, -1, UsuarioActual.CveEmpresa) AndAlso objNomina.DtResultados.Rows.Count > 0 Then - CvePersonal = objNomina.DtResultados.Rows(0)("CvePersonal").ToString().ToEntero() - CvePeriodo = objNomina.DtResultados.Rows(0)("CvePeriodo").ToString().ToEntero() + Dim drow As DataRow = objNomina.DtResultados.Rows(0) + CvePersonal = drow("CvePersonal").ToString().ToEntero() + CvePeriodo = drow("CvePeriodo").ToString().ToEntero() + cfdi.Nomina.Antiguedad = drow("Antiguedad").ToString().ToEntero() + cfdi.Nomina.UltimoSueldoOrdinario = drow("UltimoSueldoOrdinario").ToString().ToDecimal() Serie = objNomina.Serie Folio = objNomina.Folio.ToString() + If TimbreIndemnizacion Then + cfdi.Timbrado = drow("SeTimbroFiniquitoVal").ToString().ToEntero() = 1 + cfdi.IStimbreFiniquito = True + Serie = $"{objNomina.Serie}F" + Else + cfdi.Timbrado = drow("SeTimbroVal").ToString().ToEntero() = 1 + cfdi.IStimbreFiniquito = False + End If Else If continuar Then GetError = "No se pudo obtener la información de la nomina" 'si continuar= true el error se origino en este nodo y se le asigno el error continuar = False @@ -148,18 +194,27 @@ Public Class LogicNominas End If If continuar AndAlso objNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then If objNomina.DtResultados.Rows.Count > 0 Then - Dim filtropercepciones As String = "Tipo = 'P' AND EsPadre = 1 AND SoloVisible =0" + Dim filtropercepciones As String = "Tipo = 'P' AND EsPadre = 1 AND SoloVisible =0 AND SATCveConcepto NOT IN ('022', '023','025')" + If TimbreIndemnizacion Then + filtropercepciones = " Tipo = 'P' AND SATCveConcepto IN ('022', '023','025')" + End If DtPercepciones = objNomina.DtResultados.FiltraParametros(filtropercepciones) - Dim filtrodeduc As String = "Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0 AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL)" + Dim filtrodeduc As String = "Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0 AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) AND CveSistema <> 47" + If TimbreIndemnizacion Then + filtrodeduc = " Tipo = 'D' AND CveSistema =47" + End If DtDeducciones = objNomina.DtResultados.FiltraParametros(filtrodeduc) - DtOtrosPagos = objNomina.DtResultados.FiltraParametros(" TipoConceptoSAT='O'") + If Not TimbreIndemnizacion Then + DtOtrosPagos = objNomina.DtResultados.FiltraParametros(" TipoConceptoSAT='O'") + + End If Dim disrcomp As DataRow = DtOtrosPagos.FiltroPrimero("Codigo ='D999'") For Each drow As DataRow In DtDeducciones.Rows If drow("Codigo").ToString() = "D038" Then End If Next - + hasfiniquito = objNomina.DtResultados.COUNT("SATCveConcepto", "(Tipo = 'P' AND SATCveConcepto IN ('022', '023','025')) OR (Tipo = 'D' AND SATCveConcepto = '101')") > 0 TotalPercepciones = DtPercepciones.SUM("Importe").ToString().ToDecimal() @@ -170,53 +225,70 @@ Public Class LogicNominas If continuar Then GetError = "No se pudo obtener el detalle de la nomina" 'si continuar= true el error se origino en este nodo y le asigno el error continuar = False End If - If continuar AndAlso objNomina.GetHorasExtras(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then - DtHorasExtras = objNomina.DtResultados + If Not TimbreIndemnizacion Then + If continuar AndAlso objNomina.GetHorasExtras(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then + DtHorasExtras = objNomina.DtResultados + Else + continuar = False + End If Else - continuar = False + DtHorasExtras = New DataTable() End If If continuar AndAlso objNomina.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodo) AndAlso objNomina.DtResultados.Rows().Count > 0 Then Dim DrPeriodo As DataRow = objNomina.DtResultados.Rows(0) - FechaInicio = DrPeriodo("FechaInicio").ToString().ToDate - FechaFin = DrPeriodo("FechaFin").ToString().ToDate - FechaPago = DrPeriodo("FechaPago").ToString().ToDate - TipoNomina = If(objNomina.CveTipoPeriodo = 6, "E", "O") + FechaFin = DrPeriodo("FechaFin").ToString().ToDate() + FechaPago = DrPeriodo("FechaPago").ToString().ToDate() + + If Not TimbreIndemnizacion Then + FechaInicio = DrPeriodo("FechaInicio").ToString().ToDate() + TipoNomina = If(objNomina.CveTipoPeriodo = 6, "E", "O") + Else + FechaInicio = FechaFin + TipoNomina = "E" + End If Else If continuar Then GetError = "No se pudo obtener la información del periodo" 'si continuar= true el error se origino en este nodo y le asigno el error continuar = False End If - If continuar AndAlso objPersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then + If Not TimbreIndemnizacion Then + If continuar AndAlso objPersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then - Dim Asistencias As Integer = objPersonal.DtResultados.SUM("AplicaAsistencia").ToEntero() - 'If Asistencias > 15 Then - ' Asistencias = 15 - 'End If - Dim Vacaciones As Integer = objPersonal.DtResultados.SUM("AplicaVacacion").ToEntero() - DiasIncapacitados = objPersonal.DtResultados.SUM("AplicaIncapacidad").ToEntero() - DiasPagados = Asistencias - Vacaciones - If DiasPagados < 0 Then DiasPagados = 0 - Else - continuar = False - End If - If DiasIncapacitados > 0 Then - If objNomina.GetIncapacidades(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then - If objNomina.DtResultados IsNot Nothing AndAlso objNomina.DtResultados.Rows.Count > 0 Then - For Each dr As DataRow In objNomina.DtResultados.Rows - ObjIncapacidades.Add(New CFDINominaIncapacidades With {.DiasIncapacidad = dr("Dias").ToString().ToEntero().ToString(), .TipoIncapacidad = dr("ClaveTipoIncapacidad").ToString(), .Importe = dr("Descuento").ToString().ToDecimal}) - Next - End If + + Dim Asistencias As Integer = objPersonal.DtResultados.SUM("AplicaAsistencia").ToEntero() + 'If Asistencias > 15 Then + ' Asistencias = 15 + 'End If + Dim Vacaciones As Integer = objPersonal.DtResultados.SUM("AplicaVacacion").ToEntero() + DiasIncapacitados = objPersonal.DtResultados.SUM("AplicaIncapacidad").ToEntero() + DiasPagados = Asistencias - Vacaciones + If DiasPagados < 0 Then DiasPagados = 0 Else - If continuar Then GetError = "No se pudo obtener las incapacidades del periodo" 'si continuar= true el error se origino en este nodo y le asigno el error continuar = False End If + Else + DiasPagados = 1 + DiasIncapacitados = 0 + End If + If continuar AndAlso DiasIncapacitados > 0 Then + If Not TimbreIndemnizacion Then + + If objNomina.GetIncapacidades(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then + If objNomina.DtResultados IsNot Nothing AndAlso objNomina.DtResultados.Rows.Count > 0 Then + For Each dr As DataRow In objNomina.DtResultados.Rows + ObjIncapacidades.Add(New CFDINominaIncapacidades With {.DiasIncapacidad = dr("Dias").ToString().ToEntero().ToString(), .TipoIncapacidad = dr("ClaveTipoIncapacidad").ToString(), .Importe = dr("Descuento").ToString().ToDecimal}) + Next + End If + Else + If continuar Then GetError = "No se pudo obtener las incapacidades del periodo" 'si continuar= true el error se origino en este nodo y le asigno el error + continuar = False + End If + End If End If End Using End Using - 'Lnado del CFDITimbre - Dim cfdi As New CFDITimbre - cfdi.Nomina = New CFDINomina + 'Lnado del CFDITimbre cfdi.Nomina.Version = "1.2" cfdi.Nomina.TipoNomina = TipoNomina cfdi.Nomina.FechaPago = FechaPago @@ -326,7 +398,7 @@ Public Class LogicNominas Next End If - If CveRegimenContratacion.ToEntero() = 2 AndAlso ((ObjOtrosPagos.FirstOrDefault(Function(m) m.TipoOtroPago.ToEntero().Contiene(2, 7, 8))) Is Nothing) Then + If Not TimbreIndemnizacion AndAlso CveRegimenContratacion.ToEntero() = 2 AndAlso ((ObjOtrosPagos.FirstOrDefault(Function(m) m.TipoOtroPago.ToEntero().Contiene(2, 7, 8))) Is Nothing) Then ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser referente a subsidio al empleo .Clave = "D051", .Concepto = "Subs al Empleo acreditado", .Importe = 0D, .Subsidiocausado = 0D}) @@ -361,9 +433,9 @@ Public Class LogicNominas cfdi.Nomina.Receptor.NSS = NumeroSS cfdi.Nomina.Receptor.FechaInicioContrato = FechaInicioContrato cfdi.Nomina.Receptor.Antiguedad = $"P{AntiguedadSemanas}W" - cfdi.Nomina.Receptor.TipoContrato = CodigoTipoContrato + cfdi.Nomina.Receptor.TipoContrato = If(TimbreIndemnizacion, "99", CodigoTipoContrato) cfdi.Nomina.Receptor.CodigoTipoJornada = ClaveTipoJornada - cfdi.Nomina.Receptor.CodigoRegimenContratacion = CveRegimenContratacion + cfdi.Nomina.Receptor.CodigoRegimenContratacion = If(TimbreIndemnizacion, "13", CveRegimenContratacion) cfdi.Nomina.Receptor.CodigoEmpleado = Codigo cfdi.Nomina.Receptor.Departamento = Departamento cfdi.Nomina.Receptor.Puesto = Puesto diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index b7d9bbabb..6dba27799 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2021,57 +2021,66 @@ Public Class Timbrado End If #End Region If ObjCFDITimbre.Nomina IsNot Nothing Then - + 'If cfdi.Nomina12SeparacionIndemnizacion Then If ObjCFDITimbre.Nomina.Percepciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Percepciones.Count > 0 Then - cfdi.Nomina12Percepciones(ObjCFDITimbre.Nomina.TotalSueldos, ObjCFDITimbre.Nomina.TotalIndemnizacion, ObjCFDITimbre.Nomina.TotalJubilacion, ObjCFDITimbre.Nomina.TotalPercepcionesGravado, ObjCFDITimbre.Nomina.TotalPercepcionesExento) - For Each percep As CFDINominaPercepciones In ObjCFDITimbre.Nomina.Percepciones - cfdi.Nomina12Percepcion(percep.TipoPercepcion, percep.Clave, percep.Concepto, Math.Round(percep.ImporteGravado, 2), Math.Round(percep.ImporteExento, 2)) - If percep.TipoPercepcion.ToEntero() = 19 Then + cfdi.Nomina12Percepciones(ObjCFDITimbre.Nomina.TotalSueldos, ObjCFDITimbre.Nomina.TotalIndemnizacion, ObjCFDITimbre.Nomina.TotalJubilacion, ObjCFDITimbre.Nomina.TotalPercepcionesGravado, ObjCFDITimbre.Nomina.TotalPercepcionesExento) + For Each percep As CFDINominaPercepciones In ObjCFDITimbre.Nomina.Percepciones + cfdi.Nomina12Percepcion(percep.TipoPercepcion, percep.Clave, percep.Concepto, Math.Round(percep.ImporteGravado, 2), Math.Round(percep.ImporteExento, 2)) + If percep.TipoPercepcion.ToEntero() = 19 Then - If ObjCFDITimbre.Nomina.HorasExtras IsNot Nothing AndAlso ObjCFDITimbre.Nomina.HorasExtras.Count > 0 Then - For Each HoraExtra As CFDINominaHorasExtras In ObjCFDITimbre.Nomina.HorasExtras - cfdi.Nomina12HorasExtra(HoraExtra.Dias.ToEntero, HoraExtra.TipoHoras, HoraExtra.HorasExtra, HoraExtra.ImportePagado) - Next - End If - End If - Next - End If - - 'deducciones al final - If ObjCFDITimbre.Nomina.Deducciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Deducciones.Count > 0 Then - cfdi.Nomina12Deducciones(ObjCFDITimbre.Nomina.TotalDeduccionesOtras, Math.Round(ObjCFDITimbre.Nomina.TotalDeduccionesImpuestosRetenidos, 2)) - For Each deduc As CFDINominaDeducciones In ObjCFDITimbre.Nomina.Deducciones - cfdi.Nomina12Deduccion(deduc.TipoDeduccion, deduc.Clave, deduc.Concepto, Math.Round(deduc.Importe, 2)) - Next - End If - If ObjCFDITimbre.Nomina.OtrosPagos IsNot Nothing Then - ' cfdi.agregarNominaOtrosPagosOtroPago12("002", "002", "Subsidio", "10.00"); - ' cfdi.agregarNominaOtrosPagosOtroPagoSubsidioAlEmpleo12("10.00"); - If ObjCFDITimbre.Nomina.OtrosPagos IsNot Nothing AndAlso ObjCFDITimbre.Nomina.OtrosPagos.Count > 0 Then - For Each otpag As CFDINominaOtrosPagos In ObjCFDITimbre.Nomina.OtrosPagos - cfdi.Nomina12OtroPago(otpag.TipoOtroPago, otpag.Clave, otpag.Concepto, otpag.Importe) - If otpag.TipoOtroPago = "002" Then - cfdi.Nomina12SubsidioAlEmpleo(otpag.Subsidiocausado) - End If - - If otpag.TipoOtroPago = "004" AndAlso otpag.Importe > 0 Then - If otpag.ejercicio > 0 Then - cfdi.CompensacionSaldosAFavor(otpag.SaldoAFavor, otpag.ejercicio, otpag.RemanenteSalFav) 'otpag.SaldoAFavor + If ObjCFDITimbre.Nomina.HorasExtras IsNot Nothing AndAlso ObjCFDITimbre.Nomina.HorasExtras.Count > 0 Then + For Each HoraExtra As CFDINominaHorasExtras In ObjCFDITimbre.Nomina.HorasExtras + cfdi.Nomina12HorasExtra(HoraExtra.Dias.ToEntero, HoraExtra.TipoHoras, HoraExtra.HorasExtra, HoraExtra.ImportePagado) + Next End If End If + Next + End If + If ObjCFDITimbre.IStimbreFiniquito Then + 'ObjCFDITimbre.Nomina. + Dim UltimoSueldoOrdinario As Double = ObjCFDITimbre.Nomina.UltimoSueldoOrdinario.ToString().ToDouble() + Dim TotalIndemnizacion As Double = ObjCFDITimbre.Nomina.TotalIndemnizacion + Dim t1 As Double = If(UltimoSueldoOrdinario < TotalIndemnizacion, UltimoSueldoOrdinario, TotalIndemnizacion) + Dim t2 As Double = If(UltimoSueldoOrdinario < TotalIndemnizacion, TotalIndemnizacion, UltimoSueldoOrdinario) + cfdi.Nomina12SeparacionIndemnizacion(TotalIndemnizacion, ObjCFDITimbre.Nomina.Antiguedad, UltimoSueldoOrdinario, t1, t2 - t1) + + End If + 'deducciones al final + If ObjCFDITimbre.Nomina.Deducciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Deducciones.Count > 0 Then + cfdi.Nomina12Deducciones(ObjCFDITimbre.Nomina.TotalDeduccionesOtras, Math.Round(ObjCFDITimbre.Nomina.TotalDeduccionesImpuestosRetenidos, 2)) + For Each deduc As CFDINominaDeducciones In ObjCFDITimbre.Nomina.Deducciones + cfdi.Nomina12Deduccion(deduc.TipoDeduccion, deduc.Clave, deduc.Concepto, Math.Round(deduc.Importe, 2)) + Next + End If + If ObjCFDITimbre.Nomina.OtrosPagos IsNot Nothing Then + ' cfdi.agregarNominaOtrosPagosOtroPago12("002", "002", "Subsidio", "10.00"); + ' cfdi.agregarNominaOtrosPagosOtroPagoSubsidioAlEmpleo12("10.00"); + If ObjCFDITimbre.Nomina.OtrosPagos IsNot Nothing AndAlso ObjCFDITimbre.Nomina.OtrosPagos.Count > 0 Then + For Each otpag As CFDINominaOtrosPagos In ObjCFDITimbre.Nomina.OtrosPagos + cfdi.Nomina12OtroPago(otpag.TipoOtroPago, otpag.Clave, otpag.Concepto, otpag.Importe) + If otpag.TipoOtroPago = "002" Then + cfdi.Nomina12SubsidioAlEmpleo(otpag.Subsidiocausado) + End If + + If otpag.TipoOtroPago = "004" AndAlso otpag.Importe > 0 Then + If otpag.ejercicio > 0 Then + cfdi.CompensacionSaldosAFavor(otpag.SaldoAFavor, otpag.ejercicio, otpag.RemanenteSalFav) 'otpag.SaldoAFavor + End If + End If + + Next + End If + End If + If ObjCFDITimbre.Nomina.Incapacidades IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Incapacidades.Count > 0 Then + For Each Incap As CFDINominaIncapacidades In ObjCFDITimbre.Nomina.Incapacidades + cfdi.Nomina12Incapacidad(Incap.DiasIncapacidad.ToEntero, Incap.TipoIncapacidad, Incap.Importe) Next End If End If - If ObjCFDITimbre.Nomina.Incapacidades IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Incapacidades.Count > 0 Then - For Each Incap As CFDINominaIncapacidades In ObjCFDITimbre.Nomina.Incapacidades - cfdi.Nomina12Incapacidad(Incap.DiasIncapacidad.ToEntero, Incap.TipoIncapacidad, Incap.Importe) - Next - End If - End If #End Region - sw.Stop() + sw.Stop() swTiempo.AppendFormat("Armado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) swmili = sw.ElapsedMilliseconds sw.Start() @@ -2150,7 +2159,7 @@ Public Class Timbrado 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 + If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, FolioFiscal, "", ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then Retorno = "" Else Retorno = "Error" diff --git a/Bin/Microsoft.IdentityModel.JsonWebTokens.dll.refresh b/Bin/Microsoft.IdentityModel.JsonWebTokens.dll.refresh deleted file mode 100644 index e8ab0af2cffaa5befd2a0f756f448fd645fd4ac6..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 302 zcmb`DK?=e!5JmrqiUk#M+m(Vl#Z5pojT#!-V%mk5S6}7~GR!3W|7IrS`)Rb5(@9xD zFRD|ct7f%|O2mMYsWYyJahyRTN@0ud;gg=GOuA^J70!t2)lnbtg*`CQ(_K0T-8HGw wjy*v=_ej2B22&E=-nd?8h?|Z$ov|5jP1Z!Eg}ov|IOYVVEOF~U?`!QZek|BJrvLx| diff --git a/Bin/Microsoft.IdentityModel.Logging.dll.refresh b/Bin/Microsoft.IdentityModel.Logging.dll.refresh deleted file mode 100644 index 62ecc0c56..000000000 --- a/Bin/Microsoft.IdentityModel.Logging.dll.refresh +++ /dev/null @@ -1 +0,0 @@ -C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.IdentityModel.Logging.6.11.0\lib\net461\Microsoft.IdentityModel.Logging.dll \ No newline at end of file diff --git a/Bin/Microsoft.IdentityModel.Tokens.dll.refresh b/Bin/Microsoft.IdentityModel.Tokens.dll.refresh deleted file mode 100644 index fd11383f497897599331063991329dc016d77b13..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 274 zcmbu4%?g4*6h_YzNkT=mb=9I>?S!b&N)(mUMK52SnOBJ6{>*p2JD2%>3igzonW%Z0 zOA4+mR5Wy+L1i*8(x9ib){H9A8+p**@l49hg&iBos2XU^5B<@5^u^$GoE*3_lW}lQ oO>f^AZ#_d&I@!s-O?2|MHF8hJD(!8!S$p}+TAKg8p-TV#0q?^#Hvj+t diff --git a/Bin/System.IdentityModel.Tokens.Jwt.dll.refresh b/Bin/System.IdentityModel.Tokens.Jwt.dll.refresh deleted file mode 100644 index c2fd62bfdccac6c7797734df97a62120488ab772..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 278 zcmb`A!3u&v6h+S$NkT=mbyd)++6hr6B~B)(gg;-M@f%`z_szTa%)IX>V@=MHj*^#} zlW}I?N=5KIbvku0Eo5?gNvjjtm>2Sa`{eYTSg|l^bqi|sCLh^7qrG=}kg#z>N#k5u qBRk(mCzu_)*HhX#ZFx&1EUlE;q;Ye_#a|n_p1EoIhaFe{4g3JGA~l-; diff --git a/Bin/System.Net.Http.Formatting.dll.refresh b/Bin/System.Net.Http.Formatting.dll.refresh deleted file mode 100644 index 1b363176e762e4b4d9435293c86315b29572fad2..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 262 zcmXwz!3x4K5JcyTdJrq(O$y>gFCtz7Qqx$Au?=l{@aNT+fRyZ}Z)SJ${Z!h>=&VUj zBh{!-wIa9C(rO^Ua*xP7ACDfD@50`RQ(KCj# XZ2F9^=KSWDVzeT&BkMmY!|(M0E`&B> diff --git a/Bin/System.Web.Http.WebHost.dll.refresh b/Bin/System.Web.Http.WebHost.dll.refresh deleted file mode 100644 index 4f2702c6a..000000000 --- a/Bin/System.Web.Http.WebHost.dll.refresh +++ /dev/null @@ -1 +0,0 @@ -C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.AspNet.WebApi.WebHost.5.2.4\lib\net45\System.Web.Http.WebHost.dll \ No newline at end of file diff --git a/Bin/System.Web.Http.dll.refresh b/Bin/System.Web.Http.dll.refresh deleted file mode 100644 index 8f16a752afc51b6d066ce332da4d894a0580a002..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 236 zcmX|+u@1s83`FmXJRm@b4Rv9G1)(mH5QG91g+??T_<7(t1BzlN=jU_s{Zv{iXs - - +
  • - Cargar Excel + Cargar Excel
  • Crear Complemento de Pago
    • -     -     +
  • + Paquete Egresos +
    • +
  • + Cargar Comprobante +
    • + + +     @@ -136,7 +142,7 @@
    - +
    @@ -151,7 +157,7 @@
    - +
    @@ -401,7 +407,7 @@
    - + Movimiento @@ -613,7 +619,7 @@
    - +
    @@ -783,7 +789,50 @@
    + diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index c5225c895..259ae97cc 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -5,6 +5,9 @@ Imports Extensiones Imports System.Linq Imports System.Web.Services Imports GemBox.Spreadsheet +Imports System.IO +Imports iTextSharp.text.pdf +Imports Microsoft.Reporting.WebForms Partial Class ContabilidadC_RegPrePoliza Inherits ClsPaginas @@ -53,14 +56,14 @@ Partial Class ContabilidadC_RegPrePoliza End Property Private ReadOnly Property CvePrePoliza As Integer Get - Return ViewState("CvePrePoliza").ToString.ToEntero + Return ViewState("CvePrePoliza").ToString().ToEntero() End Get End Property 'PARA CREAR IE Private Property CveConcepto As Integer Get - Return ViewState("CveConcepto").ToString.ToEntero + Return ViewState("CveConcepto").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveConcepto") = value @@ -68,7 +71,7 @@ Partial Class ContabilidadC_RegPrePoliza End Property Private Property CveTipoTransaccion As Integer Get - Return ViewState("CveTipoTransaccion").ToString.ToEntero + Return ViewState("CveTipoTransaccion").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveTipoTransaccion") = value @@ -76,7 +79,7 @@ Partial Class ContabilidadC_RegPrePoliza End Property Private Property CveCuenta As Integer Get - Return ViewState("CveCuenta").ToString.ToEntero + Return ViewState("CveCuenta").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveCuenta") = value @@ -84,7 +87,7 @@ Partial Class ContabilidadC_RegPrePoliza End Property Private Property Folio As String Get - Return ViewState("Folio").ToString + Return ViewState("Folio").ToString() End Get Set(value As String) ViewState("Folio") = value @@ -92,7 +95,7 @@ Partial Class ContabilidadC_RegPrePoliza End Property Private Property ImporteDocumento As Decimal Get - Return ViewState("ImporteDocumento").ToString.ToDecimal + Return ViewState("ImporteDocumento").ToString().ToDecimal() End Get Set(value As Decimal) ViewState("ImporteDocumento") = value @@ -100,7 +103,7 @@ Partial Class ContabilidadC_RegPrePoliza End Property Private Property Observaciones As String Get - Return ViewState("Observaciones").ToString + Return ViewState("Observaciones").ToString() End Get Set(value As String) ViewState("Observaciones") = value @@ -108,7 +111,7 @@ Partial Class ContabilidadC_RegPrePoliza End Property Private Property Beneficiario As String Get - Return ViewState("Beneficiario").ToString + Return ViewState("Beneficiario").ToString() End Get Set(value As String) ViewState("Beneficiario") = value @@ -116,7 +119,7 @@ Partial Class ContabilidadC_RegPrePoliza End Property Private Property RowIndex As Integer Get - Return ViewState("RowIndex").ToString.ToEntero + Return ViewState("RowIndex").ToString().ToEntero() End Get Set(value As Integer) ViewState("RowIndex") = value @@ -124,7 +127,7 @@ Partial Class ContabilidadC_RegPrePoliza End Property Private Property Actualizar As Boolean Get - Return CBool(ViewState("Actualizar").ToString) + Return CBool(ViewState("Actualizar").ToString()) End Get Set(value As Boolean) ViewState("Actualizar") = value @@ -167,12 +170,39 @@ Partial Class ContabilidadC_RegPrePoliza ViewState("IdPoliza") = value End Set End Property + + Public Property Tick As String + Get + Return CType(ViewState("Tick"), String) + End Get + Set(value As String) + ViewState("Tick") = value + End Set + End Property + + Public Property CveIE As Integer + Get + Return CType(ViewState("CveIE"), Integer) + End Get + Set(value As Integer) + ViewState("CveIE") = value + End Set + End Property + + Public Property TipoPoliza As String + Get + Return CType(ViewState("TipoPoliza"), String) + End Get + Set(value As String) + ViewState("TipoPoliza") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then - + Tick = DateTime.Now.Ticks.ToString() If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS")) @@ -205,24 +235,24 @@ Partial Class ContabilidadC_RegPrePoliza End If - If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then + If IfNull(Request("Tipo"), "").ToString() = "NOMPROV" Then DivTipoGasto.Visible = True ThTipoGasto.Visible = True CargaTiposGasto() End If - If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then - ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero + If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero() > 0 Then + ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero() CreaDT() CargaPrePoliza() CargaGvBitacora() - If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then + If IfNull(Request("Tipo"), "").ToString() <> "NOMPROV" Then GvPrePoliza.Columns(4).Visible = False GvConcepto.Columns(4).Visible = False GvMov.Columns(5).Visible = False End If - If IfNull(Request("Conta"), "").ToString = "1" Then + If IfNull(Request("Conta"), "").ToString() = "1" Then Contabilizar() End If Exit Sub @@ -241,7 +271,7 @@ Partial Class ContabilidadC_RegPrePoliza TipoPlantilla = 0 - If IfNull(Request("Tipo"), "").ToString = "Ing" Then + If IfNull(Request("Tipo"), "").ToString() = "Ing" Then TipoPlantilla = 1 LblEncabezado.Text = "Otros Ingresos" End If @@ -259,14 +289,14 @@ Partial Class ContabilidadC_RegPrePoliza 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.Items.Add(New ListItem("Pago Nomina", "61")) + 'DdlPlantilla.SelectedValue = "61" DdlPlantilla.Enabled = False DivAgregarConceptos.Visible = False @@ -277,7 +307,7 @@ Partial Class ContabilidadC_RegPrePoliza RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3) End If - If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then + If IfNull(Request("Tipo"), "").ToString() <> "NOMPROV" Then GvPrePoliza.Columns(3).Visible = False GvConcepto.Columns(3).Visible = False GvMov.Columns(4).Visible = False @@ -331,7 +361,7 @@ Partial Class ContabilidadC_RegPrePoliza End Sub Private Sub CargaNomina() - Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero + Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero() Dim ObjNomina As New ClsNominas Dim ObjConta As New ClsContabilidad @@ -353,18 +383,18 @@ Partial Class ContabilidadC_RegPrePoliza 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 + If drt("NombreCompleto").ToString() = "" AndAlso ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa) Then CveConcepto = 98 Cuenta = "Nominas por Pagar" - IdCuenta = ObjConta.DtResultados(0)("IdCtaContable").ToString.ToEntero + 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 + CveConcepto = drt("CveConceptoContable").ToString().ToEntero() + Cuenta = drt("ConceptoContable").ToString() + IdCuenta = drt("IdCtaContable").ToString().ToEntero() End If Dim drr As DataRow = DtCuentasContables.FiltroPrimero($"Id={IdCuenta}") @@ -374,11 +404,11 @@ Partial Class ContabilidadC_RegPrePoliza TipoMovto = drt("TipoMovto") If TipoMovto = 0 Then - dr("Cargo") = Math.Abs(drt("Importe").ToString.ToDecimal) + dr("Cargo") = Math.Abs(drt("Importe").ToString().ToDecimal()) dr("Abono") = 0 Else dr("Cargo") = 0 - dr("Abono") = Math.Abs(drt("Importe").ToString.ToDecimal) + dr("Abono") = Math.Abs(drt("Importe").ToString().ToDecimal()) End If dr("IdCuenta") = IdCuenta @@ -418,6 +448,9 @@ Partial Class ContabilidadC_RegPrePoliza TxtFechaDocumento.Text = dr("Fecha") TxtConcepto.Text = dr("Concepto") DivDatosPoliza.Visible = True + TipoPoliza = DdlTipoPoliza.SelectedItem.Text + Folio = dr("FolioPoliza").ToString() + If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then DivAgregarConceptos.Visible = True @@ -436,8 +469,8 @@ Partial Class ContabilidadC_RegPrePoliza LnkComplementoPago.Visible = True End If - IdPoliza = dr("IdPoliza").ToString.ToEntero - If dr("IdPoliza").ToString.ToEntero > 0 Then + IdPoliza = dr("IdPoliza").ToString().ToEntero() + If dr("IdPoliza").ToString().ToEntero() > 0 Then HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza")) divContabilziada.Visible = True BtnEliminar.Visible = False @@ -459,7 +492,7 @@ Partial Class ContabilidadC_RegPrePoliza RegistraScript("comparar();") - If Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero = 1 AndAlso UsuarioActual.CveUsuario <> 100 Then + If Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero() = 1 AndAlso UsuarioActual.CveUsuario <> 100 Then For Each row As GridViewRow In GvPrePoliza.Rows row.FCTextBox("TxtCargo").Enabled = False row.FCTextBox("TxtAbono").Enabled = False @@ -485,25 +518,25 @@ Partial Class ContabilidadC_RegPrePoliza 'Asignamos los Subproyectos e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlSubProyecto").DataBind() - e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1")) + 'e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1")) e.Row.FCDropDownList("DdlSubProyecto").SelectedValueExist(e.Row.DataKey("CveSubProyecto")) 'Asignamos los Tipos de Gasto e.Row.FCDropDownList("DdlTipoGasto").DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlTipoGasto").DataBind() - e.Row.FCDropDownList("DdlTipoGasto").Items.Insert(0, New ListItem("Sin Asignar", "-1")) + 'e.Row.FCDropDownList("DdlTipoGasto").Items.Insert(0, New ListItem("Sin Asignar", "-1")) e.Row.FCDropDownList("DdlTipoGasto").SelectedValueExist(e.Row.DataKey("CveTipoGasto")) 'ASignamos las CuentasContables e.Row.FCDropDownList("DdlCtaContable").DataSource = Session("DtCuentas") e.Row.FCDropDownList("DdlCtaContable").DataBind() - e.Row.FCDropDownList("DdlCtaContable").Items.Insert(0, New ListItem("Sin Asignar", "0")) + 'e.Row.FCDropDownList("DdlCtaContable").Items.Insert(0, New ListItem("Sin Asignar", "0")) e.Row.FCDropDownList("DdlCtaContable").SelectedValueExist(e.Row.DataKey("IdCtaContable")) - TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + e.Row.FCTextBox("TxtCargo").Text.ToDouble).ToString.FormatoNumero - TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + e.Row.FCTextBox("TxtAbono").Text.ToDouble).ToString.FormatoNumero + TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + e.Row.FCTextBox("TxtCargo").Text.ToDouble).ToString().FormatoNumero + TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + e.Row.FCTextBox("TxtAbono").Text.ToDouble).ToString().FormatoNumero - Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero + Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero() If CveConceptoContable.Contiene(1, 2, 12, 13, 38, 207, 203, 39, 61, 62, 63, 150, 251, 226) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta")) If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra")) @@ -511,6 +544,11 @@ Partial Class ContabilidadC_RegPrePoliza If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen")) If CveConceptoContable.Contiene(30, 204) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")) + If CveConceptoContable.Contiene(30) Then + LnkImprimirPDF.Visible = True + LnkComprobante.Visible = True + CveIE = e.Row.DBCampo("CveIE").ToString().ToEntero() + End If 'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable @@ -553,7 +591,7 @@ Partial Class ContabilidadC_RegPrePoliza End Sub Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 205, 206, 14, 15, 16, 19, 25, 26, 21, 18, 60) Then + If DdlConceptosContables.SelectedValue.ToEntero().Contiene(5, 17, 201, 205, 206, 14, 15, 16, 19, 25, 26, 21, 18, 60) Then CargaProveedores() DdlProveedores.Visible = True DdlCompras.Visible = True @@ -562,13 +600,13 @@ Partial Class ContabilidadC_RegPrePoliza DdlCompras.Visible = False End If - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(28, 29) Then + If DdlConceptosContables.SelectedValue.ToEntero().Contiene(28, 29) Then CargaPersonal() DdlPersonal.Visible = True Else DdlPersonal.Visible = False End If - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then + If DdlConceptosContables.SelectedValue.ToEntero().Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then CargaClientes() DdlClientes.Visible = True DdlVentas.Visible = True @@ -577,14 +615,14 @@ Partial Class ContabilidadC_RegPrePoliza DdlVentas.Visible = False End If - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(51) Then + If DdlConceptosContables.SelectedValue.ToEntero().Contiene(51) Then CargaClasificacionesE() DdlClasificacionesE.Visible = True Else DdlClasificacionesE.Visible = False End If - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(201, 202, 203, 204, 206, 207, 226, 227, 229, 233, 234, 235, 239, 242, 256, 266) Then + If DdlConceptosContables.SelectedValue.ToEntero().Contiene(201, 202, 203, 204, 206, 207, 226, 227, 229, 233, 234, 235, 239, 242, 256, 266) Then TxtTC.Text = "2" TxtTC.Visible = True Else @@ -592,7 +630,7 @@ Partial Class ContabilidadC_RegPrePoliza TxtTC.Visible = False End If - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(69) Then + If DdlConceptosContables.SelectedValue.ToEntero().Contiene(69) Then CargaClasificaciones() DdlClasificaciones.Visible = True Else @@ -605,19 +643,19 @@ Partial Class ContabilidadC_RegPrePoliza End Sub Private Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(18, 60) Then - CargaNotasCreditoCompras(DdlProveedores.SelectedValue.ToEntero, DdlCompras) + If DdlConceptosContables.SelectedValue.ToEntero().Contiene(18, 60) Then + CargaNotasCreditoCompras(DdlProveedores.SelectedValue.ToEntero(), DdlCompras) Else - CargaCompras(DdlProveedores.SelectedValue.ToEntero) + CargaCompras(DdlProveedores.SelectedValue.ToEntero()) End If End Sub Private Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientes.selectedindexchange - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(12, 91) Then - CargaVentas(DdlClientes.SelectedValue.ToEntero) + If DdlConceptosContables.SelectedValue.ToEntero().Contiene(12, 91) Then + CargaVentas(DdlClientes.SelectedValue.ToEntero()) Else - CargaVentas(DdlClientes.SelectedValue.ToEntero) + CargaVentas(DdlClientes.SelectedValue.ToEntero()) End If End Sub @@ -650,7 +688,7 @@ Partial Class ContabilidadC_RegPrePoliza End Sub Private Sub CargaCompras(CveProveedor As Integer) - If Not DdlConceptosContables.SelectedValue.ToEntero.Contiene(21) Then + If Not DdlConceptosContables.SelectedValue.ToEntero().Contiene(21) Then Dim ObjCompras As New ClsCompras DdlCompras.ClearSelection() @@ -668,7 +706,7 @@ Partial Class ContabilidadC_RegPrePoliza End Sub Private Sub CargaNotasCreditoCompras(CveProveedor As Integer, ddl As DropDownList) - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(18, 60) Then + If DdlConceptosContables.SelectedValue.ToEntero().Contiene(18, 60) Then Dim ObjCompras As New ClsCompras ddl.ClearSelection() @@ -747,13 +785,13 @@ Partial Class ContabilidadC_RegPrePoliza TxtTotalAbonos.Text = "" TxtTotalCargos.Text = "" - If DdlPlantilla.SelectedValue.ToEntero <= 0 Then + If DdlPlantilla.SelectedValue.ToEntero() <= 0 Then Alert("Seleccione un Movimiento Válido", TipoMensaje.MsgAdvertencia) DdlPlantilla.SelectedValue = "-1" Exit Sub End If - If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada + If DdlPlantilla.SelectedValue.ToEntero() = 53 Then 'Plantilla Personalizada DivAgregarConceptos.Visible = True Else DivAgregarConceptos.Visible = False @@ -761,7 +799,7 @@ Partial Class ContabilidadC_RegPrePoliza - Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero + Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero() Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") Dim Cuenta As String = "" @@ -773,23 +811,23 @@ Partial Class ContabilidadC_RegPrePoliza For Each drt As DataRow In Dt.Rows - Cuenta = drt("ConceptoContable").ToString + Cuenta = drt("ConceptoContable").ToString() IdCuenta = 0 CodigoCuenta = "" NombreCuenta = "" - If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) + If drt("IdCtaContable").ToString().ToEntero() > 0 Then 'DtCuentasContables + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString())) If drr IsNot Nothing Then - IdCuenta = drt("IdCtaContable").ToString.ToEntero + IdCuenta = drt("IdCtaContable").ToString().ToEntero() CodigoCuenta = drr("CuentaFormato").ToString() NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() + 'Cuenta = drr("Nombre").Tostring() NombreCuenta = CodigoCuenta & "
    " & NombreCuenta End If EsComodin = 0 End If - If drt("CveCuenta").ToString.ToEntero > 0 Then + If drt("CveCuenta").ToString().ToEntero() > 0 Then NombreCuenta = String.Format("{0}
    {1}", drt("Codigo"), drt("Nombre")) End If @@ -797,9 +835,9 @@ Partial Class ContabilidadC_RegPrePoliza dr("IdCuenta") = IdCuenta dr("CodigoCuenta") = NombreCuenta dr("Cuenta") = Cuenta 'TxtCuentaContable.Text - dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial")) + dr("Referencia") = If(drt("CveConcepto").ToString().Contiene("29", "130"), drt("Personal"), drt("RazonSocial")) dr("Concepto") = TxtObservaciones.Text - dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1) + dr("TipoMovto") = If(drt("TipoMovto").ToString() = "False", 0, 1) dr("EsComodin") = EsComodin dr("CveConcepto") = drt("CveConcepto") dr("CveSubProyecto") = drt("CveSubProyectoNegativo") @@ -811,6 +849,8 @@ Partial Class ContabilidadC_RegPrePoliza dr("MultipleSubProyecto") = drt("MultipleSubProyecto") dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto") dr("CveCuenta") = drt("CveCuenta") + dr("FolioPoliza") = drt("FolioPoliza") + DtMovimientos.Rows.Add(dr) @@ -856,7 +896,7 @@ Partial Class ContabilidadC_RegPrePoliza e.Row.FCDropDownList("DdlTipoGasto").Items.Insert(0, New ListItem("Sin Asignar", "-1")) e.Row.FCDropDownList("DdlTipoGasto").SelectedValue = e.Row.DBCampo("CveTipoGasto") - If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada + If DdlPlantilla.SelectedValue.ToEntero() = 53 Then 'Plantilla Personalizada e.Row.FCDropDownList("DdlSubProyecto").Enabled = True e.Row.FCImageButton("imgD").Visible = True Else @@ -868,17 +908,17 @@ Partial Class ContabilidadC_RegPrePoliza End If 'Agregamos la opcion para vincular los movimientos bancarios - If e.Row.DataKey("CveConcepto").ToEntero.Contiene(41) Then + If e.Row.DataKey("CveConcepto").ToEntero().Contiene(41) Then Dim ObjMovimientos As New ClsMovimientos Dim DdlSaldos As DropDownList = e.Row.FCDropDownList("DdlSaldos") - Select Case e.Row.DataKey("CveConcepto").ToEntero + Select Case e.Row.DataKey("CveConcepto").ToEntero() 'Acreedores Case 41 If (ObjMovimientos.GetAcreedoresSaldosDetalles(-1, CveMoneda, UsuarioActual.CveEmpresa)) Then DdlSaldos.Visible = True - DdlSaldos.DataSource = ObjMovimientos.DtResultados.FiltraParametros($"CveIE > 0 AND CveProveedor = {e.Row.DataKey("CveProveedor").ToEntero}") + DdlSaldos.DataSource = ObjMovimientos.DtResultados.FiltraParametros($"CveIE > 0 AND CveProveedor = {e.Row.DataKey("CveProveedor").ToEntero()}") DdlSaldos.DataBind() DdlSaldos.Items.Insert(0, New ListItem("Seleccione", "-1")) End If @@ -888,16 +928,15 @@ Partial Class ContabilidadC_RegPrePoliza ObjMovimientos.Dispose() End If - If e.Row.DataKey("CveConcepto").ToEntero.Contiene(30) Then + If e.Row.DataKey("CveConcepto").ToEntero().Contiene(30) Then e.Row.FCLinkButton("ImgBancos").Visible = True - If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green" End If End If - If e.Row.DataKey("CveConcepto").ToEntero.Contiene(17) Then + If e.Row.DataKey("CveConcepto").ToEntero().Contiene(17) Then e.Row.FCDropDownList("DdlProveedores").Visible = True e.Row.FCDropDownList("DdlProveedores").DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlProveedores").DataBind() @@ -915,12 +954,12 @@ Partial Class ContabilidadC_RegPrePoliza Dim TotalCargos, TotalAbonos As Decimal If CvePrePoliza > 0 Then - TotalCargos = TxtTotalCargos.Text.ToDecimal - TotalAbonos = TxtTotalAbonos.Text.ToDecimal + TotalCargos = TxtTotalCargos.Text.ToDecimal() + TotalAbonos = TxtTotalAbonos.Text.ToDecimal() Else For Each Gvr As GridViewRow In GvMov.Rows - TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal - TotalAbonos += Gvr.FCTextBox("TxtAbono").Text.ToDecimal + TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal() + TotalAbonos += Gvr.FCTextBox("TxtAbono").Text.ToDecimal() Next End If @@ -951,7 +990,7 @@ Partial Class ContabilidadC_RegPrePoliza Try Dim CvePrePoliza As Integer Dim ConceptoPoliza As String = TxtObservaciones.Text - CvePrePoliza = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero) + CvePrePoliza = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero(), TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate(), ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero()) If CvePrePoliza > 0 Then Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

    " @@ -970,12 +1009,12 @@ Partial Class ContabilidadC_RegPrePoliza 'inserto las compras que voy a pagarDdlSaldos For Each gvr As GridViewRow In GvMov.Rows - If gvr.DataKey("IDCuenta").ToEntero > 0 Then + If gvr.DataKey("IDCuenta").ToEntero() > 0 Then IdCtaContable = gvr.DataKey("IDCuenta") End If - CveProveedor = gvr.DataKey("CveProveedor").ToEntero - CveCompra = gvr.DataKey("CveCompra").ToEntero - CveConcepto = gvr.DataKey("CveConcepto").ToEntero + CveProveedor = gvr.DataKey("CveProveedor").ToEntero() + CveCompra = gvr.DataKey("CveCompra").ToEntero() + CveConcepto = gvr.DataKey("CveConcepto").ToEntero() If gvr.DataKey("TipoMovto").ToDouble <> 0 Then Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble @@ -986,12 +1025,12 @@ Partial Class ContabilidadC_RegPrePoliza End If 'Registra pago de compra If CveConcepto = 17 Then - CveProveedor = gvr.FCDropDownList("DdlProveedores").SelectedValue.ToEntero - CveCompra = gvr.FCDropDownList("DdlCompras").SelectedValue.ToEntero + CveProveedor = gvr.FCDropDownList("DdlProveedores").SelectedValue.ToEntero() + CveCompra = gvr.FCDropDownList("DdlCompras").SelectedValue.ToEntero() End If If CveConcepto = 41 Then - CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero + CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero() Else If CveConcepto = 30 AndAlso Importe <> 0 Then 'Registra movimieno bancario @@ -1017,14 +1056,14 @@ Partial Class ContabilidadC_RegPrePoliza End If If Importe <> 0 Then - 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, + 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:=CveProveedor, CveCompra:=CveCompra, - 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, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, gvr.DataKey("TC").ToString.ToDecimal, 1), - ImporteME:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, (Importe / (gvr.DataKey("TC").ToString.ToDecimal - 1)).RoundSQL, 0), - PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then + 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(), TipoCambio:=If(gvr.DataKey("TC").ToString().ToDecimal() > 0, gvr.DataKey("TC").ToString().ToDecimal(), 1), + ImporteME:=If(gvr.DataKey("TC").ToString().ToDecimal() > 0, (Importe / (gvr.DataKey("TC").ToString().ToDecimal() - 1)).RoundSQL, 0), + PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal(), CveCuenta:=gvr.DataKey("CveCuenta").ToEntero()) Then Else MsgError = "No se pudo insertar el detalle de la póliza2" Exit For @@ -1054,7 +1093,7 @@ Partial Class ContabilidadC_RegPrePoliza 'MENSAJE PRINCIPAL MensajeAlert.AppendFormat("

    Folio de Póliza: {1}", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) MensajeAlert.AppendFormat("

    Prepóliza: {1}", CvePrePoliza, ObjMov.ContaFolio) - 'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion) + 'Alert(MensajeAlert.Tostring(), ModExtensiones.TipoMensaje.MsgInformacion) Else Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") End If @@ -1072,9 +1111,9 @@ Partial Class ContabilidadC_RegPrePoliza 'MENSAJE IE If CveIE > 0 Then MensajeAlert.AppendFormat("

    Folio Bancario: {1}", CveIE, FolioIE) - Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()") + Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()") Else - Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()") + Alert(If(MensajeAlert.ToString() = "", "Se registro con exito.", MensajeAlert.ToString()), TipoMensaje.MsgInformacion, "window.location.reload()") End If ObjIE.Commit() @@ -1107,62 +1146,79 @@ Partial Class ContabilidadC_RegPrePoliza End Sub Private Sub ActualizarPrePoliza() - + Dim contador As Integer = 0 + 'Dim diferencia As String = "" Dim OcurrioError As Boolean = False - Dim ObjContabilidad As New ClsContabilidad - ObjContabilidad.IniciaTransacSQL() + Using ObjContabilidad As New ClsContabilidad + + ObjContabilidad.IniciaTransacSQL() - If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then - OcurrioError = True - End If + If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then + OcurrioError = True + End If + If ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero(), -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then - If ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + For Each row As GridViewRow In GvPrePoliza.Rows + Dim CvePrePolizaDetalle As Integer = row.DataKey("CvePrePolizaDetalle").ToEntero() + Dim Concepto As String = row.FCTextBox("TxtConcepto").Text + Dim CveSubProyecto As Integer = row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() + Dim CtaContable As Integer = row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero() + Dim TipoMovto As Boolean = If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, False, True) + Dim TipoMovtoOld As Boolean = (row.DataKey("TipoMovto").ToString = "True") + Dim ImporteMN As Decimal = If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()) + Dim CveTipoGastonew As Integer = If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), row.DataKey("CveTipoGasto").ToEntero()) - - - For Each row As GridViewRow In GvPrePoliza.Rows - If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then - If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCTextBox("TxtConcepto").Text, row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, - row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, - row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then - OcurrioError = True - Exit For + If row.DataKey("CvePrePolizaDetalle").ToEntero() > 0 Then + Dim actualizar As Boolean + actualizar = (Concepto <> row.DataKey("Concepto") OrElse CveSubProyecto <> row.DataKey("CveSubProyecto").ToEntero() OrElse CtaContable <> row.DataKey("IdCtaContable").ToEntero() OrElse + TipoMovto <> TipoMovtoOld OrElse ImporteMN <> row.DataKey("ImporteMN").ToDecimal() OrElse CveTipoGastonew <> row.DataKey("CveTipoGasto").ToEntero()) + 'diferencia = $"{diferencia}\r\n /*{actualizar}*/actualizar = '{Concepto}' <> '{row.DataKey("Concepto")}' || '{CveSubProyecto}' <> '{row.DataKey("CveSubProyecto").ToEntero()}' || '{CtaContable}' <> '{row.DataKey("IdCtaContable").ToEntero()}' ||" + 'diferencia = $"{diferencia} '{TipoMovto}' <> '{TipoMovtoOld}' OrElse '{ImporteMN}' <> '{row.DataKey("ImporteMN").ToEntero()}' OrElse '{CveTipoGastonew}' <> '{row.DataKey("CveTipoGasto").ToEntero()}'" + If actualizar Then + contador = contador + 1 + If Not ObjContabilidad.UpdatePrepolizasDetalle(CvePrePolizaDetalle, Concepto, CveSubProyecto, + CtaContable, TipoMovto, ImporteMN, CveTipoGasto:=CveTipoGastonew, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + OcurrioError = True + Exit For + End If + End If + Else + contador = contador + 1 + If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, + row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()), row.DataKey("Referencia").ToString(), + row.DataKey("CveConceptoContable").ToEntero(), row.FCTextBox("TxtConcepto").Text, Now, + row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero(), 0, CveSubProyecto:=row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(), + CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), row.DataKey("CveTipoGasto").ToEntero()), + ImporteMX:=If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, + row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()), CveProveedor:=DdlProveedores.SelectedValue.ToEntero()) Then + OcurrioError = True + Exit For + End If End If - Else - If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, - row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString, - row.DataKey("CveConceptoContable").ToEntero, row.FCTextBox("TxtConcepto").Text, Now, - row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero, 0, CveSubProyecto:=row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, - CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, row.DataKey("CveTipoGasto").ToEntero), - ImporteMX:=If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, - row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveProveedor:=DdlProveedores.SelectedValue.ToEntero) Then - OcurrioError = True - Exit For - End If - End If - Next - Else - OcurrioError = True - End If + Next + Else + OcurrioError = True + End If - If Not OcurrioError Then - ObjContabilidad.Commit() - Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion) - Else - ObjContabilidad.RollBack() - Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError) - End If + If Not OcurrioError Then + ObjContabilidad.Commit() + Alert($"La Prepoliza se actualizó correctamente.
    se actualizaron {contador} registros.", TipoMensaje.MsgInformacion) + Else + ObjContabilidad.RollBack() + Alert($"Ocurrio un error al actualizar la PrePoliza.
    {contador} registros.", TipoMensaje.MsgError) + End If + 'RegistraScript($"console.log(""{diferencia}"")".Replace("'", "\'")) + End Using - ObjContabilidad.Dispose() CargaPrePoliza() If Not OcurrioError Then - If IdPoliza > 0 Then + If IdPoliza > 0 AndAlso contador Then BtnContabilizar_Click(Nothing, Nothing) End If @@ -1186,9 +1242,9 @@ Partial Class ContabilidadC_RegPrePoliza Dim ConceptoContable As String = GvPrePoliza.Rows(IndiceGrid).FCLiteral("LtlConceptoContable").Text Dim FolioFactura As String = GvPrePoliza.Rows(IndiceGrid).FCHyperLink("HlReferencia").Text Dim Concepto As String = GvPrePoliza.Rows(IndiceGrid).FCTextBox("TxtConcepto").Text - Dim CveSubProyecto As Integer = GvPrePoliza.Rows(IndiceGrid).FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero - Dim CveTipoGasto As Integer = GvPrePoliza.Rows(IndiceGrid).FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero - Dim Id As Integer = GvPrePoliza.Rows(IndiceGrid).FCDropDownList("DdlCtaContable").SelectedValue.ToEntero + Dim CveSubProyecto As Integer = GvPrePoliza.Rows(IndiceGrid).FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() + Dim CveTipoGasto As Integer = GvPrePoliza.Rows(IndiceGrid).FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero() + Dim Id As Integer = GvPrePoliza.Rows(IndiceGrid).FCDropDownList("DdlCtaContable").SelectedValue.ToEntero() Dim Cargo As Double = GvPrePoliza.Rows(IndiceGrid).FCTextBox("TxtCargo").Text.ToDouble Dim Abono As Double = GvPrePoliza.Rows(IndiceGrid).FCTextBox("TxtAbono").Text.ToDouble @@ -1235,10 +1291,10 @@ Partial Class ContabilidadC_RegPrePoliza - 'TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + e.Row.FCTextBox("TxtCargo").Text.ToDouble).ToString.FormatoNumero - 'TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + e.Row.FCTextBox("TxtAbono").Text.ToDouble).ToString.FormatoNumero + 'TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + e.Row.FCTextBox("TxtCargo").Text.ToDouble).Tostring().FormatoNumero + 'TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + e.Row.FCTextBox("TxtAbono").Text.ToDouble).Tostring().FormatoNumero - 'Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero + 'Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero() 'If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta")) 'If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 234, 235) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra")) @@ -1262,7 +1318,7 @@ Partial Class ContabilidadC_RegPrePoliza Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting - Dim idMov As Integer = GvMov.DataKeys(e.RowIndex).Value.ToString.ToEntero + Dim idMov As Integer = GvMov.DataKeys(e.RowIndex).Value.ToString().ToEntero() Dim Rows As DataRow() = DtMovimientos.Select("IDMov = " & idMov) If Rows.Count > 0 Then @@ -1294,7 +1350,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim NombreCuenta As String = "" dr("IdCuenta") = DdlCtaContable.SelectedValue - If DdlCtaContable.SelectedValue.ToEntero > 0 Then + If DdlCtaContable.SelectedValue.ToEntero() > 0 Then Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue)) If drr IsNot Nothing Then CodigoCuenta = drr("CuentaFormato").ToString() @@ -1313,12 +1369,12 @@ Partial Class ContabilidadC_RegPrePoliza dr("Abono") = TxtAbono.Text.ToDouble dr("Descripcion") = TxtDescripcion.Text dr("CveSubProyecto") = DdlSubProyecto.SelectedValue - dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero - dr("CveCompra") = DdlCompras.SelectedValue.ToEntero - dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero - dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero - dr("CveCliente") = DdlClientes.SelectedValue.ToEntero - dr("CveVenta") = DdlVentas.SelectedValue.ToEntero + dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero() + dr("CveCompra") = DdlCompras.SelectedValue.ToEntero() + dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero() + dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero() + dr("CveCliente") = DdlClientes.SelectedValue.ToEntero() + dr("CveVenta") = DdlVentas.SelectedValue.ToEntero() End If GvMov.DataSource = DtMovimientos @@ -1344,8 +1400,8 @@ Partial Class ContabilidadC_RegPrePoliza dr("CveSubProyecto") = DdlSubProyecto.SelectedValue - TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero - TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero + TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString().FormatoNumero + TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString().FormatoNumero DtMovimientos.Rows.Add(dr) DtMovimientos.AcceptChanges() @@ -1361,7 +1417,7 @@ Partial Class ContabilidadC_RegPrePoliza dr("IdCuenta") = DdlCtaContable.SelectedValue - If DdlCtaContable.SelectedValue.ToEntero > 0 Then + If DdlCtaContable.SelectedValue.ToEntero() > 0 Then Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue)) If drr IsNot Nothing Then CodigoCuenta = drr("CuentaFormato").ToString() @@ -1382,16 +1438,16 @@ Partial Class ContabilidadC_RegPrePoliza dr("Abono") = TxtAbono.Text.ToDouble dr("Descripcion") = TxtDescripcion.Text dr("CveSubProyecto") = DdlSubProyecto.SelectedValue - dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero - dr("CveCompra") = DdlCompras.SelectedValue.ToEntero - dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero - dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero - dr("CveCliente") = DdlClientes.SelectedValue.ToEntero - dr("CveVenta") = DdlVentas.SelectedValue.ToEntero + dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero() + dr("CveCompra") = DdlCompras.SelectedValue.ToEntero() + dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero() + dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero() + dr("CveCliente") = DdlClientes.SelectedValue.ToEntero() + dr("CveVenta") = DdlVentas.SelectedValue.ToEntero() dr("TC") = TxtTC.Text.ToDouble - TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero - TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero + TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString().FormatoNumero + TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString().FormatoNumero DtMovimientos.Rows.Add(dr) DtMovimientos.AcceptChanges() @@ -1446,10 +1502,10 @@ Partial Class ContabilidadC_RegPrePoliza End Sub Private Sub BtnContado_Click(sender As Object, e As EventArgs) Handles BtnContado.Click CveConcepto = 30 - CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero - CveCuenta = DdlCuenta.SelectedValue.ToEntero + CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero() + CveCuenta = DdlCuenta.SelectedValue.ToEntero() Folio = TxtDocumentoFolio.Text - ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal + ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal() Observaciones = TxtDocumentoObservaciones.Text Beneficiario = TxtDocumentoBeneficiario.Text RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal")) @@ -1506,8 +1562,8 @@ Partial Class ContabilidadC_RegPrePoliza Protected Sub DdlSubProyectoFiltro_SelectedIndexChanged(sender As Object, e As EventArgs) Dim Ddl As DropDownList = CType(sender, DropDownList) For Each Gvr As GridViewRow In GvPrePoliza.Rows - If Ddl.SelectedValue.ToEntero > 0 Then - If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero = Ddl.SelectedValue.ToEntero Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero > 0 Or Gvr.FCDropDownList("DdlSubProyecto").Enabled Then + If Ddl.SelectedValue.ToEntero() > 0 Then + If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() = Ddl.SelectedValue.ToEntero() Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() > 0 Or Gvr.FCDropDownList("DdlSubProyecto").Enabled Then Gvr.Visible = True Gvr.FCDropDownList("DdlSubProyecto").SelectedValueExist(Ddl.SelectedValue) Else @@ -1524,8 +1580,8 @@ Partial Class ContabilidadC_RegPrePoliza End Sub Protected Sub DdlSubProyectoFiltroMov_SelectedIndexChanged(sender As Object, e As EventArgs) For Each Gvr As GridViewRow In GvMov.Rows - If DdlSubProyectoFiltroMov.SelectedValue.ToEntero > 0 Then - If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero = DdlSubProyectoFiltroMov.SelectedValue.ToEntero Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero > 0 Or Gvr.FCDropDownList("DdlSubProyecto").Enabled Then + If DdlSubProyectoFiltroMov.SelectedValue.ToEntero() > 0 Then + If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() = DdlSubProyectoFiltroMov.SelectedValue.ToEntero() Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() > 0 Or Gvr.FCDropDownList("DdlSubProyecto").Enabled Then Gvr.Visible = True Gvr.FCDropDownList("DdlSubProyecto").SelectedValueExist(DdlSubProyectoFiltroMov.SelectedValue) Else @@ -1543,22 +1599,22 @@ Partial Class ContabilidadC_RegPrePoliza Private Sub GvMov_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvMov.RowEditing Actualizar = True - GvMov.DataKeys(e.NewEditIndex).Value.ToString.ToEntero - Dim idMov As Integer = GvMov.DataKeys(e.NewEditIndex).Value.ToString.ToEntero + GvMov.DataKeys(e.NewEditIndex).Value.ToString().ToEntero() + Dim idMov As Integer = GvMov.DataKeys(e.NewEditIndex).Value.ToString().ToEntero() Dim DrM As DataRow = DtMovimientos.Rows(e.NewEditIndex) If DrM IsNot Nothing Then - HdnCve.Value = idMov.ToString + HdnCve.Value = idMov.ToString() DdlCtaContable.SelectedValue = DrM("IdCuenta") TxtReferencia.Text = DrM("Referencia") TxtObservaciones.Text = DrM("Concepto") ' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto") DrM("EsComodin") = 0 - DdlConceptosContables.SelectedValue = DrM("CveConcepto").ToString - TxtCargo.Text = DrM("Cargo").ToString - TxtAbono.Text = DrM("Abono").ToString + DdlConceptosContables.SelectedValue = DrM("CveConcepto").ToString() + TxtCargo.Text = DrM("Cargo").ToString() + TxtAbono.Text = DrM("Abono").ToString() TxtDescripcion.Text = DrM("Descripcion") DdlSubProyecto.SelectedValue = DrM("CveSubProyecto") DdlProveedores.SelectedValue = DrM("CveProveedor") @@ -1584,11 +1640,11 @@ Partial Class ContabilidadC_RegPrePoliza 'dr("IdCuenta") = DdlCtaContable.SelectedValue - 'If DdlCtaContable.SelectedValue.ToEntero > 0 Then + 'If DdlCtaContable.SelectedValue.ToEntero() > 0 Then ' Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue)) ' If drr IsNot Nothing Then - ' CodigoCuenta = drr("CuentaFormato").ToString() - ' NombreCuenta = drr("Nombre").ToString() + ' CodigoCuenta = drr("CuentaFormato").Tostring() + ' NombreCuenta = drr("Nombre").Tostring() ' End If 'End If @@ -1603,15 +1659,15 @@ Partial Class ContabilidadC_RegPrePoliza 'dr("Abono") = TxtAbono.Text.ToDouble 'dr("Descripcion") = TxtDescripcion.Text 'dr("CveSubProyecto") = DdlSubProyecto.SelectedValue - 'dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero - 'dr("CveCompra") = DdlCompras.SelectedValue.ToEntero - 'dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero + 'dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero() + 'dr("CveCompra") = DdlCompras.SelectedValue.ToEntero() + 'dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero() 'dr("CveClasificacion") = -1 - 'dr("CveCliente") = DdlClientes.SelectedValue.ToEntero - 'dr("CveVenta") = DdlVentas.SelectedValue.ToEntero + 'dr("CveCliente") = DdlClientes.SelectedValue.ToEntero() + 'dr("CveVenta") = DdlVentas.SelectedValue.ToEntero() - 'TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero - 'TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero + 'TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).Tostring().FormatoNumero + 'TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).Tostring().FormatoNumero 'DtMovimientos.Rows.Add(dr) 'If CvePrePoliza > 0 Then @@ -1653,7 +1709,7 @@ Partial Class ContabilidadC_RegPrePoliza ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) End If - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime) Then + If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then Alert(String.Format("Prepóliza contabilizada.

    Folio:Ver Póliza", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion) Else @@ -1685,7 +1741,7 @@ Partial Class ContabilidadC_RegPrePoliza Str.AppendFormat("No se genero complemento por el siguiente motivo: {0}", Banco.Mensaje) End If Banco.Dispose() - Alert(Str.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") + Alert(Str.ToString(), TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") End Sub Private Sub MandaCorreo(NombreArchivo As String, Correo As String, Optional ConAlerta As Boolean = True) @@ -1724,6 +1780,239 @@ Partial Class ContabilidadC_RegPrePoliza Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs) GeneraTimbre(CvePrePoliza) End Sub + + Protected Sub LnkImprimirPDF_Click(sender As Object, e As EventArgs) + Dim filtro() As String = {"CveCompra", "CveIE", "CveConceptoContable"} + Dim filtroComplemento() As String = {"CveIE"} + Dim Pathpdf As New List(Of String) + Dim pdfs = New List(Of Byte()) + Dim Path As String + Dim dt As DataTable = DtMovimientos.FiltraParametros("", "", filtro) + Dim ObjCompra As New ClsCompras + Dim ObjIE As New ClsBancos() + Dim pathPoliza As String = "" + Dim TieneComprobante As Boolean + + Try + TieneComprobante = VerificarComprobante() + If TieneComprobante Then + + Path = ImprimirPolizaPDF(IdPoliza) + pathPoliza = Path + If File.Exists(Path) Then + Pathpdf.Add(Path) + End If + + For Each Row As DataRow In dt.Rows + If Row("CveConceptoContable").ToString().ToEntero() = 30 Then + If Row("CveIE").ToString().ToEntero() > 0 Then + If ObjIE.GetBancosIE(Row("CveIE").ToString().ToEntero(), UsuarioActual.CveEmpresa) Then + If ObjIE.DtResultados.Rows.Count > 0 Then + Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString()) + If File.Exists(Path) Then + Dim formato As String = System.IO.Path.GetExtension(Path) + If formato.ToLower.Contiene(".jpg", ".png", ".jpeg") Then + Dim ComprobantePDF As String = String.Format("{0}\{1}\comprobante.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick) + Using crea_archivo = New iTextSharp.text.Document(iTextSharp.text.PageSize.A4, 18, 18, 18, 18) + PdfWriter.GetInstance(crea_archivo, New FileStream(ComprobantePDF, FileMode.Create)) + crea_archivo.Open() + Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(Path) + If image.Height > image.Width Then + Dim percentage As Double = 0.0F + percentage = 700 / image.Height + image.ScalePercent(percentage * 100) + Else + Dim percentage As Double = 0.0F + percentage = 540 / image.Width + image.ScalePercent(percentage * 100) + End If + crea_archivo.Add(image) + End Using + Pathpdf.Add(ComprobantePDF) + Else + Pathpdf.Add(Path) + End If + End If + End If + End If + End If + End If + If Row("CveConceptoContable").ToString().ToEntero().Contiene(17, 309, 312, 308) Then + If ObjCompra.GetCompras(Row("CveCompra").ToString().ToEntero(), "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then + Dim dr As DataRow = ObjCompra.DtResultados.Rows(0) + Dim RFC As String = dr("RFC").ToString() + Dim CveFactura As String = dr("CveFactura").ToString() + Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura) + If File.Exists(Path) Then + + Pathpdf.Add(Path) + End If + End If + End If + End If + Next + + + dt = DtMovimientos.FiltraParametros("", "", filtroComplemento) + For Each Row As DataRow In dt.Rows + If ObjCompra.GetCompraComplementoPago(-1, UsuarioActual.CveEmpresa, Row("CveIE").ToString().ToEntero()) Then + Console.WriteLine(Row("CveIE").ToString()) + If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then + Dim dr As DataRow = ObjCompra.DtResultados.Rows(0) + Dim RFC As String = dr("RFCde").ToString() + Dim CveFactura As String = dr("CveFactura").ToString() + Console.WriteLine(RFC & CveFactura) + If CveFactura <> "" Then + Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura) + Console.WriteLine(Path) + If File.Exists(Path) Then + Pathpdf.Add(Path) + End If + End If + End If + End If + Next + + MergePdfFiles(Pathpdf.ToArray) + If File.Exists(pathPoliza) Then + Directory.Delete(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True) + End If + + Else + Alert("No se tiene cargado comprobante de pago", TipoMensaje.MsgAdvertencia) + End If + + + Catch ex As Exception + Alert("Error al descargar el paquete", TipoMensaje.MsgError) + End Try + ObjCompra.Dispose() + ObjIE.Dispose() + End Sub + Private Function ImprimirPolizaPDF(IdPoliza As Integer) As String + Dim ObjConta As New ClsContabilidad + 'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa) + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim Bytes As Byte() = Nothing + + + 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then + If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then + Dim dtVC As DataTable + Dim dr As DataRow + dtVC = ObjConta.DtResultados + dr = dtVC.Rows(0) + Dim ruta As String = "" + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString())) + params.Add(New ReportParameter("Finicio", dr("Fecha").ToString().ToDate().ToShortDateString)) + params.Add(New ReportParameter("FFin", dr("Fecha").ToString().ToDate().ToShortDateString)) + params.Add(New ReportParameter("Fecha", dr("Fecha").ToString().ToDate().ToShortDateString)) + 'params.Add(New ReportParameter("Nombre", dr("Cuenta").Tostring())) + 'params.Add(New ReportParameter("Cuenta", dr("Codigo").Tostring())) + params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString())) + params.Add(New ReportParameter("Moneda", "")) + params.Add(New ReportParameter("CodigoPostal", "")) + If UsuarioActual.CveEmpresa = 119 Then + params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString().ToEntero()).FiltroPrimeroValor("Nombre"))) + End If + If Archivo.Exists Then + ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" + Else + ruta = "Empresas/Grales/Formatos/Polizas.rdlc" + End If + Bytes = StreamPDF(ruta, dtVC, params, "ppoliza") + If Not File.Exists(String.Format("{0}{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString())) Then + DirectoryExistsCreate(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick)) + File.WriteAllBytes(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString()), Bytes) + End If + End If + Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString()) + ObjConta.Dispose() + + End Function + Private Sub MergePdfFiles(ByVal pdfFiles() As String) + Dim result As Boolean = False + Dim pdfCount As Integer = 0 + Dim f As Integer = 0 + Dim fileName As String + Dim reader As iTextSharp.text.pdf.PdfReader = Nothing + Dim pageCount As Integer = 0 + Dim pdfDoc As iTextSharp.text.Document = Nothing + Dim writer As PdfWriter = Nothing + Dim cb As PdfContentByte = Nothing + + Dim page As PdfImportedPage = Nothing + Dim rotation As Integer = 0 + + + Try + pdfCount = pdfFiles.Length + If pdfCount > 0 Then + fileName = pdfFiles(f) + reader = New iTextSharp.text.pdf.PdfReader(fileName) + pageCount = reader.NumberOfPages + pdfDoc = New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1), 18, 18, 18, 18) + writer = PdfWriter.GetInstance(pdfDoc, New FileStream(String.Format("{0}\{1}\{2}-{3}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, TipoPoliza, Folio), FileMode.Create)) + + With pdfDoc + .Open() + End With + cb = writer.DirectContent + While f < pdfCount + Dim i As Integer = 0 + While i < pageCount + i += 1 + pdfDoc.SetPageSize(reader.GetPageSizeWithRotation(i)) + pdfDoc.NewPage() + page = writer.GetImportedPage(reader, i) + rotation = reader.GetPageRotation(i) + If rotation = 90 Then + cb.AddTemplate(page, 0, -1.0F, 1.0F, 0, 0, reader.GetPageSizeWithRotation(i).Height) + ElseIf rotation = 270 Then + cb.AddTemplate(page, 0, 1.0F, -1.0F, 0, reader.GetPageSizeWithRotation(i).Width + 60, -30) + Else + cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, 0) + End If + End While + f += 1 + If f < pdfCount Then + fileName = pdfFiles(f) + reader = New iTextSharp.text.pdf.PdfReader(fileName) + pageCount = reader.NumberOfPages + End If + End While + + + pdfDoc.Close() + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}\{1}\{2}-{3}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, TipoPoliza, Folio)) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = "application/octet-stream" + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(String.Format("{0}\{1}\{2}-{3}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, TipoPoliza, Folio)) + Response.Flush() ' send it to the client to download + HttpContext.Current.Response.SuppressContent = True + HttpContext.Current.ApplicationInstance.CompleteRequest() + Response.End() + + End If + result = True + End If + Catch ex As Exception + End Try + + + + End Sub + #End Region @@ -1731,10 +2020,10 @@ Partial Class ContabilidadC_RegPrePoliza Protected Sub DdlProveedores_SelectedIndexChanged1(sender As Object, e As EventArgs) Dim ddl As DropDownList = CType(sender, DropDownList) Dim ddl2 As DropDownList = DirectCast(ddl.BindingContainer, GridViewRow).FCDropDownList("DdlCompras") - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(18, 60) Then - CargaNotasCreditoCompras(ddl.SelectedValue.ToEntero, ddl2) + If DdlConceptosContables.SelectedValue.ToEntero().Contiene(18, 60) Then + CargaNotasCreditoCompras(ddl.SelectedValue.ToEntero(), ddl2) Else - CargaCompras2(ddl.SelectedValue.ToEntero, ddl2) + CargaCompras2(ddl.SelectedValue.ToEntero(), ddl2) End If End Sub @@ -1777,9 +2066,9 @@ Partial Class ContabilidadC_RegPrePoliza Dim NombreArchivo As String SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) Dim workbook As New ExcelFile() - Dim worksheet = workbook.Worksheets.Add(DdlPlantilla2.SelectedItem.Text.ToString) + Dim worksheet = workbook.Worksheets.Add(DdlPlantilla2.SelectedItem.Text.ToString()) - Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero + Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero() Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") Dim DtExcel As DataTable = (From row As DataRow In Dt.Rows @@ -1794,8 +2083,8 @@ Partial Class ContabilidadC_RegPrePoliza .Concepto = "", .SubProyecto = row.Item("SubProyecto"), .CveConceptoContable = row.Item("CveConcepto"), - .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1), - .IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1) + .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString().ToEntero() > 0, row.Item("CveSubProyecto"), -1), + .IdCtaContable = IIf(row.Item("IdCtaContable").ToString().ToEntero() > 0, row.Item("IdCtaContable"), -1) }).QueryToDataTable(True) worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With @@ -1814,7 +2103,7 @@ Partial Class ContabilidadC_RegPrePoliza worksheet.Columns("K").Hidden = True - NombreArchivo = DdlPlantilla2.SelectedItem.Text.ToString + NombreArchivo = DdlPlantilla2.SelectedItem.Text.ToString() workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault) @@ -1894,26 +2183,26 @@ Partial Class ContabilidadC_RegPrePoliza Dim TotalAbonos As Integer = 0 - CvePrePoliza = ObjConta.AddPrePolizas("Contabilidad/RegPrePolizaExcel", DdlPlantilla2.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, DdlPlantilla2.SelectedItem.Text.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero) + CvePrePoliza = ObjConta.AddPrePolizas("Contabilidad/RegPrePolizaExcel", DdlPlantilla2.SelectedValue.ToEntero(), TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate(), DdlPlantilla2.SelectedItem.Text.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero()) For Each Row As DataRow In dt.Rows - NombreCuenta = Row("NombreCuenta").ToString - Cuenta = Row("Cuenta").ToString + NombreCuenta = Row("NombreCuenta").ToString() + Cuenta = Row("Cuenta").ToString() - Dim Importe As Decimal = If(Row("Cargo").ToString.ToDecimal <> 0, Row("Cargo").ToString.ToDecimal, Row("Abono").ToString.ToDecimal) - Dim Concepto As String = Row("Concepto").ToString - Dim Referencia As String = Row("Referencia").ToString + Dim Importe As Decimal = If(Row("Cargo").ToString().ToDecimal() <> 0, Row("Cargo").ToString().ToDecimal(), Row("Abono").ToString().ToDecimal()) + Dim Concepto As String = Row("Concepto").ToString() + Dim Referencia As String = Row("Referencia").ToString() Dim IdCuenta As Integer = -1 - Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero - Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True) + Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString().ToEntero() + Dim TipoMovto As Boolean = If(Row("Cargo").ToString().ToDecimal() <> 0, False, True) Dim YaExiste As Boolean = False - Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero - Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero + Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString().ToEntero() + Dim IdCtaContable As Integer = Row("IdCtaContable").ToString().ToEntero() If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero + IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero() 'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo") Else Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe}
    ") @@ -1932,7 +2221,7 @@ Partial Class ContabilidadC_RegPrePoliza If YaExiste = False Then If IdCuenta > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate, IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate(), IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then TieneError = True Exit For End If @@ -1945,12 +2234,12 @@ Partial Class ContabilidadC_RegPrePoliza Next If Not TieneError Then ObjConta.Commit() - Alert(String.Format("

    Prepóliza: {1}", CvePrePoliza, ObjConta.ContaFolio)) + Alert(String.Format("

    Prepóliza: {1}", CvePrePoliza, ObjConta.ContaFolio)) Alert($"Se agregó la póliza {ObjConta.ContaFolio}") Else - Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError) + Alert($"No encontraron las siguientes cuentas: {Reporte.ToString()} ", TipoMensaje.MsgError) ObjConta.RollBack() End If @@ -2014,5 +2303,72 @@ Partial Class ContabilidadC_RegPrePoliza Return dataTable End Function + + Protected Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click + Dim ObjIE As New ClsBancos + Dim Comprobante As String = "" + + Dim Filesgral As List(Of Archivo) = TxtCargarArchivo.getfiles().Archivos + If Filesgral.Count > 0 Then + Dim fileItem As Archivo = Filesgral(0) + Dim Path As String = HttpContext.Current.Request.ApplicationPath + Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") + + Path = Extensiones.DirectorioBaseEmpresas + Path += String.Format("Empresas/{0}/IE", UsuarioActual.CveEmpresa) + + + + If Not Directory.Exists(Path) Then + Directory.CreateDirectory(Path) + End If + Path += $"/{CveIE}.{Comprobante}" + If File.Exists(Path) Then + File.Delete(Path) + End If + My.Computer.FileSystem.MoveFile(fileItem.FileUrl, Path) + End If + TxtCargarArchivo.Text = "" + RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1") + + If ObjIE.UpdateComprobanteIE(Comprobante.Replace("."c, ""), CveIE) Then + Alert("El Comprobante se guardo exitosamente.", TipoMensaje.MsgInformacion) + End If + + ObjIE.Dispose() + + End Sub + + Private Function VerificarComprobante() As Boolean + Dim filtro() As String = {"CveCompra", "CveIE", "CveConceptoContable"} + Dim Path As String + Dim dt As DataTable = DtMovimientos.FiltraParametros("", "", filtro) + Dim ObjIE As New ClsBancos() + Dim TieneComprobante As Boolean = False + + For Each Row As DataRow In dt.FiltraParametros("CveConceptoContable = 30").Rows + + If ObjIE.GetBancosIE(Row("CveIE").ToString().ToEntero(), UsuarioActual.CveEmpresa) Then + If ObjIE.DtResultados.Rows.Count > 0 Then + Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString()) + If File.Exists(Path) Then + TieneComprobante = True + Exit For + Else + TieneComprobante = False + Exit For + End If + Else + TieneComprobante = False + Exit For + End If + End If + + Next + ObjIE.Dispose() + Return TieneComprobante + + End Function + End Class diff --git a/Empresas/119/Formatos/Nomina.rdlc b/Empresas/119/Formatos/Nomina.rdlc index 84d07c8ba..e631698bf 100644 --- a/Empresas/119/Formatos/Nomina.rdlc +++ b/Empresas/119/Formatos/Nomina.rdlc @@ -656,7 +656,7 @@ DsOC - 7.70215cm + 7.96673cm 0.15979cm 2.05138cm 10.0953cm @@ -1234,7 +1234,7 @@ DataSet1 - 7.70435cm + 7.96893cm 10.2551cm 2.05606cm 9.79494cm @@ -1333,7 +1333,7 @@ Lugar de expedición: 83220 Hermosillo Textbox2 0.12976cm 4.80311cm - 2.24428cm + 2.1513cm 8.10317cm 2 + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SubProyecto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + 0.49417cm @@ -5279,13 +5509,14 @@ Lugar de expedición: 83220 Hermosillo + DsOC - 2.51578cm + 2.33057cm 0.15979cm - 5.0304cm - 19.84967cm + 5.44519cm + 19.84968cm 9 - 18.41425cm + 18.46717cm - 10 + 12 @@ -167,6 +173,8 @@ + + @@ -182,7 +190,9 @@ RECIBO DE NOMINA - - 2 + 3 + @@ -213,7 +224,9 @@ - - 4 + 5 + @@ -276,11 +292,16 @@ - - - Textbox209 @@ -294,40 +315,10 @@ 2pt + 3 - - - - true - true - - - - - - - - - Textbox210 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - + @@ -344,7 +335,9 @@ - + 4 - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - + + + @@ -446,7 +375,9 @@ - - 4 + 5 + @@ -486,7 +418,9 @@ - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - + true true @@ -629,208 +531,21 @@ =Parameters!Codigo.Value - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Días Trabajados - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!DiasLaborados.Value - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Sueldo Correspondiente - - Black - 1pt 2pt 2pt @@ -838,13 +553,42 @@ 2pt - 2 - - + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -852,7 +596,9 @@ =Parameters!NombreCompleto.Value - - 3 + 2 + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + R.F.C + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + - + true true - - @@ -905,108 +778,25 @@ - + true true - Faltas - - - Textbox46 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!DiasFaltados.Value - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - @@ -1022,8 +812,10 @@ 2pt + 2 + @@ -1031,21 +823,29 @@ - + true true - R.F.C. - + + + =Parameters!SubProyecto.Value + @@ -1061,37 +861,6 @@ 2pt - 2 - - - - - - - true - true - - - - - =Parameters!RFC.Value - - - 2pt - 2pt - 2pt - 2pt - - 3 @@ -1099,50 +868,31 @@ - + true true - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - Retardos - - - Textbox170 + Textbox29 @@ -1153,176 +903,13 @@ 2pt - - - - - - true - true - - - - - =Parameters!DiasRetardos.Value - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - CURP - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - 2 - - true - true - - - - - =Parameters!CURP.Value - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - + true true @@ -1330,13 +917,15 @@ - @@ -1351,21 +940,25 @@ - + true true - Días Vacaciones - - - Textbox161 + Textbox177 @@ -1380,36 +973,7 @@ - - true - true - - - - - =Parameters!DiasVacaciones.Value - - - 2pt - 2pt - 2pt - 2pt - - - - - - - + true true @@ -1417,13 +981,15 @@ - @@ -1436,81 +1002,6 @@ - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Tipo de Pago - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - @@ -1521,7 +1012,9 @@ =Parameters!TipoPeriodo.Value - - 3 - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Días Incapacidad - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!DiasIncapacidad.Value - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Afi I.M.S.S. - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Parameters!NSS.Value - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Periodo de - - - 2pt - 2pt - 2pt - 2pt - - - - - - - + true true @@ -1834,29 +1043,35 @@ =Parameters!FechaInicio.Value - al - =Parameters!FechaFin.Value - - - Textbox187 + Textbox39 - Black - 1pt 2pt 2pt @@ -1871,534 +1086,6 @@ - - 0.6cm - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha de Pago - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!FechaPago.Value - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - 0.6cm @@ -2451,13 +1138,15 @@ 2pt - 5 + 7 + + @@ -2524,7 +1213,9 @@ Concepto - - 2 + 3 + @@ -2567,7 +1259,9 @@ - + 2 + @@ -2678,7 +1378,9 @@ Concepto - 1pt - 2pt - 2pt - 2pt - 2pt + 1pt + 1pt + 1pt + 1pt - + true true @@ -2866,27 +1576,30 @@ =Fields!ConceptoP.Value - - 2pt - 2pt - 2pt - 2pt + 1pt + 1pt + 1pt + 1pt - 2 + 3 + @@ -2897,7 +1610,9 @@ =IIf(not IsNothing(Fields!ConceptoP.Value) ORELSE Fields!ImporteP.Value >0,"$",Nothing) - @@ -2949,8 +1665,10 @@ 2pt + 2 + @@ -2961,7 +1679,9 @@ =Fields!NoConceptoD.Value - @@ -3088,7 +1813,7 @@ - 1.39375cm + 0.30896cm @@ -3100,7 +1825,9 @@ - + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -3134,7 +1892,9 @@ - + + + + + + Textbox229 + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -3254,7 +2053,9 @@ - + + + + + + Textbox102 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + @@ -3462,7 +2316,9 @@ Total Percepciones - @@ -3577,8 +2436,10 @@ 2pt + 2 + @@ -3589,7 +2450,9 @@ - @@ -3758,7 +2626,7 @@ - 0.6cm + 0.36187cm @@ -3770,7 +2638,9 @@ - + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -3799,7 +2700,9 @@ - + + + + + + Textbox241 + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -3919,7 +2861,9 @@ - @@ -4095,7 +3046,7 @@ - 0.6cm + 0.52062cm @@ -4106,8 +3057,10 @@ - - - 10 + 12 @@ -4136,10 +3089,12 @@ + + - 0.6cm + 0.54708cm @@ -4150,8 +3105,10 @@ - Recibí de la empresa arriba mencionada, la cantidad neta a que este documento se refiere, estando conforme con las - - 10 + 12 @@ -4180,10 +3137,60 @@ + + - 0.6cm + 0.46771cm + + + + + true + true + + + + + se refiere, estando conforme con las + + + + + + 2pt + 2pt + 2pt + 2pt + + + 12 + + + + + + + + + + + + + + + + + 0.46771cm @@ -4194,8 +3201,10 @@ - Percepciones y deducciones que en el aparecen a la fecha [@Empresa] no me adeuda - - 10 + 12 @@ -4224,10 +3233,12 @@ + + - 0.6cm + 0.52062cm @@ -4238,8 +3249,10 @@ - cantidad alguna por concepto de sueldos, ni ningun otro concepto analogo. - - 10 + 12 @@ -4268,10 +3281,12 @@ + + - 1.2cm + 0.98834cm @@ -4302,6 +3317,35 @@ + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -4424,7 +3468,7 @@ - + true true @@ -4435,6 +3479,39 @@ + + + Textbox243 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -4739,7 +3853,7 @@ - + true true @@ -4750,6 +3864,39 @@ + + + Textbox244 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + - Textbox298 @@ -4807,7 +3958,9 @@ - @@ -4974,13 +4116,13 @@ - 5.98179in + 3.76337in - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!SubProyecto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - 0.49417cm @@ -5509,14 +5279,13 @@ Lugar de expedición: 83220 Hermosillo - DsOC - 2.33057cm + 2.51578cm 0.15979cm - 5.44519cm - 19.84968cm + 5.0304cm + 19.84967cm 9 - 18.46717cm + 18.41425cm - 12 + 10 @@ -173,8 +167,6 @@ - - @@ -190,9 +182,7 @@ RECIBO DE NOMINA - + - 3 + 2 - @@ -224,9 +213,7 @@ - + + + - 5 + 4 - @@ -292,16 +276,11 @@ - - + + + - 3 - + + + + true + true + + + + + + + + + Textbox210 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + @@ -335,9 +344,7 @@ - + - 4 - - - + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + @@ -375,9 +446,7 @@ - + - 5 + 4 - @@ -418,9 +486,7 @@ - + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + true true @@ -531,9 +629,7 @@ =Parameters!Codigo.Value - + - - - 2pt 2pt 2pt 2pt + 3 + + - + true true @@ -565,15 +661,13 @@ - + @@ -588,7 +682,169 @@ - + + true + true + + + + + Días Trabajados + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!DiasLaborados.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Sueldo Correspondiente + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + true true @@ -596,9 +852,7 @@ =Parameters!NombreCompleto.Value - + - 2 + 3 - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - R.F.C - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - + true true - Afi I.M.S.S. - + + @@ -778,25 +905,108 @@ - + true true - =Parameters!NSS.Value - + Faltas + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!DiasFaltados.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + @@ -812,10 +1022,8 @@ 2pt - 2 - @@ -823,29 +1031,21 @@ - + true true - Departamento - - - - =Parameters!SubProyecto.Value - + R.F.C. + @@ -861,6 +1061,37 @@ 2pt + 2 + + + + + + + true + true + + + + + =Parameters!RFC.Value + + + 2pt + 2pt + 2pt + 2pt + + 3 @@ -868,31 +1099,21 @@ - + true true - Dias Trab. - - - - =Parameters!DiasLaborados.Value - + + + @@ -903,13 +1124,205 @@ 2pt + + + + + + true + true + + + + + Retardos + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!DiasRetardos.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + CURP + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + 2 - + + true + true + + + + + =Parameters!CURP.Value + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + true true @@ -917,15 +1330,13 @@ - + @@ -940,25 +1351,21 @@ - + true true - Periodo - + Días Vacaciones + + @@ -973,23 +1380,21 @@ - + true true - - + =Parameters!DiasVacaciones.Value + @@ -1002,6 +1407,110 @@ + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Tipo de Pago + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + @@ -1012,9 +1521,7 @@ =Parameters!TipoPeriodo.Value - + + 3 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + - + + true + true + + + + + Días Incapacidad + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!DiasIncapacidad.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Afi I.M.S.S. + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!NSS.Value + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Periodo de + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -1043,35 +1834,29 @@ =Parameters!FechaInicio.Value - + + + + + Black + 1pt 2pt 2pt @@ -1086,6 +1871,534 @@ + + 0.6cm + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha de Pago + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!FechaPago.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + 0.6cm @@ -1138,15 +2451,13 @@ 2pt - 7 + 5 - - @@ -1213,9 +2524,7 @@ Concepto - + - 3 + 2 - @@ -1259,9 +2567,7 @@ - + + + - 2 - @@ -1378,9 +2678,7 @@ Concepto - + + + + + 1pt - 1pt - 1pt - 1pt - 1pt + 2pt + 2pt + 2pt + 2pt - + true true @@ -1576,30 +2866,27 @@ =Fields!ConceptoP.Value - + - 1pt - 1pt - 1pt - 1pt + 2pt + 2pt + 2pt + 2pt - 3 + 2 - @@ -1610,9 +2897,7 @@ =IIf(not IsNothing(Fields!ConceptoP.Value) ORELSE Fields!ImporteP.Value >0,"$",Nothing) - + @@ -1665,10 +2949,8 @@ 2pt - 2 - @@ -1679,9 +2961,7 @@ =Fields!NoConceptoD.Value - + + + @@ -1813,7 +3088,7 @@ - 0.30896cm + 1.39375cm @@ -1825,9 +3100,7 @@ - + - - - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -1892,9 +3134,7 @@ - + + + + - - - - - - Textbox229 - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -2053,9 +3254,7 @@ - + + + + + + - - - - - - Textbox102 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - @@ -2316,9 +3462,7 @@ Total Percepciones - + + @@ -2436,10 +3577,8 @@ 2pt - 2 - @@ -2450,9 +3589,7 @@ - + + + @@ -2626,7 +3758,7 @@ - 0.36187cm + 0.6cm @@ -2638,9 +3770,7 @@ - + - - - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -2700,9 +3799,7 @@ - + + + + - - - - - - Textbox241 - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -2861,9 +3919,7 @@ - + + + + @@ -3046,7 +4095,7 @@ - 0.52062cm + 0.6cm @@ -3057,10 +4106,8 @@ - Recibí de la empresa arriba mencionada, - + + - 12 + 10 @@ -3089,12 +4136,10 @@ - - - 0.54708cm + 0.6cm @@ -3105,10 +4150,8 @@ - la cantidad neta a que este documento - + Recibí de la empresa arriba mencionada, la cantidad neta a que este documento se refiere, estando conforme con las + - 12 + 10 @@ -3137,60 +4180,10 @@ - - - 0.46771cm - - - - - true - true - - - - - se refiere, estando conforme con las - - - - - - 2pt - 2pt - 2pt - 2pt - - - 12 - - - - - - - - - - - - - - - - - 0.46771cm + 0.6cm @@ -3201,10 +4194,8 @@ - Percepciones y deducciones que en el - + Percepciones y deducciones que en el aparecen a la fecha [@Empresa] no me adeuda + - 12 + 10 @@ -3233,12 +4224,10 @@ - - - 0.52062cm + 0.6cm @@ -3249,10 +4238,8 @@ - aparecen especificados. - + cantidad alguna por concepto de sueldos, ni ningun otro concepto analogo. + - 12 + 10 @@ -3281,12 +4268,10 @@ - - - 0.98834cm + 1.2cm @@ -3317,35 +4302,6 @@ - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -3466,37 +4422,6 @@ - - - - true - true - - - - - - - - - Textbox243 - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -3507,9 +4432,7 @@ - + + + + + - - 2pt - 2pt - 2pt - 2pt - - - - @@ -3851,37 +4737,6 @@ - - - - true - true - - - - - - - - - Textbox244 - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -3892,9 +4747,7 @@ - + + + + + @@ -4116,13 +4974,13 @@ - 3.76337in + 5.98179in @@ -88,7 +88,7 @@ - + @@ -117,24 +117,9 @@ - + - - - - - - - - - - - - - - - - + diff --git a/RH/CalculoSBC.aspx.cs b/RH/CalculoSBC.aspx.cs index c715eed04..cddcad81f 100644 --- a/RH/CalculoSBC.aspx.cs +++ b/RH/CalculoSBC.aspx.cs @@ -1,5 +1,6 @@ using System; using System.Collections.Generic; +using System.Data; using System.Linq; using System.Web; using System.Web.UI; @@ -27,12 +28,12 @@ public partial class RH_CalculoSBC : ClsPaginas { using (ClsNominas objnom = new ClsNominas()) { - if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa,DdlTipo.SelectedValue.ToEntero(), TxtFechaPago.Text)) + if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero(), TxtFechaPago.Text)) { GVCalculosSBC.DataSource = objnom.DTSetResultados.Tables[0]; GVCFija.DataSource = objnom.DTSetResultados.Tables[0]; GVPV.DataSource = objnom.DTSetResultados.Tables[0]; - if(objnom.DTSetResultados.Tables.Count > 0) + if (objnom.DTSetResultados.Tables.Count >1) { GVDetalleParteVariable.DataSource = objnom.DTSetResultados.Tables[1]; GVDetalleParteVariable.DataBind(); @@ -75,8 +76,8 @@ public partial class RH_CalculoSBC : ClsPaginas //} foreach (GridViewRow item in GVCalculosSBC.Rows) { - double SalarioDiarioSSNuevo =Math.Round( item.DataKey("SalarioDiarioSSNuevo").ToDouble(),2); - double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(),2); + double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2); + double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2); if (SalarioDiarioSSNuevo != SalarioDiarioSS) { MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, item.DataKey("Movtotxt")); @@ -113,9 +114,9 @@ public partial class RH_CalculoSBC : ClsPaginas int CvePersonal = item.DataKey("CvePersonal").ToEntero();//,,, double SalarioDiario = item.DataKey("SalarioDiario").ToDouble(); double SDINuevo = item.DataKey("SDINuevo").ToDouble(); - double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(),2); + double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2); double SalarioVariableNuevo = item.DataKey("SalarioVariableNuevo").ToDouble(); - double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(),2); + double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2); if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario))) { @@ -141,22 +142,118 @@ public partial class RH_CalculoSBC : ClsPaginas protected void LnkDescargar_Click(object sender, EventArgs e) { - if (Tab.ActiveTab == TabSBC) + DataTable dt = GVToDT(GVCalculosSBC,"Salario"); + DataTable dtPF = GVToDT(GVCFija, "Parte fija"); + DataTable dtPV = GVToDT(GVPV, "Parte variable"); + DataTable dtPVD = GVToDT(GVDetalleParteVariable, "Detalle parte variable"); + + ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook(); + var libro = wb.AddWorksheet(dt); + var libroPF = wb.AddWorksheet(dtPF); + var libroPV = wb.AddWorksheet(dtPV); + var libroPVD = wb.AddWorksheet(dtPVD); + libro.ColumnsUsed().AdjustToContents(); + libroPF.ColumnsUsed().AdjustToContents(); + libroPV.ColumnsUsed().AdjustToContents(); + libroPVD.ColumnsUsed().AdjustToContents(); + + + libro.ColumnsUsed().AdjustToContents(); + libro.Row(1).InsertRowsAbove(5); + libro.Range(1, 2, 1, 6).Merge().Value = UsuarioActual.Empresa.Empresa; + libro.Range(2, 2, 2, 6).Merge().Value = $"Reporte de calculo de sbc {TxtFechaPago.Text}."; + libro.Range(1, 2, 2, 6).Style.Font.SetBold(true); + libro.Range(1, 2, 2, 6).Style.Font.SetFontSize(16); + libro.Range(2, 2, 2, 6).Style.Font.SetFontSize(14); + libro.Range(1, 2, 2, 6).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; + //libro.Range(3, 2, 3, 6).Merge().Value = $"del {fechai:dd/MM/yyyy} al {fechaf:dd/MM/yyyy}"; + libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now:dd/MM/yyyy}"; + libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now:HH:mm}"; + libro.Range(5, 6, 5, 9).Merge().Value = "Actual"; + libro.Range(5, 10, 5, 12).Merge().Value = "Nuevo"; + + libro.Range(5, 1, 6, 14).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; + + libro.Range(5, 1, 6, 13).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + libro.Range(5, 1, 5, 13).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.None; + + libro.Range(5, 6, 6, 9).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 100, 162)); + libro.Range(5, 6, 6, 9).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(5, 10, 6, 12).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(136, 214, 205)); + libro.Range(5, 10, 6, 12).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + + + libro.Range(7, 6, 7 + dt.Rows.Count, 12).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Right; + libro.Range(7, 6, 7+ dt.Rows.Count, 12).Style.NumberFormat.Format = "$##,###,###,0.00"; + + + + System.IO.Stream fs = new System.IO.MemoryStream(); + wb.SaveAs(fs); + fs.Position = 0; + System.IO.MemoryStream memoryStream = new System.IO.MemoryStream(); + using (System.IO.Stream input = fs) + { - GVCalculosSBC.ExportToExcel("Salario"); - } - if (Tab.ActiveTab == TabParteFija) - { - GVCFija.ExportToExcel("Salario"); - } - if (Tab.ActiveTab == TabParteVariable) - { - GVPV.ExportToExcel("Salario"); - } - if (Tab.ActiveTab == TabDetalleParteVariable) - { - GVDetalleParteVariable.ExportToExcel("Salario"); + input.CopyTo(memoryStream); } + memoryStream.Position = 0; + + Response.Clear(); + Response.Buffer = true; + + Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"; + Response.AddHeader("content-disposition", string.Format("attachment;filename={0}.xlsx", "Salario")); + Response.BinaryWrite(memoryStream.ToArray()); + Response.End(); + } + public string limpiarcelda( string celdatext) + { + celdatext = celdatext.Replace("
    ", "\r\n").Replace(" ", " "); + while (celdatext.Contains(" ")){ + celdatext = celdatext.Replace(" ", " "); + } + celdatext = celdatext.Replace("\n ", " "); + celdatext = celdatext.Replace("\r ", " "); + + return celdatext; + } + public DataTable GVToDT(GridView GridView, string NombreArchivoXLSX) + { + DataTable dt = new DataTable(NombreArchivoXLSX); + if (GridView != null && GridView.Rows.Count > 0) + { + int i = 0; + List ArrColumnasVisibles = new List(); // solo recorro las columnas visibles + + foreach (TableCell cell in GridView.HeaderRow.Cells) + { + string titulo = HttpUtility.HtmlDecode(Extensiones.ModExtensiones.TextoCelda(cell)).Trim(); + titulo = limpiarcelda( titulo); + if (GridView.Columns[i].Visible && titulo.Length > 0) + { + if (dt.Columns.Contains(titulo)) + titulo = titulo + i; + dt.Columns.Add(titulo); + ArrColumnasVisibles.Add(i); + } + i += 1; + } + i = 0; + + foreach (GridViewRow row in GridView.Rows) + { + dt.Rows.Add(); + i = 0; + foreach (int j in ArrColumnasVisibles) + { + dt.Rows[dt.Rows.Count - 1][i] = limpiarcelda(Extensiones.ModExtensiones.TextoCelda(row.Cells[j]).Replace("
    ", "\r\n")); + i = i + 1; + } + } + } + return dt; + } } \ No newline at end of file diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index 7fd4e727e..f6ba72b60 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -62,6 +62,9 @@
  • Descargar Excel
    • +
  • + Formato saldos iniciales +
  • Personalizar
    • @@ -77,6 +80,7 @@ +
  • diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index c915c826e..655ca2973 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -680,4 +680,366 @@ Partial Class RH_CatPersonal End If End Sub + Protected Sub LnkCargaMasiva_Click(sender As Object, e As EventArgs) + Dim wb As ClosedXML.Excel.XLWorkbook = New ClosedXML.Excel.XLWorkbook() + Dim libro = wb.AddWorksheet("Personal") + Dim crow As Integer = 1 + Dim ccol As Integer = 1 + + Dim colLugarNacimiento As Integer = 1 + Dim rowLugarNacimiento As Integer = 1 + +#Region "Regimen de contratación" + Dim Catalogos = wb.AddWorksheet("Catalogos") + crow = 1 + ccol = 1 + Dim colRegimenContratacion As Integer = 1 + Dim rowRegimenContratacion As Integer = 1 + Catalogos.Cell(crow, ccol).Value = "Regimen de contratación" + For Each row As DataRow In GlobalDTNomSatRegimenContratacion.Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveSATRegimenContratacion"), row("RegimenContratacion")) + Next + colRegimenContratacion = ccol + rowRegimenContratacion = crow +#End Region +#Region "Estado civil" + Dim colEstadoCivil As Integer = 1 + Dim rowEstadoCivil As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Estado civil" + For Each row As DataRow In GlobalDTEstadoCivil.Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEstadoCivil"), row("EstadoCivil")) + Next + colEstadoCivil = ccol + rowEstadoCivil = crow +#End Region +#Region "Escolaridad" + Dim colEscolaridad As Integer = 1 + Dim rowEscolaridad As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Escolaridad" + For Each row As DataRow In GlobalDTEscolaridad.Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEscolaridad"), row("Escolaridad")) + Next + colEscolaridad = ccol + rowEscolaridad = crow + +#End Region +#Region "Tipo Periodo" + Dim colTipoPeriodo As Integer = 1 + Dim rowTipoPeriodo As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Tipo Periodo" + For Each row As DataRow In GlobalDTTipoPeriodo.Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveTipoPeriodo"), row("TipoPeriodo")) + Next + colTipoPeriodo = ccol + rowTipoPeriodo = crow + +#End Region +#Region "Estatus" + Dim colEstatusPersonal As Integer = 1 + Dim rowEstatusPersonal As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Estatus" + For Each row As DataRow In GlobalDTEstatusPersonal.Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEstatusPersonal"), row("EstatusPersonal")) + Next + colEstatusPersonal = ccol + rowEstatusPersonal = crow + +#End Region +#Region "Tipo Contratro" + Dim colTipoContrato As Integer = 1 + Dim rowTipoContrato As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Tipo Contratro" + For Each row As DataRow In GlobalDTTiposContrato.Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}", row("TipoContrato")) + Next + colTipoContrato = ccol + rowTipoContrato = crow + +#End Region +#Region "Departamento" + Dim colDepartamento As Integer = 1 + Dim rowDepartamento As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Departamento" + For Each row As DataRow In GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveDepartamento"), row("Departamento")) + Next + colDepartamento = ccol + rowDepartamento = crow + +#End Region +#Region "Turno" + Dim colTurno As Integer = 1 + Dim rowTurno As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Turno" + For Each row As DataRow In GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveTurno"), row("Turno")) + Next + colTurno = ccol + rowTurno = crow + +#End Region +#Region "Puesto" + Dim colPuesto As Integer = 1 + Dim rowPuesto As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Puesto" + For Each row As DataRow In GlobalDTRHPuestos(UsuarioActual.CveEmpresa).Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CvePuesto"), row("Puesto")) + Next + colPuesto = ccol + rowPuesto = crow + +#End Region +#Region "Estado" + Dim colEstado As Integer = 1 + Dim rowEstado As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Estado" + For Each row As DataRow In GlobalDTGralEstados(1).Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEstado"), row("Estado")) + Next + colEstado = ccol + rowEstado = crow + +#End Region +#Region "Tipo salario" + + Dim colTipoSalario As Integer = 1 + Dim rowTipoSalario As Integer = 1 + + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Tipo salario" + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = "1: Salario fijo" + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = "2: Salario variable" + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = "3: Salario mixto" + colTipoSalario = ccol + rowTipoSalario = crow + +#End Region +#Region "Genero" + Dim colSexo As Integer = 1 + Dim rowSexo As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Genero" + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = "1: Masculino" + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = "2: Femenino" + colSexo = ccol + rowSexo = crow + +#End Region +#Region "Sindicalizado" + Dim colsindicalizado As Integer = 1 + Dim rowsindicalizado As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Sindicalizado" + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = "1: Sí" + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = "0: No" + colsindicalizado = ccol + rowsindicalizado = crow + +#End Region +#Region "Area geografica" + Dim colAreaGeografica As Integer = 1 + Dim rowAreaGeografica As Integer = 1 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Area geografica" + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = "A" + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = "B" + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = "C" + colAreaGeografica = ccol + rowAreaGeografica = crow + +#End Region +#Region "Metodo pago" + Dim colmetodopago = 0 + Dim rowmetodopago = 0 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "Metodo pago" + For Each row As DataRow In GlobalDTMetodosPago.Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveMetodoPago"), row("MetodoPago")) + Next + colmetodopago = ccol + rowmetodopago = crow + +#End Region + +#Region "subproyecto" + Dim colsubproyecto = 0 + Dim rowsubproyecto = 0 + crow = 1 + ccol = ccol + 1 + Catalogos.Cell(crow, ccol).Value = "subproyecto" + Dim dtsubproyecto = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) + For Each row As DataRow In dtsubproyecto.Rows + crow = crow + 1 + Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveSubProyecto"), row("SubProyecto")) + Next + colsubproyecto = ccol + rowsubproyecto = crow + +#End Region + Catalogos.Range(1, 1, 1, ccol).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)) + Catalogos.Range(1, 1, 1, ccol).Style.Font.FontColor = ClosedXML.Excel.XLColor.White + + crow = 1 + ccol = 1 + + libro.Cell(crow, ccol).Value = "Código" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Apellido Paterno" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Apellido Materno" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Nombre" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Correo Electronico" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Fecha Nacimiento" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Sexo" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colSexo, rowSexo, colSexo), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Lugar Nacimiento" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Dirección" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Ciudad" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Estado Civil" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colEstadoCivil, rowEstadoCivil, colEstadoCivil), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Teléfono" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Celular" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "RFC" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "CURP" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Numero SS" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "CLABE" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Fecha Ingreso" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Fecha Baja" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Alta IMSS" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Código Postal" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Estatus Personal" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colEstatusPersonal, rowEstatusPersonal, colEstatusPersonal), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Estado" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colEstado, rowEstado, colEstado), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Nombre Padre" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Nombre Madre" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Puesto" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colPuesto, rowPuesto, colPuesto), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Turno" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colTurno, rowTurno, colTurno), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Tipo Contrato" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colTipoContrato, rowTipoContrato, colTipoContrato), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Departamento" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colDepartamento, rowDepartamento, colDepartamento), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Tipo Periodo" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colTipoPeriodo, rowTipoPeriodo, colTipoPeriodo), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Escolaridad" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colEscolaridad, rowEscolaridad, colEscolaridad), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Salario Diario" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Tipo Salario" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colTipoSalario, rowTipoSalario, colTipoSalario), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Salario variable" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Sindicalizado" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colsindicalizado, rowsindicalizado, colsindicalizado), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "SubProyecto " : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colsubproyecto, rowsubproyecto, colsubproyecto), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "RegimenContratacion" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colRegimenContratacion, rowRegimenContratacion, colRegimenContratacion), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Area Geografica" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colAreaGeografica, rowAreaGeografica, colAreaGeografica), True) : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Prima vacacional" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Dias aguinaldo" : ccol = ccol + 1 + libro.Cell(crow, ccol).Value = "Metodo Pago" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colmetodopago, rowmetodopago, colmetodopago), True) : ccol = ccol + 1 + + + + + libro.Range(crow, 1, crow, ccol - 1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)) + libro.Range(crow, 1, crow, ccol - 1).Style.Font.FontColor = ClosedXML.Excel.XLColor.White + + Catalogos.ColumnsUsed().AdjustToContents() + libro.ColumnsUsed().AdjustToContents() + 'AreaGeografica ABC + 'GlobalDTMetodosPago MetodoPago" DataValueField="CveMetodoPago + + + Dim fs As System.IO.Stream = New System.IO.MemoryStream() + wb.SaveAs(fs) + fs.Position = 0 + Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream() + + Using input As System.IO.Stream = fs + input.CopyTo(memoryStream) + End Using + + memoryStream.Position = 0 + Response.Clear() + Response.Buffer = True + Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet" + Response.AddHeader("content-disposition", String.Format("attachment;filename=SaldosInicialesRH.xlsx", "")) + Response.BinaryWrite(memoryStream.ToArray()) + Response.[End]() + 'Using nom As ClsNominas = New ClsNominas() + + ' If nom.ReportedePercepcionesDeduccionesGet(UsuarioActual.CveEmpresa, fechai, fechaf, 4) Then + ' Dim dt As DataTable = nom.DTSetResultados.Tables(0) + ' Dim libro = wb.AddWorksheet(nom.DTSetResultados.Tables(0), "Percepciones y deducciones") + ' libro.Tables.FirstOrDefault().Theme = ClosedXML.Excel.XLTableTheme.None + ' Dim crow As Integer = 1 + + ' For Each item As DataRow In dt.Rows + ' crow += 1 + + ' Select Case item("Grupoid").ToString() + ' Case "10" + ' libro.Range(crow, 1, crow, 9).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(184, 204, 228)) + ' Case "8", "11" + ' libro.Range(crow, 1, crow, 9).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)) + ' libro.Range(crow, 1, crow, 11).Style.Font.FontColor = ClosedXML.Excel.XLColor.White + ' Case "6" + ' libro.Range(crow, 1, crow, 9).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(216, 228, 188)) + ' Case "5", "7" + ' libro.Range(crow, 1, crow, 9).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(155, 187, 89)) + ' libro.Range(crow, 1, crow, 9).Style.Font.FontColor = ClosedXML.Excel.XLColor.White + ' Case "2" + ' Case "1", "3" + ' libro.Range(crow, 1, crow, 9).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(75, 172, 198)) + ' libro.Range(crow, 1, crow, 9).Style.Font.FontColor = ClosedXML.Excel.XLColor.White + ' End Select + ' Next + + ' libro.Range(2, 4, crow, 9).Style.NumberFormat.Format = "$##,###,###,0.00" + ' libro.Range(2, 4, crow, 9).DataType = ClosedXML.Excel.XLDataType.Number + ' libro.Column(1).Delete() + ' libro.ColumnsUsed().AdjustToContents() + ' libro.Row(1).InsertRowsAbove(4) + ' libro.Range(1, 2, 1, 6).Merge().Value = UsuarioActual.Empresa.Empresa + ' libro.Range(2, 2, 2, 6).Merge().Value = $"Reporte de percepciones y deducciones del {fechai} al {fechaf}" + ' libro.Range(1, 2, 2, 6).Style.Font.SetBold(True) + ' libro.Range(1, 2, 2, 6).Style.Font.SetFontSize(16) + ' libro.Range(2, 2, 2, 6).Style.Font.SetFontSize(14) + ' libro.Range(1, 2, 2, 6).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center + ' libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now}" + ' libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now}" + ' End If + 'End Using + End Sub End Class +S \ No newline at end of file diff --git a/RH/DiasFestivos.aspx b/RH/DiasFestivos.aspx new file mode 100644 index 000000000..1be34aea1 --- /dev/null +++ b/RH/DiasFestivos.aspx @@ -0,0 +1,79 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="DiasFestivos.aspx.cs" Inherits="RH_DiasFestivos" %> + + + + + + +Catalogo de días festivos + + + + +
  • días festivos
    • + + + + + + + + + + + + + + + <%-- + + + + --%> + + + + + + + + + + + + + + diff --git a/RH/DiasFestivos.aspx.cs b/RH/DiasFestivos.aspx.cs new file mode 100644 index 000000000..4304fdcd7 --- /dev/null +++ b/RH/DiasFestivos.aspx.cs @@ -0,0 +1,74 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; + +public partial class RH_DiasFestivos : ClsPaginas +{ + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + CargaDiasFestivos(); + } + + } + + + protected void CargaDiasFestivos() + { + ClsRH ObjDias = new ClsRH(); + ObjDias.DiasFestivosGet(UsuarioActual.CveEmpresa ); + GVDiasFestivos.DataSource = ObjDias.DtResultados; + ObjDias.Dispose(); + GVDiasFestivos.DataBind(); + upDatosDias.Update(); + } + protected void LimpiaDiasFestivos() + { + TxtDiasfecha.Text = ""; + UPModalDias.Update(); + } + protected void LnkAgregarDias_Click(object sender, EventArgs e) + { + this.RegistraScript("$('#DModalDiasFestivos').modal();"); + LimpiaDiasFestivos(); + BtnDiasADD.Visible = true; + UPModalDias.Update(); + } + protected void BtnDiasADD_Click(object sender, EventArgs e) + { + + DateTime fecha = TxtDiasfecha.Text.ToDate(); + ClsRH ObjDias = new ClsRH(); + bool Continuar = ObjDias.DiasFestivosAdd(fecha, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario); + ObjDias.Dispose(); + if (Continuar) + { + this.RegistraScript("$('#DModalDiasFestivos').modal('hide');"); + LimpiaDiasFestivos(); + CargaDiasFestivos(); + UPModalDias.Update(); + this.Alert("El dìa festivos se ha agregado"); + } + } + protected void LnkEliminarDias_Click(object sender, EventArgs e) + { + GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + DateTime fecha = gvRow.DataKey("CveDiainabil").ToDateTime(); + ClsRH ObjDias = new ClsRH(); + bool Continuar = ObjDias.DiasFestivosRemove(fecha, UsuarioActual.CveEmpresa); + ObjDias.Dispose(); + if (Continuar) + { + CargaDiasFestivos(); + this.Alert("El dìa festivos se ha Eliminado"); + } + } + + + +} \ No newline at end of file From 0e3e0b50ef9b9ce5e217cea03dbc4f425204232b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 May 2021 14:19:42 -0700 Subject: [PATCH 12/25] - 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 13/25] -- 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 14/25] =?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 900aa1ae2c4e9d096fcbdfdc8d9c671f057b0fbe Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 20 May 2021 19:27:33 -0700 Subject: [PATCH 15/25] 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 16/25] 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 17/25] 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 18/25] -- 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 19/25] =?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 20/25] - 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 21/25] =?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 22/25] =?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 23/25] - 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 24/25] =?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 25/25] =?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