Saúde - Planos Linha Datasul - Revisão de Contas Médicas HRC - Erro associativa para conversão da via acesso já cadastrada no programa Manutenção Associativa para conversão vias Acesso x PTU

/*  LOCALIZA A ASSOCIATIVA PARA CONVERSAO DA VIA ACESSO --- */
        find ptuviaac
             where ptuviaac.cd-via-acesso-serious = cd-via-acesso-z
               and ptuviaac.cd-via-acesso-ptu     = input frame f-padrao
                            ptuviaac.cd-via-acesso-ptu
                   no-lock no-error.
        if   avail ptuviaac
        then do:
                case (ptuviaac.in-tipo-assoc):
                when "E" then assign ds-tipo-assoc-aux = "Exportacao".
                when "I" then assign ds-tipo-assoc-aux = "Importacao".
                when "A" then assign ds-tipo-assoc-aux = "Ambos".
                end case.
 
                display ds-tipo-assoc-aux
                        ptuviaac.dt-atualizacao
                        with frame f-padrao.
                message "Associativa para conversao da via acesso"
                        "ja cadastrada."
                view-as alert-box title " Atencao !!! ".
                undo, retry.