qiinfo

Gostei da ideia Gilmer Abraços, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá, Vejam neste link: http://www.flexdocs.com.br/guiaNFe/guiaAtualizacao.ManDest.html Abraços, Rossine. Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Boa tarde, Para quem usa a classe do Gilmer, teremos que mudar algo em nossos sistemas ? Terá nova versão da classe ? Obrigado, Rossine. Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Boa tarde, Para quem usa a classe do Gilmer, teremos que mudar algo em nossos sistemas ? Terá nova versão da classe ? Obrigado, Rossine. Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Bom dia Lailton, Esta ribonex é uma DLL / OCX e funciona com outras linguagens também ? Abraços, Rossine. Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá João, O que é "[-02:00]" na hora passada ? Obrigado, Rossine. Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá João, Para saber a versão da Flexdocs eu faço assim: cVersaoFlex := "" oNfeUtil := TVoNfeUtil2G():New( ,, cCertificado ) cVersaoFlex := alltrim(hb_valtostr(oNfeUtil:Versao())) oNfeUtil:End() oNfeUtil := NIL id=code>id=code>Seria isto que você precisa ? Abraços, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Bom dia Gilmer, Obrigado pela função Abraços, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Bom dia pessoal, No site da flexdocs diz que os metodos, "CriaProcnfe2g" e "CriaCancnfe2g" vão ser modificados e também a consulta da Nf-e. Para cada nota que eu emito eu consulto em seguida o status dela, então pelo visto, terei que usar esta nova DLL, correto ? Também tenho a CCe. Outra coisa, terei mudar algo na classe para funcionar com a 2.01 ? Obrigado, Editado por - qiinfo on 29/06/2012 10:05:51

Olá Pessoal, Alguém tem uma rotina para o cálculo do digito verificador dos GTIN´s ? (GTIN-8 / GTIN-12 / GTIN-13 / GTIN-14 / GTIN-17 / GTIN-18 ) Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Pessoal, Alguém tem uma rotina para o cálculo do digito verificador dos GTIN´s ? (GTIN-8 / GTIN-12 / GTIN-13 / GTIN-14 / GTIN-17 / GTIN-18 ) Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Pessoal, Vou ter que atualizar esta nova versão da DLL da flexdocs na correria para dia 01/07 ? Seria isto ? 2) Se eu não conseguir atualizar ela, meus clientes vão parar de emitir ? 3) Com esta nova DLL tenho que mudar algo no meu programa de NF-e, no meu caso na classe do gilmer ? Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Cleiton, Obrigado pela dica Baseado nela eu montei este exemplo. Veja se ele funciona para vocês também: #include "fivewin.ch" function main msgstop( IsExistClass( "NFe_Util_2G.Utilxxxx" ) ) // Aqui vai retornar .F. msgstop( IsExistClass( "NFe_Util_2G.Util" ) ) // Aqui vai retornar .T. return NIL #define HKEY_LOCAL_MACHINE 2147483650 // 0x80000002 ********************* function IsExistClass( cClass ) ********************* local nRet, nHandle nRet := RegOpenKey( HKEY_LOCAL_MACHINE, "SOFTWARE\Classes\" + cClass, @nHandle ) return iif( nRet = 0, .T., .F. ) id=code>id=code>Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Bom dia pessoal, Primeiramente obrigado a todos por responderem. Eu montei um outro exemplo mas estou estranhando pois usando "harbour + fwh + bcc" a flexdocs funciona normalmente, mas neste exemplo usando somente "harbour + mingw", não retorna correto. * Para compilar: hbmk2 teste -lxhb -lhbwin #include "hbcompat.ch" function main( cMsg ) hb_default( @cMsg, "NFe_Util_2G.Util" ) cls if empty( cMsg ) ? "Informar a String" quit endif ? "[" + cMsg + "]" ? isActiveX( cMsg ) return NIL ****************** function isActiveX( cProgID ) ****************** Local oObj, lObj := .t. try oObj := GetActiveObject( cProgID ) catch try oObj := CreateObject( cProgID ) catch lObj := .f. end end oObj := Nil Return lObj id=code>id=code>Abraços a todos, Rossine. Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá pessoal, Estou tentando fazer um programa para testar se a dll está instalada, e caso não, o programa instale ela, tipo o registradll.bat Tentei fazer um programa inicialmente para testar se a dll está instalada ou não, mas sempre retorna .F. #include "hbcompat.ch" function main( cMsg ) hb_default( @cMsg, "NFe_Util_2G.Util" ) cls if empty( cMsg ) ? "Informar a String" quit endif ? "[" + cMsg + "]" ? isActiveX( cMsg ) // aqui sempre retorna .F. return NIL ****************** function isActiveX( cProgID ) ****************** Local oObj, lObj := .t. Try oObj := CreateObject( cProgID ) Catch lObj := .f. End oObj := Nil Return lObj id=code>id=code>Alguém poderia me dar a dica de como se fazer isto ? Obrigado, Rossine. Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá pessoal, Estou tentando fazer um programa para testar se a dll está instalada, e caso não, o programa instale ela, tipo o registradll.bat Tentei fazer um programa inicialmente para testar se a dll está instalada ou não, mas sempre retorna .F. #include "hbcompat.ch" function main( cMsg ) hb_default( @cMsg, "NFe_Util_2G.Util" ) cls if empty( cMsg ) ? "Informar a String" quit endif ? "[" + cMsg + "]" ? isActiveX( cMsg ) // aqui sempre retorna .F. return NIL ****************** function isActiveX( cProgID ) ****************** Local oObj, lObj := .t. Try oObj := CreateObject( cProgID ) Catch lObj := .f. End oObj := Nil Return lObj id=code>id=code>Alguém poderia me dar a dica de como se fazer isto ? Obrigado, Rossine. Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Bom dia, Somente uma observação sobre qual linguagem usar: Qual a linguagem que todos já sabem, dominam e já de prontidão poderia se começar o projeto ? R: na minha opnião o padrão xbase. Prefiro o harbour. Se forem escolher outras linguagens, então eu acho que um monte de gente daqui do forum não vai poder participar do projeto. Não que eu seja contra outras linguagens, mas isto demandaria tempo de aprendizado e teria uma drástica redução no número de participantes. O que poderia ser feito, na minha opnião, é que a base fosse desenvolvida em harbour usando SQL via TODBC ou ADO. Algumas partes do projeto poderiam sim serem desenvolvidas em outras linguagens, como por exemplo, sistema via web, etc... O que poderia ser feito também seria dividir grupos de programadores para determinados projetos, exemplo: A - Sistema Desktop (Harbour) 1) Grupo Sped 2) Grupo Nf-e 3) Grupo Paf-Ecf B - Sistema Web ( linguagem xxx) 1) Grupo Web pois assim seria menor o tempo de desenvolvimento e a margem de erro do projeto. T+ Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

OK pessoal, A idéia do núcleo foi somente uma "idéia", pois com ela, conseguiriamos agilizar, centralizar muitos processos e inclusive começar esta cooperativa mais rápido, mas podemos estudar para montar uma do zero, código aberto. T+ Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá pessoal, Acho a idéia interessante visto que a tendência das nossas obrigações é só aumentar ao ponto de se tornar insuportável o desenvolvimento. Bom, vou descrever um exemplo como esta cooperativa poderia funcionar. (Talvez este seja o ponto inicial para aperfeiçoar a idéia) - Poderia ser criado uma empresa para se controlar a parte de recebimento da mensalidade e tudo mais. - Seria um novo sistema, criado do zero, básico, mas bem completo de acordo com um pré-estudo de todos os cadastros, campos, etc... - Criar um fórum para a o sistema da cooperativa. Digamos que nesta cooperativa tenha dois tipos de softhouses: As desenvolvedoras e as Usuárias de sistema. Usuárias de sistema, seriam por exemplo softhouses que querem somente usar os sistemas da cooperativa sem ter programar algo nele ou quase nada. Neste caso ele pagaria para usar o sistema por cnpj do cliente dele. Digamos que se crie uma tabela de preço, onde este tipo de softhouse pague para a cooperativa 1% salário mínimo, ou seja, hoje R$ 6.22 por CNPJ, então se ele tem 10 clientes, pagaria R$ 62,00 por mês para se usar o sistema completo. Usuário desenvolvedor, também pagaria para usar o sistema da cooperativa mas ganharia 1 parte do montante geral arrecadado pela cooperativa. por exemplo: Programador Fulano de Tal 1 ->Responsável pelo Sped Programador Fulano de Tal 2 ->Responsável pelo Sintegra Programador Fulano de Tal 3 ->Responsável pelo Paf_Ecf Programador Fulano de Tal 4 ->Responsável pelo NF-e Programador Fulano de Tal 5 ->Responsável pelo Ct-e Um exemplo de como seria a partilha disto: No final do mês a cooperativa faturou R$ 1000,00 Então paga-se as depesas totais da cooperativa e o valor liquido restante seria dividido pela quantidade de "Programadores" responsáveis pelo projeto. Então ficaria assim: Programador Fulano de Tal 1 -> R$ 200,00 Programador Fulano de Tal 2 -> R$ 200,00 Programador Fulano de Tal 3 -> R$ 200,00 Programador Fulano de Tal 4 -> R$ 200,00 Programador Fulano de Tal 5 -> R$ 200,00 Principais vantagens: Para Softhouse usuária: - Não gastaria tempo em desenvolvimento com os módulos já existentes, somente com processos específicos para os clientes dele, tipo: campos avulsos, etiquetas, relatórios, etc... Para Softhouse desenvolvedora: - Receberia mensalmente a fração a ela cabível, desde que a parte que ela é responsável pelo desenvolvimento esteja rodando 100%. - Todo código fonte teria que estar hospedado em algum site e ser atualizado pelo SVN. O que eu poderia entar no projeto seria exatamente com o núcleo do sistema que tenho aqui rodando hoje. Vou citar algumas características dele: - Montagem de cadastros sem ter que fazer uma linha de código seguer. - Mult-sistemas - Mult-Empresas - Roda com Postgres e também estou ajustando para Firebird - Possibilidade de se criar novos processos, arquivos, opções de menu, cadastros, relatórios, sem ter que sair do sistema e tudo é auto-compilável dentro dele mesmo, etc... No meu caso eu seria responsável por manter funcionando a parte operacional do núcleo. Eu faria um ajuste inicial nele aqui para que cada softhouse que fosse usar, criar seus próprios cadastros, campos, relatórios, além dos que já vão existir no sistema da cooperativa. Qual seria a minha parte nisto: Eu cederia sem cobrar nada, para a cooperativa o meu gerenciador de sistemas (somente executável) e minha parte seria "3 partes" Existem outros pontos a serem visto, como: - Novos desenvolvedores - Novos processos criado pelo governo, etc... - Pagamento avulso a programadores externos ao projeto, por algum projeto extra, correção, etc... Acho que com o avanço deste tópico, os interessados em participar deste projeto deveriam marcar um encontro para poder definir certo quem faria o que. Se gostaram da idéia do meu gerenciador (núcleo), aos desenvolvedores da cooperativa eu poderia fazer uma demonstração. Por acreditar nesta idéia, deixo aqui minha opnião Abraços, Editado por - qiinfo on 13/04/2012 16:18:41

Olá pessoal, Vejam se isto resolve algo pra vocês: function MAIN ... SetProcessP( -1, -1, -1 ) ... return NIL DLL32 Function SetProcessP( hWnd As LONG, nMinWorkingSpace As LONG, nMaxWorkingSpace As LONG ) ; As LONG PASCAL From "SetProcessWorkingSetSize" Lib "Kernel32.dll" id=code>id=code>Abraços, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour Editado por - qiinfo on 09/04/2012 22:53:50

Bom dia pessoal, Seria possível enviá-las pra mim também ? qiinfo@ig.com.br Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour Editado por - qiinfo on 31/03/2012 07:50:40

Olá Pessoal, Recebi hoje este email: Publicada a NT 2012/002 contendo as especificações técnicas necessárias para a implementação dos eventos vinculados à Manifestação do Destinatário: Ciência da Operação, Confirmação da Operação, Desconhecimento da Operação, Operaçao não Realizada. O objetivo da distribuição desta nota é possibilitar às empresas destinatárias de NF-e o desenvolvimento de suas aplicações, visando os testes que serão realizados, a partir de julho, na área de homologação do Ambiente Nacional da NF-e. Os eventos vinculados à Manifestação do Destinatário serão disponibilizados, em ambiente de produção, a partir do dia 01/08/2012. id=code>id=code>Gilmer, olhe sobre isto com a flexdocs pra nós ok ? Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Pessoal, Recebi hoje este email: Publicada a NT 2012/002 contendo as especificações técnicas necessárias para a implementação dos eventos vinculados à Manifestação do Destinatário: Ciência da Operação, Confirmação da Operação, Desconhecimento da Operação, Operaçao não Realizada. O objetivo da distribuição desta nota é possibilitar às empresas destinatárias de NF-e o desenvolvimento de suas aplicações, visando os testes que serão realizados, a partir de julho, na área de homologação do Ambiente Nacional da NF-e. Os eventos vinculados à Manifestação do Destinatário serão disponibilizados, em ambiente de produção, a partir do dia 01/08/2012. id=code>id=code>Gilmer, olhe sobre isto com a flexdocs pra nós ok ? Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Vagner, No harbour é a rddado.lib Os fontes dela ficam em "\harbour\examples\rddado" Estou iniciando os estudo aqui para usar o firebird. Com TODBC funciona legal mas é tudo direto via senteça sql e nos browses tem que usar em Array. Vou testar aqui o rddado pra ver se vai. Qualquer coisa chama aí no MSN que trocamos idéias ok ? Abraços, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Vagner, No harbour tem o adordd. Exemplo de uso: #include "adordd.ch" REQUEST ADORDD function Main() USE test00 VIA "ADORDD" TABLE "ACCOUNTS" MYSQL ; FROM "www.freesql.org" USER "myuser" PASSWORD "mypass" Browse() USE return nil Abraços, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour