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
» Alterar uma palavra num arquivo de texto
Ontem à(s) 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

» Pesquisa em grid
14/9/2016, 09:24 por AJC

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6960 usuários registrados
O último usuário registrado atende pelo nome de Maycon Hersing

Os nossos membros postaram um total de 17118 mensagens em 2576 assuntos

COMANDO SUM DEMORADO

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

Resolvido COMANDO SUM DEMORADO

Mensagem por Linghston em 3/3/2011, 08:33

Bom dia a todos,
Amigos tenho este comando abaixo onde ele deve somar um determinado campo da tabela1 quando existir registros iguais e colocar o total desta soma na tabela2 onde existe o mesmo registro porem unico. O problema é que esta demorando muito alguem teria uma solução melhor??
Obrigado.

Código:
SELECT 2
USE c:\alerta\bdados\progsem

SELECT 1
USE c:\alerta\bdados\progconj
GO TOP
DO WHILE .T.
   xdes=desenho

   SELECT 2
   SUM ALL sdprog FOR desenho=xdes TO xvar

   SELECT 1
   REPLACE sdprogconj WITH xvar
   SKIP
   IF EOF()
      EXIT
   ENDIF
ENDDO

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: COMANDO SUM DEMORADO

Mensagem por alceu11 em 3/3/2011, 09:37

CODIGO EXEMPLO soma de itens por nr.pedido e por produto
Código:

CLOSE databases all
SET SAFETY OFF

CREATE TABLE po (produto c(30),vrunitario n(6,2),precocusto n(8,2),;
qtde n(6),pedido n(6), codprod c(6))

SELECT po
INSERT INTO po values('SERVICO',5,4,6 ,166,'123456')
INSERT INTO po values('PREGO',4,3,1 ,100002,'1234554')
INSERT INTO po values('PREGO',4,2,2 ,100002,'1234554')
INSERT INTO po values('SERVICO',5,4,4 ,166,'123456')
INSERT INTO po values('PARAFUSO',3,2,2 ,166,'123453')
INSERT INTO po values('PARAFUSO',5,4,4 ,166,'123453')
INSERT INTO po values('ESCADA',2,1,1 ,166,'123452')
INSERT INTO po values('ESCADA',2,3,3 ,166,'123452')
 BROWSE NORMAL TITLE 'OS ITENS DO PEDIDO POR NR.DE PEDIDO'
GO TOP
 
select IIF(ALLTRIM(PO.PRODUTO)='SERVICO',sum((po.vRunitario* po.qtde)),sum((po.vRunitario* po.qtde))) ;
 AS VALORLQ ,produto,PEDIDO  from PO GROUP BY produto,PEDIDO WHERE pedido=166    INTO CURSOR TES
 WAIT WINDOW 'SOMA P/PRODUTO NO CURSOR TES PARA O PEDIDO 166 OLHE O BROWSE ' TIMEOUT 2
BROWSE NORMAL
******
WAIT WINDOW 'sera ke esta 2a.opcao O Servico da R@50,00' TIMEOUT 1
select IIF(ALLTRIM(PO.PRODUTO)='SERVICO',sum((po.vRunitario* po.qtde)),sum((po.vRunitario* po.qtde))) ;
 AS VALORLQ ,produto  from PO GROUP BY produto WHERE pedido=166 AND ALLTRIM(PO.PRODUTO)='SERVICO'    INTO CURSOR TES
BROWSE

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: COMANDO SUM DEMORADO

Mensagem por Linghston em 3/3/2011, 09:44

[Você precisa estar registrado e conectado para ver este link.] escreveu:CODIGO EXEMPLO soma de itens por nr.pedido e por produto
Código:

CLOSE databases all
SET SAFETY OFF

CREATE TABLE po (produto c(30),vrunitario n(6,2),precocusto n(8,2),;
qtde n(6),pedido n(6), codprod c(6))

SELECT po
INSERT INTO po values('SERVICO',5,4,6 ,166,'123456')
INSERT INTO po values('PREGO',4,3,1 ,100002,'1234554')
INSERT INTO po values('PREGO',4,2,2 ,100002,'1234554')
INSERT INTO po values('SERVICO',5,4,4 ,166,'123456')
INSERT INTO po values('PARAFUSO',3,2,2 ,166,'123453')
INSERT INTO po values('PARAFUSO',5,4,4 ,166,'123453')
INSERT INTO po values('ESCADA',2,1,1 ,166,'123452')
INSERT INTO po values('ESCADA',2,3,3 ,166,'123452')
 BROWSE NORMAL TITLE 'OS ITENS DO PEDIDO POR NR.DE PEDIDO'
GO TOP
 
select IIF(ALLTRIM(PO.PRODUTO)='SERVICO',sum((po.vRunitario* po.qtde)),sum((po.vRunitario* po.qtde))) ;
 AS VALORLQ ,produto,PEDIDO  from PO GROUP BY produto,PEDIDO WHERE pedido=166    INTO CURSOR TES
 WAIT WINDOW 'SOMA P/PRODUTO NO CURSOR TES PARA O PEDIDO 166 OLHE O BROWSE ' TIMEOUT 2
BROWSE NORMAL
******
WAIT WINDOW 'sera ke esta 2a.opcao O Servico da R@50,00' TIMEOUT 1
select IIF(ALLTRIM(PO.PRODUTO)='SERVICO',sum((po.vRunitario* po.qtde)),sum((po.vRunitario* po.qtde))) ;
 AS VALORLQ ,produto  from PO GROUP BY produto WHERE pedido=166 AND ALLTRIM(PO.PRODUTO)='SERVICO'    INTO CURSOR TES
BROWSE

Ok Alceu11!!!!
Vou testar e lhe reporto.

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: COMANDO SUM DEMORADO

Mensagem por _batmanvfp_ em 3/3/2011, 14:52


Algo assim

Código:
CLOSE DATABASES ALL
SET PATH TO c:\alerta\bdados
set defa to "c:\alerta\bdados"

SELECT SUM(progsem.sdprog) AS xvar ;
FROM progsem, sdprogconj;
where desenho = desenho ;
GROUP BY xvar ;
INTO CURSOR cadlista READWRITE


if not used('progconj')
use progconj in 0 alias progconj shared
endif
Select progconj
set order to tag desenho

DO WHILE !EOF()
IF SEEK(progconj.desenho,"progsem")
REPLACE sdprogconj WITH cadlista.xvar
ENDIF
SELECT progconj
SKIP
ENDDO

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: COMANDO SUM DEMORADO

Mensagem por Linghston em 4/3/2011, 09:01

[Você precisa estar registrado e conectado para ver este link.] escreveu:
Algo assim

Código:
CLOSE DATABASES ALL
SET PATH TO c:\alerta\bdados
set defa to "c:\alerta\bdados"

SELECT SUM(progsem.sdprog) AS xvar ;
FROM progsem, sdprogconj;
where desenho = desenho ;
GROUP BY xvar ;
INTO CURSOR cadlista READWRITE


if not used('progconj')
use progconj in 0 alias progconj shared
endif
Select progconj
set order to tag desenho

DO WHILE !EOF()
IF SEEK(progconj.desenho,"progsem")
REPLACE sdprogconj WITH cadlista.xvar
ENDIF
SELECT progconj
SKIP
ENDDO

Obrigado _batmanvfp_ irei testar esta sua sugestão tambem!!!

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: COMANDO SUM DEMORADO

Mensagem por Linghston em 21/3/2011, 08:10

Obrigado a todos pela ajuda, conseguir resolver o problema seguindo as dicas do batmanvfp.

Valeu!!

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: COMANDO SUM DEMORADO

Mensagem por Conteúdo patrocinado Hoje à(s) 05:08


Conteúdo patrocinado


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