| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Serviços |
| Módulo: | Gestão de Serviços |
| Função: | TECA550 - Manutenção de Agenda |
| Ticket: | Não há. |
| Requisito/Story/Issue (informe o requisito relacionado) : | DSERSGS-7939 |
Necessidade de manutenção dos dados da agenda de manutenção
Implementação do Ponto de Entrada At550GrF após a gravação dos Dados de Manutenção na Agenda ABB/TDV , este último caso exista uma agenda anterior)
Este ponto de entrada recebe os seguinte parâmetros:
| Parâmetro | Descrição |
|---|---|
| cCodTec | Código do Técnico |
| lInclui | Operação de Inclusão |
| cCodAbb | Código da Agenda Gerada |
| cAgendAnt | Código da Agenda que recebeu a manutenção |
Este ponto de Entrada não tem retorno
Exemplo de Utilização
#Include "Protheus.ch"
User Function At550GrF()
Local cCodTec := ""
Local lInclui := .F.
Local cCodAbb := ""
Local cAgendAnt := ""
Local aAreaABB := {}
If Len(PARAMIXB) >= 4
cCodTec := PARAMIXB[01]
lInclui := PARAMIXB[02]
cCodAbb := PARAMIXB[03]
cAgendAnt := PARAMIXB[04]
If ABB->ABB_CODIGO <> cCodAbb .Or. xFilial("ABB") <> ABB->ABB_FILIAL
aAreaABB := ABB->(GetArea())
//Posiciona na ABB
ABB->(DbSetOrder(1))
ABB->(DbSeek(xFilial("ABB")+cCodAbb))
EndIf
//Atualiza o campo customizado
ABB->ABB_UTXT := "Teste de "+ IIF(lInclui, "Inclusao", "Alteracao") + " Atendente " + cCodTec + " codigo ABB" + cCodAbb + " agenda ant " + cAgendAnt
If Len(aAreaABB) > 0
RestArea(aAreaABB)
EndIf
EndIf
Return
04. DEMAIS INFORMAÇÕES
Não há.