AF251ICMS - Personalización de la validación del ICMS de la rutina Adquisición por transferencia

Compatible con las bases de datos

TOTVS DBAccess

Ejemplos

User Function AF251ICMS()

	Local nI          := 0
	Local nTotalICMS  := 0
	Local nPosValICMS := AScan(aHeader, {|x| Alltrim(x[2])  == "N1_ICMSAPR"} )
	Local lRet        := .F.
	
	// suma el icms de las líneas en el grid
	For nI := 1 To Len(aCols)
		nTotalICMS += aCols[nI][nPosValICMS]
	Next nI
	
	// si las líneas del grid fueran iguales al total, no considera el sistema
	If nTotalICMS == nTotICMS
		lRet := .T.
	EndIf
Return lRet

Idioma

Portugués(Brasil)

Programa fuente

ATFA251.PRW

Devolución

lRet (Lógico con resultado de la validación)

Sistemas operativos compatibles

Todos

Versiones

Microsiga Protheus 12