Histórico da Página
01. CN121PED -
TratamentoTratamento especifico antes da geração do Pedido de Compra ou de Venda
Produto: |
| ||||
---|---|---|---|---|---|
Linha de Produto: |
| |||||||||
Segmento: |
| ||||
Módulo: | Gestão de Contratos |
---|
Função: |
---|
Rotina
CNTA121 |
Medições do Contrato
Parâmetro(s):
aCab - PARAMIXB[1]
aItem - PARAMIXB[2]- Medições | |
Ponto de Entrada: | CN121PED |
---|
Ponto de Entrada
Descrição: | O ponto de entrada poderá ser utilizado para tratamentos específicos antes da geração do pedido de compra ou de venda, podendo manipular o cabeçalho, itens e rateio se necessário. Este ponto de entrada irá substituir os PE's CN120IT7, CN120ITM, CN120PED e CN120AEP da rotina de medições nas versões anteriores ao Protheus 12.1.16 | ||||
Eventos: | Na função da rotina CNTA121 | ||||
Programa Fonte: | CNTA121.prw | ||||
Função: | CN121GerDoc() | ||||
Retorno: |
|
02. DETALHES
Descrição: | Possibilita ao desenvolvedor realizar tratamentos específicos antes da geração do pedido de compra ou de venda, podendo manipular o cabeçalho e itens se necessário. | |||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Eventos: | Executado uma vez por pedido gerado pela medição | |||||||||||||||||||||||||||||||||
Programa Fonte: | CNTA121.PRW | |||||||||||||||||||||||||||||||||
Função: | CN121GerDoc | |||||||||||||||||||||||||||||||||
Parâmetros: |
| |||||||||||||||||||||||||||||||||
Retorno: |
|
Informações | ||
---|---|---|
| ||
Este ponto de entrada irá substituir os PE's CN120IT7, CN120ITM, CN120PED e CN120AEP da antiga rotina de medições(CNTA120) |
Bloco de código | ||||
---|---|---|---|---|
| ||||
#include "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
User Function CN121PED()
Local aCab := PARAMIXB[1]
Local aItens := PARAMIXB[2]
Local aResult := Array(2)
Local oModel := Nil
Local lVenda := .F.
Local lCompra := .F.
If !(Empty(aCab) .Or. Empty(aItens))
oModel := FwModelActive()//Modelo do CNTA121
/*Para obter dados do modelo, usar oModel:GetValue(cModelId, cCampo).
Exemplo: oModel:GetValue("CNDMASTER", "CND_CONTRA")
*/
lVenda := Cn121RetSt( "VENDA" , 0, /*cPlan*/, /*cContra*/, .T., oModel )
lCompra := Cn121RetSt( "COMPRA" , 0, /*cPlan*/, /*cContra*/, .T., oModel )
/*Realizar a operação desejada aqui...*/
EndIf
aResult[1] := aCab
aResult[2] := aItens
Return aResult |
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
Exemplo:
#Include 'Protheus.ch'
User Function CN121PED()
Local aCab := PARAMIXB[1]
Local aItem := PARAMIXB[2]
//Validações do usuario
Return {aCab,aItem}