Valdir

Caríssimos amigos, me perdoem a expressão...

"Vocês são Phods" 

A cada postagem que fazem, a minha decisão se torna cada mais difícil e por consequência, venho me perguntando:

- Como posso parar com tudo isso ?

Embora o cansaço mental e físico seja enorme,  começo a repensar pela continuidade.

Como disse antes, o meu Sistema vem funcionando estável já há alguns anos, sem que necessite de minhas intervenções no dia a dia.

Talvez pela falta destas atividades diária, me sinto desmotivado e sem ânimo para enfrentar novos horizontes.

Não é a toa que este, sem sombras de dúvidas, é o melhor Fórum de Programação que já existiu.;

Duvido que surja outro com tamanha Família, composta por pessoas de caráter ilibado, que sempre estão dispostos a ajudar.

Mais uma vez, agradeço a Deus por ter me concedido o privilégio de conhecer e me relacionar com Seres Humanos Fantásticos.

Por hora, estarei dando um tempinho, analisando tudo o que aqui foi falado e decidir o meu futuro.

Agradeço de Coração à todos vocês.

Abraços.

Boa tarde prezados amigos...

Depois de quase 45 anos de contribuição, finalmente começo a pensar na minha aposentadoria.

Foram muitos anos de dedicação como empregado e autônomo.

Os piores 25 anos foram aqueles que eu acreditava que fazia parte de um seleto grupo de privilegiados, quando trabalhava numa Multinacional. 

Somente após perder o tão fabuloso emprego, é que fui me dar conta que era apenas um número e quando completei 45 de idade, fui dispensado com todas as honras de um dispensável.

Quando me sentia totalmente perdido, brigando para sobreviver através de Consultorias, redescobrir o fabuloso munda da programação no qual eu tinha feito meus primeiros cursos durante o início dos anos 1980.

Pois bem, resolvi me arriscar e tentar recuperar o tempo perdido e voltei aos meus estudos.

Infelizmente, a moda do momento era um tal de Delphi.

De cara não gostei e voltei a minha atenção ao velho e bom Clipper.

Nessas idas e vindas, acabei descobrindo essa "Maravilhosa Família" daqui do Fórum Fivewin Brasil.

Muitos, más muitos mesmos me ajudaram, sem querer nada em troca.

Tive a Honra e a Oportunidade de Receber em minha residência uma verdadeira "Constelação de Seres Humanos" formidáveis.

Naquela oportunidade tive o privilégio de conhecer pessoalmente o saudoso Elias Jr., bem como os prezados amigos Vagner Wirts e João Santos, vulgo Kapiaba.

Não muito tempo depois, também tive o privilégio de conhecer outro extra terrestre... o meu grande amigo Gilmer Tavares.

Pois bem... Com a ajuda de todas essas personalidades e dos amigos desta comunidade, consegui desenvolver e comercializar o meu Sistema de Gestão de Chão de Fábrica, o qual mantenho ativo e estável já há mais de 10 anos e que acabou virando o meu projeto de vida.

Infelizmente a idade está chegando e preciso tomar uma decisão se devo ou não "Parar" de trabalhar.

Existem muitos "Prós"  e  "Contras" , o que acaba tornando uma decisão muito difícil.

Não é fácil lagar tudo, porém não tenho mais ânimo para acompanhar as últimas evoluções que o Mercado exige.

Então pergunto...

Alguém já passou ou está passando pelas mesmas dúvidas ???

Obrigado.

Olá Edu.

O cálculo da DIFAL deverá ser realizado sempre que uma venda for Interestadual e o cliente seja o Consumidor Final.

Em 24/10/2023 at 19:55, Jorge Andrade disse:

Boa idéia Valdir, desde de que vc não leve este peixe da foto e o João Kapi (O corintiano anda enrustido). ahahahahah  

Jorge...

Só a foto deste peixe pesou 2,5 kg.

2 horas atrás, alex2002 disse:

Rapaz do céu, o "VaiDriblando" apareceu.

Está sumido meu amigo.

Um abraço.

Alexandre Pereira

Grande amigo Alexandre Pereira...

Rapaz, é muito trampo e pouco dinheiro.

Precisamos marcar um Encontro dos Amigos daqui do Fórum para tomar umas e outras, além de matar a saudades desta galera fantástica.

Abraços.

Indico: https://www.teamviewer.com/pt-br/

Pagando uma pequena mensalidade, você terá acesso a outras funcionalidades que a versão gratuita não disponibiliza.

Além disso,  você pode criar uma versão QS com sua Tela de Suporte Exclusiva e disponibilizá-la para todos os seus clientes.

Utilizo a versão paga do Teamviewer há mais de 8 anos e eu e meus clientes, estamos muito satisfeitos.

abrs.

Olá Beto...

Isso ocorreu comigo num único cliente.

Até hoje não encontrei a solução para este problema e mesmo o pessoal da FlexDocs também não conseguiram decifrar o motivo do erro, pois a DLL estava sim, instalada e funcionando.

Não sei como o seu Sistema está se comunicando com a DLL.

No meu caso, a comunicação é feita através do aplicativo de NFe no Try e com o envio das informações pelos Arquivos .DBF

Para minimizar esse problema, o cliente executa todo o processo para a emissão da NFe e transmite as informações para o aplicativo NFe.

A partir dai, é chamado o aplicativo da NFe por fora do meu Sistema.

Foi esta a única solução encontrada.

Espero ter ajudado.

Abraços.

Em 28/07/2022 at 22:59, waway disse:

Vou tentar não percorrer todo o loop , e fazer um prg teste para Kabiaba testar , mas gostaria de saber se alguém já testou as LIBS RMDBFCDX , REDBFCDX a RMDBFCDX me parece que vem junto com xharbour pago!

 

Coloque um SYSREFRESH(.T.) logo após o While, dentro do Loop.

Só coloque o DBCOMMIT() após o ENDDO.

Isso irá descarregar a memória a cada loop e ao final, realizará a gravação no seu Arquivo .dbf.

abraços.

13 horas atrás, macs disse:

Exemplo da Rejeição:

• Rejeição[815]: Valor do ICMS Interestadual para UF de Destino difere do calculado [nItem:1](Valor informado: 1.205.92, Valor calculado: 1.267,93)

Por isso que gostaria que alguém postasse o cálculo que é feito para o DIFAL pra comparar com o meu, pois estava funcionando até hoje. 

Reveja a diferença entre as Aliquotas Internas e Externas do ICMS... 

Provavelmente o erro está ai.

Abraços.

Se estiver numa rede e dentro de um While, sugiro inserir um Sysrefresh()  no começo do while.

Isso irá descarregar os conteúdos da memória na rede.

Abraços.

Altere a sua ButtonBar para esta forma:

 DEFINE BUTTONBAR oBar _3D OF oWnd SIZE 80,70 2007

2 horas atrás, alex2002 disse:

Valdir,

É porque como o seu get é o ultimo campo e não tem mais nenhum para o TABSTOP ir, acontece isso. Já aconteceu comigo, e eu coloquei um get bem pequeno (imperceptível) pra resolver.

Um abraço,

Alexandre Pereira

Foi exatamente isso que imaginei.

Obrigado meu estimado amigo.

Abraços.

14 minutos atrás, kapiaba disse:

Trem esquisito. Não tem botão de Saida, gravação nem nada? Ponha um botão de Saida, mesmo que você o invisibileze com o Hide() e ponha o CANCEL, para ver a reação do VALID, talkey()? Programação portuguesa, é?

kkkkkkkkkkkkkkkkkkkkkk

Resolvio...

Não me pergunte porquê, pois não tenho a minima ideia porque deu certo.

Para Resolver, fiz uma bela gambiarra incluindo um novo Get,  sobrepondo e mantendo o anterior.

Apenas redefini a TabStop para ser o último no get original...

Dai funfou certinho.

Como estou sem tempo, vou deixar assim e quando estiver mais tranquilo, volto a estudar este caso, pois na minha opinião, não tem lógica nenhuma para não estar funcionando sem esta Gambiarra.

Valeu pela ajuda meu amigo...

Obrigado.

17 minutos atrás, kapiaba disse:

Ponha CANCEL no botão de Saida, para ver se o VALID aciona.

Repare na imagem que não existem botões...

A Saída da Tela é feita pela Validação da Função FFuncio.

Obrigado.

8 minutos atrás, kapiaba disse:

Cambie:

RETURN(lOk)

Por:

RETURN( .T )

e

RETURN( .F. )

o GET tá numérico, mas você busca ALFA? Ou entendi errado?

Tranka...

A FUNCTION FFUNCIO(mFuncio,oDlg,oGet) não é nem acionada, por isso não tenho a validação.

O problema está na validação do Get ( "antigo Read" ) do Clipper que não passa o valor para a chamada da Função.

Se eu colocar um Break point no Início desta Função, também não será executado. Ok ?

Obrigado.

14 minutos atrás, kapiaba disse:

Poste FFUNCIO() para eu simular.

"

