Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
Hector
@@ -1804,7 +1804,7 @@ Public Class ClsPaginas
|
||||
'sino existe, recarga los datos
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
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 If
|
||||
|
||||
|
||||
@@ -1577,8 +1577,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = tipoCambioCompra
|
||||
|
||||
CveIE = rw.DataKey("CveIE").ToString.ToEntero
|
||||
@@ -1625,8 +1625,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = tipoCambioCompra
|
||||
|
||||
CveIE = rw.DataKey("CveIE").ToString.ToEntero
|
||||
@@ -1672,8 +1672,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
CveIE = rw.DataKey("CveIE").ToString.ToEntero
|
||||
If CveMonedaCompra <> 1 Then
|
||||
@@ -1718,8 +1718,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
If CveMonedaCompra <> 1 Then
|
||||
'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
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = tipoCambioCompra
|
||||
End If
|
||||
|
||||
@@ -1795,8 +1795,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = tipoCambioCompra
|
||||
|
||||
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -1829,8 +1829,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
|
||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -1863,8 +1863,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = tipoCambioCompra
|
||||
|
||||
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -2136,8 +2136,8 @@ Partial Class Bancos_PopIECompras
|
||||
' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
|
||||
' ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
' End If
|
||||
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
' ImporteMX = Math.Round(ImporteMX, 2)
|
||||
' ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
' ImporteMX = ImporteMX.RoundSQL
|
||||
' TimpocambioGeneral = tipoCambioCompra
|
||||
|
||||
' If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -2171,8 +2171,8 @@ Partial Class Bancos_PopIECompras
|
||||
' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
|
||||
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
|
||||
' End If
|
||||
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
' ImporteMX = Math.Round(ImporteMX, 2)
|
||||
' ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
' ImporteMX = ImporteMX.RoundSQL
|
||||
' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
|
||||
|
||||
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -2206,8 +2206,8 @@ Partial Class Bancos_PopIECompras
|
||||
' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
|
||||
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
|
||||
' End If
|
||||
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
' ImporteMX = Math.Round(ImporteMX, 2)
|
||||
' ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
' ImporteMX = ImporteMX.RoundSQL
|
||||
' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
|
||||
|
||||
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -2242,8 +2242,8 @@ Partial Class Bancos_PopIECompras
|
||||
' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
|
||||
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
|
||||
' End If
|
||||
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
' ImporteMX = Math.Round(ImporteMX, 2)
|
||||
' ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
' ImporteMX = ImporteMX.RoundSQL
|
||||
' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
|
||||
|
||||
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -2431,7 +2431,7 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
End If
|
||||
ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2)
|
||||
ImporteMXNoDeducible = Math.Round(ImporteMX, 2)
|
||||
ImporteMXNoDeducible = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
|
||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}"
|
||||
@@ -2596,8 +2596,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = (MovimientoPagar.IVADeducible)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
|
||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -2620,8 +2620,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
|
||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -2657,7 +2657,7 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
End If
|
||||
ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2)
|
||||
ImporteMXNoDeducible = Math.Round(ImporteMX, 2)
|
||||
ImporteMXNoDeducible = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
|
||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}"
|
||||
@@ -2742,8 +2742,8 @@ Partial Class Bancos_PopIECompras
|
||||
' ImporteMovimiento = (MovimientoPagar.IVANoDeducible)
|
||||
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
' End If
|
||||
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
' ImporteMX = Math.Round(ImporteMX, 2)
|
||||
' ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
' ImporteMX = ImporteMX.RoundSQL
|
||||
' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
|
||||
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -2765,8 +2765,8 @@ Partial Class Bancos_PopIECompras
|
||||
' ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago)
|
||||
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
' End If
|
||||
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
' ImporteMX = Math.Round(ImporteMX, 2)
|
||||
' ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
' ImporteMX = ImporteMX.RoundSQL
|
||||
' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
|
||||
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -2802,8 +2802,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = tipoCambioCompra
|
||||
|
||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||
@@ -2825,8 +2825,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
|
||||
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.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 = Math.Abs(Math.Round(ImporteMovimiento, 2))
|
||||
ImporteMovimiento = Math.Abs(ImporteMovimiento.RoundSQL)
|
||||
ImporteMX = ImporteMovimiento
|
||||
End If
|
||||
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.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 = Math.Abs(Math.Round(ImporteMovimiento, 2))
|
||||
ImporteMovimiento = Math.Abs(ImporteMovimiento.RoundSQL)
|
||||
ImporteMX = ImporteMovimiento
|
||||
End If
|
||||
Else
|
||||
@@ -2899,8 +2899,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = ImportePagado.ToString.ToDecimal
|
||||
ImporteMX = ImporteMovimiento * tipoCambioPago
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = tipoCambioPago
|
||||
|
||||
If CveMoneda = 1 Then
|
||||
@@ -2946,8 +2946,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
ImporteMX = ImporteMovimiento * tipoCambioPago
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
CveIE = rw.DataKey("CveIE").ToString.ToEntero
|
||||
|
||||
@@ -2975,8 +2975,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
ImporteMX = ImporteMovimiento * tipoCambioPago
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
CveIE = rw.DataKey("CveIE").ToString.ToEntero
|
||||
|
||||
@@ -3003,8 +3003,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = ImportePagado.ToString.ToDecimal
|
||||
ImporteMX = ImporteMovimiento * tipoCambioPago
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
TimpocambioGeneral = tipoCambioPago
|
||||
IdCtaContable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPersonal", "").ToEntero
|
||||
|
||||
@@ -3028,8 +3028,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
ImporteMX = ImporteMovimiento * tipoCambioPago
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
CveIE = rw.DataKey("CveIE").ToString.ToEntero
|
||||
IdCtaContable = CtaProveedorDeudores
|
||||
@@ -3057,8 +3057,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
ImporteMX = ImporteMovimiento * tipoCambioPago
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
If rw.DataKey("CveMoneda").ToEntero = 1 Then
|
||||
IdCtaContable = IdCuentaCliente
|
||||
@@ -3100,8 +3100,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.DataKey("RetIVA").ToString.ToDecimal * PorcentajePagoVenta
|
||||
ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
'Conta ContPAQ
|
||||
If IdCtaContRetIVACliente <> 0 Then
|
||||
@@ -3141,8 +3141,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoVenta
|
||||
ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
'Conta ContPAQ
|
||||
If IdCtaContRetISR <> 0 Then
|
||||
@@ -3183,8 +3183,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.DataKey("IVA").ToString.ToDecimal * PorcentajePagoVenta
|
||||
ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
PorcentajeImpuesto = rw.DataKey("PorcentajeIVA").ToDecimal
|
||||
Dim IdCtaIVAXTrasladar As Integer = 0
|
||||
@@ -3225,8 +3225,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.DataKey("IVA").ToString.ToDecimal * PorcentajePagoVenta
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, rw.DataKey("TipoCambio").ToString.ToDecimal)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
PorcentajeImpuesto = rw.DataKey("PorcentajeIVA").ToDecimal
|
||||
|
||||
@@ -3268,8 +3268,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.DataKey("IEPS").ToString.ToDecimal * PorcentajePagoVenta
|
||||
ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
|
||||
|
||||
@@ -3301,8 +3301,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.DataKey("IEPS").ToString.ToDecimal * PorcentajePagoVenta
|
||||
ImporteMX = ImporteMovimiento * tipoCambioPago
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
|
||||
|
||||
@@ -3334,8 +3334,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.DataKey("RetIVA").ToString.ToDecimal * PorcentajePagoVenta
|
||||
ImporteMX = ImporteMovimiento * tipoCambioPago
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
'Conta ContPAQ
|
||||
If IdCtaContRetIVA <> 0 Then
|
||||
@@ -3377,8 +3377,8 @@ Partial Class Bancos_PopIECompras
|
||||
ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoVenta
|
||||
ImporteMX = ImporteMovimiento * tipoCambioPago
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
ImporteMX = ImporteMX.RoundSQL
|
||||
|
||||
'Conta ContPAQ
|
||||
If IdCtaContRetISR <> 0 Then
|
||||
|
||||
@@ -18158,75 +18158,75 @@ Partial Class Compras_Compras
|
||||
' End If
|
||||
'End If
|
||||
ObjContratos.Dispose()
|
||||
If Not TieneError Then
|
||||
Select Case Modalidad
|
||||
Case "A" 'ADD
|
||||
If Not TieneError Then
|
||||
Select Case Modalidad
|
||||
Case "A" 'ADD
|
||||
|
||||
Dim SATClavePS = -1
|
||||
Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
|
||||
If PSRow IsNot Nothing Then
|
||||
SATClavePS = PSRow("SATClavePS").ToString.ToEntero
|
||||
Dim SATClavePS = -1
|
||||
Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
|
||||
If PSRow IsNot Nothing Then
|
||||
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
|
||||
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
|
||||
Else
|
||||
Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
|
||||
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
|
||||
' ' Alert($"Ok funcionalidad 577 RetencionIVA { RetencionIVA} IVAOriginal {IVAOriginal}")
|
||||
' 'End If
|
||||
' 'If UsuarioActual.CveRol = 1 Then
|
||||
' ' Alert($"Ok funcionalidad 577 RetencionIVA { RetencionIVA} IVAOriginal {IVAOriginal}")
|
||||
' 'End If
|
||||
|
||||
' If RetencionIVA = 0 And IVAOriginal > 0 Then
|
||||
' For Each dRow As DataRow In TmpDT.Rows
|
||||
' If dRow("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
' 'Comnetado para reubicar el boton
|
||||
' 'tdIVA6.Visible = True
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
' If RetencionIVA = 0 And IVAOriginal > 0 Then
|
||||
' For Each dRow As DataRow In TmpDT.Rows
|
||||
' If dRow("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
' 'Comnetado para reubicar el boton
|
||||
' 'tdIVA6.Visible = True
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
|
||||
'End If
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
UpPS.Update()
|
||||
CargaGvPersonal()
|
||||
UpPS.Update()
|
||||
CargaGvPersonal()
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Regresa el INDEX del row que acaba de agregar en el TMPDT
|
||||
|
||||
@@ -1654,7 +1654,7 @@ Partial Class Contratos_Default
|
||||
End Sub
|
||||
Private Sub CargaContratoPadre()
|
||||
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.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
@@ -3325,7 +3325,7 @@ Partial Class Contratos_Default
|
||||
End Sub
|
||||
Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
|
||||
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
|
||||
Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
|
||||
Dim excelFile As ExcelFile = excelFile.Load(flatFilePath)
|
||||
|
||||
Dim unnamed As Integer = 0
|
||||
Dim cols As Integer
|
||||
|
||||
@@ -135,7 +135,7 @@ Partial Class Contratos_ContratoAvance
|
||||
#Region "Filtros"
|
||||
|
||||
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()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -675,8 +675,6 @@
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
|
||||
|
||||
@@ -763,10 +761,6 @@
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<div class="row" style="display: none;">
|
||||
@@ -2902,7 +2896,8 @@
|
||||
|
||||
<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: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="4">Maquinaria Herramienta Flotilla</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
@@ -2937,7 +2932,7 @@
|
||||
|
||||
|
||||
<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="." />
|
||||
<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>
|
||||
|
||||
@@ -133,7 +133,7 @@ Partial Class Contratos_ContratoObraAutorizacion
|
||||
|
||||
|
||||
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()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -54,7 +54,7 @@ Partial Class Contratos_Estimaciones
|
||||
|
||||
End Sub
|
||||
Private Sub CargaContratos()
|
||||
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
|
||||
DdlContrato.DataBind()
|
||||
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
@@ -115,7 +115,7 @@ Partial Class Contratos_FacturacionMasiva
|
||||
Private Sub CargaCombos()
|
||||
DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
DdlCliente.DataBind()
|
||||
DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
|
||||
DdlContrato.DataBind()
|
||||
DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSucursal.DataBind()
|
||||
|
||||
@@ -55,7 +55,7 @@ Partial Class RepContratos
|
||||
|
||||
End Sub
|
||||
Private Sub CargaContratos()
|
||||
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
|
||||
DdlContrato.DataBind()
|
||||
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
@@ -42,7 +42,7 @@ Partial Class RepContratosAvances
|
||||
|
||||
|
||||
Private Sub CargaContratos()
|
||||
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
|
||||
DdlContrato.DataBind()
|
||||
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
@@ -44,7 +44,7 @@ Partial Class Contratos_RepContratosCostos
|
||||
|
||||
#Region "C O M B O S"
|
||||
Public Sub CargaContratos()
|
||||
DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
|
||||
DdlContratos.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -55,7 +55,7 @@ Partial Class RepContratos
|
||||
|
||||
End Sub
|
||||
Private Sub CargaContratos()
|
||||
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
|
||||
DdlContrato.DataBind()
|
||||
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
@@ -69,7 +69,7 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas
|
||||
|
||||
protected void CargaContratos()
|
||||
{
|
||||
DdlContratos.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
|
||||
DdlContratos.DataSource = get_GlobalDTContratos(UsuarioActual.CveEmpresa);
|
||||
DdlContratos.DataBind();
|
||||
}
|
||||
protected void CargaClientes()
|
||||
|
||||
@@ -79,7 +79,7 @@ Partial Class RepContratosObraAvances
|
||||
|
||||
|
||||
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.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
@@ -42,7 +42,7 @@ Partial Class Contratos_RepContratosSuministros
|
||||
|
||||
#Region "C O M B O S"
|
||||
Public Sub CargaContratos()
|
||||
DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
|
||||
DdlContratos.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -45,7 +45,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
|
||||
|
||||
#Region "C O M B O S"
|
||||
Public Sub CargaContratos()
|
||||
DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
|
||||
DdlContratos.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -100,7 +100,7 @@ Partial Class Contratos_FacturacionMasiva
|
||||
Private Sub CargaCombos()
|
||||
DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
DdlCliente.DataBind()
|
||||
DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
|
||||
DdlContrato.DataBind()
|
||||
DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSucursal.DataBind()
|
||||
|
||||
@@ -21,7 +21,7 @@ Partial Class Inventarios_RepTrasladoSolicitud
|
||||
DdlAlmacenDestino.DataBind()
|
||||
DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
|
||||
DdlContrato.DataBind()
|
||||
DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
|
||||
@@ -246,7 +246,7 @@ Partial Class Inventarios_TrasladoSolicitud
|
||||
If CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then
|
||||
LblDireccionEnvio.Text = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1")).Rows(0)("SucursalClienteVentaDireccion").ToString
|
||||
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}")
|
||||
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"))
|
||||
@@ -517,7 +517,7 @@ Partial Class Inventarios_TrasladoSolicitud
|
||||
If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
|
||||
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
|
||||
' DdlContratos.DataSource = ObjContratos.DtResultados
|
||||
@@ -808,10 +808,10 @@ Partial Class Inventarios_TrasladoSolicitud
|
||||
|
||||
Dim CveContrato As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CveContrato").ToString.ToEntero
|
||||
If CveContrato > 0 Then
|
||||
Contrato = GlobalDTContratos().FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
NumContrato = GlobalDTContratos().FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
CveCliente = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero
|
||||
CveDireccionEnvio = GlobalDTContratos().FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero
|
||||
Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato}")
|
||||
NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} ")
|
||||
CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero
|
||||
CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero
|
||||
|
||||
|
||||
If CveCliente > 0 Then
|
||||
|
||||
@@ -2098,7 +2098,7 @@ Partial Class OC
|
||||
Dim ObjContratos As New ClsContratos
|
||||
Dim TieneError As Boolean = False
|
||||
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
|
||||
Dim drContrato As DataRow = dttemp.Rows(0)
|
||||
If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then
|
||||
@@ -5465,7 +5465,7 @@ Partial Class OC
|
||||
Dim subproyectos As New List(Of Integer)
|
||||
|
||||
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
|
||||
filtro.AppendFormat(",{0}", Row("CveSubProyecto"))
|
||||
subproyectos.Add(Row("CveSubProyecto").ToString.ToEntero)
|
||||
@@ -8411,7 +8411,7 @@ Partial Class OC
|
||||
|
||||
|
||||
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.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
|
||||
@@ -228,8 +228,14 @@ Partial Class Sistemas_CatSesiones
|
||||
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.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()
|
||||
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
|
||||
End Sub
|
||||
|
||||
@@ -47,6 +47,8 @@ Partial Class Ventas_CatAutorizacionLimites
|
||||
DdlClienteFiltro.DataBind()
|
||||
DdlClienteFiltro.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
|
||||
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
|
||||
DdlVendedor.DataBind()
|
||||
|
||||
DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
|
||||
|
||||
@@ -244,7 +244,7 @@ Partial Class ProductosyServicios
|
||||
|
||||
InicializaEcommerce()
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(141, 152) Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||||
'DivDatos.Attributes("class") = "col-md-12"
|
||||
|
||||
DivDdlTipo.Visible = True
|
||||
|
||||
@@ -2150,7 +2150,7 @@ Partial Class Ventas
|
||||
DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Autorización", "PA"))
|
||||
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
|
||||
End If
|
||||
|
||||
@@ -2991,7 +2991,7 @@ Partial Class Ventas
|
||||
'UNA VEZ CARGADA LAS CONDICIONES DE PAGO INICIALMENTE, NO VUELVE A SOBREESCRIBIR EL VALOR
|
||||
CveFormaPago33Cliente = -1
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||||
trRotacion.Visible = True
|
||||
trRotacionlbl.Visible = True
|
||||
trAlineacion.Visible = True
|
||||
|
||||
Reference in New Issue
Block a user