01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:ATFA012 - Ativos ( AF012CHP )
País:Brasil
Ticket:Interno
Requisito/Story/Issue:


02. DESCRIÇÃO

O ponto de entrada AF012CHP() permite que os desenvolvedores customizem o processo de validação e manipulação da chapa de um ativo fixo. Ele oferece flexibilidade para adaptar a lógica de verificação de existência de chapa no sistema, seja para evitar duplicidades, configurar permissões de edição ou implementar regras específicas de negócio. Se o bloco executável (ExecBlock) estiver definido, ele será chamado para que o comportamento do sistema seja alterado conforme o necessário.

  • Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
  • Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.
  • Esse Ponto de entrada funciona na exclusão/Cancelamento de uma transferência na hora de efetuar uma seleção do bem transferido a ser cancelado.

03. DEMAIS INFORMAÇÕES


If ExistBlock("AF012CHP")
	lRet := ExecBlock("AF012CHP",.F.,.F.,{nChapa,lRepChapa})
	lRet := If(ValType(lRet) == "L",lRet,.F.)
Else  
///Tratativas do sistema padrão


User Function AF012CHP()
	
    nChapa 		:=  ParamIXB[1]
    lRepChapa 	:=  ParamIXB[2]

    If !lRepChapa
        If Empty(nChapa)
            If !(cStatus == "0") .or. FwIsInCallStack("ATFA240")
                Help(" ", 1, "AF012ACHAP",, cDescCpo + STR0152, 1, 0,,,,,, {STR0153 + cNomeCpo + "." })
                lRet := .F.
            EndIf
        ElseIf lMile
            If AF12CHPMIL(nChapa)
                Help(" ", 1, "AF012ACHAP",, cDescCpo + STR0154, 1, 0,,,,,, {STR0155 + cNomeCpo + "."})
                lRet := .F.
            EndIf
        Else
            DBSelectArea("SN1")
            DBSetOrder(2)
            If DBSeek(XFilial("SN1") + nChapa) .And. cBase+cItem != SN1->(N1_CBASE+N1_ITEM)
                Help(" ", 1, "AF012ACHAP",, cDescCpo + STR0154, 1, 0,,,,,, {STR0155 + cNomeCpo + "."})
                lRet := .F.
            EndIf
        EndIf
    EndIf

Return lRet


Parâmetros do PE:

ParâmetroTipoDescrição
nChapa CaractereNúmero da chapa do ativo fixo.
lRepChapaLogicoIndica


O que deve ser retornado:

RetornoTipoDescriçãoObrigatório
lRetLógico

Um valor lógico (.T. ou .F.) que indica o sucesso ou falha da validação.

Sim



04. ASSUNTOS RELACIONADOS