diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index baa716b43..0c1a2d1b9 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -1063,25 +1063,27 @@ Public Class ClsContPAQi Dim Retorno As Boolean = False StrSQL.Clear() - StrSQL.Append(" SELECT mp.id, mp.IdPoliza, mp.NumMovto, mp.IdCuenta , mp.IdCuenta as CveCuenta, c.CODIGO, c.NOMBRE as Cuenta , T.Codigo as CodigoTipoPoliza, T.Nombre AS TipoPoliza, mp.Folio, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre AS SegNeg, p.Fecha AS FechaPol, p.Cargos, p.Abonos, p.Concepto AS ConceptoPoliza, ") - StrSQL.Append(" CASE WHEN ISNUMERIC(c.Codigo) = 1 THEN FORMAT(CAST (c.Codigo AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.Codigo END + ' - ' + c.Nombre + ' ' AS CtaCodigo, ") 'Roberto 8/Nov/2014 - StrSQL.Append(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.Importe ELSE 0 END) AS Cargo, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.Importe ELSE 0 END) AS Abono, ") - StrSQL.Append(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.ImporteME ELSE 0 END) AS CargoME, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.ImporteME ELSE 0 END) AS AbonoME, ") - StrSQL.Append(" mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, '' as Estado,MAX(U.Nombre) AS UsuarioRegistro ") - StrSQL.Append(" FROM MovimientosPoliza mp ") - StrSQL.Append(" INNER JOIN Polizas p ON mp.IdPoliza = p.Id ") - StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ") - StrSQL.Append(" INNER JOIN TiposPolizas t ON mp.TipoPol = t.Codigo ") - StrSQL.Append(" LEFT JOIN SERVIDOR.Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") - StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ") - StrSQL.Append(" WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ") - StrSQL.Append(" AND (@Eje = -1 OR mp.Ejercicio = @Eje) ") - StrSQL.Append(" AND (@Periodo = -1 OR mp.Periodo = @Periodo) ") - StrSQL.Append(" AND (@TipoPol = -1 OR mp.TipoPol = @TipoPol) ") - StrSQL.Append(" AND (@NumPol = -1 OR mp.Folio = @NumPol) ") - StrSQL.Append(" ") - StrSQL.Append(" GROUP BY mp.id, mp.IdPoliza, mp.NumMovto, mp.IdCuenta, mp.TipoMovto, c.CODIGO, c.NOMBRE, T.Codigo, T.Nombre, mp.Folio, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre, p.Fecha, p.Cargos, p.Abonos, p.Concepto, Afectable ") 'Roberto 8/Nov/2014 campo Afectable - StrSQL.Append(" ORDER BY mp.IdPoliza, mp.NumMovto ") + StrSQL.AppendLine(" SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED; ") + StrSQL.AppendLine(" ") + StrSQL.AppendLine(" SELECT mp.id, mp.IdPoliza, mp.NumMovto, mp.IdCuenta , mp.IdCuenta as CveCuenta, c.CODIGO, c.NOMBRE as Cuenta , T.Codigo as CodigoTipoPoliza, T.Nombre AS TipoPoliza, mp.Folio, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre AS SegNeg, p.Fecha AS FechaPol, p.Cargos, p.Abonos, p.Concepto AS ConceptoPoliza, ") + StrSQL.AppendLine(" CASE WHEN ISNUMERIC(c.Codigo) = 1 THEN FORMAT(CAST (c.Codigo AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.Codigo END + ' - ' + c.Nombre + ' ' AS CtaCodigo, ") 'Roberto 8/Nov/2014 + StrSQL.AppendLine(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.Importe ELSE 0 END) AS Cargo, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.Importe ELSE 0 END) AS Abono, ") + StrSQL.AppendLine(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.ImporteME ELSE 0 END) AS CargoME, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.ImporteME ELSE 0 END) AS AbonoME, ") + StrSQL.AppendLine(" mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, '' as Estado,MAX(U.Nombre) AS UsuarioRegistro ") + StrSQL.AppendLine(" FROM MovimientosPoliza mp ") + StrSQL.AppendLine(" INNER JOIN Polizas p ON mp.IdPoliza = p.Id ") + StrSQL.AppendLine(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ") + StrSQL.AppendLine(" INNER JOIN TiposPolizas t ON mp.TipoPol = t.Codigo ") + StrSQL.AppendLine(" LEFT JOIN SIG_Resp_OIC.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") + StrSQL.AppendLine(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ") + StrSQL.AppendLine(" WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ") + StrSQL.AppendLine(" AND (@Eje = -1 OR mp.Ejercicio = @Eje) ") + StrSQL.AppendLine(" AND (@Periodo = -1 OR mp.Periodo = @Periodo) ") + StrSQL.AppendLine(" AND (@TipoPol = -1 OR mp.TipoPol = @TipoPol) ") + StrSQL.AppendLine(" AND (@NumPol = -1 OR mp.Folio = @NumPol) ") + StrSQL.AppendLine(" ") + StrSQL.AppendLine(" GROUP BY mp.id, mp.IdPoliza, mp.NumMovto, mp.IdCuenta, mp.TipoMovto, c.CODIGO, c.NOMBRE, T.Codigo, T.Nombre, mp.Folio, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre, p.Fecha, p.Cargos, p.Abonos, p.Concepto, Afectable ") 'Roberto 8/Nov/2014 campo Afectable + StrSQL.AppendLine(" ORDER BY mp.IdPoliza, mp.NumMovto ") SqlDataAdapter(StrSQL.ToString, CommandType.Text) With SqlAdapter.SelectCommand.Parameters diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 587676f40..e5a748ea3 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -388,7 +388,7 @@ Public Class ClsContabilidad Public Function GetProveedoresAuxiliar(CveProveedor As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, - Optional Opcion As Integer = 1, Optional CveTipoProveedor As Integer = -1) As Boolean + Optional Opcion As Integer = 1, Optional CveTipoProveedor As Integer = -1, Optional Contabilizable As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_ProveedoresAuxiliar") @@ -402,6 +402,7 @@ Public Class ClsContabilidad .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor + .Add("@Contabilizable", SqlDbType.Int).Value = Contabilizable End With Try diff --git a/Bancos/RepProgramarRecursos.aspx b/Bancos/RepProgramarRecursos.aspx index 4867d2c07..e7232caa1 100644 --- a/Bancos/RepProgramarRecursos.aspx +++ b/Bancos/RepProgramarRecursos.aspx @@ -1,391 +1,392 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepProgramarRecursos.aspx.vb" Inherits="Bancos_RepProgramarRecursos" %> - -<%@ Import Namespace="Extensiones" %> - - - - - - - -
  • - PDF -
    • - -
  • - Excel -
    • - -     - - Programación de Recursos - - - - - - - -
    -
    -
    - - "> - -
    -
    -
    -
    Proveedor:
    -
    - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepProgramarRecursos.aspx.vb" Inherits="Bancos_RepProgramarRecursos" %> + +<%@ Import Namespace="Extensiones" %> + + + + + + + +
  • + PDF +
    • + +
  • + Excel +
    • + +     + + Programación de Recursos + + + + + + + +
    +
    +
    + + "> + +
    +
    +
    +
    Proveedor:
    +
    + <%-- - --%> -
    -
    Clasificaciones:
    -
    - - - - -
    - +
    Clasificaciones:
    +
    + + + + +
    + -
    Aplica NC:
    -
    - - - - - -<%-- --%> -
    - -
    - - -
    - - - - - - - - - - - -
    -     -     -
    -
    -
    -
    -
    > -
    -
    Tipo Prov.:
    -
    - - - - - - -
    -
    F.I.:
    -
    -
    - - - - - - - - - - -
    -
    -
    F.F.:
    -
    -
    - - - - - - - - - - -
    -
    - - -
    -
    -
    Moneda:
    -
    - - - -
    -
    F.I.V.:
    -
    -
    - - - - - - - - - - -
    -
    -
    F.F.V.:
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    Registró:
    -
    - - -
    -
    Responsable:
    -
    - - - -
    -
    -
    - - - - -
    -
    -
    -
    Estatus:
    -
    - - - -
    -
    Proyecto:
    -
    - - - -
    -
    SubProyecto:
    -
    - - - - - - - -
    -
    Comprobación:
    -
    - - - - - -
    -
    -
    -
    -     -     -     -     - - - - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - -
    -
    -
    -
    - - Total -
    -
    Pesos
    -
    - -
    -
    Dólares
    -
    - -
    -
    T.C.
    -
    - -
    -
    Total
    -
    - -
    - -
    - -
    -
    - - - -
    -
    - - Programación -
    -
    - -
    -
    -
    -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    - - - - - -
    -
    - -     -
    -
    -
    - - - - - - - <%# Eval("RazonSocial")%> - - -
    -  /  -
    -     -     + +
    +
    Aplica NC:
    +
    + + + + + + <%-- --%> +
    + +
    + + +
    + + + + + + + + + + + +
    +     +     +
    +
    +
    +
    +
    > +
    +
    Tipo Prov.:
    +
    + + + + + + +
    +
    F.I.:
    +
    +
    + + + + + + + + + + +
    +
    +
    F.F.:
    +
    +
    + + + + + + + + + + +
    +
    + + +
    +
    +
    Moneda:
    +
    + + + +
    +
    F.I.V.:
    +
    +
    + + + + + + + + + + +
    +
    +
    F.F.V.:
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    Registró:
    +
    + + +
    +
    Responsable:
    +
    + + + +
    +
    +
    + + + + +
    +
    +
    +
    Estatus:
    +
    + + + +
    +
    Proyecto:
    +
    + + + +
    +
    SubProyecto:
    +
    + + + + + + + +
    +
    Comprobación:
    +
    + + + + + +
    +
    +
    +
    + + + + + + + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + +
    +
    +
    +
    + + Total +
    +
    Pesos
    +
    + +
    +
    Dólares
    +
    + +
    +
    T.C.
    +
    + +
    +
    Total
    +
    + +
    + +
    + +
    +
    + + + +
    +
    + + Programación +
    +
    + +
    +
    +
    +
    + +
    + +
    + +
    + +
    + +
    + +
    + +
    + +
    + + + + + +
    +
    + +     +
    +
    +
    + + + + + + + <%# Eval("RazonSocial")%> + + +
    +  /  +
    +     +     <%--
    @@ -402,158 +403,169 @@ - --%> - - - -
    -   -
    -     - - - -     - + --%> + + + +
    +   +
    +     + + + +     + <%-- Aplica NC - --%> - - - -
    -   -
    -     - - - -     - - - -
    -   -
    -     - - - -     - - -
    -   -
    -     - - - -     - - -
    -   -
    -     - - - -     - - -
    -   -
    -     - - - - - -     - - -
    -   -
    -     - - - - -     - - -
    -   -
    -     - - - - - -     - - -
    + --%> + + + +
    +   +
    +     + + + +     + + + +
    +   +
    +     + + + +     + + +
    +   +
    +     + + + +     + + +
    +   +
    +     + + + +     + +<%-- +
    + +
    +     --%> + + + +     + + +
    +   +
    +     + + + + + +     + + +
    +   +
    +     + + + + +     + + +
    +   +
    +     + + + + + +     + + +
    Sel - - - - - - - -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +     + + + +     +     +     +
    +
    +
    + +     + +     + + + + + + + + + + + + + + + + + + + + + + +     +     + +     + + + + + + + + - + + - - + + + diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index af93c7aca..5c2cd3230 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -342,7 +342,9 @@ Partial Class Bancos_RepProgramarRecursos LblPesosTotal.Text = String.Format("$ {0}", DtDatos.SUM("SaldoPesos", "CveCompra > 0").ToString.FormatoNumero()) LblAcumulado.Text = String.Format("$ {0}", DtDatos.MAX("TotalProgramado", "CveCompra > 0").ToString.FormatoNumero()) - End If + End If + + Gv.Columns(6).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0) Mov.Dispose() CargaGrid(Orden) @@ -434,19 +436,41 @@ Partial Class Bancos_RepProgramarRecursos e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format(" $get('{0}').readOnly = !this.checked;", e.Row.FCTextBox("TxtS").ClientID)) 'cuando estan programado, el saldo es el importe programado, para saber el total que se limite el rango, debe de ser el saldo real, saldo + importeprogramado e.Row.FCTextBox("TxtS").Attributes.Add("onkeyup", String.Format("FnMonedaRango(this,{0});", e.Row.DBCampo("Original").ToDouble + e.Row.DBCampo("Abonado").ToDouble)) + End If + + + 'If UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto + ' e.Row.FCDropDownList("DdlCuenta").Visible = True + ' e.Row.FCDropDownList("DdlCuenta").DataSource = DtCuentas + ' e.Row.FCDropDownList("DdlCuenta").DataBind() + + ' e.Row.FCDropDownList("DdlMov").Visible = True + ' e.Row.FCDropDownList("DdlMov").DataSource = DtTipoTransaccion + ' e.Row.FCDropDownList("DdlMov").DataBind() + + 'End If + + If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then + Dim Str As New StringBuilder + Str.AppendFormat("Importe Almacen: ${0} ({1}%)
    ", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje")) + If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%)
    ", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje")) + If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%)
    ", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje")) + Str.AppendFormat(" Importes SIN IVA") + + e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString) + Select Case e.Row.DBCampo("EstatusInventario").ToEntero + Case 1 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red + Case 2 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange + Case 3 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green + End Select End If - - 'If UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto - ' e.Row.FCDropDownList("DdlCuenta").Visible = True - ' e.Row.FCDropDownList("DdlCuenta").DataSource = DtCuentas - ' e.Row.FCDropDownList("DdlCuenta").DataBind() - - ' e.Row.FCDropDownList("DdlMov").Visible = True - ' e.Row.FCDropDownList("DdlMov").DataSource = DtTipoTransaccion - ' e.Row.FCDropDownList("DdlMov").DataBind() - - 'End If End If If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f5a0be724..14fe93b5f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -7904,6 +7904,7 @@ Partial Class Compras_Compras 'AJUSTA POLIZA If IdPoliza > 0 Then + PolizaFolio = ObjContaAC.Folio ObjContaAC.AjustaPoliza(IdPoliza) Msg.AppendFormat("

    Ver Póliza", IdPoliza) End If @@ -7914,35 +7915,43 @@ Partial Class Compras_Compras Msg.AppendFormat("
    Imprimir Entrada Almacen", TempParametros) End If - ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) - + If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then + TieneError = True + End If + If EntregaDirecta Then Msg.AppendFormat($"
    Recibir mercancía de entrega directa.") End If - ObjCompras.Commit() - If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() - - Dim CveEvaluacionProveedor As Integer = -1 - - If Me.RequiereEvaluacion Then - Dim ObjPro As New ClsCompProveedores() - CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa) - ObjPro.Dispose() - End If - - 'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC - MandaCorreoOCVendedores(CveCompra) - If Not ErrorMovInv Then - For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen - MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen) - Next - End If - - If CveEvaluacionProveedor > 0 Then - Msg.Append("

    El proveedor tiene evaluaciones pendientes
    ") - Msg.Append("¿Desea realizar una evaluacion al proveedor?") - Msg.AppendFormat($"
    Evaluar Proveedor.") + If Not TieneError Then + ObjCompras.Commit() + If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() + + Dim CveEvaluacionProveedor As Integer = -1 + + If Me.RequiereEvaluacion Then + Dim ObjPro As New ClsCompProveedores() + CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa) + ObjPro.Dispose() + End If + + 'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC + MandaCorreoOCVendedores(CveCompra) + If Not ErrorMovInv Then + For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen + MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen) + Next + End If + + If CveEvaluacionProveedor > 0 Then + Msg.Append("

    El proveedor tiene evaluaciones pendientes
    ") + Msg.Append("¿Desea realizar una evaluacion al proveedor?") + Msg.AppendFormat($"
    Evaluar Proveedor.") + End If + Else + ObjCompras.RollBack() + If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() + Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError) End If Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 297531b36..38f493d93 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1067,36 +1067,51 @@ Partial Class PopUpVerFactura If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal)) ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total") - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtNCVinculadas = ObjVentas.DtResultados + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then + If Vta.TipoDocto.Contiene("Dev") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" + End If + End If + End If End If End If Else - If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then - 'carga as notas de credito vinculadas - If ObjVentas.GetVentasAntNC(CveVenta, -1) Then - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") - End If - End If + 'If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then + ' 'carga as notas de credito vinculadas + ' If ObjVentas.GetVentasAntNC(CveVenta, -1) Then + ' Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + ' End If + 'End If - If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then - If ObjVentas.GetVentasAntNC(-1, CveVenta) Then + If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then + + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtNCVinculadas = ObjVentas.DtResultados Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then If Vta.TipoDocto.Contiene("Dev") Then Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" End If - End If + End If End If End If End If 'End If - If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then - If ObjVentas.GetVentasAntNC(-1, CveVenta) Then - Vta.DtNCVinculadas = ObjVentas.DtResultados - End If - End If + 'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then + ' 'If ObjVentas.GetVentasAntNC(-1, CveVenta) Then + ' ' Vta.DtNCVinculadas = ObjVentas.DtResultados + ' 'End If + ' If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + ' Vta.DtNCVinculadas = ObjVentas.DtResultados + ' End If + 'End If End If ObjVentas.Dispose() diff --git a/Compras/ProveedoresAuxiliar.aspx b/Compras/ProveedoresAuxiliar.aspx index 8afae6a37..4ef950a21 100644 --- a/Compras/ProveedoresAuxiliar.aspx +++ b/Compras/ProveedoresAuxiliar.aspx @@ -131,6 +131,14 @@
    + +
    + + + + + +
    diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb index 9b727b010..926764dfe 100644 --- a/Compras/ProveedoresAuxiliar.aspx.vb +++ b/Compras/ProveedoresAuxiliar.aspx.vb @@ -81,7 +81,7 @@ Partial Class Compras_ProveedoresAuxiliar 'Falta PA If ObjConta.GetProveedoresAuxiliar(DdlProveeedores.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, - DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero) Then + DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero, DdlOpcionContabilizable.SelectedValue.ToEntero) Then If DdlOpcion.SelectedValue.ToEntero = 2 Then GvP.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 5 AND Importe >= 0,0,1) = 1 ") Else diff --git a/Empresas/57/Formatos/Factura.rdlc b/Empresas/57/Formatos/Factura.rdlc index 4f06fc89a..b7edb3bc0 100644 --- a/Empresas/57/Formatos/Factura.rdlc +++ b/Empresas/57/Formatos/Factura.rdlc @@ -816,8 +816,15 @@ Normal + + + + + - =Parameters!RFC.Value + GOTE811117236 @@ -1304,7 +1311,7 @@ Textbox19 1.53208in - 0.04514in + 0.05471in 0.23611in 0.85387in 17 @@ -1379,9 +1386,8 @@ - Cuidad + Ciudad @@ -1391,7 +1397,7 @@ Textbox19 1.7682in - 0.04514in + 0.05471in 0.25in 0.85387in 19 @@ -4153,11 +4159,25 @@ Right + + + + Sucursal: + + + + + Textbox1 11.66812cm 0.10722cm - 2.31759cm + 2.54689cm 3.426cm 54 + + + @@ -130,7 +130,7 @@ =Fields!ConceptoContable.Value @@ -164,7 +164,7 @@ =Fields!TipoDocto.Value @@ -198,7 +198,7 @@ =Fields!SerieFolio.Value @@ -232,7 +232,7 @@ =Fields!FolioReferencia.Value @@ -266,7 +266,7 @@ =Fields!Cargo.Value @@ -301,7 +301,7 @@ =Fields!Abono.Value @@ -336,7 +336,7 @@ =Fields!Abreviatura.Value @@ -370,7 +370,8 @@ =Fields!CargoMN.Value @@ -404,7 +405,8 @@ =Fields!AbonoMN.Value @@ -435,7 +437,7 @@ - 0.8593cm + 0.59472cm true @@ -473,7 +475,7 @@ - 0.8593cm + 0.59472cm true @@ -511,7 +513,7 @@ - 0.8593cm + 0.59472cm true @@ -549,7 +551,7 @@ - 0.8593cm + 0.59472cm true @@ -587,7 +589,7 @@ - 0.8593cm + 0.59472cm true @@ -625,7 +627,7 @@ - 0.8593cm + 0.59472cm true @@ -663,7 +665,7 @@ - 0.8593cm + 0.59472cm true @@ -701,7 +703,7 @@ - 0.8593cm + 0.59472cm true @@ -710,7 +712,7 @@ - Moneda + Mon. @@ -739,7 +741,7 @@ - 0.8593cm + 0.59472cm true @@ -777,7 +779,7 @@ - 0.8593cm + 0.59472cm true @@ -831,7 +833,7 @@ =Fields!RazonSocial.Value @@ -860,8 +862,8 @@ DataSet1 0.75875cm 0.06614cm - 1.4593cm - 19.58715cm + 1.19472cm + 19.55393cm diff --git a/Empresas/Grales/Formatos/Conciliacion.rdlc b/Empresas/Grales/Formatos/Conciliacion.rdlc index c00b8a81b..cfcc22af8 100644 --- a/Empresas/Grales/Formatos/Conciliacion.rdlc +++ b/Empresas/Grales/Formatos/Conciliacion.rdlc @@ -2017,7 +2017,7 @@ - Contralor + Contador HTML