Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAFIS) |
Function: | ATFA250 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue |
This entry point allows adding or editing tax-related data, to be displayed on the totals grid of the values apportionment routine. You can use it to add new taxes or to edit already existing tax values, as well as make adjustments before assembling the totals onscreen.
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
aAF250GrImp := ExecBlock( 'AF250GrImp', .F., .F., aClone(aAF250Imp) ) If ValType( aAF250GrImp ) == "A" For nA := 1 To Len( aAF250GrImp ) // VerificaCheck sewhether todosall osdata tipostypes deare dadoscorrect estao corretos e se jaand whether // the naosame existeline areturned mesmain linhaarray retornadaaAF250Imp nodoes arraynot aAF250Impexist If Len( aAF250GrImp[nA] ) == 6 .and.; ValType(aAF250GrImp[nA,1]) == 'C' .and.; ValType(aAF250GrImp[nA,2]) == 'C' .and.; ValType(aAF250GrImp[nA,3]) == 'N' .and.; ValType(aAF250GrImp[nA,4]) == 'L' .and.; ValType(aAF250GrImp[nA,5]) == 'N' .and.; ValType(aAF250GrImp[nA,6]) == 'N' .and.; !('ICMS' $ Upper(aAF250GrImp[nA,1]) ) nPosImp := aScan( aAF250Imp, {|Imp| Imp[1] == aAF250GrImp[nA,1] .and. Imp[2] == aAF250GrImp[nA,2] .and.; Imp[3] == aAF250GrImp[nA,3] .and. Imp[4] == aAF250GrImp[nA,4] } ) If nPosImp == 0 Aadd( aAF250Imp, aClone( aAF250GrImp[nA] ) ) Else aAF250Imp[nPosImp][5] := aAF250GrImp[nA][5] aAF250Imp[nPosImp][6] := aAF250GrImp[nA][6] EndIF EndIf Next nA EndIf |
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function AF250GrImp() Local aAF250Imp := PARAMIXB[1] // AdicionaAdd uma novonew imposto "PIS" com valores fictícios para demonstraçãotax with fictitious values for simulation purposes Aadd(aAF250Imp, {"PIS", "CALC_PIS", 8, .T., 1000.00, 200.00}) Return aAF250Imp |
Aviso | ||
---|---|---|
| ||
|