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