AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
rakcsle
2022-05-12 09:58:03 -07:00
parent 6b55d43cf6 fa3955be63
commit 1f3cd651f0
9 changed files with 316 additions and 218 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
App_Code/ClsCompras.vb
View File

@@ -1735,13 +1735,14 @@ Public Class ClsCompras
Return OnError Return OnError
End Function 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 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 With SqlAdapter.SelectCommand.Parameters
.Add("@pFueValidado", SqlDbType.SmallInt).Value = pFueValidado .Add("@pFueValidado", SqlDbType.SmallInt).Value = pFueValidado
.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try
@@ -1754,12 +1755,14 @@ Public Class ClsCompras
Return OnError Return OnError
End Function 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 Dim OnError As Boolean = False
DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveCompra IS NULL ", CommandType.Text) DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveEmpresa = @CveEmpresa AND CveCompra IS NULL ", CommandType.Text)
With SqlAdapter.SelectCommand.Parameters
SqlAdapter.SelectCommand.Parameters.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

142
App_Code/ClsContPAQi.vb
View File

@@ -1438,13 +1438,13 @@ Public Class ClsContPAQi
StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,")
StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,")
StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra")
StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") 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 ON IE.CveIE = PD.CveIE") 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 ON BC.CveCuenta = IE.CveCuenta") StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Banc_BancosCuentas BC WITH(NOLOCK) ON BC.CveCuenta = IE.CveCuenta")
StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.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(" 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 (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") 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.CveIE,0) AS CveIE,")
StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,")
StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra")
StrSQL.AppendLine(" FROM MovimientosPoliza MP") StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
StrSQL.AppendLine(" INNER JOIN Cuentas C ON MP.IdCuenta = C.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(" 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_PrePolizasDetalle PD WITH(NOLOCK) 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_PrePolizas P WITH(NOLOCK) 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.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(" 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(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
StrSQL.AppendLine(" ") StrSQL.AppendLine(" ")
@@ -1492,12 +1492,12 @@ Public Class ClsContPAQi
StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,")
StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,")
StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra")
StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") 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 ON Cl.CveProveedor = PD.CveProveedor") StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl WITH(NOLOCK) ON Cl.CveProveedor = PD.CveProveedor")
StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.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(" 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 (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") 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.CveIE,0) AS CveIE,")
StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,")
StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra")
StrSQL.AppendLine(" FROM MovimientosPoliza MP") StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
StrSQL.AppendLine(" INNER JOIN Cuentas C ON MP.IdCuenta = C.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(" 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_PrePolizasDetalle PD WITH(NOLOCK) 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_PrePolizas P WITH(NOLOCK) 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.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(" 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(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
StrSQL.AppendLine(" ") StrSQL.AppendLine(" ")
@@ -1545,12 +1545,12 @@ Public Class ClsContPAQi
StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,")
StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,")
StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra")
StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") 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 ON Cl.CveProveedor = PD.CveProveedor") StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl WITH(NOLOCK) ON Cl.CveProveedor = PD.CveProveedor")
StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.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(" 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 (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") 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 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 Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id")
StrSQL.AppendLine(" INNER JOIN #CuentasContablesRecursivas A ON A.Id = 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_PrePolizasDetalle PD WITH(NOLOCK) 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_PrePolizas P WITH(NOLOCK) 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.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(" 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(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
StrSQL.AppendLine(" ") StrSQL.AppendLine(" ")
@@ -1598,12 +1598,12 @@ Public Class ClsContPAQi
StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,")
StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,")
StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra")
StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") 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 ON Cl.CveCliente = PD.CveCliente") StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Vw_Clientes Cl WITH(NOLOCK) ON Cl.CveCliente = PD.CveCliente")
StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.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(" 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 (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 ") 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.CveIE,0) AS CveIE,")
StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,")
StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra")
StrSQL.AppendLine(" FROM MovimientosPoliza MP") StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
StrSQL.AppendLine(" INNER JOIN Cuentas C ON MP.IdCuenta = C.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_PrePolizasDetalle PD WITH(NOLOCK) 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_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(" 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(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
StrSQL.AppendLine(" ") StrSQL.AppendLine(" ")
@@ -1732,8 +1732,8 @@ Public Class ClsContPAQi
StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)") StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id") 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 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_PrePolizasDetalle PD WITH(NOLOCK) 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_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(" 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(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
StrSQL.AppendLine(" ") StrSQL.AppendLine(" ")
@@ -1879,12 +1879,12 @@ Public Class ClsContPAQi
StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,")
StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,")
StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra")
StrSQL.AppendLine(" FROM MovimientosPoliza MP") StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
StrSQL.AppendLine(" INNER JOIN Cuentas C ON MP.IdCuenta = C.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_PrePolizasDetalle PD WITH(NOLOCK) 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_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC ON CC.CveClasificacion = PD.CveClasificacion") 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(" 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(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
StrSQL.AppendLine(" ") StrSQL.AppendLine(" ")
@@ -1902,12 +1902,12 @@ Public Class ClsContPAQi
StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,")
StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,")
StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra")
StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") 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 ON CC.CveClasificacion = PD.CveClasificacion") StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC WITH(NOLOCK) ON CC.CveClasificacion = PD.CveClasificacion")
StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.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(" 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 (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") 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.CveIE,0) AS CveIE,")
StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,")
StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra")
StrSQL.AppendLine(" FROM MovimientosPoliza MP") StrSQL.AppendLine(" FROM MovimientosPoliza MP WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
StrSQL.AppendLine(" INNER JOIN Cuentas C ON MP.IdCuenta = C.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_PrePolizasDetalle PD WITH(NOLOCK) 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_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
StrSQL.AppendLine(" LEFT JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC ON CC.CveClasificacion = PD.CveClasificacion") 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(" 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(" AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
StrSQL.AppendLine(" ") StrSQL.AppendLine(" ")
@@ -1954,12 +1954,12 @@ Public Class ClsContPAQi
StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,") StrSQL.AppendLine(" ISNULL(PD.CveIE,0) AS CveIE,")
StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,") StrSQL.AppendLine(" ISNULL(PD.CveVenta,0) AS CveVenta,")
StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra") StrSQL.AppendLine(" ISNULL(PD.CveCompra,0) AS CveCompra")
StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD") StrSQL.AppendLine(" FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza") 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 ON CC.CveClasificacion = PD.CveClasificacion") StrSQL.AppendLine(" INNER JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC WITH(NOLOCK) ON CC.CveClasificacion = PD.CveClasificacion")
StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle") StrSQL.AppendLine(" LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
StrSQL.AppendLine(" LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id") StrSQL.AppendLine(" LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
StrSQL.AppendLine(" LEFT JOIN Cuentas C ON PD.IdCtaContable = C.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(" 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 (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") StrSQL.AppendLine(" AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF")

3
App_Code/ClsVentas.vb
View File

@@ -4926,7 +4926,7 @@ Public Class ClsVentas
Return retorno Return retorno
End Function End Function
Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer, 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 Optional GrupoSuperior As Integer = 0) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure) DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure)
@@ -4940,6 +4940,7 @@ Public Class ClsVentas
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
.Add("@GrupoSuperior", SqlDbType.Int).Value = GrupoSuperior .Add("@GrupoSuperior", SqlDbType.Int).Value = GrupoSuperior
End With End With
Try Try

34
Compras/Compras.aspx.vb
View File

@@ -4695,7 +4695,7 @@ Partial Class Compras_Compras
'End If 'End If
'METODO DE PREPOLIZA DE ALMACEN '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 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 ImporteAlmacen > 0 Then
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -4764,7 +4764,7 @@ Partial Class Compras_Compras
ViewState("CveCompra") = ObjCompras.CveCompra ViewState("CveCompra") = ObjCompras.CveCompra
If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 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 TotalRealDevolucion = Devolucion.Total
@@ -6518,7 +6518,7 @@ Partial Class Compras_Compras
' End If ' End If
Case 6 'Compra 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" Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
@@ -7809,8 +7809,6 @@ Partial Class Compras_Compras
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If 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 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 ErrorPrepoliza = True
Exit For Exit For
@@ -14414,26 +14412,21 @@ Partial Class Compras_Compras
Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Decimal, Fecha As Date) As MMensajeDevolucion Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Decimal, Fecha As Date) As MMensajeDevolucion
Dim TotalSumaPU As Decimal = 0
Dim TotalSumaPU As Decimal = 0.0D
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim CveAlmacen As Integer = DdlAlmacenDevolucion.SelectedValue.ToEntero() Dim CveAlmacen As Integer = DdlAlmacenDevolucion.SelectedValue.ToEntero()
Dim subtotaldevolucion As Double = 0 Dim subtotaldevolucion As Decimal = 0
Dim realizadevolucion As Boolean = False Dim realizadevolucion As Boolean = False
Dim CveMovimientoEntrada As Integer = -1 Dim CveMovimientoEntrada As Integer = -1
'Calculo los subtotales para comparar con la NC 'Calculo los subtotales para comparar con la NC
Dim cantidad As Double = 0.0 Dim Cantidad As Decimal
Dim TotalAlmacen As Decimal = 0
For Each Dr As GridViewRow In GVDevolucion.Rows For Each Dr As GridViewRow In GVDevolucion.Rows
'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero 'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero
cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
If cantidad > 0 Then If cantidad > 0 Then
realizadevolucion = True realizadevolucion = True
subtotaldevolucion += Dr.DataKey("PU").ToString.ToDouble * cantidad subtotaldevolucion += Dr.DataKey("PU").ToString.ToDecimal * cantidad
End If End If
Next Next
'si no esta vinculado a nc simplemente me lo brinco 'si no esta vinculado a nc simplemente me lo brinco
@@ -14447,7 +14440,7 @@ Partial Class Compras_Compras
ErrorMovInv = True ErrorMovInv = True
Else Else
Dim Acumulado As Decimal = 0 Dim Acumulado As Decimal = 0
Dim PU As Decimal = 0 Dim PU As Decimal
Dim CantidadRenglones As Integer = 0 Dim CantidadRenglones As Integer = 0
Dim ii As Integer = 0 Dim ii As Integer = 0
For Each Dr As GridViewRow In GVDevolucion.Rows For Each Dr As GridViewRow In GVDevolucion.Rows
@@ -14466,7 +14459,6 @@ Partial Class Compras_Compras
PU = (((Dr.FCTextBox("TxtCantidad").Text.ToDecimal * Dr.DataKey("PU").ToString.ToDecimal)) + dif) / Dr.FCTextBox("TxtCantidad").Text.ToDecimal PU = (((Dr.FCTextBox("TxtCantidad").Text.ToDecimal * Dr.DataKey("PU").ToString.ToDecimal)) + dif) / Dr.FCTextBox("TxtCantidad").Text.ToDecimal
End If 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 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 ErrorMovInv = True
Exit For Exit For
@@ -14481,8 +14473,6 @@ Partial Class Compras_Compras
End If End If
End If End If
If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1, -1) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1, -1) Then
For Each drow As DataRow In ObjInventario.DtResultados.Rows For Each drow As DataRow In ObjInventario.DtResultados.Rows
@@ -14491,8 +14481,6 @@ Partial Class Compras_Compras
End If End If
Return New MMensajeDevolucion() With Return New MMensajeDevolucion() With
{ {
.CveMovimiento = CveMovimientoEntrada, .CveMovimiento = CveMovimientoEntrada,
@@ -14567,7 +14555,7 @@ Partial Class Compras_Compras
'si no esta vinculado a nc simplemente me lo brinco 'si no esta vinculado a nc simplemente me lo brinco
If realizadevolucion Then If realizadevolucion Then
'si el subtotal es iwal a la nc lo guardo si no marco error '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() VinculaDevolucion()
@@ -14588,7 +14576,7 @@ Partial Class Compras_Compras
'LIMPIAR PARTIDAS DE LA COMPRA PARA AGREGAR NUEVAS 'LIMPIAR PARTIDAS DE LA COMPRA PARA AGREGAR NUEVAS
TmpDT.Clear() TmpDT.Clear()
Dim SubTotalCompra As Decimal = TxtSubTotal.Text.ToDecimal() Dim SubTotalCompra As Decimal = TxtSubTotal2.Text.ToDecimal()
Dim TotalCompra As Decimal = TxtTotal.Text.ToDecimal() Dim TotalCompra As Decimal = TxtTotal.Text.ToDecimal()
Dim IVACompra As Decimal = TxtIVA.Text.ToDecimal() Dim IVACompra As Decimal = TxtIVA.Text.ToDecimal()
Dim IEPSCompra As Decimal = TxtIEPS.Text.ToDecimal() Dim IEPSCompra As Decimal = TxtIEPS.Text.ToDecimal()

39
Compras/eFacturas.aspx.vb
View File

@@ -1095,7 +1095,7 @@ Partial Class Compras_eFacturas
Dim ObjDatos As New ClsCompras Dim ObjDatos As New ClsCompras
Dim FueValidado As Integer = 0 Dim FueValidado As Integer = 0
If GvD.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1 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 GvD.EditIndex = -1
BtnConsultar_Click(sender, e) BtnConsultar_Click(sender, e)
End If End If
@@ -1138,16 +1138,16 @@ Partial Class Compras_eFacturas
If ObjValidacion.EsValida = 2 Then If ObjValidacion.EsValida = 2 Then
Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion) Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion)
End If End If
Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
Else Else
Alert("La Factura no se pudo validar.", TipoMensaje.MsgAdvertencia) Alert("La Factura no se pudo validar.", TipoMensaje.MsgAdvertencia)
End If End If
ObjValidacion.Dispose() ObjValidacion.Dispose()
Case "ValidarCFD" Case "ValidarCFD"
Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero) Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
Case "Omitir" Case "Omitir"
Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero) Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
End Select End Select
ObjDatos.Dispose() ObjDatos.Dispose()
@@ -1261,7 +1261,7 @@ Partial Class Compras_eFacturas
Dim ObjDatos As New ClsCompras Dim ObjDatos As New ClsCompras
Dim FueValidado As Integer = 0 Dim FueValidado As Integer = 0
If GvPagos.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1 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 GvPagos.EditIndex = -1
End If End If
ObjDatos.Dispose() ObjDatos.Dispose()
@@ -1298,16 +1298,16 @@ Partial Class Compras_eFacturas
If ObjValidacion.EsValida = 2 Then If ObjValidacion.EsValida = 2 Then
Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion) Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion)
End If End If
Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
Else Else
Alert("La Factura no se pudo validar.", TipoMensaje.MsgAdvertencia) Alert("La Factura no se pudo validar.", TipoMensaje.MsgAdvertencia)
End If End If
ObjValidacion.Dispose() ObjValidacion.Dispose()
Case "ValidarCFD" Case "ValidarCFD"
Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero) Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
Case "Omitir" Case "Omitir"
Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero) Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
End Select End Select
ObjDatos.Dispose() ObjDatos.Dispose()
@@ -1317,15 +1317,15 @@ Partial Class Compras_eFacturas
End Sub End Sub
#End Region #End Region
Protected Sub ImgCFDiMasivo_Click(sender As Object, e As EventArgs) Handles LnkCFDiMasivo.Click 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 Dim ErrorTrans As Boolean = False
If Tab.ActiveTabIndex = 0 Then If Tab.ActiveTabIndex = 0 Then
For Each GvRow As GridViewRow In GvD.Rows For Each GvRow As GridViewRow In GvD.Rows
If GvRow.DataKey("TipoFactura") = "CFDi" AndAlso GvRow.DataKey("FueValidado").Contiene("0", "1") Then 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) Dim ObjValidacion As New ClsValidaCFDi(GvRow.DataKey("UUID"), GvRow.DataKey("RFCDe"), GvRow.DataKey("RFCPara"), GvRow.DataKey("Total").ToDecimal)
If ObjValidacion.EsValida > 0 Then 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 ErrorTrans = True
End If End If
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 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) Dim ObjValidacion As New ClsValidaCFDi(GvRow.DataKey("UUID"), GvRow.DataKey("RFCDe"), GvRow.DataKey("RFCPara"), 0)
If ObjValidacion.EsValida > 0 Then 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 ErrorTrans = True
End If End If
ObjDatos.Dispose()
End If End If
ObjValidacion.Dispose() ObjValidacion.Dispose()
End If End If
Next Next
End If End If
If Not ErrorTrans Then If Not ErrorTrans Then
ObjDatos.Commit()
Alert("La verificación masiva ha terminado", TipoMensaje.MsgInformacion) Alert("La verificación masiva ha terminado", TipoMensaje.MsgInformacion)
CargaDatos() CargaDatos()
Else
ObjDatos.RollBack()
End If End If
ObjDatos.Dispose()
End Sub End Sub
Protected Sub LnkNoRecibidas_Click(sender As Object, e As EventArgs, Optional ValidaRowCount As Boolean = False) Handles LnkNoRecibias.Click Protected Sub LnkNoRecibidas_Click(sender As Object, e As EventArgs, Optional ValidaRowCount As Boolean = False) Handles LnkNoRecibias.Click
Dim DtNoRecibidas As New DataTable Dim DtNoRecibidas As New DataTable
@@ -2656,7 +2657,7 @@ Partial Class Compras_eFacturas
ObjGral.Dispose() ObjGral.Dispose()
If Borrar = True Then If Borrar = True Then
Dim ObjCompras As New ClsCompras Dim ObjCompras As New ClsCompras
If ObjCompras.DeleteFactura(CveFactura) Then If ObjCompras.DeleteFactura(CveFactura, UsuarioActual.CveEmpresa) Then
GvD.EditIndex = -1 GvD.EditIndex = -1
RegistraScript(String.Format("$('#{0}').modal('hide');", "divDescripcion")) RegistraScript(String.Format("$('#{0}').modal('hide');", "divDescripcion"))
Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion)
@@ -2681,7 +2682,7 @@ Partial Class Compras_eFacturas
ObjGral.Dispose() ObjGral.Dispose()
If Borrar = True Then If Borrar = True Then
Dim ObjCompras As New ClsCompras Dim ObjCompras As New ClsCompras
If ObjCompras.DeleteFactura(CveFactura) Then If ObjCompras.DeleteFactura(CveFactura, UsuarioActual.CveEmpresa) Then
GvPagos.EditIndex = -1 GvPagos.EditIndex = -1
RegistraScript("$('#divDescripcionPago').modal('hide');") RegistraScript("$('#divDescripcionPago').modal('hide');")
Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion)
@@ -3966,7 +3967,7 @@ Partial Class Compras_eFacturas
ValidadoSAT = False ValidadoSAT = False
Else Else
Dim ObjDatos As New ClsCompras 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() ObjDatos.Dispose()
End If End If

