AF251ICMS - Customização da validação do ICMS da rotina Aquisição por Transferência

Compatível com as Bases de Dados

TOTVS DBAccess

Exemplos

User Function AF251ICMS()

	Local nI          := 0
	Local nTotalICMS  := 0
	Local nPosValICMS := AScan(aHeader, {|x| Alltrim(x[2])  == "N1_ICMSAPR"} )
	Local lRet        := .F.
	
	// soma o icms das linhas no grid
	For nI := 1 To Len(aCols)
		nTotalICMS += aCols[nI][nPosValICMS]
	Next nI
	
	// se linhas do grid igual ao total desconsidera sistema
	If nTotalICMS == nTotICMS
		lRet := .T.
	EndIf
Return lRet

Idioma

Português(Brasil)

Programa Fonte

ATFA251.PRW

Retorno

lRet (Lógico com resultado da validação)

Sistemas Operacionais Suportados

Todos

Versões

Microsiga Protheus 12