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ção | Este ponto de entrada é disparado quando o código do diario for igual a 5 ou 6 |
Retorno | O 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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas