Jump to content
Fivewin Brasil

netsys

Membros
  • Posts

    326
  • Joined

  • Last visited

  • Days Won

    5

Posts posted by netsys

  1. Boa noite colegas

    Desde já agradeço as valiosas opiniões aqui postadas e acho que esse assunto ainda vai dar muito "pano pra manga" daqui pra frente.

    Como disse o EMotta, realmente é outra filosofia/estrutura, mas lembremos que, quando programavamos em Clipper ninguém imaginava o que seria um DEFINE DIALOG........ACTIVATE, né? Também tivemos que nos adaptar à nova estrutura de "janelas".

    FW nos trouxe também fortes conceitos de OOP que não utilizávamos antes e, em linhas gerais, ele traduz tudo para um código C que é compilado e linkado para gerar os EXEs no ambiente Windows.

    Talvez um dia o Fiveweb ou outra solução FW nos force a repensar esses conceitos e por fim, gerar um código Java, PHP ou qualquer coisa que rode em um servidor web.

    Obrigado novamente.

    abs

    Alberto

     

     

     

     

  2. Caros e nobres colegas do Fivewin

    Faz tempo que não posto nada aqui, mas continuo usando e gostando muito de FW.

    Não sei se este é o melhor lugar, e nem se já tem outro tópico sobre este assunto, mas vamos lá:

    Tem este o objetivo de saber dos nobres colegas, qual sua visão atual (e futura) para nossas vidas de fivewinners...

    Todos sabemos que, em determinado momento teremos que migrar nossos sólidos sistemas para o ambiente web, sob pena de ficar fora do mercado...

    Não que eu acredite que os sistemas "desktop" devam ou se vão acabar... tem muitas aplicações que não precisam ser "web' e outras nem devem (p.ex PDV...)

    Mas talvez sejam relegados à aplicações "perféricas"....

    Eu mesmo tenho desenvolvido algumas coisas em HTML5, PHP, JAVA, Python, etc, mas confesso que usar essa "sopa de letrinhas" às vezes é chato pra caramba... 

    Na programação web, às vezes você começa a fazer em Java e para colocar alguma coisa diferente descobre que:... haaa para isso é melhor fazer em PHP...rs

    Por isso no final parece uma sopa de letrinhas....kkk... Também tem a questão dos APPs Android e IOs.... Consumo de WS, APIs, blá, blá, blá.....

    O que aconteceu com o Fiveweb ?? Parou ?? Tinha muitas esperanças de fazer tudo com uma só linguagem parecida com FW.. Dá uma luz aí Gilmer e pessoal...

    De qualquer forma, desde já agradeço a opinião dos colegas aqui... Creio que muitos tem estas questões estalando na cabeça também.

    Abraços

    Alberto Zamai

    Santo André - SP

     

     

     

  3. Karaka! Que alívio...rsrsrs

    Pensei que eu era um dos poucos "velhinhos" aqui....

    Desde 1981 (Cobol no IBM/370).... Cobra 300 (ADutheil...lembra do joguinho de texto HAMURABI de perguntas e respostas?)....

    Depois disso só PC's.....gostei da foto do 1o. IBM-PC.... Fantástico.

    Será que assim como os dinossauros também estamos em extinção?

    Dizem que as máquinas com I.A. vão aprender a se programar sozinhas...... será?

    Abraços fraternos.

     

     

     

     

  4. Tente assim:

    Sql_command:="Insert into Clientes ( codigocliente, nomecliente, cidade, loja, telefonefixo, telefonecelular, anotacoes ) VALUES ( "

    Sql_command+=Any2Sql(cCodigocliente)+","

    Sql_command+=Any2Sql(cNomecliente)+","

    Sql_command+=Any2Sql(cCidade)+","

    Sql_command+=Any2Sql(cLoja)+","

    Sql_command+=Any2Sql(cTelefonefixo)+","

    Sql_command+=Any2Sql(cTelefonecelular)+","

    Sql_command+=Any2Sql(cAnotacao)+")"

    SqlExecute(Sql_command)

    Depois veja se ele criou um sqllog.txt com algum erro na pasta do sistema.

    abs

    Alberto - SP

  5. Caro Sr. Márcio

    Como vai, tudo bem? Espero que sim.

    Só uma pergunta: O Sr. tem alguma coisa contra os BÊBADOS?????

    Então fique sabendo que: QUEM NÃO BEBE NÃO VÊ O MUNDO GIRAR!

    Claro que estou falando daqueles inofensivos, tipo o KAPIABA assim.........tá certo? (tem que mexer com o capeta!)

    Abraços

  6. ; Script generated by the Inno Setup Script Wizard.
    ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

    [setup]
    ; NOTE: The value of AppId uniquely identifies this application.
    ; Do not use the same AppId value in installers for other applications.
    ; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
    AppId={{4052AC44-29AF-4F6D-80D8-46BBD43A9909}
    AppName=Novo Sistema ES
    AppVerName=Novo Sistema ES v.2012
    AppPublisher=ES Engenharia Segurança e Medicina do Trabalho
    AppPublisherURL=http://www.es-engenharia.com.br
    AppSupportURL=http://www.es-engenharia.com.br
    AppUpdatesURL=http://www.es-engenharia.com.br
    DefaultDirName={pf}\Novo Sistema ES
    DefaultGroupName=Novo Sistema ES
    OutputDir=D:\CLIENTES\ESENGE\INSTALA2
    OutputBaseFilename=setupnovoes
    SetupIconFile=D:\CLIENTES\ESENGE\ESENGE32.ICO
    Compression=lzma
    SolidCompression=yes

    [Languages]
    Name: "brazilianportuguese"; MessagesFile: "compiler:Languages\BrazilianPortuguese.isl"

    [Tasks]
    Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

    [Files]
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Esengmed.exe"; DestDir: "{app}"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\BWCC32.DLL"; DestDir: "{app}"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\LIBMYSQL.DLL"; DestDir: "{app}"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\PREV32.DLL"; DestDir: "{app}"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Esengmed.bmp"; DestDir: "{app}"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\CHAMADO.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\PROPOSTA.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\PROTOCOL.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\ADMIS.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\ASO.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\AUDIO.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\AUDIO.XLS"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\FICHA.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\GUIA.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\INQUERI.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\OCUPA.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\RELATOR.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\TACEITE.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    Source: "D:\CLIENTES\ESENGE\INSTALA2\Modelos\ENVELOPE.DOC"; DestDir: "{app}\Modelos"; Flags: ignoreversion
    ; NOTE: Don't use "Flags: ignoreversion" on any shared system files

    [icons]
    Name: "{group}\Novo Sistema ES"; Filename: "{app}\Esengmed.exe" ; WorkingDir: "{app}"
    Name: "{group}\{cm:UninstallProgram,Novo Sistema ES}"; Filename: "{uninstallexe}" ; WorkingDir: "{app}"
    Name: "{commondesktop}\Novo Sistema ES"; Filename: "{app}\Esengmed.exe"; Tasks: desktopicon ; WorkingDir: "{app}"

    [Run]
    Filename: "{app}\Esengmed.exe"; Description: "{cm:LaunchProgram,Novo Sistema ES}"; Flags: nowait postinstall skipifsilent

    Será que ajuda?

    abs

    Alberto - SP

  7. Calma Tião! Você é que está precisando relaxar!

    O Rogério Teixeira só levantou a bola e eu coloquei uma opinião (liberdade de expressão).

    Também RESPEITO a SUA (2a lei da Democracia).

    Em NENHUM MOMENTO, se falou em ódio aos nordestinos ou intolerância com pobres, negros ou "desvalidos"...

    Você é petista ou corintiano? Não se preocupe! O importante é ter saúde! kkkkkk

    Agora:

    Não sou "reaça".

    Não tenho recalques.

    Não sou da elite branca.

    Não sou rico.

    Não sou racista.

    Muito menos facista.

    Também não sou tucano. Não tenho partido nenhum, mas acho que você está parecendo aquela

    ave verde que decora e repete, repete, repete.....Pena que seja uma cartilha só...

    Você é um cara inteligente e bacana Tião. Já vi você ajudar muita gente aqui, eu incluso.

    Então, não vamos brigar por causa de políticos, né? (Eles não merecem).

    Só acho que precisa abrir a sua mente e ler outras cartilhas também. Depois fazer seu juizo.

    Somos todos brasileiros, trabalhadores, pagamos impostos e sustentamos este país.

    Político corrupto ou inapto? Tira-se e coloca-se outro, simples assim! Ninguém é Deus ou Rei aqui.

    Se existe a iniciativa do site da Avaaz, é porque muita gente não confia mais nessa "democracia".

    Já tem 1.350.000 assinaturas e subindo! Vamos ver no que vai dar? Talvez em nada!

    Aqui é mais legal falarmos de FW!

    Abraços

    Alberto - SP

  8. Rogério

    Gilmer: Desculpe usar este espaço para isso.

    Sempre achei que esse tipo de assunto não deveria ser levado ao meio comercial / profissional,

    mas, chegou num ponto em que temos que tomar uma posição.

    Hoje eu assinei e divulguei para todos os meus contatos. Aqui em SP e em outros estados, a

    receptividade foi muito maior e positiva do que eu esperava.

    Já tem quase 1 milhão de assinaturas no site da Avaaz para esta proposta.

    Não sou dono da verdade (ninguém, é certo?), e respeito opiniões divergentes. Mas não dá para

    esperar o povo adquirir cultura / conhecimento para enxergar alguma coisa além do trivial demagógico / populista.

    O Titanic já rachou no meio.

    Vamos tentar? Ou vamos esperar isso aqui virar um regime soviético? Para quem acha que isso é

    exagero, por favor estudem o passado recente de alguns países (Cuba, Venezuela, Bolívia, etc) e

    veja o que está acontecendo em nosso país. Tenho certeza que a maioria aqui vai ter (se já não

    tem) uma visão clara da situação atual e para onde estamos indo.

    Não pertenço a partido / associação / sindicato / igreja / grupo nenhum. Só sou contra o controle

    estatal absoluto, sobre tudo e todos! Corrupção, impunidade, impostos altos, crescimento zero é

    só consequência de uma mentalidade / ideologia retrógrada / falida.

    Em resumo: Se você tem sua casa, seu carro ou é rico e sempre agiu honestamente: Parabéns!

    Você merece muito mais! Mas, se você pode trabalhar e prefere viver as custas do estado, você

    nem deveria ter direito ao voto.

    Penso no país que as minhas netas, que hoje tem 11 e 12 anos vão ver em 2018 ou 2022...

    Você tem razão, temos que agir agora mesmo! É possível mudar ainda.

    Não sei se a maioria dos colegas aqui do fórum Fivewin-Brasil vão concordar, mas com certeza

    vão entender porque já sofrem as consequências desta política no desenvolvimento de software

    para empresas no Brasil (Nf-e, SPED, e-Social, bla, bla bla. que só interessa ao governo)

    Ou nosso trabalho se reduziu a atender exigências legais e temos que aceitar calados e ficar

    contentes em cobrar isso dos clientes? É só isso? É para isso que estudamos e trabalhamos

    dias e noites?

    Duvido que os colegas mais velhos aceitem isso.

    Abs

    Alberto - SP

  9. Olá Cleber

    Olha, a quase um ano atrás, questionei a RFB (Siscomex) sobre isso, e me deram a seguinte resposta:

    "Trata-se de uma definição de regra de negócio, ou seja, a Receita Federal teria que repassar

    uma demanda para o SERPRO desenvolver esta facilidade na aplicação SISCOMEX IMPORTAÇÃO"

    Não contente, fiz um outro e-mail diretamente para o SERPRO, que respondeu que não havia

    previsão para a nova implementação, e eu deveria desenvolver a D.I. conforme o layout do sistema

    SISCOMEX, ou seja, ENVIAR a D.I. em TXT. Claro que, neste caso, eu já teria que ter todos os

    dados, e ainda preciso convencer o despachante a fazer a D.I. no meu programa....

    pode ????

    Talvez o despachante tenha uma forma de enviar os dados da D.I. em algum formato,

    dependendo do sistema que ele usa. Se ele utiliza diretamente o sistema SISCOMEX, que eu

    saiba, por enquanto, sem chance.

    abs

    Alberto - SP

  10. Fala Valdir

    Tudo bem?

    Segue uma dica:

    cSql:="Update controle set comp='TESTE NA BASE DE DADOS SQL' where sql_rowid=1"

    SqlExecute(cSql)

    where sql_rowid=1 ------> Vai gravar no 1o. registro se tiver 1 no campo sql_rowid. Se não colocar

    a clausula WHERE, ele grava em todos os registros da tabela.

    Depois abra o DB com o HeidiSql e veja que gravou mesmo.

    abs

    Alberto - SP

  11. Boa tarde a todos.

    Concordo com os amigos, mas queria deixar minha humilde opinião: Desktop = FWH + MySQL / Web = PHP + MySQL

    Claro que tem coisa mais "moderna", tipo JAVA .NET, etc JSxx, reza-brava, etc....

    Henning: Tudo bem? Olha, gostei da ideia do prego e martelo, mas por favor, DELPHI NÃO! PELAMOR! KAPIABA SOCORRO!!!!

    (Só de lembrar do BDE dá uma Baita Dor Encefálica).

    FWH 7 x 1 DELPHI

    rsrs

    abs

    Alberto - SP

  12. Fala Everton, blz?

    Em 1815, fazíamos com Copy to... PRN, mas o PrintFileRaw que o Kapiaba falou funciona 100% em qualquer porta.

    Veja se ajuda:

    *-----------------------------------------------
    Function fImpreti(cProd,dFabr,dVale,nQtde,cObse)
    *-----------------------------------------------
    Local cLetra, nHand, cLote
    Local aEstru:={}
    Local cArqImp:="Argox.TXT"
    Local cPrinter:=PrinterPortToName("USB002")

    Ls->(DbGotop())
    While !Ls->(Eof())
    If Ls->Fantas=cProd
    Exit
    End
    Ls->(DbSkip())
    End

    cLote:=Subs(Dtoc(dFabr),7)+Subs(Dtoc(dFabr),4,2)

    nHand:=fCreate(cArqImp)

    // cLetra:="A" // Code 3 de 9
    // cLetra:="E" // Code 128
    cLetra:="F" // Ean 13
    // cLetra:="G" // Upca

    fWrite(nHand,Chr(2)+"L"+Chr(13)+Chr(10))
    fWrite(nHand,"D11"+Chr(13)+Chr(10))

    fWrite(nHand,"441100000420180"+Alltrim(Ls->Descri)+Chr(13)+Chr(10))

    fWrite(nHand,"431100000600220"+Dtoc(dFabr)+" "+Dtoc(dVale)+Chr(13)+Chr(10))

    fWrite(nHand,"Q"+StrZero(nQtde,4)+Chr(13)+Chr(10)) //
    fwrite(nHand,"E"+Chr(13)+Chr(10))

    fClose(nHand)
    *Copy File(cArqImp) to Prn
    PrintFileRaw(cPrinter,cArqImp,"Emitindo etiquetas em "+cPrinter)
    Delete File(cArqImp)
    Return Nil

    Abraços

    Alberto - SP

  13. Boa tarde amigos..

    Recebi um e-mail assim:


    AGORA
    DIA 20/01/2014 HAVERÁ UMA ALTERAÇÃO JUNTO A SEFAZ , OS CLIENTES DEVEM ENTRAR EM
    CONTATO COM A EMPRESA RESPONSÁVEL PELO SOFTWARE QUE EMITE SUAS NFE E VERIFICAR
    SE É NECESSÁRIO FAZER ALGUMA INSTALAÇÃO DE CADEIA DE CERTIFICADOS DIGITAIS.


    COMO
    CADA SISTEMA TRABALHA DE UMA FORMA E SOMENTE A EMPRESA DO SOFTWARE PARA FALAR
    SE SERÁ NECESSÁRIO POR ISSO PEÇO QUE ENTREM EM CONTATO COM AS MESMAS , POIS
    ASSIM ELA PASSARA AS INFORMAÇÕES CORRETAS DE QUAL CADEIA DE CERTIFICADOS
    PRECISA INSTALAR PARA NÃO TER PROBLEMA COM A EMISSÃO DAS NFE .


    APÓS
    A CONFIRMAÇÃO , SE SURGIR ALGUMA DUVIDA , ESTOU A DISPOSIÇÃO PARA AJUDAR OK .



    * OS
    SISTEMAS QUE PRECISAREM SER ATUALIZADOS , SE NÃO FOREM , IRÃO PARAR DE
    FUNCIONAR NO DIA 20/01/2014 , POR ISSO PEÇO QUE NÃO DEIXEM PARA A ULTIMA HORA
    OK .

    Alguém sabe de alguma mudança no dia 20 ???

    Desde já, agradeço.

    Alberto - SP

  14. Boa tarde colegas e amigos.

    Desculpem se estou postando no lugar errado.

    Um cliente antigo (TRADE), nos solicitou o desenvolvimento de rotinas para controle

    de processos de importação e exportação. Como estamos sem tempo aqui, busco uma

    solução pronta em FWH+Mysql (SqlLib) para integrar ao software ERP existente.

    Uma segunda opção, seria contratar alguém de SP para desenvolver em esquema de

    projeto/tarefas, até o final deste ano. A empresa fica próxima ao bairro do Ipiranga-SP,

    e seria interessante se o profissional puder trabalhar no local.

    Atualmente esses controles estão todos em Excel (Despesas, Receitas e Resultados

    por Processo de Importação / Exportação).

    Alguém se habilita/interessa ou tem algo pronto?

    Obrigado

    Alberto Zamai

    Via Solution-SP

    albertozamai@hotmail.com

    alberto@viasolution.com.br

×
×
  • Create New...