Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilização
  3. Tela XXX
    1. Outras Ações / Ações relacionadas
  4. Tela XXX
    1. Principais Campos e Parâmetros
  5. Tabelas utilizadas

01. VISÃO GERAL

A função PcoVldLan tem como finalidade validar se o lançamento de origem tem verba orçamentária disponível, efetuando um pseudo-lançamento na movimentação orçamentária e conforme parametrização, no tipo de bloqueio, compara os valores orçados ou previstos com os realizados efetivamente, e sendo o valor orçado maior ou igual ao do realizado, libera o lançamento, caso contrário bloqueia.

...

A finalidade desta função é validar se o lançamento de origem tem verba orçamentária disponível, efetuando um pseudo-lançamento na movimentação orçamentária e, conforme parametrização no tipo de bloqueio, compara os valores orçados ou previsto com os realizados efetivamente, e sendo seno o valor orçado maior ou igual ao do realizado, libera o lançamento, caso contrário bloqueia.

No cadastro de Bloqueios por Processo as regras (expressões ADVPL) para geração do pseudo-lançamento devem fazer referência às variáveis de memória no caso de interface do tipo enchoice ou conteúdo de acols quando interface do tipo grade, pois o lançamento de origem na maioria dos caso ainda não existem, isto é, não foram gravados ainda no banco de dados.

...

Bloco de código
languagegroovy
themeMidnight
linenumberstruecollapsetrue
Function F050PcoLan()

Local lRet  :=  .T.//se nao bloquear grava os lançamentos com a chamada a funcaofunção PcoDetLan

If !PcoVldLan("000002",IIF(M->E2_TIPO$MVPAGANT,"02","01"),"FINA050")    
    lRet    :=  .F.
    //===========================================================  
    //Grava os lancamentos nas contas orcamentarias SIGAPCO          
    //===========================================================  
    If SE2->E2_TIPO $ MVPAGANT      
        PcoDetLan("000002","02","FINA050")  
    Else        
        PcoDetLan("000002","01","FINA050")  
    EndIf
Endif

Return lRet


03.

...

Outras Ações / Ações relacionadas

...

PARÂMETROS

NomeTipoDescriçãoDefaultObrigatório
cProcessoCaracterCódigo do Processo de Lançamento de Bloqueio do PCO
X
cItemCaracterItem do Processo de Lançamento do Bloqueio do PCO
X
cProgramaCaracterPrograma Origem do Lançamento de Bloqueio
X
lUsaLoteLógicoIndica se utilizou numero de lote na Ggeraçao do lançamento.F.
lDeletaLógicoIndica se é Exclusão do Lançamento de Bloqueio do PCO.F.
lVldLinGradeLógicoIndica se a Validação é por Grade.F.


04. ASSUNTOS RELACIONADOS

PCOINILAN-Lançamentos_de_Integração

PCODETLAN-Movimentos_lançamentos_orçamentários

PCOFINLAN-Finalização_de_Movimentos_Lançamentos

04. TELA XXXXX

Principais Campos e Parâmetros

...