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