Producto: |
TOTVS Backoffice
|
Línea de producto: | Línea Protheus |
Segmento: | Servicios |
Módulo: | TOTVS Backoffice (Línea Protheus) - Activo fijo (SIGAATF)
|
Función: | ATFA250 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue |
Este punto de entrada permite agregar o cambiar información relacionada con impuestos, que se muestran en la grid de totales de la rutina de prorrateo de valores. Permite la inclusión de nuevos impuestos o la modificación de los valores de impuestos que ya existen, además permite ajustes antes de montar los totales en la pantalla.
aAF250GrImp := ExecBlock( 'AF250GrImp', .F., .F., aClone(aAF250Imp) ) If ValType( aAF250GrImp ) == "A" For nA := 1 To Len( aAF250GrImp ) // Verifica si todos los tipos de datos están correctos y si ya // no existe la misma línea devuelta en el array aAF250Imp 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
User Function AF250GrImp() Local aAF250Imp := PARAMIXB[1] // Agrega un nuevo impuesto "PIS" con valores ficticios para presentación Aadd(aAF250Imp, {"PIS", "CALC_PIS", 8, .T., 1000.00, 200.00}) Return aAF250Imp
¡Importante!