diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index fb3ada64a..e8561324b 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5818,26 +5818,6 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetAlmacenContable(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean - Dim Retorno = False - - DataAdapter("PA_Conta_AlmacenRepGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio - .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Me.OnError("Ocurrió un error al obtener el almacén contable", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function Public Function GetCuentasAsignaciones(CveEmpresa As Integer) As Boolean Dim Retorno = False diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 452aab6f8..d5147673d 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4857,7 +4857,7 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad2/RepSituacionFinanciera.aspx".ToUpper(), 586) PaginaDict.Add("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 587) - PaginaDict.Add("/Contabilidad2/RepAlmacenConta.aspx".ToUpper(), 539) + PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoMensual.aspx".ToUpper(), 589) PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoAnual.aspx".ToUpper(), 593) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 7339893cb..f0da08cbc 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -2822,7 +2822,7 @@
-
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 3de4b8463..321e6468c 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1444,6 +1444,7 @@ Partial Class Compras_Compras DivEsNoDeducible.Visible = True DivActualizarVincular.Visible = True + DVModalAnticipoFechaEjecucion.Visible = True Else @@ -9338,7 +9339,7 @@ Partial Class Compras_Compras If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}" 'Agregamos el Opuesto del 22 -> 15 If ImporteMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoAnticipo) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoAnticipo) Then ErrorMovtosCxP = 1 Exit For End If diff --git a/Contabilidad2/RepAlmacenConta.aspx b/Contabilidad2/RepAlmacenConta.aspx deleted file mode 100644 index d284c2557..000000000 --- a/Contabilidad2/RepAlmacenConta.aspx +++ /dev/null @@ -1,76 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAlmacenConta.aspx.vb" Inherits="Contabilidad2_RepAlmacenConta" %> - - - - - - - Reporte Almacen Contable - - - - - - - - - - - -
-
-
- - "> - -
-
-
-
Fecha Inicio:
-
-
- - - - -
- - -
- -
Fecha Fin:
-
-
- - - - -
- - -
- -
-
-
-
- - - - - - - - - - - - - - - - - - - - diff --git a/Contabilidad2/RepAlmacenConta.aspx.vb b/Contabilidad2/RepAlmacenConta.aspx.vb deleted file mode 100644 index 4d9a0c9b9..000000000 --- a/Contabilidad2/RepAlmacenConta.aspx.vb +++ /dev/null @@ -1,34 +0,0 @@ -Imports Extensiones - -Partial Class Contabilidad2_RepAlmacenConta - Inherits ClsPaginas - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not IsPostBack Then - - End If - End Sub - - Private Sub CargaDatos() - Dim objInv As New ClsContabilidad - - Dim FechaI, FechaF As Date - FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim().ToDate, MinFecha) - FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim().ToDate, MaxFecha) - - - If objInv.GetAlmacenContable(FechaI, FechaF, UsuarioActual.CveEmpresa) Then - GVAlmacen.DataSource = objInv.DtResultados - - End If - objInv.Dispose() - GVAlmacen.DataBind() - End Sub - - Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click - CargaDatos() - UpDatos.Update() - End Sub - - -End Class