frkiko

Resolvido. Pesquisando no forum. Set( _SET_INSERT, lOnOff )

Boa noite senhores, Gostaria de iniciar meus programas com o insert ativado. No mac não tem a tecla insert.

Peguei não lembro onde, o código de barras na altura correta. E já homologuei CEF. Qualquer coisa posto os arquivos de códigos de barra alterados, que ficam na pasta boleto.

Testei boletos do Banco do Brasil, Caixa Econômica Federal, Itaú, Bradesco, Mercantil do Brasil. Más tudo depende do tipo de carteira, cada banco tem uma regra para o preenchimento, se pegar o manual faz tranquilo.

Estou avaliando o HarbourBoleto... e estou gostando... sim tem remessa e retorno, estou priorizando boletos sem registro e com base na rotina de tratamento de retorno criei meu próprio método de leitura do arquivo de retorno, pois queria outras informações. É só utilizar arquivos reais de seus clientes como e exemplo e os manuais dos bancos. Muito Legal. Dei uma olhada no MrBoleto.... parece legal tb. Acredito que não seria muito difícil tb. O x da questão é o manual ele que vai ti instruir como gerar arquivos de remessa, entender o arquivo de retorno, a linha digitavel e com isso o código de barras, e a forma de preenchimento do boleto, cada banco tem uma particularidade. Qualquer coisa pode perguntar se eu souber ajudo.

Colocar no inico hWnd:=FindWindow(0, [ O TITULO DA SUA JANELA PRINCIPAL] ) IF hWnd # 0 MsgInfo("Sistema em Execução") // Coloca sistema em foco BringWindowToTop( hWnd ) ShowWindow(hWnd,3) RETURN Nil ENDIF

Ok João. FUNCTION ConsultaSefazXml(cChave) LOCAL oChildWnd MsgWait( "CONECTANDO AO PORTAL DA SEFAZ...", ; "AGUARDE UM MOMENTO POR FAVOR... ", 2.0 ) cChave:="35130144363265000120550000008000201008000200" Define Dialog oChildWnd From 0,0 To 600,900 Pixel Title "Sefaz" oChildWnd:lHelpIcon:=.F. Activate Dialog oChildWnd NoWait Centered oActiveX=TActiveX():New(oChildWnd,"Shell.Explorer.2",00,0,900,600) oActivex:Silent:=.T. oActivex:Navigate2("https://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=") oActivex:SetFocus() While oActivex:Busy SysWait(.2) Enddo oActiveXdo:=oActiveX:Document() oActiveXdo:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value:=cChave RETURN NIL

Aqui trabalho assim: oOle:=CreateObject("InternetExplorer.Application") oOle:Visible :=.t. // Apresenta o Browser oOle:ToolBar :=.f. // Desativa a barra de ferramentas oOle:StatusBar:=.f. // Desativa a barra de status oOle:MenuBar :=.f. // desativa a barra de menu oOle:Navigate2("http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=") While oOle:Busy syswait(.5) Enddo oOle:=oOle:Document() oOle:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value:=f_cChave SysRefresh()

nIndice:=IndexOrd() ... ... ... DbSetOrder(nIndice)

FUNCTION fEan(vEan) Local I,nDigito,nEan:=Len(AllTrim(vEan)),nResto:=0 // Soma da multiplicação de cada um dos 12/7 primeiros dígitos por 1 ou 3 // Sempre terminando em 3 // Soma=149 obter o próximo número >149 que é divisível por 10 sem deixar resto -> 150 // A diferença entre 150 e 149 (1) é o dígito de verificação. FOR I:=1 TO nEan-1 IF Mod(nEan-1,2)==0 //12 é Par - Terminar com 3 => 1313 nResto+=Val(SubStr(vEan,I,1))*iif(Mod(I,2)==0,3,1) ELSE nResto+=Val(SubStr(vEan,I,1))*iif(Mod(I,2)==0,1,3) ENDIF NEXT nResto:=10-Val(SubStr(StrZero(nResto,3,0),3,1)) nDigito:=iif(nResto==10,0,nResto) IF nDigito # Val(SubStr(vEan,nEan,1)) MsgStop("Código EAN-"+AllTrim(Str(nEan,2,0))+" inválido.","Atenção!!!") Return .f. ENDIF RETURN .T.

Esta ficando muito bom mesmo... Só não achei o fórum de NFe.

cLinha:="TESTE|OK|FRANCISCO||10,00| aTemp:= HB_ATokens(cLinha,"|") aTemp[1]="TESTE" aTemp[2]="OK" aTemp[3]="FRANCISCO" aTemp[4]="" aTemp[5]="10,00" Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Honestidade não é qualidade é obrigação.

Como bem falou o Evandro é necessário partir para as definições. Pois o caminho não será fácil. A lista apresentada para a comissão é um bom inicio. Apoiado. Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Honestidade não é qualidade é obrigação.

citação:Boa noite. Achei o tópico interessante. Há vários pontos que eu não consigo entender ainda (talvez pq passei os olhos rapidamente por todo o tópico) mas gostei do rumo que a idéia está tomando. Tenho interesse em participar. Att, Vailton Renato id=quote>id=quote>Realmente as ideia são boas, e a participação de todos melhor ainda. Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Honestidade não é qualidade é obrigação.

Bom dia Senhores, Muito legal a iniciativa, agora fiquei na duvida. Qual é o objetivo? No inicio achei que era juntar para criarmos rotinas, classes e afins para (SPED, SINTEGRA,IMPRESSORA FISCAL e assim vai) como colocado inicialmente pelo Kleyber. E os colaboradores incluiriam em seus aplicativos. Agora vejo que seria na criação e comercialização do aplicativo. Ou outra coisa qualquer. O mais importante é definir o Objetivo, ai sim caminhar. Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Honestidade não é qualidade é obrigação.

oPrn:lZeraBfr := .T. // Pulo da Página Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Honestidade não é qualidade é obrigação.

citação:Olá, dúvida: Se eu quiser o usar o EMAIL DO POP, http://www.pop.com.br Como é que eu faço?? Obg. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>{"POP","pop3.pop.com.br","smpt.pop.com.br",.f.,25,110,.f.} Como postado seria: {"@pop.com.br","smpt.pop.com.br", 25, .f. } Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Honestidade não é qualidade é obrigação. Editado por - frkiko on 17/01/2011 10:43:33

Tente isso IF Empty(oPrn:hDC) RETURN nil ENDIF Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Cérebro é uma coisa maravilhosa. Todos deveriam ter um.

Uai... é mesmo... falta algumas problemas para resolver... É uma boa oportunidade. Vou ficar de olho... Sem finalizar os meus problemas não posso assumir nada ainda. Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Cérebro é uma coisa maravilhosa. Todos deveriam ter um.

Segue meu currículo http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=16138 Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Cérebro é uma coisa maravilhosa. Todos deveriam ter um.

Olha obrigado mesmo.... acontece que ainda não sei para onde seguir, estou digerindo ainda os fatos. A empresa completa 15 anos justamente na segunda feira 05/10, eu não imaginava passar por uma situação dessas. Quando ao PAF-ECF iniciei do zero em 24 de abril de 2009, nunca havia programado para ECF, aqui no escritório já tinhamos um programa ainda em MSDOS frente de loja com ecf, más o acesso não era via dll, não podendo então aproveitar muito do que já tinhamos. Então depois de uma reunião aqui no escritório, ficou definido que eu daria inicio ao PAF-ECF em FiveWin, aceitei o desafio, estranho pois foi uma decisão de todos para que eu desse inicio, mas a ajuda para o desenvolvimento não veio, ficando eu sozinho para ler todos os manuais (obs. não tinha como imprimir estava sem impressora) e compreender todo o funcionamento e implementar, e olha que o Tião ainda tentou me ajudar. Ainda tive que parar por mais de um mês pois tive que implementar a NFe em um cliente (Com a rotina do Gilmer). Com isso não foi possível finalizar e agora que fui convidado a sair, estou sem saber ainda o que fazer. No mais agradeço a todos. Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Cérebro é uma coisa maravilhosa. Todos deveriam ter um.

Bom dia a todos... Gostaria de agradecer todos pelos anos que pude ter o prazer de participar deste excepcional fórum. E reafirmar que a ferramenta Fivewin é fantástica. Sempre que acompanhei o fórum pude colher informações importantes, com dicas, exemplos postados e acompanhar problemas dos mais variados tipos, aprendi muito com eles. Criei aqui na empresa a primeira aplicação em fivewin. Um programa simples más comercializável. (Controle e emissão de notas fiscais de serviços, contas a pagar/receber, cadastros, dentre outras coisas). Desenvolvi sonsinho com as dicas do fórum. Depois deste veio outros mais complexos e em funcionamento, dessa forma já estava partindo para um carro chefe da empresa que seria a entrada definitiva para o fivewin. Más infelizmente não faço mais parte da empresa que ajudei a criar. Não sei se é uma despedida, pois não sei ainda qual rumo tomar. Foi muito bom participar com vocês e aprender com vocês. Gostaria de lembrar a fala do Evandro. “Olha gente vamos ficar atentos temos que nos unir ajudar uns aos outros, pois temos que ser fortes para enfrentar as dificuldades.†Referindo as mais varias empresas da família FiveWin. Evandro se falei errado pode me corrigir, más foi dessa forma que compreendi e acho que é a pura verdade, sempre acreditei nisso deste a primeira vez que ouvi de você no primeiro encontro que participei em São Paulo (acredito que foi o II), más lamentava pois olhava para a minha empresa e via que dentro dela não havia este mesmo pensamento nem mesmo nos assuntos internos. Vou postar meu currículo no fórum assim que puder, estou meio sem rumo ainda rsrsrsr... E postarei detalhes dos meus conhecimentos e minhas experiências (desenvolvi vários aplicativos diferentes em diversos seguimentos), quem sabe alguém queira apostar neste velho companheiro. Sei que tenho muito a acrescentar. E quem sabe continuar a participar ainda deste fórum nota 10 (dez). Citar nomes é complicado, João , Gilmer, Paulo Araujo, Tião (que acompanhou minha última luta para desenvolver o PAF-ECF da qual eu tinha que desenvolver sozinho e sem ter nem manual), Evando, Alex, Marca, Vitor, Lailton, Leandro, Vagner em fim todos. Obrigado. Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Cérebro é uma coisa maravilhosa. Todos deveriam ter um. Editado por - frkiko on 01/10/2009 11:30:05

