VLNUNES

Olá Kleber Qual o conteudo do arquivo ? Não tenho sistema que emita nota ou cupom fiscal, mas trabalho prestando assistência para algumas contabilidades que usam o Pack Diamond e sempre dava erro na importação dos arquivo sintegra recebidos de outros sistemas, entrei em contato com a Alterdata e eles resolveram pelo acesso remoto. O erro era causado por um arquivo (se não me engano um RTM) que estava desconfigurado. Este acesso só pode ser feito na máquina em que esta dando erro com o usuário e senha da contabilidade. Vander

Olá CLALIVEIRA; Veja este artigo http://www.fabiohara.com.br/2013/03/07/hyper-v-no-windows-8/ Vander

Olá; Tenho a mesma necessidade, se puderem enviar para mim também fico agradecido. Obrigado; Vander E-Mail : duchha@hotmail.com

Vou separar e enviar . Qual o seu E-mail, ?

//----------------------------- BACKUP #INCLUDE "FiveWin.ch" #Include "VOGET.CH" #Define CLR_LGREEN nRGB( 190, 215, 190 ) #Define CLR_LGRAY nRGB( 230, 230, 230 ) #Define CLR_VERMELHO nRGB( 255, 000, 000 ) //--> Vermelho Para a Letra #Define CLR_AMARELO nRGB( 255, 255, 000 ) //--> Amarelo Para o Fundo #Define CLR_AZUL nRGB( 000, 000, 255 ) FUNCTION COPIASEG() CLOSE DATABASE ABRIRAR() //---------------------- senha SELECT NIVEL BLOCQ := NI25 IF BLOCQ = "S" USARI:="" PASOUU:= "N" PEDESENHA() IF PASOUU = "N" RETURN NIL else select USUARI if PERMIC25 = .F. msgstop("Usuário sem autorização...","= ACESSO NEGADO =") return nil endif ENDIF ENDIF //--------------------------------- CLOSE DATABASE if !file("c:\copias\rar.exe") MSGINFO("Falta o arquivo RAR.EXE em C:\COPIAS, baixe-o em www.vlnunes.com.br.","= AVISO =") return .t. endif CLOSE DATABASE USE DADOSEST\ATUALIZA AQRD2 := "DADOSEST\" LETRUN:=" " QUALET:=.T. VAINIC:=.F. DEFINE FONT oFont1 NAME "LUCIDA CONSOLE" SIZE 0,-(12*1.33) DEFINE FONT oFont2 NAME "Times New Roman" SIZE 0,-(20*1.33) bold italic DEFINE DIALOG TECL1 RESOURCE "TELABKP" TITLE "= GERAR CÓPIA DE SEGURANÇA =" TECL1:lHelpIcon := .F. REDEFINE GET DRIV VAR LETRUN ID 103 WHEN QUALET VALID TESTALER(LETRUN) FONT oFont1 REDEFINE BUTTON ID 101 cancel ACTION INICOP(LETRUN) WHEN VAINIC REDEFINE BUTTON ID 102 cancel ACTION TECL1:End() ACTIVATE DIALOG TECL1 CENTERED oFont1:END() oFont2:END() RETURN .T. //------------------- TESTAR LETRA FUNCTION TESTALER(_LET) IF _LET = "D" .OR. _LET = "E" .OR. ; _LET = "F" .OR. _LET = "G" .OR. ; _LET = "H" .OR. _LET = "I" VAINIC:=.T. RETURN .T. ELSE RETURN .F. ENDIF //------- INICIAR FUNCTION INICOP(LL) TECL1:End() CLOSE DATABASE ORIGEM1 := "DADOSEST\" ORIGEM2 := "CAIXAFEC\" //--------------------------- DESTIN1 := "C:\COPIAS\DADOSEST\" DESTIN2 := "C:\COPIAS\CAIXAFEC\" COPIACAO1 := Directory(ORIGEM1+"*.DBF") FOR nI = 1 TO Len(COPIACAO1) ORIG:=ORIGEM1+COPIACAO1[ nI, 1 ] DEST:=DESTIN1+COPIACAO1[ nI, 1 ] COPY FILE "&ORIG" TO "&DEST" NEXT COPIACAO2 := Directory(ORIGEM2+"*.*") FOR nI = 1 TO Len(COPIACAO2) ORIG:=ORIGEM2+COPIACAO2[ nI, 1 ] DEST:=DESTIN2+COPIACAO2[ nI, 1 ] COPY FILE "&ORIG" TO "&DEST" NEXT REF := 1 DO WHILE .T. NOBK:= LETRUN+":\EST"+ substr(dtoc(date()),1,2)+substr(dtoc(date()),4,2)+; substr(dtoc(date()),9,2)+STRZERO(REF,2) IF FILE(NOBK+".rar") REF++ LOOP ELSE EXIT ENDIF ENDDO run c:\copias\rar a -r -ep1 &NOBK c:\copias\DADOSEST c:\copias\CAIXAFEC WaitSeconds(2) USE DADOSEST\ATUALIZA REPLA VLN16 WITH date() CLOSE DATABASE RETURN .T. //-------------------------------------- RESTORE FUNCTION RECURBKP() CLOSE DATABASE ABRIRAR() //---------------------- senha SELECT NIVEL BLOCQ := NI26 IF BLOCQ = "S" USARI:="" PASOUU:= "N" PEDESENHA() IF PASOUU = "N" RETURN NIL else select USUARI if PERMIC26 = .F. msgstop("Usuário sem autorização...","= ACESSO NEGADO =") return nil endif ENDIF ENDIF //--------------------------------- CLOSE DATABASE ABRIRAR() if !file("c:\copias\rar.exe") MSGINFO("Falta o arquivo RAR.EXE em C:\COPIAS, baixe-o em www.vlnunes.com.br.","= AVISO =") return .t. endif LETRUN := " " QUALET := .T. VAINIC := .F. RECUPE := "N" DEFINE FONT oFontre12 NAME "LUCIDA CONSOLE" SIZE 0,-(12*1.33) DEFINE DIALOG TECL12 RESOURCE "TELAREBKP" TITLE "= RECUPERAR CÓPIA DE SEGURANÇA =" TECL12:lHelpIcon := .F. REDEFINE GET DRIV VAR LETRUN ID 103 WHEN QUALET VALID TESTALER(LETRUN) FONT oFontre12 REDEFINE BUTTON ID 101 cancel ACTION INIREC(LETRUN) WHEN VAINIC REDEFINE BUTTON ID 102 cancel ACTION TECL12:End() ACTIVATE DIALOG TECL12 CENTERED oFontre12:END() AQRD2 := "DADOSEST\" AEVAL(DIRECTORY(AQRD2+"BKPS.TXT"),{|aFile| FErase(AQRD2+aFile[1])}) IF RECUPE = "S" INDEXA1() ENDIF RETURN .T. //--------------------------- INICIAR RECUPERAÇÃO FUNCTION INIREC(LETRUN) local ILF:=CHR(13) + CHR(10) AQRD2 := "DADOSEST\" cTexto:='' cTerm :="*.RAR" CONTAGEM := 0 aTemp := Directory( LETRUN+":\" + "*.RAR" ) FOR nI = 1 TO Len(aTemp) CONTAGEM++ cTexto +=LETRUN+":\" + aTemp[nI,1] + ILF NEXT cFile = 'DADOSEST\bkstem.TXT' nroarq = fcreate(cFile,0) if ferror()=0 fwrite(nroarq,cTexto,len(cTexto)) fclose(nroarq) else msgstop('Arquivo texto não pode ser gravado !!!') endif IF CONTAGEM = 0 MSGINFO("Não há arquivos de cópia de segurança no local informado","= AVISO =") TECL12:End() RETURN .T. endif select FOTMP zap append from DADOSEST\bkstem.TXT sdf select FOTMP go top DO WHILE !EOF() IF SUBSTR(FOTMP->LOCFOTO,04,3) <> "EST" ARGER := "ARQUIVO INVÃLIDO" ELSE ARGER := SUBSTR(FOTMP->LOCFOTO,07,2)+"/"+SUBSTR(FOTMP->LOCFOTO,09,2)+"/20"+SUBSTR(FOTMP->LOCFOTO,11,2) ENDIF REPLACE ARQBACK WITH ARGER SKIP ENDDO GO TOP TECL12:End() DEFINE FONT oFontbk1 NAME "LUCIDA CONSOLE" SIZE 0,-(11*1.33) DEFINE DIALOG TECL13 RESOURCE "TELAREBKP2" title "= SELECIONE O ARQUIVO A RECUPERAR =" TECL13:lHelpIcon := .F. REDEFINE LISTBOX LISTA12 FIELDS FOTMP->ARQBACK ID 101 HEADERS "" FONT oFontbk1 COLOR RGB (0,0,0),RGB (192,192,192) REDEFINE SAY oSAYA1 PROMPT ARGER ID 1 FONT oFontbk1 //-------------------- LISTA 1 LISTA12 : bChange := {|| MOSTRARQ(oSAYA1)} LISTA12 : nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabe‡alho LISTA12 : nClrBackFocus := CLR_HRED // Cor do Cursor Em Cima do Ötem LISTA12 : nClrForeFocus := CLR_AMARELO // cor da letra da barra ativa LISTA12 : nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos LISTA12 : nClrPane := { || IIF( FOTMP->(OrdKeyNo()) % 2 == 0, CLR_LGREEN, CLR_LGRAY ) } // cor do fundo LISTA12 : nLineStyle := 3 LISTA12 : lCellStyle := .F. // .T. So Pinta a celula que o cursor esta LISTA12 : lMChange := .F. // Desabilita Mousemove LISTA12 : SetFocus() // Refocus on The Browse LISTA12 : Refresh() // Estabiliza o Browse/Listbo REDEFINE BUTTON ID 102 cancel ACTION RECCOEST(AQRD2,ALLTRIM(FOTMP->LOCFOTO)) REDEFINE BUTTON ID 103 cancel ACTION TECL13:End() ACTIVATE DIALOG TECL13 CENTERED ON INIT (xSetFocus( LISTA12 ),MOSTRARQ(oSAYA1)) oFontbk1:end() RETURN .T. //------------------------ MOSTRA DATA DO ARQUIVO FUNCTION MOSTRARQ(o1) DDD := VAL(SUBSTR(FOTMP->LOCFOTO,04,9)) IF SUBSTR(FOTMP->LOCFOTO,04,3) <> "EST" .OR. DDD <> 0 ARGER := "NÃO É CÓPIA DE SEGURANÇA DO EST" ELSE ARGER := SUBSTR(FOTMP->LOCFOTO,07,2)+"/"+SUBSTR(FOTMP->LOCFOTO,09,2)+"/20"+SUBSTR(FOTMP->LOCFOTO,11,2)+" / "+SUBSTR(FOTMP->LOCFOTO,13,2) ENDIF o1:SetText(ARGER) ; O1:Refresh() RETURN .T. //----------------------- RECUPERAR FUNCTION RECCOEST(AQRD2,TRAZER) DDD := VAL(SUBSTR(FOTMP->LOCFOTO,04,9)) IF SUBSTR(FOTMP->LOCFOTO,04,3) <> "EST" .OR. DDD <> 0 MSGINFO("O arquivo selecionado não é cópia de segurança do EST","= ERRO DE SELEÇÃO =") RETURN .F. ENDIF ORIG:=TRAZER COPY FILE "&ORIG" TO "copia1.rar" SELECT CONFIG CLOSE DATABASE run c:\COPIAS\rar x -y copia1 RECUPE := "S" TECL13:End() RETURN .T.

