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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Hector
2021-07-26 13:44:17 -07:00
parent 9ec273c851 66f1f908b8
commit ade29631cd
25 changed files with 381 additions and 378 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsPaginas.vb
View File

@@ -1804,7 +1804,7 @@ Public Class ClsPaginas
'sino existe, recarga los datos 'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Using ObjContratos As New ClsContratos Using ObjContratos As New ClsContratos
If ObjContratos.GetContratos(-1, -1) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing If ObjContratos.GetContratos(-1, CveEmpresa) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing
End Using End Using
End If End If

136
Bancos/PopIECompras.aspx.vb
View File

@@ -1577,8 +1577,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
ImporteMX = ImporteMovimiento * tipoCambioCompra ImporteMX = ImporteMovimiento * tipoCambioCompra
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra TimpocambioGeneral = tipoCambioCompra
CveIE = rw.DataKey("CveIE").ToString.ToEntero CveIE = rw.DataKey("CveIE").ToString.ToEntero
@@ -1625,8 +1625,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
ImporteMX = ImporteMovimiento * tipoCambioCompra ImporteMX = ImporteMovimiento * tipoCambioCompra
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra TimpocambioGeneral = tipoCambioCompra
CveIE = rw.DataKey("CveIE").ToString.ToEntero CveIE = rw.DataKey("CveIE").ToString.ToEntero
@@ -1672,8 +1672,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
ImporteMX = ImporteMovimiento * tipoCambioCompra ImporteMX = ImporteMovimiento * tipoCambioCompra
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
CveIE = rw.DataKey("CveIE").ToString.ToEntero CveIE = rw.DataKey("CveIE").ToString.ToEntero
If CveMonedaCompra <> 1 Then If CveMonedaCompra <> 1 Then
@@ -1718,8 +1718,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
ImporteMX = ImporteMovimiento * tipoCambioCompra ImporteMX = ImporteMovimiento * tipoCambioCompra
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
If CveMonedaCompra <> 1 Then If CveMonedaCompra <> 1 Then
'si la factura es en dólares y trae complementaria, el importemn debe ser igual al importe 'si la factura es en dólares y trae complementaria, el importemn debe ser igual al importe
@@ -1763,8 +1763,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = ImportePagado.ToString.ToDecimal ImporteMovimiento = ImportePagado.ToString.ToDecimal
ImporteMX = ImporteMovimiento * tipoCambioCompra ImporteMX = ImporteMovimiento * tipoCambioCompra
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra TimpocambioGeneral = tipoCambioCompra
End If End If
@@ -1795,8 +1795,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
ImporteMX = ImporteMovimiento * tipoCambioCompra ImporteMX = ImporteMovimiento * tipoCambioCompra
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra TimpocambioGeneral = tipoCambioCompra
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -1829,8 +1829,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -1863,8 +1863,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
ImporteMX = ImporteMovimiento * tipoCambioCompra ImporteMX = ImporteMovimiento * tipoCambioCompra
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra TimpocambioGeneral = tipoCambioCompra
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2136,8 +2136,8 @@ Partial Class Bancos_PopIECompras
' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
' ImporteMX = ImporteMovimiento * tipoCambioCompra ' ImporteMX = ImporteMovimiento * tipoCambioCompra
' End If ' End If
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ' ImporteMovimiento = ImporteMovimiento.RoundSQL
' ImporteMX = Math.Round(ImporteMX, 2) ' ImporteMX = ImporteMX.RoundSQL
' TimpocambioGeneral = tipoCambioCompra ' TimpocambioGeneral = tipoCambioCompra
' If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" ' If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2171,8 +2171,8 @@ Partial Class Bancos_PopIECompras
' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
' End If ' End If
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ' ImporteMovimiento = ImporteMovimiento.RoundSQL
' ImporteMX = Math.Round(ImporteMX, 2) ' ImporteMX = ImporteMX.RoundSQL
' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2206,8 +2206,8 @@ Partial Class Bancos_PopIECompras
' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
' End If ' End If
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ' ImporteMovimiento = ImporteMovimiento.RoundSQL
' ImporteMX = Math.Round(ImporteMX, 2) ' ImporteMX = ImporteMX.RoundSQL
' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2242,8 +2242,8 @@ Partial Class Bancos_PopIECompras
' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
' End If ' End If
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ' ImporteMovimiento = ImporteMovimiento.RoundSQL
' ImporteMX = Math.Round(ImporteMX, 2) ' ImporteMX = ImporteMX.RoundSQL
' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2431,7 +2431,7 @@ Partial Class Bancos_PopIECompras
ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If End If
ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2) ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2)
ImporteMXNoDeducible = Math.Round(ImporteMX, 2) ImporteMXNoDeducible = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}" If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}"
@@ -2596,8 +2596,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.IVADeducible) ImporteMovimiento = (MovimientoPagar.IVADeducible)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2620,8 +2620,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago) ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2657,7 +2657,7 @@ Partial Class Bancos_PopIECompras
ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If End If
ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2) ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2)
ImporteMXNoDeducible = Math.Round(ImporteMX, 2) ImporteMXNoDeducible = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}" If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}"
@@ -2742,8 +2742,8 @@ Partial Class Bancos_PopIECompras
' ImporteMovimiento = (MovimientoPagar.IVANoDeducible) ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible)
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
' End If ' End If
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ' ImporteMovimiento = ImporteMovimiento.RoundSQL
' ImporteMX = Math.Round(ImporteMX, 2) ' ImporteMX = ImporteMX.RoundSQL
' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2765,8 +2765,8 @@ Partial Class Bancos_PopIECompras
' ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago) ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago)
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
' End If ' End If
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ' ImporteMovimiento = ImporteMovimiento.RoundSQL
' ImporteMX = Math.Round(ImporteMX, 2) ' ImporteMX = ImporteMX.RoundSQL
' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -2802,8 +2802,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago) ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
ImporteMX = ImporteMovimiento * tipoCambioCompra ImporteMX = ImporteMovimiento * tipoCambioCompra
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra TimpocambioGeneral = tipoCambioCompra
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
@@ -2825,8 +2825,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago) ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
@@ -2854,7 +2854,7 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetIVA ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetIVA
ImporteMovimiento += ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetISR ImporteMovimiento += ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetISR
ImporteMovimiento -= ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IEPS ImporteMovimiento -= ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IEPS
ImporteMovimiento = Math.Abs(Math.Round(ImporteMovimiento, 2)) ImporteMovimiento = Math.Abs(ImporteMovimiento.RoundSQL)
ImporteMX = ImporteMovimiento ImporteMX = ImporteMovimiento
End If End If
Else Else
@@ -2878,7 +2878,7 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA
ImporteMovimiento += ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR ImporteMovimiento += ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR
ImporteMovimiento -= ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS ImporteMovimiento -= ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS
ImporteMovimiento = Math.Abs(Math.Round(ImporteMovimiento, 2)) ImporteMovimiento = Math.Abs(ImporteMovimiento.RoundSQL)
ImporteMX = ImporteMovimiento ImporteMX = ImporteMovimiento
End If End If
Else Else
@@ -2899,8 +2899,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = ImportePagado.ToString.ToDecimal ImporteMovimiento = ImportePagado.ToString.ToDecimal
ImporteMX = ImporteMovimiento * tipoCambioPago ImporteMX = ImporteMovimiento * tipoCambioPago
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioPago TimpocambioGeneral = tipoCambioPago
If CveMoneda = 1 Then If CveMoneda = 1 Then
@@ -2946,8 +2946,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
ImporteMX = ImporteMovimiento * tipoCambioPago ImporteMX = ImporteMovimiento * tipoCambioPago
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
CveIE = rw.DataKey("CveIE").ToString.ToEntero CveIE = rw.DataKey("CveIE").ToString.ToEntero
@@ -2975,8 +2975,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
ImporteMX = ImporteMovimiento * tipoCambioPago ImporteMX = ImporteMovimiento * tipoCambioPago
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
CveIE = rw.DataKey("CveIE").ToString.ToEntero CveIE = rw.DataKey("CveIE").ToString.ToEntero
@@ -3003,8 +3003,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = ImportePagado.ToString.ToDecimal ImporteMovimiento = ImportePagado.ToString.ToDecimal
ImporteMX = ImporteMovimiento * tipoCambioPago ImporteMX = ImporteMovimiento * tipoCambioPago
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioPago TimpocambioGeneral = tipoCambioPago
IdCtaContable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPersonal", "").ToEntero IdCtaContable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPersonal", "").ToEntero
@@ -3028,8 +3028,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
ImporteMX = ImporteMovimiento * tipoCambioPago ImporteMX = ImporteMovimiento * tipoCambioPago
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
CveIE = rw.DataKey("CveIE").ToString.ToEntero CveIE = rw.DataKey("CveIE").ToString.ToEntero
IdCtaContable = CtaProveedorDeudores IdCtaContable = CtaProveedorDeudores
@@ -3057,8 +3057,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
ImporteMX = ImporteMovimiento * tipoCambioPago ImporteMX = ImporteMovimiento * tipoCambioPago
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
If rw.DataKey("CveMoneda").ToEntero = 1 Then If rw.DataKey("CveMoneda").ToEntero = 1 Then
IdCtaContable = IdCuentaCliente IdCtaContable = IdCuentaCliente
@@ -3100,8 +3100,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.DataKey("RetIVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMovimiento = rw.DataKey("RetIVA").ToString.ToDecimal * PorcentajePagoVenta
ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
'Conta ContPAQ 'Conta ContPAQ
If IdCtaContRetIVACliente <> 0 Then If IdCtaContRetIVACliente <> 0 Then
@@ -3141,8 +3141,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoVenta ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoVenta
ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
'Conta ContPAQ 'Conta ContPAQ
If IdCtaContRetISR <> 0 Then If IdCtaContRetISR <> 0 Then
@@ -3183,8 +3183,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.DataKey("IVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMovimiento = rw.DataKey("IVA").ToString.ToDecimal * PorcentajePagoVenta
ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
PorcentajeImpuesto = rw.DataKey("PorcentajeIVA").ToDecimal PorcentajeImpuesto = rw.DataKey("PorcentajeIVA").ToDecimal
Dim IdCtaIVAXTrasladar As Integer = 0 Dim IdCtaIVAXTrasladar As Integer = 0
@@ -3225,8 +3225,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.DataKey("IVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMovimiento = rw.DataKey("IVA").ToString.ToDecimal * PorcentajePagoVenta
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, rw.DataKey("TipoCambio").ToString.ToDecimal) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, rw.DataKey("TipoCambio").ToString.ToDecimal)
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
PorcentajeImpuesto = rw.DataKey("PorcentajeIVA").ToDecimal PorcentajeImpuesto = rw.DataKey("PorcentajeIVA").ToDecimal
@@ -3268,8 +3268,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.DataKey("IEPS").ToString.ToDecimal * PorcentajePagoVenta ImporteMovimiento = rw.DataKey("IEPS").ToString.ToDecimal * PorcentajePagoVenta
ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
@@ -3301,8 +3301,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.DataKey("IEPS").ToString.ToDecimal * PorcentajePagoVenta ImporteMovimiento = rw.DataKey("IEPS").ToString.ToDecimal * PorcentajePagoVenta
ImporteMX = ImporteMovimiento * tipoCambioPago ImporteMX = ImporteMovimiento * tipoCambioPago
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
@@ -3334,8 +3334,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.DataKey("RetIVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMovimiento = rw.DataKey("RetIVA").ToString.ToDecimal * PorcentajePagoVenta
ImporteMX = ImporteMovimiento * tipoCambioPago ImporteMX = ImporteMovimiento * tipoCambioPago
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
'Conta ContPAQ 'Conta ContPAQ
If IdCtaContRetIVA <> 0 Then If IdCtaContRetIVA <> 0 Then
@@ -3377,8 +3377,8 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoVenta ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoVenta
ImporteMX = ImporteMovimiento * tipoCambioPago ImporteMX = ImporteMovimiento * tipoCambioPago
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = ImporteMX.RoundSQL
'Conta ContPAQ 'Conta ContPAQ
If IdCtaContRetISR <> 0 Then If IdCtaContRetISR <> 0 Then

118
Compras/Compras.aspx.vb
View File

@@ -18158,75 +18158,75 @@ Partial Class Compras_Compras
' End If ' End If
'End If 'End If
ObjContratos.Dispose() ObjContratos.Dispose()
If Not TieneError Then If Not TieneError Then
Select Case Modalidad Select Case Modalidad
Case "A" 'ADD Case "A" 'ADD
Dim SATClavePS = -1 Dim SATClavePS = -1
Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
If PSRow IsNot Nothing Then If PSRow IsNot Nothing Then
SATClavePS = PSRow("SATClavePS").ToString.ToEntero SATClavePS = PSRow("SATClavePS").ToString.ToEntero
End If
Dim IVA As Double
If chkImportacion.Checked Then
IVA = (txtImportacion.Text.Trim.ToDouble / (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.Trim.ToDouble))
Else
IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)
End If
AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA,
TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
AddPS2()
LimpiaAgregar()
If ChkAgregar.Checked = True And Modalidad = "A" Then
RegistraScript("displayToastr(1);", "display")
Else
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
End If
Case "U" 'UPDATE
UpdatePS()
Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
End Select
ActualizaTotales = False
If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero)
If UsuarioActual.Empresa.UsaAC Then
CompruebaAgregar()
GuardaAC()
End If End If
Dim IVA As Double Else
If chkImportacion.Checked Then Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
IVA = (txtImportacion.Text.Trim.ToDouble / (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.Trim.ToDouble)) End If
Else
IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)
End If
AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA,
TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
AddPS2()
LimpiaAgregar()
If ChkAgregar.Checked = True And Modalidad = "A" Then
RegistraScript("displayToastr(1);", "display")
Else
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
End If
Case "U" 'UPDATE
UpdatePS()
Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
End Select
ActualizaTotales = False
If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero)
If UsuarioActual.Empresa.UsaAC Then
CompruebaAgregar()
GuardaAC()
End If
Else
Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
End If
'If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then 'If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
' 'If UsuarioActual.CveRol = 1 Then ' 'If UsuarioActual.CveRol = 1 Then
' ' Alert($"Ok funcionalidad 577 RetencionIVA { RetencionIVA} IVAOriginal {IVAOriginal}") ' ' Alert($"Ok funcionalidad 577 RetencionIVA { RetencionIVA} IVAOriginal {IVAOriginal}")
' 'End If ' 'End If
' If RetencionIVA = 0 And IVAOriginal > 0 Then ' If RetencionIVA = 0 And IVAOriginal > 0 Then
' For Each dRow As DataRow In TmpDT.Rows ' For Each dRow As DataRow In TmpDT.Rows
' If dRow("CveTipoPS").ToString.ToEntero = 1 Then ' If dRow("CveTipoPS").ToString.ToEntero = 1 Then
' 'Comnetado para reubicar el boton ' 'Comnetado para reubicar el boton
' 'tdIVA6.Visible = True ' 'tdIVA6.Visible = True
' Exit For ' Exit For
' End If ' End If
' Next ' Next
' End If ' End If
'End If 'End If
UpPS.Update() UpPS.Update()
CargaGvPersonal() CargaGvPersonal()
End Sub End Sub
''' <summary> ''' <summary>
''' Regresa el INDEX del row que acaba de agregar en el TMPDT ''' Regresa el INDEX del row que acaba de agregar en el TMPDT

426
Contratos/Contrato.aspx.vb
View File

@@ -9,8 +9,8 @@ Imports System.Globalization
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Partial Class Contratos_Default Partial Class Contratos_Default
Inherits ClsPaginas Inherits ClsPaginas
#Region " PROPIEDADES " #Region " PROPIEDADES "
Private Property CveContrato As Integer Private Property CveContrato As Integer
Get Get
@@ -340,10 +340,10 @@ Partial Class Contratos_Default
Set(ByVal value As DataSet) Set(ByVal value As DataSet)
ViewState("DsDatosPedDev") = value ViewState("DsDatosPedDev") = value
End Set End Set
End Property End Property
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
CargaValoresIniciales() CargaValoresIniciales()
@@ -449,8 +449,8 @@ Partial Class Contratos_Default
End If End If
End Sub End Sub
#Region " CARGA VALORES INICIALES " #Region " CARGA VALORES INICIALES "
Private Sub CargaValoresIniciales() Private Sub CargaValoresIniciales()
CveContrato = -1 CveContrato = -1
@@ -574,11 +574,11 @@ Partial Class Contratos_Default
CargaGVPresupuestos(TmpDT) CargaGVPresupuestos(TmpDT)
CargaGVPresupuestosInsumos(TmpDT) CargaGVPresupuestosInsumos(TmpDT)
LbTotalGeneral.Text = "0.00" LbTotalGeneral.Text = "0.00"
End Sub End Sub
#End Region #End Region
#Region " CONFIGURA TIPOS CONTRATO " #Region " CONFIGURA TIPOS CONTRATO "
Private Sub ConfiguraTipos() Private Sub ConfiguraTipos()
If Not TipoContrato.Contiene({7, 9, 13, 16, 18, 21}) Then If Not TipoContrato.Contiene({7, 9, 13, 16, 18, 21}) Then
TabAF.Visible = False TabAF.Visible = False
@@ -650,10 +650,10 @@ Partial Class Contratos_Default
'End If 'End If
'UpTitulos.Update() 'UpTitulos.Update()
'UpGral.Update() 'UpGral.Update()
End Sub End Sub
#End Region #End Region
#Region " PANTALLA INICIAL" #Region " PANTALLA INICIAL"
Protected Sub rpCompra_CheckedChanged(sender As Object, e As EventArgs) Handles rpCompra.CheckedChanged Protected Sub rpCompra_CheckedChanged(sender As Object, e As EventArgs) Handles rpCompra.CheckedChanged
loadComboTipoContrato(False) loadComboTipoContrato(False)
@@ -681,9 +681,9 @@ Partial Class Contratos_Default
Alert(ex.Message, TipoMensaje.MsgError) Alert(ex.Message, TipoMensaje.MsgError)
End Try End Try
End Sub End Sub
#End Region #End Region
#Region " INICIO DE PAGINA " #Region " INICIO DE PAGINA "
Protected Sub DdlTipoContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlTipoContrato_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaTipoContrato() CargaTipoContrato()
@@ -1589,9 +1589,9 @@ Partial Class Contratos_Default
Else Else
' Alert("Ocurrio un error al eliminar el contrato", TipoMensaje.MsgError) ' Alert("Ocurrio un error al eliminar el contrato", TipoMensaje.MsgError)
End If End If
End Sub End Sub
#End Region #End Region
#Region " TERMINAR/CANCELAR CONTRATO " #Region " TERMINAR/CANCELAR CONTRATO "
Protected Sub LBTerminarContrato_Click(sender As Object, e As EventArgs) Protected Sub LBTerminarContrato_Click(sender As Object, e As EventArgs)
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
@@ -1615,13 +1615,13 @@ Partial Class Contratos_Default
Alert("El Contrato fue cancelado Correctamente.", TipoMensaje.MsgInformacion, String.Format("document.location.href=""/Contratos/Contrato.aspx?CveContrato={0}""", CveContrato)) Alert("El Contrato fue cancelado Correctamente.", TipoMensaje.MsgInformacion, String.Format("document.location.href=""/Contratos/Contrato.aspx?CveContrato={0}""", CveContrato))
End If End If
ObjContratos.Dispose() ObjContratos.Dispose()
End Sub End Sub
#End Region #End Region
#Region " TABS " #Region " TABS "
#Region " TAB: INFORMACION GENERAL" #Region " TAB: INFORMACION GENERAL"
#Region "COMBOS - INFO GENERAL" #Region "COMBOS - INFO GENERAL"
Private Sub CargaProyecto() Private Sub CargaProyecto()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyectoContrato, LblProyecto, lblsubproyecto) CargarCentrosDeCosto(DdlProyecto, DdlSubProyectoContrato, LblProyecto, lblsubproyecto)
@@ -1654,7 +1654,7 @@ Partial Class Contratos_Default
End Sub End Sub
Private Sub CargaContratoPadre() Private Sub CargaContratoPadre()
DdlContratoPadre.Items.Clear() DdlContratoPadre.Items.Clear()
DdlContratoPadre.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ") DdlContratoPadre.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($" CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ")
DdlContratoPadre.DataBind() DdlContratoPadre.DataBind()
DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
@@ -1694,20 +1694,20 @@ Partial Class Contratos_Default
CargaContratoPadre() CargaContratoPadre()
UpProyecto.Update() UpProyecto.Update()
End Sub End Sub
#End Region #End Region
#Region " ARCHIVO " #Region " ARCHIVO "
Private Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click Private Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
DescargarArchivo() DescargarArchivo()
End Sub End Sub
@@ -1774,13 +1774,13 @@ Partial Class Contratos_Default
If Not FileExtension = "-1" Then If Not FileExtension = "-1" Then
BtnDescargar.Visible = True BtnDescargar.Visible = True
End If End If
End Sub End Sub
#End Region #End Region
#End Region #End Region
#Region " TAB: PRESUPUESTOS " #Region " TAB: PRESUPUESTOS "
#Region "C O M B O S - PRESUPUESTOS" #Region "C O M B O S - PRESUPUESTOS"
Private Function isWhitFamily() As Boolean Private Function isWhitFamily() As Boolean
Return (UsuarioActual.CveEmpresa = 66) Return (UsuarioActual.CveEmpresa = 66)
@@ -1798,8 +1798,8 @@ Partial Class Contratos_Default
DdlClasificacionInt.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) 'GlobalDTSubFamilias(UsuarioActual.CveEmpresa) DdlClasificacionInt.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) 'GlobalDTSubFamilias(UsuarioActual.CveEmpresa)
DdlClasificacionInt.DataBind() DdlClasificacionInt.DataBind()
DdlClasificacionInt.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacionInt.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
#Region " FUNCIONALIDAD 105 " #Region " FUNCIONALIDAD 105 "
Private Sub CargaPS() Private Sub CargaPS()
DdlProductows.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") DdlProductows.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
@@ -1876,11 +1876,11 @@ Partial Class Contratos_Default
DdlProductowsInsumos.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacionAddInsumos.SelectedValue) DdlProductowsInsumos.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacionAddInsumos.SelectedValue)
'End If 'End If
End If End If
End Sub End Sub
#End Region #End Region
#End Region #End Region
#Region " TAB PRESUPUESTOS VENTAS " #Region " TAB PRESUPUESTOS VENTAS "
Private Sub CargaGVPresupuestos(DtTemp As DataTable) Private Sub CargaGVPresupuestos(DtTemp As DataTable)
Gv.DataSource = DtTemp Gv.DataSource = DtTemp
@@ -1982,8 +1982,8 @@ Partial Class Contratos_Default
ContratosSecciones.Dispose() ContratosSecciones.Dispose()
UpGral.Update() UpGral.Update()
End Sub End Sub
#Region "GV PRESUPUESTOS" #Region "GV PRESUPUESTOS"
Protected Sub EstClick(sender As Object, e As System.EventArgs) Protected Sub EstClick(sender As Object, e As System.EventArgs)
'Get the button that raised the event 'Get the button that raised the event
@@ -2146,12 +2146,12 @@ Partial Class Contratos_Default
' Seleccionado = e.CommandArgument.ToString ' Seleccionado = e.CommandArgument.ToString
Gv.SelectRow(e.CommandArgument.ToString.ToEntero - 1) Gv.SelectRow(e.CommandArgument.ToString.ToEntero - 1)
End If End If
End Sub End Sub
#End Region #End Region
#End Region #End Region
#Region " TAB PRESUPUESTOS INSUMOS " #Region " TAB PRESUPUESTOS INSUMOS "
Private Sub CargaGVPresupuestosInsumos(DtTemp As DataTable) Private Sub CargaGVPresupuestosInsumos(DtTemp As DataTable)
GvInsumos.DataSource = DtTemp GvInsumos.DataSource = DtTemp
@@ -2207,10 +2207,10 @@ Partial Class Contratos_Default
End If End If
ObjContratos.Dispose() ObjContratos.Dispose()
End Sub End Sub
#Region "GV PRESUPUESTOS" #Region "GV PRESUPUESTOS"
Protected Sub GVInsumos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvInsumos.RowDataBound Protected Sub GVInsumos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvInsumos.RowDataBound
If e.Row.RowIndex > -1 Then If e.Row.RowIndex > -1 Then
@@ -2328,14 +2328,14 @@ Partial Class Contratos_Default
' Seleccionado = e.CommandArgument.ToString ' Seleccionado = e.CommandArgument.ToString
GvInsumos.SelectRow(e.CommandArgument.ToString.ToEntero - 1) GvInsumos.SelectRow(e.CommandArgument.ToString.ToEntero - 1)
End If End If
End Sub End Sub
#End Region #End Region
#End Region #End Region
#Region " TAB PRESUPUESTOS INTERNOS" #Region " TAB PRESUPUESTOS INTERNOS"
Protected Sub AgregarInt_Click(sender As Object, e As EventArgs) Handles AgregarInt.Click Protected Sub AgregarInt_Click(sender As Object, e As EventArgs) Handles AgregarInt.Click
Dim Row As DataRow = TmpDT.NewRow() Dim Row As DataRow = TmpDT.NewRow()
Row("Cantidad") = TxtCantidadInt.Text.ToDouble.FormatoNumero Row("Cantidad") = TxtCantidadInt.Text.ToDouble.FormatoNumero
@@ -2375,12 +2375,12 @@ Partial Class Contratos_Default
'Alert("No se pudo agregar el detalle") 'Alert("No se pudo agregar el detalle")
End If End If
ObjContratos.Dispose() ObjContratos.Dispose()
End Sub End Sub
#Region "GVInternos" #Region "GVInternos"
Protected Sub GVInt_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvInt.RowEditing Protected Sub GVInt_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvInt.RowEditing
GvInt.EditIndex = e.NewEditIndex GvInt.EditIndex = e.NewEditIndex
GvInt.DataSource = TmpDT.FiltraParametros("CveTipoPresupuesto=1") GvInt.DataSource = TmpDT.FiltraParametros("CveTipoPresupuesto=1")
@@ -2462,13 +2462,13 @@ Partial Class Contratos_Default
' Seleccionado = e.CommandArgument.ToString ' Seleccionado = e.CommandArgument.ToString
GvInt.SelectRow(e.CommandArgument.ToString.ToEntero - 1) GvInt.SelectRow(e.CommandArgument.ToString.ToEntero - 1)
End If End If
End Sub End Sub
#End Region #End Region
#End Region #End Region
#End Region #End Region
#Region " TAB: REPORTE AVANCES " #Region " TAB: REPORTE AVANCES "
Private Sub CargaDatosAvance() Private Sub CargaDatosAvance()
If CveContrato <= 0 Then If CveContrato <= 0 Then
@@ -2549,9 +2549,9 @@ Partial Class Contratos_Default
UpVentasAvance.Update() UpVentasAvance.Update()
End Sub End Sub
#End Region #End Region
#Region " TAB: REPORTE AVANCES POR DOCUMENTO " #Region " TAB: REPORTE AVANCES POR DOCUMENTO "
Protected Sub RBLTipoDocto_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub RBLTipoDocto_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaDatosAvancePorDocumento() CargaDatosAvancePorDocumento()
@@ -2595,10 +2595,10 @@ Partial Class Contratos_Default
e.Row.CssClass = "Totales" e.Row.CssClass = "Totales"
End If End If
End If End If
End Sub End Sub
#End Region #End Region
#Region " TAB: CONTRATO GASTOS " #Region " TAB: CONTRATO GASTOS "
Private Sub MandaCorreo(Para As String, Asunto As String, Body As String) Private Sub MandaCorreo(Para As String, Asunto As String, Body As String)
Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para) Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
@@ -2824,9 +2824,9 @@ Partial Class Contratos_Default
Protected Sub LnkDescargar_Click1(sender As Object, e As EventArgs) Protected Sub LnkDescargar_Click1(sender As Object, e As EventArgs)
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=CONG&CVECONTRATO={0}&CVECONTRATOGASTO={1}", CveContrato, gvRow.DataKey("CveContratoGasto").ToString))}'") RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=CONG&CVECONTRATO={0}&CVECONTRATOGASTO={1}", CveContrato, gvRow.DataKey("CveContratoGasto").ToString))}'")
End Sub End Sub
#End Region #End Region
#Region "TAB: PEDIDOS / DEVOLUCIONES" #Region "TAB: PEDIDOS / DEVOLUCIONES"
Private Sub CargaDatosPedDev() Private Sub CargaDatosPedDev()
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
@@ -2936,10 +2936,10 @@ Partial Class Contratos_Default
End If End If
End If End If
End Sub End Sub
#End Region #End Region
#Region " TAB: ALMACEN - ACTIVOS FIJBtnAlmacenEsInterno_ClickOS " #Region " TAB: ALMACEN - ACTIVOS FIJBtnAlmacenEsInterno_ClickOS "
Private Sub CargaInventarios() Private Sub CargaInventarios()
@@ -3120,10 +3120,10 @@ Partial Class Contratos_Default
UpHajusteAcciones.Update() UpHajusteAcciones.Update()
UpAlmacen.Update() UpAlmacen.Update()
End Sub End Sub
#Region " DEVOLUCION ALMACEN " #Region " DEVOLUCION ALMACEN "
Protected Sub BtnDevolucionAlmacen_Click(sender As Object, e As EventArgs) Protected Sub BtnDevolucionAlmacen_Click(sender As Object, e As EventArgs)
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
@@ -3160,12 +3160,12 @@ Partial Class Contratos_Default
LblFacturado.Text = SumaAvance.FormatoNumero LblFacturado.Text = SumaAvance.FormatoNumero
LblPorFacturar.Text = (LblImporte.Text.ToDouble - SumaAvance).FormatoNumero LblPorFacturar.Text = (LblImporte.Text.ToDouble - SumaAvance).FormatoNumero
End Sub End Sub
#End Region #End Region
#End Region #End Region
#Region "TAB SISTEMA" #Region "TAB SISTEMA"
Protected Sub ChkPermitirAvance_CheckedChanged(sender As Object, e As EventArgs) Protected Sub ChkPermitirAvance_CheckedChanged(sender As Object, e As EventArgs)
Dim ObjContrato As New ClsContratos Dim ObjContrato As New ClsContratos
@@ -3183,11 +3183,11 @@ Partial Class Contratos_Default
ObjContrato.Dispose() ObjContrato.Dispose()
Alert("Se ha permitido estimar en la sección", TipoMensaje.MsgInformacion) Alert("Se ha permitido estimar en la sección", TipoMensaje.MsgInformacion)
CargaDatos() CargaDatos()
End Sub End Sub
#End Region #End Region
#End Region #End Region
#Region " BITACORA " #Region " BITACORA "
Private Sub guardarBitacora(Descripcion As String) Private Sub guardarBitacora(Descripcion As String)
Dim ObjEventoBitacora As New ClsOIEventos Dim ObjEventoBitacora As New ClsOIEventos
@@ -3300,10 +3300,10 @@ Partial Class Contratos_Default
txtFileBit.getfiles().Archivos.Clear() txtFileBit.getfiles().Archivos.Clear()
txtFileBit.Text = "" txtFileBit.Text = ""
End Sub End Sub
#End Region #End Region
#Region "SUBIR EXCEL" #Region "SUBIR EXCEL"
Public Sub DescargarFormato() Public Sub DescargarFormato()
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoContrato.xlsx" Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoContrato.xlsx"
@@ -3325,7 +3325,7 @@ Partial Class Contratos_Default
End Sub End Sub
Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath) Dim excelFile As ExcelFile = excelFile.Load(flatFilePath)
Dim unnamed As Integer = 0 Dim unnamed As Integer = 0
Dim cols As Integer Dim cols As Integer
@@ -3560,11 +3560,11 @@ Partial Class Contratos_Default
Else Else
Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
End If End If
End Sub End Sub
#End Region #End Region
#Region " GPS " #Region " GPS "
Private Sub CargaCuentasEquipos() Private Sub CargaCuentasEquipos()
Dim GPS As New ClsGPS Dim GPS As New ClsGPS
@@ -3719,11 +3719,11 @@ Partial Class Contratos_Default
End If End If
ImprimirPDF("Empresas/Grales/Formatos/Contrato.rdlc", dt, params, $"Contrato-{Titulo}", Formato:="PDF") ImprimirPDF("Empresas/Grales/Formatos/Contrato.rdlc", dt, params, $"Contrato-{Titulo}", Formato:="PDF")
End Sub End Sub
#End Region #End Region
#Region "I M P R E S I O N D E G A S T O S" #Region "I M P R E S I O N D E G A S T O S"
Protected Sub ImgImprimirGastos_Click(sender As Object, e As EventArgs) Handles LBImprimirGastos.Click Protected Sub ImgImprimirGastos_Click(sender As Object, e As EventArgs) Handles LBImprimirGastos.Click
GenerarPDFGastos() GenerarPDFGastos()
@@ -3765,10 +3765,10 @@ Partial Class Contratos_Default
TxtFecha.Text = "" TxtFecha.Text = ""
UpAgregarGastos.Update() UpAgregarGastos.Update()
RegistraScript("$('#ModalAgregarGastos').modal();") RegistraScript("$('#ModalAgregarGastos').modal();")
End Sub End Sub
#End Region #End Region
#Region "I M P R E S I O N D E S U M I N I S T R O S" #Region "I M P R E S I O N D E S U M I N I S T R O S"
Protected Sub ImgImprimirSuministros_Click(sender As Object, e As EventArgs) Handles LbImprimirSuministros.Click Protected Sub ImgImprimirSuministros_Click(sender As Object, e As EventArgs) Handles LbImprimirSuministros.Click
GenerarPDFSuministros() GenerarPDFSuministros()
@@ -3797,9 +3797,9 @@ Partial Class Contratos_Default
End If End If
Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
ImprimirPDF("Empresas/Grales/Formatos/RepContratoSuministros.rdlc", dt, params, $"{Nombre}-Suministros", Formato:=Formato) ImprimirPDF("Empresas/Grales/Formatos/RepContratoSuministros.rdlc", dt, params, $"{Nombre}-Suministros", Formato:=Formato)
End Sub End Sub
#End Region #End Region
#Region "I M P R E S I O N D E A V A N C E " #Region "I M P R E S I O N D E A V A N C E "
Private Sub lbImprimirAvance_Click(sender As Object, e As EventArgs) Handles lbImprimirAvance.Click Private Sub lbImprimirAvance_Click(sender As Object, e As EventArgs) Handles lbImprimirAvance.Click
GenerarPDFAvance() GenerarPDFAvance()
@@ -3829,9 +3829,9 @@ Partial Class Contratos_Default
End If End If
Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
ImprimirPDF("Empresas/Grales/Formatos/ContratoAvance.rdlc", dt, params, $"{Nombre}-Avance", Formato:=Formato) ImprimirPDF("Empresas/Grales/Formatos/ContratoAvance.rdlc", dt, params, $"{Nombre}-Avance", Formato:=Formato)
End Sub End Sub
#End Region #End Region
#Region "I M P R E S I O N D E P R E S U P U E S T O " #Region "I M P R E S I O N D E P R E S U P U E S T O "
Private Sub lLbImprimirPresupuesto_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuesto.Click Private Sub lLbImprimirPresupuesto_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuesto.Click
GenerarPDFPPresupuesto() GenerarPDFPPresupuesto()
@@ -3861,9 +3861,9 @@ Partial Class Contratos_Default
End If End If
Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
ImprimirPDF("Empresas/Grales/Formatos/RepContratoPresupuestos.rdlc", dt, params, $"{Nombre}-Presupuestos", Formato:=Formato) ImprimirPDF("Empresas/Grales/Formatos/RepContratoPresupuestos.rdlc", dt, params, $"{Nombre}-Presupuestos", Formato:=Formato)
End Sub End Sub
#End Region #End Region
#Region "I M P R E S I O N D E A C T I V O S F I J O S " #Region "I M P R E S I O N D E A C T I V O S F I J O S "
Private Sub LbImprmirAF_Click(sender As Object, e As EventArgs) Handles LbImprmirAF.Click Private Sub LbImprmirAF_Click(sender As Object, e As EventArgs) Handles LbImprmirAF.Click
GenerarPDFActivosFijos() GenerarPDFActivosFijos()
@@ -3915,11 +3915,11 @@ Partial Class Contratos_Default
End If End If
Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
ImprimirPDF("Empresas/Grales/Formatos/RepContratoActivosFijos.rdlc", dt, params, $"{Nombre}-ActivosFijos", Formato:=Formato) ImprimirPDF("Empresas/Grales/Formatos/RepContratoActivosFijos.rdlc", dt, params, $"{Nombre}-ActivosFijos", Formato:=Formato)
End Sub End Sub
#End Region #End Region
#Region " IMPRIMIR DOCUMENTO - SABE " #Region " IMPRIMIR DOCUMENTO - SABE "
Public Sub DescarFormato(documento As String) Public Sub DescarFormato(documento As String)
@@ -3996,12 +3996,12 @@ Partial Class Contratos_Default
Protected Sub BtnImprimirC_Click(sender As Object, e As EventArgs) Handles liImprimir.Click Protected Sub BtnImprimirC_Click(sender As Object, e As EventArgs) Handles liImprimir.Click
Dim docx As String = DtPlantillasContratos.FiltroPrimeroValor("URL", $"CveContratoPlantilla = {DdlPlantillaContrato.SelectedValue}") Dim docx As String = DtPlantillasContratos.FiltroPrimeroValor("URL", $"CveContratoPlantilla = {DdlPlantillaContrato.SelectedValue}")
DescarFormato(docx) DescarFormato(docx)
End Sub End Sub
#End Region #End Region
#End Region #End Region
#Region "CREAR A PARTIR DE" #Region "CREAR A PARTIR DE"
Private Sub BtnAgregarContratoHijo_Click(sender As Object, e As EventArgs) Handles BtnAgregarContratoHijo.Click Private Sub BtnAgregarContratoHijo_Click(sender As Object, e As EventArgs) Handles BtnAgregarContratoHijo.Click
Dim TieneError = False Dim TieneError = False
@@ -4133,97 +4133,97 @@ Partial Class Contratos_Default
End If End If
Return TieneError Return TieneError
End Function End Function
'Private Sub AgregarMovimientosAFHijo(CveContratoHijo As Integer) 'Private Sub AgregarMovimientosAFHijo(CveContratoHijo As Integer)
' 'BUSCA LOS ACTIVOS FIJOS VIGENTES ' 'BUSCA LOS ACTIVOS FIJOS VIGENTES
' Dim Dt As DataTable = DtMovimientos.FiltraParametros($"(CodigoPS IS NULL AND Cantidad - CantidadDevolucion > 0) OR (CodigoPS IS NOT NULL AND SerieFolioDevolucion IS NULL)") ' Dim Dt As DataTable = DtMovimientos.FiltraParametros($"(CodigoPS IS NULL AND Cantidad - CantidadDevolucion > 0) OR (CodigoPS IS NOT NULL AND SerieFolioDevolucion IS NULL)")
' Dim DtVentas As DataTable = Dt.FiltraParametros($"No = 0") ' Dim DtVentas As DataTable = Dt.FiltraParametros($"No = 0")
' Dim CveAlmacenOrigen As Integer = DdlAlmacenOrigen.SelectedValue.ToEntero ' Dim CveAlmacenOrigen As Integer = DdlAlmacenOrigen.SelectedValue.ToEntero
' Dim CveAlmacenDestino As Integer = DdlAlmacenDestino.SelectedValue.ToEntero ' Dim CveAlmacenDestino As Integer = DdlAlmacenDestino.SelectedValue.ToEntero
' Dim CveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero ' Dim CveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero
' Dim CveConceptoSalida As Integer = 8 ' Dim CveConceptoSalida As Integer = 8
' Dim CveConceptoEntrada As Integer = 9 ' Dim CveConceptoEntrada As Integer = 9
' Dim CveCliente As Integer = If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, DdlCliente.SelectedValue.ToEntero) ' Dim CveCliente As Integer = If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, DdlCliente.SelectedValue.ToEntero)
' Dim ObjInv As New ClsInventarios() ' Dim ObjInv As New ClsInventarios()
' Try ' Try
' ObjInv.IniciaTransacSQL() ' ObjInv.IniciaTransacSQL()
' Dim TieneError As Boolean = False ' Dim TieneError As Boolean = False
' For Each Dr As DataRow In DtVentas.Rows ' For Each Dr As DataRow In DtVentas.Rows
' Dim CveVentaAlmacen As Integer = Dr("CveVenta").ToString.ToEntero ' Dim CveVentaAlmacen As Integer = Dr("CveVenta").ToString.ToEntero
' 'Movimiento de salida por traspaso al almacen destino ' 'Movimiento de salida por traspaso al almacen destino
' Dim CveMovimientoSalida As Integer = ObjInv.AddMovimiento(CveAlmacenDestino, CveConceptoSalida, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContrato, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenOrigen) ' Dim CveMovimientoSalida As Integer = ObjInv.AddMovimiento(CveAlmacenDestino, CveConceptoSalida, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContrato, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenOrigen)
' If CveMovimientoSalida > 0 Then ' If CveMovimientoSalida > 0 Then
' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows ' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows
' Dim Cantidad As Double = Row("Cantidad").ToString.ToDouble ' Dim Cantidad As Double = Row("Cantidad").ToString.ToDouble
' Dim CvePS As Integer = Row("CvePS").ToString.ToEntero ' Dim CvePS As Integer = Row("CvePS").ToString.ToEntero
' Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero ' Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero
' Dim CveUnidadMedida As Integer = Row("CveUnidadMedida").ToString.ToEntero ' Dim CveUnidadMedida As Integer = Row("CveUnidadMedida").ToString.ToEntero
' Dim PU As Double = Row("PU").ToString.ToDouble ' Dim PU As Double = Row("PU").ToString.ToDouble
' If Not ObjInv.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, CveUnidadMedida, CvePS, PU, -1) Then ' If Not ObjInv.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, CveUnidadMedida, CvePS, PU, -1) Then
' TieneError = True ' TieneError = True
' Exit For ' Exit For
' End If ' End If
' Next ' Next
' Else ' Else
' TieneError = True ' TieneError = True
' Exit For ' Exit For
' End If ' End If
' 'Movimeinto de entrada por traspaso al almacen origen ' 'Movimeinto de entrada por traspaso al almacen origen
' Dim CveMovimientoEntrada As Integer = ObjInv.AddMovimiento(CveAlmacenOrigen, CveConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContratoHijo, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenDestino) ' Dim CveMovimientoEntrada As Integer = ObjInv.AddMovimiento(CveAlmacenOrigen, CveConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContratoHijo, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenDestino)
' If CveMovimientoEntrada > 0 Then ' If CveMovimientoEntrada > 0 Then
' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows ' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows
' Dim Cantidad As Double = Row("Cantidad").ToString.ToDouble ' Dim Cantidad As Double = Row("Cantidad").ToString.ToDouble
' Dim CvePS As Integer = Row("CvePS").ToString.ToEntero ' Dim CvePS As Integer = Row("CvePS").ToString.ToEntero
' Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero ' Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero
' Dim CveUnidadMedida As Integer = Row("CveUnidadMedida").ToString.ToEntero ' Dim CveUnidadMedida As Integer = Row("CveUnidadMedida").ToString.ToEntero
' Dim PU As Double = Row("PU").ToString.ToDouble ' Dim PU As Double = Row("PU").ToString.ToDouble
' If Not ObjInv.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUnidadMedida, CvePS, PU, -1) Then ' If Not ObjInv.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUnidadMedida, CvePS, PU, -1) Then
' TieneError = True ' TieneError = True
' Exit For ' Exit For
' End If ' End If
' Next ' Next
' Else ' Else
' TieneError = True ' TieneError = True
' Exit For ' Exit For
' End If ' End If
' Next ' Next
' If TieneError Then ' If TieneError Then
' Alert("Ocurrió un error al traspasar los activos fijos", TipoMensaje.MsgAdvertencia) ' Alert("Ocurrió un error al traspasar los activos fijos", TipoMensaje.MsgAdvertencia)
' ObjInv.RollBack() ' ObjInv.RollBack()
' Else ' Else
' ObjInv.Commit() ' ObjInv.Commit()
' End If ' End If
' Catch ex As Exception ' Catch ex As Exception
' ObjInv.RollBack() ' ObjInv.RollBack()
' OnError("Ocurrió un error al traspasar los activos fijos", ex) ' OnError("Ocurrió un error al traspasar los activos fijos", ex)
' End Try ' End Try
' ObjInv.Dispose() ' ObjInv.Dispose()
'End Sub 'End Sub
#End Region #End Region
#Region "FIANZAS" #Region "FIANZAS"
Protected Sub LimpiarCamposModalFianzas() Protected Sub LimpiarCamposModalFianzas()
txtFolioFianza.Text = "" txtFolioFianza.Text = ""
@@ -4440,10 +4440,10 @@ Partial Class Contratos_Default
ScriptManager.GetCurrent(Me).RegisterPostBackControl(lb) ScriptManager.GetCurrent(Me).RegisterPostBackControl(lb)
End If End If
End If End If
End Sub End Sub
#End Region #End Region
#Region "CONVENIO DE PRECIO FIJO" #Region "CONVENIO DE PRECIO FIJO"
Protected Sub CargaConvenioPrecioFijo() Protected Sub CargaConvenioPrecioFijo()
'12/04/2018 - oculta campo de licitacion, portlet finanzas y campo tipo de garantia '12/04/2018 - oculta campo de licitacion, portlet finanzas y campo tipo de garantia
@@ -4452,9 +4452,9 @@ Partial Class Contratos_Default
DivTipoGarantia.Visible = False DivTipoGarantia.Visible = False
UpGral.Update() UpGral.Update()
End Sub End Sub
#End Region #End Region
#Region "NOMENCLATURA CONTRATOS" #Region "NOMENCLATURA CONTRATOS"
Protected Sub GetNoContratoNuevo() Protected Sub GetNoContratoNuevo()
Dim ObjContratos As New ClsContratos() Dim ObjContratos As New ClsContratos()
@@ -4486,9 +4486,9 @@ Partial Class Contratos_Default
End If End If
ObjContratos.Dispose() ObjContratos.Dispose()
End Sub End Sub
#End Region #End Region
#Region "IMPUESOS LOCALES" #Region "IMPUESOS LOCALES"
Protected Sub ChkImpuestosLocales_CheckedChanged(sender As Object, e As EventArgs) Protected Sub ChkImpuestosLocales_CheckedChanged(sender As Object, e As EventArgs)
If ChkImpuestosLocales.Checked Then If ChkImpuestosLocales.Checked Then

2
Contratos/ContratoAvance.aspx.vb
View File

@@ -135,7 +135,7 @@ Partial Class Contratos_ContratoAvance
#Region "Filtros" #Region "Filtros"
Private Sub CargaContrato() Private Sub CargaContrato()
DdlContratos.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(" CveContratoTipo in (30,31) ")
DdlContratos.DataBind() DdlContratos.DataBind()
End Sub End Sub

15
Contratos/ContratoObra.aspx
View File

@@ -673,9 +673,7 @@
</div> </div>
</div> </div>
</div>
<div class="row"> <div class="row">
@@ -763,11 +761,7 @@
</div> </div>
</div>
<div class="row" style="display: none;"> <div class="row" style="display: none;">
<label class="col-md-2 truncate">Importe:</label> <label class="col-md-2 truncate">Importe:</label>
@@ -2902,7 +2896,8 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlRubro" runat="server" CssClass="table-group-action-input form-control input-inline input-sm select2me" Style="width: 100%;" AutoPostBack="true" OnSelectedIndexChanged="DdlRubro_SelectedIndexChanged"> <asp:DropDownList ID="DdlRubro" runat="server" CssClass="table-group-action-input form-control input-inline input-sm select2me" Style="width: 100%;" AutoPostBack="true" OnSelectedIndexChanged="DdlRubro_SelectedIndexChanged">
<asp:ListItem Value="2">Insumos</asp:ListItem> <asp:ListItem Value="2">Insumos</asp:ListItem>
<asp:ListItem Value="5">Insumos-Indirecto</asp:ListItem>
<asp:ListItem Value="3">Mano de Obra</asp:ListItem> <asp:ListItem Value="3">Mano de Obra</asp:ListItem>
<asp:ListItem Value="4">Maquinaria Herramienta Flotilla</asp:ListItem> <asp:ListItem Value="4">Maquinaria Herramienta Flotilla</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
@@ -2937,7 +2932,7 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPUInsumos" runat="server" Width="70px" CssClass="form-control"></asp:TextBox> <asp:TextBox ID="TxtPUInsumos" runat="server" Width="120px" CssClass="form-control"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FETxtPUInsumos" runat="server" TargetControlID="TxtPUInsumos" FilterType="Custom, Numbers" ValidChars="." /> <ajax:FilteredTextBoxExtender ID="FETxtPUInsumos" runat="server" TargetControlID="TxtPUInsumos" FilterType="Custom, Numbers" ValidChars="." />
<asp:RequiredFieldValidator ID="RFVTxtPUInsumos" runat="server" ControlToValidate="TxtPUInsumos" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''P.U.''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSControl"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVTxtPUInsumos" runat="server" ControlToValidate="TxtPUInsumos" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''P.U.''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSControl"></asp:RequiredFieldValidator>
<label for="<%= TxtPUInsumos.ClientID.ToString()%>">P.U.:</label> <label for="<%= TxtPUInsumos.ClientID.ToString()%>">P.U.:</label>

