Exemplo de form movimento

[bruno]

Relembrando a primeira mensagem :

Pessoal

Seria possivel alguem passar algum form que tenha a rotina completa e esteja funcionando de um estoque, tipo, comprou material entrou estoque, vendeu saiu estoque, o fluxo de caixa deste movimento, um caixa que de o resultado de contas a pagar e receber e o que foi vendido no dia. Quais tabelas usar???

Acho que quero muito, mas é que estou perdido e não sei bem onde pegar, fiz alguma coisa mas esta com falha, de raiva exclui tudo e estou començando do zero de novo.

Podem dizer que sou folgado, mas nao tenho formação nesta area, o que aprendi fui de curiosidade e pegando algumas coisas na internet.

Um amigo montou um pecuaria e pediu se podia ajudar a ele controlar o estoque. Disse vou tentar.

Muito obrigado atodos que vierem ajudar.


Bruno

[bruno]

Pessoal

Estou tendo problemas com o saldo do caixa.
No formulario de baixa de contas a pagar, quando realizo um pagamento, estou gravando o valor pago, mas nao consigo atualizar o saldo.

select caixa
...
...
replace saldo with saldo-Thsiform.txtValorpago.value

Como faço para ler o saldo anterior no registro e atualizar.

Minha tabela dbf do caixa esta assim

historico----- entrada---------saida----------saldo
pagamento------ 0,00--------150,00--------150,00(valor negativo)
recebimento- 2.477,00----------0,00--------2.477,00
pagamento-------0,00---------12,40-----------12,40


Bruno

[Marcos Guedes]

não está atualizando na tabela ou na grid?

[bruno]

Marcos

A tabela DBF qua nao esta sendo atualizada no saldo.
150,00 - 2477,00 =2327,00
Saldo seria 2327,00 menos 12,40 o saldo deveria ser 2314,60,
Penso eu que o saldo do registro 2 deveria ser 2314,60, que é o saldo da movimentação.

bruno

[Marcos Guedes]

select caixa
...
...
replace saldo with saldo-Thsiform.txtValorpago.value

O que contém no lugar desta reticência?

O problema deve estar relacionado ao fato de não estares posicionando no registro em que queres alterar o valor.

Deveria ser algo do tipo:

Código:

SELECT tabela
LOCATE FOR...
REPLACE...

ou

Código:

SELECT tabela
SET ORDER TO...
SEEK ...
REPLACE...

ou

Código:

UPDATE tabela SET... WHERE...

[bruno]

Marcos

Existe outros campos que são gravados na tabela, como data, historico, codigo,etc.

bruno

[Marcos Guedes]

mas para resolver o problema, preciso saber qual o código pois acredito que não estais posicionando no registro correto na hora de dar um replace.

os outros campos atualizam normalmente?
aparece alguma mensagem de erro?

caso haja alguma mensagem de erro, observe que o código descrito está errado.
Ao invés de:

replace saldo with saldo-Thsiform.txtValorpago.value

o correto deveria ser:

replace saldo with saldo-Thisform.txtValorpago.value

[bruno]

Marcos

Esta escrito correto, errei quanto escrevi aqui no forum, desculpa.

aqui esta o codigo

Código:

SELECT caixa
SET ORDER TO id_cr
SEEK ALLTRIM(Thisform.cntr.txtId_contapagar.value)
 IF .not. EOF()
* se existir atualiza
replace id_contapagar WITH Thisform.cntr.txtId_contapagar.value
replace data WITH Thisform.cntr.txtDatarp.value
replace historico WITH Thisform.cntr.txtProcedencia.value
replace entrada  WITH Thisform.cntr.txtValorrp.value
replace saldo WITH vlsaldoatu+Thisform.cntr.txtValorrp.value
replace tipo WITH "S"
ELSE
append blank
replace id_contapagar WITH Thisform.cntr.txtId_contapagar.value
replace data WITH Thisform.cntr.txtDatarp.value
replace historico WITH Thisform.cntr.txtProcedencia.value
replace entrada  WITH Thisform.cntr.txtValorrp.value
replace saldo WITH vlsaldoatu+Thisform.cntr.txtValorrp.value
replace tipo WITH "S"
ENDIF

[Marcos Guedes]

veja se assim funciona:

Código:

SELECT caixa
SET ORDER TO id_cr
SEEK ALLTRIM(THISFORM.cntr.txtid_contapagar.VALUE)
IF FOUND() THEN
   * se existir atualiza
   MESSAGEBOX("Atualizando o registro") && Depois remova esta mensagem
   
   SELECT caixa
   REPLACE id_contapagar WITH THISFORM.cntr.txtid_contapagar.VALUE
   REPLACE DATA WITH THISFORM.cntr.txtdatarp.VALUE
   REPLACE historico WITH THISFORM.cntr.txtprocedencia.VALUE
   REPLACE entrada  WITH THISFORM.cntr.txtvalorrp.VALUE
   REPLACE saldo WITH vlsaldoatu+THISFORM.cntr.txtvalorrp.VALUE
   REPLACE tipo WITH "S"
ELSE
   MESSAGEBOX("Inserindo um novo registro") && Depois remova esta mensagem
   
   SELECT caixa   
   APPEND BLANK
   
   REPLACE id_contapagar WITH THISFORM.cntr.txtid_contapagar.VALUE
   REPLACE DATA WITH THISFORM.cntr.txtdatarp.VALUE
   REPLACE historico WITH THISFORM.cntr.txtprocedencia.VALUE
   REPLACE entrada  WITH THISFORM.cntr.txtvalorrp.VALUE
   REPLACE saldo WITH vlsaldoatu+THISFORM.cntr.txtvalorrp.VALUE
   REPLACE tipo WITH "S"
ENDIF

Obs.: Coloquei um messagebox no código para lhe auxiliar no momento da operação.
Se na hora em que tiver que atualizar, o messagebox informar uma inclusão, então verifique a informação pela qual estais buscando na tabela.


Resolve?

[bruno]

Marcos

Ate aqui tudo beleza, esta atualizando o saldo deste registro.

Suponhamos que temos um saldo de ontem com um total de 500,00, se efetuarmos um pagamento de 50,00 teria que pegar este saldo de 500,00 e subtrair os 50,00, correto!?
Neste registro deveria gravar assim:

ontem
saida-------saldo
0,00--------500,00
Hoje
saida--------saldo
50,00--------450,00

É este saldo que nao estou conseguindo atualizar.

[Marcos Guedes]

O problema não está no fato de você estar somando no código?

REPLACE saldo WITH vlsaldoatu+THISFORM.cntr.txtvalorrp.VALUE

Se o usuário está incluindo o sinal de menos, então o seu código funcionará normalmente. Senão, o correto seria ficar da seguinte forma:

Código:

REPLACE saldo WITH vlsaldoatu-THISFORM.cntr.txtvalorrp.VALUE

[bruno]

Marcos

Veja bem este saldo de ontem esta no RECNO()=2

Hoje insiro um novo registro que fica no RECNO()=3

É o saldo do RECNO() 2 que nao estou conseguindo pegar para fazer a subtração.

bruno

[bruno]

Marcos

Acabei criando um outro botão para atualizar saldo.

coloquei o seguinte codigo:

Código:

SELECT caixa
    GO TOP
    m.saldo=0
    DO WHILE !EOF()
      replace saldo WITH (m.saldo+caixa.entrada)-caixa.saida
      WAIT windows "Atualizando saldo" TIMEOUT 0.01
      m.saldo = caixa . saldo
      SELECT caixa
      skip
    ENDDO

Vou fazer mais alguns testes, mas pode dar por encerrado o topico.

Obrigado a todos que ajudaram

Bruno

[Marcos Guedes]

Como o tópico foi encerrado, então foi bloqueado para não dificultar na pesquisa pois já está com 4 páginas.

Qualquer dúvida, abrir um novo tópico.