Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: FT600INI - Manipulação de informações da proposta comercial
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: Todas TotvsDbAccess
Idiomas: Português (Brasil)
Descrição: 
Este ponto de entrada é executado antes da abertuta da janela da proposta comercial. A sua finalidade é permitir que o usuário manipule as informações do produto e acessórios (produtos adicionais).
Programa Fonte 
FATA600.PRW
Sintaxe

FT600INI - Manipulação de informações da proposta comercial ( [ nOpc ], [ oGetDad1 ], [ oGetDad2 ] ) --> Nulo

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
nOpc Numérico Número da operação: 2-Visualização,3-Inclusão, 4-Alteração e 5-Exclusão
oGetDad1 Objeto Objeto da Getdados da aba Produtos.
oGetDad2 Objeto Objeto da Getdados aba Acessórios (Produtos adicionais).
Retorno
    Nulo(nulo)
  • Nenhum.
Exemplos 
User Function FT600INI() Local nOpc	  := PARAMIXB[1]  //2-Visualização, 3-Inclusão, 4-Alteração e 5-ExclusãoLocal oGet1  := PARAMIXB[2]  //Objeto da aba ProdutosLocal oGet2  := PARAMIXB[3]  //Objeto da aba AcessóriosLocal nPProd := aScan(oGet1:aHeader,{|x|AllTrim(x[2]) == "ADZ_PRODUT"})Local nCondP := aScan(oGet1:aHeader,{|x|AllTrim(x[2]) == "ADZ_CONDPG"})If nOpc == 4 //Alteração	If AllTrim(oGet1:aCols[1][nPProd]) == "01"	//Código do Produto		//Altero a condição de pagamento		oGet1:aCols[1][nCondP] := "002"	//Condição de Pagamento	EndIfEndIfReturn Nil
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não