CLALIVEIRA

http://www.ebusines.com.br/inicio.php Telefone: 11 31863500 ramal 207 ou 208 Rodrigo ou Shirley FiveWin 7.01 Clipper 5.3 Wokschop 4,5 xharbour- 0.99.71 (simplex) Borland C++ 5.5.1 Claudio de Oliveira

http://www.ebusines.com.br/inicio.php Telefone: 11 31863500 ramal 207 ou 208 Rodrigo ou Shirley FiveWin 7.01 Clipper 5.3 Wokschop 4,5 xharbour- 0.99.71 (simplex) Borland C++ 5.5.1 Claudio de Oliveira

Pessoal, vejam o que recebi de um colega. Esta é uma história verídica do suporte de uma empresa famosa de São Paulo. Não precisaria dizer que a pessoa que trabalhava no suporte foi demitida, mas ela está movendo um processo contra a organização, que a demitiu por justa causa. Segue o diálogo que gerou a demissão, entre o ex-funcionário e um cliente da empresa… - Help desk assistência, posso ajudar? - Sim, bem… estou tendo problemas com o Word - Que tipo de problema? - Bem, eu estava digitando e, de repente, todas as palavras sumiram. - Sumiram? - Elas desapareceram.. - Hum.. o que aparece na sua tela? - Nada. - Nada? - Está preta. Não aceita nada que eu digite. - Você ainda está no Word ou já saiu? - Como posso saber? - Você vê o prompt C: na tela? - O que é esse prompiti? - Esquece. Você consegue mover o cursor pela tela? - Não há cursor algum. Eu te disse, ele não aceita nada que eu digite. - Seu monitor tem um indicador de força? - O que é um monitor? - É essa tela que se parece com uma TV. Ele tem uma luzinha que diz quando está ligado? - Não sei - Bom, olhe atrás do monitor, então. Veja onde está ligado o cabo de força. - Você consegue fazer isso? - Acho que sim. - Ótimo. Siga para onde vai o cabo e me diga se ele está na tomada. - Tá sim. - Atrás do monitor, você reparou que existem dois cabos? - Não. - Bom, eles estão aí. Preciso que você olhe e ache o outro cabo. - OK. Achei. - Siga-o e veja se está bem conectado na parte traseira do computador. - Não alcanço! - Hum. Você consegue ver se está? - Não. - Mesmo se você se ajoelhar ou se debruçar sobre ele? - Ah, não, tá muito escuro aqui! - Escuro? - Sim, a luz do escritório tá desligada, e a única luz que eu tenho vem da janela, lá do outro lado. - Bom, ligue a luz então! - Não posso. - Por que não? - Porque estamos sem luz. - Estão… sem luz? Pausa longa… - Ah! OK, descobrimos o problema agora. Você ainda tem as caixas e os manuais que vieram com oseu micro? - Sim, estão no armário. - Bom! Então, você pega tudo, desliga o seu sistema, empacota e leva de volta para a loja. - Sério?? O problema é tão grave assim? - Sim, temo que seja. - Bom, então tá. E o que eu digo na loja? - Diga que você é burro demais pra ter um computador. FiveWin 7.01 Clipper 5.3 Wokschop 4,5 xharbour- 0.99.71 (simplex) Borland C++ 5.5.1 Claudio de Oliveira

Pessoal, vejam o que recebi de um colega. Esta é uma história verídica do suporte de uma empresa famosa de São Paulo. Não precisaria dizer que a pessoa que trabalhava no suporte foi demitida, mas ela está movendo um processo contra a organização, que a demitiu por justa causa. Segue o diálogo que gerou a demissão, entre o ex-funcionário e um cliente da empresa… - Help desk assistência, posso ajudar? - Sim, bem… estou tendo problemas com o Word - Que tipo de problema? - Bem, eu estava digitando e, de repente, todas as palavras sumiram. - Sumiram? - Elas desapareceram.. - Hum.. o que aparece na sua tela? - Nada. - Nada? - Está preta. Não aceita nada que eu digite. - Você ainda está no Word ou já saiu? - Como posso saber? - Você vê o prompt C: na tela? - O que é esse prompiti? - Esquece. Você consegue mover o cursor pela tela? - Não há cursor algum. Eu te disse, ele não aceita nada que eu digite. - Seu monitor tem um indicador de força? - O que é um monitor? - É essa tela que se parece com uma TV. Ele tem uma luzinha que diz quando está ligado? - Não sei - Bom, olhe atrás do monitor, então. Veja onde está ligado o cabo de força. - Você consegue fazer isso? - Acho que sim. - Ótimo. Siga para onde vai o cabo e me diga se ele está na tomada. - Tá sim. - Atrás do monitor, você reparou que existem dois cabos? - Não. - Bom, eles estão aí. Preciso que você olhe e ache o outro cabo. - OK. Achei. - Siga-o e veja se está bem conectado na parte traseira do computador. - Não alcanço! - Hum. Você consegue ver se está? - Não. - Mesmo se você se ajoelhar ou se debruçar sobre ele? - Ah, não, tá muito escuro aqui! - Escuro? - Sim, a luz do escritório tá desligada, e a única luz que eu tenho vem da janela, lá do outro lado. - Bom, ligue a luz então! - Não posso. - Por que não? - Porque estamos sem luz. - Estão… sem luz? Pausa longa… - Ah! OK, descobrimos o problema agora. Você ainda tem as caixas e os manuais que vieram com oseu micro? - Sim, estão no armário. - Bom! Então, você pega tudo, desliga o seu sistema, empacota e leva de volta para a loja. - Sério?? O problema é tão grave assim? - Sim, temo que seja. - Bom, então tá. E o que eu digo na loja? - Diga que você é burro demais pra ter um computador. FiveWin 7.01 Clipper 5.3 Wokschop 4,5 xharbour- 0.99.71 (simplex) Borland C++ 5.5.1 Claudio de Oliveira

Olá , Amigos do Forum Eu peguei um aplicativo para aprendizagem aqui no forum, chamado TstShowMenu.prg, mas não consigo compilar em Xharbour e consequentemente linkar Borland BCC55 5.5.1., o problema é como direcionar o aplicativo auxiliar xMate, porque aparece um total de 26 erros de compilação, são eles: error E2209 c:\XHARBOUR\include\hbdegs.h 58:Enable to open include file 'stdarg.h', não consigo encontrar o file stdarg.h, assim como outros files com os errors E2209,E2141,E2356,E2344,E2141,E2356,E2344,Eu percebo que todos estão dentro de um Stlib.h, estou fazendo algo errado ? Alguem poderia orientar. Obrigado claliveira Fivewin 7.01 - xharbour 0.99.71 ( simplex) borland C++ 5.5.1. - clipper 5.3 FiveWin 7.01 Clipper 5.3 Wokschop 4,5 xharbour- 0.99.71 (simplex) Borland C++ 5.5.1 Claudio de Oliveira

Olá , Amigos do Forum Eu peguei um aplicativo para aprendizagem aqui no forum, chamado TstShowMenu.prg, mas não consigo compilar em Xharbour e consequentemente linkar Borland BCC55 5.5.1., o problema é como direcionar o aplicativo auxiliar xMate, porque aparece um total de 26 erros de compilação, são eles: error E2209 c:\XHARBOUR\include\hbdegs.h 58:Enable to open include file 'stdarg.h', não consigo encontrar o file stdarg.h, assim como outros files com os errors E2209,E2141,E2356,E2344,E2141,E2356,E2344,Eu percebo que todos estão dentro de um Stlib.h, estou fazendo algo errado ? Alguem poderia orientar. Obrigado claliveira Fivewin 7.01 - xharbour 0.99.71 ( simplex) borland C++ 5.5.1. - clipper 5.3 FiveWin 7.01 Clipper 5.3 Wokschop 4,5 xharbour- 0.99.71 (simplex) Borland C++ 5.5.1 Claudio de Oliveira

citação:bom dia eu tenho um programa feito em delphi,, ergue,,, se quiser eu posto no forum,, para voce ou mando por email,, mas lembre-se e por que eu nao consegui fazer em fivewin e o jeito foi apelar para outras linguagens... luis antonio sao seb.do paraiso/mg id=quote>id=quote>LUIZ , Não entendi o que o seu programa faz ? Mande-me por Email claliveira@ig.com.br FiveWin 7.01 Clipper 5.3 Wokschop 4,5 Claudio de Oliveira

Ricardo, Como sou estudante ainda de FiveWin onde posso encontrar O DATAEDIT FiveWin 7.01 Clipper 5.3 Wokschop 4,5 Claudio de Oliveira

Geraldo. Vou verificar os arquivos .CH, e enviarei para vc e o viol. fazerem o teste. Me aguarde FiveWin 7.01 Clipper 5.3 Wokschop 4,5 Claudio de Oliveira

VIOL , veja se este serve para voce, é um utilitário para incluir senha , e monitorar usuários que executam rotina dentro de um sistema . --------------------------------------------------------------------------* * PROGRAMA : SENHA.PRG * * FUNCAO : MANUTENCAO DE SENHAS E USUARIOS DO SISTEMA * *--------------------------------------------------------------------------* #include "FiveWin.ch" #include "fpsenh.ch" #include "xZoom.ch" *--------------------------------------------------------------------------* Function Fpsenh() Local o := Senha():New() If o:lOpenOK If oApp:cUser # [PRINCIPAL] o:lSoSenha := .t. o:EditSenha() Else o:lSoSenha := .f. o:Edit() Endif Endif Return Nil *-----------------------------------------------------------------------------* *-----------------------------------------------------------------------------* *-----------------------------------------------------------------------------* CLASS SENHA FROM DATAEDIT DATA NETUSER DATA MNOMEFU DATA MNOMEEM DATA MENU DATA aEmps AS ARRAY DATA aSele AS ARRAY DATA cSen1 DATA cSen2 DATA cSen3 DATA cSen4 DATA cSta DATA nEmpFun DATA cHabAtiv DATA cAtiv DATA lEmAndamento DATA lAbortou DATA lInclui DATA lSoSenha DATA nSta DATA nPor DATA cFunc DATA oBut1 DATA oBut2 DATA oBut3 DATA oTree DATA oDlg DATA oUser DATA oSta DATA oMet DATA oBexe DATA oBabo DATA oBsai DATA oLbxFun DATA oLbxTree DATA oLbemp1 DATA oLbSel DATA oButInc DATA oButExc DATA oButSav DATA oFunc DATA oZoomFun DATA oSen1 DATA oSen2 DATA oSen3 DATA oSen4 DATA oAtiv DATA oReaFu DATA oSG1 DATA oSG2 DATA oSG3 DATA oSG4 DATA oSG5 METHOD New() CONSTRUCTOR METHOD Edit() METHOD EditSenha() METHOD BuildTree() METHOD NextNivel(cUsr,cMnu,oDbm) METHOD Chk_Usr() METHOD Monta_Mat() METHOD TodasEmp() METHOD SelecEmp() METHOD RemovEmp() METHOD CopNet(NWA) METHOD Save() METHOD Load() METHOD Blank() METHOD Del() METHOD VeriCheck() METHOD Habilita_Menu() METHOD Sen1Certa() METHOD Sen2Certa() METHOD Sen3Certa() METHOD Sen4Certa() METHOD Gr_Ativ() METHOD DblClick() METHOD CrgFunc(cFu) METHOD End() ENDCLASS //----------------------------------------------------------------------------// METHOD New() CLASS Senha Local o := Self If oApp:cUser = [PRINCIPAL] ::cTitPro := [Fpsenh - Manutenção Cadastro de Senhas/Usuários] Else ::cTitPro := [Fpsenh - Manutenção Cadastro de Senhas] Endif ::cTitRel := [Relatório do Cadastro de Usuários] Super:New() ::lSave := .t. ::aSele := {} ::lEmAndamento := .f. ::lAbortou := .f. ::lInclui := .f. ::cSta := "" ::nPor := 0 ::oSen1 := Nil ::oSen2 := Nil ::oSen3 := Nil ::oSen4 := Nil ::cSen1 := Space(10) ::cSen2 := Space(10) ::cSen3 := Space(10) ::cSen4 := Space(10) *------------------------------------------------------------------------------------------------------* ::NETUSER := ::Use( [NETUSER] , .f. , {[NETUSER]} ) ::MENU := ::Use( oApp:cDBF_MENU , .f. , {oApp:cDBF_MENU} ) ::MNOMEFU := ::Use( [MNOMEFU] , .f. , {[MNOMEFU1]} ) ::MNOMEEM := ::Use( [MNOMEEM] , .f. , {[MNOMEEM]} ) *------------------------------------------------------------------------------------------------------* ::NETUSER:Seek(Criptog(oApp:cUser)) ::cHabAtiv := (::NETUSER:SGREAU = "S") ::cAtiv := (::NETUSER:SGATIV == 1) If oApp:cUser = [PRINCIPAL] VIRTUAL FIELD USUARI OF ::NETUSER LOAD ::USUARI := DECRIPTOG(::SGUSER) SAVE ::SGUSER := CRIPTOG(::USUARI) VIRTUAL FIELD REATFU OF ::NETUSER LOAD ::REATFU := Iif(::SGREAU = "S",.T.,.F.) SAVE ::SGREAU := If(::REATFU,,[N]) VIRTUAL FIELD ACESSO OF ::NETUSER LOAD ::ACESSO := Iif(::SGACES = "H",1,2) SAVE ::SGACES := Iif(::ACESSO = 1,"H","I") VIRTUAL FIELD SGPER1 OF ::NETUSER LOAD ::SGPER1 := Substr(NETUSER->SGPERM,1,1)="A" SAVE ::SGPERM := Stuff(::SGPERM,1,1,If(::SGPER1,"A"," ")) VIRTUAL FIELD SGPER2 OF ::NETUSER LOAD ::SGPER2 := Substr(NETUSER->SGPERM,2,1)="E" SAVE ::SGPERM := Stuff(::SGPERM,2,1,If(::SGPER2,"E"," ")) VIRTUAL FIELD SGPER3 OF ::NETUSER LOAD ::SGPER3 := Substr(NETUSER->SGPERM,3,1)="I" SAVE ::SGPERM := Stuff(::SGPERM,3,1,If(::SGPER3,"I"," ")) VIRTUAL FIELD SGPER4 OF ::NETUSER LOAD ::SGPER4 := Substr(NETUSER->SGPERM,4,1)="L" SAVE ::SGPERM := Stuff(::SGPERM,4,1,If(::SGPER4,"L"," ")) VIRTUAL FIELD SGPER5 OF ::NETUSER LOAD ::SGPER5 := Substr(NETUSER->SGPERM,5,1)="P" SAVE ::SGPERM := Stuff(::SGPERM,5,1,If(::SGPER5,"P"," ")) *------------------------------------------------------------------------------------------------------* SET FOLDER DIALOGS [uSUARIO],[ACESSOS],[HAB_MENU],[sENHA],[sEN_MOV] HEADERS [usuários],[Controle de Acessos],[Habilita Menu],[Troca de Senha],[senha Entr.Movim] Else SET FOLDER DIALOGS [sENHA] HEADERS [Troca de Senha] Endif SET LISTBOX FIELDS Decriptog(NETUSER->SGUSER) HEADERS [usuarios] XZOOM OF ::MNOMEFU FIELD [MNUREG+"-"+MNOMEF] RETURN [Val(MNUREG)] Return Self //----------------------------------------------------------------------------// METHOD Edit() CLASS Senha Local cLbEmp1,cLbSel,cNada Local o := Self,oFont Super:Edit() *------------------------------------------------------------------------------------------------------* REDEFINE GET ::oFunc VAR ::cFunc ID -2 OF ::oFld:aDialogs[ 1 ] UPDATE COLOR CLR_BLACK,CLR_HGRAY REDEFINE GET ::oUser VAR ::NETUSER:USUARI ID ID_USUARI OF ::oFld:aDialogs[ 1 ] UPDATE PICTURE[@!] VALID ::CHK_USR() REDEFINE GET ::NETUSER:SGPERI ID ID_VALIDA OF ::oFld:aDialogs[ 1 ] UPDATE PICTURE[999] REDEFINE GET ::NETUSER:SGTIME ID ID_TIMEOU OF ::oFld:aDialogs[ 1 ] UPDATE PICTURE[9999] REDEFINE XZOOM ::oZoomFun VAR ::nEmpFun ID ID_LBXFUN OF ::oFld:aDialogs[ 1 ] VALID ::CrgFunc(StrZero(::nEmpFun,6)) PICTURE [999999] ITEMS ::MNOMEFU:oZoom UPDATE REDEFINE CHECKBOX ::oReaFu VAR ::NETUSER:REATFU ID ID_CHKREA OF ::oFld:aDialogs[ 1 ] UPDATE *------------------------------------------------------------------------------------------------------* *------------------------------------------------------------------------------------------------------* ::MNOMEEM:Activate() *------------------------------------------------------------------------------------------------------* REDEFINE LISTBOX ::oLbemp1 ; VAR cLbemp1 ; ITEMS ::aEmps ; ID ID_LBXEMPR ; OF ::oFld:aDialogs[ 2 ] ; UPDATE *------------------------------------------------------------------------------------------------------* REDEFINE LISTBOX ::oLbSel ; VAR cLbsel ; ITEMS ::aSele ; ID ID_LBXSELE ; OF ::oFld:aDialogs[ 2 ] ; UPDATE *------------------------------------------------------------------------------------------------------* REDEFINE BUTTON ::oBut1 ID ID_BUTTODS OF ::oFld:aDialogs[ 2 ] UPDATE Action ::TodasEmp() REDEFINE BUTTON ::oBut2 ID ID_BUTSELE OF ::oFld:aDialogs[ 2 ] UPDATE Action ::SelecEmp() REDEFINE BUTTON ::oBut3 ID ID_BUTREMO OF ::oFld:aDialogs[ 2 ] UPDATE Action ::RemovEmp() *------------------------------------------------------------------------------------------------------* ::NETUSER:Activate() *------------------------------------------------------------------------------------------------------* REDEFINE RADIO ::NETUSER:ACESSO ID ID_RADHIER,ID_REDIRRE OF ::oFld:aDialogs[ 2 ] UPDATE *------------------------------------------------------------------------------------------------------* REDEFINE CHECKBOX ::oSG1 VAR ::NETUSER:SGPER1 ID ID_CHKALTE OF ::oFld:aDialogs[ 2 ] UPDATE REDEFINE CHECKBOX ::oSG2 VAR ::NETUSER:SGPER2 ID ID_CHKEXC OF ::oFld:aDialogs[ 2 ] UPDATE REDEFINE CHECKBOX ::oSG3 VAR ::NETUSER:SGPER3 ID ID_CHKINC OF ::oFld:aDialogs[ 2 ] UPDATE REDEFINE CHECKBOX ::oSG4 VAR ::NETUSER:SGPER4 ID ID_CHKLER OF ::oFld:aDialogs[ 2 ] UPDATE REDEFINE CHECKBOX ::oSG5 VAR ::NETUSER:SGPER5 ID ID_CHKPROC OF ::oFld:aDialogs[ 2 ] UPDATE *------------------------------------------------------------------------------------------------------* REDEFINE CHECKBOX ::oAtiv VAR ::cAtiv ID ID_CHKATI OF ::oFld:aDialogs[ 4 ] UPDATE REDEFINE GET ::oSen1 VAR ::cSen1 ID ID_NSENH OF ::oFld:aDialogs[ 4 ] PICTURE [@!] UPDATE //VALID ::Sen1Certa() REDEFINE GET ::oSen2 VAR ::cSen2 ID ID_CONSE OF ::oFld:aDialogs[ 4 ] PICTURE [@!] UPDATE //VALID ::Sen2Certa() REDEFINE GET cNada ID ID_GAMBI OF ::oFld:aDialogs[ 4 ] COLOR CLR_BLACK,CLR_HGRAY UPDATE *------------------------------------------------------------------------------------------------------* REDEFINE GET ::oSen3 VAR ::cSen3 ID 101 OF ::oFld:aDialogs[ 5 ] PICTURE [@!] UPDATE REDEFINE GET ::oSen4 VAR ::cSen4 ID 102 OF ::oFld:aDialogs[ 5 ] PICTURE [@!] UPDATE *------------------------------------------------------------------------------------------------------* ::oAtiv:bChange := {|| ::Gr_Ativ() } ::oSen1:lPassword := .t. ::oSen2:lPassword := .t. ::oSen3:lPassword := .t. ::oSen4:lPassword := .t. ::oAtiv:Disable() If ::cHabAtiv .and. ! ::cAtiv ::oAtiv:Enable() Else ::oAtiv:Disable() Endif DEFINE FONT oFont NAME [Arial] WEIGHT 8 *------------------------------------------------------------------------------------------------------* DbSelectArea( 0 ) ::MENU:Activate() ::BuildTree(::MENU) ::oLbxTree := TWBrowse():ReDefine( LBX_TREE,,::oFld:aDialogs[ 3 ],,,,,,,,,,,,CLR_HGRAY,, .F.,,,,, ) ::oLbxTree:SetTree( ::oTree ) ::oLbxTree:SetFont(oFont) ::oLbxTree:blDblClick := {|| ::DblClick() } ::oLbxTree:bChange := {|| ::oFld:aDialogs[3]:Refresh() } ::oLbxTree:Refresh() *------------------------------------------------------------------------------------------------------* Super:Activate() *------------------------------------------------------------------------------------------------------* ::oAtiv:SetFocus() Return Nil //----------------------------------------------------------------------------// METHOD EditSenha() CLASS Senha Local cNada Local o := Self Super:Edit() *------------------------------------------------------------------------------------------------------* REDEFINE CHECKBOX ::oAtiv VAR ::cAtiv ID ID_CHKATI OF ::oFld:aDialogs[ 1 ] UPDATE REDEFINE GET ::oSen1 VAR ::cSen1 ID ID_NSENH OF ::oFld:aDialogs[ 1 ] PICTURE [@!] UPDATE VALID ::Sen1Certa() REDEFINE GET ::oSen2 VAR ::cSen2 ID ID_CONSE OF ::oFld:aDialogs[ 1 ] PICTURE [@!] UPDATE VALID ::Sen2Certa() REDEFINE GET cNada ID ID_GAMBI OF ::oFld:aDialogs[ 1 ] COLOR CLR_BLACK,CLR_HGRAY UPDATE *------------------------------------------------------------------------------------------------------* *------------------------------------------------------------------------------------------------------* ::oAtiv:bChange := {|| ::Gr_Ativ() } ::oSen1:lPassword := .t. ::oSen2:lPassword := .t. *------------------------------------------------------------------------------------------------------* ::oAtiv:Disable() If ::cHabAtiv .and. ! ::cAtiv ::oAtiv:Enable() Else ::oAtiv:Disable() Endif *------------------------------------------------------------------------------------------------------* ::oButInc:Disable() ::oButDel:Disable() *------------------------------------------------------------------------------------------------------* Super:Activate() *------------------------------------------------------------------------------------------------------* Return Nil //----------------------------------------------------------------------------// METHOD Sen1Certa() CLASS Senha Local lRet := .t. Local SG1 := ::NETUSER:SGSEN1 Local SG2 := ::NETUSER:SGSEN2 Local SG3 := ::NETUSER:SGSEN3 Local SG4 := ::NETUSER:SGSEN4 Local USU := ::NETUSER:SGUSER Local Senha ::cSen1 := Left(AllTrim(::cSen1)+Space(10),10) Senha := Criptog(::cSen1) If DECRIPTOG(::NETUSER:SGUSER) # oApp:cUser MsgStop([usuário não tem permissão para trocar a senha de outro],[Opção Inválida]) ::cSen1 := Space(10) ::cSen2 := Space(10) ::oSen1:Refresh() ::oSen2:Refresh() Return .f. Endif If Len(Alltrim(::cSen1)) < 5 .or. ::cSen1 = Space(10) MsgStop([senha Inválida !],[Por Favor Redigite]) lRet := .f. ::cSen1 := Space(10) Endif If (Senha = SG1) .or. (Senha = SG2) .or. (Senha = SG3) .or. (Senha = SG4) .or. (Senha = USU) MsgStop([senha Inválida !],[Por Favor, Redigite]) lRet := .f. ::cSen1 := Space(10) Endif ::RefreshFld() Return lRet //----------------------------------------------------------------------------// METHOD Sen2Certa() CLASS Senha Local Senha1 := Criptog(::cSen1) Local Senha2 ::cSen2 := Left(AllTrim(::cSen2)+Space(10),10) Senha2 := Criptog(::cSen2) If Senha1 = Senha2 ::NETUSER:SGSEN4 := ::NETUSER:SGSEN3 ::NETUSER:SGSEN3 := ::NETUSER:SGSEN2 ::NETUSER:SGSEN2 := ::NETUSER:SGSEN1 ::NETUSER:SGSEN1 := Senha2 ::NETUSER:SGVALI := Date()+::NETUSER:SGPERI ::NETUSER:SGATIV := If(::cAtiv,1,0) ::NETUSER:Save() ::End() FPS00B() Else MsgStop([senha errada !],[Por Favor, Redigite]) ::oSen1:SetFocus() ::cSen1 := Space(10) ::cSen2 := Space(10) ::RefreshFld() Endif Return .t. //----------------------------------------------------------------------------// METHOD Sen3Certa() CLASS Senha Local lRet := .t. Local SG1 := ::NETUSER:SGSEN1 Local SG2 := ::NETUSER:SGSEN2 Local SG3 := ::NETUSER:SGSEN3 Local SG4 := ::NETUSER:SGSEN4 Local USU := ::NETUSER:SGUSER Local Senha ::cSen3 := Left(AllTrim(::cSen3)+Space(10),10) Senha := Criptog(::cSen3) If DECRIPTOG(::NETUSER:SGUSER) # oApp:cUser MsgStop([usuário não tem permissão para trocar a senha de outro],[Opção Inválida]) Return .f. Endif If ! Empt(::cSen3) .and. Len(Alltrim(::cSen3)) < 5 //.or. ::cSen3 = Space(10) MsgStop([senha da Entrada da Movimentação inválida !],[Por Favor, Redigite]) lRet := .f. ::cSen3 := Space(10) Endif If (Senha = SG1) .or. (Senha = SG2) .or. (Senha = SG3) .or. (Senha = SG4) .or. (Senha = USU) MsgStop([senha da Entrada da Movimentação inválida !],[Por Favor, Redigite]) lRet := .f. ::cSen3 := Space(10) Endif ::RefreshFld() Return lRet //----------------------------------------------------------------------------// METHOD Sen4Certa() CLASS Senha Local Senha1 := Criptog(::cSen3) Local Senha2 ::cSen4 := Left(AllTrim(::cSen4)+Space(10),10) Senha2 := Criptog(::cSen4) If Senha1 = Senha2 ::NETUSER:SGSEMV := Senha2 Else MsgStop([senha de confirmação da Entr.Movimentação inválida !],[Por Favor, Redigite]) ::oSen3:SetFocus() ::cSen3 := Space(10) ::cSen4 := Space(10) ::RefreshFld() Endif Return .t. //----------------------------------------------------------------------------// METHOD Load() CLASS Senha ::Super:Load() If ! ::lSoSenha ::cSen3 := Decriptog(::NETUSER:SGSEMV) ::cSen4 := Decriptog(::NETUSER:SGSEMV) ::oSen3:Refresh() ::oSen4:Refresh() EndIf If oApp:cUser = [PRINCIPAL] ::Monta_Mat() ::oZoomFun:oGet:Refresh() ::oLbEmp1:Refresh() ::oLbSel:Refresh() ::oTree:Eval( {|o| ::VeriCheck(o)} ) ::RefreshFld() ::oLbxTree:Refresh() ::nEmpFun := Val(::NETUSER:SGNURE) ::CrgFunc(::NETUSER:SGNURE) EndIf If ValType(::oLbxTree) = [O] ::oLbxTree:Enable() EndIf If oApp:cUser # Decriptog(::NETUSER:SGUSER) ::cAtiv := ( (::NETUSER:SGATIV = 1) .AND. (::NETUSER:SGTERM = 0) ) Else ::cAtiv := (::NETUSER:SGATIV = 1) EndIf ::oAtiv:Disable() If ! ::cAtiv .and. ::cHabAtiv ::oAtiv:Enable() Endif ::RefreshFld() Return Nil //----------------------------------------------------------------------------// METHOD Blank() CLASS Senha ::lInclui := .t. ::Super:Blank() ::NETUSER:USUARI := Space(10) ::NETUSER:REATFU := .f. ::cAtiv := .t. ::oAtiv:Refresh() ::oAtiv:Enable() ::nEmpFun := 0 ::oSG1:Refresh() ::oSG2:Refresh() ::oSG3:Refresh() ::oSG4:Refresh() ::oSG5:Refresh() ::Monta_Mat() ::cFunc := [] ::oFunc:Refresh() ::RefreshFld() ::RefreshLbx() ::oLbxTree:Disable() ::oUser:SetFocus() Return Nil //----------------------------------------------------------------------------// METHOD BuildTree(oDBM) CLASS Senha Local oMen,nRec SET EXACT OFF NWTREE ::oTree oDBM:SEEK( [PRINCIPAL]+[C] ) WHILE [PRINCIPAL]+[C] == oDBM:USR+LEFT(oDbm:MNU,1) .and. ! oDbm:Eof() If ! empty( oDbm:ACT ) NWTREEITEM ( alltrim(StrTran(oDBM:OPC,"&","") ) ) LINK oDbm:USR,oDbm:MNU,oDbm:SEQ,oDbm:TIP // RESOURCE "UnCheck", "Check" Else nRec := oDbm:Recno() NWTREEITEM ( alltrim(StrTran(oDBM:OPC,"&","") ) ) LINK oDBM:USR,oDbm:MNU,oDbm:SEQ,oDbm:TIP //RESOURCE "UnCheck", "Check" NWTREE ::NextNivel([PRINCIPAL],subs(oDbm:MNU,2,2),oDbm) NWENDTREE oDbm:GoTo(nRec) Endif oDbm:Skip(1) Enddo NWENDTREE RETURN( ::oTree ) //----------------------------------------------------------------------------// METHOD NextNivel(cUsr,cMnu,oDbm) CLASS Senha Local nRec cMnu := left(cMnu+space(10),10) oDBM:SEEK( [PRINCIPAL]+cMnu ) WHILE [PRINCIPAL]+cMnu == oDBM:USR+oDBM:MNU .and. ! oDBM:eof() If subs(oDBM:ACT,1,1) # [0] NWTREEITEM ( alltrim(StrTran(oDBM:OPC,"&","") ) ) LINK oDbm:OPC,oDbm:MNU,oDbm:SEQ,oDbm:TIP //RESOURCE "UnCheck", "Check" Else nRec := oDBM:Recno() NWTREEITEM ( alltrim(StrTran(oDBM:OPC,"&","") ) ) LINK oDbm:OPC,oDbm:MNU,oDbm:SEQ,oDbm:TIP //RESOURCE "UnCheck", "Check" NWTREE ::NextNivel(cUsr,oDBM:ACT,oDBM) NWENDTREE oDBM:GoTo(nRec) Endif oDBM:skip(1) Enddo Return Nil //----------------------------------------------------------------------------// METHOD Habilita_Menu(o) CLASS Senha Local cKey := ::NETUSER:USUARI+o:aUser[2]+o:aUser[3] ::MENU:Seek(cKey) ::MENU:STA := If( o:lChecked,[1],[0]) ::MENU:Save() ::oLbxTree:Refresh() Return Nil //----------------------------------------------------------------------------// METHOD Chk_Usr() CLASS Senha Local cKey := ::NETUSER:USUARI If ::lInclui If cKey = [PRINCIPAL] MsgStop([Controle do PRINCIPAL é Automático !],[Por Favor, Redigite]) Return .f. Endif If Empty(cKey) MsgStop([usuário em branco !],[Por Favor, Redigite]) Return .f. Endif ::NETUSER:USUARI := Left(AllTrim(::NETUSER:USUARI)+Space(10),10) If ::NETUSER:Seek(Criptog(::NETUSER:USUARI)) MsgStop([usuário já cadastrado !],[Por Favor, Redigite]) Return .f. Endif ::NETUSER:Append() ::NETUSER:USUARI := cKey ::NETUSER:SGSEN1 := Criptog("NETWORK ") ::NETUSER:SGVALI := ctod([01/01/1901]) ::NETUSER:SGATIV := 1 ::NETUSER:Save() ::RefreshFld() ::RefreshLbx() ::COPNET(::NETUSER:USUARI) ::lInclui := .f. ::oLbxTree:Enable() ::oTree:Eval( {|o| ::VeriCheck(o)} ) Endif Return .t. //----------------------------------------------------------------------------// METHOD CopNet(NWA) CLASS Senha Local Reg Local aMenu := {} Local c Reg := ::MENU:RecNo() ::MENU:Seek([PRINCIPAL]) Do While ::MENU:USR = [PRINCIPAL] .and. ! ::MENU:Eof() aAdd(aMenu,{NWA,::MENU:MNU ,; If(Left(::MENU:MNU,1)#"C","0","1"),; ::MENU:ACT ,; ::MENU:MSG ,; ::MENU:TIP ,; ::MENU:OPC ,; ::MENU:SEQ}) ::MENU:Skip(1) Enddo For c:=1 to Len(aMenu) (oApp:cDBF_MENU)->( dbAppend() ) (oApp:cDBF_MENU)->USR := aMenu[c][1] (oApp:cDBF_MENU)->MNU := aMenu[c][2] (oApp:cDBF_MENU)->STA := aMenu[c][3] (oApp:cDBF_MENU)->ACT := aMenu[c][4] (oApp:cDBF_MENU)->MSG := aMenu[c][5] (oApp:cDBF_MENU)->TIP := aMenu[c][6] (oApp:cDBF_MENU)->OPC := aMenu[c][7] (oApp:cDBF_MENU)->SEQ := aMenu[c] Next ::MENU:GoTo( Reg ) Return Nil //----------------------------------------------------------------------------// METHOD Monta_Mat() CLASS Senha ::aEmps := {} ::oLbEmp1:Reset() ::oLbSel:Reset() ::oLbEmp1:Disable() ::MNOMEEM:Activate() ::MNOMEEM:GoTop() Do While ! ::MNOMEEM:Eof() If ::MNOMEEM:MEMPRE $ ::NETUSER:SGAEMP ::oLbSel:Add(::MNOMEEM:MEMPRE+" "+::MNOMEEM:MERASO) Else ::oLbEmp1:Add(::MNOMEEM:MEMPRE+" "+::MNOMEEM:MERASO) Endif ::MNOMEEM:Skip(1) Enddo If ::oLbSel:Len() > 0 ::oBut3:Enable() Else ::oBut3:Disable() Endif If ::oLbemp1:Len() > 0 ::oLbemp1:Enable() ::oBut1:Enable() ::oBut2:Enable() Else ::oBut1:Disable() ::oBut2:Disable() ::oBut3:Enable() Endif If ::oLbSel:Len() > 0 ::oLbSel:GoTop() ::oLbSel:Refresh() Endif If ::oLbemp1:Len() > 0 ::oLbemp1:GoTop() ::oLbemp1:Refresh() Endif Return Nil //---------------------------------------------------------------------------// METHOD SelecEmp() CLASS Senha If ::oLbemp1:Len() > 0 If ::oLbSel:len() == 0 ::oLbSel:Add(::oLbemp1:GetItem(::oLbemp1:GetPos())) Else ::oLbSel:Insert(::oLbemp1:GetItem(::oLbemp1:GetPos())) EndIf Endif ::oLbemp1:Del() If ::oLbemp1:Len() == 0 ::oBut1:Disable() ::oBut2:Disable() Else ::oBut1:Enable() ::oBut2:Enable() Endif ::oBut3:Enable() ::oLbemp1:GoTop() ::oLbSel:GoTop() ::oLbemp1:Refresh() ::oLbSel:Refresh() Return Nil //---------------------------------------------------------------------------// METHOD TodasEmp() CLASS Senha Local I Local X X := ::oLbemp1:Len() For I = 1 TO X If ::oLbSel:len() == 0 ::oLbSel:Add(::oLbemp1:GetItem(::oLbemp1:GetPos())) Else ::oLbSel:Insert(::oLbemp1:GetItem(::oLbemp1:GetPos())) EndIf ::oLbemp1:Del() Next ::oBut1:Disable() ::oBut2:Disable() ::oBut3:Enable() ::oLbemp1:GoTop() ::oLbSel:GoTop() ::oLbemp1:Refresh() ::oLbSel:Refresh() Return Nil //---------------------------------------------------------------------------// METHOD RemovEmp() CLASS Senha If ::oLbSel:Len() == 0 MsgStop([Ainda não foi escolhida nenhuma empresa !],[Opção inválida]) Return .f. Endif If ::oLbEmp1:Len() == 0 ::oLbEmp1:Add(::oLbSel:GetItem(::oLbSel:GetPos())) Else ::oLbEmp1:Insert(::oLbSel:GetItem(::oLbSel:GetPos())) EndIf ::oLbSel:Del() If ::oLbSel:Len() == 0 ::oBut3:Disable() Else ::oBut3:Enable() Endif ::oBut1:Enable() ::oBut2:Enable() ::oLbEmp1:GoTop() ::oLbSel:GoTop() ::oLbEmp1:Refresh() ::oLbSel:Refresh() Return Nil //---------------------------------------------------------------------------// METHOD Save() CLASS Senha Local I Local Empresa Empresa := oApp:cEmp+oApp:cCat If (oApp:cUser == [PRINCIPAL] .and. ! Empt(::cSen1) .and. ! Empt(::cSen2)) .or. ::lSoSenha If ! ::Sen1Certa() Return Nil EndIf ::Sen2Certa() Return Nil EndIf If ! ::CrgFunc(StrZero(::nEmpFun,6)) Return Nil EndIf If (oApp:cUser == [PRINCIPAL] .and. ! Empt(::cSen1) .and. ! Empt(::cSen2)) .or. ::lSoSenha If ! ::Sen3Certa() Return Nil EndIf If ! ::Sen4Certa() Return Nil EndIf EndIf oApp:cSenMov := ::NETUSER:SGSEMV For I = 1 to ::oLbSel:Len() If I = 1 Empresa := Substr(::oLbSel:aItems,1,3)+[,] Else Empresa += Substr(::oLbSel:aItems,1,3)+[,] Endif Next If dtoc(::NETUSER:SGVALI) == [01/01/1901] ::NETUSER:SGVALI := Date()+::NETUSER:SGPERI endif ::NETUSER:SGAEMP := Empresa Super:Save() Return Nil //---------------------------------------------------------------------------// METHOD VeriCheck(o) Class Senha Local cKey := ::NETUSER:USUARI+o:aUser[2]+o:aUser[3] Local cColor If Left(o:aUser[2],1) = [C] o:lOpened := .t. o:SetText( ">> "+ If(Subs(o:cPrompt,1,3) == ">> ",Subs(upper(o:cPrompt ),4),upper(o:cPrompt ))) Return Nil Endif ::MENU:Seek(cKey) If [sair] = AllTrim(o:aUser[1]) If o:oTree # Nil o:lOpened := .t. Else o:lChecked := .t. Endif ::MENU:STA := [1] ::MENU:Save() o:SetText( ">> "+ If(Subs(o:cPrompt,1,3) == ">> ",Subs(upper(o:cPrompt ),4),upper(o:cPrompt ))) Return Nil Endif If [implantacao] = AllTrim(o:aUser[1]) If o:oTree # Nil o:lOpened := .t. Else o:lChecked := .t. Endif ::MENU:STA := [1] ::MENU:Save() o:SetText( ">> "+ If(Subs(o:cPrompt,1,3) == ">> ",Subs(upper(o:cPrompt ),4),upper(o:cPrompt ))) Return Nil Endif If [senhas] = AllTrim(o:aUser[1]) If o:oTree # Nil o:lOpened := .t. Else o:lChecked := .t. Endif ::MENU:STA := [1] ::MENU:Save() o:SetText( ">> "+ If(Subs(o:cPrompt,1,3) == ">> ",Subs(upper(o:cPrompt ),4),upper(o:cPrompt ))) Return Nil Endif If ::MENU:STA = [1] If o:oTree # Nil o:lOpened := .t. Else o:lChecked := .t. Endif Else If o:oTree # Nil o:lOpened := .f. Else o:lChecked := .f. Endif Endif o:SetText( iif(o:lChecked .or. o:lOpened, ">> ", "") + iif(left(o:cPrompt, 3) $ [>> ], If(o:lChecked .or. o:lOpened,Upper(subs( o:cPrompt, 4)),lower(subs( o:cPrompt, 4)) ), If(o:lChecked .or. o:lOpened,Upper(o:cPrompt),lower(o:cPrompt)) ) ) Return Nil //---------------------------------------------------------------------------// METHOD Gr_Ativ() CLASS Senha If ::cAtiv ::NETUSER:SGATIV := 1 ::NETUSER:SGTERM := 0 Else ::NETUSER:SGATIV := 1 ::NETUSER:SGTERM := 1 Endif ::NETUSER:SAVE() Return Nil //---------------------------------------------------------------------------// METHOD Del() CLASS Senha Local Usuari If oApp:cUser # [PRINCIPAL] MsgStop([Exclusão não Permitida !],[Opção inválida !]) Else Usuari := Decriptog(::NETUSER:SGUSER) ::MENU:Seek(Usuari) If Usuari = [PRINCIPAL] MsgStop([Exclusão não Permitida !],[Opção inválida !]) Return Nil EndIf Super:Del() Do While (oApp:cDBF_MENU)->USR = Usuari .and. ! (oApp:cDBF_MENU)->( Eof() ) (oApp:cDBF_MENU)->( Rec_Lock() ) (oApp:cDBF_MENU)->( dbDelete() ) (oApp:cDBF_MENU)->( dbSkip(1) ) Enddo Endif Return Nil //---------------------------------------------------------------------------// METHOD DblClick() CLASS Senha If DECRIPTOG(::NETUSER:SGUSER) = [PRINCIPAL] MsgStop([Controle do PRINCIPAL é Automatico !],[Opção inválida]) ::oLbxTree:Disable() Else ::oLbxTree:Cargo:Toggle() ::oTree:Eval( {|o| o:SetText( iif(o:lChecked .or. o:lOpened, ">> ", "") + iif(left(o:cPrompt, 3) $ [>> ], If(o:lChecked .or. o:lOpened,Upper(subs( o:cPrompt, 4)),lower(subs( o:cPrompt, 4)) ), If(o:lChecked .or. o:lOpened,Upper(o:cPrompt),lower(o:cPrompt)) ) ) }) ::oLbxTree:Refresh() ::Habilita_Menu(::oLbxTree:Cargo) EndIf Return Nil //---------------------------------------------------------------------------// METHOD CrgFunc(cFu) CLASS Senha If Decriptog(::NETUSER:SGUSER) == [PRINCIPAL] Return .t. EndIf If ! ::MNOMEFU:Seek(oApp:cEmp+cFu) MsgStop([Funcionário inexistente !],[Atenção]) Return .f. EndIf If ::MNOMEFU:MSITUF # [A] MsgStop([Funcionário não está ativo !],[Atenção]) Return .f. EndIf ::cFunc := ::MNOMEFU:MNOMEF ::oFunc:Refresh() ::NETUSER:SGNURE := cFu ::NETUSER:Save() ::oReaFu:SetFocus() Return .t. //----------------------------------------------------------------------------// METHOD End() CLASS Senha If ValType(::oTree) = [O] ::oTree:Eval( {|o| DeleteObject(o:hBmpOpen),DeleteObject(o:hBmpClose)} ) EndIf Super:End() Return Nil //----------------------------------------------------------------------------// FiveWin 7.01 Clipper 5.3 Wokschop 4,5 Claudio de Oliveira

David voce tamém pode contar com o site www.flait informatica - item programação lá tem um curso completo de FiveWin , com exemplos e Resouses e Janela, o que é MDI , etc e tal . vela lá claliveira FiveWin 7.01 clipper5.3

Cleber , Tem o esse sistema de folha de pagamento e ponto eletrônico que acho melhor que o RM, é Five Win Atual e completo em todos os sentidos, inclusive o usuário pode incluir qualquer campo no cadastro de funcionário, importar e exportar dados do sistemas, dentro da legislação trabalhista atende a todos os requisitos é multi usuário, inclusive pode-se parametrizar para usar menus especificos para usuários, esta se transformando XHarbour . www.Ebusines.com.br. Não pode ser este tem que ser RM ? claliveira Fivewin 7.01 - Blinke 5.00 - Clipper5.3

Ola Kleyton, É facil, se você tiver uma máquina fotográfica digital, você pode fotografar os medicamentos comercializados pela empresa, salvar as fotografias no seu micro, se necessário renomear os arquivos com as fotos. Foi o que a empresa Blisfarma fez, veja o site deles www.blisfarma.com.br, aquelas fotos acimas foram tiradas na empresa. Não sei se ajudei mas é o que tenho em mente se souber de algo melhor lhe aviso. claliveira Five Win 7.01 - clipper 5.3 - blinke 5.0

