sistem

SISCOtambem estou aprendendo SQLRDD para exportar dbf para mysql estou fazendo assim: If oApp:ExportaDBFtoSQL="YES" If File( oApp:cDir_000+"usua.dbf" ) lPath000:=.t. Else lPath000:=.f. Endif dbSelectArea( "0" ) If !netuse("usua.dbf",.f.,1,"usua") // base em DBF Endif dbSelectArea( "0" ) If NetUseSql("usua",.t.,10,"usuasql") / databese mysql dbZap() Endif If lPath000 MsgRun( "Aguarde!, importando dados...", "usuasql", { || __dbApp( (oApp:cDir_000)+"usua", {},,,,,.F., "DBFCDX") } ) Else MsgRun( "Aguarde!, importando dados...", "usuasql", { || __dbApp( (oApp:cDir_002)+"usua", {},,,,,.F., "DBFCDX") } ) Endif SR_GetConnection():exec( "DELETE FROM usua WHERE nom_usua='SISTEM'" ) SR_GetConnection():exec( "INSERT INTO usua (nom_usua, sen_usua, usu_usua, tim_usua) values ('SISTEM', 'TESTE', 'SISTEM', 'SISTEM')" ) usua->(dbCloseArea()) usuasql->(dbCloseArea()) Endif eh abrir a o dbSQLarea e dar o append

amigo a funcao abaixo exibi barra de progresso. Com CDX funciona... mais com SQLRDD que estou aprendendo nao mostra a barra. alguem sabe como resolver? FUNCTION BuildIndex( oMeter, oText, oDlg, lEnd, campo, cTag, lTrue, cDbf, lDecresente ) IF lTrue = NIL lTrue := .t. ENDIF If lDecresente = NIl lDecresente=.f. Endif oDlg:lHelpIcon := .f. oMeter:nTotal = RecCount() OrdSetFocus(0) If lDecresente INDEX ON &(Campo) TAG &(cTag) TO &(cDbf) DESCENDING EVAL ( oMeter:Set(Recno()), SysRefresh(), ! lEnd ) Else INDEX ON &(Campo) TAG &(cTag) TO &(cDbf) EVAL ( oMeter:Set(Recno()), SysRefresh(), ! lEnd ) Endif RETURN NIL obrigado

veja se ajuda Function pgpeso(nTara, cPorta) Local cDados, nPeso:=0 Default nTara:=0 Default cPorta:="COM1" nHandle:=Init_Port(cPorta,2400,8,0,1,4000) OutBufClr(nHandle) OutChr(nHandle,CHR(5)) SysWait(0.3) Bytes := InbufSize(nHandle) cDados=Space(20) Buffer := InChr( nHandle, Bytes, @cDados) UnInt_Port(nHandle) nPeso=(val(substr(cDados,2,5))/1000)-nTara Return nPeso segue link da lib http://www.salc.com.br/atual/hbcomm.lib

Kapiaba vc pretende apagar os PDFs da pasta unidanfe\email\anexos\ referente a CCe é isto?

eroni vixi... e agora? sera que nao tem um outro TIMER oTimer anulando o primeiro executando uma funcao q nao seja visivel? alguem vai descobrir esse misterio eh soh esperar

http://partners.bematech.com.br/2011/09/edicao-85-verificando-se-ha-reducao-z-pendente/

deve ser seu intervalo = 5 uso assim: DEFINE TIMER oTimer INTERVAL 10000 ACTION MsgUsua(oTimer, oWndP) OF oWndP ACTIVATE WINDOW oWndP MAXIMIZED ON INIT oTimer:activate() no wiki do fivewin indica q o intervalo seja em milesimos de segundo http://wiki.fivetechsoft.com/doku.php?id=fivewin_commands_timers&s=timer

DEFINE WINDOW oWin // esse combina mais com o Activate window ... .. . Activate window oWin

