Ponto-de-Entrada: MNTA3801 - Retorno de Desgate por Produção
| 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:
Ponto de entrada chamado na montagem do browse e da tela da rotina "Retorno de Desgaste de Produção", podendo ser utilizado para uma chamada específica, para aplicação de um filtro na tabela principal, entre outros.
Programa Fonte
MNTA380
Sintaxe
MNTA3801 - Retorno de Desgate por Produção ( [ cBem ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cBem | Caracter | Corresponde ao código do bem passado para a rotina para abertura direta da tela de manipulação ao invés do browse. Acessado por ParamIXB[1]. |
Retorno
-
()
Exemplos
#include "rwmake.ch" User Function MNTA3801() Private cBem3801 If Type("ParamIxb") == "A" cBem3801 := ParamIXB[1] EndIf MsgInfo("Ponto de Entrada MNTA3801") If cBem3801 <> Nil aRelac := { { "TY_CODBEM" , "cBem3801" } } Inclui := .T. Altera := .F. lRefresh := .T. NG380PROC( "STY", Recno(), 3) Else mBrowse( 6, 1,22,75,"STY") EndIf Return Nil