Fácil, é 200 Pois é o próximo nº iniciado coma letra "D" HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Tem em C:\FWH\manual Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Olá Kapiaba; Fácil; -Botão direito na área de trabalho . Personalizar . Central de facilidade de acesso . Facilitar o uso do teclado -Marcar a opção . Sublinhar atalhos de teclado e teclas de acesso Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Olá Rone Uso a função abaixo com win32prn()+GetPrinters() e funciona bém, a qde de cópias creio que se passado como parâmetro deve funcionar "nunca usei" eu uso um "for next". //-------------- SELECIONAR IMPRESSORA FUNCTION SIMSEL3() LOCAL oBmp local vIMPCARNE:=GetPrinters() local oIMP1,nIMP1:= ascan(vIMPCARNE) SEMIP := .F. SEIMP := "N" DEFINE DIALOG TELAIMPR RESOURCE "SELIMP" title"Selecione a impressora" REDEFINE BITMAP oBmp ID 1 RESOURCE "IMPRESS" OF TELAIMPR adjust REDEFINE COMBOBOX oIMP1 ID 101 ITEMS vIMPCARNE OF TELAIMPR VALID SAIMCARN(oIMP1) REDEFINE BUTTON ID 102 cancel ACTION (SIMSEL31(oIMP1),TELAIMPR:End()) WHEN SEMIP REDEFINE BUTTON ID 103 cancel ACTION TELAIMPR:End() ACTIVATE DIALOG TELAIMPR CENTERED return .t. //------------------------ FUNCTION SIMSEL31(oIMP1) LOCAL aPrn := oIMP1 local oPrinter := win32prn():New(aPrn) oPrinter:Landscape := .F. oPrinter:FormType := 9 oprinter:SetPrintQuality(-1) oPrinter:Copies := 1 // NUMERO DE CÓPIAS oprinter:create() oprinter:startdoc() //------------------- INICIO DA IMPRESSAO oprinter:setfont("Courier New",8) ncol:=oprinter:GetCharWidth() nlin:=oprinter:GetCharHeight() ... ... ... oprinter:enddoc() oprinter:destroy() ... ... RETURN .T. //------------------------- HABILITA IMPRESSÃO FUNCTION SEIMP() SEIMP := "S" RETURN .t. Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

No windows 7 Painel de controle / Central de facilidade de acesso Em facilitar uso do teclado Marcar Sublinhar atalhos de teclado e teclas de acesso Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Esta configuração é do Windows. No XP Botão direito na área d trabalho / Propriedades, Em propriedades de vídeo, Na aba aparencia clique em Efeitos, Desmarque a opção Ocultar sublinhados para navegação... No Windows 7 ainda não sei. Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Outra opção... //------------------- MsgRun2("Enviando mensagem, aguarde...") .. seus comandos e chamadas de outras funções .. .. .. MsgRun2("") //----------------- NOVA MSGRUM Function MsgRun2( cCaption, cTitle, bAction ) Msg_Run( cCaption, cTitle, bAction ) Return NIL //----------------- MSG_RUM Function Msg_Run( cCaption ) STATIC isOn := .F. STATIC oDlgWt, nWidth, oFontmsg14 if empty(cCaption) if !empty(oDlgWt) isOn := .T. endif endif if isOn oDlgWt:End() oFontmsg14:End() isOn := .F. sysrefresh() Return NIL endif DEFAULT cCaption := "Aguarde..." DEFINE FONT oFontmsg14 NAME "Courier New" SIZE 0,-(14*1.33) ITALIC cCaption := Alltrim(cCaption) DEFINE DIALOG oDlgWt FROM 0,0 TO 3,Len(cCaption)+14 STYLE nOr( DS_MODALFRAME, WS_POPUP ) ; FONT oFontmsg14 COLOR CLR_YELLOW, CLR_BLUE oDlgWt:cMsg := cCaption nWidth := (oDlgWt:nRight - oDlgWt:nLeft) ACTIVATE DIALOG oDlgWt CENTERED NOWAIT ON INIT (isOn := .T.) ON PAINT oDlgWt:Say( 1, 2.0, ( oDlgWt:cMsg ) ) syswait(.1) Return nil Espero que ajude. HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Olá; Eu faço assim: No início dos PGR´s #INCLUDE "FiveWin.ch" #Include "VOGET.ch" #Define CLR_LGREEN nRGB( 190, 215, 190 ) // #Define CLR_LGRAY nRGB( 230, 230, 230 ) // suas cores #Define CLR_VERMELHO nRGB( 255, 000, 000 ) // personalizadas #Define CLR_AMARELO nRGB( 255, 255, 000 ) // Incluir na compilação o arquivo VOGET.PRG e na pasta dos fontes o arquivo VOGET.CH veja em dicas http://fivewin.com.br/exibedicas.asp?id=230 Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Olá a todos; Tem como verificar se tem o Word instalado via programação ? Até mais; Vander Obrigado a todos. Resouvido com a dica do Lailton. If IsActiveX("Word.Application") ? "Instalado" Else ? "Não Instalado" EndIf HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit Editado por - VLNUNES on 10/03/2011 18:19:56