35
Contabilidad/RegPrePolizaS.aspx
View File

@@ -475,7 +475,7 @@
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom "> <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
<asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None" <asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
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,EsComplementaria" Width="100%" > 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%" >
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Movimiento</HeaderTemplate> <HeaderTemplate>Movimiento</HeaderTemplate>
@@ -796,7 +796,7 @@
<div class="row" runat="server" id="DvModalconceptoVenta" visible="false"> <div class="row" runat="server" id="DvModalconceptoVenta" visible="false">
<div class="col-xs-2" style="text-align: left">Venta:</div> <div class="col-xs-2" style="text-align: left">Venta:</div>
<div class="col-xs-4" style="text-align: left"> <div class="col-xs-4" style="text-align: left">
<asp:DropDownList ID="DdlVentasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="405px"></asp:DropDownList> <asp:DropDownList ID="DdlVentasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="405px" AutoPostBack="true" OnSelectedIndexChanged="DdlVentasE_SelectedIndexChanged"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlVentasE" InitialValue="-1" runat="server" ControlToValidate="DdlVentasE" Display="None" ErrorMessage="El campo <b>''Venta''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvDdlVentasE" InitialValue="-1" runat="server" ControlToValidate="DdlVentasE" Display="None" ErrorMessage="El campo <b>''Venta''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="CeRfvDdlVentasE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlVentasE" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="CeRfvDdlVentasE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlVentasE" Width="350px"></ajax:ValidatorCalloutExtender>
<i></i> <i></i>
@@ -837,9 +837,7 @@
TC: TC:
</div> </div>
<div class="col-xs-3"> <div class="col-xs-3">
<asp:TextBox ID="TxtTipoCambio" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br /> <asp:TextBox ID="TxtTipoCambio" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox>
<asp:CompareValidator ID="RfvTxtModalConceptoTipoCambio" runat="server" ControlToValidate="TxtTipoCambio" Display="None" ErrorMessage="El campo <b>''Tipo de Cambio''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VceRfvTxtModalConceptoTipoCambio" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalConceptoTipoCambio" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
@@ -903,9 +901,11 @@
<div class="col-xs-2" style="text-align: left"> <div class="col-xs-2" style="text-align: left">
Mon Extrajera: Mon Extrajera:
</div> </div>
<div class="col-xs-3"> <div class="col-xs-2">
<asp:TextBox ID="TxtME" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br /> <asp:TextBox ID="TxtME" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox>
</div>
<div class="col-xs-8">
Importe en dólares, en Cargo/Abono, su proporcional
</div> </div>
</div> </div>
<div class="row"> <div class="row">
@@ -925,10 +925,7 @@
<asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator> <asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
</div> </div>
<div class="col-md-6" runat="server" id="DvMoldalConceptoSeccion2" visible="false"> <div class="col-md-6" runat="server" id="DvMoldalConceptoSeccion2" visible="false">
@@ -990,8 +987,18 @@
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:Button ID="BtnAceptar" runat="server" class="btn btn-success" Text="Aceptar" ValidationGroup="GrpMocalConceptoGuardar" /> <div class="row">
<button id="BtnCancelar" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button> <div class="col-md-8">
<asp:Button ID="BtnAceptar" runat="server" class="btn btn-success" Text="Aceptar" ValidationGroup="GrpMocalConceptoGuardar" />
<button id="BtnCancelar" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
<div class="col-md-4">
<asp:CheckBox ID="ChkSeguir" runat="server" Checked="true" />
<label for="<%= ChkSeguir.ClientID.ToString()%>">Seguir Registrando:</label>
</div>
</div>
</div> </div>
</ContentTemplate> </ContentTemplate>

168
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -59,15 +59,15 @@ Partial Class ContabilidadC_RegPrePolizaS
End Get End Get
End Property End Property
'PARA CREAR IE Public Property DrConceptoContable As DataRow
Private Property CveConcepto As Integer
Get Get
Return ViewState("CveConcepto").ToString.ToEntero Return CType(ViewState("ArregloMovs"), DataRow)
End Get End Get
Set(value As Integer) Set(value As DataRow)
ViewState("CveConcepto") = value ViewState("ArregloMovs") = value
End Set End Set
End Property End Property
Private Property CveTipoTransaccion As Integer Private Property CveTipoTransaccion As Integer
Get Get
Return ViewState("CveTipoTransaccion").ToString.ToEntero Return ViewState("CveTipoTransaccion").ToString.ToEntero
@@ -244,7 +244,7 @@ Partial Class ContabilidadC_RegPrePolizaS
CveMoneda = 1 CveMoneda = 1
ViewState("CvePrePoliza") = 0 ViewState("CvePrePoliza") = 0
ViewState("CvePeriodo") = "0" ViewState("CvePeriodo") = "0"
CveConcepto = -1
CveTipoTransaccion = -1 CveTipoTransaccion = -1
CveCuenta = -1 CveCuenta = -1
Folio = "-1" Folio = "-1"
@@ -370,7 +370,6 @@ Partial Class ContabilidadC_RegPrePolizaS
.Add("ImporteMN", Type.GetType("System.Decimal")) .Add("ImporteMN", Type.GetType("System.Decimal"))
.Add("ImporteME", Type.GetType("System.Decimal")) .Add("ImporteME", Type.GetType("System.Decimal"))
.Add("EsComodin", Type.GetType("System.Int32")) .Add("EsComodin", Type.GetType("System.Int32"))
.Add("CveConcepto", Type.GetType("System.Int32"))
.Add("CveSubProyecto", Type.GetType("System.Int32")) .Add("CveSubProyecto", Type.GetType("System.Int32"))
.Add("Descripcion", Type.GetType("System.String")) .Add("Descripcion", Type.GetType("System.String"))
.Add("CveProveedor", Type.GetType("System.Int32")) .Add("CveProveedor", Type.GetType("System.Int32"))
@@ -402,7 +401,6 @@ Partial Class ContabilidadC_RegPrePolizaS
.Add("EsComplementaria", Type.GetType("System.Boolean")) .Add("EsComplementaria", Type.GetType("System.Boolean"))
.Add("TC", Type.GetType("System.Decimal")) .Add("TC", Type.GetType("System.Decimal"))
End With End With
@@ -901,11 +899,11 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("CodigoCuenta") = drt("Codigo").ToString & "<br>" & drt("Nombre").ToString dr("CodigoCuenta") = drt("Codigo").ToString & "<br>" & drt("Nombre").ToString
dr("Cuenta") = Cuenta 'TxtCuentaContable.Text 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("Concepto") = TxtConcepto.Text
dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1) dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1)
dr("EsComodin") = EsComodin dr("EsComodin") = EsComodin
dr("CveConcepto") = drt("CveConcepto") dr("CveConceptoContable") = drt("CveConceptoContable")
dr("CveSubProyecto") = drt("CveSubProyectoNegativo") dr("CveSubProyecto") = drt("CveSubProyectoNegativo")
dr("Cargo") = TxtCargo.Text.ToDouble dr("Cargo") = TxtCargo.Text.ToDouble
dr("Abono") = TxtAbono.Text.ToDouble dr("Abono") = TxtAbono.Text.ToDouble
@@ -978,11 +976,11 @@ Partial Class ContabilidadC_RegPrePolizaS
'Agregamos la opcion para vincular los movimientos bancarios '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 ObjMovimientos As New ClsMovimientos
Dim DdlSaldos As DropDownList = e.Row.FCDropDownList("DdlSaldos") Dim DdlSaldos As DropDownList = e.Row.FCDropDownList("DdlSaldos")
Select Case e.Row.DataKey("CveConcepto").ToEntero Select Case e.Row.DataKey("CveConceptoContable").ToEntero
'Acreedores 'Acreedores
Case 41 Case 41
@@ -998,7 +996,7 @@ Partial Class ContabilidadC_RegPrePolizaS
ObjMovimientos.Dispose() ObjMovimientos.Dispose()
End If 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 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 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 End If
'validaciones 'validaciones
If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0 Or GvMov.Rows.Count > 0)) AndAlso UsuarioActual.CveRol <> 1 Then 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) Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
@@ -1049,9 +1045,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Exit Sub Exit Sub
End If End If
End If End If
Next Next
End If End If
'terminan validaciones 'terminan validaciones
@@ -1073,6 +1067,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim TmpCargo As Decimal = 0D Dim TmpCargo As Decimal = 0D
Dim TmpAbono As Decimal = 0D Dim TmpAbono As Decimal = 0D
Dim DifCargoAbono As Decimal = 0D Dim DifCargoAbono As Decimal = 0D
Dim TipoGrid As Integer = 0 ' 0 - GvMov, 1 - GvPrePoliza
Try Try
@@ -1090,40 +1085,54 @@ Partial Class ContabilidadC_RegPrePolizaS
FolioPoliza = ObjMov.FolioPoliza 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 '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 'If gvr.DataKey("IDCuenta").ToEntero > 0 Then
' IdCtaContable = gvr.DataKey("IDCuenta") ' IdCtaContable = gvr.DataKey("IDCuenta")
'End If 'End If
'Registra movimieno bancario '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, CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio"),
gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "", gvr.DataKey("ContadoBeneficiario"), gvr.DataKey("ContadoImporte").ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "",
False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveIE < 0 Then If CveIE < 0 Then
MsgError = "No se pudo registrar movimiento bancario" MsgError = "No se pudo registrar movimiento bancario"
Exit For Exit For
End If 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 End If
ImporteME = 0 ImporteME = 0
TipoCambio = 1 TipoCambio = 1
If gvr.DataKey("TipoMovto") = "True" Then If gvr.DataKey("TipoMovto") = "True" Then
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble If TipoGrid = "0" Then 'gvprep
TmpAbono = TmpAbono + Importe Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
TipoMovto = True TmpAbono = TmpAbono + Importe
TipoMovto = True
If gvr.DataKey("EsComplementaria") = "True" Then If gvr.DataKey("EsComplementaria") = "True" Then
ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
TipoCambio = gvr.FCTextBox("TipoCambio").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 End If
Else Else
Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
@@ -1137,9 +1146,9 @@ Partial Class ContabilidadC_RegPrePolizaS
End If 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 CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
Else Else
CveIE = -1 CveIE = -1
@@ -1158,7 +1167,7 @@ Partial Class ContabilidadC_RegPrePolizaS
' tCveCuenta = gvr.DataKey("CveCuenta").ToEntero ' tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
'End If '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, TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
@@ -1172,7 +1181,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Exit For Exit For
End If End If
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("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""Texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE) MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""Texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
End If End If
@@ -1428,8 +1437,6 @@ Partial Class ContabilidadC_RegPrePolizaS
End Sub End Sub
Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged 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 '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 If CveConceptoContableInsertar > 0 Then
DT_Concepto = GlobalDTContaConceptosContables(CveConceptoContableInsertar) DT_Concepto = GlobalDTContaConceptosContables(CveConceptoContableInsertar)
DrConceptoContable = GlobalDTContaConceptosContables(CveConceptoContableInsertar).FiltroPrimero("")
Dim AplicaActivoFijo As Boolean = False Dim AplicaActivoFijo As Boolean = False
Dim AplicaAlmacen As Boolean = False Dim AplicaAlmacen As Boolean = False
@@ -1455,6 +1463,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim AplicaTC As Boolean = False 'ok Dim AplicaTC As Boolean = False 'ok
Dim AplicaVenta As Boolean = False Dim AplicaVenta As Boolean = False
Dim AplicaComplementaria As Boolean = False 'ok Dim AplicaComplementaria As Boolean = False 'ok
Dim AplicaME As Boolean = False 'ok
AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString) AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").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) AplicaTC = Boolean.Parse(DT_Concepto.Rows(0)("AplicaTC").ToString)
AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString) AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString)
AplicaComplementaria = Boolean.Parse(DT_Concepto.Rows(0)("EsComplementaria").ToString) AplicaComplementaria = Boolean.Parse(DT_Concepto.Rows(0)("EsComplementaria").ToString)
'AplicaME = Boolean.Parse(DT_Concepto.Rows(0)("EsMonedaExtranjera").ToString)
If AplicaImpuesto Then If AplicaImpuesto Then
@@ -1549,11 +1559,31 @@ Partial Class ContabilidadC_RegPrePolizaS
Else Else
DivMonedaExtranjera.Visible = False DivMonedaExtranjera.Visible = False
End If End If
CargaCuentaConcepto(CveConceptoContableInsertar)
End If End If
UpModalConcepto.Update() UpModalConcepto.Update()
End Sub 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() Private Sub CargaProveedoresE()
DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedoresE.DataBind() DdlProveedoresE.DataBind()
@@ -1592,7 +1622,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If CveMoneda = 2 Then If CveMoneda = 2 Then
DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2") DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2")
Else Else
DdlVentasE.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0") DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 1")
End If End If
DdlVentasE.DataBind() DdlVentasE.DataBind()
@@ -1619,18 +1649,52 @@ Partial Class ContabilidadC_RegPrePolizaS
CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero) CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero)
End Sub End Sub
Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange 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 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 Protected Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click
'asdasdasd 'asdasdasd
If Not CargaValidacionesConcepto() Then
Exit Sub
End If
ChkSeguir.Visible = False
If IndiceGrid = -1 Then If IndiceGrid = -1 Then
ChkSeguir.Visible = True
If DtMovimientos Is Nothing Then CreaDT() If DtMovimientos Is Nothing Then CreaDT()
Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero) Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
@@ -1675,7 +1739,7 @@ Partial Class ContabilidadC_RegPrePolizaS
TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
UpTotalCargo.Update() UpTotalCargo.Update()
UpTotalAbono.Update() UpTotalAbono.Update()
RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal") If Not ChkSeguir.Checked Then RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
Else Else
Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero
@@ -1797,7 +1861,7 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("Concepto") = TxtConcepto.Text dr("Concepto") = TxtConcepto.Text
dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True) dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
dr("EsComodin") = 0 dr("EsComodin") = 0
dr("CveConcepto") = DdlConceptosContables.SelectedValue dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
dr("Cargo") = TxtCargo.Text.ToDouble dr("Cargo") = TxtCargo.Text.ToDouble
dr("Abono") = TxtAbono.Text.ToDouble dr("Abono") = TxtAbono.Text.ToDouble
dr("Descripcion") = TxtDescripcion.Text dr("Descripcion") = TxtDescripcion.Text
@@ -1869,7 +1933,6 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("Concepto") = TxtConcepto.Text dr("Concepto") = TxtConcepto.Text
dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True) dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
dr("EsComodin") = 0 dr("EsComodin") = 0
dr("CveConcepto") = DdlConceptosContables.SelectedValue
dr("CveConceptoContable") = DdlConceptosContables.SelectedValue dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
dr("Cargo") = TxtCargo.Text.ToDouble dr("Cargo") = TxtCargo.Text.ToDouble
@@ -2074,7 +2137,7 @@ Partial Class ContabilidadC_RegPrePolizaS
TxtConcepto.Text = DrM("Concepto") TxtConcepto.Text = DrM("Concepto")
' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto") ' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto")
DrM("EsComodin") = 0 DrM("EsComodin") = 0
DdlConceptosContables.SelectedValueExist(DrM("CveConcepto").ToString) DdlConceptosContables.SelectedValueExist(DrM("CveConceptoContable").ToString)
TxtCargo.Text = DrM("Cargo").ToString TxtCargo.Text = DrM("Cargo").ToString
TxtAbono.Text = DrM("Abono").ToString TxtAbono.Text = DrM("Abono").ToString
TxtDescripcion.Text = DrM("Descripcion").ToString TxtDescripcion.Text = DrM("Descripcion").ToString
@@ -2203,7 +2266,7 @@ Partial Class ContabilidadC_RegPrePolizaS
.SubProyecto = row.Item("SubProyecto"), .SubProyecto = row.Item("SubProyecto"),
.Folio = "", .Folio = "",
.TipoTransferencia = "", .TipoTransferencia = "",
.CveConceptoContable = row.Item("CveConcepto"), .CveConceptoContable = row.Item("CveConceptoContable"),
.CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1), .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1),
.IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1), .IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1),
.CveCuenta = row.Item("CveCuenta") .CveCuenta = row.Item("CveCuenta")
@@ -2432,7 +2495,6 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("Concepto") = Row("Concepto").ToString dr("Concepto") = Row("Concepto").ToString
dr("TipoMovto") = TipoMovto dr("TipoMovto") = TipoMovto
dr("EsComodin") = 0 dr("EsComodin") = 0
dr("CveConcepto") = CveConceptoContable
dr("CveConceptoContable") = CveConceptoContable dr("CveConceptoContable") = CveConceptoContable
dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString
dr("Cargo") = Row("Cargo").ToString.ToDecimal.RoundSQL dr("Cargo") = Row("Cargo").ToString.ToDecimal.RoundSQL
@@ -3060,8 +3122,6 @@ Partial Class ContabilidadC_RegPrePolizaS
UpPoliza.Update() UpPoliza.Update()
UpGuardar.Update() UpGuardar.Update()
End Sub End Sub
Private Sub LnkFolioManual_Click(sender As Object, e As EventArgs) Handles LnkFolioManual.Click Private Sub LnkFolioManual_Click(sender As Object, e As EventArgs) Handles LnkFolioManual.Click
@@ -3071,5 +3131,17 @@ Partial Class ContabilidadC_RegPrePolizaS
UpPoliza.Update() UpPoliza.Update()
End Sub 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 End Class

