Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MA410RPV - Alterar valores ou inibir demonstrações de valores


Versões:Microsiga Protheus 8.11 , Microsiga Protheus 10
Idiomas:Espanhol , Inglês


Descrição:

Este ponto de entrada é executado em complemento ao cálculo da rentabilidade do pedido de venda. Ele pode ser utilizado para alteração dos valores apresentados ou para inibição da demonstração dos valores.

Programa Fonte
.PRW
Sintaxe

MA410RPV - Alterar valores ou inibir demonstrações de valores ( < aRentab> ) --> aRentab

Parâmetros:


NomeTipoDescriçãoDefaultObrigatórioReferência
aRentabVetor

Array com a seguinte estrutura:
[1]ExpC1: Código do Produto
[2]ExpN2: Valor da Mercadoria líquido
[3]ExpN3: CMV
[4]ExpN4: CMV considerando o valor presente
[5]ExpN5: ExpN4-ExpN3 ( Lucro em valor )
[6]ExpN6: Exp5/Exp4*100 ( % Lucro )


X


Retorno
aRentab
    (vetor)
  • Array com a seguinte estrutura:
    [1]ExpC1: Código do Produto
    [2]ExpN2: Valor da Mercadoria líquido
    [3]ExpN3: CMV
    [4]ExpN4: CMV considerando o valor presente
    [5]ExpN5: ExpN4-ExpN3 ( Lucro em valor )
    [6]ExpN6: Exp5/Exp4*100 ( % Lucro )


Exemplo:
#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"
 
User Function MA410RPV()
 
Local aArea     := GetArea() //Armazena o ambiente ativo para restaurar ao fim do processo
Local aRentab	:= PARAMIXB

If allTrim(aRentab[1][1]) $ "PRODUTO01"     
	aRentab[1][6] := "         50,000000"
EndIf    

RestArea(aArea) //Restaura o ambiente ativo no início da chamada
     
Return (aRentab)