import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: CTBCVSUP - Criado para gerar Classe de Valor superior caso nao siga a regra padrao do Sistema.
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:
Retorno
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 |