Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
8 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 8 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Rota de um arquivo

15/12/2016, 22:28 por Martins

Agradeço ajuda para o seguinte:
como guardar numa variável, um caminho ou rota,por exemplo


Comentários: 3

Estatísticas
Temos 6986 usuários registrados
O último usuário registrado atende pelo nome de carlosdantasf

Os nossos usuários postaram um total de 1 mensagem em 1 assuntos

Alimentar Tabela com Valores de uma grid

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Alimentar Tabela com Valores de uma grid

Mensagem por henriquexande106 em 18/8/2010, 21:58

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?

henriquexande106
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Alimentar Tabela com Valores de uma grid

Mensagem por m@r<3|o em 19/8/2010, 01:12

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

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: Alimentar Tabela com Valores de uma grid

Mensagem por Julio em 19/8/2010, 15:37

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.

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Alimentar Tabela com Valores de uma grid

Mensagem por henriquexande106 em 22/8/2010, 19:19

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

henriquexande106
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Alimentar Tabela com Valores de uma grid

Mensagem por hugo em 23/8/2010, 00:10

seria interessante se voce postasse aqui o codigo que esta utilizando

voce estaria ajudando futuros usuarios com duvida semelhante!

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Alimentar Tabela com Valores de uma grid

Mensagem por henriquexande106 em 23/8/2010, 21:59

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)

henriquexande106
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Alimentar Tabela com Valores de uma grid

Mensagem por hugo em 26/8/2010, 19:55

valeu henrique

reputado

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum