Árvore de páginas

Versões comparadas

Chave

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

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 fechar os manipular o conteúdo e a acessibilidade dos campos "Data de Saída" e "Hora de Saída" para digitação 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: Conterá 2 posições, a primeira referente à "Data de Saída" e a segunda à (Retornando .F. irá desabilitar o campo para digitação);

  - Posição 2: "Hora de Saída" . Retorno igual a (Retornando .F. irá fechar 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



Bloco de código
languagedelphi
firstline1
titleExemplo: GFE05018
#INCLUDE "PROTHEUS.CH"
#INCLUDE "Topconn.ch"

User Function GFE05018()
Local lWhenDtS := .t.
Local lWhenHrS := .t.
Local aRetPE cFilIXB  := {.t., .t.}PARAMIXB[1]
Local cFilIXBcRomIXB  := PARAMIXB[12]
Local cRomIXB  dDataIXB := PARAMIXB[3]
Local cHoraIXB := PARAMIXB[24] 
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