http://www.pctoledo.com.br/forum/viewtopic.php?f=1&t=12296 CHR(27) + "!" + CHR(00) // INICIAR NORMAL CHR(27) + "!" + CHR(01) // INICIAR COMPACTADO CHR(27) + "!" + Chr(09) // INICIAR COMPACTADO COM NEGRITO CHR(27) + "!" + CHR(08) // ATIVA NEGRITO CHR(27) + "!" + CHR(00) // INICIAR NORMAL CHR(27) + "!" + Chr(16) // ATIVA DUPLA LINHHA CHR(27) + "!" + Chr(128)// ATIVA SUBLINHADO CHR(27) + "!" + Chr(32) // ATIVA EXPANDIDO CHR(27) + "m" // CORTA PAPEL PARCIAL

alguem sabe como condensar nessa impressora? estou usando o Tdosprn e nada obrigado Editado por - sistem on 23/12/2012 03:00:46 Editado por - sistem on 23/12/2012 09:02:14

alguem sabe como condensar nessa impressora? estou usando o Tdosprn e nada obrigado Editado por - sistem on 23/12/2012 03:00:46 Editado por - sistem on 23/12/2012 09:02:14

PODE SER que seja bloqueio da conta por parte do hotmail... se for mesmo isto, logo no inicio(ao entrar na conta) mostra uma msg vc segue os passos e desbloqueia. jah aconteceu aqui

citação:Amiguinhos, Vou tentar adivinhar qual solução se aplica ao seu caso já que não encontrei informações mais claras sobre o que deseja como, um trecho de código ou nome de uma classe que esta usando. Suponde que voce esteja usando a classe tBrowse() padrão do Fivewin voce apenas deverá incluir uma opção de menu ou botão na sua barra de botões, chamando as funções logo abaixo. Supondo que o nome da variável de suporte de seu browse seja, oLbx123, voce deverá passá-la à função. ... MENUITEM ... ACTION Reportar( oLbx123 ) id=code>id=code>Acrescente estas funções ao seu codigo fonte: function Reportar( oLbx ) local oRpt local n local cAlias := If( oLbx != nil, oLbx:cAlias, Alias() ) Select( Alias() ) REPORT oRpt TITLE "Report: " + cAlias ; HEADER "Date: " + DToC( Date() ) + ", Time: " + Time() ; FOOTER "Page: " + Str( oRpt:nPage, 3 ) ; PREVIEW if Empty( oRpt ) .or. oRpt:oDevice:hDC == 0 return nil endif for n = 1 to FCount() oRpt:AddColumn( TrColumn():New( { FInfo1( cAlias, n ) },,; { FInfo2( cAlias, n ) },,,,,,,,,, oRpt ) ) next ENDREPORT ACTIVATE REPORT oRpt GO TOP return nil static function FInfo1( cAlias, n ) return { || ( cAlias )->( FieldName( n ) ) } static function FInfo2( cAlias, n ) return { || ( cAlias )->( FieldGet( n ) ) } id=code>id=code>Editado por - rochinha on 20/12/2012 17:49:03 id=quote>id=quote>completanto o que o Rochinha disse se usar o xBrowse ... action .... oLbx:report() (nativo)

Gabrieis acho q nao entendi o que vc queria? vc quer passar um get com valor numerico, caso nao exista esse valor abrir um browse para selecao, dai atualizar o get com valor e descricao ? como na imagem abaixo?

ver link: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=20732 pode ser q ajude at+

... // aqui o get para fazer pesquisa em outra base de dados @ 080, 140 GET oFrc_Rece VAR cFrc_Rece PIXEL OF oDlg VALID LkPeTprc(cFrc_Rece, oFrc_Rece) COLOR CLR_GET1,CLR_GET2 SIZE 80, 10 BITMAP "" PICTURE "@!" ACTION PesqTprc( oFrc_Rece ) ... ... // Funcao Pesquisa Tipo de Recebimento Function PesqTprc( oGet ) local oFontPeTprc, oLbx, oDlg, Apelido:=Alias() DEFINE FONT oFontPeTprc NAME "Arial" SIZE 0, -12 DbSelectArea("Tprc") Tprc->(DbSetOrder("Tprc2")) // poe na ordem alfabetica Tprc->(DbGoTop()) DEFINE DIALOG oDlg FROM 4, 4 TO 24, 52 TITLE "Tipo de Recebimento" @ 1.3,0 xBROWSE oLbx FIELDS Tprc->Cod_Tprc,; Tprc->Nom_Tprc; HEADERS "Cód",; "Descrição Tip.Recebimento"; JUSTIFY .f., .f.; SIZE 190, 120 FONT oFontPeTprc ALIAS "TPRC" OF oDlg oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW oLbx:nColDividerStyle := LINESTYLE_BLACK oLbx:nRowDividerStyle := LINESTYLE_BLACK oLbx:lColDividerComplete := .t. oLbx:lFooter := .t. oLbx:nFreeze := 0 oLbx:bClrSelFocus := {|| { CLR_BLACK, CLR_FOCO } } oLbx:bClrStd := {|| { CLR_WHITE, IIF((Tipo->(ORDKEYNO()))%2==0, CLR_BRW1, CLR_BRW2) } } oLbx:bKeyDown := {|nKey| BrwKeyPeTprc(nkey, oDlg, oLbx, oGet) } oLbx:SetRDD() oLbx:CreateFromCode() oDlg:oClient := oLbx oDlg:lHelpIcon := .f. ACTIVATE DIALOG oDlg ON INIT ( oLbx:SetFocus() ) Tprc->(DbSetOrder("Tprc1")) Select &Apelido // volta para area do 1o get Return nil *-------------------------------------------------------------------------------- static function BrwKeyPeTprc( nKey, oDlg, oLbx, oGet) If nKey == VK_RETURN // enter pega o valor da pesquisa e atualiza o 1o get oGet:varput(Tprc->Cod_Tpr) // atualiza o get oGet:Refresh() oDlg:End() Endif Return nil *----------------------------------------------------------------------- FUNCTION LkPeTprc( cKey, oFrc ) LOCAL W_Ok := .T. DbSelectArea("Tprc") Tprc->(DBSETORDER("Tprc1")) Tprc->(Dbseek(cKey)) IF Tprc->(Eof()) // se chegar ao fim do arquivo abre browse para pesquisa PesqTprc( oFrc ) W_Ok := .F. ENDIF RETURN ( W_Ok ) id=code>id=code>

recuperar? se for exibir... uso essa funcao do link abaixo http://forums.fivetechsupport.com/viewtopic.php?f=6&t=13052&hilit=GetMacAdd

tente assim oDlg:bInit = {|| ROTINA() } // camando assim pode ser que tenha um comportamento diferente do ON INIT, nao testei ou assim oDlg:bStart = {|| ROTINA() } espero ter ajudado

