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
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)

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.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")

3
App_Code/ClsVentas.vb
View File

@@ -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

34
Compras/Compras.aspx.vb
View File

@@ -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
@@ -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
@@ -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"
@@ -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
@@ -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
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 +14440,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 +14459,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 +14473,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 +14481,6 @@ Partial Class Compras_Compras
End If
Return New MMensajeDevolucion() With
{
.CveMovimiento = CveMovimientoEntrada,
@@ -14567,7 +14555,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 +14576,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()

39
Compras/eFacturas.aspx.vb
View File

@@ -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

35
Contabilidad/RegPrePolizaS.aspx
View File

@@ -475,7 +475,7 @@
<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"
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>
<asp:TemplateField>
<HeaderTemplate>Movimiento</HeaderTemplate>
@@ -796,7 +796,7 @@
<div class="row" runat="server" id="DvModalconceptoVenta" visible="false">
<div class="col-xs-2" style="text-align: left">Venta:</div>
<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>
<ajax:ValidatorCalloutExtender ID="CeRfvDdlVentasE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlVentasE" Width="350px"></ajax:ValidatorCalloutExtender>
<i></i>
@@ -837,9 +837,7 @@
TC:
</div>
<div class="col-xs-3">
<asp:TextBox ID="TxtTipoCambio" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
<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>
<asp:TextBox ID="TxtTipoCambio" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox>
</div>
</div>
@@ -903,9 +901,11 @@
<div class="col-xs-2" style="text-align: left">
Mon Extrajera:
</div>
<div class="col-xs-3">
<asp:TextBox ID="TxtME" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
<div class="col-xs-2">
<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 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>
<ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
</div>
<div class="col-md-6" runat="server" id="DvMoldalConceptoSeccion2" visible="false">
@@ -990,8 +987,18 @@
</div>
<div class="modal-footer">
<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 class="row">
<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>
</ContentTemplate>

168
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -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 & "<br>" & 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("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""Texto"" target=""_blank"" >{1}</a></b>", 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

79
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -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

19
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -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