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

-cvesubproyecto

Browse Source
This commit is contained in:
rrene
2020-04-07 20:28:53 -07:00
parent 849e95f4da
commit f91f23e2b1
2 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Contabilidad/ContabilizacionVentas.aspx.cs
View File

@@ -35,21 +35,23 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
{
TienePermisoVerPoliza = false;
TienePermisoEditar = false;
if (UsuarioActual.CveRol == 1 || UsuarioActual.CveUsuario == 17 || UsuarioActual.CveUsuario == 171 || UsuarioActual.TienePermisoProceso(221))
{
TienePermisoEditar = true;
TienePermisoVerPoliza = true;
}
if (UsuarioActual.Empresa.TipoContabilidad == 2 && UsuarioActual.Empresa.UsaContabilidad)
{
TienePermisoEditar = UsuarioActual.TienePermisoProceso(221);
ClsContPAQi ObjCont = new ClsContPAQi(UsuarioActual.Empresa);
ObjCont.GetCuentas(-1, "-1", -1);
string[] columnas = new string[3] { "Id", "CuentaFormato", "Nombre" };
DTmpC = ObjCont.DtResultados.FiltraParametros("", "", columnas);
ObjCont.Dispose();
if (UsuarioActual.CveRol == 1 || UsuarioActual.CveUsuario == 17 || UsuarioActual.CveUsuario == 171 || UsuarioActual.TienePermisoProceso(221))
{
TienePermisoEditar = true;
TienePermisoVerPoliza = true;
}
}
//else
//{

2
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1475,7 +1475,7 @@ Partial Class Ventas_ClientesAbonar
CveCuentaContabilizacion = 0
End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyecto:=CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto) Then
MsgError = "No se pudo insertar la póliza"
End If