Ponto-de-Entrada: CTBCCSUP - Gerar cento de custo superior caso nao siga a regra padrao do Sistema.
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:
Gerar cento de custo superior caso nao siga a regra padrao do Sistema.
Eventos
chamado an função Gera Codigo do Centro de Custo Superior
Programa Fonte
CTBXFUN.PRX
Sintaxe
CTBCCSUP - Gerar cento de custo superior caso nao siga a regra padrao do Sistema. ( [ cCodigo ] ) --> cCod
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
cCodigo | Caracter | Codigo do centro de custo |
Retorno
-
cCod (caracter)
- codigo do centro de custo
Observações
Recebe em PARAMIXB o centro de custo atual.
Exemplos
If ExistBlock("CTBCCSUP") cCod := ExecBlock("CTBCCSUP",.F.,.F.,cCodigo)Else For nCont := 1 to Len(cCodigo) cCod := padr(Substr(cCodigo,1,Len(cCodigo)-nCont),nTamCC) If MsSeek(xFilial()+cCod,.f.) cCod := CTT->CTT_CUSTO Exit EndIf NextEndIf
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas