PC Toledo

Gilberto, aí vai o meu e-mail. Se você poder fazer esse favor eu fico muito agradecido:

miraclesistemas@yahoo.com.br

) :*

Qual o nome do arquivo dessa API do Maligno?

Faz um tempão que não apareço! :xau

Feliz Natal para todos e um Ano Novo cheio de Paz, Amor (Flores também, para quem quiser!) e dinheiro no bolso! :))

Alguém sabe onde encontro fontes de programas em Clipper para download gratuitamente? Estou precisando fazer um sistema de Contabilidade e não ...

Primeiro devo alertar que "legalmente" não pode haver venda sem estoque do contrário vc pratica uma coisa chamada "lockout" prevista na legislação como um ato ilícito passivo de multa pelo ICMS.

Onde se pode encontrar mais sobre essa lei/norma/decreto e valor da multa?

Olá, amigos!

Faz algum tempo que não apareço. Andei meio ocupado... :(Neg
Alguém sabe como fazer para iniciar o Windows XP direto no prompt de comando assim que o computador liga? Teria que ser como se o computador não tivesse Windows instalado, como se estivesse rodando o antigo Ms-Dos, apenas ...

O PEDID02 saiu sem o .CDX por um acidente na hora de copiar para a mensagem. No código original ele é acompanhado do .CDX, Andril.

Não verifiquei se isso acontece com este cliente apenas. vou dar uma verificada. Pode ser que o DBF esteja danificado, mesmo.

Mas, por via das dúvidas, vou passar o ...

O erro aponta exatamente para a linha 1119, caindo diretamente no comando DELETE.

Ha! E eu nem sei o que é Code Block. Desculpem a ignorância, mas é que eu aprendi Clipper autodidaticamente e o que eu não conseguia entender, procurava uma outra forma de fazer para que desse o mesmo resultado.
:{
São Code Blocks as rotinas de Loop e Escolha com If then else?

O prazo já era... :? Consegui enrolar até amanhã. :-o

Ai vão as funções ABRE e BLOQUEIA. Eu as utilizo há tempos e nunca tive problema com elas. :-o


FUNCTION ABRE(cARQUIVO, nTEMPO, cMODO)
DO WHILE nTEMPO > 0
IF cMODO = "C"
USE &cARQUIVO SHARED
ELSE
USE &cARQUIVO EXCLUSIVE
ENDIF
IF NETERR ...

Amigos, o código é o seguinte:

SELECT 31
IF .NOT. ABRE("PEDIDOS.DBF",5,"C")
ALERT("ARQUIVO PEDIDOS.DBF INDISPONIVEL NO MOMENTO!",{"OK"},"15/16")
CLOSE DATA
RETURN
END IF
SET INDEX TO PEDID01.CDX,PEDID02
SET ORDER TO 1
nPEDIDO = 29
SEEK cEMPRESA + STR(nPEDIDO)
IF FOUND()
IF BLOQUEIA(5)
DELETE ...

Ninguém respondeu!? :(
Bem... de qualquer forma fui tentando um monte de coisas e encontrei uma forma que deu certo! :))
Na página de Updates da Grisoft (a fabricante do AVG), estão disponíveis diariamente as atualizações. É só baixá-las para uma pasta no HD e mandar o AVG atualizar do "FOLDER ...

Alguém sabe em que pasta o antivírus AVG guarda as atualizações? Tenho ele atualizado no serviço e gostaria de atualizar o da minha casa, onde não tenho internet.

Tenta isso aqui:


//(...)
@ nVALOR = 0
//(...)
@ 10,10 SAY "VALOR R$" GET nVALOR WHEN MSG() PICTURE "@E 999999.99"
//(...)
FUNCTION MSG
LOCAL tTELAPREVIA
LOCAL tCORPREVIA
SAVE SCREEN TO tTELAPREVIA
tCORPREVIA = SETCOLOR()
SET COLOR TO 15/16
IF READVAR() = "NVALOR" //O NOME DO CAMPO TEM QUE SER ...

Há alguma forma de mostrar na tela uma espécie de barra progressiva enquanto a impressora matricial está imprimindo ou uma mensagem do tipo "Imprimindo... <esc> cancelar"?

Olá, gente!

A classy pode ser baixada no seguinte link: http://www.vetusware.com/select-by/operation-system/DOS/?os=1

É só procurar pela Classy...

Agora, como usar vocês encontram algo em:
http://www.appsolutions.com/Classy/docs/ClassyIntro.htm
http://www.appsolutions.com/Classy/docs/ClassyAdmin ...