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)

  • Nuevo código del ítem

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