Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Usuário desconhecido (josiane.borges)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Andre Luis Wisnheski

Gravado em

Chave

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

...

Ponto de Entrada:GFEXFB15

Descrição:

Permitir criar novas unidades de cálculo específicas conforme condição do cliente e alterar o agrupador de rateio.

Localização:

Ao criar as unidades de cálculo.

Programa Fonte:

GFEXFUNB - Funções Genéricas do Cálculo de Frete

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1] CaractereTipo de Documento de CargaSim
PARAMIXB[2] CaractereEmissor do Documento de CargaSim
PARAMIXB[3]CaractereSérie do Documento de CargaSim
PARAMIXB[4]CaractereNúmero do Documento de CargaSim
PARAMIXB[5]CaractereSequencia do Trecho (GWU)Sim
PARAMIXB[6]CaractereAgrupador de rateio padrão entre unidades de cálculoSim

Retorno:

NomeTipoDescriçãoObrigatório
lRetBoleano

Indica se deve ser criada uma nova unidade de cálculo:
.T. - Indica que será criada uma nova unidade de cálculo;
.F. - Indica que não será criada uma nova unidade de cálculo (mesmo indicando que não deverá ser criada uma nova unidade de cálculo, o sistema continuará verificando a quantidade máxima de documentos por cálculo, conforme parâmetros no cadastro de emitentes, campo GU3_MAXDOC).

Sim
cAgrupCaracterCódigo de agrupamento que será utilizado para ratear o valor do frete entre as unidades de cálculo com o mesmo agrupamento.Não
Bloco de código
languagedelphi
titleExemplo: GFEXFB15
linenumberstrue
#INCLUDE 'PROTHEUS.CH'
User Function GFEXFB15()
	Local lRet := .F.
	Local GWU_CDTPDC	:= PARAMIXB[1]
	Local GWU_EMISDC	:= PARAMIXB[2]
	Local GWU_SERDC		:= PARAMIXB[3]
	Local GWU_NRDC		:= PARAMIXB[4]
	Local GWU_SEQ		:= PARAMIXB[5]
	Local cAgrup               := PARAMIXB[6]
	//Criar a regra necessária para criar ou não uma nova unidade de cálculo
	// lRet :=.T. // Cria uma nova unidade de cálculo
	lRet :=.F. // Não cria uma nova unidade de cálculo
Return {lRet, cAgrup}