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: CTBCVSUP - Criado para gerar Classe de Valor 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: 
Criado para gerar Classe de Valor superior caso nao siga a regra padrao do Sistema.
Eventos

Ocorre na função que Gera Codigo da Cl.Valor Superior             

Programa Fonte 
CTBXFUN.PRX
Sintaxe

CTBCVSUP - Criado para gerar Classe de Valor superior caso nao siga a regra padrao do Sistema. ( [ cCodigo ] ) --> cCod

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cCodigo Caracter Codiigo da classe de valor
Retorno
    cCod(caracter)
  • Codiigo da classe de valor
Observações

Recebe em PARAMIXB a cl.Valor Atual.               

Exemplos 
If ExistBlock("CTBCVSUP")	cCod := ExecBlock("CTBCVSUP",.F.,.F.,cCodigo)Else	For nCont := 1 to Len(cCodigo)		cCod  := padr(Substr(cCodigo,1,Len(cCodigo)-nCont),nTamClVl)		If MsSeek(xFilial()+cCod,.f.)			cCod := CTH->CTH_CLVL 			Exit		EndIf	NextEndIfCTH->(DbSetOrder(aAmbCTH[1])) ; CTH->(DbGoto(aAmbCTH[2]))DbSelectArea(aAmbSave[1]) ; DbSetOrder(aAmbSave[2]) ; DbGoto(aAmbSave[3])Return cCod