Identificador de Regra

VEN-140MDFE005

Módulo: VEN - Vendas.

Finalidade: Carregar os seguros de carga e suas averbações ao inserir um manifesto nas telas F145EBQ, F145GSM e F440MDF.

Tela: F145EBQ, F145GSM e F440MDF.

Característica: Utilizado em 3 passos, no primeiro pega a quantidade de seguros de carga, e no segundo passo pega os itens individualmente dos seguros de carga, e será chamado uma vez para cada item.
Ainda no segundo passo pega a quantidade de averbações daquele seguro de carga, e chama o terceiro passo, onde pega as averbações. Após concluir o terceiro passo, se a quantidade de averbações for maior que zero, retorna ao segundo passo, para pegar o próximo seguro de carga se houver.

VenIntSeqSeg = 0 : Retorna a quantidade de seguros de carga.
VenIntSeqSeg > 0 E VenIntSeqAvb = 0: Retorna o seguro de carga e a quantidade de averbações.
VenIntSeqSeg > 0 E VenIntSeqAvb > 0: Retorna a averbação(ões) do seguro de carga conforme a sequência da averbação.

Regra:

Definir Alfa VenStrTipMan;
Definir Numero VenIntCodEmp;
Definir Numero VenIntCodFil;
Definir Alfa VenStrCodSnf;
Definir Numero VenIntSeqSeg;
Definir Numero VenIntSeqAvb;
Definir Numero VenIntQtdSeg;
Definir Numero VenIntRepSeg;
Definir Numero VenDblCgcCpf;
Definir Alfa VenStrNumApo;
Definir Numero VenIntCodSeg;
Definir Numero VenIntQtdAvb;
Definir Alfa VenStrNumAvb;

se (VenIntSeqSeg = 0)
inicio
VenIntQtdSeg = 3;
fim

se (VenIntSeqAvb = 0)
inicio
se (VenIntSeqSeg = 1)
inicio
VenIntRepSeg = 1;
VenDblCgcCpf = 93254187965421;
VenStrNumApo = "75648395783484957848";
VenIntQtdAvb = 2;
fim
senao
se (VenIntSeqSeg = 2)
inicio
VenIntRepSeg = 1;
VenDblCgcCpf = 54187965421980;
VenIntCodSeg = 2;
VenStrNumApo = "87541245726457874123";
VenIntQtdAvb = 4;
fim
senao
inicio
VenIntRepSeg = 1;
VenDblCgcCpf = 79654219809872;
VenStrNumApo = "64578132985764312597";
VenIntQtdAvb = 3;
fim

fim

senao
inicio
se (VenIntSeqSeg = 1)
inicio
se (VenIntSeqAvb = 1)
inicio
VenStrNumAvb = "54213465874512396587";
fim
senao
inicio
VenStrNumAvb = "74512396587542134658";
fim
fim
senao
se (VenIntSeqSeg = 2)
inicio
se (VenIntSeqAvb = 1)
inicio
VenStrNumAvb = "46587451239658754213";
fim
senao
se (VenIntSeqAvb = 2)
inicio
VenStrNumAvb = "45123965465878754213";
fim
senao
se (VenIntSeqAvb = 3)
inicio
VenStrNumAvb = "54218795463215478491";
fim
senao
inicio
VenStrNumAvb = "21879546325415478491";
fim

fim

senao
inicio
se (VenIntSeqAvb = 1)
inicio
VenStrNumAvb = "32541547842187954691";
fim
senao
se (VenIntSeqAvb = 2)
inicio
VenStrNumAvb = "87953254154784214691";
fim
senao
inicio
VenStrNumAvb = "25415478421487953691";
fim

fim

fim

Variáveis Disponibilizadas: