Perguntas Campo MEMO

Bom dia,

Preciso fazer uma customização em um programa, onde as validações sejam mostradas somente no final, me falaram para utilizar campo memo,
alguem já fez algo parecido?

Grato

Bom dia Michel. Você vai precisar guardar estas variações no banco de dados? Se sim, o melhor realmente é usar um campo memo. Mas se a validação vai estar somente na memória durante a execução não há necessidade disso, crie um array com a string de validação - EX: "12345678,.T.,.F.,ETC" - e faça referencia posicionada à ele.

Bom dia Saulo,

Teria algum exemplo?

Preciso fazer nessa validação!!

If !SB1->(dbSeek(xFilial("SB1")+__cCodPro))
Help("",1,"BRUNSWICK",,OemToAnsi("IMPATL - O produto "+Alltrim(__cCodPro)+" nao foi encontrado! Verifique o arquivo."),1,0)
FT_FSKIP()
Loop
Elseif !SB2->(dbSeek(xFilial("SB2")+SB1->B1_cod+SB1->B1_locpad))
Help("",1,"BRUNSWICK",,OemToAnsi("IMPATL - O saldo em estoque do produto "+Alltrim(SB1->B1_cod)+", armazem "+SB1->B1_locpad+" nao foi encontrado! Verifique o arquivo."),1,0)
FT_FSKIP()
Loop
Endif

Michel segue:
Obs: Você pode melhorar e muito o esquema abaixo, é só para te passar uma ideia.
Obs2: Note que eu tirei o Loop.


Static Function Valid

Local cValid := SPACE(3)
lOCAL cValid1 := SPACE(6)

If !SB1->(dbSeek(xFilial("SB1")+__cCodPro))
Help("",1,"BRUNSWICK",,OemToAnsi("IMPATL - O produto "+Alltrim(__cCodPro)+" nao foi encontrado! Verifique o arquivo."),1,0)

cValid := .F.

FT_FSKIP()

Elseif !SB2->(dbSeek(xFilial("SB2")+SB1->B1_cod+SB1->B1_locpad))
Help("",1,"BRUNSWICK",,OemToAnsi("IMPATL - O saldo em estoque do produto "+Alltrim(SB1->B1_cod)+", armazem "+SB1->B1_locpad+" nao foi encontrado! Verifique o arquivo."),1,0)
FT_FSKIP()

cValid1 := "cvalid+.F."

If cValid1 == ".F..F." //COLOQUE SUA VALIDAÇÃO