Linha Microsiga Protheus

Árvore de páginas


ÍNDICE

  1. Visão Geral;
  2. Eventos;
  3. Parâmetros;
  4. Retorno;
  5. Exemplo de utilização;
  6. Documentos relacionados.


01. VISÃO GERAL

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). 

02. EVENTOS


ATF125OKT
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âmetroUtilização
nOpcNº da opção realizada, Ex: Excluir, Incluir
cCBASECódigo do bem
cItemItem do bem
cGeraNFSe gera nota fiscal
cClasNFEClasse da nota fiscal eletrônica
cTESNFSTipo de entrada e saída da nota fiscal de serviço
cTESNFETipo de entrada e saída da nota fiscal eletrônica
cNotaNumero da nota
cSerieSerie da nota
cCondPgCondição de pagamento
cHistSolHistórico do solicitante
cCCustoDstCentro de custo destino ao bem
cLocalDstLocal de destino ao bem
cFilDestFilial 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


AF125OKT
#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

06. DOCUMENTOS RELACIONADOS

Inclusão cFilDest



IMPORTANTE!

Agora esse ponto de entrada recebe como parâmetro a variável cFilDest (filial destino).