Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (pauloc)

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
CTBCCSUP - Gerar cento de custo superior caso nao siga a regra padrao do Sistema.
CTBCCSUP - Gerar cento de custo superior caso nao siga a regra padrao do Sistema.

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
cCodigoCaracterCodigo 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