6239851 DRHGCH-11919 DT Solicitação de abertura de ponto de entrada na rotina de transferência para validação de departamento.

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

 Solicitação de abertura de ponto de entrada na rotina de transferência para validação de departamento.

03. SOLUÇÃO

Para solucionar essa necessidade foram liberados 1 pontos de entrada (GP180VDP), baseado na rotina de transferência (GPEA180):

• GP180VDP: substitui a validação da função fVldDepPosto() possibilitando que o usuário customize da melhor forma a validação do departamento.

Ponto de Entrada GP180VDP:

Esse ponto de entrada substitui a validação da função fVldDepPosto() possibilitando que o usuário customize da melhor forma a validação do departamento.

Os parâmetros passados são:

• PARAMIXB[1]: Posição do grid de transferência referente a empresa de destino.
• PARAMIXB[2]: Array com todas as informações referentes aos itens da transferência do grid da empresa de destino, permitindo realizar as validações necessárias

Retorno esperado:

• Dentro dessa user function é possível emitir um alerta específico para o usuário.
• O retorno deverá ser .T. para permitir continuar com as alterações realizadas, ou .F. para interromper o processo de transferência.
  qualquer retorno diferente de booleano será ignorado e o processo seguirá a atualização normalmente.

Exemplo:

#INCLUDE 'PROTHEUS.CH'

User Function GP180VDP()

Local lRet := .T.
Local nReg := PARAMIXB[1]
Local aColsDest := PARAMIXB[2]
Local aArea := GetArea()
Local cAliasRCL := "RCL"

dBSelectArea(cAliasRCL)
dBSetOrder( 1 )

If !(cAliasRCL)->(dbSeek(aColsDest[nReg, 4] + aColsDest[nReg, 10] + aColsDest[nReg, 14]))
Help(,, "SEMPOSTO",, + CRLF + "Não existe nenhum posto vinculado ao departamento selecionado.", 1, 0)
lRet := .F.
EndIf

Return lRet

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS