Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão 3

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
CTBRDIACTB - Incializador padrão para o campo XXX_DIACTB
CTBRDIACTB - Incializador padrão para o campo XXX_DIACTB

Ponto-de-Entrada: CTBRDIACTB - Incializador padrão para o campo XXX_DIACTB
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
Incializador padrão para o campo XXX_DIACTB
Eventos

Ocorre na função de Incialização padrão para o campo XXX_DIACTB(X3_Relação)

Programa Fonte 
CTBXFUNB.PRX
Sintaxe

CTBRDIACTB - Incializador padrão para o campo XXX_DIACTB ( ) --> cCodDia

Retorno
    cCodDia(caracter)
  • Codigo do dia
Exemplos 
If lSeqCorr	cCodDia := Space(TamSX3("CT2_DIACTB")[1])	Do Case		Case cSegOfi == "1"			cCodDia := "01"		Case cSegOfi == "2"			cCodDia := "02"		Case cSegOfi == "3"			cCodDia := "03"		Case cSegOfi == "4"			cCodDia := "04"		Case cSegOfi == "5"			If ExistBlock("CTBRDIACTB")				cCodDia := ExecBlock("CTBRDIACTB",.F.,.F.)				If ValType(cCodDia) != "C"					cCodDia := Space(TamSX3("CT2_DIACTB")[1])				EndIf			EndIf		Case cSegOfi == "6"			cCodDia := CTBSeqComp(cLancPad)		Case cSegOfi == "7"			cCodDia := CTBSeqProc(cLancPad)	EndCaseEndIfRestArea(aArea)Return cCodDia