Histórico da Página

If ExistBlock("AFCLDEPR")
	lAtClssVer := ExecBlock("AFCLDEPR",.F.,.F.,{cClassif})
EndIf

User Function AFCLDEPR()

	Local cClassif := Paramixb[1]
	Local cTpDepr := "N|D|A|O|T|E" //adicionaincluye classificaçãoclasificación de ativosactivos depreciáveisdepreciables
	Local cTpNDepr := "V|S|I|C|P|R" //adicionaincluye classificaçãoclasificación de ativosactivos nãono depreciáveisdepreciables
	Local lRet := .F.
	/*
	* ClassificaçãoClasificación dosde ativosactivos - SN1->N1_PATRIM
	* "N" -> AtivoActivo Imobilizadofijo
	* "S" -> PatrimônioPatrimonio Líquidoneto
	* "A" -> AmortizaçãoAmortización
	* "C" -> Capital Socialsocial
	* "P" -> PatrimônioPatrimonio (PrejuízoPerjuicio)
	* "I" -> AtivoActivo Intangívelintangible
	* "D" -> AtivoActivo Diferidodiferido
	* "O" -> OrçamentoPresupuesto
	* "V" -> ProvisãoProvisión
	* "T" -> CustosCostos de Transaçãotransacción
	*/

	// ClassificaçõesClasificaciones de Bensbienes que sofremtienen oel processoproceso de depreciaçãodepreciación
	If cClassif $ cTpDepr
		lRet := .T. // SimSí, deprecia
		// ClassificaçãoClasificación de Bensbienes que NÃONO sofremtienen oel processoproceso de depreciaçãodepreciación
	ElseIf cClassif $ cTpNDepr
		lRet := .F. // NãoNo, NÃONO deprecia
	EndIf

Return (lRet)

• Se observa que la utilización del PE y los impactos de este en el sistema son de responsabilidad del cliente.
• Los ejemplos utilizados en esta documentación solamente son para fines de demostración, cada cliente debe verificar qué comportamiento desea realizar de acuerdo con el alcance del punto
• Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
• Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.