Flavio A. Zago

Pessoal, Este site tem um aplicativo free, tambem tenho que desenvolver NF-e, acho que vale a pena dar uma olhada. http://www.unimake.com.br/uninfe/index.php []´s Flavio.

Ola Gilberto Vê se ajuda. #Include "FiveWin.ch" PROCEDURE Main() LOCAL; aPrinter := GetPrinters(.T.),; cMsg,; i CLS IF Empty( aPrinter ) MsgInfo('Não há impressoras instaladas.') QUIT ENDIF cMsg := 'Impressoras disponíveis'+CHR(10)+CHR(13) cMsg := +CHR(10)+CHR(13) FOR i := 1 TO Len( aPrinter ) cMsg += aPrinter[i,1]+' -> '+aPrinter[i,2]+CHR(10)+CHR(13) NEXT i MsgInfo(cMsg) RETURN NIL []´s Flavio xHb-Enterprise+Fw28

Ola Bene Tambem tenho o mesmo problema. Provavelmente o arquivo que você está tentando fazer o APPEND esteja com finalização de linha com o CHR(10), e nao CHR(10)+CHR(13). Faça um teste da seguinte forma: FUNCTION Main(cFileTxt) LOCAL; cSvSetEOL := SET(_SET_EOL) DBCREATE('Teste.dbf', {{'Txt', 'C', 78, 0}}) USE Teste.dbf NEW EXCLUSIVE ALIAS TESTE // Sem mudar o default da finalização de linha do xHb APPEND FROM (cFileTxt) SDF BROWSE() ZAP() // Mudando o default da finalização de linha do xHb SET(_SET_EOL,CHR(10)) APPEND FROM (cFileTxt) SDF BROWSE() SET(_SET_EOL,cSvSetEOL) // Restaura default RETURN NIL []´s Flavio xHb-Interprise + FWH8

Ola Jackson Não sei se entendi bem, mas se o que você quer é calcular a diferença em minutos entre as duas horas tente a seguinte função: FUNCTION CalcTime(cTimeInicio, cTimeFim) RETURN (((VAL(SUBSTR(cTimeFim,1,2))*3600) + ; (VAL(SUBSTR(cTimeFim,4,2))*60) + ; (VAL(SUBSTR(cTimeFim,7,2)))) - ; ((VAL(SUBSTR(cTimeInicio,1,2))*3600) + ; (VAL(SUBSTR(cTimeInicio,4,2))*60) + ; (VAL(SUBSTR(cTimeInicio,7,2))))) / 60 Obs. não está previsto a situação de as horas serem de datas diferentes. []´s Flavio

Ola Renato Verifique se na saída do WHILE o seu vetor tem os elementos que você está tentando acessar. Coloque um MsgInfo(STR(LEN(aFormPg))) e veja o resultado. WHILE ! FORMASPG->(EOF()) AADD(aFormPg, FORMASPG->ITEM03) FORMASPG->(DBSKIP(1)) END MsgInfo(STR(LEN(aFormPg))) Se você quiser forçar o vetor a ter 10 elementos na saída do WHILE mude para: WHILE ! FORMASPG->(EOF()) .OR. LEN(aFormPg) < 10 []´s Flavio

Ola pessoal Recebi hoje uma informação de que o SUPER SINTEGRA para o estado de SP foi adiado para 01/01/2008. Leiam em http://www.utilitas.com.br/ICMSComuCAT0050d06.htm []´s Flavio

Ola Esta função retorna o conteúdo de um variável do ambiente operacional. Abra o prompt do MS-DOS e digite o commando SET para ver todas as variaveis e os seus conteúdos. Se o seu Windows for o XP, digite SET P e você verá uma lista de todas as variáveis iniciadas por P como por exemplo que é a dita cuja que contem a informação que você queria. []´s Flavio

Ok Já foi. []´s Flavio

Ola Teste assim: #Include "FiveWin.ch" FUNCTION Main() MsgInfo(GetEnv("ProgramFiles")) RETURN NIL []´s Flavio xHb-Enterprise + FWH-2.8

Obrigado Kapiaba e Vagner Farei isso, mas é estranho, pois funcionava perfeitamente na versão FWH26. []´s Flavio

Pessoal Atualizei meu FWH26 p/ FWH28 e após isso estou tendo problemas com a clausula VALID quando só tem um GET. Alguem pode me ajudar? Abaixo um exemplo onde o VALID não funciona: #Include "FiveWin.ch" FUNCTION Main() LOCAL oDlg,; cGet := SPACE(1),; oGet DEFINE DIALOG oDlg TITLE "Teste GET (VALID)" @ 2,6 GET oGet VAR cGet PICTURE '@R 9' OF oDlg SIZE 10, 10 VALID TestValid() ACTIVATE DIALOG oDlg CENTERED RETURN NIL FUNCTION TestValid() MSGINFO('PASSOU') RETURN .T. []´s Flavio FWH28 + VERCE 4.3 + XHARBOUR 99.61 + WORKSHOP FWH28 + XBUILD + XHARBOUR (ENTERPRISE)

Pessoal Atualizei meu FWH26 p/ FWH28 e após isso estou tendo problemas com a clausula VALID quando só tem um GET. Alguem pode me ajudar? Abaixo um exemplo onde o VALID não funciona: #Include "FiveWin.ch" FUNCTION Main() LOCAL oDlg,; cGet := SPACE(1),; oGet DEFINE DIALOG oDlg TITLE "Teste GET (VALID)" @ 2,6 GET oGet VAR cGet PICTURE '@R 9' OF oDlg SIZE 10, 10 VALID TestValid() ACTIVATE DIALOG oDlg CENTERED RETURN NIL FUNCTION TestValid() MSGINFO('PASSOU') RETURN .T. []´s Flavio FWH28 + VERCE 4.3 + XHARBOUR 99.61 + WORKSHOP FWH28 + XBUILD + XHARBOUR (ENTERPRISE)

Ola Paulo De um olhadinha em: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4927&ARCHIVE= Parece que tem o que você está querendo. []´s Flavio

Ola Marcelo Acho que a solução seria trabalhar com ERRORBLOCK, abaixo um exemplo bem simples, só para dar uma idéia do que fazer. #Include "FiveWin.ch" #Include "InKey.ch" FUNCTION Main() LOCAL; bSvErrorSys := ERRORBLOCK({|oObjError|MyErrorSys(oObjError)}),; cFuncao1 := 'Teste1()',; cFuncao2 := 'Teste2()' BEGIN SEQUENCE &cFuncao1 // Aqui passa IF INKEY(1) == K_ESC BREAK ENDIF &cFuncao2 // Aqui detecta erro END ERRORBLOCK(bSvErrorSys) // Reestabelece o controlador de erro padrao RETURN NIL FUNCTION Teste1() TONE(2000,1) RETURN NIL FUNCTION MyErrorSys(oObjError) MsgInfo('Função executada não existe.') BREAK RETURN .T. []´s Flavio FWH26 + [x]Harbour + Verce

Ola Rossine Você pode encontrar mais informações em: http://www.fazenda.gov.br/confaz/ Acesse LEGISLAÇÃO/ATOS/COTEPE/2005/35 -> 70/05 Se souber mais alguma novidade nos informe. []´s Flavio

Ola Amauri Bem vindo Especifique o erro, e tambem oque voce esta usando. Versao do FW Sistema operacional Dll que voce esta se referindo Toda informacao ajuda a te ajudar. []´s Flavio

Ola jef2_tim Tu ta bravo mesmo Heim. Mas no frigir do ovos é exatamente o que voce disse, nos trabalhamos de graça pros caras. Agora em outubro temos que dar o troco. []´s Flavio PS. Tambem só levei fumo com o TEF.

Ola amigos Vocês estão a par do ato cotepe 35, pelo que estou sabendo o SINTEGRA em seu lay-out atual deixa de ser valido a partir de Janeiro de 2007. O novo lay-out é infinitamente mais complexo doque o atual e vai englobar tudo inclusive parte Contabil, Folha, etc... []´s Flavio

Ola sdinfo Verifique se voce tem as pastas TMP e/ou TEMP []´s Flavio

Ola Leonardo Existe mais de uma soluçao para o seu problema. 1-) Criar um drive virtual no Servidor usando SUBST Ex.: SUBST F: C:\ Mude c:\check\bitmaps\logomeu.jpg f:\check\bitmaps\logomeu.jpg 2-) Configurarcao do caminho por terminal 3-) Acessar o arquivo sem especificar o drive, tipo ..\..\ Devem ter outras soluções, mas de momento é o que me lembro []´s Flavio

Ola Rodrigo Dá uma olhada em: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=6030 []´s Flavio

Ola pessoal Vamos mudar o foco do problema, (Me corrijam se eu estiver errado). Quando programamos ForWindows devemos mudar um pouco o nosso conceito de Programas Estruturados, como faziamos no Clipper. A meu ver para que o laurenti consiga o que ele quer, o bloco if lAchei use sql cCmdSql alias tmp new via 'MYSQL' REDEFINE LISTBOX oLbx ; FIELDS ; UPDATE ; ID 102 OF oDlg2 ; endif tem obrigatóriamente que estar em uma função separada, que sera executada quando um determinado evento for disparado, pois do jeito que esta, não vai funcionar, já que tudo que esta entre o DEFINE DIALOG e o ACTIVATE DIALOG é processado no momento do ACTIVATE, não sendo possível desta forma verificar o IF pois o mesmo já foi processado antes mesmo do GET estar com o foco. []´s Flavio

Bom dia Zima O que você quer dizer com PADRÃO, pois no FiveWin você pode usar qualquer cor, bastando para isso combinar o RGB (Red, Green e Blue). Dá uma olhadinha no COLORS.CH que esta na pasta INCLUDE do FiveWin, lá tem algumas definições, e pode te ajudar a enterder como funciona. []´s Flavio

Ola Geraldo Tente esta funcao: FUNCTION EstaTravado() LOCAL lLocked := .F. IF ISLOCKED(RECNO()) lLocked := .T. ELSE IF ! RLOCK() lLocked := .T. ELSE DBUNLOCK() ENDIF ENDIF RETURN lLocked Acho que é isso Nao esqueca que a AREA deve estar selecionada e posicionada no registro que se deseja verificar. []´s Flavio

Ola Alexandre Ja passei por isso, e a unica forma que encontrei para resolver foi ter duas ListBox sobrepostas. Se voce quiser mando um exemplo para seu E-Mail, ou posto em dicas se o pessoar achar que é do interesse de todos. []´s Flavio