From 10d9d6cb5feae3731b8e56b1363e55e45d494005 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 4 Oct 2024 16:27:08 -0700 Subject: [PATCH 01/18] -- que se puedan registrar NC de AF --- Compras/Compras.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 170fc058f..5b51e5a52 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6369,7 +6369,7 @@ Partial Class Compras_Compras If DifSubTotales > 0 Or (Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked)) Then 'AF TipoAF 2 Es para las compras DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1 ") - If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then + If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("DEV", "Ant") Then For Each Row2 As DataRow In DT.Rows importeMovimiento = If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, Row2("ImporteSinImpuestos").ToString.ToDecimal, Row2("Total").ToString.ToDecimal) importeMN = importeMovimiento * tipoCambioActual * Multiplicador From 6cdfc48bc6d781bcda5fc45fd80addd64973bb9f Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 4 Oct 2024 16:27:29 -0700 Subject: [PATCH 02/18] -- parametro contabilizable --- Inventarios/RecepcionAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index def2e8d5f..36010d5c9 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -3443,7 +3443,7 @@ Partial Class Inventarios_RecepcionAlmacen Exit For End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle, TotalCostoDetalle, CveConceptoContableCosto, SerieFolio, SerieFolio, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveSubProyecto:=CveSubProyecto, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle, TotalCostoDetalle, CveConceptoContableCosto, SerieFolio, SerieFolio, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveSubProyecto:=CveSubProyecto, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=EsContabilizable) Then ErrorMovInv = True Exit For End If From 697358047d74fb879d88d67ce4ec53542d9df7ff Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 4 Oct 2024 16:27:44 -0700 Subject: [PATCH 03/18] filtro Cliente pedidos STF --- App_Code/ClsVentas.vb | 3 ++- Ventas/RepPedidosSTF.aspx | 5 +++++ Ventas/RepPedidosSTF.aspx.vb | 15 ++++++--------- 3 files changed, 13 insertions(+), 10 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index eeaf57f4e..262aed25e 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1766,7 +1766,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetRepPedidosSTF(CveSubProyecto As Integer, CveVendedor As Integer, CveEmpresa As Integer, Opcion As Integer, FechaInicio As Date, FechaFin As Date) As Boolean + Public Function GetRepPedidosSTF(CveSubProyecto As Integer, CveVendedor As Integer, CveEmpresa As Integer, Opcion As Integer, FechaInicio As Date, FechaFin As Date, CveCliente As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PedidosSTFRep") @@ -1777,6 +1777,7 @@ Public Class ClsVentas .Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente End With Try diff --git a/Ventas/RepPedidosSTF.aspx b/Ventas/RepPedidosSTF.aspx index 625503cf3..710d69627 100644 --- a/Ventas/RepPedidosSTF.aspx +++ b/Ventas/RepPedidosSTF.aspx @@ -114,6 +114,11 @@ + +
+ + +
diff --git a/Ventas/RepPedidosSTF.aspx.vb b/Ventas/RepPedidosSTF.aspx.vb index 66871f51e..e0c22e6ab 100644 --- a/Ventas/RepPedidosSTF.aspx.vb +++ b/Ventas/RepPedidosSTF.aspx.vb @@ -33,9 +33,6 @@ Partial Class Ventas_RepPedidosSTF End Set End Property - - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -64,17 +61,17 @@ Partial Class Ventas_RepPedidosSTF DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor) DdlVendedor.Enabled = False End If + DdlClientes.setEsWebService(True) End Sub Protected Sub CargaDatos() - LnkImprimirPedidos.Visible = False - - - DatosGV = New DataTable Dim Opcion As Integer = 1 Dim FechaInicio As Date = MinFecha Dim FechaFin As Date = MaxFecha + Dim tCveCliente As Integer = DdlClientes.SelectedValue.ToEntero + LnkImprimirPedidos.Visible = False + DatosGV = New DataTable If TabG.ActiveTabIndex = 1 Then ' entregados Opcion = 2 @@ -82,7 +79,7 @@ Partial Class Ventas_RepPedidosSTF FechaFin = txtFechaF.Text.ToDate Dim ObjVentas As New ClsVentas - If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin) Then + If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin, tCveCliente) Then GvE.DataSource = ObjVentas.DtResultados End If @@ -92,7 +89,7 @@ Partial Class Ventas_RepPedidosSTF FechaInicio = txtFechaI.Text.ToDate FechaFin = txtFechaF.Text.ToDate Dim ObjVentas As New ClsVentas - If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin) Then + If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin, tCveCliente) Then DatosGV = ObjVentas.DtResultados DatosGV.Columns.Add("CantidadOrg", GetType(Decimal)) From 67bb092a957320f617d40871a280b1f8734d50c4 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 4 Oct 2024 16:28:18 -0700 Subject: [PATCH 04/18] =?UTF-8?q?--=20visualizaci=C3=B3n=20mensaje=20de=20?= =?UTF-8?q?comparativo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/ConciliacionesBancarias.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 8394d6218..d7655d6e1 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -279,8 +279,8 @@ Partial Class Bancos_ConciliacionesBancariasaspx End If End If Next - If SumaSIGAbono <> SumaExcelAbono Or SumaSIGCargo <> SumaExcelCargo Then - Alert("La suma de los importes no cuadran", TipoMensaje.MsgAdvertencia) + If SumaSIGCargo <> SumaExcelCargo OrElse SumaSIGAbono <> SumaExcelAbono Then + Alert($"La suma de los importes no cuadran ({SumaSIGCargo}-{SumaExcelCargo}**{SumaSIGAbono}-{SumaExcelAbono})", TipoMensaje.MsgAdvertencia) Exit Sub End If Dim ObjBancos As New ClsBancos From 2246590efdc86baee4a53c3163fb571e0de0bf11 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 4 Oct 2024 16:36:01 -0700 Subject: [PATCH 05/18] -- transferencias --- Bancos/DepositosCaja.aspx | 6 ++---- OC/OC.aspx.vb | 2 +- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 1c2baa635..8dc66da28 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -102,11 +102,11 @@ + - + - MSI 3M @@ -116,9 +116,7 @@ - -