Í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.
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. |
#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 := oModel:GetValue("FN6_GERANF") == '1' .And. SX5->( dbSeek(cFilAnt+'01'+oModel:GetValue("FN6_SERIE")) ) //Onde cFilAnt é a filial logada no momento
EndIf
RestArea(aAreaSX5)
RestArea(aArea)
Return lRet |
<!-- esconder o menu -->
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
</style>
|