From 97a565a2e94875ed8834ce5c2a299cd0240a6ea1 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 10 May 2022 12:48:26 -0700 Subject: [PATCH 1/9] -- mejora en devoluciones con descuento y registro en almacen al mismo tiempo --- Compras/Compras.aspx.vb | 28 +++++++++------------------- 1 file changed, 9 insertions(+), 19 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 75674b4a0..a822ecb0b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4764,7 +4764,7 @@ Partial Class Compras_Compras ViewState("CveCompra") = ObjCompras.CveCompra If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then - Devolucion = guardardevolucion(ObjInventario, ObjCompras.CveCompra, TxtSubTotal.Text.ToDecimal, TxtFecha.Text.Trim.ToDate) + Devolucion = guardardevolucion(ObjInventario, ObjCompras.CveCompra, TxtSubTotal2.Text.ToDecimal, TxtFecha.Text.Trim.ToDate) TotalRealDevolucion = Devolucion.Total @@ -14414,26 +14414,21 @@ Partial Class Compras_Compras Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Decimal, Fecha As Date) As MMensajeDevolucion - - Dim TotalSumaPU As Decimal = 0.0D - - + Dim TotalSumaPU As Decimal = 0 Dim ErrorMovInv As Boolean = False Dim CveAlmacen As Integer = DdlAlmacenDevolucion.SelectedValue.ToEntero() - Dim subtotaldevolucion As Double = 0 + Dim subtotaldevolucion As Decimal = 0 Dim realizadevolucion As Boolean = False Dim CveMovimientoEntrada As Integer = -1 'Calculo los subtotales para comparar con la NC - Dim cantidad As Double = 0.0 - Dim TotalAlmacen As Decimal = 0 - + Dim Cantidad As Decimal For Each Dr As GridViewRow In GVDevolucion.Rows 'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero - cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble + cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal If cantidad > 0 Then realizadevolucion = True - subtotaldevolucion += Dr.DataKey("PU").ToString.ToDouble * cantidad + subtotaldevolucion += Dr.DataKey("PU").ToString.ToDecimal * cantidad End If Next 'si no esta vinculado a nc simplemente me lo brinco @@ -14447,7 +14442,7 @@ Partial Class Compras_Compras ErrorMovInv = True Else Dim Acumulado As Decimal = 0 - Dim PU As Decimal = 0 + Dim PU As Decimal Dim CantidadRenglones As Integer = 0 Dim ii As Integer = 0 For Each Dr As GridViewRow In GVDevolucion.Rows @@ -14466,7 +14461,6 @@ Partial Class Compras_Compras PU = (((Dr.FCTextBox("TxtCantidad").Text.ToDecimal * Dr.DataKey("PU").ToString.ToDecimal)) + dif) / Dr.FCTextBox("TxtCantidad").Text.ToDecimal End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr.FCTextBox("TxtCantidad").Text.ToDouble, Dr.DataKey("CveUM").ToString.ToEntero, Dr.DataKey("CvePS").ToString.ToEntero, PU, -1, CveMovimientoDetalleEntrada:=Dr.DataKey("CveMovimientoDetalle").ToString.ToEntero) Then ErrorMovInv = True Exit For @@ -14481,8 +14475,6 @@ Partial Class Compras_Compras End If End If - - If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1, -1) Then For Each drow As DataRow In ObjInventario.DtResultados.Rows @@ -14491,8 +14483,6 @@ Partial Class Compras_Compras End If - - Return New MMensajeDevolucion() With { .CveMovimiento = CveMovimientoEntrada, @@ -14567,7 +14557,7 @@ Partial Class Compras_Compras 'si no esta vinculado a nc simplemente me lo brinco If realizadevolucion Then 'si el subtotal es iwal a la nc lo guardo si no marco error - If TxtSubTotal.Text.ToDouble > subtotaldevolucion - 1 AndAlso TxtSubTotal.Text.ToDouble < subtotaldevolucion + 1 Then + If TxtSubTotal2.Text.ToDouble > subtotaldevolucion - 1 AndAlso TxtSubTotal2.Text.ToDouble < subtotaldevolucion + 1 Then VinculaDevolucion() @@ -14588,7 +14578,7 @@ Partial Class Compras_Compras 'LIMPIAR PARTIDAS DE LA COMPRA PARA AGREGAR NUEVAS TmpDT.Clear() - Dim SubTotalCompra As Decimal = TxtSubTotal.Text.ToDecimal() + Dim SubTotalCompra As Decimal = TxtSubTotal2.Text.ToDecimal() Dim TotalCompra As Decimal = TxtTotal.Text.ToDecimal() Dim IVACompra As Decimal = TxtIVA.Text.ToDecimal() Dim IEPSCompra As Decimal = TxtIEPS.Text.ToDecimal() From 20da30d980419d0371374dee5aa7b86a62302998 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 May 2022 13:32:18 -0700 Subject: [PATCH 2/9] =?UTF-8?q?--=20mejora=20de=20prep=C3=B3liza=20en=20co?= =?UTF-8?q?ncepto=20de=20entrada=20virtual?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 13e274982..8893506f5 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -3041,7 +3041,6 @@ Partial Class Inventarios_RecepcionAlmacen Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24) - CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 37, 36), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4") FolioVirtual = ObjInventario.Folio @@ -3063,11 +3062,27 @@ Partial Class Inventarios_RecepcionAlmacen End If End If + Dim tConcepto As String = String.Format("Entrada Virtual {0}", HLFolio.Text) + Dim tReferencia As String = HLFolio.Text + Dim tCvePrePoliza = ObjConta.AddPrePolizas("Inv_RAlmVirtual", 74, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + If tCvePrePoliza > 0 Then + + If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, True, ImporteIngresoAdicional, tReferencia, 205, tConcepto, TxtFecha.Text.ToDate, 0, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ImporteIngresoAdicional) Then + + If Not ObjConta.AddPrePolizasDetalle(tCvePrePoliza, False, ImporteIngresoAdicional, tReferencia, 68, tConcepto, TxtFecha.Text.ToDate, 0, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ImporteIngresoAdicional) Then + ErrorMovInv = True + End If + Else + ErrorMovInv = True + End If + Else + ErrorMovInv = True + End If Else ErrorMovInv = True End If End If - End If 'DEVENGAR AC From 129565301609a3c0db00e838f83088cc38a739a5 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 May 2022 13:34:17 -0700 Subject: [PATCH 3/9] -- contabilizar --- Inventarios/EntradasSalidas.aspx.vb | 79 ++++++++++++++++------------- 1 file changed, 45 insertions(+), 34 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index d3aa6c1f6..66740809c 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -791,8 +791,6 @@ Partial Class Inventarios_EntradasSalidas HplImprimirResumen.Visible = True HplImprimirResumen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Almr&CveMovimiento={0}", CveMovimiento))) - - CveCompra = Mov.CveCompra CveConcepto = Mov.CveConcepto @@ -978,6 +976,9 @@ Partial Class Inventarios_EntradasSalidas PermisoVerImportes() + If IfNull(Request("Conta"), "0").ToString = "1" Then + Contabilizar() + End If Else @@ -3683,6 +3684,10 @@ Partial Class Inventarios_EntradasSalidas Private Sub BtnGeneraPrepoliza_Click(sender As Object, e As EventArgs) Handles BtnGeneraPrepoliza.Click ''PREPOLIZA - SE CAMBIO DE LUGAR EL USO DE ESTA PARTE + Contabilizar() + End Sub + + Private Sub Contabilizar() Dim ObjInventario As New ClsInventarios Dim ErrorMovInv As Boolean = False @@ -3695,7 +3700,6 @@ Partial Class Inventarios_EntradasSalidas Dim CvePrePolizaRegistrada As Integer = -1 - ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Dim CveVenta As Integer = ObjInventario.CveVenta Dim MovAlmacen As Boolean = False @@ -3744,51 +3748,58 @@ Partial Class Inventarios_EntradasSalidas End If Next Else - If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then - Contabilizable = False - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 289, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then + If ObjInventario.Modulo.Contiene("RA/G4") Then + Contabilizable = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 205, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompra, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then ErrorMovInv = True End If Else - If ObjInventario.Modulo = "ASA/G1" Then + If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then Contabilizable = False - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 289, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then ErrorMovInv = True End If Else - If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then - 'genero las prepolizas manuales - Dim tCveConcepto As Integer = 95 - Dim CveCuenta As Integer - If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519 - IdCtaContable = 1 - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then + If ObjInventario.Modulo = "ASA/G1" Then + Contabilizable = False + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then ErrorMovInv = True - End If - Else - - Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero - Dim tCveConcepto As Integer = 69 - If DdlConcepto.SelectedValue = "30" Then - tCveConcepto = 181 - IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero - End If - - For Each RowInv As DataRow In tmpCostos.Rows - ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL - If tCveConcepto = 69 Then - IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero - End If - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto) Then + If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then + 'genero las prepolizas manuales + Dim tCveConcepto As Integer = 95 + Dim CveCuenta As Integer + If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519 + IdCtaContable = 1 + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then ErrorMovInv = True - Exit For + End If - Next + Else + Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero + Dim tCveConcepto As Integer = 69 + If DdlConcepto.SelectedValue = "30" Then + tCveConcepto = 181 + IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero + End If + + For Each RowInv As DataRow In tmpCostos.Rows + ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL + If tCveConcepto = 69 Then + IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto) Then + ErrorMovInv = True + Exit For + End If + + Next + + End If End If End If End If From c7c57122829a4b6cf00987a85c1cd26c71b0182c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 May 2022 13:35:20 -0700 Subject: [PATCH 4/9] =?UTF-8?q?+=20mejora=20en=20reporte=20de=20cuadre,=20?= =?UTF-8?q?se=20agreg=C3=B3=20"nolock"=20a=20tablas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContPAQi.vb | 142 ++++++++++++++++++++-------------------- 1 file changed, 71 insertions(+), 71 deletions(-) diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 5b006c0b4..5f7601c45 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -1438,13 +1438,13 @@ Public Class ClsContPAQi StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") - StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Banc_IE IE ON IE.CveIE = PD.CveIE") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Banc_BancosCuentas BC ON BC.CveCuenta = IE.CveCuenta") - StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") - StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") - StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id") + StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Banc_IE IE WITH(NOLOCK) ON IE.CveIE = PD.CveIE") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Banc_BancosCuentas BC WITH(NOLOCK) ON BC.CveCuenta = IE.CveCuenta") + StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") + StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") + StrSQL.AppendLine(" LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id") StrSQL.AppendLine(" WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable = 30 AND BC.CveTipoCuenta = 1") StrSQL.AppendLine(" AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF") @@ -1468,13 +1468,13 @@ Public Class ClsContPAQi StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") - StrSQL.AppendLine(" FROM MovimientosPoliza MP") - StrSQL.AppendLine(" INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id") - StrSQL.AppendLine(" INNER JOIN Cuentas C ON MP.IdCuenta = C.Id") + StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)") + StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") + StrSQL.AppendLine(" INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id") StrSQL.AppendLine(" INNER JOIN #CuentasContablesRecursivas A ON A.Id = C.Id") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl ON Cl.CveProveedor = PD.CveProveedor") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl WITH(NOLOCK) ON Cl.CveProveedor = PD.CveProveedor") StrSQL.AppendLine(" WHERE (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF") StrSQL.AppendLine(" ") @@ -1492,12 +1492,12 @@ Public Class ClsContPAQi StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") - StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl ON Cl.CveProveedor = PD.CveProveedor") - StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") - StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") - StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id") + StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl WITH(NOLOCK) ON Cl.CveProveedor = PD.CveProveedor") + StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") + StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") + StrSQL.AppendLine(" LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id") StrSQL.AppendLine(" WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable IN (43,37) ") StrSQL.AppendLine(" AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF") @@ -1521,13 +1521,13 @@ Public Class ClsContPAQi StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") - StrSQL.AppendLine(" FROM MovimientosPoliza MP") - StrSQL.AppendLine(" INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id") - StrSQL.AppendLine(" INNER JOIN Cuentas C ON MP.IdCuenta = C.Id") + StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)") + StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") + StrSQL.AppendLine(" INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id") StrSQL.AppendLine(" INNER JOIN #CuentasContablesRecursivas A ON A.Id = C.Id") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl ON Cl.CveProveedor = PD.CveProveedor") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl WITH(NOLOCK) ON Cl.CveProveedor = PD.CveProveedor") StrSQL.AppendLine(" WHERE (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF") StrSQL.AppendLine(" ") @@ -1545,12 +1545,12 @@ Public Class ClsContPAQi StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") - StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl ON Cl.CveProveedor = PD.CveProveedor") - StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") - StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") - StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id") + StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl WITH(NOLOCK) ON Cl.CveProveedor = PD.CveProveedor") + StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") + StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") + StrSQL.AppendLine(" LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id") StrSQL.AppendLine(" WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable IN (41,42) ") StrSQL.AppendLine(" AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF") @@ -1578,9 +1578,9 @@ Public Class ClsContPAQi StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id") StrSQL.AppendLine(" INNER JOIN #CuentasContablesRecursivas A ON A.Id = C.Id") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Vw_Clientes Cl ON PD.CveCliente = Cl.CveCliente") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Vw_Clientes Cl WITH(NOLOCK) ON PD.CveCliente = Cl.CveCliente") StrSQL.AppendLine(" WHERE (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF") StrSQL.AppendLine(" ") @@ -1598,12 +1598,12 @@ Public Class ClsContPAQi StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") - StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Vw_Clientes Cl ON Cl.CveCliente = PD.CveCliente") - StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") - StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") - StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id") + StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Vw_Clientes Cl WITH(NOLOCK) ON Cl.CveCliente = PD.CveCliente") + StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") + StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") + StrSQL.AppendLine(" LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id") StrSQL.AppendLine(" WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable IN (3,11) ") StrSQL.AppendLine(" AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF ") @@ -1679,11 +1679,11 @@ Public Class ClsContPAQi StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") - StrSQL.AppendLine(" FROM MovimientosPoliza MP") - StrSQL.AppendLine(" INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id") - StrSQL.AppendLine(" INNER JOIN Cuentas C ON MP.IdCuenta = C.Id") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)") + StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") + StrSQL.AppendLine(" INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") StrSQL.AppendLine(" WHERE MP.IdCuenta = @CveFuncionalidad AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF") StrSQL.AppendLine(" ") @@ -1732,8 +1732,8 @@ Public Class ClsContPAQi StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)") StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") StrSQL.AppendLine(" WHERE MP.IdCuenta = @CveFuncionalidad AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF") StrSQL.AppendLine(" ") @@ -1879,12 +1879,12 @@ Public Class ClsContPAQi StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") - StrSQL.AppendLine(" FROM MovimientosPoliza MP") - StrSQL.AppendLine(" INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id") - StrSQL.AppendLine(" INNER JOIN Cuentas C ON MP.IdCuenta = C.Id") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC ON CC.CveClasificacion = PD.CveClasificacion") + StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)") + StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") + StrSQL.AppendLine(" INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC WITH(NOLOCK) ON CC.CveClasificacion = PD.CveClasificacion") StrSQL.AppendLine(" WHERE MP.IdCuenta = @CveFuncionalidad AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF") StrSQL.AppendLine(" ") @@ -1902,12 +1902,12 @@ Public Class ClsContPAQi StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") - StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC ON CC.CveClasificacion = PD.CveClasificacion") - StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") - StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") - StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id") + StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC WITH(NOLOCK) ON CC.CveClasificacion = PD.CveClasificacion") + StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") + StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") + StrSQL.AppendLine(" LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id") StrSQL.AppendLine(" WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable = 4 ") StrSQL.AppendLine(" AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF") @@ -1931,12 +1931,12 @@ Public Class ClsContPAQi StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") - StrSQL.AppendLine(" FROM MovimientosPoliza MP") - StrSQL.AppendLine(" INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id") - StrSQL.AppendLine(" INNER JOIN Cuentas C ON MP.IdCuenta = C.Id") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") - StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC ON CC.CveClasificacion = PD.CveClasificacion") + StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)") + StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") + StrSQL.AppendLine(" INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC WITH(NOLOCK) ON CC.CveClasificacion = PD.CveClasificacion") StrSQL.AppendLine(" WHERE MP.IdCuenta = @CveFuncionalidad AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF") StrSQL.AppendLine(" ") @@ -1954,12 +1954,12 @@ Public Class ClsContPAQi StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") - StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") - StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC ON CC.CveClasificacion = PD.CveClasificacion") - StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") - StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") - StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id") + StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza") + StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC WITH(NOLOCK) ON CC.CveClasificacion = PD.CveClasificacion") + StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") + StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") + StrSQL.AppendLine(" LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id") StrSQL.AppendLine(" WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable = 6 ") StrSQL.AppendLine(" AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))") StrSQL.AppendLine(" AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF") From 995cb74bc6d1b595d50802d77a846794c672707b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 May 2022 13:49:39 -0700 Subject: [PATCH 5/9] =?UTF-8?q?--=20que=20se=20env=C3=ADe=20a=20mercancia?= =?UTF-8?q?=20en=20tr=C3=A1nsito=20E158?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a822ecb0b..54f2befe8 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4695,7 +4695,7 @@ Partial Class Compras_Compras 'End If 'METODO DE PREPOLIZA DE ALMACEN - If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then + If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal If ImporteAlmacen > 0 Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then @@ -6518,7 +6518,7 @@ Partial Class Compras_Compras ' End If Case 6 'Compra - Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" + Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 158, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" From ee52094f472cb611d3181b9e1cbfea471d0340ec Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 May 2022 20:08:08 -0700 Subject: [PATCH 6/9] -- mejora en filtro de empresa --- App_Code/ClsCompras.vb | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 35d8638ea..85ebc6d5d 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -1735,13 +1735,14 @@ Public Class ClsCompras Return OnError End Function - Public Function UpdateEstatus(pFueValidado As Integer, pCveFactura As Integer) As Boolean + Public Function UpdateEstatus(pFueValidado As Integer, pCveFactura As Integer, CveEmpresa As Integer) As Boolean Dim OnError As Boolean = False - DataAdapter("UPDATE Comp_Facturas SET FueValidado = @pFueValidado WHERE CveFactura = @pCveFactura ", CommandType.Text) + DataAdapter("UPDATE Comp_Facturas SET FueValidado = @pFueValidado WHERE CveFactura = @pCveFactura AND CveEmpresa = @CveEmpresa ", CommandType.Text) With SqlAdapter.SelectCommand.Parameters .Add("@pFueValidado", SqlDbType.SmallInt).Value = pFueValidado .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -1754,12 +1755,14 @@ Public Class ClsCompras Return OnError End Function - Public Function DeleteFactura(pCveFactura As Integer) As Boolean + Public Function DeleteFactura(pCveFactura As Integer, CveEmpresa As Integer) As Boolean Dim OnError As Boolean = False - DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveCompra IS NULL ", CommandType.Text) - - SqlAdapter.SelectCommand.Parameters.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura + DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveEmpresa = @CveEmpresa AND CveCompra IS NULL ", CommandType.Text) + With SqlAdapter.SelectCommand.Parameters + .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) From 144d321dce3c1eedf2041d5710bc945e2dc71135 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 May 2022 20:08:37 -0700 Subject: [PATCH 7/9] -- filtro de distribuidor scorecard --- App_Code/ClsVentas.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 21be0f560..fd678dad0 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4926,7 +4926,7 @@ Public Class ClsVentas Return retorno End Function Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer, - CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer, CveCliente As Integer, + CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer, CveCliente As Integer, EsDistribuidor As Integer, Optional GrupoSuperior As Integer = 0) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure) @@ -4940,6 +4940,7 @@ Public Class ClsVentas .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor .Add("@GrupoSuperior", SqlDbType.Int).Value = GrupoSuperior End With Try From d5d4f762f6f507e882b596bdb5e1b89df80c40ec Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 May 2022 20:09:00 -0700 Subject: [PATCH 8/9] - filtro empresa --- Compras/Compras.aspx.vb | 2 -- Compras/eFacturas.aspx.vb | 39 ++++++++++++++++++++------------------- 2 files changed, 20 insertions(+), 21 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 54f2befe8..b86aee900 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -7809,8 +7809,6 @@ Partial Class Compras_Compras idCuentaContabilizacion = 0 End If - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index e50b0a6ec..be531b95e 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1095,7 +1095,7 @@ Partial Class Compras_eFacturas Dim ObjDatos As New ClsCompras Dim FueValidado As Integer = 0 If GvD.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1 - If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvD.EditIndex = -1 BtnConsultar_Click(sender, e) End If @@ -1138,16 +1138,16 @@ Partial Class Compras_eFacturas If ObjValidacion.EsValida = 2 Then Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion) End If - Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Else Alert("La Factura no se pudo validar.", TipoMensaje.MsgAdvertencia) End If ObjValidacion.Dispose() Case "ValidarCFD" - Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Case "Omitir" - Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) End Select ObjDatos.Dispose() @@ -1261,7 +1261,7 @@ Partial Class Compras_eFacturas Dim ObjDatos As New ClsCompras Dim FueValidado As Integer = 0 If GvPagos.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1 - If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvPagos.EditIndex = -1 End If ObjDatos.Dispose() @@ -1298,16 +1298,16 @@ Partial Class Compras_eFacturas If ObjValidacion.EsValida = 2 Then Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion) End If - Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Else Alert("La Factura no se pudo validar.", TipoMensaje.MsgAdvertencia) End If ObjValidacion.Dispose() Case "ValidarCFD" - Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Case "Omitir" - Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) End Select ObjDatos.Dispose() @@ -1317,15 +1317,15 @@ Partial Class Compras_eFacturas End Sub #End Region Protected Sub ImgCFDiMasivo_Click(sender As Object, e As EventArgs) Handles LnkCFDiMasivo.Click - Dim ObjDatos As New ClsCompras - ObjDatos.IniciaTransacSQL() + Dim ErrorTrans As Boolean = False If Tab.ActiveTabIndex = 0 Then For Each GvRow As GridViewRow In GvD.Rows If GvRow.DataKey("TipoFactura") = "CFDi" AndAlso GvRow.DataKey("FueValidado").Contiene("0", "1") Then Dim ObjValidacion As New ClsValidaCFDi(GvRow.DataKey("UUID"), GvRow.DataKey("RFCDe"), GvRow.DataKey("RFCPara"), GvRow.DataKey("Total").ToDecimal) If ObjValidacion.EsValida > 0 Then - If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) Then + Dim ObjDatos As New ClsCompras + If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then ErrorTrans = True End If End If @@ -1337,22 +1337,23 @@ Partial Class Compras_eFacturas If GvRow.DataKey("TipoFactura") = "CFDi" AndAlso GvRow.DataKey("FueValidado").Contiene("0", "1") Then Dim ObjValidacion As New ClsValidaCFDi(GvRow.DataKey("UUID"), GvRow.DataKey("RFCDe"), GvRow.DataKey("RFCPara"), 0) If ObjValidacion.EsValida > 0 Then - If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) Then + Dim ObjDatos As New ClsCompras + If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then ErrorTrans = True End If + ObjDatos.Dispose() End If ObjValidacion.Dispose() End If Next End If If Not ErrorTrans Then - ObjDatos.Commit() + Alert("La verificación masiva ha terminado", TipoMensaje.MsgInformacion) CargaDatos() - Else - ObjDatos.RollBack() + End If - ObjDatos.Dispose() + End Sub Protected Sub LnkNoRecibidas_Click(sender As Object, e As EventArgs, Optional ValidaRowCount As Boolean = False) Handles LnkNoRecibias.Click Dim DtNoRecibidas As New DataTable @@ -2656,7 +2657,7 @@ Partial Class Compras_eFacturas ObjGral.Dispose() If Borrar = True Then Dim ObjCompras As New ClsCompras - If ObjCompras.DeleteFactura(CveFactura) Then + If ObjCompras.DeleteFactura(CveFactura, UsuarioActual.CveEmpresa) Then GvD.EditIndex = -1 RegistraScript(String.Format("$('#{0}').modal('hide');", "divDescripcion")) Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion) @@ -2681,7 +2682,7 @@ Partial Class Compras_eFacturas ObjGral.Dispose() If Borrar = True Then Dim ObjCompras As New ClsCompras - If ObjCompras.DeleteFactura(CveFactura) Then + If ObjCompras.DeleteFactura(CveFactura, UsuarioActual.CveEmpresa) Then GvPagos.EditIndex = -1 RegistraScript("$('#divDescripcionPago').modal('hide');") Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion) @@ -3966,7 +3967,7 @@ Partial Class Compras_eFacturas ValidadoSAT = False Else Dim ObjDatos As New ClsCompras - ValidadoSAT = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, gvRow.DataKey("CveFactura").ToEntero) + ValidadoSAT = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, gvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) ObjDatos.Dispose() End If From fa3955be63cda35e3305894d26b9356694de4a38 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 May 2022 20:09:17 -0700 Subject: [PATCH 9/9] -- mejoras en TC --- Contabilidad/RegPrePolizaS.aspx | 35 +++--- Contabilidad/RegPrePolizaS.aspx.vb | 168 ++++++++++++++++++++--------- 2 files changed, 141 insertions(+), 62 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index b3bfd9b46..31d653243 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -475,7 +475,7 @@
+ DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC" Width="100%" > Movimiento @@ -796,7 +796,7 @@
Venta:
- + @@ -837,9 +837,7 @@ TC:
-
- - +
@@ -903,9 +901,11 @@
Mon Extrajera:
-
-
- +
+ +
+
+ Importe en dólares, en Cargo/Abono, su proporcional
@@ -925,10 +925,7 @@
-
- - - +
@@ -990,8 +987,18 @@
- - +
+
+ + +
+
+ + +
+
+ +
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 7fc9b2cc2..eb0523e61 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -59,15 +59,15 @@ Partial Class ContabilidadC_RegPrePolizaS End Get End Property - 'PARA CREAR IE - Private Property CveConcepto As Integer + Public Property DrConceptoContable As DataRow Get - Return ViewState("CveConcepto").ToString.ToEntero + Return CType(ViewState("ArregloMovs"), DataRow) End Get - Set(value As Integer) - ViewState("CveConcepto") = value + Set(value As DataRow) + ViewState("ArregloMovs") = value End Set End Property + Private Property CveTipoTransaccion As Integer Get Return ViewState("CveTipoTransaccion").ToString.ToEntero @@ -244,7 +244,7 @@ Partial Class ContabilidadC_RegPrePolizaS CveMoneda = 1 ViewState("CvePrePoliza") = 0 ViewState("CvePeriodo") = "0" - CveConcepto = -1 + CveTipoTransaccion = -1 CveCuenta = -1 Folio = "-1" @@ -370,7 +370,6 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("ImporteMN", Type.GetType("System.Decimal")) .Add("ImporteME", Type.GetType("System.Decimal")) .Add("EsComodin", Type.GetType("System.Int32")) - .Add("CveConcepto", Type.GetType("System.Int32")) .Add("CveSubProyecto", Type.GetType("System.Int32")) .Add("Descripcion", Type.GetType("System.String")) .Add("CveProveedor", Type.GetType("System.Int32")) @@ -402,7 +401,6 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("EsComplementaria", Type.GetType("System.Boolean")) .Add("TC", Type.GetType("System.Decimal")) - End With @@ -901,11 +899,11 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CodigoCuenta") = drt("Codigo").ToString & "
" & drt("Nombre").ToString dr("Cuenta") = Cuenta 'TxtCuentaContable.Text - dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial")) + dr("Referencia") = If(drt("CveConceptoContable").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial")) dr("Concepto") = TxtConcepto.Text dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1) dr("EsComodin") = EsComodin - dr("CveConcepto") = drt("CveConcepto") + dr("CveConceptoContable") = drt("CveConceptoContable") dr("CveSubProyecto") = drt("CveSubProyectoNegativo") dr("Cargo") = TxtCargo.Text.ToDouble dr("Abono") = TxtAbono.Text.ToDouble @@ -978,11 +976,11 @@ Partial Class ContabilidadC_RegPrePolizaS 'Agregamos la opcion para vincular los movimientos bancarios - If e.Row.DataKey("CveConcepto").ToEntero.Contiene(41) Then + If e.Row.DataKey("CveConceptoContable").ToEntero.Contiene(41) Then Dim ObjMovimientos As New ClsMovimientos Dim DdlSaldos As DropDownList = e.Row.FCDropDownList("DdlSaldos") - Select Case e.Row.DataKey("CveConcepto").ToEntero + Select Case e.Row.DataKey("CveConceptoContable").ToEntero 'Acreedores Case 41 @@ -998,7 +996,7 @@ Partial Class ContabilidadC_RegPrePolizaS ObjMovimientos.Dispose() End If - If e.Row.DataKey("CveConcepto").ToEntero.Contiene(30) Then + If e.Row.DataKey("CveConceptoContable").ToEntero.Contiene(30) Then e.Row.FCLinkButton("ImgBancos").Visible = True If e.Row.DataKey("ContadoTipoTransaccion").ToEntero > 0 And e.Row.DataKey("ContadoCuenta").ToEntero > 0 And e.Row.DataKey("ContadoNumeroFolio").ToString.Length > 0 And @@ -1032,8 +1030,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If 'validaciones - - If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0 Or GvMov.Rows.Count > 0)) AndAlso UsuarioActual.CveRol <> 1 Then Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia) Exit Sub @@ -1049,9 +1045,7 @@ Partial Class ContabilidadC_RegPrePolizaS Exit Sub End If End If - Next - End If 'terminan validaciones @@ -1073,6 +1067,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim TmpCargo As Decimal = 0D Dim TmpAbono As Decimal = 0D Dim DifCargoAbono As Decimal = 0D + Dim TipoGrid As Integer = 0 ' 0 - GvMov, 1 - GvPrePoliza Try @@ -1090,40 +1085,54 @@ Partial Class ContabilidadC_RegPrePolizaS FolioPoliza = ObjMov.FolioPoliza + Dim Gv As GridView = GvMov + If DdlPlantilla.SelectedValue = "53" Then + Gv = GvPrePoliza + TipoGrid = 1 + End If + 'inserto las compras que voy a pagarDdlSaldos - For Each gvr As GridViewRow In GvMov.Rows + For Each gvr As GridViewRow In Gv.Rows 'If gvr.DataKey("IDCuenta").ToEntero > 0 Then ' IdCtaContable = gvr.DataKey("IDCuenta") 'End If 'Registra movimieno bancario - If gvr.DataKey("CveConcepto").ToEntero = 30 AndAlso gvr.DataKey("ContadoImporte").ToString.ToDecimal <> 0 Then + If gvr.DataKey("CveConceptoContable").ToEntero = 30 AndAlso gvr.DataKey("ContadoImporte").ToDecimal <> 0 Then - CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio").ToString, - gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "", + CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio"), + gvr.DataKey("ContadoBeneficiario"), gvr.DataKey("ContadoImporte").ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "", False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario" Exit For End If - 'If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then - ' FolioIE = ObjIE.Folio - 'End If + End If ImporteME = 0 TipoCambio = 1 If gvr.DataKey("TipoMovto") = "True" Then - Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble - TmpAbono = TmpAbono + Importe - TipoMovto = True + If TipoGrid = "0" Then 'gvprep + Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble + TmpAbono = TmpAbono + Importe + TipoMovto = True - If gvr.DataKey("EsComplementaria") = "True" Then - ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal - TipoCambio = gvr.FCTextBox("TipoCambio").Text.ToDecimal + If gvr.DataKey("EsComplementaria") = "True" Then + ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal + TipoCambio = gvr.FCTextBox("TipoCambio").Text.ToDecimal + End If + Else + Importe = gvr.DataKey("Abono").ToDecimal + TmpAbono = TmpAbono + Importe + TipoMovto = True + + If gvr.DataKey("EsComplementaria") = "True" Then + ImporteME = gvr.DataKey("MonedaExtranjera").ToDecimal + TipoCambio = gvr.DataKey("TipoCambio").ToDecimal + End If End If - Else Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble @@ -1137,9 +1146,9 @@ Partial Class ContabilidadC_RegPrePolizaS End If - If Not gvr.DataKey("CveConcepto").Contiene("30", "10") Then ' 30-bancos, 10-anticipos proveedores + If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10") Then ' 30-bancos, 10-anticipos proveedores - If gvr.DataKey("CveConcepto").ToEntero = 41 Then + If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero Else CveIE = -1 @@ -1158,7 +1167,7 @@ Partial Class ContabilidadC_RegPrePolizaS ' tCveCuenta = gvr.DataKey("CveCuenta").ToEntero 'End If - If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, + If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConceptoContable").ToEntero, gvr.FCTextBox("TxtConcepto").Text, TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero, @@ -1172,7 +1181,7 @@ Partial Class ContabilidadC_RegPrePolizaS Exit For End If End If - If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then + If CveIE > 0 AndAlso gvr.DataKey("CveConceptoContable").ToEntero = 30 Then MensajeAlert.AppendFormat("