2
Contratos/ContratoObraAutorizacion.aspx.vb
View File

@@ -133,7 +133,7 @@ Partial Class Contratos_ContratoObraAutorizacion
Private Sub CargaContrato() Private Sub CargaContrato()
DDlContratosEstimaciones.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) DDlContratosEstimaciones.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo in (30,31) ")
DDlContratosEstimaciones.DataBind() DDlContratosEstimaciones.DataBind()
End Sub End Sub

2
Contratos/Estimaciones.aspx.vb
View File

@@ -54,7 +54,7 @@ Partial Class Contratos_Estimaciones
End Sub End Sub
Private Sub CargaContratos() Private Sub CargaContratos()
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
End Sub End Sub

2
Contratos/FacturacionMasiva.aspx.vb
View File

@@ -115,7 +115,7 @@ Partial Class Contratos_FacturacionMasiva
Private Sub CargaCombos() Private Sub CargaCombos()
DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlCliente.DataBind() DdlCliente.DataBind()
DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
DdlSucursal.DataBind() DdlSucursal.DataBind()

2
Contratos/RepContratos.aspx.vb
View File

@@ -55,7 +55,7 @@ Partial Class RepContratos
End Sub End Sub
Private Sub CargaContratos() Private Sub CargaContratos()
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
End Sub End Sub

