Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Linha Protheus) - Faturamento (SIGAFAT)

Função:MATA410 - Pedidos de Venda

02. DESCRIÇÃO

Este ponto de entrada permite alterar as linhas do acols referente aos itens gerados pela bonificação. O PE é executado apenas após a confirmação de gravação do Pedido de Venda, sendo processado uma vez para cada item gerado como bonificação.

03. SINTAXE

A410BLCO({aHeader, aCols}) ---> aRet

04. PARÂMETROS

Nome

Tipo

Descrição

PARAMIXB

Array

Matriz de itens gerados pela bonificação. Onde:
PARAMIXB[1] - aHeader de campos dos itens;
PARAMIXB[2] - aCols com os conteúdos do item gerado pela bonificação.

05. RETORNO

Nome

Tipo

Descrição

Obrigatório

aRet

Array

aCols do item bonificado.

Sim

06. EXEMPLO DE UTILIZAÇÃO

A410BLCO
#Include "PROTHEUS.CH"  

User Function A410BLCO()

	Local nPQtdVen := aScan(ParamIxb[1],{|x| AllTrim(x[2])== 'C6_QTDVEN'})
    Local nPPrcVen := aScan(ParamIxb[1],{|x| AllTrim(x[2])== 'C6_PRCVEN'})
    Local nPPrUnit := aScan(ParamIxb[1],{|x| AllTrim(x[2])== 'C6_PRUNIT'}) 
    Local nPValor  := aScan(ParamIxb[1],{|x| AllTrim(x[2])== 'C6_VALOR' })
	
    ParamIxb[2][nPPrcVen] := 10		//Alterado o Preço de Venda
    ParamIxb[2][nPPrUnit] := 10		//Alterado o Preço Unitário
	ParamIxb[2][nPValor ] := A410Arred(ParamIxb[2][nPQtdVen] * ParamIxb[2][nPPrcVen], 'C6_VALOR')	//Alterado o Valor Total

Return(ParamIxb[2])