Bom dia a todos... Gostaria de agradecer todos pelos anos que pude ter o prazer de participar deste excepcional fórum. E reafirmar que a ferramenta Fivewin é fantástica. Sempre que acompanhei o fórum pude colher informações importantes, com dicas, exemplos postados e acompanhar problemas dos mais variados tipos, aprendi muito com eles. Criei aqui na empresa a primeira aplicação em fivewin. Um programa simples más comercializável. (Controle e emissão de notas fiscais de serviços, contas a pagar/receber, cadastros, dentre outras coisas). Desenvolvi sonsinho com as dicas do fórum. Depois deste veio outros mais complexos e em funcionamento, dessa forma já estava partindo para um carro chefe da empresa que seria a entrada definitiva para o fivewin. Más infelizmente não faço mais parte da empresa que ajudei a criar. Não sei se é uma despedida, pois não sei ainda qual rumo tomar. Foi muito bom participar com vocês e aprender com vocês. Gostaria de lembrar a fala do Evandro. “Olha gente vamos ficar atentos temos que nos unir ajudar uns aos outros, pois temos que ser fortes para enfrentar as dificuldades.†Referindo as mais varias empresas da família FiveWin. Evandro se falei errado pode me corrigir, más foi dessa forma que compreendi e acho que é a pura verdade, sempre acreditei nisso deste a primeira vez que ouvi de você no primeiro encontro que participei em São Paulo (acredito que foi o II), más lamentava pois olhava para a minha empresa e via que dentro dela não havia este mesmo pensamento nem mesmo nos assuntos internos. Vou postar meu currículo no fórum assim que puder, estou meio sem rumo ainda rsrsrsr... E postarei detalhes dos meus conhecimentos e minhas experiências (desenvolvi vários aplicativos diferentes em diversos seguimentos), quem sabe alguém queira apostar neste velho companheiro. Sei que tenho muito a acrescentar. E quem sabe continuar a participar ainda deste fórum nota 10 (dez). Citar nomes é complicado, João , Gilmer, Paulo Araujo, Tião (que acompanhou minha última luta para desenvolver o PAF-ECF da qual eu tinha que desenvolver sozinho e sem ter nem manual), Evando, Alex, Marca, Vitor, Lailton, Leandro, Vagner em fim todos. Obrigado. Francisco J S Barbosa frkiko@pop.com.br Belo Horizonte - MG FiveWin for Harbour 2.4 - Workshop Cérebro é uma coisa maravilhosa. Todos deveriam ter um. Editado por - frkiko on 01/10/2009 11:30:05

citação:Olá, Algumas considerações: O pessoal está esquecendo que o governo, tão criticado neste tópico, fez com que o mercado de automação comercial se multiplicasse imensamente em função da obrigatoriedade de ECFs, NFEs e outros Es (eletrônicos) mais. Em geral o pessoal não se adequou aos novos tempos. Continuam se a empresa do eu sozinho. Eu programo, eu dou suporte, eu vendo, eu instalo, eu... E isto não cabe mais hoje em dia. O cliente quer estrutura de quem vai contratar. Minha empresa tem uma secretária, 6 programadores, 6 no suporte, 1 no administrativo e tem cliente que acha nossa estrutura acanhada. Está analisando a possibilidade de nos contratar com esta pequena estrutura. Imagina se fosse ainda eu sozinho. Eles nem analizariam. Sem querer criticar, mas em vez de desânimo, se reinventem, se unam. Em vez de 10 EUpresas que tal uma empresa com pelo menos 10 pessoas? A própria Totvs é fruto de várias incorparações. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 9.01+PellesC+MyMake+xHarbour.org 1.00+SqlLib id=quote>id=quote>Grande Mestre Evandro.... falou tudo... é a pura verdade. " ... daí a necessidade de garantir a contratação de aplicativos de empresas com condições de honrar os contratos e manter alto nível de prestação de serviços." Abraços Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Cérebro é uma coisa maravilhosa. Todos deveriam ter um.