Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (iolandav), última alteração por Usuário desconhecido (felipe.valcanaia) em 03 jul, 2012

Ponto-de-Entrada: A200BOK - Valida Alterações na Estrutura do Produto
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
LOCALIZAÇÃO : Function Btn200Ok() - Responsável por acionar o  botão de confirmação da estrutura.EM QUE PONTO : Este Ponto de Entrada valida TODAS as alterações efetuadas na estrutura do produto. Executado no botão ok, presente na mesma dialog da árvore da estrutura,deve ser retornado um valor lógico validando ou não as alterações.
Programa Fonte 
MATA200.PRW
Sintaxe

A200BOK - Valida Alterações na Estrutura do Produto ( [ aRegs ], [ cCod ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aRegs Array of Record Array bidimensional contendo os números dos registros que foram incluídos ou excluídos. Este array tem utilidade apenas informativa e o Ponto de Entrada não deve deletar ou efetuar alteração nos registros deste array.Isto será feito automaticamente, de acordo com o retorno do PE:.T. Assume as alterações, mantendo as alterações no SG1;.F. Desfaz todas as alterações efetuadas no SG1 (semelhante ao teclar botão cancela, presente na mesma tela);Qualquer retorno não-lógico, será ignorado pelo programa.PS: Cada registro do array pode estar deletado ou não. Se estiver deletado, foi deletado durante a alteração atual, se não estiver deletado foi incluído.O Array poderá também estar vazio (Len(aRegs)=0), o que significa que nenhuma inclusão ou alteração foi realizada no SG1 na estrutura do produto.
cCod Array of Record Código do produto que está tendo a estrutura incluída ou alterada.
Retorno
    lRet(logico)
  • .T. ou .F., validando ou não as alterações na estrutura. Note que durante a manipulação na estrutura, os registros no SG1 sempre serão deletados ou incluídos. Podendo inclusive ser checado o SG1 pelo PE.Retorno .T.: Grava normalmente os dados no SG1Retorno .F.: Nada será feito, aguardando nova ação do usuário, ja que a janela da estrutura não será fechada, dando a chance de fazer novas alterações e acionar novamente o botao ok, quando o PE realiza nova verificação.
Exemplos 
User Function A200BOKaRegs := PARAMIXB[1]cCod := PARAMIXB[2]Alert("Produto sendo alterado: " + cCod)For x := 1 to Len(aRegs)Alert("Foi alterado o registro " + AllTrim(Str(aRegs[x][1])) + " no SG1")NextReturn(.T.) // aceito as alteracoes. Para nao aceitar, retornar .F.