Folio Bancario: {1}", CveIE, FolioIE) End If @@ -1428,8 +1437,6 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub - - Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged 'Aquii hay que consultar el concepto y determinar que es lo que se vba aplicar @@ -1440,6 +1447,7 @@ Partial Class ContabilidadC_RegPrePolizaS If CveConceptoContableInsertar > 0 Then DT_Concepto = GlobalDTContaConceptosContables(CveConceptoContableInsertar) + DrConceptoContable = GlobalDTContaConceptosContables(CveConceptoContableInsertar).FiltroPrimero("") Dim AplicaActivoFijo As Boolean = False Dim AplicaAlmacen As Boolean = False @@ -1455,6 +1463,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim AplicaTC As Boolean = False 'ok Dim AplicaVenta As Boolean = False Dim AplicaComplementaria As Boolean = False 'ok + Dim AplicaME As Boolean = False 'ok AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString) AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString) @@ -1472,6 +1481,7 @@ Partial Class ContabilidadC_RegPrePolizaS AplicaTC = Boolean.Parse(DT_Concepto.Rows(0)("AplicaTC").ToString) AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString) AplicaComplementaria = Boolean.Parse(DT_Concepto.Rows(0)("EsComplementaria").ToString) + 'AplicaME = Boolean.Parse(DT_Concepto.Rows(0)("EsMonedaExtranjera").ToString) If AplicaImpuesto Then @@ -1549,11 +1559,31 @@ Partial Class ContabilidadC_RegPrePolizaS Else DivMonedaExtranjera.Visible = False End If + CargaCuentaConcepto(CveConceptoContableInsertar) End If UpModalConcepto.Update() End Sub + + Private Sub CargaCuentaConcepto(CveConcepto As Integer) + Dim ObjConta As New ClsContabilidad + If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, -1, 1, CveConcepto) Then + Dim dr As DataRow = ObjConta.DtResultados.FiltroPrimero("") + If dr IsNot Nothing Then + DdlCuentaContableE.SelectedValueExist(dr("CveCuenta")) + Else + If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa, CveConcepto) Then + Dim drY As DataRow = ObjConta.DtResultados.FiltroPrimero("") + If drY IsNot Nothing Then + DdlCuentaContableE.SelectedValueExist(drY("CveCuenta")) + End If + End If + End If + End If + ObjConta.Dispose() + + End Sub Private Sub CargaProveedoresE() DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedoresE.DataBind() @@ -1592,7 +1622,7 @@ Partial Class ContabilidadC_RegPrePolizaS If CveMoneda = 2 Then DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2") Else - DdlVentasE.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0") + DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 1") End If DdlVentasE.DataBind() @@ -1619,18 +1649,52 @@ Partial Class ContabilidadC_RegPrePolizaS CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero) End Sub Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange + Dim tCveMoneda As Integer = 1 - CargaVentasE(DdlClientesE.SelectedValue.ToEntero, IIf(DdlConceptosContablesE.SelectedValue.Contiene("291", "292"), 2, -1)) + If DrConceptoContable IsNot Nothing Then + Dim AplicaME = Boolean.Parse(DrConceptoContable("EsMonedaExtranjera").ToString) + If AplicaME Then + tCveMoneda = 2 + End If + End If + + CargaVentasE(DdlClientesE.SelectedValue.ToEntero, tCveMoneda) End Sub + Private Function CargaValidacionesConcepto() As Boolean + Dim Retorno As Boolean = true + + If DrConceptoContable IsNot Nothing Then + Dim AplicaComplementaria = Boolean.Parse(DrConceptoContable("EsComplementaria").ToString) + + If AplicaComplementaria Then + Dim Importe As Decimal = IIf(TxtCargoE.Text.ToDecimal <> 0, TxtCargoE.Text.ToDecimal, TxtAbonoE.Text.ToDecimal) + 'valida Mon Extranjera por el TC - Mon Extranjera + Dim dif As Decimal = ((TxtME.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal) - TxtME.Text.ToDecimal).RoundSQL - Importe + + If dif <> 0 Then + Alert("El importe moneda extranjera no coinciden con el TC ") + Retorno = False + Else + Retorno = True + End If + End If + + End If + Return Retorno + End Function Protected Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click 'asdasdasd + If Not CargaValidacionesConcepto() Then + Exit Sub + End If + ChkSeguir.Visible = False If IndiceGrid = -1 Then - + ChkSeguir.Visible = True If DtMovimientos Is Nothing Then CreaDT() Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero) @@ -1675,7 +1739,7 @@ Partial Class ContabilidadC_RegPrePolizaS TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero UpTotalCargo.Update() UpTotalAbono.Update() - RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal") + If Not ChkSeguir.Checked Then RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal") Else Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero @@ -1797,7 +1861,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("Concepto") = TxtConcepto.Text dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True) dr("EsComodin") = 0 - dr("CveConcepto") = DdlConceptosContables.SelectedValue + dr("CveConceptoContable") = DdlConceptosContables.SelectedValue dr("Cargo") = TxtCargo.Text.ToDouble dr("Abono") = TxtAbono.Text.ToDouble dr("Descripcion") = TxtDescripcion.Text @@ -1869,7 +1933,6 @@ Partial Class ContabilidadC_RegPrePolizaS dr("Concepto") = TxtConcepto.Text dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True) dr("EsComodin") = 0 - dr("CveConcepto") = DdlConceptosContables.SelectedValue dr("CveConceptoContable") = DdlConceptosContables.SelectedValue dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text dr("Cargo") = TxtCargo.Text.ToDouble @@ -2074,7 +2137,7 @@ Partial Class ContabilidadC_RegPrePolizaS TxtConcepto.Text = DrM("Concepto") ' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto") DrM("EsComodin") = 0 - DdlConceptosContables.SelectedValueExist(DrM("CveConcepto").ToString) + DdlConceptosContables.SelectedValueExist(DrM("CveConceptoContable").ToString) TxtCargo.Text = DrM("Cargo").ToString TxtAbono.Text = DrM("Abono").ToString TxtDescripcion.Text = DrM("Descripcion").ToString @@ -2203,7 +2266,7 @@ Partial Class ContabilidadC_RegPrePolizaS .SubProyecto = row.Item("SubProyecto"), .Folio = "", .TipoTransferencia = "", - .CveConceptoContable = row.Item("CveConcepto"), + .CveConceptoContable = row.Item("CveConceptoContable"), .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1), .IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1), .CveCuenta = row.Item("CveCuenta") @@ -2432,7 +2495,6 @@ Partial Class ContabilidadC_RegPrePolizaS dr("Concepto") = Row("Concepto").ToString dr("TipoMovto") = TipoMovto dr("EsComodin") = 0 - dr("CveConcepto") = CveConceptoContable dr("CveConceptoContable") = CveConceptoContable dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString dr("Cargo") = Row("Cargo").ToString.ToDecimal.RoundSQL @@ -3060,8 +3122,6 @@ Partial Class ContabilidadC_RegPrePolizaS UpPoliza.Update() UpGuardar.Update() - - End Sub Private Sub LnkFolioManual_Click(sender As Object, e As EventArgs) Handles LnkFolioManual.Click @@ -3071,5 +3131,17 @@ Partial Class ContabilidadC_RegPrePolizaS UpPoliza.Update() End Sub + + Protected Sub DdlVentasE_SelectedIndexChanged(sender As Object, e As EventArgs) + Dim Venta As New ClsVentas + If Venta.GetVenta(DdlVentasE.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = Venta.DtResultados.FiltroPrimero("") + If dr IsNot Nothing Then + TxtTipoCambio.Text = dr("TipoCambioValuacion") + End If + End If + + Venta.Dispose() + End Sub End Class