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 | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas