Identificador de Regra

VEN-113REMVL01

Módulo:
VEN - Vendas

Finalidade: Faz validações para os eventos "Emitir Receitas" e "Cancelar Receitas" na Emissão da receita agronômica (F113REM). A partir da ativação deste IR, poderá ser feita qualquer validação nas variáveis disponibilizadas, onde o sistema esperará o retorno e, sendo este diferente de 'OK', irá abortar o processamento.

O identificador será acionado no receituário agronômico somente quando, na tela Unidade de medida da dose (F113UMD), o campo Obriga definir área na receita estiver definido com valor "S - Sim". Adicionalmente a isso, na tela Aplicação (F113APL), a Unidade de medida também deve estar configurada com valor "S - Sim", para que a condição seja atendida.

Tela:
F113REM

Transação:
Não se aplica

Regra:

@Retorno@                                                             
Definir Alfa   aRemRetVld;  

@Parâmetro@
Definir Alfa   aRemEvento; 

@Cabecalho Receita@
Definir Numero nRemCodemp;
Definir Numero nRemCodfil;
Definir Numero nRemSeqrem;
Definir Data   dRemDatrec;
Definir Numero nRemCodcli;
Definir Numero nRemCodagr;
Definir Alfa   aRemSigufs;
Definir Alfa   aRemNumcre;
Definir Alfa   aRemNumart;
Definir Alfa   aRemSerart;
Definir Numero nRemCodart;
Definir Numero nRemCodetp;
Definir Numero nRemCoddpp;
Definir Numero nRemCoddia;
Definir Alfa   aRemCmpdia;
Definir Numero nRemCodapt;
Definir Numero nRemCodemb;
Definir Numero nRemNumrec;
Definir Numero nRemSeqent;
Definir Alfa   aRemLocapl;
Definir Alfa   aRemComapl;
Definir Numero nRemCodsit;
Definir Numero nRemQtdemi;
Definir Alfa   aRemIdepar;
Definir Alfa   aRemProrem;
Definir Alfa   aRemNumret;

@Itens da Receita@ 
Definir Numero nReiCodemp;
Definir Numero nReiCodfil;
Definir Numero nReiSeqrem;
Definir Numero nReiSeqrei;
Definir Numero nReiNumped;
Definir Numero nReiSeqipd;
Definir Alfa   aReiCodsnf;
Definir Numero nReiNumnfv;
Definir Numero nReiSeqipv;
Definir Alfa   aReiCodpro;
Definir Alfa   aReiCodder;
Definir Numero nReiCodetp;
Definir Numero nReiCoddpp;
Definir Numero nReiCoddia;
Definir Alfa   aReiCmpdia;
Definir Numero nReiCodapt;
Definir Numero nReiCodemb;
Definir Numero nReiQtddos;
Definir Numero nReiUnimed;
Definir Numero nReiVlrcal;
Definir Numero nReiQtdrei;
Definir Numero nReiNumapl;
Definir Numero nReiVlrare;
Definir Alfa   aReiIdepar;

@Chave Receita@
Definir Numero nCodEmp;
Definir Numero nCodFil;
Definir Numero nSeqRem;

@Variável de conversão@
Definir Alfa   aConvertido;

aRemRetVld = "OK"; @Default Retorna true@

@Testa cabeçalho aqui se houver teste, retorno default igual a "OK" -------------------------------------------------@

@Testa botão emitir@
se (aRemEvento = "Emitir"){
se (nRemNumrec = 13) {
  aRemRetVld = "";
  ConverteMascara(1,nRemNumrec, aConvertido, "AAAAAAAAA");
  Concatena("Não é possível emitir a receita de número ", "",aConvertido,aConvertido);
  Mensagem(Retorna, aConvertido);                                                         
};
};

@Testa botão cancelar@
se ((aRemRetVld = "OK") e (aRemEvento = "Cancelar")){
se (nRemNumrec = 10) {
  aRemRetVld = "";
  ConverteMascara(1,nRemNumrec, aConvertido, "AAAAAAAAA");  
  Concatena("Não é possível cancelar a receita de número ", "",aConvertido,aConvertido);
  Mensagem(Retorna, aConvertido);                                                                                                            
};
};

@Se cabeçalho retornar ok testa item se houver teste@
se (aRemRetVld = "OK"){
    
nCodEmp = nRemCodemp;
nCodFil = nRemCodfil;
nSeqRem = nRemSeqrem;

@ Selecionar itens da receira @
Definir Cursor Cur_A113REI;
Cur_A113REI.Sql "Select e113rei.Codemp,e113rei.Codfil,e113rei.Seqrem,e113rei.Seqrei, \
e113rei.Numped,e113rei.Seqipd,e113rei.Codsnf,e113rei.Numnfv, \
e113rei.Seqipv,e113rei.Codpro,e113rei.Codder,e113rei.Codetp, \
e113rei.Coddpp,e113rei.Coddia,e113rei.Cmpdia,e113rei.Codapt, \
e113rei.Codemb,e113rei.Qtddos,e113rei.Unimed,e113rei.Vlrcal, \
e113rei.Qtdrei,e113rei.Numapl,e113rei.Vlrare,e113rei.Idepar \
from e113rei \ 
where e113rei.Codemp = :nCodEmp and e113rei.Codfil = :nCodFil and e113rei.Seqrem = :nSeqRem";
Cur_A113REI.AbrirCursor()
Enquanto(Cur_A113REI.Achou){

nReiCodemp = Cur_A113REI.Codemp;
nReiCodfil = Cur_A113REI.Codfil;
nReiSeqrem = Cur_A113REI.Seqrem;
nReiSeqrei = Cur_A113REI.Seqrei;
nReiNumped = Cur_A113REI.Numped;
nReiSeqipd = Cur_A113REI.Seqipd;
aReiCodsnf = Cur_A113REI.Codsnf;
nReiNumnfv = Cur_A113REI.Numnfv;
nReiSeqipv = Cur_A113REI.Seqipv;
aReiCodpro = Cur_A113REI.Codpro;
aReiCodder = Cur_A113REI.Codder;
nReiCodetp = Cur_A113REI.Codetp;
nReiCoddpp = Cur_A113REI.Coddpp;
nReiCoddia = Cur_A113REI.Coddia;
aReiCmpdia = Cur_A113REI.Cmpdia;
nReiCodapt = Cur_A113REI.Codapt;
nReiCodemb = Cur_A113REI.Codemb;
nReiQtddos = Cur_A113REI.Qtddos;
nReiUnimed = Cur_A113REI.Unimed;
nReiVlrcal = Cur_A113REI.Vlrcal;
nReiQtdrei = Cur_A113REI.Qtdrei;
nReiNumapl = Cur_A113REI.Numapl;
nReiVlrare = Cur_A113REI.Vlrare;
aReiIdepar = Cur_A113REI.Idepar;

@Testa item aqui se houver teste, retorno default igual a "OK" ------------------------------------------------------@

@Efetua a validação do botão emitir para os itens@
se (aRemEvento = "Emitir"){
  @Se não passar retorna vazio ->  aRemRetVld = ""@
};

@Se passou pelo emitir, efetua a validação do botão cancelar para os itens@
se ((aRemRetVld = "OK") e (aRemEvento = "Cancelar")){
  @Se não passar retorna vazio ->  aRemRetVld = ""@
  
};       
                  
Cur_A113REI.Proximo()

};
};

Variáveis Disponibilizadas:

Cabeçalho da receita

Itens da Receita