dorneles

Bom dia, Eu acho que esta em nosso programa tb, porque esse dias fui apresentar o sistema para um cliente e deu esse problema, só que o sistema que ele já utiliza estava normal. Mas achei uns link com problema com o CORE.EXE da Gas. http://ipv6.br/bug-em-plugin-de-seguranca-de-bancos-bloqueia-internet/

Estou com esse problema no Banco do Brasil. O problema esta no core.exe da GAS Tecnologia. KillProcess( 'core.exe' ) //no inicio do SISTEMA funciona. Mas o site do banco tem que estar fechado. Se alguem tiver outra sugestao, por favor postar.

sim, vc só informa o cep que ele busca o restante e é super rapido. eu tenho um arquivo cep no sistema, salvo o resultado da busca nesse arquivo.

ccep := BuscaCEP():New(aGetCli.cep) aGetCli.endereco := LEFT(RemoverAcentos(ccep:GetTipo() + " " + ccep:GetLogradouro())+SPACE(40),40) aGetCli.bairro := LEFT(RemoverAcentos(ccep:GetBairro())+SPACE(15),15) aGetCli.cidade := UPPER(LEFT(RemoverAcentos(ccep:GetCidade())+SPACE(60),60)) aGetCli.estado := LEFT(ccep:GetUF()+SPACE(02),02) class BuscaCEP private: data cLogradouro init "" data cBairro init "" data cCidade init "" data cTipo init "" data cCep init "" data cUF init "" data cSrvResp init "" public: method new(cep) constructor method busca(cep) inline method GetLogradouro() return ::cLogradouro endmethod inline method GetBairro() return ::cBairro endmethod inline method GetCidade() return ::cCidade endmethod inline method GetTipo() return ::cTipo endmethod inline method GetUF() return ::cUF endmethod inline method GetSrvSts() return ::cSrvResp endmethod endclass method new(cep) class BuscaCEP if cep != nil ::cCep := cep else ::cCep := "99999999" endif ::busca() return self method busca(cep) class BuscaCEP local oHttp, cXML local oDoc, oIterator if cep != nil ::cCep := cep endif oHttp:= TIpClientHttp():new( "http://cep.republicavirtual.com.br/web_cep.php?cep=]http://cep.republicavirtual.com.br/web_cep.php?cep=]http://cep.republicavirtual.com.br/web_cep.php?cep="+::cCep+"&formato=xml") //"http ://cep.republicavirtual.com.br/web_cep.php?cep="+::cCep+"&formato=xml" oHttp:open() cXML := oHttp:readAll() oHttp:close() oDoc := TXmlDocument():New(cXML, HBXML_STYLE_NOESCAPE) if oDoc:nError != HBXML_ERROR_NONE ? "Erro ao ler o XML dos correios" endif TRY oIterator := TXmlIterator():New( oDoc:findfirst( "webservicecep" ) ) if oIterator:Next():cData == "1" ::cSrvResp := oIterator:Next():cData ::cUF := oIterator:Next():cData ::cCidade := oIterator:Next():cData ::cBairro := oIterator:Next():cData ::cTipo := oIterator:Next():cData ::cLogradouro := oIterator:Next():cData else // ? "ERRO :(" endif CATCH END CursorArrow() return nil

Olá Estou utilizando esse, sem problema. oHttp:= TIpClientHttp():new( "http://cep.republicavirtual.com.br/web_cep.php?cep="+::cCep+"&formato=xml")

Estou tentando enviar um email, mas com uma imagem no corpo do email, só que nao esta indo a imagem no corpo, ela vai em anexo. O que esta errado? alguem tem um exemplo? :AddRelatedBodyPart("D:\super\COTACAO\000032-1.jpg","000032-1",0) oMsg := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration = oCfg :From = cFrom :To = aTo[1] :Subject = cSubject :TextBody = cMsg IF !EMPTY(aAttach[1]) For x := 1 To Len( aAttach ) :AddAttachment(AllTrim(aAttach[x])) Next ENDIF *** // Para Incorporar uma imagem no corpo do email. :AddRelatedBodyPart("D:\super\COTACAO\000032-1.jpg","000032-1",0) :Send() END WITH

Olá, obrigado por ter respondido. Mas consegui resolver com ajuda do Marcelo, era a forma de tratar os retorno que estava errado.

Alguem esta conseguindo utilizar essa nova ecf? ela esta travendo d+, quando execulta um comando trava, e da mensagem ERRO COMUNICACAO COM A ECF.

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31004 Pelo que eu li em outros post, esta sendo desenvolvido e tem mais gente ajudando ele a desenvolver. Tem ate suporte com o teamviewer. Mas falando em outra linguagem, trabalhei 4 anos com o delphi desisti para aprender fivewin, porque ja programava em clipper, fiz o curso da Windev, é um linguagem muito boa, e quem tem experiencia com JAVA+PHP pode utilizar os codigo dentro da Windev. La versión normal cuesta 200 euros. La versión Developer, 500 euros. Más que nada calculado en base a la cantidad de soporte técnico que precisa. Hasta ahora han sido dos y tres conexiones por TeamViewer con cada usuario para ayudarles a configurar todo Ya se pueden comprar ambas versiones desde http://www.fivetechsoft.com sección pedidos Y ojalá dentro de poco tengamos una galeria de aplicaciones listas para modificar y usar, para que hacer un desarrollo para Android (y pronto iOS) sea algo fácil y rápido

outra dica http://forums.fivetechsupport.com/viewtopic.php?f=3&t=30719

valeu. resolvido

utilizando o comando acima, que é o espelho do cupom fiscal, ele retorna como o texto abaixo, como tratar ele? eu preciso pegar os produto. ja tentei com o TTxtFile, mas nao consigo pegar todos os produto, parece que HB_ATokens() tem limite. oTxt := TTxtFile():New( ALLTRIM(cFile) ) nLinhas := oTxt:nTLines nTotRec := oTxt:nTLines oTxt:Gotop() While !oTXT:lEOF cLine:= oTXT:ReadLine() aCampos:= HB_ATokens(cLine,"") FOR x = 1 to Len(aCampos) //? aCampos[x] NEXT oTXT:Skip() ENDDO -1EMPRESA-0 W1EMPRESAW0 RUA N TI, Nº13221 - CENTRO FONE:(11)0000-000 CEP:00000-000 BRASIL-MS CNPJ: 00.000.000/0000-00 IE: 00.000.000-0 IM: ISENTO 16/04/2015 22:34:43V CCF:122775 COO:126359 CUPOM FISCAL ITEM CÓDIGO DESCRIÇÃO QTD.UN.VL UNIT R$ ST A/T VL ITEM R$ 001 0090550 1. CANO BICO INJETOR CUMMINS 1un F1 25,76€ 002 0090538 1. CANO BICO INJETOR F CA 2unx23,00 F1 46,00€ 003 0090544 1. CANO BICO INJETOR FORD 3unx25,88 F1 77,64€ 004 F00099T191 1. CANO BICO INJETOR 4unx36,79 F1 147,16€ 005 0040424 1. CANO BICO INJETOR MB 5unx21,92 F1 109,60€ 006 0040022 1. CANO BICO INJETOR MB 6unx19,07 F1 114,42€ 007 004002 1. CANO BICO INJETOR MB O 7unx19,07 F1 133,49€ 008 004002 1. CANO BICO INJETOR MB O 8unx19,07 F1 152,56€ 009 004002 1. CANO BICO INJETOR MB O 9unx19,07 F1 171,63€ 010 004002 1. CANO BICO INJETOR MB 10unx19,07 F1 190,70€ 011 004002 1. CANO BICO INJETOR MB 11unx19,07 F1 209,77€ 012 004002 1. CANO BICO INJETOR MB 12unx19,07 F1 228,84€ 013 004002 1. CANO BICO INJETOR MB 13unx19,07 F1 247,91€ 014 004002 1. CANO BICO INJETOR MB 14unx19,07 F1 266,98€ 015 004002 1. CANO BICO INJETOR MB 15unx19,07 F1 286,05€ 016 004002 1. CANO BICO INJETOR MB 16unx19,07 F1 305,12€ 017 004002 1. CANO BICO INJETOR MB 17unx19,07 F1 324,19€ 018 004002 1. CANO BICO INJETOR MB 18unx19,07 F1 343,26€ 019 004002 1. CANO BICO INJETOR MB 19unx19,07 F1 362,33€ 020 004002 1. CANO BICO INJETOR MB 20unx19,07 F1 381,40€ TOTAL R$ 4124,81 Dinheiro 4124,81 ------------------------------------------------ MD-5:31231231313131346464646464e995f71 Vr Aprox Tributos R$ 1.443,68 (35,00%) Fonte: IBCliente : CONSUMIDOR - 000001 CPF/CNPJ: 00.000.000/0000-00 Venda: 0011000090 DARUMA32 FrameWork Mensagem Não Programada DARUMA32 FrameWork Mensagem Não Programada 1C0 25316 57271 469074 F3 64770F8 5DEA2 0E160 153 DARUMA AUTOMAÇÃO FS700 M ECF-IF VERSÃO:01.01.00 ECF:001 Lj:0001 DDDDDDDDDBCJHGBAJH 16/04/2015 22:36:23V FAB:DR0123BR550000213131 BR

Valeu, fico ti devendo uma cerva.

eu ja tinha visto esse link, nao tem oque preciso, outra sugestao,

alguem tem o layout do arquivo.txt para integracao com a balanca de acougue filizola?

Resolvido, dessa forma vc pode fazer uma texto para help ou qualquer informação para o usuario, o HTMLPOP só vai fechar com um click ou com o ESC. 1-solução ShowFunctionHelp("venda1.txt","Ordem de Serviço",aRect[1]+10,aRect[4]-310) WHILE !GetKeyState(0x0001) SysRefresh() ENDDO RETURN(.T.) 2-solução DEFINE DIALOG oDlgOrdem Style WS_POPUP size -1,1 oDlgOrdem:bKeyDown := { | nKey | oDlgOrdem:End() } oDlgOrdem:bSTART := { || (SetCapture( oDlgOrdem:hWnd ),ShowFunctionHelp("venda1.txt","Ordem de Serviço",aRect[1]+10,aRect[4]-310)) } ACTIVATE DIALOG oDlgOrdem ON CLICK If( nRow < 0 .or. nCol < 0 .or. ; nRow > oDlgOrdem:nHeight - 30 .or. nCol > oDlgOrdem:nWidth,; oDlgOrdem:End(),)

eu ja tinha tentado essa opcao, mas nao deu certo,

como controlar o tempo HTMLPOP, tentei ate colocar em uma dialog, ate funciona mas a dialog nao fecha apos ele fechar. HTMLPOP( GetActiveWindow(), nil, 0x000E, cText,vRow,vCol )

eu utilizo esse comandos para limpar o spool. é só vc adaptar para sua necessidade. net stop spooler cd %systemroot%\system32\spool\PRINTERS del /f /s *.shd del /f /s *.spl net start spooler

testei ela aqui para baixar e não deu certo. Kapiaba qual o seu certificado?

Olá pessoal, Hj começou dar essa mensagem quando vai baixar o xml pelo https://www.nfe.fazenda.gov.br/portal/principal.aspx, ontem baixou normal, o certificado esta correto, tive varias reclamação hj, alguem sabe oque pode ser?

Ola pessoal, A igara tem a solucao para o padrao ginfes da nfes, conforme o email abaixo. Prezado Sr. Dorneles, Nosso produto para geração de NFSe encontra-se atualmente no padrão GINFES (http://www.ginfes.com.br) que é adotado por vários municípios, a exemplo de Santos (http://santos.ginfes.com.br/). Existem outros padrões que são adotados por outros municípios, como o padrão Abrasf o qual estamos trabalhado em seu desenvolvimento. No caso da NFSe o processo é tratado de forma descentralizada o que dificulta bastante quando comparado com a NFe. Para cada município é preciso verificar junto ao município qual o modelo/padrão utilizado. Segue em anexo lista com as cidades que adotam o padrão GINFES. Fornecemos a solução que reduzirá significativamente o tempo da sua implementação consulte o link http://www.igara.com.br/nfs-e/. Atenção: Este é um produto para desenvolvedores de software e não um aplicativo pronto para usuário final! Algumas vantagens do nosso produto são: - Não há cobrança de mensalidade - Não há limite de número de notas emitidas por mês, logo não há cobrança de valor no caso de excedente. - Total transparência da solução na sua aplicação, seu cliente nem sequer fica sabendo q vc utiliza solução de terceiros - Disponibilidade ed aquisição do código fonte completo a qualquer momento, o q permite maior segurança ao desenvolvedor O custo do produto NFS-e é de R$500,00, que conterá: 1. Código fonte completo em Delphi para geração, manipulação e validação de todos os arquivos XML de NFS-e 2. Demo em Delphi de assinatura de arquivos XML de NFSe usando a assinaturaNFSe32dll.dll 3. Demo em Delphi de transmissão de arquivos XML de NFSe usando a transmissaoNFSe32dll.dll 4. 01 (uma) assinatura NFSe 32dll.dll registrada em nome de um CNPJ q vc irá informar (tipicamente o CNPJ do seu 1º cliente de NFSe) 5. 01 (uma) transmissao NFSe 32dll.dll registrada em nome de um CNPJ q vc irá informar (tipicamente o CNPJ do seu 1º cliente de NFSe) 6. Suporte completo por email ou telefone para questões envolvendo o uso do produto e demais questões relacionadas a NFSe De posse dos códigos fontes em questão será possível adequar sua aplicação para gerar, manipular, validar, assinar e transmitir arquivos XML de NFSe. Para registrar novos clientes (CNPJs) será preciso adquirir apenas as versões registradas das dlls de assinatura e transmissão, valor de R$500,00 por CNPJ para adquirir as versões registradas das dlls citadas. Para clientes com mais de 20 licenças ou para empresas que queiram deter os fontes das dlls sugere-se a aquisição do código fontes completos das dlls de assinatura e transmissão ao valor de R$10.000,00 Os produtos podem ser adquiridos com deposito em uma das contas bancárias indicadas em nosso site ou via UOL-PagSeguro (boleto ou parcelado no cartão de crédito) Prezado Sr. Dorneles, Nosso produto para geração de NFSe encontra-se atualmente no padrão GINFES (http://www.ginfes.com.br) que é adotado por vários municípios, a exemplo de Santos (http://santos.ginfes.com.br/). Existem outros padrões que são adotados por outros municípios, como o padrão Abrasf o qual estamos trabalhado em seu desenvolvimento. No caso da NFSe o processo é tratado de forma descentralizada o que dificulta bastante quando comparado com a NFe. Para cada município é preciso verificar junto ao município qual o modelo/padrão utilizado. Segue em anexo lista com as cidades que adotam o padrão GINFES. Fornecemos a solução que reduzirá significativamente o tempo da sua implementação consulte o link http://www.igara.com.br/nfs-e/. Atenção: Este é um produto para desenvolvedores de software e não um aplicativo pronto para usuário final! Algumas vantagens do nosso produto são: - Não há cobrança de mensalidade - Não há limite de número de notas emitidas por mês, logo não há cobrança de valor no caso de excedente. - Total transparência da solução na sua aplicação, seu cliente nem sequer fica sabendo q vc utiliza solução de terceiros - Disponibilidade ed aquisição do código fonte completo a qualquer momento, o q permite maior segurança ao desenvolvedor O custo do produto NFS-e é de R$500,00, que conterá: 1. Código fonte completo em Delphi para geração, manipulação e validação de todos os arquivos XML de NFS-e 2. Demo em Delphi de assinatura de arquivos XML de NFSe usando a assinaturaNFSe32dll.dll 3. Demo em Delphi de transmissão de arquivos XML de NFSe usando a transmissaoNFSe32dll.dll 4. 01 (uma) assinatura NFSe 32dll.dll registrada em nome de um CNPJ q vc irá informar (tipicamente o CNPJ do seu 1º cliente de NFSe) 5. 01 (uma) transmissao NFSe 32dll.dll registrada em nome de um CNPJ q vc irá informar (tipicamente o CNPJ do seu 1º cliente de NFSe) 6. Suporte completo por email ou telefone para questões envolvendo o uso do produto e demais questões relacionadas a NFSe De posse dos códigos fontes em questão será possível adequar sua aplicação para gerar, manipular, validar, assinar e transmitir arquivos XML de NFSe. Para registrar novos clientes (CNPJs) será preciso adquirir apenas as versões registradas das dlls de assinatura e transmissão, valor de R$500,00 por CNPJ para adquirir as versões registradas das dlls citadas. Para clientes com mais de 20 licenças ou para empresas que queiram deter os fontes das dlls sugere-se a aquisição do código fontes completos das dlls de assinatura e transmissão ao valor de R$10.000,00 Os produtos podem ser adquiridos com deposito em uma das contas bancárias indicadas em nosso site ou via UOL-PagSeguro (boleto ou parcelado no cartão de crédito)

como salvar o xml da cce em UTF-8. porque XML está sendo salvo na formatação ANSI e não abre no browser. Att. Dorneles

o problema pode estar no seu prg, porque vc nao posta sua rotina, para que todos veja. ou melhor posta uma exe demo para que possamos ti ajudar. skype: soft.tres

Chalés Nome ----------------------------------------------------------------------------------------------------------------- 01 01 - Herberson Carlos Gontijo (Hergon) - Belo Horizonte / MG - (01 chalé - 2 pessoas) 02 - Claudia M. R. Glória Gontijo (Cacau7) - Belo Horizonte / MG (Acompanhante) 02 03 - Ana Possani (AnaCatacombs) - Cianorte / PR (01 Chalé - 1 Pessoa) 03 04 - João Bosco de Paulo - Contagem / MG (01 chalé ) 04 05 - Cleber Luiz Souza - Contagem / MG 05 06 - Nárlem - Beloarrow-10x10.png Horizonte / MG - ( 01 chalé - 1 pessoa ) 06 07 - Vander Lúcio Nunes (VLNunes) - João Monlevade / MG 07 08 - Gilmer - Sorocaba / SP 08 09 - Evandro G. de Paula - Curvelo / MG - ( 01 chalé - 1 pessoa ) 09 10 - Cleber Ribeiro Conde - Caratinga / MG 10 11 - Vailton Renato - Sorocaba / SP 11 12 - José Manoel da Silva - São Paulo / SP 12 13 - Rodrigo Portugual - São Paulo / SP 13 14 - Roberto Júnior - São Paulo / SP 14 15 - Wesley Rodrigues - São Paulo / SP 15 16 - Luiz Roberto SERVULO Diadema/SP 16 17 - Leonardo Guimarães(LHSISTEMAS) Vitória-ES 18 - Helder Angelo Fiorotti(LHSISTEMAS) Vitória-ES 17 19 - Marcio Eduardo Teixeira - Visconde do Rio Branco - MG 18 20 - Rubens Martins (RUBENSMA) - São Paulo - SP - (01 chalé - 2 pessoas) 21 - Maria A. F. O. Martins - São Paulo - SP (Acompanhante) 19 22 - Sebastião de Oliveira Pessoa - Contagem - MG - TiaoFw 20 23 - Alexandre Pereira da Silva - B. Horizonte / MG - alex2002 21 24 - André Emerenciano dos Santos - Belo Horizonte / MG - (01 chalé - 2 pessoas) 25 - Eliane Correia da Silva (Acompanhante) 22 26 - Everton Battiston - Chapecó - SC 23 27 - Evaldo Dorneles da Costa - Três Lagoas / MS (01 chalé - 1 pessoas)