Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Philippe Rocca Bretas

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Philippe Rocca Bretas

Gravado em

Chave

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

GFEA0504 -

...

Permite realizar validação adicional dos Romaneios

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

...

Ponto de Entrada:GFEA0504

Descrição:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Permite realizar validação adicional aos romaneios

Localização:

Encontra-se dentro da função GFEA050ENT(), onde grava a data de entrega Botão de efetuar entrega, antes de gravar a data do primeiro trecho do documento de carga.

Programa Fonte:

GFEA050 - Cadastro de Romaneios

Parâmetros:

Nenhum. ??????????

NomeTipoDescrição
PARAMIXB[1]CaractereNúmero da Filial
PARAMIXB[2]CaractereNúmero do Romaneio

Retorno:

A função retorna um valor lógico falsoNão há.
Bloco de código
languagedelphi
firstline1
titleExemplo: GFEA0504
#INCLUDE "PROTHEUS.CH"
#INCLUDE "Topconn.ch"
#INCLUDE "PARMTYPE.CH" 

User Function GFEA0504()



ReturnUSER FUNCTION GFEA0504()

	Local cNrFilial     := AllTrim(PARAMIXB[1])
	Local cNrRom        := PARAMIXB[2]
	Local cNrTransp     := AllTrim(GWN->GWN_CDTRP)
	Local cCodigo       := ""

	//EXEMPLO
	IF cNrFilial == "D MG 01" .OR. cNrFilial == "D MG 02"
		cNrFilial := "D MG 03"
		MsgAlert("Filial inválida. Foi alterado para " + cNrFilial)
	ENDIF
	
	cCodigo := cNrRom + cNrTransp

RETURN cCodigo