Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas


Punto de entrada: CTBCVSUP - Se creó para generar Clase de valor superior si no siguiera la regla estándar del sistema

Alcances:

Microsiga Protheus 10, Microsiga Protheus 11

Versiones:

Microsiga Protheus 10, Microsiga Protheus 11

Compatible países:

Todos

Sistemas operativos:

Todos

Compatible con las bases de datos:

Todas

Idiomas:

Portugués (Brasil) , Portugués (Portugal) , Español , Inglés

Se creó para generar Clase de valor superior si no siguiera la regla estándar del sistema.                     

Eventos

Ocurre en la función que Genera código de la Cl.Valor superior             

Programa fuente

CTBXFUN.PRX

Sintaxis

CTBCVSUP - Se creó para generar Clase de valor superior si no siguiera la regla estándar del sistema. ( [ cCodigo ] ) --> cCod

Parámetros:


Nombre



Tipo



Descripción



Estándar



Obligatorio



Referencia



cCodigo



Carácter



Código de la clase de valor











Devolución

            cCod(caracter)

            Código de la clase de valor

Observaciones

Recibe la Cl.Valor actual en PARAMIXB.               

Ejemplos

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