VASCON

jeff Se entendi o que você quer, não seria o caso de usar os comandos abaixo para os diversos tipos de tamanho de tela? **-------------- Fundo de Tela (BMP) ------------------- PVideo:=GetSysMetrics(0) IF FILE( "CTBNV.BMP" ) IF (pVideo==640) @ 00,00 BITMAP FILE "CTBNV.BMP" OF OWNDMAIN:OWNDCLIENT SIZE 640,480 ADJUST ENDIF IF (pVideo==800) @ 00,00 BITMAP FILE "CTBNV.BMP" OF OWNDMAIN:OWNDCLIENT SIZE 800,600 ADJUST ENDIF IF (pVideo==1024) @ 00,00 BITMAP FILE "CTBNV.BMP" OF OWNDMAIN:OWNDCLIENT SIZE 1024,768 ADJUST ENDIF IF (pVideo==1280) @ 00,00 BITMAP FILE "CTBNV.BMP" OF OWNDMAIN:OWNDCLIENT SIZE 1280,1024 ADJUST ENDIF IF (pVideo==1600) @ 00,00 BITMAP FILE "CTBNV.BMP" OF OWNDMAIN:OWNDCLIENT SIZE 1600,1200 ADJUST ENDIF ELSE IF (pVideo==640) @ 00,00 BITMAP FILE "BROWSE.BMP" OF OWNDMAIN:OWNDCLIENT SIZE 640,480 ADJUST ENDIF IF (pVideo==800) @ 00,00 BITMAP FILE "BROWSE.BMP" OF OWNDMAIN:OWNDCLIENT SIZE 800,600 ADJUST ENDIF IF (pVideo==1024) @ 00,00 BITMAP FILE "BROWSE.BMP" OF OWNDMAIN:OWNDCLIENT SIZE 1024,768 ADJUST ENDIF IF (pVideo==1280) @ 00,00 BITMAP FILE "BROWSE.BMP" OF OWNDMAIN:OWNDCLIENT SIZE 1280,1024 ADJUST ENDIF IF (pVideo==1600) @ 00,00 BITMAP FILE "BROWSE.BMP" OF OWNDMAIN:OWNDCLIENT SIZE 1600,1200 ADJUST ENDIF ENDIF NILSON

Pessoal: Não sei se vocês estão acompanhando, mas o governo estará incentivando a aquisição de computadores, com a baixa e até isençao de impostos, desde que sejam atendidas algumas condições. Dentre essas condições está o sistema operacional que terá que ser LINUX.E agora, pra rodar o FIVEWIN no LINUX. NILSON

Pessoal: Não sei se vocês estão acompanhando, mas o governo estará incentivando a aquisição de computadores, com a baixa e até isençao de impostos, desde que sejam atendidas algumas condições. Dentre essas condições está o sistema operacional que terá que ser LINUX.E agora, pra rodar o FIVEWIN no LINUX. NILSON

Outro detalhe que na minha opinião deveria ser observado: Verificar se esta sendo usado o comando SET RELATION TO para mostrar informação ou carregar variável. Há muito anos NÃO uso esse comando, alias, nunca usei no Fivewin. Na época do Clipper tive problema com esse comando para programas em rede. Melhor criar função com DbSeek. NILSON

Visango contribuir com a questão, lá vai minha opinião: Estou convicto que corrupção de indices está diretamente relacionado com a qualidade dos equipamentos e respectivas configurações (principalmente estabilidade da rede). Já tive problema com corrupção de indices, mas na medida em que houve substituição de máquinas e revisão de configurações, os problemas acabaram. Há muito que não tenho problema, mas se os tiver, a primeira medida que tomo é ter uma conversa muito franca com o responsável pela empresa e advertí-lo sobre as consequências da má qualidade de equipamentos. Uso a seguinte sequencia de gravação: M->mREME:=REMES DBSETORDER(0) IF RECLOCK(4) REPLACE REMES WITH mREME DBSETORDER(1) UNLOCK ENDIF NILSON

Pessoal: Pergunta que não é sobre programa de FIVEWIN, mas se alguem puder dar uma dica: Por que o teclado não acentua em programas clipper ou edit no XP; sendo que no 98, Milenium, funcionava normalmente. NILSON

Pessoal: Pergunta que não é sobre programa de FIVEWIN, mas se alguem puder dar uma dica: Por que o teclado não acentua em programas clipper ou edit no XP; sendo que no 98, Milenium, funcionava normalmente. NILSON

ZE CARLOS e ORGANIZADORES Parabéns! Desta feita a programação está focando diretamente as dúvidas ultimamente mais questionadas no Forum NILSON (Campinas)

