O ponto de entrada AF125OKT permite realizar validações adicionais ao solicitar ou excluir uma transferência entre filiais na rotina Solicitação de Baixa ou Transferência (ATFA125).
If ExistBlock( "AF125OKT" ) .And. nOpc > 2 .And. lRet
lRet := ExecBlock( "AF125OKT", .F., .F., { nOpc, cCBASE, cItem, cGeraNF, cClasNFE, cTESNFS, cTESNFE, cNota, cSerie, cCondPg, cHistSol, cCCustoDst, cLocalDst,cFilDest } )
EndIf
|
| Parâmetro | Utilização |
|---|---|
| nOpc | Nº da opção realizada, Ex: Excluir, Incluir |
| cCBASE | Código do bem |
| cItem | Item do bem |
| cGeraNF | Se gera nota fiscal |
| cClasNFE | Classe da nota fiscal eletrônica |
| cTESNFS | Tipo de entrada e saída da nota fiscal de serviço |
| cTESNFE | Tipo de entrada e saída da nota fiscal eletrônica |
| cNota | Numero da nota |
| cSerie | Serie da nota |
| cCondPg | Condição de pagamento |
| cHistSol | Histórico do solicitante |
| cCCustoDst | Centro de custo destino ao bem |
| cLocalDst | Local de destino ao bem |
| cFilDest | Filial Destino que ira transferir o bem |
Tipo | Descrição | Obrigatório |
Lógico | Retorna .T. (true) se a linha é valida com a regra do ponto de entrada ou .F. (false) se a linha não estiver válida com a regra do ponto de entrada. | Sim |
#Include "PROTHEUS.CH"
//****************************************************************************************
// Ponto de Entrada para validação da inclusão e exclusão da solicitação de transferência
// Parâmetros : nOpc, cCBASE, cItem, cGeraNF, cClasNFE, cTESNFS, cTESNF, cNota, cSerie,
// cCondPg, cHistSol, cCCustoDst , cLocalDst, cFilDest
// Retorno : .F. - Deve bloquear a linha de digitação e .T. - Liberar a linha digitada.
//****************************************************************************************
User Function AF125OKT()
Local nOpc := paramixb[1]
Local cCBASE := paramixb[2]
Local cItem := paramixb[3]
Local cGeraNF := paramixb[4]
Local cClasNFE := paramixb[5]
Local cTESNFS := paramixb[6]
Local cTESNFE := paramixb[7]
Local cNota := paramixb[8]
Local cSerie := paramixb[9]
Local cCondPg := paramixb[10]
Local cHistSol := paramixb[11]
Local cCCustoDst := paramixb[12]
Local cLocalDst := paramixb[13]
Local cFilDest := paramixb[14]
Local lRet := .T.
//Exemplo de customização !!!
Alert("EXECUTADO PONTO DE ENTRADA AF125OKT")
//Exemplo de customização !!!
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>
|