Sim sou daqui de São Bernardo do Campo. AONDE VAI TER CERVEJADA É BAVARIA, BOHEMIA OU SKOL. ME AVISE ANTES. claliveira

Kleyton desculpe esqueci de enviar o Link para você acessar a página, veja ele abaixo. http://paginas.terra.com.br/informatica/flaitinformatica/CursoFiveWin.htm

Kapi Obrigado, vou estudar todos os parâmetro e as variáveis citadas por Vc.,pode humilhar, mas não tanto assim.Brincadeirinha !!!!! - rsrsrsrsrs Agora melhorou já fico sabendo onde posso alterar e fazer o treinamento. Evandro e Kapi muito obrigado, valeu mesmo Vocês do Forum são D + Obrigado claliveira FiveWin 7.07 - Clipper53 - Blinke 5.00

Kleyton , o Site é da Flait Informatica , curso FiveWin Kapi É muito para mim, não entendi nada cara, mas compilei e linkei e deu certo ele abre uma janela de Brush e apertando o Botão do lado esquerdo vai alterando a cor da janela, o segundo botão fecha o aplicativo, se você detalhar o PRG posso entender a lógica. Não fique bravo não, ma é desconhecimento meu mesmo cara. Evandro o erro Continua mesmo incluindo #include "fivewin ch" Blink and you`ll miss it!! Blinker 1109: unable to open x1.obj. Estou usando o Build.bat do Samples do FW - alterei a direção do Compilador e do Linkador. Abaixo X1.prg Acrescentei #Include "fivewin.ch" local ow,ob define brush ob style NULL define window ow from 0,0 to 30,80 brush ob activate window ow release brush ob obrigado claliveira FiveWin 7.01 Clipper 5.3

