Ajuda com totalização balanço patrimonial

Softwhouse · Mensagem por **Softwhouse** » 25 Jul 2019 17:40

Preciso de uma idéia para totalização das contas títulos no balanço patrimonial.

Tabela do Plano de contas:

17 T 1 ATIVO
52 T 1.1 ATIVO CIRCULANTE
98 T 1.1.1 DISPONIBILIDADES
106 T 1.1.1.1 CAIXA
129 A 1.1.1.1.1 Caixa
112 T 1.1.1.2 BANCOS CONTA CORRENTE
135 A 1.1.1.2.1 Banco x
2915 A 1.1.1.3 Banco y

Tabela dos Lançamentos:

Data Debito Credito Valor Histórico Complem
01/01/2019 129 100,00 015 xxxxxxx
01/01/2019 135 100,00 020 yyyyyyy

Para totalizar as contas analíticas:

Código: Selecionar todos

Do While !Eof()
   If Plano->Tipo = ‘T’
      DbSkip()
      Loop
   Else
      Sum Lancamen->Valor To nDebitos For Lancamen->Debito == Plano->Codigo
      Sum Lancamen->Valor To nCreditos For Lancamen->Credito == Plano->Código
   EndIf
EndDo

O problema está em totalizar as contas títulos. Como vcs fazem ? Incluem a máscara na tabela de lançamentos para poder fazer isso ?

Mensagem por **JoséQuintas** » 25 Jul 2019 19:19

Porque não atualiza as contas analíticas durante os lançamentos?
Essa rotina deve estar uma carroça, percorrer todos os lançamentos duas vezes para cada conta....
Se os lançamentos tiverem ordem de conta, seria muuuuito mais rápido, ou percorrer os lançamentos ao invés das contas.

Pra atualizar as sintéticas, talvez melhor trabalhar com um nível de cada vez e/ou fazer de trás pra frente.

Softwhouse · Mensagem por **Softwhouse** » 25 Jul 2019 20:49

José,

Na verdade estou trabalhando com os dados exportados de um sistema contábil da WK Sistemas. Não vejo qual a utilidade prática em atualizar os saldos durante a digitação, somente se o sistema emitisse balanços ou balancetes mensais, o que não é o caso. Vc pode emitir por exemplo um balanço do dia 10 ao dia 20 de julho ou entre dois ou mais exercícios se estiverem abertos. Não é carroça não. Não conheço sistema contábil melhor do que os da WK.

Mensagem por **JoséQuintas** » 26 Jul 2019 02:38

Softwhouse escreveu:Não conheço sistema contábil melhor do que os da WK.

É porque ainda não vi o meu.

Softwhouse escreveu:Na verdade estou trabalhando com os dados exportados de um sistema contábil da WK Sistemas.
Não vejo qual a utilidade prática em atualizar os saldos durante a digitação, somente se o sistema emitisse balanços ou balancetes mensais, o que não é o caso

Isso confundiu. Diz que importa os dados, mas diz que não precisa atualizar durante digitação...

Sei lá... dependendo do que for fazer, pode ser que o meu contábil já tenha pronto, e está liberado.

Softwhouse · Mensagem por **Softwhouse** » 26 Jul 2019 08:35

José,

Posso ver um demo seu sistema ? Vc diz que está liberado ? No seu site ?

Obrigado

Mensagem por **JoséQuintas** » 26 Jul 2019 09:50

Mas diga, afinal o que vai fazer?
Porque precisa importar dados?

Mensagem por **Itamar M. Lins Jr.** » 26 Jul 2019 15:08

Ola!

Como vcs fazem ?

FOR NEXT Na hora do lançamento... Fica tudo pronto...

Idade da pedra lascada...rsrsrs

Código: Selecionar todos

 if dc = 'D'
   trava_registro('pl')
   repl pl->debito with pl->debito + la->valor
   NetFlush('pl')
   for n = param to 1 step -1
    ct := 'gr'+str(n,1)
    if pl->(dbseek(substr(ctadeb,1,&ct)))
       trava_registro('pl')
       repl pl->debito with pl->debito + la->valor
       NetFlush('pl')
    endi
   next
 else
   trava_registro('pl')
   repl pl->credito with pl->credito + la->valor
   NetFlush('pl')
   for n = param to 1 step -1
    ct := 'gr'+str(n,1)
    if pl->(dbseek(substr(ctacre,1,&ct )))
       trava_registro('pl')
       repl pl->credito with pl->credito + la->valor
       NetFlush('pl')
    endi
   next
 endi

Rápido, da época do 386(SX) sem o co-processador matemático!

