Parâmetros
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
|---|---|---|---|---|---|
| aTicket | Array | Array com os Tickets a serem excluídos. | {} | X | |
| lJob | Lógico | Indica execução via Job | .F. |
Retorno
Nulo
Programa
TAFAPIERP.PRW
Exemplo
Exemplo de uso pelo Gerenciador de Integração no TAF. A chamada da TAFDelTicket exclui permanentemente os Tickets e todos os registros pertencentes a ele da base de dados.
Static Function Sample( oBrowse )
Local cAlias := oBrowse:Alias()
Local nOperation := 0
Local lExec := FSelect( @nOperation )
If lExec
If nOperation == 1 //Excluir Ticket e Registros da Base
If MsgYesNo( STR0155, STR0103 ) //##"Esta opção excluirá o Ticket e todos os registros pertencentes a ele permanentemente da base de dados. Deseja confirmar a operação?" ##"Atenção"
Processa( { || ( TAFDelTicket( { ( cAlias )->TAFTICKET } ), FUpdPanel( .T., .T., .T., .T. ) ), STR0007, STR0163 } ) //##"Processando" ##"Executando Rotina de Exclusão"
EndIf
ElseIf nOperation == 2 //Excluir apenas os Registros da Base
Processa( { || ( FBrwMark( oBrowse01 ), FUpdPanel( .T., .T., .T., .T. ) ), STR0007, STR0014 } ) //##"Processando" ##"Construindo Interface"
EndIf
EndIf
Return()
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas