oziel
-
Posts
185 -
Joined
-
Last visited
-
Days Won
5
Posts posted by oziel
-
-
Eu trabalho em uma empresa que usa os Progs da PC Sistema, não consegui em minha visita a Goiás saber qual a linguagem que a PC usava, eles mantém em segredo, hoje a PC faz parte do grupo TOTVS.
Nesta empresa trabalho como gestor de contas financeiras, e tb como desenvolvedor programas em FWH.
OK....
Abraços..
-
Ache interessante o tópico, pois algumas vezes quando falo em FWh alguns olha com espanto, por não conhecerem a linguagem e seus produtos. Não me arrependo em trabalhar com ele, pena que não tenho tempo para desenvolver comercialmente, só os softwares para a empresa que trabalho. (Gestão de Recursos Humanos e atualmente estou migrando o Programa de Gestão de Frotas que é em Clipper 5.3)
Tratando da Totvs trabalho em uma empresa que faz parte do grupo Totvs a PC Sistemas de Goiás, com o Winthor.
-
Obrigado.
Vou testar e depois dou o retorno.
-
Olá.
Estou com um problema em meu sistema de RH, pois vários usuários estão fechando o programa no X da tela inicial, isso provoca o não fechamento dos arquivos, o problema surge depois.
Em uma Dialog é só desabilitar o Caption - mas não sei como fazer na tela inicial.
Abraços.
OZIEL LOPES
-
Prezados.
Hoje me deparei com um problema, após baixar alguns arquivos PDF da Faculdade... foi a única coisa que baixei.
Quando terminei de compilar um dos meus programas recebi uma mensagem qdo tentava abrir qualquer janela ou Folder. (Windows sem disco - Cancelar - Tentar novamente - Continuar). A primeira vista pensei que fosse problemas com a compilação recente, mas ao executar outros programas compilados anteriormente o problema continuava, fiz um teste em outra maq. e o problema não apareceu. Portanto o problema estava em minha máquina.
Resolvi utilizar o Combofix e ele detetou alterações nos arquivos: Winhelp.ini - Atapi.sys - Calc.exe - FlashPlayerapp.exe...
ele resolveu a situação, fazendo a limpeza.
Fica ai a dica...
Abraços.
-
Ei
João
Deu um probleminha, mais consegui resolver.
Obrigado e Forte abraço.
oLbx2:bKeyDown := {|nKey| IIF (nKey == K_ENTER , (PegaCli3(@cPNomec,@cCodc,@cNomeC,@cEres,@cRBair,@cCity,@cCPF,@cRfone,@nLCred,@cTipoDoc),(oLbx2:Refresh(), oDlg2:End())),)}// OK
-
Caros colegas.
Tenho uma função abaixo que após a pesquisa, pega os dados e retorna.
O que eu queria é saber se há uma forma de que após a seleção no banco de dados, eu apertar a tecla ENTER e ele
selecionar os dados.
Na forma atual quando damos um click (DBCLK) no cliente selecionado ou acionamos o botão volta,
ele faz essa ação, através da Function PesqCli3().
Abraços
//-------------------------------------------------------------------------------------------------------------------------------------
FUNCTION PesqCli2(cPNomec,cCodc,cNomeC,cEres,cRBair,cCity,cCPF,cRFone,nLCred,cTipoDoc,oDlg)
LOCAL oDlg2, oLbx2 // Objetos Caixa de Dialogo
LOCAL oFnt, oG120
// Abrir Base Dados ---------------------------------------------------
Select CADCLI
Set Index to CADCLI
Set Order to 1
DbGoTop()
CADCLI->(DBSEEK(ALLTRIM(cPNomec)))
If ! Found()
MsgStop(OemToAnsi("Cliente nao Cadastrado: " , " Mensagem "))
Return .F.
Endif
// Caixa de Dialogo ---------------------------------------------------
DEFINE FONT oFnt NAME "Arial" SIZE 0, -10
oNome = Space(20)
DEFINE DIALOG oDlg2 RESOURCE "BROWSEDUPCLI" TITLE "SICEW - CORE - Cadastro de Clientes."
REDEFINE LISTBOX oLbx2 FIELDS CADCLI->CODC , ;
SUBST(CADCLI->NOME,1,30) , ;
CADCLI->RFONE , ;
CADCLI->ERES , ;
CADCLI->RBAIR , ;
CADCLI->CITY ;
HEADERS "Codigo","Cliente","Telefone","End. ","Bairro","Cidade";
FIELDSIZES 48, 220, 60, 70, 70, 60 ;
COLOR CLR_BLACK, CLR_MENTA2 ;
FONT oFnt ;
ID 101 ;
OF oDlg2 ;
ON DBLCLICK(PegaCli3(@cPNomec,@cCodc,@cNomeC,@cEres,@cRBair,@cCity,@cCPF,@cRfone,@nLCred,@cTipoDoc),oLbx2:Refresh(), oDlg2:End())
REDEFINE BTNBMP RESOURCE "BTNVOLTA" ID 109 OF oDlg2 ;
ACTION( PegaCli3(@cPNomec,@cCodc,@cNomeC,@cEres,@cRBair,@cCity,@cCPF,@cRfone,@nLCred,@cTipoDoc),,oLbx2:Refresh(),oDlg2:End() );
TOOLTIP OemToAnsi( "Voltar ao Menu Principal" ) ;
NOBORDER
ACTIVATE DIALOG oDlg2 CENTERED
RELEASE oFnt
RETURN .T.
//------------------------------------------------------------------------
Function PegaCli3(cPNomec,cCodc,cNomeC,cEres,cRBair,cCity,cCPF,cRfone,nLCred,cTipoDoc,oDlg)
SysRefresh()
cCodc := CadCli->Codc
cNomeC := CadCli->Nome
cEres := CadCli->ERes
cRBair := CadCli->RBair
cCity := CadCli->City
cCPF := CadCli->CPF
cRfone := CadCli->RFone
nSaldt := CadCli->Saldt
cTipoDoc := Cadcli->TipoDoc
nLCred := Cadcli->LCred - Cadcli->Saldt
CadCli->(DbsetOrder(1))
Return .F.
//------------------------------------------------------------------------- -
O Valdir ou outro companheiro solicitou que se eu fosse contribuir que fizesse a pre-inscrição.
Portanto já está feita, e aguardo qualquer comunicação para a contribuição financeira.
Abraços
oziellsilva@hotmail.com
-
001 - Valdir - JundiaÃ/SP
002 - Ana - Cianorte/PR
003 - Cesar - Cianorte/PR
004 - EMotta Sistemas - Nova Odessa/SP
005 - EMotta Sistemas - Nova Odessa/SP
006 - EMotta Sistemas - Nova Odessa/SP
007 - EMotta Sistemas - Nova Odessa/SP
008 - EMotta Sistemas - Nova Odessa/SP
009 - Império010 - Evandro - Curvelo/MG
011 - Dorneles
012 - Dorneles
013 - Kleyber Derick / MA
014 - Geraldo (gbsilva)
015 - Fnl - Jorge (SP)
016 - - Fnl - Aum (SP)
017 - Rubens (SP)
018 - Cleber Conde - Caratinga/MG
019- Sebastião de Oliveira Pessoa (TiaoFw) / Contagem - MG
020 - Luiz Roberto Servulo / Diadema/SP
021 - Jackson Douglas C. Brito - Boa Vista (RR)
022 - Alexandre Pereira (alex2002) - Belo Horizonte / MG
023 - Leonardo Machado(Sygecom ) - Alvorada / RS024 - Gilmer Luiz Orro Tavares (fivewin.com.br) - Sorocaba / SP025 - Herberson Carlos Gontijo (Ponteware Informática) - Belo Horizonte / MG026 - André Emerenciano dos Santos (Ponteware Informática) - Belo Horizonte / MG027 - Carlos Eduardo Leÿendecker (decker) - São Paulo - SP
028 - José Eduardo Chamon - São Paulo029 - Vailton Renato - São Paulo030 - José Manoel - São Paulo
031 - Rodrigo Portugal - São Paulo
032 - Wesley Rodrigues - São Paulo
033 - Júnior (WebNet) - São Paulo034 - Everton Battiston - Chapecó - SC
035 - Marcio Eduardo Teixeira - Visconde do Rio Branco - MG
036 - LHSISTEMAS - Vitória ES
037 - LHSISTEMAS - Vitória ES
038 - José Carlos - Guarulhos - SP
039 - Augusto José S Gomes - Suprisystem Ribeirão Preto SP040 - Narlem - BH/MG041 - Enrrique Vertiz - Lima - Peru
042 - Carlos Ladron de Guevara - Lima - Peru043 - Ralph del Castillo - Lima - Peru044 - Alessandro F. Silva - Ribeirão Preto / SP
046 - OZIEL LOPES - SANTO ANTONIO DE JESUS - BA.
-
Sempre tive vontade de ir ao congresso, a tendência mesmo é de acontecer em Novembro?
Para mim esta data está complicada, mas lhes informo que mesmo não podendo ir se o valor for até R$ 150,00 como inscrição, estou disposto a fazer uma contribuição em prol do encontro.
Sempre tive apoio por parte dos participantes do fórum, para alguns problemas que tive e agora estou pretendo fazer algumas mudanças em minha vida para 2014 e FWH está presente.
Assim podem contar comigo.
Sempre estarei dando uma olhada no tópico.
Abraços.
Oziel Lopes
-
Caros Colegas:
Todos que trabalham com Vendas de Produtos sabem que ontem entrou em vigor
a Lei 12.741/2012 que tratava da discriminação dos Impostos no Cupom Fiscal e
tb nas Notas Fiscais.
Vejam essa nota de Esclarecimento da Casa Civil da Presidência da República.
NOTA DE ESCLARECIMENTO SOBRE A LEI 12.741/2012– 10/06/2013
http://www.casacivil.gov.br/noticias/2013/06/nota-de-esclarecimento-2013-10-06-2013
Abraços:OZIEL LOPES.
-
Concordo com vcs. já tive problemas relacionados aos .DBT bem como os .FTP ambos arquivos de memo.
Não fiz nenhuma modificação nos fontes, mas fiz uma revisão na Rede, Placa etc. bem como o Servidor que
era uma máquina (Win XP) que também operava como terminal, passei a utilizar um servidor Linux. Não é por ser
Linux e sim o fato da exclusividade do serviço.
Nestes dois últimos anos não tenho nenhuma reclamação desse tipo.
-
Emotta - Kapiaba
Guardei a dica... quando eu fizer outras mudanças o que acontecer informo...
Abraços...
OZIEL
-
Obrigado
Kapiaba.
Essa é a primeira vez que utilizo arq com o comando Temporary
Já fiz os testes funcionou perfeito.
:DOZIEL LOPES
-
Eu fiz o trabalho com o OrdScope foi perfeito mas estou tentando fazer com arquivo
temporário. De acordo com o exemplo que foi dado acima.
Vejam como fiz, e o problema acontece quanto tenta abrir o arquivo .CDX
Abraços
Oziel Lopes
//----------------------------------------------------------------------------------------
Select Cadastro
INDEX ON IDADE+SEXO+GRAU+AREA+NOME TAG 05 TO CADTMP ;
FOR ( .NOT. EOF() ) .AND. ;
CADASTRO->IDADE >= "cIdade1" .AND. ;
CADASTRO->IDADE <= "cIdade2" .AND. ;
CADASTRO->SEXO = "cSexo" .AND. ;
CADASTRO->GRAU = "cGrau" .AND. ;
CADASTRO->AREA = "cArea" TEMPORARY
Select Cadastro
Set Index to CADTMP TEMPORARY // -------- LInha 2602
DBGotop()
//-- ERRO DO SISTEMA -------------------------------------------------------
Application
===========
Path and name: C:\Proj_FWH\grh\GRH.EXE (32 bits)
Size: 2,418,688 bytes
Time from start: 0 hours 0 mins 20 secs
Error occurred at: 10/05/13, 16:18:06
Error description: (DOS Error 2) DBFCDX/1003 Open error: CADTMP.cdx
Stack Calls
===========
Called from: => ORDLISTADD(0)
Called from: => PESQIDADE(2602)
Called from: cadastro.000 => (b)CADASTRO(185)
Called from: DBTNBMP.PRG => TDBTNBMP:CLICK(409)
Called from: DBTNBMP.PRG => TDBTNBMP:LBUTTONUP(481)
-
Preciso de informação sobre ECF(FW) homologado na Bahia, para uma parceria com o meu programa.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC582 - Pelles C - xDev.
-
Preciso de informação sobre ECF(FW) homologado na Bahia, para uma parceria com o meu programa.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC582 - Pelles C - xDev.
-
Renato
No site do Vailton vc baixa o xDev 0.70 e tb o
C++ 5.8.2
Lembres-se que é necessário Fazer um Cadastro.
http://www.vailton.com.br/index.php/downloads
Att.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Ok.
Fiz várias alterações e os Gets estão atualizando -
Tudo ok..
Obrigado mais uma vez
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Fiz uma alteração na PesqFor(nCodfor,cNomeFor)
de Return Nil -> para Return .T. e não deu o erro - agora vou ver se as variáver estão atualizadas...
Obrigado...
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Fiz as altrações do Return (.f.) e Return (.T.) e desativei o o CursorWait() mas o problema ainda continua quanto dou ESC no Browse ou Exit. - Sugeridas por ATNSOFT E KAIPABA.
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U
Stack Calls
===========
Called from: TGET.PRG => CORGET:LVALID(0)
Called from: CONTROL.PRG => CORGET:FWLOSTFOCUS(0)
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Senhores:
Estou com um problema na pesquisa no GET, quando fecho o Browse, dar o erro abaixo. Vejam o programa e as funçoes.
//-----------------------------------------------
#include "TsButton.ch"
#include "Tcbrowse.ch"
#include "Corget.ch"
#include "BtnGet.ch"
........................
FUNCTION GetCadNovo( lAppend )
........................
REDEFINE GET oG22 VAR cNomeFor ID 30 OF oDlg ;
Valid (PesqFor(nCodfor,cNomeFor)
........................
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
//------------------------------------------------------------------------
FUNCTION PesqFor(nCodfor,cNomeFor)
LOCAL oDlg, oLbx // Objetos Caixa de Dialogo
LOCAL oFnt, oG120
// Abrir Base Dados ---------------------------------------------------
Select CadFor
Set Index to CadFor
Set Order to 2
DbGoTop()
DEFINE FONT oFnt NAME "Arial" SIZE 0, -10
// Caixa de Dialogo ---------------------------------------------------
oNome = Space(20)
DEFINE DIALOG oDlg RESOURCE "BROWSEFOR" TITLE "SICEW - Cadastro de Fornecedores."
CursorWait()
REDEFINE LISTBOX oLbx FIELDS Transf(CadFor->CODF , "9999") , ;
CadFor->Nome , ;
CadFor->CITY , ;
CadFor->EST ;
HEADERS "Codigo"," Fornecedor "," Cidade ","Est" ;
FIELDSIZES 30, 250, 150, 20 ;
COLOR CLR_BLACK, CLR_VDCL1 ;
FONT oFnt ;
ID 101 ;
OF oDlg ;
ON DBLCLICK(PesqFor2(nCodFor,cNomeFor), oLbx:Refresh())
REDEFINE BTNBMP RESOURCE "BTNEXIT" ID 109 OF oDlg ;
ACTION( oDlg:Update(), oDlg:End() ) ;
TOOLTIP OemToAnsi( "Voltar ao Menu Principal" ) ;
NOBORDER
ACTIVATE DIALOG oDlg CENTERED
RELEASE oFnt
RETURN NIL
//-------------------------------------------------------------
Static Function PesqFor2(nCodf,cNomeFor)
local cNome := Space( 30 )
local nRecNo := RecNo()
SET SOFTSEEK ON
Select CadFor
SET ORDER TO 2
Goto top
If MsgGet( "Procurar", " Nome do Fornecedor ", @cNome, ;
".\bmp\lupa.bmp" )
If ! CadFor->(DbSeek( alltrim(upper(cNome)) ))
MsgAlert( "Cadstro Não encontrado! ","Informa‡ao" )
SET ORDER TO 2
Goto top
GO nRecNo
Endif
nCodFor = CadFor->Codf
cNomeFor = CadFor->Nome
Endif
Return Nil
//----------------------------------------------------------------
Erro na saida.
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U
Stack Calls
===========
Called from: TGET.PRG => CORGET:LVALID(0)
Called from: CONTROL.PRG => CORGET:FWLOSTFOCUS(0)
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - oziel on 16/08/2012 16:10:49
-
Senhores:
Estou com um problema na pesquisa no GET, quando fecho o Browse, dar o erro abaixo. Vejam o programa e as funçoes.
//-----------------------------------------------
#include "TsButton.ch"
#include "Tcbrowse.ch"
#include "Corget.ch"
#include "BtnGet.ch"
........................
FUNCTION GetCadNovo( lAppend )
........................
REDEFINE GET oG22 VAR cNomeFor ID 30 OF oDlg ;
Valid (PesqFor(nCodfor,cNomeFor)
........................
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
//------------------------------------------------------------------------
FUNCTION PesqFor(nCodfor,cNomeFor)
LOCAL oDlg, oLbx // Objetos Caixa de Dialogo
LOCAL oFnt, oG120
// Abrir Base Dados ---------------------------------------------------
Select CadFor
Set Index to CadFor
Set Order to 2
DbGoTop()
DEFINE FONT oFnt NAME "Arial" SIZE 0, -10
// Caixa de Dialogo ---------------------------------------------------
oNome = Space(20)
DEFINE DIALOG oDlg RESOURCE "BROWSEFOR" TITLE "SICEW - Cadastro de Fornecedores."
CursorWait()
REDEFINE LISTBOX oLbx FIELDS Transf(CadFor->CODF , "9999") , ;
CadFor->Nome , ;
CadFor->CITY , ;
CadFor->EST ;
HEADERS "Codigo"," Fornecedor "," Cidade ","Est" ;
FIELDSIZES 30, 250, 150, 20 ;
COLOR CLR_BLACK, CLR_VDCL1 ;
FONT oFnt ;
ID 101 ;
OF oDlg ;
ON DBLCLICK(PesqFor2(nCodFor,cNomeFor), oLbx:Refresh())
REDEFINE BTNBMP RESOURCE "BTNEXIT" ID 109 OF oDlg ;
ACTION( oDlg:Update(), oDlg:End() ) ;
TOOLTIP OemToAnsi( "Voltar ao Menu Principal" ) ;
NOBORDER
ACTIVATE DIALOG oDlg CENTERED
RELEASE oFnt
RETURN NIL
//-------------------------------------------------------------
Static Function PesqFor2(nCodf,cNomeFor)
local cNome := Space( 30 )
local nRecNo := RecNo()
SET SOFTSEEK ON
Select CadFor
SET ORDER TO 2
Goto top
If MsgGet( "Procurar", " Nome do Fornecedor ", @cNome, ;
".\bmp\lupa.bmp" )
If ! CadFor->(DbSeek( alltrim(upper(cNome)) ))
MsgAlert( "Cadstro Não encontrado! ","Informa‡ao" )
SET ORDER TO 2
Goto top
GO nRecNo
Endif
nCodFor = CadFor->Codf
cNomeFor = CadFor->Nome
Endif
Return Nil
//----------------------------------------------------------------
Erro na saida.
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U
Stack Calls
===========
Called from: TGET.PRG => CORGET:LVALID(0)
Called from: CONTROL.PRG => CORGET:FWLOSTFOCUS(0)
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - oziel on 16/08/2012 16:10:49
-
Erciley Junior
Cara não não escrevi nada direto, pois agente programador de vez em quanto esquece alguma coisa, e feliz de nós que temos o forum para alguem uma luz. Não há nada de pessoal. Tenho o respeito por todos, e a recÃpocra é verdadeira. Em derminados momentos quando vejo o que vcs escrevem ou me reportam, sinto que é real "distância entre o saber e a ignorância".
Até breve.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
FELIZ NATAL!!! OTIMO 2015!!!
in Programação
Posted
Gostei... pensei nisso hoje... em fazer um tópico sobre o assunto.
Desejo a todos do fórum e aos seus familiares e amigos....
Esse é o primeiro Natal que passo sem meu pai, não sou muito ligado a datas, mas sim aos momentos que vivemos. Mesmo assim as datas marcam bastante. Hoje assisti uma reportagem de um abrigo em SSA-Ba sobre os velhos abandonados em abrigos, mas considero felizes são aqueles que ficam com os seus (velhos) até o fim, e sou feliz por isso.
Feliz Natal - e que para todos nós e que 2015 seja proveitoso...