From be7d50c7e93699c18fddbf0f00ff211f70a4710b Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Wed, 1 Mar 2023 16:27:20 -0700 Subject: [PATCH 01/12] OC ajuest etiqueta % de IVA en partidas --- App_Code/modExtensiones.vb | 26 ++++++++++++++++++++------ Compras/eFacturas.aspx.vb | 3 ++- CxC/RepCxCDetalle.aspx.vb | 2 +- OC/OC.aspx | 3 ++- 4 files changed, 25 insertions(+), 9 deletions(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index ed867167f..c9901fe10 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2405,21 +2405,35 @@ Namespace Extensiones Dim indexRowGV As Integer = 0 Dim cssClassRow As String = "" + Dim CountRowFiltros As Integer = -1 + If DatosFiltros.Trim.Length > 0 Then + CountRowFiltros = 0 + End If + For indexRow = 8 To worksheet.Rows.Count - 4 Try cssClassRow = GridView.Rows(indexRowGV).CssClass.Trim() Select Case cssClassRow + + Case "Totales" + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#67809f")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#ddd") + Exit Select Case "SubTotales2" - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#c0c0c0")) - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#000077") + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#c0c0c0")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#000077") + Exit Select Case "SubTotales" - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#dddddd")) - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#67809F") + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#dddddd")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#67809F") + Exit Select Case Else + Exit Select End Select Catch ex As Exception diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 8aa6f6ece..6f4633835 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -4276,11 +4276,12 @@ Partial Class Compras_eFacturas Alert($"PDF Error se genero nulo", TipoMensaje.MsgAdvertencia) End If + CargaDatos() + Catch ex As Exception Alert($"PDF Error {ex.Message} -- > {ex.StackTrace}", TipoMensaje.MsgAdvertencia) End Try - Alert("PDF Finaliza", TipoMensaje.MsgAdvertencia) diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index a62db7b56..c598ec10f 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -922,7 +922,7 @@ Partial Class RepCxCDetalle Dim Filtro As String = $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}{CorteA}" - ExportToExcelGembox(GvDatos, "ReporteCxCDetalle", UsuarioActual, "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE", DatoTituloExtra:=$"", DatosFiltros:=Filtro) + GvDatos.ExportToExcelGembox("ReporteCxCDetalle", UsuarioActual, "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE", DatoTituloExtra:=$"", DatosFiltros:=Filtro) 'GvDatos.ExportToExcelG("ReporteCxCDetalle", "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE", UsuarioActual, Filtro) 'SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet()) diff --git a/OC/OC.aspx b/OC/OC.aspx index 4b0f83c28..437fa1ea0 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -1029,7 +1029,8 @@ <%-- 8 --%> - + <%----%> + From 8c6ef5bb2ef17f66e05ab28bf445d8f2ba0a5c3d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 2 Mar 2023 10:13:02 -0700 Subject: [PATCH 02/12] =?UTF-8?q?--=20acomodo=20de=20informaci=C3=B3n=20de?= =?UTF-8?q?=20modal=20--=20carga=20de=20combo=20de=20marcas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Acumuladores/CatGarantiasMeses.aspx | 11 +---------- Acumuladores/CatGarantiasMeses.aspx.vb | 2 ++ 2 files changed, 3 insertions(+), 10 deletions(-) diff --git a/Acumuladores/CatGarantiasMeses.aspx b/Acumuladores/CatGarantiasMeses.aspx index 867b0fbc4..d9cca1c6c 100644 --- a/Acumuladores/CatGarantiasMeses.aspx +++ b/Acumuladores/CatGarantiasMeses.aspx @@ -189,7 +189,6 @@ Agregar Garantía de Mes
-
@@ -197,27 +196,19 @@
- -
-
-
-
- +
- -
-
diff --git a/Acumuladores/CatGarantiasMeses.aspx.vb b/Acumuladores/CatGarantiasMeses.aspx.vb index 190f4dd6c..1faba2cbf 100644 --- a/Acumuladores/CatGarantiasMeses.aspx.vb +++ b/Acumuladores/CatGarantiasMeses.aspx.vb @@ -76,6 +76,8 @@ Partial Class Acumuladores_CatFoliosGarantia DdlMarca.DataBind() DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) DdlMarca.SelectedValue = "-1" + DdlMarcaM.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa) + DdlMarcaM.DataBind() DdlTipoUso.DataSource = GlobalDTAcumTiposUso(UsuarioActual.CveEmpresa) DdlTipoUso.DataBind() From f6d1f1f0c9721bc2ad53d4de4e444d03166fad97 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 2 Mar 2023 11:17:23 -0700 Subject: [PATCH 03/12] -- acomodo de columnas --- Ventas/RepVentaDetalle.aspx | 28 +++++++---------- Ventas/RepVentaDetalle.aspx.vb | 57 +++++++++++++++------------------- 2 files changed, 37 insertions(+), 48 deletions(-) diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx index 303c51bf1..670edb5c3 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentaDetalle.aspx @@ -330,7 +330,7 @@ - + @@ -344,7 +344,7 @@ - + @@ -354,12 +354,12 @@ - + - + @@ -369,37 +369,37 @@ - + - + - + - + - + - + - + @@ -444,7 +444,7 @@ - + @@ -505,8 +505,6 @@ - - @@ -557,8 +555,6 @@ - - diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 04073217c..d0b713f61 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -289,21 +289,14 @@ Partial Class RepVentaDetalle Private Sub CargaCombos() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) - CargaClientes() - 'DdlClientes.setEsWebService(False) - - 'Dim ObjClientes As New ClsClientes - 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - ' DdlClientes.DataSource = ObjClientes.DtResultados - 'Else - ' DdlClientes.DataSource = Nothing - 'End If - 'ObjClientes.Dispose() - 'DdlClientes.DataBind() - - 'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1")) - - 'Vendedor + CargaClientes() + + + 'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString + txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString + + 'Vendedor DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataBind() DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2")) @@ -493,23 +486,23 @@ Partial Class RepVentaDetalle e.Row.FCLiteral("LtlFacturaCotizacion").Text = "" & e.Row.DBCampo("FolioVenta") & "" End If - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left - e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(10).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(11).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(12).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(13).HorizontalAlign = HorizontalAlign.Left - e.Row.Cells(14).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(15).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(20).HorizontalAlign = HorizontalAlign.Left + 'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left + 'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(10).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(11).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(12).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(13).HorizontalAlign = HorizontalAlign.Left + 'e.Row.Cells(14).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(15).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(20).HorizontalAlign = HorizontalAlign.Left If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = "-" From 84c9969f00de821768e367f78f33e246ca54da54 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Fri, 3 Mar 2023 09:55:17 -0700 Subject: [PATCH 04/12] Recepcion alamcen --- Compras/Compras.aspx.vb | 4 +- Inventarios/RecepcionAlmacen.aspx | 78 +++++++++++++++++++------------ OC/OC.aspx | 2 +- Sistemas/UsuarioDetalle.aspx.vb | 3 ++ 4 files changed, 53 insertions(+), 34 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 9a557b9a8..dd5ed58af 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -5467,7 +5467,7 @@ Partial Class Compras_Compras ' If DdlMoneda.SelectedValue.ToEntero = 1 Or (DdlMoneda.SelectedValue.ToEntero > 1 AndAlso GlobalTipoCambio(TxtFecha.Text.ToDate) > 0) Then ''ALMACEN CONSIGNACION - If CveConsignacion > 0 Then + If CveConsignacion > 0 AndAlso CveCompraRefacturacion <= 0 Then 'actualizamos cvecompraconsignacion For Each gvr As GridViewRow In GvInv.Rows @@ -5590,7 +5590,7 @@ Partial Class Compras_Compras Dim indice = 0 Dim ImporteConcepto As Decimal = 0 - If DdlTipoComprobante.SelectedValue = "Fac" Then + If DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0 Then For Each tCveAlmacen As Integer In ListAlmacenes If GvInv.Rows(indice).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index 35fdb222e..d66ae6da0 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -3,6 +3,11 @@ +
  • @@ -454,51 +459,62 @@ <%-- GV DATOS --%>
    -
    +
    Entrada a Inventario
    -
    +
    +
    - + + + + + + +
    + + + + + + + + +
    + + + + + + + +
    +
    + + +     +     + +     + + + +
    - - -
    -
    - - - <%-- --%> - - - - -
    - - - - - - - - - -
    -
    -
    -     -     + + diff --git a/OC/OC.aspx b/OC/OC.aspx index 437fa1ea0..db50d4266 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -1030,7 +1030,7 @@ <%----%> - + diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index ae83edfa9..4b7bbcf57 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1383,6 +1383,9 @@ Partial Class Sistemas_UsuarioDetalle GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing + If UsuarioActual.CveUsuario = 100 Then + Alert("Globals Recargados") + End If 'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") From 7a224cfd9938a8ad1ad9bcf9a8a8a8ba34efa4fa Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 3 Mar 2023 09:57:51 -0700 Subject: [PATCH 05/12] -- mejora en manejo de dolares/pesos/dolares --- Bancos/PagoAcreedor.aspx.cs | 202 ++++++++++++------------------------ 1 file changed, 67 insertions(+), 135 deletions(-) diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index a486cae6a..df4599748 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -73,20 +73,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas ViewState["IDCtaContableAcreedorComplementaria"] = value; } } - - private bool UsaComplementaria - { - get - { - return Convert.ToBoolean(ViewState["UsaComplementaria"]); - } - - set - { - ViewState["UsaComplementaria"] = value; - } - } - + private int CveMonedaCuentaPago { get @@ -110,10 +97,9 @@ public partial class Bancos_PagoAcreedor : ClsPaginas protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) - { - UsaComplementaria = true; + { CveMonedaCuentaPago = 0; - rowComisiones.Visible = UsuarioActual.CveEmpresa.Contiene(1, 4, 5, 7, 11, 12, 72, 80, 126, 119, 122); + rowComisiones.Visible = true; CargaTipoTransaccion(); CargaCuentas(); @@ -318,17 +304,13 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (CveIE > 0) { - //GUARDA COMPROBANTE - if (!filemove.Equals("")) - { - filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase: false); - } + decimal Importe; decimal ImporteMN; decimal ImporteComision; decimal ImporteComisionMN; decimal AcumImporteMN = 0; - decimal ImportePago, ImporteAcreedor; + decimal ImporteBancosMN, ImporteAcreedorMN; bool TipoMovtoComision = false; int IdCtaContableOtrosGastos = 0; int CveConceptoDiferenciaCambiaria = 0; @@ -339,7 +321,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas Importe = gvr.FCTextBox("TxtAbonar").Text.ToDecimal(); ImporteComision = gvr.FCTextBox("TxtComision").Text.ToDecimal(); ImporteMN = Importe; - ImporteAcreedor = Importe; ImportePago = Importe; + ImporteAcreedorMN = Importe; + ImporteBancosMN = Importe; ImporteComisionMN = ImporteComision; ImporteComplementaria = 0; @@ -354,63 +337,47 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { TipoMovtoComision = false; IdCtaContableOtrosGastos = UsuarioActual.Empresa.Funcionalidad(266).ToEntero(); - } - - Decimal TC = gvr.DataKey("TipoCambio").ToDecimal(); - if (gvr.DataKey("FechaDocumento").ToDate().Month != TxtFechaDocumento.Text.ToDate().Month || gvr.DataKey("FechaDocumento").ToDate().Year != TxtFechaDocumento.Text.ToDate().Year) - { - TC = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDate().AddMonths(-1).LastDayOfMonth()).ToDecimal(); - } - + } if (gvr.FCCheckBox("Chk").Checked) { - int tCveMoneda = gvr.DataKey("CveMoneda").ToEntero(); - if (CveMonedaPago == 1 && tCveMoneda == 1) + Decimal TC = gvr.DataKey("TipoCambio").ToDecimal(); + int tCveMoneda = gvr.DataKey("CveMoneda").ToEntero(); + //Verifica Fluctuación mensual + if (tCveMoneda > 1 && gvr.DataKey("FechaDocumento").ToDate() < TxtFechaDocumento.Text.ToDate().FirstDayOfMonth()) { - ImporteMN = Importe; - ImporteComisionMN = ImporteComision; - ImportePago = Importe; + TC = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDate().AddMonths(-1).LastDayOfMonth()).ToDecimal();//obtengo el TC del mes anterior del pago } - else if (CveMonedaPago == 1 && tCveMoneda == 2) - { - ImporteComisionMN = ImporteComision; - ImportePago = (Importe * TCPago).RoundSQL(); - if (UsaComplementaria) - { - ImporteMN = Importe; - ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); - } - else - { - ImporteMN = Importe * TC; - ImporteComplementaria = 0; - } - } - else if (CveMonedaPago == 2 && tCveMoneda == 1) - { + ImporteBancosMN = (Importe * TCPago).RoundSQL(); + ImporteAcreedorMN = (Importe * TC).RoundSQL(); - ImporteMN = Importe; - ImporteComisionMN = ImporteComision; - ImporteComplementaria = 0; - } - else if (CveMonedaPago == 2 && tCveMoneda == 2) - { - ImporteComisionMN = ImporteComision; - if (UsaComplementaria) - { - ImporteMN = Importe; - ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); - } - else - { - ImporteMN = (Importe * TC).RoundSQL(); - ImporteComplementaria = 0; - } - } + //if (CveMonedaPago == 1 && tCveMoneda == 1) + //{ + // ImporteMN = Importe; + // ImporteComisionMN = ImporteComision; + //} + //else if (CveMonedaPago == 1 && tCveMoneda == 2) + //{ + // ImporteComisionMN = ImporteComision; + + // ImporteMN = Importe; + // ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); + //} + //else if (CveMonedaPago == 2 && tCveMoneda == 1) + //{ + // ImporteMN = Importe; + // ImporteComisionMN = ImporteComision; + // ImporteComplementaria = 0; + //} + //else if (CveMonedaPago == 2 && tCveMoneda == 2) + //{ + // ImporteComisionMN = ImporteComision; + // ImporteMN = Importe; + // ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); + //} - ImporteMN = ImporteMN.RoundSQL(); - ImporteComplementaria = ImporteComplementaria.RoundSQL(); + //ImporteMN = ImporteMN.RoundSQL(); + //ImporteComplementaria = ImporteComplementaria.RoundSQL(); ImporteComisionMN = ImporteComisionMN.RoundSQL(); ImporteComision = ImporteComision.RoundSQL(); AcumImporteMN += ImporteMN; @@ -426,13 +393,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas break; } - if (UsaComplementaria && tCveMoneda > 1 && MsgError == "") + if (tCveMoneda > 1 && MsgError == "") { + ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePrestamoComplementario, Conc, DateTime.Now, IDCtaContableAcreedorComplementaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) MsgError = "No se pudo insertar concepto de acreedor complementaria"; } - if (ImportePago != ImporteAcreedor && MsgError == "") + if (ImporteBancosMN != ImporteAcreedorMN && MsgError == "") { bool TipoMovto = false; int IdCtaContableDiferenciaCambiaria = 0; @@ -440,24 +408,23 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { CveConceptoDiferenciaCambiaria = 65; IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria; - TipoMovto = false; - Importe = (Importe * TCPago) - (Importe * TC); + TipoMovto = false; } else if (TCPago < TC) { CveConceptoDiferenciaCambiaria = 64; IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria; TipoMovto = true; - Importe = (Importe * TC) - (Importe * TCPago); } - ImporteMN = Importe; + Importe = ((Importe * TCPago) - (Importe * TC)).Abs(); - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Importe, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) MsgError = "No se pudo insertar concepto de diferencia cambiaria"; } - if (ImporteComisionMN > 0 && MsgError == "") + if (ImporteComision != 0 && MsgError == "") { + ImporteComisionMN = (ImporteComision * TCPago).RoundSQL(); if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, Ref, 255, Conc, DateTime.Now, IdCtaContableOtrosGastos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComisionMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago acreedor"; @@ -468,46 +435,18 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } if (CveMonedaPago != 1) - { - if (UsaComplementaria) - { - ImporteMNBanco = ImporteBanco; + { ImporteComplementaria = (ImporteBanco * TCPago - ImporteBanco).RoundSQL(); - } - else - { - ImporteMNBanco = (ImporteBanco * TCPago).RoundSQL(); - ImporteComplementaria = 0; - } } - if (MsgError == "" && !ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, 30, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMNBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) MsgError = "No se pudo insertar concepto de bancos"; + if (MsgError == "" && !ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, 30, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) MsgError = "No se pudo insertar concepto de bancos"; //movimiento de ajuste por sino se aplicó en el proceso anterior - if (MsgError == "" && CveMonedaPago != 1 && UsaComplementaria ) + if (MsgError == "" && CveMonedaPago != 1 ) { if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, 204, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) MsgError = "No se pudo insertar concepto de bancos complementaria"; - } - if (AcumImporteMN != (ImporteBanco + ImporteComplementaria) && CveConceptoDiferenciaCambiaria == 0) - { - int tCveConceptoOtIngresos = 0; - bool TipoMovtoOt = false; - decimal Dif = AcumImporteMN - (ImporteBanco + ImporteComplementaria); - if (Dif < 0) - { - tCveConceptoOtIngresos = 65; TipoMovtoOt = false; - } - else - { - tCveConceptoOtIngresos = 64; TipoMovtoOt = true; - } - - if (MsgError == "" && !ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) - { - MsgError = "No se pudo insertar concepto de ajuste en redondeo"; - } - } + } } else @@ -561,6 +500,11 @@ public partial class Bancos_PagoAcreedor : ClsPaginas Msg.AppendFormat("El Documento se guardo correctamente. Folio {1}
    ", CveIE, ObjIE.Folio); } + //GUARDA COMPROBANTE + if (!filemove.Equals("")) + { + filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase: false); + } System.IO.FileInfo archivo = null; if (DdlTipoTransaccion.SelectedValue.ToEntero().Contiene(2, 8, 9)) @@ -726,18 +670,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (CveMoneda != 1) { - - if (UsaComplementaria) - { ImporteMN = Importe; - ImporteComplementaria = Importe * TC - Importe; - } - else - { - ImporteMN = Importe * TC; - ImporteComplementaria = 0; - } - + ImporteComplementaria = Importe * TC - Importe; } @@ -761,18 +695,16 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePrestamo, Conc, DateTime.Now, IDCtaContableAcreedorExtranjera, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: ImporteMN, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de acreedor"; - } - if (UsaComplementaria) + } + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) - { - MsgError = "No se pudo insertar concepto de bancos complementaria"; - } - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePrestamoComplementario, Conc, DateTime.Now, IDCtaContableAcreedorComplementaria, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) - { - MsgError = "No se pudo insertar concepto de acreedor complementaria"; - } + MsgError = "No se pudo insertar concepto de bancos complementaria"; } + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePrestamoComplementario, Conc, DateTime.Now, IDCtaContableAcreedorComplementaria, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + { + MsgError = "No se pudo insertar concepto de acreedor complementaria"; + } + } else { From a1dccbc4649d32cac221793da61a4c458dfda91e Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 3 Mar 2023 09:58:14 -0700 Subject: [PATCH 06/12] =?UTF-8?q?--=20correcci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepLineasAdicionales.aspx.cs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/RepLineasAdicionales.aspx.cs b/Ventas/RepLineasAdicionales.aspx.cs index 9f3eedff3..f742824ee 100644 --- a/Ventas/RepLineasAdicionales.aspx.cs +++ b/Ventas/RepLineasAdicionales.aspx.cs @@ -404,7 +404,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas //int cveestatus = e.CommandArgument.ToEntero() + 2; //pasar al siguiente estatus ClsVentas objVentas = new ClsVentas(); - if (!objVentas.UpdateVentaLineaAdicional(CveLineaAdicional, CveVenta,"", 2, UsuarioActual.CveEmpresa)) + if (!objVentas.UpdateVentaLineaAdicional(CveLineaAdicionalActualizarEstatus, CveVenta,"", 2, UsuarioActual.CveEmpresa)) { errorCambioEstatus = true; } From 2a2a1937cb8123c56c4c0adffc5c38b9c7f9962d Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 3 Mar 2023 09:58:50 -0700 Subject: [PATCH 07/12] =?UTF-8?q?-activaci=C3=B3n=20para=20usuario=20100?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 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 e9ddbbfe0..3de1b14ea 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -475,7 +475,7 @@ Partial Class Inventarios_RecepcionAlmacen CargaPermisos() If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True Dim PermisoEspecialCambioFecha As Boolean = False - If UsuarioActual.CveUsuario = 1937 Then PermisoEspecialCambioFecha = True + If UsuarioActual.CveUsuario.Contiene(100, 1937) Then PermisoEspecialCambioFecha = True If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 AndAlso Not PermisoEspecialCambioFecha Then From d37fe2a12f1f2a354e3d529fc1e40e5a349450d7 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 3 Mar 2023 09:59:19 -0700 Subject: [PATCH 08/12] -- manejo de bdh, garantias --- Compras/Compras.aspx | 2 + Compras/Compras.aspx.vb | 151 +++++++++++++++++++++------------------- 2 files changed, 81 insertions(+), 72 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 61cb8d5fe..295e02fde 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -526,6 +526,7 @@ +
    @@ -540,6 +541,7 @@ +
    diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 2a087fbb5..f2d3ddd4d 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1248,15 +1248,6 @@ Partial Class Compras_Compras btnProrateo2.Visible = True End If - If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then 'cuando es emp acumuladora AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") - divFolioGarantia.Visible = True - Using objAcum As New ClsAcumuladores - If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=-1, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then - DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC") - DdlFolioGarantia.DataBind() - End If - End Using - End If '**************************************************************** 'If UsuarioActual.CveEmpresa = 72 Then ' LiRecepcion.Visible = True @@ -1960,7 +1951,15 @@ Partial Class Compras_Compras TxtSerie.Enabled = False End If - 'DdlTipoComprobante.Enabled = False + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora + divFolioGarantia.Visible = True + Using objAcum As New ClsAcumuladores + If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then + DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC") + DdlFolioGarantia.DataBind() + End If + End Using + End If 'PERMISO PARA MODIFICACIÓN DE FECHA AUN CON FACTURA TxtFecha.Enabled = UsuarioActual.TienePermisoProceso(216) @@ -2842,6 +2841,12 @@ Partial Class Compras_Compras TxtRembolsoNumero.Enabled = If(IdPoliza > 0, False, True) + If dr("CveFolioGarantia").ToString <> "" Then + divFolioGarantia.Visible = True + DdlFolioGarantia.Items.Insert(0, New ListItem(dr("FolioGarantia").ToString, dr("CveFolioGarantia").ToString)) + DdlFolioGarantia.SelectedValue = dr("CveFolioGarantia").ToString + End If + 'CargaDetalle If ObjCompra.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then TmpDT = ObjCompra.DtResultados @@ -8137,9 +8142,9 @@ Partial Class Compras_Compras End If If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros - Msg.AppendFormat("

    Ver Póliza. ", CvePrePoliza) + Msg.AppendFormat("

    Ver Póliza   ", CvePrePoliza) Dim TempParametros = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza)) - Msg.Append($" Imprimir PDF ") + Msg.Append($" Imprimir ") @@ -9333,8 +9338,10 @@ Partial Class Compras_Compras PSS.Dispose() End If - Dim CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero - Dim Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text + Dim CvePersonal As Integer = 0 + If Cont < GvPersonal.Rows.Count Then CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero + Dim Referencia As String + If Cont < GvPersonal.Rows.Count Then Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text Cont = Cont + 1 'Si es AF-INSUMO se guarda en CveActivoFIjo @@ -9391,8 +9398,6 @@ Partial Class Compras_Compras End If End If End If - - Next For Each item As String In ClavesBorradas @@ -9413,20 +9418,14 @@ Partial Class Compras_Compras If Not ObjContabilidad.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa, UsuarioActual.Empresa, MinFecha, String.Format("{0}-{1}", Serie, Folio), ObjContaAC, pIDPoliza:=ViewState("IdPoliza").ToString.ToEntero) Then Retorno = False End If - End If End If - - - Else Retorno = False End If - 'Retorno = True 'Alert("La Compra se actualizó correctamente.") Else - If IdPoliza > 0 Then If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, True) Then Retorno = False @@ -9436,7 +9435,6 @@ Partial Class Compras_Compras Retorno = False End If End If - End If @@ -9685,9 +9683,27 @@ Partial Class Compras_Compras 'OBTIENE METODO DE CONTABILIZACIÓN AL GUARDAR - Dim ConceptoContabilizacionAlmacen = 0 + Dim CveConceptoContableAlmacen = 0 If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then - ConceptoContabilizacionAlmacen = ObjCompra.DtResultados.FiltroPrimeroValor("CveConceptoContableAlmacen").ToEntero + CveConceptoContableAlmacen = ObjCompra.DtResultados.FiltroPrimeroValor("CveConceptoContableAlmacen").ToEntero + + If CveConceptoContableAlmacen = 0 Then + If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then + If (CveImportacion > 0 Or CveFlete > 0) Then + CveConceptoContableAlmacen = CveConceptoContableAlmacen + Else + CveConceptoContableAlmacen = 205 + End If + If OCVinculada AndAlso DdlOCVinculaInv.Visible AndAlso Not (CveImportacion > 0 Or CveFlete > 0) Then + CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero + End If + If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141, 152) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido + CveConceptoContableAlmacen = 205 + End If + Else + CveConceptoContableAlmacen = 225 + End If + End If End If 'AF @@ -9716,7 +9732,7 @@ Partial Class Compras_Compras 'COSTO ALMACEN Dim DtAlmacenes = GlobalDTAlmacen(UsuarioActual.CveEmpresa) - If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen = 0 Or DdlTipoCompra.SelectedValue.ToEntero = 10 Then + If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen = 0 Or DdlTipoCompra.SelectedValue.ToEntero = 10 Then DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"}) 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN @@ -9757,11 +9773,11 @@ Partial Class Compras_Compras 'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ] - If DdlTipoCompra.SelectedValue.ToEntero <> 10 AndAlso UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then + If DdlTipoCompra.SelectedValue.ToEntero <> 10 AndAlso UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen.Contiene(176, 205) Then importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador - If ObjConta.GetRetCuenta(ConceptoContabilizacionAlmacen, UsuarioActual.CveEmpresa) Then + If ObjConta.GetRetCuenta(CveConceptoContableAlmacen, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero End If @@ -9769,7 +9785,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)) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, CveConceptoContableAlmacen, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento)) Then ErrorPrepoliza = True End If End If @@ -9778,11 +9794,11 @@ Partial Class Compras_Compras 'NC CON PRODUCTOS - CUENTA PUENTE - If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(225) Then + If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen.Contiene(225) Then importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador - If ObjConta.GetRetCuenta(ConceptoContabilizacionAlmacen, UsuarioActual.CveEmpresa) Then + If ObjConta.GetRetCuenta(CveConceptoContableAlmacen, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero End If @@ -9790,7 +9806,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)) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, CveConceptoContableAlmacen, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento)) Then ErrorPrepoliza = True End If End If @@ -9813,7 +9829,7 @@ Partial Class Compras_Compras If DdlTipoCompra.SelectedValue.ToEntero <> 10 Then 'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS] - If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen > 0 Then + If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen > 0 Then DT = DT.FiltraParametros("CveTipoPS <> 2") End If End If @@ -9960,14 +9976,14 @@ Partial Class Compras_Compras Next End If - 'VALIDAR PREPOLIZA DE COMPRA - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then - If ObjConta.ValorPolizaDescuadre > 0 Then - ErrorPrepoliza = True - Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) - GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") - End If - End If + ''VALIDAR PREPOLIZA DE COMPRA + 'If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then + ' If ObjConta.ValorPolizaDescuadre > 0 Then + ' ErrorPrepoliza = True + ' Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) + ' GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + ' End If + 'End If If Not ErrorPrepoliza Then Retorno = True @@ -20018,7 +20034,7 @@ Partial Class Compras_Compras 'Agrupa los CvePS iguales y suma sus cantidades For Each row In TmpDT.AsEnumerable() Dim cvePS As Integer = row.Field(Of Integer)("CvePS") - Dim cantidad As Decimal = row.Field(Of Decimal)("Cantidad") + Dim cantidad As Decimal = row("Cantidad").Tostring.ToDecimal If ExistenciasPSFactura.ContainsKey(cvePS) Then ExistenciasPSFactura(cvePS) += cantidad Else @@ -20733,39 +20749,30 @@ Partial Class Compras_Compras End Sub - 'Private Function ObtConceptoContableProvisionCompra(CveTipoConcepto As Integer, TipoDocto As String, CveMoneda As Integer, Optional EsComplementaria As Boolean = False) As Integer - ' Dim Retorno As Integer = -1 - - ' 'If CveTipoConcepto = 1 Then ''PROVEEDOR - ' If EsComplementaria Then - ' Retorno = If(TipoDocto = "Fac", 201, 234) - ' Return Retorno - ' End If - ' If CveMoneda = 1 Then - ' Retorno = If(TipoDocto = "Fac", 5, 18) - ' Else - ' Retorno = If(TipoDocto = "Fac", 311, 341) - ' End If - ' Else ''ACREEDOR - ' If EsComplementaria Then - ' Retorno = If(TipoDocto = "Fac", -1, -1) - ' Return Retorno - ' End If - ' If CveMoneda = 1 Then - ' Retorno = If(TipoDocto = "Fac", 305, 323) - ' Else - ' Retorno = If(TipoDocto = "Fac", 306, 343) - ' End If - ' End If - - ' Return Retorno - - 'End Function - - + Protected Sub BtnFolioGarantiaRestantes_Click(sender As Object, e As EventArgs) + Using ObjAcum As New ClsAcumuladores + If ObjAcum.GetFoliosGarantiasDetalleDisponibles(DdlFolioGarantia.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) Then + Dim dtt As DataTable = ObjAcum.DtResultados.FiltraParametros("CantidadDisponible > 0") + Dim Porcentaje As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal + Dim tCveSub As Integer = TmpDT.MAX("CveSubProyecto").ToEntero + Dim tCveTipoGasto As Integer = TmpDT.MAX("CveTipoGasto").ToEntero + Dim Total As Decimal = TmpDT.SUMD("Total") + For Each drr As DataRow In TmpDT.Rows + ClavesBorradas.Add(drr("CveCompraDetalle").ToString) + Next + TmpDT.Clear() + For Each dr As DataRow In dtt.Rows + Dim pu As Decimal = Total / dtt.SUMD("CantidadDisponible") + Dim cantidad As Decimal = dr("CantidadDisponible").ToString.ToDecimal + AddPS(cantidad, dr("CveUM").ToString.ToEntero, "", dr("CveClasificacion").ToString.ToEntero, "", dr("CvePS").ToString.ToEntero, dr("PS").ToString, 2, tCveSub.ToString, "SE", "SE", "", "", pu, Total, Porcentaje, 0, 0, 0, 0, 0, PorcentajeIVA:=Porcentaje, TCalculaTotales:=True, CveTipoGasto:=tCveTipoGasto) + Next + AddPS2() + End If + End Using + End Sub End Class From c45610ed894fc4e3db4255bec107225fb12ee62e Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sat, 4 Mar 2023 09:03:53 -0700 Subject: [PATCH 09/12] --- CGame/CatEmpaque.aspx | 159 ++++++++++++++++---------------- CGame/CatHuerta.aspx | 171 +++++++++++++++++++++-------------- CGame/CatHuerta.aspx.cs | 19 +++- CGame/CatProductos.aspx | 23 ++--- CGame/CatProductos.aspx.cs | 4 +- CGame/CatTipoMaduracion.aspx | 16 ++-- 6 files changed, 217 insertions(+), 175 deletions(-) diff --git a/CGame/CatEmpaque.aspx b/CGame/CatEmpaque.aspx index f7d514f31..66ba447fd 100644 --- a/CGame/CatEmpaque.aspx +++ b/CGame/CatEmpaque.aspx @@ -8,10 +8,10 @@ display: none; } - .page-bar .page-breadcrumb{ + .page-bar .page-breadcrumb { display: none !important; } - + .portlet-title .font-green, .portlet-title .font-green a { color: #3598dc !important; } @@ -42,90 +42,89 @@ - -
    + +
    -
    - - Información +
    + + Información -
    +
    -
    - - <%----%> -
    -
    -
    -
    -
    -
    - " 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">
    +
    +
    +
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + -
    +
    +