Ola pessoal do forum estou fazendo o curso de fivewin do site da Flaitinformática, como no inicio tem umas janelas eu consegui compilar e linkar a primeira a partir da segunda apresenta um erro que não consigo elimina-lo, alguem dos universitários poderia me ajudar, segue o erro abaixo: Compilink X1.PRG X1.PRG (3) Error C2001 Syntax Error: `BRUSH` X1.PRG (5) Error C2001 Syntax Error: `ICON` X1.PRG (7) Error C2001 Syntax Error: `WINDOW` X1.PRG (9) Error C2001 Syntax Error: `WINDOW` X1.PRG (11) Error C2005 Statement not recognized, match failed at `brush`5 error Linking Blinker Dos Extender and Windows linker 5.00 Blink and you`ll miss it!! claliveira@ig.com.br Fivewin 7.01 - clipper5.3 blinker 5.00

Ola pessoal do forum estou fazendo o curso de fivewin do site da Flaitinformática, como no inicio tem umas janelas eu consegui compilar e linkar a primeira a partir da segunda apresenta um erro que não consigo elimina-lo, alguem dos universitários poderia me ajudar, segue o erro abaixo: Compilink X1.PRG X1.PRG (3) Error C2001 Syntax Error: `BRUSH` X1.PRG (5) Error C2001 Syntax Error: `ICON` X1.PRG (7) Error C2001 Syntax Error: `WINDOW` X1.PRG (9) Error C2001 Syntax Error: `WINDOW` X1.PRG (11) Error C2005 Statement not recognized, match failed at `brush`5 error Linking Blinker Dos Extender and Windows linker 5.00 Blink and you`ll miss it!! claliveira@ig.com.br Fivewin 7.01 - clipper5.3 blinker 5.00

Ola amigos , Ao compilar um programa ( sistema)pelo Build.bat retorna a mensagem abaixo na Tela do prompt do DOS. Alguem poderia me ajudar ? FiveWin 7.01 - January 2007 CA-Clipper, xBase and OOPS development power © FiveTech, 1993-2006 for MS Windows 3.x, 95, NT, 2000, ME and XP  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀Compiling... CA-Clipper ® 5.3b (Rev. 338) Copyright © 1985-1996, Computer Associates International, Inc. Microsoft C Floating Point Support Routines Copyright © Microsoft Corp 1984-1993. All Rights Reserved. 341K available Compiling SPAG.PRG Sst.PRG(3)Fatal C3007 Can't open #include file: 'Publics.ch' ECHO está desativado. Linking... __ __ («») («») BLINKER DOS Extender and Windows Linker 5.00 ⌂ ___ Blink and you'll miss it !! Copyright © Assembler Software Manufacturers, Inc. 1990-98 All Rights Reserved. Serial # BR-056596. Fax (804) 784-2357. BLINKER : 1109 : unable to open file Sst.OBJ * There are errors Obrigado e um grande abraços a todos !! Claliveira

Ola amigos , Ao compilar um programa ( sistema)pelo Build.bat retorna a mensagem abaixo na Tela do prompt do DOS. Alguem poderia me ajudar ? FiveWin 7.01 - January 2007 CA-Clipper, xBase and OOPS development power © FiveTech, 1993-2006 for MS Windows 3.x, 95, NT, 2000, ME and XP  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀Compiling... CA-Clipper ® 5.3b (Rev. 338) Copyright © 1985-1996, Computer Associates International, Inc. Microsoft C Floating Point Support Routines Copyright © Microsoft Corp 1984-1993. All Rights Reserved. 341K available Compiling SPAG.PRG Sst.PRG(3)Fatal C3007 Can't open #include file: 'Publics.ch' ECHO está desativado. Linking... __ __ («») («») BLINKER DOS Extender and Windows Linker 5.00 ⌂ ___ Blink and you'll miss it !! Copyright © Assembler Software Manufacturers, Inc. 1990-98 All Rights Reserved. Serial # BR-056596. Fax (804) 784-2357. BLINKER : 1109 : unable to open file Sst.OBJ * There are errors Obrigado e um grande abraços a todos !! Claliveira

Alessandro, Voce sabia que Isacc Newton foi chamado de Louco para sua época ? É na loucura que encontramos as melhores idéias, são aquelas fora do padrão normal, para os seres humanos. Obrigado pelo ajuda , cara . claliveira@ig.com.br

Kbelo, Ico Obrigado pela Dica Pessoal, vou dar uma olhada no Site que vocês me indicaram !! . Quanto a pasta Samples eu já compilei e tentei modificar alguns PRG, mas como esta com alguns erro de busca no arquivo Build.bat, eu estou solicitando a ajuda de um programador da empresa, talvez ele vai poder me ajudar. Mas obrigado mesmo . Claliveira@ig.com.br

Ola Pessoal, Tenho pouca experiência em Clípper, alias sou iniciante, o que aprendi é o que esta no Livro do Ramalho volume I, sei compilar o programa gerando OBJ, se também, Linkedição de um programa Obj etc... Gostaria de saber onde posso encontrar um bom curso de Five Win e se é viavel aprender já no five Win Direto. Ou um curso de Lógica de programção. O motivo da pesquisa e da pergunta é o seguinte na empresa que trabalho os sistemas eram inicialmente em Clipper depois passaram para o Five Win , e agora estão pensando em utilizar o harbour, e eu como analista de Suporte Técnico preciso deste curso ou destes cursos para acompanhar o desenvolvimento dos trabalho na empresa em que estou trabalhando. Hoje a empresa não abre a sua Rede no local onde estão os PRGs. dos seus sistemas, para a Ãrea de Suporte Técnico onde eu estou trabalhando hoje, apenas para área de programação. Eu utilizo a versão Demo do Five Win, estou lendo também as apostilas, CursoA e CursoB, mas não estou entendo nada. claliveira@ig.com.br

Ola Pessoal, Tenho pouca experiência em Clípper, alias sou iniciante, o que aprendi é o que esta no Livro do Ramalho volume I, sei compilar o programa gerando OBJ, se também, Linkedição de um programa Obj etc... Gostaria de saber onde posso encontrar um bom curso de Five Win e se é viavel aprender já no five Win Direto. Ou um curso de Lógica de programção. O motivo da pesquisa e da pergunta é o seguinte na empresa que trabalho os sistemas eram inicialmente em Clipper depois passaram para o Five Win , e agora estão pensando em utilizar o harbour, e eu como analista de Suporte Técnico preciso deste curso ou destes cursos para acompanhar o desenvolvimento dos trabalho na empresa em que estou trabalhando. Hoje a empresa não abre a sua Rede no local onde estão os PRGs. dos seus sistemas, para a Ãrea de Suporte Técnico onde eu estou trabalhando hoje, apenas para área de programação. Eu utilizo a versão Demo do Five Win, estou lendo também as apostilas, CursoA e CursoB, mas não estou entendo nada. claliveira@ig.com.br