Histórico da Página

...

Para melhor organização das naturezas, as receitas e despesas devem iniciar com códigos diferentes para facilitar seu agrupamento e a totalização em consultas e orçamentos.

- 10.XXXX.XX – Despesas.
- 20.XXXX.XX – Receitas.

Ao criar as categorias é possível incluir subcategorias, uma vez que, podem existir diferentes fontes de receitas e despesas. Essa possibilidade permite que na consulta de títulos a pagar ou orçamentos os saldos sejam totalizados por cada categoria e ao final, em conjunto, a partir da categoria principal (pai).

- 20.100 - Receitas – Total.
- 20.1000.01 – Receitas – Serviços de Manutenção.
- 20.1000.02 – Receitas – Vendas de Equipamentos.

...

Bloco de código

language	java
theme	Midnight
title	Exemplo de rotina automática
collapse	true

#INCLUDE "Protheus.ch"

USER FUNCTION FIN010INC()
LOCAL aArray := {}
 
PRIVATE lMsErroAuto := .F.
 
aArray := { { "ED_CODIGO"  , "TST"             , NIL },;
            { "ED_DESCRIC" , "DESCRIÇÃO TESTE" , NIL },;
            { "ED_CALCIFRCALCIRF" , "N"               , NIL },;
            { "ED_CALCISS" , "N"               , NIL },;
            { "ED_CALCINS" , "N"               , NIL },;
            { "ED_CALCCSL" , "N"               , NIL },;
            { "ED_CALCCOF" , "N"               , NIL },;
            { "ED_CALCPIS" , "N"               , NIL },;
            { "ED_DEDPIS"  , "2"               , NIL },;
            { "ED_DEDCOF"  , "2"               , NIL },;
            { "ED_COND"    , "R"               , NIL } }
 
MsExecAuto( { |x,y| FINA010(x,y)} , aArray, 3)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
 
 
If lMsErroAuto
    MostraErro()
Else
    Alert("Natureza incluída com sucesso!")
Endif
 
Return
 
USER FUNCTION FINA010ALT()
LOCAL aArray := {}
 
PRIVATE lMsErroAuto := .F.
 
aArray := { { "ED_CODIGO"  , "TST"                , NIL },;
                { "ED_DESCRIC" , "DESCRIÇÃO ALTERADA" , NIL } }  
           
DbSelectArea("SED")
DbSeek(xFilial("SED"))

MsExecAuto( { |x,y| FINA010(x,y)} , aArray, 4)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão

If lMsErroAuto
    MostraErro()
Else
    Alert("Natureza alterada com sucesso!")
Endif

Return
 
 
USER FUNCTION FIN010EXC()
LOCAL aArray := {}
 
PRIVATE lMsErroAuto := .F.
 
DbSelectArea("SED")
DbSeek(xFilial("SED")+"TST")
                                
aArray := { { "ED_CODIGO" , SED->ED_CODIGO , NIL } }
 
MsExecAuto( { |x,y| FINA010(x,y)} , aArray, 5)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
 
If lMsErroAuto
    MostraErro()
Else
    Alert("Exclusão da Natureza com sucesso!")
Endif
 
Return

...

Árvore de páginas

Versões comparadas

Versão antiga 71

Nova versão 72

Chave