Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CTBRDIACTB - Incializador padrão para o campo XXX_DIACTB


Abrangências:Microsiga Protheus 10 , Microsiga Protheus 11 , Microsiga Protheus 12
Versões:Microsiga Protheus 10 , Microsiga Protheus 11 , Microsiga Protheus 12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Parametros:

Paramibx[1] = Codigo do lancamento do contabil

Paramibx[2] = Codigo do diario original

UtilizaçãoEste ponto de entrada é disparado quando o código do diario for igual a 5 ou 6
RetornoO retorno do ponto de entrada deve ser o novo codigo de diario
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