#INCLUDE 'Protheus.ch'
User Function MNTA9902MNTA4156()
// Carrega variáveis de Entrada e Saida
aTRB1 Local aButtons := ParamIXBPARAMIXB[1]
aDBF
// Remove := ParamIXB[2]
aTRB2 o botão de etapas
If ( nPosDel := ParamIXB[3]
aDBFa := ParamIXB[4]
aCpoCompl := ParamIXB[5]
aScan( aButtons, { |x| x[3] == 'Etapas' } ) ) > 0
aAdd( aDBF , { 'CODIFAM', 'C', TamSX3( 'T6_CODFAMI' )[1], 0 } )
aAdd( aTRB1, { 'CODIFAM', NIL, 'Família' } )
aDel( aButtons, nPosDel )
aAddaSize( aDBF aButtons, { 'DESCFAM', 'C', TamSX3( 'T6_NOME' )[1], 0 } )
aAdd( aTRB1, { 'DESCFAM', NIL, 'Desc. Fam.' } )Len( aButtons ) - 1 )
EndIf
aAdd( aDBFa, { 'CODIFAM', 'C', TamSX3( 'T6_CODFAMI' )[1], 0 } )
aAdd( aTRB2, { 'CODIFAM', NIL, 'Família' } )
aAdd( aDBFa, { 'DESCFAM', 'C', TamSX3( 'T6_NOME' )[1], 0 } )
aAdd( aTRB2, { 'DESCFAM', NIL, 'Desc. Fam.' } )
Return// Inclui o botão calculadora
aAdd( aButtons, { 005, 002, 'Calculadora', { || Calculadora() }, 'oBtnCal' } )
Return aButtons |