Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Este Ponto de entrada possibilita a manipulação das informações dos itens do pedido que serão gravados na geração do pedido de vendas por contrato de parceria.


Aviso
titleImportante
  • Certifique-se Este ponto de entrada é executado durante a montagem de cada linha do aCols, que será utilizado para gravação dos itens do pedido de venda que será gerado.

03. SINTAXE

FT400LIN - Possibilita manipulação das informações ( < aHeaderC6> , < aColsSC6> aColsC6> ) --> aColsSC6aColsC6

04. PARÂMETROS

O ponto de entrada não possui parâmetros, apenas informações como aHeader e aCols com os Itens do Pedido de Venda (SC6) e a tabela de Pedidos de Venda (SC5) na memória.


Nome

Tipo

Descrição

Default

Obrigatório

Referência

aHeaderC6

Array of Record

Array multidimensional contendo a descrição dos campos do SC6 (aHeader)




X




aColsSC6aColsC6

Array of Record

Array multidimensional contendo o valor dos campos do SC6 (aCols)




X



...

Retorno

Tipo

Descrição

Obrigatório

aColsaColsC6Array
  • Array contendo os valores dos itens que serão gravados no pedido de vendas
Sim

06. EXEMPLO

Neste exemplo usamos um cenário de pedido de venda com um item, onde está sendo verificado se o risco do cliente está diferente de "A" para atribuir 25% do total do pedido de venda na primeira parcela a vista e 75% do valor para daqui 30 dias para a segunda parcelaesta o campo C6_TESTE1 com o conteúdo "Campo Teste Item (Número do item)".

Bloco de código
languagevb
themeMidnight
firstline1
titleMT410PCFT400LIN
linenumberstrue
#INCLUDE 'PROTHEUS.CH'  

User Function FT400LIN()

    Local aHeaderC6 	:= ParamIxb[1]
    Local aColsC6  	:= ParamIxb[2]
    Local nPTeste1  := 0
    Local nY        := Len(aColsC6)	

    If (nPTeste1    := aScan(aHeaderC6,{|x| AllTrim(x[2]) =="C6_TESTE1"})) > 0 
		If Empty(aColsC6[nY][nPTeste1])
			aColsC6[nY][nPTeste1] := "Campo Teste Item " + CValToChar(nY)
		EndIf
    EndIf

Return aColsC6