Jump to content
Fivewin Brasil

SAOliveira

Membros
  • Posts

    1,018
  • Joined

  • Last visited

  • Days Won

    6

Everything posted by SAOliveira

  1. De novo. O que é ∝ e &wAno, variavel ou pasta definida. ------------------------------------------------------------------- FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX, NFE By Solution Gilmer
  2. O que é ∝ e &wAno, variavel ou pasta definida. ------------------------------------------------------------------- FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX, NFE By Solution Gilmer
  3. Alguel esta usando ?? ------------------------------------------------------------------- FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX, NFE By Solution Gilmer
  4. Alguel esta usando ?? ------------------------------------------------------------------- FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX, NFE By Solution Gilmer
  5. cRecebe:=AllTrim(cGetFile32("Arquivos de Backup (*.RET) |*.RET|","Selecione o arquivo",1,LocalReceber)) cEnvia:=AllTrim(PastaSistema)+"\RECEBIDOS\"+AllTrim(_nomarq) __CopyFile(cRecebe,cEnvia) ------------------------------------------------------------------- FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX, NFE By Solution Gilmer
  6. Uai, pra mostrar a coisa redonda, queria que cor. o Coisa mais bambi. ------------------------------------------------------------------- FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX, NFE By Solution Gilmer
  7. Lamento pela perda de seu amigo. ------------------------------------------------------------------- FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX, NFE By Solution Gilmer
  8. Apenas três homens andaram sobre as águas em toda a história da humanidade: O primeiro foi *Cristo.* *...* *...* *...* O segundo foi *Pedro.* * **... ...* *... ** *O terceiro foi *Ivangivaldo.* * **.. .. .. * * **Ivangivaldo?** * **..* * **..* * **..* * **Quem é Ivangivaldo? ?? * * **O cara da foto abaixo!!! * **..** **..** **..** **..** **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  9. Apenas três homens andaram sobre as águas em toda a história da humanidade: O primeiro foi *Cristo.* *...* *...* *...* O segundo foi *Pedro.* * **... ...* *... ** *O terceiro foi *Ivangivaldo.* * **.. .. .. * * **Ivangivaldo?** * **..* * **..* * **..* * **Quem é Ivangivaldo? ?? * * **O cara da foto abaixo!!! * **..** **..** **..** **..** **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * **..* * ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  10. Melhor seria voce mostrar como esta fazendo, para termos por onde partir ou comparar. ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  11. SAOliveira

    TOOLBAR

    DEFINE BUTTON oBotWnd[15] OF oBarWnd RESOURCE "32_SENHA" PROMPT "Trocar"+CRLF+"Usuário" Group oBotWnd[15]:nLeft:=oWnd:nWidth-75 ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  12. SAOliveira

    Browse

    Usei durante muito tempo a TWBrowse() do Herman, hoje usa a xBrowse() nativa, nenhum arrependimento na troca, alias muito pelo contrario. ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  13. Bueno, resolvido com o método LUZITANO. Format c: ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  14. Mas como eu disse, acima. Sistema em rede, acessando .exe e arquivos no servidor ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  15. Alguem saberia dizer do que se trata este erro. hb_cdxIndexPageRead: Read index page failed. Isto começou depois que queimou a fonte do micro. Não é sistema, pois o mesmo roda em outras 4 maquinas. Grato ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX Editado por - S.A.Oliveira on 05/09/2009 12:36:00
  16. Alguem saberia dizer do que se trata este erro. hb_cdxIndexPageRead: Read index page failed. Isto começou depois que queimou a fonte do micro. Não é sistema, pois o mesmo roda em outras 4 maquinas. Grato ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX Editado por - S.A.Oliveira on 05/09/2009 12:36:00
  17. Já experimentou a TTxtFile() ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  18. Identicas, porém diferentes. ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  19. Veja se te dá alguma LUZ #include 'fivewin.ch' **--[ Setar Ambiente ]--** Set Date Brit Set Epoch To 1930 __SetCentury("on") Set Confirm ON Set Delete OFF Set Exclusive OFF SetHandleCount(250) Set Multiple OFF SET _3DLOOK ON SetBalloon( .T. ) **--[ RDD de arquivos e indices ]-----------------------** REQUEST SQLLIB REQUEST MYSQL REQUEST DBFCDX REQUEST DBFNTX RDDSETDEFAULT("DBFNTX") DBSETDRIVER("DBFNTX") REQUEST ORDKEYNO REQUEST ORDKEYCOUNT REQUEST ORDKEYGOTO **--[Conetar ao banco ]--** QualServer:="192.168.0.249" QualPorta:="3306" QualDatabase:="" QualUsuario:="personal" QualSenha:="personal" SqlLib_Conn( AllTrim(Lower(QualServer)),Val(QualPorta),Lower(AllTrim(QualDatabase)),Lower(AllTrim(QualUsuario)),Lower(AllTrim(QualSenha)),SQL_NO_WARNING,"MySql") xConn:=SQLGetConn() IF(SQL_ErrorNO() > 0) _Erro:="Não foi possível conectar ao banco de dados !"+CRLF+; "Informe esta mensagem ao suporte." +CRLF+; "IP : "+QualServer // +CRLF+; //SQL_ErrorMsg()+" " MsgInfo(_Erro," ..:: Falha na conexão com banco de dados ::..") Quit Endif IF(! DataBase("ico") ) IF(MsgNoYes("Database ICO, nao localizada, deseja criar ??","Atenção")) SQLLIB_ExecSql(xConn,"CREATE DATABASE ico") IF(SQL_ERRORNO() > 0) MsgInfo("Erro criando database ICO","atneção") Quit ENDIF ENDIF ENDIF SQL DISCONNECT QualDataBase:="ico" // redefiniu a database recem criada. SqlLib_Conn( AllTrim(Lower(QualServer)),Val(QualPorta),Lower(AllTrim(QualDatabase)),Lower(AllTrim(QualUsuario)),Lower(AllTrim(QualSenha)),SQL_NO_WARNING,"MySql") xConn1:=SQLGetConn() If ( ! Table('tabico',xConn1) ) ? "criando a tabela" SqlCmd:="CREATE TABLE `tabico` (" SqlCmd+= " `codigo` Int(10)" // codigo referencia SqlCmd+=", `nome` VarChar(50)" // codigo referencia SqlCmd+=", `valor` Decimal(10,2)" // codigo referencia SqlCmd+=", `registro` int(11) NOT NULL AUTO_INCREMENT" SqlCmd+=", `deletado` enum('F','T') DEFAULT 'F'" SqlCmd+=", PRIMARY KEY (`registro`)" SqlCmd+=" )" PSQL_Execute(xConn1,SqlCmd) ENDIF USE SQL "SELECT * FROM tabico" Alias "TMP" INTO xConn1 NEW IF(TMP->(RecCount())==0) ? "Inserindo Registros" TMP->(DBCloseArea()) FOR X = 1 TO 10 cCmd:="INSERT INTO tabico SET" cCmd+= " codigo = "+Any2Sql(x) cCmd+=", nome = "+Any2Sql(AllTrim(Str(x))+" - Nome") SQLLIB_ExecSQL(xConn1,cCmd) NEXT SQLLIB_ExecSQL(xConn1,"COMMIT") ENDIF TMP->(DBCloseArea()) ? "Mostrando registros em ordem de nome (Normal)" USE SQL "SELECT * FROM tabico" Alias "TMP" INTO xConn1 NEW TMP->(Browse()) TMP->(DBCloseArea()) ? "Mostrando registros em ordem de nome (descendind)" USE SQL "SELECT * FROM tabico ORDER BY nome DESC" Alias "TMP" INTO xConn1 NEW TMP->(Browse()) TMP->(DBCloseArea()) ? "Atualizando campo valor, dos codigos >=3 e <=6" cCmd:="UPDATE tabico SET" cCmd+=" valor = "+Any2Sql(1.00) cCmd+=" WHERE codigo BETWEEN "+Any2Sql(3)+" AND "+Any2Sql(6) SQLLIB_ExecSQL(xConn1,cCmd) SQLLIB_ExecSQL(xConn1,"COMMIT") ? "Mostrando registros com campo valor atualizado" USE SQL "SELECT * FROM tabico ORDER BY nome DESC" Alias "TMP" INTO xConn1 NEW TMP->(Browse()) TMP->(DBCloseArea()) ? "Mostrando registros com campo valor atualizado em ordem (descending)" USE SQL "SELECT * FROM tabico ORDER BY valor DESC" Alias "TMP" INTO xConn1 NEW TMP->(Browse()) TMP->(DBCloseArea()) DBCloseAll() RETURN(nil) id=code>id=code>------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  20. LUIZ, se conselho fosse bom, não se dava vendia, mas aí vai um. Realmente voce pode usar uma gama muito grande de comandos xBase com RDDs, mas amigo esqueça isto, vai ficar lerdo ao ponto de voce ter saudades do DBF. ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  21. Falando nisto NFe, fui consultado por cliente, a respeito dela pois o mesmo entrou na obrigatoriedade, mas o cara trabalha com venda em pronta entrega, e mesmo assim vai estar obrigado, ou seja mai emitir 1 NFe de Simples remessa e outra de retorno, o resto tudo no talao que acontanha os veiculos. ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  22. Evando, quando a gente faz a impressão, adiciona o componente da imagem, e nela aponta onde a mesma esta. Eu queria ao invez disto, utilizar uma imagem de recurso .RES ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  23. Oia, cum sertesa voisunce de burro num teim nada. Cumo eu briviei FAST, num vo fala pra faze busca, te ficava xato. FAST = FastReport Servi pra faze relatorio. ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  24. Alguem seberia dizer como imprimir uma IMAGEM, direto de resource na FAST. Sem POG, pura e simplesmente chamar a imagem direto. ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
  25. Alguem seberia dizer como imprimir uma IMAGEM, direto de resource na FAST. Sem POG, pura e simplesmente chamar a imagem direto. ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX
×
×
  • Create New...