Quebra de String em msgalert

Framework - Linha Protheus LIB
,
1

Bom dia, possuo uma string que contém uma determinada quantidade de códigos de produtos, sempre separado por / a cada produto, existe alguma maneira de quebrar essa string? a intenção seria quebrar a cada 5 produtos, ou seja, a cada 5 "/" encontradas, exibindo o restante na seguinte linha. Segue um trecho do código e como está sendo exibido atualmente.


If MsgYesNo("Confirme a Liberação do Código:"+chr(13)+chr(10)+chr(13)+chr(10)+;
                    "CÓDIGO: "+cCodigo, "Aviso")

            cCodigosBKP := GetMv("MV_EXPCBAR")+RTRIM(cCodigo)+"/"
            cCodigosTST := RTRIM(GetMv("MV_EXPCBAR"))
            PutMv("MV_EXPCBAR", cCodigosBKP)

                If MsgYesNo("Produto Liberado "+cCodigo+chr(13)+chr(10)+chr(13)+chr(10)+;
                            "PRODUTOS ATUALMENTE LIBERADOS: "+cCodigosTST+chr(13)+chr(10)+chr(13)+chr(10)+;
                            "Deseja realizar outra liberação?", "Info")
                    u_LibProd()
                    else
                        MsgAlert("Operação Finalizada","")
                Endif

            Else
                MsgStop("Liberação Cancelada", "Aviso")
        endif

Existe a possibilidade do valor de cCodigosTST ser exibido com quebra de linha a cada 5 produtos por exemplo?

2

Uma opção que você pode usar é a função StrToKarr

Aqui a documentação no TDN

Com essa função, você pode colocar os seus campos em um array e depois manipular eles para pular a linha usando um CRLF por exemplo.


aCodigo := cCodigo //Aqui você joga o seu código em um array
aCodigo := StrToKarr( aCodigo ,"/")  //Aqui você quebra o código pelo caracter que você quiser, no seu caso usei a barra
For nI := 1 to len(aCodigo)
    cCodAux += aCodigo[nI] + CRLF // Aqui você coloca a informação quebrada em uma variável e pula uma linha com o CRLF
next nI

Esse código acima foi um esboço bem simples, se necessário, faça algum ajuste conforme a sua necessidade.

Espero ter ajudado.