At550GrF - Gravação de Agenda de Manutenção

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Necessidade de manutenção dos dados da agenda de manutenção

03. SOLUÇÃ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:

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á.

05. ASSUNTOS RELACIONADOS

• Não há.