macio TEM COMO MUDAR PARA ALGO DE DOMINIO PULICO? tem, mais vc pode usar no proprio computador subistituir as linhas: cHtml := WebConnect():New() cHtml := cHtml:Open( "http://www.sistem.net.br/gmapdist.html" ) por: cHtml := MemoRead(uRegPath+"\gmapdist.html") o codigo gmapdist.html ta logo acima eu tenho o google chrome portable e testei assim e funciona, linha de comando: WINEXEC( ....googlechromeportable e:\test\tempgmapdist.html se preferir usar o codigo de seu computador nao tenho outro navegado para teste Editado por - sistem on 06/12/2012 10:25:43

*======================= #include "fivewin.ch" Class WebConnect Data oWeb Method New() Constructor Method Open() Method End() INLINE ::oWeb:=Self:=Nil EndClass *-- Method New() Class WebConnect Try ::oWeb := CreateObject('MSXML2.XMLHTTP') Catch ::oWeb := CreateObject('Microsoft.XMLHTTP') End Return Self *-- Method Open( cUrl ) Class WebConnect Local cRet := "" If ValType( cUrl ) == 'U' Return cRet EndIf Try ::oWeb:Open("POST",cUrl,.f.) ::oWeb:Send() cRet := ::oWeb:responseBody Catch; End Return cRet id=code>id=code>

criando o vetor e caminho do diretorio local aFiles, nCount, aSource:={}, cCod_Vend:="005", cDir_Sit:="c:\test\" aFiles := Directory(cDir_Sit+"????"+cCod_Vend+".txt") //pega todos os arquivos do diretorio test de formato ????005.txt. ... use *.* para todos If Empty(aFiles) MsgAlert( "arquivo n encontrado." ) Return nil Endif For nCount = 1 TO Len(aFiles) If aFiles[nCount,2] > 0 // se o tamenho do arquivo for maior que zero aAdd( aSource, Alltrim(aFiles[nCount,1]) ) //armazena o nome do arquivo no vetor aSource Endif Next *------- LISTBOX Local oDlg, oLbx, N1:=1 DEFINE DIALOG oDlg FROM 4, 4 TO 35, 85 TITLE "Dialog Teste" @ 06,0 LISTBOX oLbx FIELDS aSource[n1,1] HEADERS "NOme do arquivo" FIELDSIZES 200 SIZE 100, 065 FONT oFont OF oDlg oLbx:bGotop := { || n1 := 1 } oLbx:bGoBottom := { || n1 := eval( oLbx:bLogicLen ) } oLbx:bSkip := { | nwant, nold | nold := n1 , n1 +=nwant, n1 := max( 1, min( n1, eval( oLbx:bLogicLen ))), n1 - nOld } oLbx:bLogicLen := { || len( aSource ) } oLbx:cAlias := "Array" oDlg:lHelpIcon:=.f. ACTIVATE DIALOG oDlg CENTERED id=code>id=code>

google pesquisa " Thunderbird Enviar email usando a linha de comando" thunderbird -compose "to='john@example.com,kathy@example.com',cc='britney@example.com',subject='dinner',body='How about dinner tonight?',attachment='C:\temp\info.doc,C:\temp\food.doc'" (use attachment="file:///C:/temp/food.doc" for Thunderbird 2.0) http://kb.mozillazine.org/Command_line_arguments_-_Thunderbird Editado por - sistem on 03/12/2012 16:29:34

na madrugada assusta mesmo...

vlw gente depois irei postar exemplo com mutiplos pontos com gpolyline para o amigo zazibr obs: buscando o html de um host da internet com o exemplo acima Function GOOGLE_MAPA_DIST() Local cHtml:="", oOle If !IsInternet() Msgalert("não conectado a internet.", "Aviso!") Return nil Endif cHtml := WebConnect():New() cHtml := cHtml:Open( "http://www.sistem.net.br/gmapdist.html" ) Ferase(uRegPath+"\tempgmapdist.html") oOle:= CreateObject("InternetExplorer.Application") oOle:Visible := .t. oOle:ToolBar := .f. oOle:StatusBar := .t. oOle:MenuBar := .f. // cHtml := MemoRead(uRegPath+"\gmapdist.html") // linha desativada cHtml := StrTran( cHtml, "ORIGEM", Alltrim(Empr->End_Empr)+", "+Alltrim(Empr->Nmr_Empr)+", "+Alltrim(Empr->Cid_Empr)+" - "+Empr->Est_Empr) cHtml := StrTran( cHtml, "DESTINO", Alltrim(Clie->End_Clie)+", "+Alltrim(Clie->Nmr_Clie)+" "+Alltrim(Clie->Cid_Clie)+" - "+Clie->Est_Clie) MemoWrit(uRegPath+"\tempgmapdist.html", chtml) oOle:Navigate2(uRegPath+"\tempgmapdist.html") hWnd:=oOle:hWnd ShowWindow(hWnd, 3 ) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6 BringWindowToTop(hWnd) Return nil id=code>id=code>a classe WebConnect tem aqui no forum é soh pesquisar, nao lembro o autor +acho que seja o lailton

amigo o exemplo acima é a distância geodesica entre 2 pontos(menor distancia em uma esfera(globo)) no seu caso teria que usar gPolyline do google maps, vamos ver como fica. Lembrei de topologia de rede o amigo quer ligar um ponto a outro ponto esse ultimo ponto ligar um terceiro ponto ou seria em forma de estrela?