Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
17 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 17 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
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 48 mensagens em 25 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
avatar
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
avatar
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.
avatar
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!!!
avatar
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!!
avatar
Linghston
Participa Bastante
Participa Bastante


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