Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Função

TAFDelTicket

 

Sintaxe

TAFDelTicket( aTicket, lJob )

 

Descrição

Disponibiliza serviço para excluir Tickets de integração com o TAF.

Compatível PaísesTodos
Sistemas OperacionaisTodos
Bases de DadosTodos
IdiomasTodos
VersãoP11 R.5 e Superiores

Parâmetros

NomeTipoDescriçãoDefaultObrigatórioReferência
aTicketArrayArray com os Tickets a serem excluídos.{}X 
lJobLógicoIndica 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. 

Sem Formato
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()
Informações
titleExemplo

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()