//-------------------------------------------------------------------------//
FUNCTION FFUNCIO(mFuncio,oDlg,oGet)
LOCAL lOk:=.F.

  dbSelectArea("FUN")
  FUN->(OrdSetFocus("BAR"))
  FUN->(dbGoTop())
  FUN->(DBSEEK(mFuncio))
  IF FOUND()
     lOk := .T.
     mFuncio  := FUN->COD_FUN
  ENDIF 

  oGet[04]:Refresh(.T.)
  oDlg:UPDATE()
RETURN(lOk)

Agora, kapiaba disse:

KD o ACTION? Poste o código.

Fala Tranka...

Obrigado por responder.

É feita uma Validação e não uma Ação.

"REDEFINE GET oGet[04] VAR mFuncio PICTURE "99999999" ID 104 OF oDlg ;

VALID ( FFUNCIO(mFuncio,oGet,oDlg)) UPDATE"

A variável mFuncio é Caracter de 8 posições

A Função FFUNCIO() Pesquisa e Valida o valor digitado neste Get.

Obrigado pela ajuda.

Boas...

Nesta Tela abaixo devo realizar os Apontamentos, porém quando informo o a Código do Colaborador acionando a função de Pesquisa e Validação do Campo, essas não são nem acionadas. 

O Get recebe o Focus, porém não realiza nenhuma atividade ao final da Digitação

Alguém já passou por problema semelhante ou pode me dar uma Luz em como resolver esse Problema ?

Obrigado.

Caríssimos amigos...

Obrigado pelas Respostas.

Eduardo... perfeito.

Valeu.

Abraços.

Bom dia amigos...

Inicialmente, agradeço novamente as respostas.

Eduardo, após analisar a sua sugestão, fiquei com uma dúvida:

Imaginemos que tenhamos um BD ou Arquivo DBF com aproximadamente 100 usuários que acessam os módulos do Sistema de acordo com suas permissões.

Usuário 01 Pode Incluir e Alterar Registros na Tabela Clientes, más não pode Excluir e nem Extrair Relatórios

Usuário 02 Pode Alterar Registros, más não pode Incluir, Excluir e Extrair Relatórios

Usuário 03 Pode Extrair Relatórios restrito a impressão de Etiquetas, más não pode Incluir,Alterar,Excluir e Extrair  outros Relatórios

Usuário 05 Pode Incluir,Alterar,Excluir e Extrais todos os Relatórios...

e assim sucessivamente para cada Módulo do Sistema.

Se criarmos as Tabelas com apenas 3 campos, teríamos que percorrer toda a tabela, filtrada pelo ID do Código do Usuário. Certo ?

Neste caso, o consumo de recursos da Rede não seria maior justamente por ter que verificar cada ID de Acesso ?

Por outro lado, se criarmos várias Tabelas com um número limitado de 60 Campos e as vincularmos através de uma Join, não seria a mesma coisa ?

E no Caso dos Arquivos DBF, também não se aplicariam as mesmas regras ?

Obrigado pela aula.

Abraços

Amigos...

Obrigado pelas respostas.

No momento estou fora, devendo retornar na próxima Segunda feira.

Irei estudar as opções.

Valeu.

Abraços.

Prezados amigos...

Obrigado pelas respostas.

Eduardo, a estrutura é muito simples.

Em Dbf:

Código do Colaborador, N, 3,0

Aces01, C, 1, 0

Aces02, C, 1, 0...

E assim sucessivamente até os atuais 280 campos.

Cada campo será preenchido por um carácter, oriundo de uma CheckBox para cada opção.

Tentei fazer através da Tree, mas infelizmente não consegui.

Abraços.

Boas...

Alguém saberia me dizer se existem alguns limites para adicionar "Campos" em Arquivos Dbf ou em Tabelas Sql ?

Estou desenvolvendo uma rotina de acesso para cada atividade dentro do meu Sistema e já foram consumidos 280 campos.

Como ainda estou na metade do trabalho, gostaria de ter certeza que não ocorrerá erros se houver essas limitações.

Obrigado

Marcelo...

A wmiservice é uma função que está dentro da pcinfo.prg da pasta samples.

Abraços.

Perdoem a minha "Santa Ignorância"...

Porque não setar uma variável ao invés do dB ?

Eu faço isso usando Timer para avaliar o valor de uma variável pública a cada segundo.

Sempre que algum usuário acessa determinado Campo e o Valida, altero o valor desta variável para executar outra rotina.

Ao final desta rotina. retorno o valor anterior desta varável.

Não sei se é isso, porém no meu caso funfa certinho.

Abraços.