Identificador de Regra

/*
Definição da Variável relativa a Origem da Chamada do Identificador de Regras.
Valore Possíveis:
PED = Pedido;
NFS = Nota Fiscal de Saída;
OCT = Orçamento;
NFE = Nota Fiscal de Entrada;
OCP = Ordem de Compra.
*/
Definir Alfa VSOrigem;

/*
Definição das Variáveis relativas as Chaves do Documento de Origem.
*/
Definir Numero VSCodEmp;
Definir Numero VSCodFil;
Definir Numero VSNumero;
Definir Numero VsSeqIte;

/*
Definição das Variáveis relativa aos campos de Percentual, Base e Valor de ISS.
O Valor dessas variáveis é devolvido para o sistema.
*/
Definir Numero VSPerIss;
Definir Numero VSVlrIss;
Definir Numero VSVlrBis;

/*
Definição das Variáveis de Valores Diversos do Item do Documento de Origem.
*/
Definir Numero VSVlrBru;
Definir Numero VSPerDsc;
Definir Numero VSPerDs1;
Definir Numero VSPerDs2;
Definir Numero VSPerDs3;
Definir Numero VSPerDs4;
Definir Numero VSPerDs5;

/*
Definição das Variáveis relativas a Disponibilidade das Tabelas de Pedido em Regra.
*/
Definir Alfa VSDisp_E120Ped;
Definir Alfa VSDisp_E120Isp;

/*
Definição das Variáveis de Uso Genérico.
Essas variáveis são utilizadas apenas na função EntradaValor.
*/
Definir Alfa PRETALFA;
Definir Numero PRETNUM;
Definir Numero PTIPSAI;
Definir Alfa xValorCampoUsuarioPed;
Definir Alfa xValorCampoUsuarioItem;

Definir Funcao Carregar_CamposUsuario();
Definir Funcao Carregar_CamposUsuario_Banco();
Definir Funcao Tratar_SugestaoIss();
Definir Funcao Tratar_InsercaoPercentualZero();
Definir Funcao Tratar_CalculoIss();

/*
ENTRADAVALOR("Digite o Percentual de ISS:", "Digite o Percentual:",2, "ZZ9,999", "1", 1, PRETALFA, PRETNUM, PTIPSAI);
SE (PTIPSAI = 1)
INICIO
  VSPerIss = PRETNUM;
  
  SE (VSVLRBIS = 0)
  Inicio
    VSVLRBIS = (VSVlrBru - (VSPerDsc + VSPerDs1 + VSPerDs2 + VSPerDs3 + VSPerDs4 + VSPerDs5)); 
  Fim;
  
  VSVLRISS = (VSVLRBIS * (VSPerIss / 100));
FIM;
*/

Se (VsOrigem = "PED")
Inicio
  Carregar_CamposUsuario();
  Tratar_SugestaoIss();
  Tratar_InsercaoPercentualZero();
  Tratar_CalculoIss();
Fim
SeNao
Inicio
  Tratar_InsercaoPercentualZero();
  Tratar_CalculoIss();
Fim;

x = y;

Funcao Carregar_CamposUsuario(); 
Inicio
  Se ((VSDisp_E120Ped = "S") E (VSDisp_E120Isp = "S"))
  Inicio
    xValorCampoUsuarioPed  = E120PED.Usu_Teste;
    xValorCampoUsuarioItem = E120ISP.Usu_CodPro;      
  Fim
  SeNao
  Inicio
    Carregar_CamposUsuario_Banco();
  Fim;
Fim;

Funcao Carregar_CamposUsuario_Banco(); 
Inicio
  Definir Alfa xSql;
  Sql_Criar(xCursor);
  xSql = "SELECT E120PED.USU_TESTE, E120ISP.Usu_CodPro " + 
         "  FROM E120PED, E120ISP      " +
         " WHERE E120PED.CODEMP = E120ISP.CODEMP " +
         "   AND E120PED.CODFIL = E120ISP.CODFIL " +
         "   AND E120PED.NUMPED = E120ISP.NUMPED " +
         "   AND E120PED.CODEMP = :VSCODEMP      " +
         "   AND E120PED.CODFIL = :VSCODFIL      " +
         "   AND E120PED.NUMPED = :VSNUMPED      " +
         "   AND E120ISP.SEQISP = :VSSEQITE";
  Sql_DefinirComando(xCursor, xSql);
  Sql_DefinirInteiro(xCursor, "VSCODEMP", VSCodEmp);
  Sql_DefinirInteiro(xCursor, "VSCODFIL", VSCodFil);
  Sql_DefinirInteiro(xCursor, "VSNUMPED", VSNumero);
  Sql_DefinirInteiro(xCursor, "VSSEQITE", VSSeqIte);
  Sql_AbrirCursor(xCursor);
  Se(Sql_EOF(xCursor) = 0)
  Inicio
    Sql_RetornarAlfa(xCursor, "USU_Teste", xValorCampoUsuarioPed);
    Sql_RetornarAlfa(xCursor, "Usu_CodPro", xValorCampoUsuarioItem);
  Fim;
  Sql_FecharCursor(xCursor);
  Sql_Destruir(xCursor);
Fim;

Funcao Tratar_SugestaoIss();
Inicio
  Se (xValorCampoUsuarioPed = "50") 
  Inicio
    VSPerIss = 50; 
  Fim
  SeNao
  Inicio
    VSPerIss = 25;
  Fim;
Fim;

Funcao Tratar_InsercaoPercentualZero();
Inicio
  /*
  Tratamento do cenário especifico que acontece na inserção de um registro, 
  quando não existe Percentual de ISS sugerido ao item. 
  
  Nesse cenário, o sistema não calcula a Base e o Valor de ISS, ou seja, 
  esses valores estão zerados na Regra. 
  Por isso, a base deve ser montada e o valor deve ser calculado de forma manual. 
  Os três campos devem ser retornados ao sistema (VSPerIss, VSVlrBis, VSVlrIss).
  */
  
  SE (VsVlrBis = 0)
  Inicio
    VsVlrBis = (VSVlrBru - (VSPerDsc + VSPerDs1 + VSPerDs2 + VSPerDs3 + VSPerDs4 + VSPerDs5)); 
  Fim;
Fim; 

Funcao Tratar_CalculoIss();
Inicio
  VSVlrIss = (VsVlrBis * (VSPerIss / 100));
Fim;