79
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -791,8 +791,6 @@ Partial Class Inventarios_EntradasSalidas
HplImprimirResumen.Visible = True HplImprimirResumen.Visible = True
HplImprimirResumen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Almr&CveMovimiento={0}", CveMovimiento))) HplImprimirResumen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Almr&CveMovimiento={0}", CveMovimiento)))
CveCompra = Mov.CveCompra CveCompra = Mov.CveCompra
CveConcepto = Mov.CveConcepto CveConcepto = Mov.CveConcepto
@@ -978,6 +976,9 @@ Partial Class Inventarios_EntradasSalidas
PermisoVerImportes() PermisoVerImportes()
If IfNull(Request("Conta"), "0").ToString = "1" Then
Contabilizar()
End If
Else Else
@@ -3683,6 +3684,10 @@ Partial Class Inventarios_EntradasSalidas
Private Sub BtnGeneraPrepoliza_Click(sender As Object, e As EventArgs) Handles BtnGeneraPrepoliza.Click Private Sub BtnGeneraPrepoliza_Click(sender As Object, e As EventArgs) Handles BtnGeneraPrepoliza.Click
''PREPOLIZA - SE CAMBIO DE LUGAR EL USO DE ESTA PARTE ''PREPOLIZA - SE CAMBIO DE LUGAR EL USO DE ESTA PARTE
Contabilizar()
End Sub
Private Sub Contabilizar()
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
@@ -3695,7 +3700,6 @@ Partial Class Inventarios_EntradasSalidas
Dim CvePrePolizaRegistrada As Integer = -1 Dim CvePrePolizaRegistrada As Integer = -1
ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
Dim CveVenta As Integer = ObjInventario.CveVenta Dim CveVenta As Integer = ObjInventario.CveVenta
Dim MovAlmacen As Boolean = False Dim MovAlmacen As Boolean = False
@@ -3744,51 +3748,58 @@ Partial Class Inventarios_EntradasSalidas
End If End If
Next Next
Else Else
If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then If ObjInventario.Modulo.Contiene("RA/G4") Then
Contabilizable = False Contabilizable = True
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 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 ErrorMovInv = True
End If End If
Else Else
If ObjInventario.Modulo = "ASA/G1" Then If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then
Contabilizable = False 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 ErrorMovInv = True
End If End If
Else Else
If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then If ObjInventario.Modulo = "ASA/G1" Then
'genero las prepolizas manuales Contabilizable = False
Dim tCveConcepto As Integer = 95 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
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 ErrorMovInv = True
End If End If
Else Else
If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then
Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero 'genero las prepolizas manuales
Dim tCveConcepto As Integer = 69 Dim tCveConcepto As Integer = 95
If DdlConcepto.SelectedValue = "30" Then Dim CveCuenta As Integer
tCveConcepto = 181 If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero IdCtaContable = 1
End If 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
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 ErrorMovInv = True
Exit For
End If 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 End If
End If End If

19
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -3041,7 +3041,6 @@ Partial Class Inventarios_RecepcionAlmacen
Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24) 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") 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 FolioVirtual = ObjInventario.Folio
@@ -3063,11 +3062,27 @@ Partial Class Inventarios_RecepcionAlmacen
End If End If
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 Else
ErrorMovInv = True ErrorMovInv = True
End If End If
End If End If
End If End If
'DEVENGAR AC 'DEVENGAR AC