Punto de entrada: CTBITSUP - Genera ítem 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:
Genera ítem superior si no siguiera la regla estándar del sistema.
Eventos
se activa en la función Genera código del ítem contable superior
Programa fuente
CTBXFUN.PRX
Sintaxis
CTBITSUP - Genera ítem 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 ítem |
Devolución
cCod (caracter)
Observaciones
Recibe el ítem contable actual en PARAMIXB.
Ejemplos
If ExistBlock("CTBITSUP") cCod := ExecBlock("CTBITSUP",.F.,.F.,cCodigo)Else For nCont := 1 to Len(cCodigo) cCod := padr(Substr(cCodigo,1,Len(cCodigo)-nCont),nTamItem) If MsSeek(xFilial()+cCod,.f.) cCod := CTD->CTD_ITEM Exit EndIf NextEndIff