MATXFIS-VISUIMP-Desabilita a digitação manual dos impostos

Salve salve....

Ponto de entrada VISUIMP- ( Inclusao de Lancamento Contabeis por tipo de saldo)  

MATXFIS-VISUIMP-Desabilita a digitação manual dos impostos

#INCLUDE "TOTVS.CH"


/*/{Protheus.doc} VISUIMP
Desabilita a digitação manual dos impostos

@type 		function
@author    	Eurai Rapelli
@since     	2023.01.01
/*/
User Function VISUIMP()
Local lVISUIMP	:= PARAMIXB[01]

Local oObjUA	:= Nil

Private oUA		:= Nil
Private nI		:= 1


If FUNNAME() == "XXXXX"


	oUD := GetWndDefault()

	For nI := 1 To Len( oUD:aControls )
	
		If Type('oUD:aControls[nI]') <> 'O'
			Loop
		Endif
	
		oObjUD	:= oUD:aControls[nI]
		
		If AllTrim( oObjUD:ClassName() ) == 'TGET'
		
			If AllTrim( oObjUD:cReadVar ) == 'cFornIss'
				//XX
			Endif
		
		Endif
	
	Next nI

Endif

Return( lVISUIMP )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima