Salve salve....
Ponto de entrada MT094END- ( Compras - Liberação Docto)
MATA094-MT094END- Executado antes da conclusão do tipo de operação que está em andamento
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MT094END
Executado antes da conclusão do tipo de operação que está em andamento
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MT094END()
Local cCRNUM := PARAMIXB[01]
Local cCRTIPO := PARAMIXB[02]
Local nOpc := PARAMIXB[03]
Local cCRFILIAL := PARAMIXB[04]
Local aArea := GetArea()
Local aAreaSC7 := SC7->( GetArea() )
Local aAreaSC3 := SC3->( GetArea() )
Local aAreaSC1 := SC1->( GetArea() )
Local aAreaSCP := SCP->( GetArea() )
Local aC7NUM := TamSX3('C7_NUM')
/*nOpc
01 = Aprovar
05 = Rejeitar
06 = Bloquear
*/
If nOpc == 01
If cCRTIPO == 'PC'
SC7->( dbSetOrder(01) )
If SC7->( dbSeek( xFilial('SC7') + Padr( cCRNUM, aC7NUM[01]) ) )
Endif
Endif
Endif
RestArea(aAreaSCP)
RestArea(aAreaSC7)
RestArea(aAreaSC3)
RestArea(aAreaSC1)
RestArea(aArea)
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima