Compatible with the following Databases

TOTVS DBAccess

Examples

User Function AF251ICMS()

     Local nI          := 0

     Local nTotalICMS  := 0

     Local nPosValICMS := AScan(aHeader, {|x| Alltrim(x[2])  == "N1_ICMSAPR"} )

     Local lRet        := .F.

     // sum the icms of grid lines

     For nI := 1 To Len(aCols)

          nTotalICMS += aCols[nI][nPosValICMS]

     Next nI

     // if grid lines equal to the total disregard system

     If nTotalICMS == nTotICMS

          lRet := .T.

     EndIf

Return lRet

Language

Portuguese(Brazil)

Source Program

ATFA251.PRW

Return

lRet (Logical with validation result)

Operating Systems Supported

All

Versions

Microsiga Protheus 12