Pessoal A resposta já foi dada pelo José Carlos com o titulo "Duvida do Nilson sobre MySql". Quando postei novamente este tópico não tinha visto a resposta do José Carlos. Grato José Carlos Nilson

Pessoal: Dúvida no uso do MySql Tive um problema em uma placa de rede (defeito de Hardware) que detonou 2/3 de um banco de dados de 250.000 registros. Para resolver a situação, abri o DBF daquele banco dados do servidor, e dexei apenas os registros daqueles dias que não tinha Backup. Depois dei um append from do DBF que estava num Backup em outra máquina, feito 2 dias antes. Resolvi o problema. Dúvidas: a) seria possível fazer tudo isso usando o MySql? ao que me consta, ao usar o MySql, só se consegue manipular a estrutura do banco de dados, e não especificamente os dados. c) ao que me consta também, nem se conseque visualizar os dados. d) em sendo assim, se der um pau na máquina, qual seria a solução para juntar parte de um banco de dados de uma máquina com outro que estivesse em outra máquina (seria o APPEND FROM no Dbase). e) se der um pau na máquina, e não tiver nada gravado, perde-se tudo? Não sobraria nem mesmo uma parte do arquivo? NILSON

Pessoal: Dúvida no uso do MySql Tive um problema em uma placa de rede (defeito de Hardware) que detonou 2/3 de um banco de dados de 250.000 registros. Para resolver a situação, abri o DBF daquele banco dados do servidor, e dexei apenas os registros daqueles dias que não tinha Backup. Depois dei um append from do DBF que estava num Backup em outra máquina, feito 2 dias antes. Resolvi o problema. Dúvidas: a) seria possível fazer tudo isso usando o MySql? ao que me consta, ao usar o MySql, só se consegue manipular a estrutura do banco de dados, e não especificamente os dados. c) ao que me consta também, nem se conseque visualizar os dados. d) em sendo assim, se der um pau na máquina, qual seria a solução para juntar parte de um banco de dados de uma máquina com outro que estivesse em outra máquina (seria o APPEND FROM no Dbase). e) se der um pau na máquina, e não tiver nada gravado, perde-se tudo? Não sobraria nem mesmo uma parte do arquivo? NILSON

ASSUNTO: MySql Tive um problema em uma placa de rede (defeito de Hardware) que detonou 2/3 de um banco de dados de 250.000 registros. Para resolver a situação, abri o DBF daquele banco dados do servidor, e dexei apenas os registros daqueles dias que não tinha Backup. Depois dei um append from do DBF que estava num Backup em outra máquina, feito 2 dias antes. Resolvi o problema. Dúvidas: a) seria possível fazer tudo isso usando o MySql? ao que me consta, ao usar o MySql, só se consegue manipular a estrutura do banco de dados, e não especificamente os dados. c) ao que me consta também, nem se conseque visualizar os dados. d) em sendo assim, se der um pau na máquina, qual seria a solução para juntar parte de um banco de dados de uma máquina com outro que estivesse em outra máquina (seria o APPEND FROM no Dbase). e) se der um pau na máquina, e não tiver nada gravado, perde-se tudo? NILSON

Pessoal: No último encontro tinha um link para inscrição, etc. Este ano é só depositar? E se eu depositar e numero de participantes já estiver completo? A partir de quando poderá ser feito o depósito? Pra quem vai de ônibus até Terminal do Tietê, como chegar lá? Preciso do caminho das pedras. NILSON

TRABALHEM A FUNÇÃO ABAIXO QUE TALVEZ POSSAM RESOLVER O PROBLEMA =INT(((PRECO1/PRECO2)-INT(PRECO1/PRECO2))*100+0)/100+INT(+PRECO1/PRECO2) Passo a passo da formula acima: PRECO1/PRECO2 = 1.500,00/65,00 = 23,07692 INTEIRO DE 23,07692 = 23 23,07692 - 23 = 0,07692 0,07692 x 100 = 7,692308 INTEIRO DE 7,692308 = 7 7/100 = 0,07 23 + 0,07 = 23,07 Abs NILSON

SÉRGIO: Máquina local Olhe que interessante: testei a função abaixo e também não apagou: STATIC FUNCTION APAGA() AEVAL(DIRECTORY("C:\ANS\&DICO\LENCA.CDX"),{|aFile| FErase("C:\ANS\&DICO\"+aFile[1])}) IF FILE("LENCA.CDX") MsgAlert("Arquivo não Excluido!", "Atencao!") ELSE MsgAlert("Arquivo Excluido!", "Atencao!") ENDIF RETURN .T. NILSON

SERGIO: Não houve nada de extraordinário: queda de energia, saida brusca do sistema, queda de energia, travamento, ... grato pela atenção NILSON

Através da função abaixo houve reconhecimento do arquivo LENCA.CDX STATIC FUNCTION APAGA() IF FILE("LENCA.CDX") MsgAlert("Arquivo Localizado!", "Aguarde!") ENDIF RETURN .T. com esse teste ficam eliminadas as possibilidades: a)erro de diretorio b)extenção IDX c)espaço criado pelo XP Verificando as propriedades do arquivo: a)não está com atributo somente de leitura em atributos avançados, está habilitado: a) arquivo está pronto para ser arquivado indexar o arquivo com serviço de indexação para agilizar a pesquisa Obrigado a todos pela atenção NILSON

Existe alguma outra possibilidade? Nenhuma das alternativas deu certo. grato NILSON

Angelo Também não apaga grato NILSON

Doug Esta sim! grato NILSON

Doug Estão no mesmo diretorio. São excluidos fora do sistema. Abs. NILSON

PESSOAL, preciso de ajuda: Porque não estou conseguindo apagar o arquivo LENCA.CDX. com nenhuma das funções abaixo: STATIC FUNCTION APAGA() IF NETUSE("CALEN","LENCA",.T.,10) FERASE("LENCA.CDX") PACK ELSE MsgAlert("Arquivo não Disponivel!", "Aguarde!") ENDIF RETURN .T. STATIC FUNCTION APAGA01() IF NETUSE("CALEN","LENCA",.T.,10) ERASE("LENCA.CDX") PACK ELSE MsgAlert("Arquivo não Disponivel!", "Aguarde!") ENDIF RETURN .T. STATIC FUNCTION APAGA02() IF NETUSE("CALEN","LENCA",.T.,10) DELETE FILE("LENCA.CDX") PACK ELSE MsgAlert("Arquivo não Disponivel!", "Aguarde!") ENDIF RETURN .T. NILSON

PESSOAL, preciso de ajuda: Porque não estou conseguindo apagar o arquivo LENCA.CDX. com nenhuma das funções abaixo: STATIC FUNCTION APAGA() IF NETUSE("CALEN","LENCA",.T.,10) FERASE("LENCA.CDX") PACK ELSE MsgAlert("Arquivo não Disponivel!", "Aguarde!") ENDIF RETURN .T. STATIC FUNCTION APAGA01() IF NETUSE("CALEN","LENCA",.T.,10) ERASE("LENCA.CDX") PACK ELSE MsgAlert("Arquivo não Disponivel!", "Aguarde!") ENDIF RETURN .T. STATIC FUNCTION APAGA02() IF NETUSE("CALEN","LENCA",.T.,10) DELETE FILE("LENCA.CDX") PACK ELSE MsgAlert("Arquivo não Disponivel!", "Aguarde!") ENDIF RETURN .T. NILSON

Pra gente terminar essa lambança sem deixar dúvidas: Concordo plenamente quando você diz que o CUSTO MÉDIO somente sofrerá alteração pela movimentação de ENTRADA. Como também não há como confundir CUSTO com VALOR DO ESTOQUE. O que eu tentei reforçar é que o CUSTO MÉDIO será multiplicado pela quantidade de SAIDAS para que esse valor encontrado seja diminuido do VALOR DO ESTOQUE. Portanto, é VALOR DO ESTOQUE - VALOR DE SAIDA; só que para se achar o valor de saida é necessária a multiplicação da quantidade pelo CUSTO MÉDIO. Acho que chegamos num acordo Abs. rsssss NILSON

Marllon Figueiredo Reenviando a mensagem, pois saiu toda bagunçada Tirei o exemplo abaixo da publicação MAPA FISCAL (empresa IOB), boletim: 01/2006, página 4 01/12 COMPRA 120 x 800,00 = 96.000,00 + SALDOS 120 800,00 96.000,00 08/12 COMPRA 80 x 805,00 = 64.400,00 + SALDOS 200 802,00 160.400,00 16/12 COMPRA 100 x 810,00 = 81.000,00 + SALDOS 300 804,67 241.400,00 23/12 COMPRA 100 x 815,00 = 81.500,00 + SALDOS 400 807,25 322.900,00 30/12 VENDA 300 x 807,25 = 242.175,00 - SALDOS 100 807,25 80.725,00 Se eu digitar as QUANTIDADES e VALORES de entrada, e a QUANTIDADE de baixa no meu sistema, vai dar exatamente o resultado acima. Eu não disse que as SAÃDAS tem reflexo no calculo do custo médio, mas sim o que segue abaixo: o reflexo do CUSTO MÉDIO será determinante na multiplicação pela quantidade de saídas, porque o valor encontrado vai diminir o saldo do estoque. Abs. NILSON