Histórico da Página

CRIACAO DE CAMPO MEMO VIRTUAL UTILIZANDO O ARQUIVO SYP.

Para criacao de um campo memo virtual, e necessario que sejam criados dois campos, um de codigo e o outro com tipo memo virtual. Esses dados sao gravados no arquivo SYP.

EXEMPLO PARA UM NOVO CAMPO NO CADASTRO DE CLIENTES:
--------------------------------------------------

Campo Codigo:

Nome Tipo Tamanho Contexto
A1_CODTST C 6 Real


Campo Memo:

Nome Tipo Tamanho Contexto
A1_TESTE M 80 Virtual

Obs. O tamanho do campo YP_TEXTO e 80.

Inicializador Padrao:

IF(!INCLUI,MSMM(SA1->A1_CODTST),"")

Para gravacao do campo memo, incluir a funcao MSMM no programa (nesse caso, estaremos utilizando pontos de entrada do programa MATA030).

No caso de inclusao, estamos utilizando o ponto de entrada M030INC:

_cTeste := M->A1_TESTE
_nTam := TamSX3("A1_TESTE")
_nTam1 := _nTam[1]
MSMM(,_nTam1,,_cTeste,1,,,"SA1","A1_CODTST")

Caso seja alteracao, estamos utilizando o ponto de entrada MALTCLI:
_cTeste := M->A1_TESTE
_nTam := TamSX3("A1_TESTE")
_nTam1 := _nTam[1]
MSMM(SA1->A1_TESTE,_nTam1,,_cTeste,1,,,"SA1","A1_CODTST")

Caso seja exclusao, estamos utilizando o ponto de entrada M030EXC:
_cAlias := Alias()
_nRegto := Recno()

dbSelectArea("SYP")
dbSeek(xFilial("SYP")+SA1->A1_CODTST)
If found()
While SYP->YP_CHAVE==SA1->A1_CODTST
Reclock("SYP",.F.)
dbDelete
MsUnlock()
dbSkip()
Enddo
Endif

dbSelectArea(_cAlias)

__Return()