MA261IN - Exibe valores de campos na tela

Ponto-de-Entrada: MA261IN - Exibe valores de campos na tela

Versões:	Microsiga Protheus 10, Microsiga Protheus 11, Microsiga Protheus 12
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Idiomas:	Espanhol , Inglês

Descrição: Atribui valores nos campos de usuário.

Localização: Localizado nas funções A261Visual( ) , A261Inclui( ) e A261Estorn( ) .

Em que ponto: É chamado após a montagem do array aCols com as linhas do browse das transferências, nas rotinas de visualização, inclusão e estorno de transferências.
Pode ser utilizado para preenchimento dos valores de campos que o usuário queira apresentar na tela. Não esquecer de verificar a posição correta do campo a ter o valor atribuído no array aCols.
A melhor forma de fazer isto é verificando a posição correta, através de pesquisa no array aHeader.

Um outro cuidado é em relação ao registro posicionado, para que aconteça a correta montagem da aCols na Visualiação e Estorno. Lembrando que a tela de transferência trata em uma única linha da aCols aquilo que está gravado em dois registos do SD3.

Programa Fonte: MATA261.PRX

Sintaxe: MA261IN( ) --> Nil

Pontos de Entrada relacionados: MA261CPO e MA261TRD3

Observações

Utilizado os pontos de entrada para o completo funcionamento:

MA261CPO é utilizado para adicionar os campos de usuário nas rotinas de inclusão, para que sejam gravados;
MA261TRD3 é utilizado para gravar os campos adicionados pelo ponto de entrada MA261CPO.

Veja Também

MA261CPO - Inclui campos para digitação em array, MA261TRD3 - Atualiza campos após a gravação da transferência

Exemplo

#Exemplo 1:
#Include 'Protheus.ch'

User Function MA261IN()

Local nPosCampo := aScan(aHeader, {|x| AllTrim(Upper(x[2]))=='Campo do Usuário'})

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Customizacoes de usuario      ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

aCols[len(aCols),nPosCampo] := 'Conteúdo do campo do usuário'

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Customizacoes de usuario      ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

Return Nil


#Exemplo 2:
#Include 'Protheus.ch'

User Function MA261IN()

Local nPosCampo, nBkpRegD3, nRecAcols as numeric

// Customização de usuário
If !INCLUI

    nPosCampo := aScan(aHeader, {|x| AllTrim(Upper(x[2]))=='CampoDeUsuário'}) // Posição do campo customizado no aHeader
    nBkpRegD3 := SD3->(Recno()) // Backup do recno anterior da SD3
    nRecAcols := aCOLS[ Len(aCols),Len(aCols[1])] // Busca o ultimo recno gravado na aCols que acabou de ser gerada no MATA261

    SD3->(dbGoto(nRecAcols)) // Movimenta o cursos 
    aCols[len(aCols),nPosCampo] := 'Conteúdo do CampoDeUsuário' // grava o campo de usuário

     SD3->(dbGoto(nBkpRegD3)) // volta a posição anterior

EndIf
// Fim customização de usuário

Return Nil

Árvore de páginas

MA261IN - Exibe valores de campos na tela