Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Pagetitle
CTBCVSUP -

...

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

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

Alcances

...

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

...

:

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

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 

...

. ( [ 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