Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Alberto Jose

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Alberto Jose

Gravado em

Chave

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

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:SIGAFAT - Faturamento
Função:FATA400 - Contrato de Parcerias

02. DESCRIÇÃO

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.

...

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




aColsSC6

Array of Record

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




X




05. RETORNO

Retorno

Tipo

Descrição

Obrigatório

aColsArray
  • 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 parcela.

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

User Function FT400LIN()

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

    If (nPTeste1    := ParamIxb aScan(aHeaderC6,{|x| AllTrim(x[2]) =="C6_TESTE1"})) > 0 
		
	/* Alteração do acols pelo rdmake */If Empty(aColsC6[nY][nPTeste1])
			aColsC6[nY][nPTeste1] := "Campo Teste Item " + CValToChar(nY)
		EndIf
    EndIf

Return aColsaColsC6