ÍNDICE
Localização: ATFA036.PRX (Data: 22/10/2019 ou posteriores)
Descrição: A finalidade do ponto de entrada A036VLDSER é permitir que o usuário faça a validação das séries das notas fiscais na tela de baixa de ativos (ATFA036).
Esta customização é indicada para clientes que utilizam o ponto de entrada SX5NOTA do módulo faturamento (SIGAFAT) e precisam customizar a validação da série na tela de baixa de ativos.
Verifique no exemplo de utilização forma de tratamento de compartilhamento para tabela SX5, lembrando que este é somente um exemplo de codificação e que ponto de entrada é responsabilidade do cliente adequa-lo para aderência ao sistema.
Nome | Tipo | Descrição |
|---|---|---|
PARAMIXB[1] | Objeto | Modelo da FN6 (FN6MASTER). |
Nome | Tipo | Descrição |
|---|---|---|
lRet | Lógico | .T. - Permite confirmar a série no campo FN6_SERIE. .F. - Não permite confirmar a série no campo. |
lRet := ExecBlock("A036VLDSER", .F., .F., {oModelFN6})
#INCLUDE "PROTHEUS.CH"
/*
Finalidade: Específico para clientes que utilizam o Ponto de entrada do faturamento SX5NOTA.
Objetivo: Alterar a validação padrão do campo FN6_SERIE na tela de baixa de ativos.
*/
User Function A036VLDSER()
Local oModel := PARAMIXB[1]
Local lRet := .T.
Local aArea := GetArea()
Local aAreaSX5 := SX5->(GetArea())
If FWModeAccess("SX5",3) == 'E' //exemplo se compartilhamento exclusivo
lRet := oModel:GetValue("FN6_GERANF") == '1' .And. EXISTCPO('SX5','01'+oModel:GetValue("FN6_SERIE"))
Else
//se tabela SX5 compartilhada mas tabela 01 numero de serie for exclusivo tem que fazer com dbSeek()
SX5->( dbSetOrder(1) )
lRet := SX5->( dbSeek(cFilAnt+'01'+oModel:GetValue("FN6_SERIE")) ) //Onde cFilAnt é a filial logada no momento
EndIf
RestArea(aAreaSX5)
RestArea(aArea)
Return lRet