2
Contratos/RepContratosAvances.aspx.vb
View File

@@ -42,7 +42,7 @@ Partial Class RepContratosAvances
Private Sub CargaContratos() Private Sub CargaContratos()
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
End Sub End Sub

2
Contratos/RepContratosCostos.aspx.vb
View File

@@ -44,7 +44,7 @@ Partial Class Contratos_RepContratosCostos
#Region "C O M B O S" #Region "C O M B O S"
Public Sub CargaContratos() Public Sub CargaContratos()
DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContratos.DataBind() DdlContratos.DataBind()
End Sub End Sub

2
Contratos/RepContratosDetalle.aspx.vb
View File

@@ -55,7 +55,7 @@ Partial Class RepContratos
End Sub End Sub
Private Sub CargaContratos() Private Sub CargaContratos()
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
End Sub End Sub

2
Contratos/RepContratosFianzas.aspx.cs
View File

@@ -69,7 +69,7 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas
protected void CargaContratos() protected void CargaContratos()
{ {
DdlContratos.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa); DdlContratos.DataSource = get_GlobalDTContratos(UsuarioActual.CveEmpresa);
DdlContratos.DataBind(); DdlContratos.DataBind();
} }
protected void CargaClientes() protected void CargaClientes()

2
Contratos/RepContratosObraAvances.aspx.vb
View File

@@ -79,7 +79,7 @@ Partial Class RepContratosObraAvances
Private Sub CargaContratos() Private Sub CargaContratos()
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo IN(30,31) ") DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(" CveContratoTipo IN(30,31) ")
DdlContrato.DataBind() DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
End Sub End Sub

2
Contratos/RepContratosSuministros.aspx.vb
View File

@@ -42,7 +42,7 @@ Partial Class Contratos_RepContratosSuministros
#Region "C O M B O S" #Region "C O M B O S"
Public Sub CargaContratos() Public Sub CargaContratos()
DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContratos.DataBind() DdlContratos.DataBind()
End Sub End Sub

2
Contratos/RepPedidosDevolucionesXContrato.aspx.vb
View File

@@ -45,7 +45,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
#Region "C O M B O S" #Region "C O M B O S"
Public Sub CargaContratos() Public Sub CargaContratos()
DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContratos.DataBind() DdlContratos.DataBind()
End Sub End Sub

2
GPS/FacturacionMasiva.aspx.vb
View File

@@ -100,7 +100,7 @@ Partial Class Contratos_FacturacionMasiva
Private Sub CargaCombos() Private Sub CargaCombos()
DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlCliente.DataBind() DdlCliente.DataBind()
DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
DdlSucursal.DataBind() DdlSucursal.DataBind()

