oziel

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...

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ério 010 - 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 / RS 024 - Gilmer Luiz Orro Tavares (fivewin.com.br) - Sorocaba / SP 025 - Herberson Carlos Gontijo (Ponteware Informática) - Belo Horizonte / MG 026 - André Emerenciano dos Santos (Ponteware Informática) - Belo Horizonte / MG 027 - Carlos Eduardo Leÿendecker (decker) - São Paulo - SP 028 - José Eduardo Chamon - São Paulo 029 - Vailton Renato - São Paulo 030 - José Manoel - São Paulo 031 - Rodrigo Portugal - São Paulo 032 - Wesley Rodrigues - São Paulo 033 - Júnior (WebNet) - São Paulo 034 - 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 SP 040 - Narlem - BH/MG 041 - Enrrique Vertiz - Lima - Peru 042 - Carlos Ladron de Guevara - Lima - Peru 043 - Ralph del Castillo - Lima - Peru 044 - 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. :D OZIEL 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. https://skydrive.live.com/?sc=documents&cid=c7aa5a53b531c1ae#cid=C7AA5A53B531C1AE&id=C7AA5A53B531C1AE!125&sc=documents 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 https://skydrive.live.com/?sc=documents&cid=c7aa5a53b531c1ae#cid=C7AA5A53B531C1AE&id=C7AA5A53B531C1AE!125&sc=documents 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... https://skydrive.live.com/?sc=documents&cid=c7aa5a53b531c1ae#cid=C7AA5A53B531C1AE&id=C7AA5A53B531C1AE!125&sc=documents 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) https://skydrive.live.com/?sc=documents&cid=c7aa5a53b531c1ae#cid=C7AA5A53B531C1AE&id=C7AA5A53B531C1AE!125&sc=documents 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) https://skydrive.live.com/?sc=documents&cid=c7aa5a53b531c1ae#cid=C7AA5A53B531C1AE&id=C7AA5A53B531C1AE!125&sc=documents 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) https://skydrive.live.com/?sc=documents&cid=c7aa5a53b531c1ae#cid=C7AA5A53B531C1AE&id=C7AA5A53B531C1AE!125&sc=documents 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. https://skydrive.live.com/?sc=documents&cid=c7aa5a53b531c1ae#cid=C7AA5A53B531C1AE&id=C7AA5A53B531C1AE!125&sc=documents OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.