...
| Bloco de código |
|---|
| language | java |
|---|
| theme | Midnight |
|---|
| title | Exemplo de rotina automática |
|---|
| collapse | true |
|---|
|
#INCLUDE "Protheus.ch"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
Static __COMPAUT := Nil
User Function CMPAUTOMA()
Local lRet := .F.
Local cQry := ""
Local aTipos := {"NF ", "PA ", "NDF"}
Local cTblTmp := ""
Local aNF := {}
Local aPA_NDF := {}
Local aContabil := {}
Local bBlock := Nil
Local aEstorno := {}
Local nSldComp := 0
Local nTaxaPA := 0
Local nTaxaNF := 0
Local nHdl := 0
Local nOperacao := 0
If __COMPAUT == Nil
cQry := "SELECT E2_TIPO TIPO, R_E_C_N_O_ R_E_C_N_O FROM " + RetSqlName("SE2") + " "
cQry += "WHERE E2_SALDO > 0 AND E2_TIPO IN (?) "
cQry += "ORDER BY E2_TIPO"
cQry := ChangeQuery(cQry)
__COMPAUT := FWPreparedStatement():New(cQry)
EndIf
__COMPAUT:SetIn(1, aTipos)
cQry := __COMPAUT:GetFixQuery()
cTblTmp := MpSysOpenQuery(cQry)
While (cTblTmp)->(!Eof())
If (cTblTmp)->TIPO $ MVPAGANT+"|"+MV_CPNEG
Aadd(aPA_NDF, (cTblTmp)->R_E_C_N_O)
Else
Aadd(aNF, (cTblTmp)->R_E_C_N_O)
EndIf
(cTblTmp)->(DbSkip())
lRet := .T.
EndDo
(cTblTmp)->(DbCloseArea())
cTblTmp := ""
If lRet
Pergunte("AFI340", .F.)
lContabiliza := MV_PAR11 == 1
lAglutina := MV_PAR08 == 1
lDigita := MV_PAR09 == 1
lRet := FinCmpAut(aNF, aPA_NDF, aContabil, bBlock, aEstorno, nSldComp, dDatabase, nTaxaPA ,nTaxaNF, nHdl, nOperacao)
If lRet
Alert("Compensação realizada com sucesso")
Else
Alert("Ocorreu um erro no processo de compensação")
EndIf
EndIf
Return
|
03. OPERAÇÕES
- Consulta Rateio Multi Naturezas
Apresenta consulta com o rateio de múltiplas naturezas do título posicionado no browse.
Esta apresentação depende da ativação do processo de rateios de múltiplas naturezas para contas a pagar (parâmetro MV_MULNATP)
Apresenta consulta com o lançamento contábil do título, caso o mesmo já tenha sido contabilizado.
| Deck of Cards |
|---|
| effectDuration | 0.5 |
|---|
| history | false |
|---|
| id | samples |
|---|
| effectType | fade |
|---|
|
| Card |
|---|
| default | true |
|---|
| id | 1 |
|---|
| label | Automática |
|---|
| Procedimento para baixa de títulos a pagar de quaisquer naturezas do módulo Financeiro. Ao acionar esta opção, verifique o preenchimento dos principais campos e confirme o procedimento. Exemplo: - Baixar: selecione a opção desejada entre Títulos ou borderôs.
Títulos: Exibe apenas títulos que não estão em borderô Borderôs: Carrega apenas títulos em borderô - Portador: define um intervalo de portadores para que seja realizado o filtro dos títulos que serão baixados.
- Vencimento: define um intervalo de vencimentos dos títulos que serão baixados. Dessa forma, o sistema considera apenas os títulos referentes ao portador informado.
|
| Card |
|---|
| Permite a pesquisa de informações para o título selecionado com a utilização de filtros que as ordenam de acordo com a característica desejada. O índice escolhido na pesquisa será usado para ordenar a tela de seleção de títulos, permitindo que o usuário escolha qual a ordenação da tela de seleção. Exemplo:
|
| Card |
|---|
| id | 1 |
|---|
| label | Perguntas (F12) |
|---|
| effectType | fade |
|---|
| | Pergunta | Descrição |
|---|
| Mostra Lanc. Contábil ? | Informe a opção "SIM" para que os lançamentos contábeis gerados através da compensação sejam exibidos em tela, ou "NAO", caso contrario | | Aglutina Lançamentos ? | Informe a opção "SIM" para que os lançamentos contábeis gerados através da compensação sejam aglutinados em um único lançamento. | | Contabiliza On Line ? | Informe se "SIM" para que a contabilização dos lançamentos referentes a baixa de contas a pagar sejam realizados online, ou "NAO", caso contrario. | | Gera cheque Autom. ? | Informe a opção “Sim” para que as baixas a pagar automáticas gerem os cheques para o pagamento dos respectivos títulos, o “Não”, caso contrário. | Informações |
|---|
| | Por meio da rotina de Liberação de Cheques o sistema permite que os cheques gerados possam ser liberados on-line, de acordo com o preenchimento do parâmetro MV_LIBCHEQ. Quando o conteúdo é S, os cheques são liberados automaticamente e quando é N devem, obrigatoriamente, passar por esta opção. A movimentação bancária referente aos cheques ocorre quando houver liberação on-line ou após o procedimento de liberação de cheques. |
| | Contabiliza Borderô ? | Indica se a contabilização do LP 532, baseada na variável VALOR, será feita desmembrada Borderô a Borderô ou a contabilização de todos os borderôs em somente um total. | | Tipo de Desconto ? | Informe o tipo de desconto concebido ao(s) título(s), caso houver. Esta informação será utilizada no Fiscal, bloco F100 do SPED. ATENÇÃO - Esta pergunta se aplica somente a localização BRA (Brasil) | | Seleciona Filiais ? | Selecione SIM para que seja possível selecionar as filiais a serem consideradas para o processo.
Caso selecione NÃO, apenas a filial atual será considerada para o processo. |
|
| Card |
|---|
| id | 4 |
|---|
| label | Cancelamento Automático de Baixas |
|---|
| Procedimento para permitir que um processo de baixa seja cancelado de forma automática, dentro de determinadas condições. |
| Card |
|---|
| Nesta opção é possível localizar e exibir os lançamentos contábeis a partir do documento que os originou. |
| Card |
|---|
| id | 6 |
|---|
| label | Consulta Rateio Multi Naturezas |
|---|
| Apresenta consulta com o rateio de múltiplas naturezas do título posicionado no browse.
Esta apresentação depende da ativação do processo de rateios de múltiplas naturezas para contas a pagar (parâmetro MV_MULNATP) |
| Card |
|---|
| Apresenta quadro das legendas e seus significados referenciados a situação do título de contas a pagar. A legenda pode ser visualizada na primeira coluna do browse. 
|
|
...
