Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 2 minutos

GFE05018 - Manipulação dos campos "Data de Saída" e "Hora de Saída" na tela de Liberação.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

  

Ponto de Entrada - GFE05018

Ponto de Entrada:GFE05018

Descrição:

Possibilita manipular o conteúdo e a acessibilidade dos campos "Data de Saída" e "Hora de Saída" na tela de Liberação de Romaneio.

Localização:

Na tela de Liberação do Romaneio, acionada pelo botão "Liberar" do browse principal.

Programa Fonte:

GFEA050 - Romaneio de Carga

Parâmetros

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

PARAMIXB[1]CaracterFilial do RomaneioSim
PARAMIXB[2]CaracterNúmero do RomaneioSim
PARAMIXB[3]DataData de SaídaSim
PARAMIXB[4]CaracterHora de SaídaSim

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRetPE

Array

Irá conter 4 posições:

  - Posição 1: "Data de Saída" (Retornando .F. irá desabilitar o campo para digitação);

  - Posição 2: "Hora de Saída" (Retornando .F. irá desabilitar o campo para digitação);

  - Posição 3: "Data de Saída" (Será usada para sobrescrever a Data de Saída);

  - Posição 4: "Hora de Saída" (Será usada para sobrescrever a Horade Saída).

Sim



Exemplo: GFE05018 
#INCLUDE "PROTHEUS.CH"
#INCLUDE "Topconn.ch"

User Function GFE05018()
Local lWhenDtS := .t.
Local lWhenHrS := .t.
Local cFilIXB  := PARAMIXB[1]
Local cRomIXB  := PARAMIXB[2]
Local dDataIXB := PARAMIXB[3]
Local cHoraIXB := PARAMIXB[4] 
Local aRetPE   := {.t., .t.,  dDataIXB,  cHoraIXB}

If DDATABASE > GWN->GWN_DTCALC
    lWhenDtS  := .f. //Vai fechar o campo para digitação
    lWhenHrS  := .f. //Vai fechar o campo para digitação
	aRetPE[1] := lWhenDtS
 	aRetPE[2] := lWhenHrS 
EndIf

dDataIXB := dDATABASE - 1   
cHoraIXB := "12:00"

aRetPE[3] := dDataIXB
aRetPE[4] := cHoraIXB

Return aRetPE