2
Inventarios/RepTrasladoSolicitud.aspx.vb
View File

@@ -21,7 +21,7 @@ Partial Class Inventarios_RepTrasladoSolicitud
DdlAlmacenDestino.DataBind() DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1")) DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1"))
DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New ListItem("Todos", "-1")) DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))

12
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -246,7 +246,7 @@ Partial Class Inventarios_TrasladoSolicitud
If CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then If CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then
LblDireccionEnvio.Text = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1")).Rows(0)("SucursalClienteVentaDireccion").ToString LblDireccionEnvio.Text = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1")).Rows(0)("SucursalClienteVentaDireccion").ToString
Else Else
Dim CveCliente As Integer = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}").ToEntero Dim CveCliente As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}").ToEntero
Dim DtCliente As DataTable = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}") Dim DtCliente As DataTable = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
If DtCliente.Rows.Count > 0 Then If DtCliente.Rows.Count > 0 Then
LblDireccionEnvio.Text = String.Format("{0},{1}, {2}", DtCliente.FiltroPrimeroValor("Direccion"), DtCliente.FiltroPrimeroValor("Colonia"), DtCliente.FiltroPrimeroValor("Ciudad"), DtCliente.FiltroPrimeroValor("Contacto")) LblDireccionEnvio.Text = String.Format("{0},{1}, {2}", DtCliente.FiltroPrimeroValor("Direccion"), DtCliente.FiltroPrimeroValor("Colonia"), DtCliente.FiltroPrimeroValor("Ciudad"), DtCliente.FiltroPrimeroValor("Contacto"))
@@ -517,7 +517,7 @@ Partial Class Inventarios_TrasladoSolicitud
If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
Dim CveEstatusVigente = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus = 1", Orderby:="CveContratoEstatus").ToEntero Dim CveEstatusVigente = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus = 1", Orderby:="CveContratoEstatus").ToEntero
DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCliente = {DdlClientes.SelectedValue.ToEntero} AND CveContratosEstatus = {CveEstatusVigente}") DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($" CveCliente = {DdlClientes.SelectedValue.ToEntero} AND CveContratosEstatus = {CveEstatusVigente}")
'If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, CveEstatusVigente) Then 'If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, CveEstatusVigente) Then
' DdlContratos.DataSource = ObjContratos.DtResultados ' DdlContratos.DataSource = ObjContratos.DtResultados
@@ -808,10 +808,10 @@ Partial Class Inventarios_TrasladoSolicitud
Dim CveContrato As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CveContrato").ToString.ToEntero Dim CveContrato As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CveContrato").ToString.ToEntero
If CveContrato > 0 Then If CveContrato > 0 Then
Contrato = GlobalDTContratos().FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato}")
NumContrato = GlobalDTContratos().FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} ")
CveCliente = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero
CveDireccionEnvio = GlobalDTContratos().FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero
If CveCliente > 0 Then If CveCliente > 0 Then

6
OC/OC.aspx.vb
View File

@@ -2098,7 +2098,7 @@ Partial Class OC
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
Dim Mensaje As String = "" Dim Mensaje As String = ""
Dim dttemp As DataTable = GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString)) Dim dttemp As DataTable = Nothing 'GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
Dim drContrato As DataRow = dttemp.Rows(0) Dim drContrato As DataRow = dttemp.Rows(0)
If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then
@@ -5465,7 +5465,7 @@ Partial Class OC
Dim subproyectos As New List(Of Integer) Dim subproyectos As New List(Of Integer)
For Each Row As DataRow In DtDetalle.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}).Rows For Each Row As DataRow In DtDetalle.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}).Rows
Dim RowCon As DataRow = GlobalDTContratos.FiltroPrimero(String.Format("CveSubProyecto={0}", Row("CveSubProyecto"))) Dim RowCon As DataRow = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto={0}", Row("CveSubProyecto")))
If Not IsNothing(RowCon) Then If Not IsNothing(RowCon) Then
filtro.AppendFormat(",{0}", Row("CveSubProyecto")) filtro.AppendFormat(",{0}", Row("CveSubProyecto"))
subproyectos.Add(Row("CveSubProyecto").ToString.ToEntero) subproyectos.Add(Row("CveSubProyecto").ToString.ToEntero)
@@ -8411,7 +8411,7 @@ Partial Class OC
DdlContratosObra.Items.Clear() DdlContratosObra.Items.Clear()
DdlContratosObra.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) DdlContratosObra.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo in (30,31) ")
DdlContratosObra.DataBind() DdlContratosObra.DataBind()
DdlContratosObra.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlContratosObra.Items.Insert(0, New ListItem("Seleccione", "-1"))

8
Sistemas/CatSesiones.aspx.vb
View File

@@ -228,8 +228,14 @@ Partial Class Sistemas_CatSesiones
If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing
'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing 'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing
If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing
If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing 'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
ObjPS.Dispose() ObjPS.Dispose()
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
Using ObjVenta As New ClsVentas
If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
End If
End Using
'Fin Carga Usuarios 'Fin Carga Usuarios
End Sub End Sub

2
Ventas/CatAutorizacionLimites.aspx.vb
View File

@@ -47,6 +47,8 @@ Partial Class Ventas_CatAutorizacionLimites
DdlClienteFiltro.DataBind() DdlClienteFiltro.DataBind()
DdlClienteFiltro.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClienteFiltro.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If End If
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedor.DataBind() DdlVendedor.DataBind()
DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)

2
Ventas/ProductosServicios.aspx.vb
View File

@@ -244,7 +244,7 @@ Partial Class ProductosyServicios
InicializaEcommerce() InicializaEcommerce()
If UsuarioActual.CveEmpresa.Contiene(141, 152) Then If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
'DivDatos.Attributes("class") = "col-md-12" 'DivDatos.Attributes("class") = "col-md-12"
DivDdlTipo.Visible = True DivDdlTipo.Visible = True

4
Ventas/Ventas.aspx.vb
View File

@@ -2150,7 +2150,7 @@ Partial Class Ventas
DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Autorización", "PA")) DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Autorización", "PA"))
End If End If
If Not UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) Then If Not UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
LnkAgregarCliente.Visible = False LnkAgregarCliente.Visible = False
End If End If
@@ -2991,7 +2991,7 @@ Partial Class Ventas
'UNA VEZ CARGADA LAS CONDICIONES DE PAGO INICIALMENTE, NO VUELVE A SOBREESCRIBIR EL VALOR 'UNA VEZ CARGADA LAS CONDICIONES DE PAGO INICIALMENTE, NO VUELVE A SOBREESCRIBIR EL VALOR
CveFormaPago33Cliente = -1 CveFormaPago33Cliente = -1
If UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) Then If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
trRotacion.Visible = True trRotacion.Visible = True
trRotacionlbl.Visible = True trRotacionlbl.Visible = True
trAlineacion.Visible = True trAlineacion.Visible = True