ER_PCREQ6232_Cancelamento_de_Reembolso_BRA

Informações Gerais

Objetivo

Disponibilizar o cancelamento de Protocolo de Reembolso. 

Definição da Regra de Negócio 

1. Usuário acessará a rotina de Motivos Padrão(PLSCMOTPD) para cadastrar os motivos padrões de cancelamento.
2. Usuário acessará a rotina de Protocolo de Reembolso>>Atendimento>>Protocolo de Reembolso;
3. Posiciona no protocolo desejado;
4. Clica na nova opção “Ações Relacionadas>Cancelar Reembolso” e caso a situação do Protocolo seja diferente do requisito abaixo o sistema exibirá a tela de cancelamento, na qual o usuário selecionará o motivo padrão de cancelamento e confirmará o cancelamento: 

•  protocolo já liberado para pagamento nunca poderá ser cancelado. 

Definição das Regras de desenvolvimento

1. Criar os campos BOW_MOTPAD  e BOW_DTCANC com as seguintes características:

BOW_MOTPAD:

Tipo: caractere

Tamanho: 3

F3: Criar uma nova consulta BOWBPP que irá apontar para a tabela BBP e que exibirá somente o campo BBP_DESMOT e retornará o campo BBP_SEQUEN e  BBP_DESMOT

BOW_OBSCANC

Tipo: Memo

BOW_DTCANC:

Tipo: Data

2. Criar a função PLCancReemb no fonte PLSA818 que irá criar a tela de Confirmação de Cancelamento que irá conter um:

• DEFINE MSDIALOG oDlg FROM 5,5 TO 35,75 TITLE "Cancelamento de Reembolso"

Para o campo Motivo Padrão:

• 1 SAY para nomear o campo “Motivo Padrão”
• 1 MSGET cMotivoPadrao com F3 que aponte para a tabela de BOWBBP
• 1 MSGET cDescMotivoPadrao do tipo desabilitado que irá exibir o campo   BBP_DESMOT através de um Posicione.

Para o campo Motivo Personalizado:

• 1 SAY para nomear o campo “Motivo Personalizado”
• 1 GET para o campo cMemo do “Motivo Personalizado”:

Local oMemo

@ 035,017 GET oMemo VAR cMemo SIZE 116,50 OF oDlgFim MEMO NO VSCROLL PIXEL

oMemo:bGotFocus := { || oMemo:nPos := 0,oMemo:Refresh()}

Botões:

• 2  SBUTTON (Confirmar e Cancelar):

DEFINE SBUTTON FROM 200,150 TYPE 1 ACTION (nOpca := 1 ) ENABLE OF oPanel

DEFINE SBUTTON FROM 200,190 TYPE 2 ACTION oDlg:End() ENABLE OF oPanel

• Após o ACTIVATE MSDIALOG oDlg CENTERED e se a nOpca == 1 deverá ser realizado a alteração da BOW do reembolso posicionado para atribuir os valores:

If MsgYesNo(“Deseja realmente cancelar o reembolso?”)

           BOW->( RecLock("BOW",.F.) )

          BOW ->BOW_MOTPAD := cMotivoPadrao

          BOW-> BOW_OBSCANC := cMemo

          BOW ->BOW_STATUS := “D” //Cancelado

          BOW ->BOW_DTCANC: = dDatabase

          BOW->( MsUnLock() )

 Endif

3. Criar a nova opção “Cancelar Reembolso” no Ações relacionadas da rotina “Protocolo de Reembolso <PLSA001A>” que irá executar a função PLCancReemb.

4. Criar o pergunte PLS818 que ira conter os seguintes perguntes:

• Data de
• Data ate

1. Desenvolver a rotina PLConsProCan no fonte PLSA818 que irá realizar um select na BOW utilizando:

• Os parâmetro  MV_PAR01 e MV_PAR02 do pergunte  PLS818
• BOW_DTCANC >= MV_PAR01 and BOW_DTCANC < MV_PAR02
• o campo BOW_STATUS = “D”
• retornar no select os campos  BOW_PROTOC , BOW_NOMCLI , BOW_DTDIGI , BOW_CODRDA , BOW_NOMRDA , BOW_MOTPAD e BOW_MOTIND

5.1 Em seguida o resultado do select deverá ser adicionado a um array aResult

            While (!Eof())

                      Aadd( aResult, {

                           (cAliasTrb)->BOW_PROTOC,

                           (cAliasTrb)->BOW_NOMCLI,

                           (cAliasTrb)->BOW_DTDIGI,

                           (cAliasTrb)->BOW_CODRDA,

                           (cAliasTrb)->BOW_NOMRDA,

                           (cAliasTrb)->BOW_MOTPAD,

                           (cAliasTrb)->BOW_MOTIND } )               

                          dbSkip()

                Enddo  

5.2 Utilizar uma MSDIALOG e um LISTBOX para exibir o resultado

DEFINE MSDIALOG oDlgRes FROM 0,0 TO 600,1250 TITLE “Protocolos Cancelados” PIXEL

@ 30,01 LISTBOX oLbx FIELDS HEADER “Protocolo”,”Cliente”, “Data de digitação”,”RDA”,”Nome da RDA”,”Codigo Padrão”,”Motivo Padrão”, “Motivo Personalizado” SIZE 624,250 OF oDlgRes PIXEL             

                oLbx:SetArray(aResult)

                oLbx:bLine:={||{aResult[oLbx:nAt][1],;

                                aResult[oLbx:nAt][2],;

                                aResult[oLbx:nAt][3],;

                                aResult[oLbx:nAt][4],;

                                aResult[oLbx:nAt][5],;

                                aResult[oLbx:nAt][6],;

  aResult[oLbx:nAt][7],;

  aResult[oLbx:nAt][8]

}}

 ACTIVATE MSDIALOG oDlgRes ON INIT ( EnchoiceBar( oDlgRes, {|| oDlgRes:End() }, {|| oDlgRes:End() } ) ) CENTERED

Para maiores detalhes pode-se consultar o fonte PLSA743 como exemplo.

6. Por último deve-se adicionar no ações relacionadas da rotina de solicitação de reembolso <PLSA001A>  a chamada á rotina Protocolos Cancelados que executará a PLConsProCan .

Tabelas Utilizadas

• BOW – Protocolo de Reembolso        
• BBP –  Motivos Padrões

Protótipo de Tela

 Protótipo 01 – Consulta Protocolo 

Protótipo 02 – Filtro da Consulta Protocolos Cancelado

Protótipo 03 – Tela de Consulta Protocolos Cancelados

Dicionário de Dados