Punto de entrada: CTBCCSUP - Generar centro de costo 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

Descripción:

Generar centro de costo superior si no siguiera la regla estándar del sistema.  

Eventos

activado la función Genera código del centro de costo superior                   

Programa fuente

CTBXFUN.PRX

Sintaxis

CTBCCSUP - Generar centro de costo 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 del centro de costo











Devolución

           cCod (caracter)

           código del centro de costo

Observaciones

Recibe el centro de costo actual en PARAMIXB. 

Ejemplos

If ExistBlock("CTBCCSUP")	cCod := ExecBlock("CTBCCSUP",.F.,.F.,cCodigo)Else	For nCont := 1 to Len(cCodigo)		cCod  := padr(Substr(cCodigo,1,Len(cCodigo)-nCont),nTamCC)		If MsSeek(xFilial()+cCod,.f.)			cCod := CTT->CTT_CUSTO			Exit		EndIf	NextEndIf