Olá a todos; Tem como verificar se tem o Word instalado via programação ? Até mais; Vander Obrigado a todos. Resouvido com a dica do Lailton. If IsActiveX("Word.Application") ? "Instalado" Else ? "Não Instalado" EndIf HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit Editado por - VLNUNES on 10/03/2011 18:19:56

Olá Decker; Faço assim: ********** No PRG principal SELECT CONFIG .. .. FIFUNDO:=NDS16 // FIGURA DE FUNDO .. .. nResHoriz := oWnd:nHorzRes() // resolucao horizontal nResVert := oWnd:nVertRes() // resolucao vertical @ 00,00 BITMAP oBmp0 FILENAME FIFUNDO Size nResHoriz,nResVert*.905 OF oWnd Adjust UPDATE ACTIVATE WINDOW oWnd MAXIMIZED ********** Função chamada pelo botão de troca da imagem //----------------------------- FUNÇÃO PARA TROCAR FIGURA DE FUNDO #INCLUDE "FiveWin.ch" FUNCTION TROFIGU() LOCAL oDlg, oBmp, cName, oFont32, lStretch:=.f. TXTAJ:="Selecione no menu a esquerda a figura que deve ficar no fundo do aplicativo. A figura é exibida no painel a direita." SELECT CONFIG // CONFIG FIGFUN:=NDS16 // FIGURA DE FUNDO (NOVA) FIGFUA:=NDS16 // FIGURA DE FUNDO (ATUAL) cFilePath := "figuras" // PASTA DAS FIGURAS aFiles := {} cNombre := "" fig:=FIGFUN DEFINE FONT oFontPP1 NAME "Times New Roman" SIZE 0,-(20*1.33) bold italic DEFINE DIALOG ODLG RESOURCE "TCRIMG1" REDEFINE LISTBOX oLbx VAR cName ITEMS aFiles id 101 OF oDlg UPDATE ON CHANGE (oBmp:LoadBmp(cFilePath+cName),oBmp:REFRESH()) REDEFINE BITMAP oBmp ID 1 Of oDlg FILE (cNombre) Adjust UPDATE REDEFINE SAY oSAY PROMPT "TROCAR FIGURA DE FUNDO" ID 2 FONT oFontPP1 REDEFINE BUTTON ID 102 CANCEL ACTION (USARIMG(cName),oDlg:END()) REDEFINE BUTTON ID 103 CANCEL ACTION (CATRIMA(),oDlg:END()) ACTIVATE DIALOG oDlg ON INIT (NewDir()) centered oFontPP1:END() IF FIGFUN <> FIGFUA TROCAIMG() ENDIF RETURN (.T.) //------------------------- Cancelar FUNCTION CATRIMA() fig:=FIGFUN RETURN .T. //------------------------- USAR FUNCTION USARIMG(IIMMGG) FIGFU3:=IIMMGG // substr(oDbFile,FIGFU2+1) FIGFUA:="FIGURAS\"+FIGFU3 TravaReg(0) do while !Rlock() enddo REPLACE NDS16 WITH FIGFUA // FIGURA DE FUNDO LIBERA("CONFIG") RETURN .T. //-------------------------- CARREGAR IMAGENS FUNCTION NewDir() LOCAL cNewDir LOCAL aDir := {} cFilePath:=FilePath("FIGURAS\*.bmp") cNewDir := cFilePath + "*.bmp" aDir := DIRECTORY(cNewDir) aFiles := {} AEVAL(aDir,{|nreg,nact| AADD(aFiles,LOWER(aDir[nact,1]))}) aFiles := ASORT(aFiles) IF Empty(aFiles) cNombre := "" ELSE cNombre := aFiles[1] ENDIF oLbx:SETITEMS(aFiles) RETURN (.T.) //------------------------ SEPARAR NOMES FUNCTION FilePath( cFile ) LOCAL nPos, cFilePath IF (nPos := RAT("\", cFile)) != 0 cFilePath = SUBSTR(cFile, 1, nPos) ELSE cFilePath = "" ENDIF RETURN (cFilePath) //---------- TROCA A IMAGEM DO FUNDO FUNCTION TROCAIMG() FIFUNDO:=NDS16 oBmp0:LoadBmp( FIFUNDO ) oBmp0:refresh() RETURN .T. ********** No RC com WS TCRIMG1 DIALOG 6, 35, 401, 307 STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION CAPTION "BUSCAR IMAGEM" FONT 10, "MS Sans Serif" { LISTBOX IDC_LISTBOX34, 2, 27, 64, 245, LBS_STANDARD CONTROL "1", 1, "STATIC", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP, 75, 27, 324, 238 PUSHBUTTON "&Utilizar a imagem", 102, 65, 275, 106, 28 PUSHBUTTON "&Cancelar troca", IDC_PUSHBUTTON204, 226, 275, 106, 28 CTEXT "", 2, 2, 2, 397, 20, SS_CENTER | WS_BORDER | WS_GROUP } ********** Nota TravaReg() e LIBERA() são funçoes travar e liberar o registro atual quando o sistema é usado em rede. Espero ter ajudado. Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Enviei para saa50@bol.com.br um pequeno vídeo, da uma olhada, se entendi bém é +- isso. Se servir para uma ideia ou ponto de partida, separo os fontes e envio. * No momento de dar uma "olhada", cuidado para não "machucar o olho" Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Olá ZECA; Não sei se é o seu caso, mas tentei instalar no windows 7 home premium sem sucesso, mas no windows 7 ultimate instalou normal. Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Olá a todos; Vailton que tal uma votação oficial no Site do congresso ? Meu voto é iInterior de SP Vander Votação: ======== Interior de SP..............TOTAL: 3 VOTOS Herberson (Hergon) Luiz Servulo Vander Lúcio (vlnunes) SESC Belo Horizonte.....TOTAL: 2 VOTOS Vitor (SBC-SP) Dr.Microso Outros, .......................TOTAL: 0 VOTOS HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Olá; Aos participantes que iram de ônibus: Poderíamos combinar para dividir o valor taxi. No dia 05/11 chegarei ainda na parte da manhã, mas poderíamos sair do centro aproximadamente as 16:30. Vander. HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Aqui http://fivewin.com.br/forum/topic.asp?TOPIC_ID=18157 Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Veja se ajuda; http://fivewin.com.br/forum/topic.asp?TOPIC_ID=13653 e em dicas http://www.fivewin.com.br/ExibeDicas.asp?Id=132 Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Dê uma olhada em : http://fivewin.com.br/forum/topic.asp?TOPIC_ID=11150 Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Resp: Mônica Rousseff Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 Editado por - vlnunes on 20/09/2010 00:55:41

O Erro 2 se não me engano é arquivo não encontrado, verifique: TESTE=FOPEN(ARQTESTE) Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit