Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
Pagetitle | ||
---|---|---|
|
...
|
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
Criado para gerar Classe de Valor superior caso nao siga a regra padrao do Sistema.
Ocorre na função que Gera Codigo da Cl.Valor Superior
CTBXFUN.PRX
...
. ( [ 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