Árvore de páginas

Versões comparadas

Chave

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

...

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   := {.t., .t.}
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})aRetPE[1] := lWhenDtS
 	aRetPE[2] := lWhenHrS 
EndIf

Return aRetPE