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