quarta-feira, 31 de julho de 2024

 Para montar o aHeader completo de uma MsNewGetDados eu utilizo o seguinte padrão:

/*------------------------------------------*\
| Estrutura do array com o cabeçalho da Grid |
|--------------------------------------------|
| aHeader[01] - X3_TITULO  | Título          |
| aHeader[02] - X3_CAMPO   | Campo           |
| aHeader[03] - X3_PICTURE | Picture         |
| aHeader[04] - X3_TAMANHO | Tamanho         |
| aHeader[05] - X3_DECIMAL | Decimal         |
| aHeader[06] - X3_VALID   | Validação       |
| aHeader[07] - X3_USADO   | Usado           |
| aHeader[08] - X3_TIPO    | Tipo            |
| aHeader[09] - X3_F3      | F3              |
| aHeader[10] - X3_CONTEXT | Contexto (R,V)  |
| aHeader[11] - X3_CBOX    | Combobox        |
| aHeader[12] - X3_RELACAO | Inicial. Padrao |
| aHeader[13] - X3_WHEN    | Habilita edicao |
| aHeader[14] - X3_VISUAL  | Alteravel (A,V) |
| aHeader[15] - X3_VLDUSER | Valid de User   |
| aHeader[16] - X3_PICTVAR | Picture         |
| aHeader[17] - X3_OBRIGAT | Obrigatorio     |
\*------------------------------------------*/

quinta-feira, 25 de julho de 2024

 

Msmm

Inclusão, Alteração e Exclusão de campo memo virtual no Protheus

Sintaxe:

Msmm - Pesquisa do campo MEMO Virtual ( [ cChave ] [ nTam ] [ nLin ] [ cString ] [ nOpc ] [ nTamSize ] [ lWrap ] [ cAlias ] [ cCpoChave ] [ cRealAlias ] [ lSoInclui ] )

Onde:

Se nOpc == 3 -> retorna o conteúdo do campo memo
Se nOpc == 2 -> .T. se exluiu, .F. se deu erro
Se nOpc == 1 -> chave do código que foi alterado

NomeTipoDescriçãoDefaultObrigatório
cChaveCaracterChave de código para a busca, campo caracter de tamanho 6
nTamNuméricoO valor padrão é o tamanho do campo texto do SYP.
nLinNuméricoLinha do campo memo a ser retornada0
cStringCaracterTexto do campo memo" "
nOpcNuméricoOpção a ser executada pela função3
nTamSizeNuméricoQuantidade de caracteres
lWrapLógicoHabilita quebra de linha de acordo com a palavra
cAliasCaracterAlias
cCpoChaveCaracterCampos de chave
cRealAliasCaracterAlias realSYP
lSoIncluiLógicoSe só realiza inclusão.F.

Exemplo:
//Incluir o conteúdo "TEXTO DO CAMPO MEMO" na tabela SYP
//No campo B1_DESC_GI irá aparecer o código da chave YP_CHAVE como referência

MSMM(,TamSx3("B1_VM_GI")[1],,"TEXTO DO CAMPO MEMO",1,,,"SB1","B1_DESC_GI")

//Alterar o conteúdo "TEXTO DO CAMPO MEMO" na tabela SYP
//No campo B1_DESC_GI irá aparecer o código da chave YP_CHAVE como referência

MSMM(SB1->B1_DESC_GI,TamSx3("B1_VM_GI")[1],,"TEXTO DO CAMPO MEMO",1,,,"SB1","B1_DESC_GI")

//Excluir o conteúdo

//Exclui registro em SYP conforme cChave

MSMM(cChave,,,,2)

**fonte https://www.blogadvpl.com/glossario/msmm/