From 3f89ae5545ccdb2c9c078dea774ad3776ec5ee4c Mon Sep 17 00:00:00 2001 From: rmolina Date: Fri, 20 Dec 2019 15:00:58 -0700 Subject: [PATCH 01/12] . --- Compras/Compras.aspx.vb | 2 +- Contabilidad2/CatCuentas.aspx.vb | 16 +++---- Inventarios/TraspasoAlmacen.aspx.vb | 68 +++++++++++++++-------------- 3 files changed, 45 insertions(+), 41 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index cd671ec03..adf8c7f27 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6382,7 +6382,7 @@ Partial Class Compras_Compras ' adfasdasd 'ChkNCInvNC - If Not RegistraConcepto225 AndAlso Not ChkNCInvNC.Checked AndAlso Not RegistroCuentaPuente Then + If Not RegistroCuentaPuente AndAlso Not ChkNCInvNC.Checked Then 'GASTO If UsuarioActual.CveEmpresa = 119 Then DT = TmpDT diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index 5c4a37541..5f0fb2f53 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -29,14 +29,14 @@ Partial Class Contabilidad2_CatCuentas If Not Page.IsPostBack Then 'inicio() 'RegistraScript("$('#Tsubcuenta').mask('00000-0000-0000-00000');") - If UsuarioActual.Empresa.UsaContabilidad Then - CargaMonedas() - CargaAgrupadorSAT() - CargaDatos() - Else - Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia) - MEECuenta.Enabled = False - End If + ' If UsuarioActual.Empresa.UsaContabilidad Then + CargaMonedas() + CargaAgrupadorSAT() + CargaDatos() + 'Else + ' Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia) + ' MEECuenta.Enabled = False + 'End If End If End Sub diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 14d8d6340..a3a8b677b 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -2546,57 +2546,61 @@ Partial Class Inventarios_TraspasoAlmacen Try Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa) For Each RowExcel As DataRow In dt.Rows - Dim RowPS = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString())) + If RowExcel("Codigo").ToString() <> "" Then - Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero() - Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero() - Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal() - Dim SerieLote As String = RowExcel("SerieLote").ToString() - Dim Observaciones As String = RowExcel("Observaciones").ToString() + Dim RowPS = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString())) - If CveProducto > 0 Then + Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero() + Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero() - Dim Valido As Boolean = True + Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal() + Dim SerieLote As String = RowExcel("SerieLote").ToString() + Dim Observaciones As String = RowExcel("Observaciones").ToString() - Dim CveMetodoInventario As Integer = RowPS("Inv_CveMetodoInventario").ToString().ToEntero() + If CveProducto > 0 Then - If CveMetodoInventario = 5 And (String.IsNullOrEmpty(SerieLote.Trim()) OrElse SerieLote = "-1") Then - Valido = False - Alert($"El producto '{RowPS("PS")}' requiere 'SerieLote'", TipoMensaje.MsgAdvertencia) - ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString()) - End If + Dim Valido As Boolean = True - If CveMetodoInventario = 5 AndAlso Not String.IsNullOrEmpty(SerieLote.Trim()) Then - NoPSConSerieLote = NoPSConSerieLote + 1 - End If + Dim CveMetodoInventario As Integer = RowPS("Inv_CveMetodoInventario").ToString().ToEntero() - If Valido AndAlso (Cantidad > 0 AndAlso RowPS("VentaMinima").ToString.ToDecimal > 0) Then - If Cantidad Mod RowPS("VentaMinima").ToString.ToDecimal <> 0 Then + If CveMetodoInventario = 5 And (String.IsNullOrEmpty(SerieLote.Trim()) OrElse SerieLote = "-1") Then Valido = False + Alert($"El producto '{RowPS("PS")}' requiere 'SerieLote'", TipoMensaje.MsgAdvertencia) ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString()) End If - End If - If Valido Then - Valido = ValidaExistencia(Cantidad, CveProducto, CveUnidadMedida, If(Not String.IsNullOrEmpty(SerieLote), SerieLote, "-1"), "-1", "-1") - End If + If CveMetodoInventario = 5 AndAlso Not String.IsNullOrEmpty(SerieLote.Trim()) Then + NoPSConSerieLote = NoPSConSerieLote + 1 + End If + + If Valido AndAlso (Cantidad > 0 AndAlso RowPS("VentaMinima").ToString.ToDecimal > 0) Then + If Cantidad Mod RowPS("VentaMinima").ToString.ToDecimal <> 0 Then + Valido = False + ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString()) + End If + End If + + If Valido Then + Valido = ValidaExistencia(Cantidad, CveProducto, CveUnidadMedida, If(Not String.IsNullOrEmpty(SerieLote), SerieLote, "-1"), "-1", "-1") + End If + + If Valido Then + AgregarPS(Cantidad, CveProducto, CveUnidadMedida, Observaciones, If(Not String.IsNullOrEmpty(SerieLote), SerieLote, ""), "", "", False) + RowsCargados = RowsCargados + 1 + Else + RowsNoCargados = RowsNoCargados + 1 + ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString()) + End If - If Valido Then - AgregarPS(Cantidad, CveProducto, CveUnidadMedida, Observaciones, If(Not String.IsNullOrEmpty(SerieLote), SerieLote, ""), "", "", False) - RowsCargados = RowsCargados + 1 Else RowsNoCargados = RowsNoCargados + 1 - ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString()) + ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString()) End If - - Else - RowsNoCargados = RowsNoCargados + 1 - ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString()) End If Next Catch ex As Exception - OnError("Ocurrió un error al cargar los productos.", ex) + OnError("Ocurrió un error al cargar los productos." & ProductosNoCargados.ToString(), ex) Finally If NoPSConSerieLote > 0 Then From e3363e2c029eed7fb251f988f3b22f09070a3dbe Mon Sep 17 00:00:00 2001 From: rmolina Date: Fri, 20 Dec 2019 15:32:05 -0700 Subject: [PATCH 02/12] concepto en cveconceto17 --- Bancos/ProveedoresAbonar.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index ec0cbce2c..5e5d27d25 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -936,8 +936,8 @@ Partial Class Bancos_ProveedoresAbonar End If ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero) importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero) - TipoCambioGeneral = tipoCambioCompra - + TipoCambioGeneral = tipoCambioCompra + ConceptoMovimiento = $"{HplProveedor.Text} F:{gvr.DataKey("SerieFolio")}" 'cuando son dolares, y tienen complementaria, se hace el registro If gvr.DataKey("CveMoneda").ToEntero = 1 Then IdCtaContable = CtaProveedor From 81b7f2a02595c0eca68c0f9cb1fda85480468464 Mon Sep 17 00:00:00 2001 From: rmolina Date: Fri, 20 Dec 2019 17:37:07 -0700 Subject: [PATCH 03/12] . --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index dc97f5068..fe4a57b2c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -23433,7 +23433,7 @@ Partial Class Ventas Private Sub CalculaUsados() - If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then + If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Cot") Then Dim DTTamanios As DataTable = GlobalDTAcumTamaños() Dim DTCvePSCostos As DataTable From 5b184fdc3b992337dd3833aee99420db6f59ffdf Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 20 Dec 2019 19:39:32 -0700 Subject: [PATCH 04/12] Calculo de impuestos en NC --- Ventas/Ventas.aspx.vb | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index dc97f5068..cb81089fc 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -21072,10 +21072,16 @@ Partial Class Ventas Dr("ImporteTotal") = Math.Round(Porcentaje * (TmpDT.SUM("TotalImporte", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' ") - TmpDT.SUM("Descuento", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' ")), 2) ' COMENTANDO POR JESUS MURUA ALIAS EL CHOLO, LO HIZO EL RAUL ARRIBA ALV ! 28/02/2018 'Dr("ImporteTotal") = Porcentaje * TmpDT.SUM("TotalImporte", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' ") - Dr("ImporteIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIVA", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' "), 2) - Dr("ImporteRetIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetIVA", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' "), 2) - Dr("ImporteRetISR") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetISR", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}'"), 2) - Dr("ImporteIEPS") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIEPS", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}'"), 2) + + Dr("ImporteIVA") = (Porcentaje * Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeIVA").ToString().ToDecimal()).RoundSQL(2) + Dr("ImporteRetIVA") = (Porcentaje * Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeRetIVA").ToString().ToDecimal()).RoundSQL(2) + Dr("ImporteRetISR") = (Porcentaje * Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeRetISR").ToString().ToDecimal()).RoundSQL(2) + Dr("ImporteIEPS") = (Porcentaje * Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeIEPS").ToString().ToDecimal()).RoundSQL(2) + + 'Dr("ImporteIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIVA", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' "), 2) + 'Dr("ImporteRetIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetIVA", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' "), 2) + 'Dr("ImporteRetISR") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetISR", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}'"), 2) + 'Dr("ImporteIEPS") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIEPS", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}'"), 2) Dr("ImportePU") = Dr("ImporteTotal").ToString.ToDecimal '(Dr("ImporteTotal").ToString.ToDecimal - Dr("ImporteIVA").ToString.ToDecimal - Dr("ImporteRetIVA").ToString.ToDecimal - Dr("ImporteRetISR").ToString.ToDecimal - Dr("ImporteIEPS").ToString.ToDecimal) Next 'codigo para ajuste de centavo, si el importe total no cuadra con los totales From 022c206092d92b8e819c771b00e2b35702c103d2 Mon Sep 17 00:00:00 2001 From: rmolina Date: Sat, 21 Dec 2019 13:08:06 -0700 Subject: [PATCH 05/12] =?UTF-8?q?,=20ajuste=20oc,=20en=20centavos=20d?= =?UTF-8?q?=C3=B3lares?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 44 ++++++++++++++++++++++++----------------- 1 file changed, 26 insertions(+), 18 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index adf8c7f27..1bb22b0d5 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -18854,25 +18854,33 @@ Partial Class Compras_Compras If CveMoneda = 2 And UsuarioActual.CveEmpresa.Contiene(119) Then ImporteME = (DiferenciaInvOC / TCInvOC).RoundSQL() - ImporteMEComp = (DiferenciaInvOC - ImporteME).RoundSQL() + ImporteMEComp = ((ImporteME * TCInvOC) - ImporteME).RoundSQL() - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, 177, ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then - Retorno = False - Exit For - End If - - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteME, SerieFolio, 228, ConceptoPartida, Fecha, IdCtaContableRecepcionOCME, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteME, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, SerieFolio, 229, ConceptoPartida, Fecha, IdCtaContableRecepcionOCComplementaria, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteMEComp, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then - Retorno = False - Exit For - End If - Else - Retorno = False - Exit For - End If - Else - '2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, If(ConceptoSalida = 0, IdCtaContableAlmacen, IdCtaContableRecepcionOCER), -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle) Then + Dim DifImporte As Decimal = DiferenciaInvOC - (ImporteME + ImporteMEComp) + + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, 177, ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then + Retorno = False + Exit For + End If + + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteME, SerieFolio, 228, ConceptoPartida, Fecha, IdCtaContableRecepcionOCME, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteME, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, SerieFolio, 229, ConceptoPartida, Fecha, IdCtaContableRecepcionOCComplementaria, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteMEComp, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then + If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, SerieFolio, 69, ConceptoPartida, Fecha, IdCtaContableRecepcionOCComplementaria, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteMEComp, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then + Retorno = False + Exit For + End If + Else + Retorno = False + Exit For + End If + Else + Retorno = False + Exit For + End If + Else + '2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, If(ConceptoSalida = 0, IdCtaContableAlmacen, IdCtaContableRecepcionOCER), -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, ConceptoPartida, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then Retorno = False Exit For From 6f9ae28c700c9af09fd2fc19db729545b73b3726 Mon Sep 17 00:00:00 2001 From: rmolina Date: Sat, 21 Dec 2019 15:09:11 -0700 Subject: [PATCH 06/12] // recepcionalmacen. que se acepten dev, para regresar // compra visualizar popupauxiliar --- Compras/Compras.aspx.vb | 30 ++++++++++++++++++---------- Inventarios/RecepcionAlmacen.aspx.vb | 6 +++--- 2 files changed, 23 insertions(+), 13 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1bb22b0d5..326f41c29 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2892,19 +2892,29 @@ Partial Class Compras_Compras Else If Saldo < Total Then LblCompraEstatus.Text = "ABONADA" - LblCompraEstatus.Font.Bold = True - LblCompraEstatus.ForeColor = Drawing.Color.Navy - trSaldo.Visible = True - HplSaldoAuxiliar.Text = String.Format("$ {0}", Saldo.FormatoNumero()) - HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxPProveedor&CveProveedor={0}&CveCompra={1}&TB_iframe=true&height=700&width=920", CveProveedor, CveCompra) - + LblCompraEstatus.Font.Bold = True + End If - + LblCompraEstatus.ForeColor = Drawing.Color.Navy + trSaldo.Visible = True + HplSaldoAuxiliar.Text = String.Format("$ {0}", Saldo.FormatoNumero()) + HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxPProveedor&CveProveedor={0}&CveCompra={1}&TB_iframe=true&height=700&width=920", CveProveedor, CveCompra) + + End If End If - - UpEstatus.Update() + UpEstatus.Update() + Else + + If CveCompra > 0 Then + LblCompraEstatus.Font.Bold = True + LblCompraEstatus.ForeColor = Drawing.Color.Navy + trSaldo.Visible = True + HplSaldoAuxiliar.Text = String.Format("$ {0}", Saldo.FormatoNumero()) + HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxPProveedor&CveProveedor={0}&CveCompra={1}&TB_iframe=true&height=700&width=920", CveProveedor, CveCompra) + End If + End If End Sub @@ -18866,7 +18876,7 @@ Partial Class Compras_Compras If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteME, SerieFolio, 228, ConceptoPartida, Fecha, IdCtaContableRecepcionOCME, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteME, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, SerieFolio, 229, ConceptoPartida, Fecha, IdCtaContableRecepcionOCComplementaria, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteMEComp, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then - If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, SerieFolio, 69, ConceptoPartida, Fecha, IdCtaContableRecepcionOCComplementaria, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteMEComp, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then + If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifImporte, SerieFolio, 69, ConceptoPartida, Fecha, IdCtaContableRecepcionOCComplementaria, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DifImporte, ImporteME:=DifImporte, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then Retorno = False Exit For End If diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 560298ba7..48d9ecba0 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -680,7 +680,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim DtPendientes As New DataTable If ObjInventarios.ComprasPendientesAlmacenGet(-1, TxtFechaPendientes.Text.ToDate, UsuarioActual.CveEmpresa) Then - Dim FiltroTemporal = If(UsuarioActual.CveEmpresa = 119, "AND TipoDocto IN ('Fac','NC')", "AND TipoDocto IN ('Fac')") + Dim FiltroTemporal = If(UsuarioActual.CveEmpresa.Contiene(119, 140), "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')") DtPendientes = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}") Else DtPendientes = Nothing @@ -830,12 +830,12 @@ Partial Class Inventarios_RecepcionAlmacen TipoCambio = ObjCompras.DtResultados.Rows(0)("TipoCambio").ToString.ToDecimal TipoMovimiento = If(ObjCompras.DtResultados.Rows(0)("EstatusAlmacen").ToString.ToEntero = 1, 2, 1) - TipoMovimiento = If(ObjCompras.DtResultados.Rows(0)("TipoDocto").ToString = "NC", 3, TipoMovimiento) + TipoMovimiento = If(ObjCompras.DtResultados.Rows(0)("TipoDocto").ToString.Contiene("NC", "DEV"), 3, TipoMovimiento) TotalCompraOC = ObjCompras.DtResultados.Rows(0)("SubTotal").ToString.ToDecimal CveTipoCompra = ObjCompras.DtResultados.Rows(0)("CveTipoCompra").ToString.ToEntero If TipoMovimiento = 3 Then - CargaAlmacenes(-1, "21") + CargaAlmacenes(-1, "21,2") End If RecibidaCompleta = False If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then From 4d345411dac5a4bc5853882e1233ea8c90c51efb Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sat, 21 Dec 2019 15:17:08 -0700 Subject: [PATCH 07/12] --- App_Code/ClsNominas.vb | 7 +- Nomina/Finiquito.aspx | 233 +++++++++++++++++++-- Nomina/Finiquito.aspx.cs | 440 +++++++++++++++++++++++++++++++++++++++ Nomina/Finiquito.aspx.vb | 38 +++- Nomina/Nomina2.aspx | 55 ++++- Nomina/Nomina2.aspx.cs | 69 +++++- 6 files changed, 802 insertions(+), 40 deletions(-) create mode 100644 Nomina/Finiquito.aspx.cs diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 70216cd06..514865488 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1772,10 +1772,13 @@ Public Class ClsNominas With SqlAdapter.SelectCommand.Parameters .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@cveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Limpiar", SqlDbType.Int).Value = Limpiar + '.Add("@Limpiar", SqlDbType.Int).Value = Limpiar End With Try - SqlAdapter.Fill(Data) + SqlAdapter.Fill(DTSet) + If (DTSet.Tables.Count > 0) Then + Data = DTSet.Tables(0) + End If Retorno = True Catch ex As Exception OnError("Ocurrió un error al obtener el finiquito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) diff --git a/Nomina/Finiquito.aspx b/Nomina/Finiquito.aspx index 1391076fe..eb593a9d2 100644 --- a/Nomina/Finiquito.aspx +++ b/Nomina/Finiquito.aspx @@ -1,20 +1,35 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Finiquito.aspx.vb" Inherits="Nomina_Finiquito" %> +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Finiquito.aspx.cs" Inherits="Nomina_Finiquito" %> - -
  • - Generar PDF -
    • -
  • - Generar Excel -
    • -
  • - - - - - - - -
    • - -
  • - Ver Dlls en pesos - - -
    • - - <%--
    • --%> -
  • - Programar Recursos
    • + + + + +
  • + Generar PDF +
    • +
  • + Generar Excel +
    • + +
  • + Excel Personalizado +
    • + +
  • +
    • + +
  • + Ver Dlls en pesos + +
    • + + +
  • + Programar Recursos + +
    • + +     + + + + + +     +     Reporte de CxP - Detalle @@ -223,17 +234,19 @@ - + - + + Fecha -    + @@ -267,7 +280,7 @@ Fecha Venc. -    + @@ -283,7 +296,7 @@ Proveedor -   + @@ -291,7 +304,7 @@ Cuenta -   + @@ -299,11 +312,14 @@ Observaciones -   + + + + diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index dd0035d58..bad04658b 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -82,7 +82,20 @@ Partial Class RepCxPDetalle Set(value As String) ViewState("FechaFin") = value End Set + End Property + + + Private Property Personalizo As Integer + Get + Return ViewState("Personalizo").ToString.ToEntero + End Get + + Set(value As Integer) + ViewState("Personalizo") = value + End Set End Property + + Public Property FechaVInicio() As String Get Return ViewState("FechaVInicio").ToString @@ -205,7 +218,9 @@ Partial Class RepCxPDetalle 'pRivate ReadOnly Property ColumnasVisibles As Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not IsPostBack Then + If Not IsPostBack Then + + Personalizo = 0 ViewState("Opcion") = IfNull(Request("Op"), "S") CargaCombos() @@ -532,20 +547,38 @@ Partial Class RepCxPDetalle GvDatos.Columns(8).Visible = True Else GvDatos.Columns(8).Visible = False + End If + + Personalizo = 1 + If Personalizo = 1 Then + ImgExcelPersonalizado.Visible = True + Else + ImgExcelPersonalizado.Visible = False End If + + UPDatos.Update() RegistraScript("$('#DivPersonalizar').modal('hide');") - End Sub - + End Sub + #End Region - + #Region "IMPRESIONES" - + Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click GenerarPDF("EXCEL") + End Sub + + Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click + 'GvVsh.Visible = True + 'GvVsh.ExportToExcel("DetalleVentas_" & Now.ToShortDateString) + 'GvVsh.Visible = False + GvDatos.ExportToExcel("DetalleCompras_" & Now.ToShortDateString & ".xls") + 'GvDatos.ExportToExcelG("DetalleVentas_" & Now.ToShortDateString & ".xlsx") End Sub + Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click GenerarPDF() End Sub From a1b91ee1d5e0a15a27966f6584858fa94259f24d Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 23 Dec 2019 17:24:01 -0700 Subject: [PATCH 12/12] --- Nomina/Finiquito.aspx | 10 ++--- Nomina/Finiquito.aspx.cs | 82 ++++++++++++++++++++++++++++++++++++++-- 2 files changed, 83 insertions(+), 9 deletions(-) diff --git a/Nomina/Finiquito.aspx b/Nomina/Finiquito.aspx index eb593a9d2..c77da1039 100644 --- a/Nomina/Finiquito.aspx +++ b/Nomina/Finiquito.aspx @@ -155,19 +155,19 @@ + DataKeyNames="ConceptoP,CveConceptoP,ImporteP,EstatusP,ConceptoD,CveConceptoD,ImporteD,EstatusD"> - - + + - - + + diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index caedc80e7..d1675097e 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -8,6 +8,32 @@ using System.Web.UI.WebControls; partial class Nomina_Finiquito : ClsPaginas { + private class NConcepto + { + //Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD + + + + public string NoConceptoP { get; set; } + public string ConceptoP { get; set; } + public string LabelValorP { get; set; } + public int CveConceptoP { get; set; } + public double ImporteP { get; set; } + public double ValorP { get; set; } + public int EstatusP { get; set; } + public bool isEditedP { get; set; } + + + public string NoConceptoD { get; set; } + public string ConceptoD { get; set; } + public string LabelValorD { get; set; } + public int CveConceptoD { get; set; } + public double ImporteD { get; set; } + public double ValorD { get; set; } + public int EstatusD { get; set; } + public bool isEditedD { get; set; } + } + private class ConceptosPersonal { public ConceptosPersonal() @@ -270,9 +296,57 @@ partial class Nomina_Finiquito : ClsPaginas TxtPrimaPagada.Text = $"{finrow["PrimaPagada"]}"; TxtPrimaPorPagar.Text = $"{finrow["PrimaVacacionalPorPagar"]}"; } + if (ObjNom.DTSetResultados.Tables.Count > 5) + { + DataTable dtconceptos = ObjNom.DTSetResultados.Tables[1]; + DataTable dtconpersonal = ObjNom.DTSetResultados.Tables[5]; + + int maxFila = dtconpersonal.MAX("Fila", "Tipo<3").ToEntero(); + List lfin = new List(); + + if (maxFila > 0) + { + DataRow conPerrow; + DataRow conrow; + NConcepto sr; + + for (int i = 1; i <= maxFila; i++) + { + sr = new NConcepto(); + conPerrow = dtconpersonal.FiltroPrimero(string.Format("Tipo=1 AND Fila ={0}", i)); + if (conPerrow != null) + { + sr.CveConceptoP = conPerrow["CveConcepto"].ToString().ToEntero(); + conrow = dtconceptos.FiltroPrimero(string.Format("CveConcepto ={0}", sr.CveConceptoP)); + sr.ConceptoP = conrow["Concepto"].ToString(); + sr.ValorP = conPerrow["Valor"].ToString().ToDouble(); + sr.ImporteP = conPerrow["Importe"].ToString().ToDouble(); + sr.NoConceptoP = conrow["Codigo"].ToString(); + } + + + conPerrow = dtconpersonal.FiltroPrimero(string.Format("Tipo=2 AND Fila ={0}", i)); + if (conPerrow != null) + { + sr.CveConceptoD = conPerrow["CveConcepto"].ToString().ToEntero(); + conrow = dtconceptos.FiltroPrimero(string.Format("CveConcepto ={0}", sr.CveConceptoD)); + sr.ConceptoD = conrow["Concepto"].ToString(); + sr.ValorD= conPerrow["Valor"].ToString().ToDouble(); + sr.ImporteD = conPerrow["Importe"].ToString().ToDouble(); + sr.NoConceptoD = conrow["Codigo"].ToString(); + } + + + + lfin.Add(sr); + } + } + GvConceptos.DataSource = lfin; + GvConceptos.DataBind(); + } } - GvConceptos.DataSource = ConceptsPersonas; - GvConceptos.DataBind(); + //GvConceptos.DataSource = ConceptsPersonas; + //GvConceptos.DataBind(); } else retorno = false; @@ -362,11 +436,11 @@ partial class Nomina_Finiquito : ClsPaginas { // Datakeys // Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD - int CveConcepto = e.Row.DataKey("CveConcepto").ToEntero(); + int CveConcepto = e.Row.DataKey("CveConceptoP").ToEntero(); int CveConceptoD = e.Row.DataKey("CveConceptoD").ToEntero(); // Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal() // Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal() - int Estatus = e.Row.DataKey("Estatus").ToEntero(); + int Estatus = e.Row.DataKey("EstatusP").ToEntero(); int EstatusD = e.Row.DataKey("EstatusD").ToEntero(); // Controles