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.
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. 