Histórico da Página
...
02. EVENTOS
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
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 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 | theme | DJango|||
|---|---|---|---|---|
| ||||
//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
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.
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.
EndIf
//Exemplo de customização !!!
Return lRet |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas