ÍNDICE
- Visão Geral;
- Eventos;
- Parâmetros;
- Retorno;
- Exemplo de utilização;
- Documentos relacionados.
01. VISÃO GERAL
O ponto de entrada AF125OKT permite AF125OKT permite realizar validações adicionais ao solicitar ou excluir uma transferencia transferência entre filiais na rotina Solicitação de Baixa Ou ou Transferência (ATFA125).
02. EVENTOS
Bloco de código |
---|
title | ATF125OKT |
---|
linenumbers | true |
---|
|
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
|
03. PARÂMETROS
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 |
04. RETORNO
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 |
05. EXEMPLO DE UTILIZAÇÃO
Bloco de código |
---|
title | AF125OKT |
---|
linenumbers | true |
---|
|
#Include "PROTHEUS.CH"
//P_E****************************************************************************************
//P_E - Ponto de Entrada para validação da inclusão e exclusão da solicitação de transferência
//P_E - Parâmetros : nOpc, cCBASE, cItem, cGeraNF, cClasNFE, cTESNFS, cTESNF, cNota, cSerie,
//P_E cCondPg, cHistSol, cCCustoDst , cLocalDst, cFilDest
//P_E - Retorno : .F. - Deve bloquear a linha de digitação e .T. - Liberar a linha digitada.
//P_E****************************************************************************************
User Function AF125OKT 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]
//Exemplo de customização !!!
Local lRet := .T.
//Exemplo de If GDFieldGet('N1_CBASE') == '000001'
Help(NIL, NIL, "Ponto de Entrada - AF125OKT ", NIL, "Este bem de ativo não pode ser transferido.", 1, 0, NIL, NIL, NIL, NIL, NIL, {"Informar outro Bem"})
lRet := .F.
EndIfcustomização !!!
Alert("EXECUTADO PONTO DE ENTRADA AF125OKT")
//Exemplo de customização !!!
Return lRet |
06. DOCUMENTOS RELACIONADOS
Inclusão cFilDest
Card documentos |
---|
Informacao | Agora esse ponto de entrada |
---|
|
...
...
...
...
destino). | Titulo | IMPORTANTE! |
---|
|
HTML |
---|
<!-- 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>
|