Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (pauloc), última alteração por admin em 03 jul, 2012

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