From 9beaef3de315d05057ffdde60886ff0996b68645 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 23 Jun 2020 21:04:32 -0700 Subject: [PATCH 1/4] -- guias --- General/RepPaqueteriasGuias.aspx.cs | 2 +- Inventarios/EntregasPorRealizar.aspx.cs | 29 ++++--------------------- 2 files changed, 5 insertions(+), 26 deletions(-) diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index f946bcb53..5f712341a 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -228,7 +228,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas protected void CargaPaqueteriasGuiasTipo() { - DdlTipo.DataSource = get_GlobalDTPaqueteriaGuiaTipos(UsuarioActual.CveEmpresa); + DdlTipo.DataSource = get_GlobalDTPaqueteriaGuiaTipos(UsuarioActual.CveEmpresa).FiltraParametros("Consultable = 'True'"); DdlTipo.DataBind(); DdlTipo.Items.Insert(0, new ListItem("Todos ", "-1")); diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs index 1895e37b9..180074919 100644 --- a/Inventarios/EntregasPorRealizar.aspx.cs +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -10,18 +10,7 @@ using Microsoft.Reporting.WebForms; public partial class Inventarios_EntregasPorRealizar : ClsPaginas { - private DataTable DtPaqueteriasGuias - { - get - { - return (ViewState["DtPaqueteriasGuias"] == null) ? null : (DataTable)ViewState["DtPaqueteriasGuias"]; - } - set - { - ViewState["DtPaqueteriasGuias"] = value; - } - } - + protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) @@ -97,10 +86,10 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas if (ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa)) { GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados; - DtPaqueteriasGuias = ObjGeneral.DtResultados; - GvPaqueteriasGuias.DataBind(); + } ObjGeneral.Dispose(); + GvPaqueteriasGuias.DataBind(); } private void CargarPersonal() @@ -110,15 +99,5 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas DdlUsuario.DataBind(); DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1")); } - - protected void LnkImprimir_Click(object sender, EventArgs e) - { - List RepParams = new List(); - string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos"; - RepParams.Add(new ReportParameter("Fecha", DateTime.Today.ToString())); - RepParams.Add(new ReportParameter("AsignadoA", Usuario)); - RepParams.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); - - ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF",RDSName:"DsInventarios"); - } + } \ No newline at end of file From cb87c38fa30122cee16a3fedda64d93585f6e34d Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 24 Jun 2020 15:23:02 -0700 Subject: [PATCH 2/4] titulo nombre de concepto --- Ventas/Ventas.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 0788c929b..972ea330f 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3288,7 +3288,7 @@ - Correo Notificacion:  + Correo Notificación Usuario Final:   From 8956ae383660507a495ba89d7e7743859f8f81af Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 24 Jun 2020 19:19:04 -0700 Subject: [PATCH 3/4] columnas de ret iva. servicios --- Contabilidad/RepIVA.aspx | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx index ab77a2796..ac20c6490 100644 --- a/Contabilidad/RepIVA.aspx +++ b/Contabilidad/RepIVA.aspx @@ -123,6 +123,7 @@ + @@ -196,6 +197,7 @@ + From 5f5d89d839c8eac7a63ca49405efe505c4d1a62f Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 24 Jun 2020 19:19:22 -0700 Subject: [PATCH 4/4] --no aplica ajuste en movs de almacen, al cambiar el pu --- OC/OC.aspx.vb | 96 +++++++++++++++++++++++++-------------------------- 1 file changed, 48 insertions(+), 48 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 5e3c087b2..62d30797d 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2811,52 +2811,52 @@ Partial Class OC End If 'AJUSTES EN INVENTARIO - For Each DrDiferencias As DataRow In DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,2)", "", {"CveAlmacen", "ConceptoSalida", "CveMovimiento"}).Rows - CveAlmacen = DrDiferencias("CveAlmacen").ToString.ToEntero - CveMovimientoAlmacen = DrDiferencias("CveMovimiento").ToString.ToEntero - ConceptoSalida = DrDiferencias("ConceptoSalida").ToString.ToEntero + 'For Each DrDiferencias As DataRow In DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,2)", "", {"CveAlmacen", "ConceptoSalida", "CveMovimiento"}).Rows + ' CveAlmacen = DrDiferencias("CveAlmacen").ToString.ToEntero + ' CveMovimientoAlmacen = DrDiferencias("CveMovimiento").ToString.ToEntero + ' ConceptoSalida = DrDiferencias("ConceptoSalida").ToString.ToEntero - DiferenciaInvOC = DtInvOCDiferencias.SUMD("Diferencia", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}") - TCInvOC = DtInvOCDiferencias.FiltroPrimeroValor("TipoCambioAjuste", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}").ToDecimal - IdCtaContableAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero - CveCuentaAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero + ' DiferenciaInvOC = DtInvOCDiferencias.SUMD("Diferencia", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}") + ' TCInvOC = DtInvOCDiferencias.FiltroPrimeroValor("TipoCambioAjuste", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}").ToDecimal + ' IdCtaContableAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero + ' CveCuentaAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero - 'MODIFICACIÓN CONCEPTO - If ConceptoSalida = 0 Then - For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 0").Rows - If Not ObjInventarios.UpdateMovimientoDetalle(DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, -1, DrAjuste("CveMovimientoDetalle").ToString.ToEntero, PUTC:=DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovtoDLLS", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble) Then - TieneError = True - Exit For - End If - Next - End If + ' 'MODIFICACIÓN CONCEPTO + ' If ConceptoSalida = 0 Then + ' For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 0").Rows + ' If Not ObjInventarios.UpdateMovimientoDetalle(DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, -1, DrAjuste("CveMovimientoDetalle").ToString.ToEntero, PUTC:=DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovtoDLLS", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble) Then + ' TieneError = True + ' Exit For + ' End If + ' Next + ' End If - 'SALIDA ADMINISTRATIVA (CON SALIDA POR TRASPASO) -AJUSTE - If ConceptoSalida = 2 Then - Dim CveMovimientoSalidaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, MovimientoFijo:=True, Modulo:="OC/G") - For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 2").Rows - If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaAjuste, DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("PU").ToString.ToDouble, -1, CveOrdenCompraDetalle:=DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero) Then - TieneError = True - Exit For - End If - Next - Dim CveMovimientoEntradaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Modulo:="OC/G") - If ObjInventarios.GetMovimientosDetalle(CveMovimientoSalidaAjuste, UsuarioActual.CveEmpresa) Then - For Each Dr As DataRow In ObjInventarios.DtResultados.Rows - If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoEntradaAjuste, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {Dr("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then - TieneError = True - Exit For - End If - Next - If TieneError Then - Exit For - End If - Else - TieneError = True - Exit For - End If - End If - Next + ' 'SALIDA ADMINISTRATIVA (CON SALIDA POR TRASPASO) -AJUSTE + ' If ConceptoSalida = 2 Then + ' Dim CveMovimientoSalidaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, MovimientoFijo:=True, Modulo:="OC/G") + ' For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 2").Rows + ' If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaAjuste, DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("PU").ToString.ToDouble, -1, CveOrdenCompraDetalle:=DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero) Then + ' TieneError = True + ' Exit For + ' End If + ' Next + ' Dim CveMovimientoEntradaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Modulo:="OC/G") + ' If ObjInventarios.GetMovimientosDetalle(CveMovimientoSalidaAjuste, UsuarioActual.CveEmpresa) Then + ' For Each Dr As DataRow In ObjInventarios.DtResultados.Rows + ' If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoEntradaAjuste, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {Dr("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then + ' TieneError = True + ' Exit For + ' End If + ' Next + ' If TieneError Then + ' Exit For + ' End If + ' Else + ' TieneError = True + ' Exit For + ' End If + ' End If + 'Next End If End If @@ -2918,11 +2918,11 @@ Partial Class OC 'COMMIT If Not TieneError Then - If MonedaTexto <> DdlMoneda.SelectedItem.Text Then - If Not OCBitacora.AddEventoBitacora(String.Format("Se cambió el valor de moneda de '{0}' a '{1}'", MonedaTexto, DdlMoneda.SelectedItem.Text), "-1", UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompra) Then - TieneError = True - End If - End If + 'If MonedaTexto <> DdlMoneda.SelectedItem.Text Then + ' If Not OCBitacora.AddEventoBitacora(String.Format("Se cambió el valor de moneda de '{0}' a '{1}'", MonedaTexto, DdlMoneda.SelectedItem.Text), "-1", UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompra) Then + ' TieneError = True + ' End If + 'End If OC.Commit() If Conta IsNot Nothing Then Conta.Commit()