Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Marcos Wagner Junior

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Marcos Wagner Junior

Gravado em

Chave

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

...

Ponto de Entrada:GFE05018

Descrição:

Possibilita fechar os campos "Data de Saída" e "Hora de Saída" para digitação da 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

Retorno:

Nome

Tipo

Descrição

Obrigatório

dDtVencaRetPE

ArrayData

que será atribuída e gravada no campo de data de vencimento (GXI_DTVENC)Conterá 2 posições, a primeira referente à "Data de Saída" e a segunda à "Hora de Saída". Retorno igual a .F. irá fechar o campo para digitação.

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   := {}
Local cFilIXB  := PARAMIXB[1]
Local cRomIXB  := PARAMIXB[2]

If DDATABASE > GWN->GWN_DTCALC
    lWhenDtS := .f. //Vai fechar o campo para digitação
    lWhenHrS := .f. //Vai fechar o campo para digitação
	AADD(aRetPE, {lWhenDtS, lWhenHrS})
EndIf

Return aRetPE