ERP – Cadastros – Como bloquear depósitos por usuário
Dúvida
Como bloquear depósitos por usuário, no módulo Movimentação de estoque?
Solução
Não existe atualmente um parâmetro que faça o bloqueio de depósito por usuário.
Uma sugestão é a utilização dos identificadores. Clique aqui e acesse o Identificador de Regra GER-000SELEF01 e clique aqui e acesse o Identificador de Regra GER-000SELEF02 para fazer um filtro indicando os usuários que podem utilizar determinado depósito.
Segue exemplos de regras na utilização do identificador:
Para Produtos Inativos:
Definir Alfa vAlfCodEmp;
Definir Alfa vFiltro;
IntParaAlfa(CodEmp,vAlfCodEmp);
vFiltro = SELECT CODPRO FROM E075PRO WHERE CODEMP = + vAlfCodEmp+ And SitPro='A';
SetarFiltroSql(E075PRO, CODPRO, vFiltro);
Filtra clientes/pedidos de acordo com o representante ligado ao usuário usando o Identificador de Regra: GER-000SELEF01:
Definir Cursor Cur;
Definir Alfa vAlfCodEmp;
Definir Alfa vAlfCodRep;
Definir Alfa vFiltro;
Definir Numero vCodUsu;
Definir Numero vCodRep;
IntParaAlfa(CodEmp,vAlfCodEmp);
vCodUsu = CodUsu;
vCodRep = 0;
Cur.SQL SELECT CODREP FROM E099USU WHERE CODUSU = :vCodUsu;
Cur.AbrirCursor();
Se (Cur.Achou)
vCodRep = CUR.CODREP;
Cur.FecharCursor();
IntParaAlfa(vCodRep,vAlfCodRep);
Se (vCodRep <> 0){
vFiltro = SELECT CODCLI FROM E085CLI WHERE CODCLI IN (SELECT CODCLI FROM E085HCL WHERE CODREP = + vAlfCodRep + );
SetarFiltroSql(E085CLI,CODCLI,vFiltro);}
Senao
SetarFiltroSql(E085CLI,CODCLI,);