PNA08001 - Informações do turno -- 10424

Verifica se as informações do turno são totalmente idênticas às de outro turno, já cadastrado.

É chamado na rotina de Manutenção da Tabela de Horário Padrão (PONA080), após o acionamento do botão de confirmação da rotina e antes da gravação.

PONA080.PRW

PNA08001 - Informações do turno ( ) --> aRetorno

aRetorno(vetor)
• aColsAll - Informações de cada horário para todas as seqüências do turno cadastradas, conforme a estrutura especificada no aColsAll enviado. Tipo: array; lRet - Aprovação ou não da confirmação da rotina. Tipo: "lógico".

Parâmetros enviados

Será enviado um array com 4 elementos via variável ParamIXB.

• aColsAll – Informações de cada horário para todas as seqüências do turno cadastradas.
  • Tipo: array
• aHeader – Informações de identificação de cada uma das colunas discriminadas no Param1.
  • Tipo: array
• cSemana – Identificação da semana  visualizada antes da confirmação da rotina.
  • Tipo: caracter
• nOpcx – Opção de manutenção informada pelo aRotina.
  • Tipo: numérico, sendo:
    • Visualização -> 2
    • Inclusão -> 3
    • Alteração -> 4
    • Exclusão -> 5           

Retorno

Deverá ser retornado um array com 2 elementos:

• aColsAll – Informações de cada horário para todas as seqüências do turno cadastradas.
  • Tipo: array
• Conforme a estrutura especificada no Param1 enviado, sendo:
  • lRet – Aprovação ou não da confirmação da rotina.
    • Tipo: lógico, sendo:
      • .T. -> Prossegue com o processamento e finaliza a rotina.
      • .F. -> Não finaliza a rotina e retorna à semana visualizada antes da execução do ponto de entrada.

Procedimentos para Implementação

1. No RdMake obter o array enviado.
2. Realizar os procedimentos necessários.
3. O retorno dos elementos poderá influenciar o resultado final da rotina.  Assim, poderão ser gravadas informações alteradas por esse ponto de entrada.

#Include 'Rwmake.ch'User Function PNA08001()Local lRet:=.T.Local aColsAll         := ParamIxb[1]Local aHeaderAll     := ParamIxb[2]Local cSemana       := ParamIxb[3]Local nOpcx            := ParamIxb[4]           lRet:= msgYesNo('Prossegue???'+ Alltrim(Str(len(aColsAll))), 'Atencao')Return ({aColsAll , lRet})