Alimentar Tabela com Valores de uma grid

[henriquexande106]

Amigos,
Sou novo no forum e novo em programação em visual foxpro.
Estou com o seguinte ptoblema:

Tenhu um cursor que alimenta uma grid

Código:

SELECT a.dt_vencim, a.dt_pag, A.DUPLICATA AS DOCUMENTO, A.PARCELA, O.NOME AS OPERACAO, F.NOME AS FORNECEDOR,;
A.NOTAFISCAL, A.VALOR_DUP, CC.DESCRICAO as unidade, A.NUM_CHEQUE;
FROM APAGAR A;
INNER JOIN OPERACAO O    ON A.TIPO_OPER = O.COD_OPER;
INNER JOIN CADCONT B    ON A.BANCO = B.NU_CONT;
INNER JOIN FORNECED F   ON A.CODIGO = F.CODIGO;
INNER JOIN CCUSTO CC    ON A.CCUSTO = CC.C_CUSTO;
GROUP BY a.dt_vencim, A.DUPLICATA, A.PARCELA;
WHERE A.DUPLICATA == ALLTRIM(lccheque);
INTO CURSOR CONSULTA READWRITE

thisform.grid1.Visible= .T.
thisform.grid1.RecordSourceType= 1
thisform.grid1.RecordSource="consulta"
thisform.grid1.Column1.header1.Caption = 'Dt_Venc'
thisform.grid1.Column1.Width = 60
thisform.grid1.Column1.ControlSource ="consulta.dt_vencim"

Após a criação do grid eu preciso pegar a informação dos registros existentes no grid e atualizar os campos da tabela principal que gerou o cursor (Apagar)

Alguem pode me ajudar?

[m@r<3|o]

Código:

select CONSULTA
FOR n = 1 TO RECCOUNT("CONSULTA")

**** ESSE comando  RECCOUNT nao lembro ao certo
**** tenta RECNO() tb  com ou sem variavel e aspas esse comando do FOX
**** tenta count() tb com ou sem variavel e aspas  acho que esse seria no meio SQL


SELECT tabela2
GO BOTTOM

APPEND BLANK
replace tabela2.campo with CONSULTA.dt_vencim
replace tabela2.campo with CONSULTA.a.dt_pag
replace tabela2.campo with CONSULTA.DOCUMENTO
replace tabela2.campo with CONSULTA A.PARCELA
replace tabela2.campo with CONSULTA.OPERACAO
replace tabela2.campo with CONSULTA.FORNECEDOR
replace tabela2.campo with CONSULTA.NOTAFISCAL
replace tabela2.campo with CONSULTAVALOR_DUP
replace tabela2.campo with CONSULTA.unidade
replace tabela2.campo with CONSULTA.NUM_CHEQUE
ENDFOR

Count com For e registra o numero Contado para tabela exterior

Seria mais ou menos isso ,a grid nao influencia em nada ....
sim o resultado do cursor é o mesmo a qual contara e com For fara o insert no seu banco

seria por ai , .... seu caso é se for somente 1 registro , nao precisaria de estrutura de repeticao

mais ai como talves pode ser N filtrados , ai somente gravar dentro de
SCAN
FOR DO
WHILE

[Julio]

Veja este exemplo:

Código:

    SELECT meucursor
    GO BOTTOM
    cItem=item
    GO TOP
    DO WHILE NOT EOF()
      SELECT meucursor
      t1=item
      t2=unidade
      t3=qtde
      t4=descricao
      t5=valoritem
      ccItem=ccItem+1
      cTotal=cTotal+t5
      SELECT minhatabela
      seek && pode utilizara para localizar qual registro deseja alterar
      APPEND BLANK
      replace empenho    WITH cEmpenho
      replace fornecedor WITH Thisform.txtAuxi.value
      replace item      WITH ccItem
      replace unidade    WITH t2
      replace qtde      WITH t3
      replace descricao  WITH t4
      replace data      WITH Thisform.text3.value
      replace vlitem    WITH t5
      replace ano        WITH Thisform.text2.value
      replace dtentregap WITH Thisform.text8.value
      replace formapagto WITH Thisform.txtFormapagto.value
      SELECT meucursor
      SKIP
    ENDDO

Pode ser utilizado tambem INSERT para incluir ou UPDATE para atualizar a tabela.

[henriquexande106]

Valeu Amigo Obrigado!!! Segui essa logica mas usei o scan, mas deu certo. Vlw

[hugo]

seria interessante se voce postasse aqui o codigo que esta utilizando

voce estaria ajudando futuros usuarios com duvida semelhante!

[henriquexande106]

Segue o código utilizado! Obrigado pela ideia!

Código:

SELECT consulta && Cursor
   SCAN
      SELECT apagar  && Tabela a ser Alterada
      GO VAL(consulta.reg)
      replace apagar.valor_dup WITH consulta.valor_dup
      replace apagar.dt_vencim WITH consulta.dt_vencim
      SELECT consulta
   ENDSCAN
   MESSAGEBOX("Dados Alterados com Sucesso",0)

[hugo]

valeu henrique

reputado