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!