Se fosse fazer isso hoje, faria pouco, diferente... quem sabe um treeview da hwgi, mas não tenho mais nenhum cliente que precisa do plano de contas.

Saudações,
Itamar M. Lins Jr.

Mensagem por **JoséQuintas** » 26 Jul 2019 16:44

Eu faço diferente...

Tenho um controle se houve alteração.
Quando for emitir alguma coisa que precise disso, aí faço a atualização das sintéticas.
Ou seja... só atualizo quando precisar, assim não perde tempo à toa.

Softwhouse · Mensagem por **Softwhouse** » 27 Jul 2019 13:16

E se faltar luz durante a atualização tanto das contas analíticas como das das sintéticas ?

Prefiro lançamentos sem qualquer atualização de saldos, sem lotes (não sei se alguém ainda utiliza isso), totalização na hora da necessidade da informação.

Problema resolvido, podemos fechar o tópico.

Mensagem por **JoséQuintas** » 27 Jul 2019 17:24

E porque não as duas coisas?
Uma rotina para os casos eventuais de recálculo.

Mensagem por **JoséQuintas** » 27 Jul 2019 17:30

Meu aplicativo permite TODOS os meses em aberto, no momento 96 meses.
Podem estar sendo emitidos relatórios de um mês, e sendo digitado outro mês.
Se for recalcular com usuário digitando... ferrou... nunca conseguiria terminar esse recálculo a tempo.

É exagero tudo isso em aberto? sim. Mas já foi usado.

Mas tem outro porém....
No meu aplicativo, em aberto significa apenas... em uso, disponível.
O fechamento é mesmo somente pra apagar informações.

Mensagem por **JoséQuintas** » 27 Jul 2019 18:03

Sobre o aplicativo.....
Com certeza WMK tem recursos infinitos.

O aplicativo fica em josequintas.com.br, seção download, JPA.EXE
Baixe também josequintas.com/arquivos/sjpa.exe, que vai servir como atalho.

Importante deixar tudo em uma pasta, porque cria DBFs, índices, etc. etc., sempre trabalhando nessa pasta.
O aplicativo cria um backup a cada novo dia de uso, e faz uma pergunta se envia pra mim esse backup.
Se estiver em pasta errada, vém mais coisas junto, caso responda sim.

Usuário CT senha ENTER, ou talvez CT senha CT.
Vai ter que confirmar, porque não lembro mais.

Se quiser continuar atualizando on-line, vai precisar instalar o ODBC MySQL 5.3

Mensagem por **Itamar M. Lins Jr.** » 27 Jul 2019 18:59

Ola!

E se faltar luz durante a atualização tanto das contas analíticas como das das sintéticas ?

Na época que usa, já tinha no-breaks... Os lançamentos eram feitos simultaneamente por várias pessoas ao mesmo tempo... Na mesma empresa...
E mesmo assim, mesmo depois que o vírus stoned... atacava era só recuperar o backup do disquete, e recalculava, tudo rapidinho, replace with 0, abrir o arquivo de lancamento(razão) e recalcular os saldos.... etc...
1)plano plano001.dbf empresa x
2)lacamentos.dbf (razao ou diáro) empresa x...
É só um DU UAILEZINHO não demora não.
Lembrei do COBOL... rebuild...Nessa época eu apenas digitava, não programava.

Saudações,
Itamar M. Lins Jr.

Mensagem por **JoséQuintas** » 27 Jul 2019 19:40

O que destaca no meu é o encerramento automático.

O cara vai lá, lança uma despesa, e, se quiser, já emite diário, balanço, etc. que já sai todo encerrado e calculado.
E pode fazer isso em 2009, e emitir o balanço de 2019, sem problemas.
Mais que isso... pode digitar o lançamento, e em seguida já gerar o SPED Contábil, sem nenhuma operação intermediária.
Não existe lançamento de encerramento ou apuração de resultado por parte do usuário.
Isso facilitou muito gerar o SPED Contábil.

Softwhouse · Mensagem por **Softwhouse** » 27 Jul 2019 20:02

José,

Se eu tiver um lançamento em 01/01/2019, partidas dobradas, posso alterar para 31/12/2019, partida simples, se for crédito, pode virar débito, se for débito pode virar crédito, se for partida dobrada pode virar simples, se for simples pode virar dobrada, desde que o débito feche com o crédito da data, isso com com tantos quantos lançamentos houverem na data. Não entendo o porque atualização de saldos. Volto a perguntar: os balanços e/ou balancetes que vcs fazem referem-se ao último dia do mês? Não é possível fazer um balanço do dia 10 ao dia 15 do mesmo mês ?