Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
CTBCVSUP - Criado para gerar Classe de Valor superior caso nao siga a regra padrao do Sistema.
CTBCVSUP - Criado para gerar Classe de Valor superior caso nao siga a regra padrao do Sistema.

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