HERGON

Olá pessoal Modifiquei um pouco a relação abaixo para ficar mais fácil a visualização da quantidade de chalés. Por favor aos que já se inscreveram mas não incluíram acompanhantes e desejam fazê-lo, complete a lista abaixo. Aos que ainda não se inscreveram e pretendem participar, por favor, o faça o quanto antes, devo marcar reunião com o SESC para primeira semana de maio e se não chegarmos a pelo menos 50 chalés, ficará difícil manter os preços já divulgados e segurar a data, o evento pode morrer na praia como em anos anteriores. Chalés Nome --------- ---------------------------------------------------------------------------------------------------------------------------------- 01 01 - Herberson Carlos Gontijo (Hergon) - Beloarrow-10x10.png Horizonte / MG - (01 chalé - 2 pessoas) 02 - Claudia M. R. Glória Gontijo (Cacau7) - Beloarrow-10x10.png Horizonte / MG (Acompanhante) 02 03 - Ana Possani (AnaCatacombs) - Cianorte / PR (01 Chalé - 1 Pessoa) 03 04 - João ** preencher o nome completo ** (Joaosolution) - Contagem / MG (01 chalé - 2 pessoas) 05 - ** Favor preencher o nome** acompanhante João (Acompanhante) 04 06 - Nárlem - Beloarrow-10x10.png Horizonte / MG - ( 01 chalé - 1 pessoa ) 05 07 - Vander Lúcio Nunes (VLNunes) - João Monlevade / MG 06 08 - Gilmer - Sorocaba / SP 07 09 - Evandro G. de Paula - Curvelo / MG - ( 01 chalé - 1 pessoa ) 08 10 - Cleber Ribeiro Conde - Caratinga / MG 09 11 - Vailton Renato - Sorocaba / SP 10 12 - José Manoel da Silva - São Paulo / SP 11 13 - Rodrigo Portugual - São Paulo / SP 12 14 - Roberto Júnior - São Paulo / SP 13 15 - Wesley Rodrigues - São Paulo / SP 14 16 - Luiz Roberto SERVULO Diadema/SP 15 17 - Leonardo Guimarães(LHSISTEMAS) Vitória-ES 16 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 Herberson Gontijo Ponteware Informática Ltda.

Márcio, Bom dia A previsão do primeiro pagamento é para o dia 10 de junho, mas antes precisamos ter "pré-inscritos" aqui em número significativo para efetivarmos o contrato com o SESC. Vamos lá pessoal... Se realmente tem interesse em participar coloque o nome na lista para que liberemos essa parte e possamos assinar o contrato com o SESC. Herberson Gontijo Ponteware Informática Ltda.

Olá João, bom dia Vou modificar mas é preciso identificar a pessoa, por favor faça isso copiando e modificando os dados. Obrigado 01 - Herberson Carlos Gontijo (Hergon) - Belo Horizonte / MG - (01 chalé - 2 pessoas) 02 - Claudia M. R. Glória Gontijo (Cacau7) - Belo Horizonte / MG (Acompanhante) 03 - AnaCatacombs - Cianorte / PR 04 - João ** preencher o nome completo ** (Joaosolution) - Contagem / MG (01 chalé - 2 pessoas) 05 - ** Favor preencher o nome** acompanhante João (Acompanhante) 06 - Nárlem - Belo Horizonte / MG 07 - Vander Lúcio Nunes (VLNunes) - João Monlevade / MG 08 - Gilmer - Sorocaba / SP 09 - Evandro G. de Paula - Curvelo / MG 10 - Cleber Ribeiro Conde - Caratinga / MG 11 - Vailton Renato - Sorocaba / SP 12 - José Manoel da Silva - São Paulo / SP 13 - Rodrigo Portugual - São Paulo / SP 14- Roberto Júnior - São Paulo / SP 15 - Wesley Rodrigues - São Paulo / SP 16 - Luiz Roberto SERVULO Diadema/SP 17 - Leonardo Guimarães(LHSISTEMAS) Vitória-ES 18 - Helder Angelo Fiorotti(LHSISTEMAS) Vitória-ES Herberson Gontijo Ponteware Software

Olá pessoal Vou juntar os nomes separados à lista e aproveitar para reforçar que precisamos ter um número mínimo de 50 participantes para que eu consiga fechar o contrato com o SESC com os valores mencionados, vamos lá... Quero também lembrar que os participantes que levarão acompanhantes já tem que cadastra-los na lista abaixo e na frente identificar para que possamos calcular o número exato de chalés a serem reservados. Exemplo: - 01 chalé - Sem acompanhante - 01 chalé - 2 pessoas - 01 chalé - 3 pessoas - 02 chalés - 3 pessoas Aos que já se inscreveram na lista, favor completar com mais esta informação. 01 - Herberson Carlos Gontijo (Hergon) - Belo Horizonte / MG - (01 chalé - 2 pessoas) 02 - Claudia M. R. Glória Gontijo (Cacau7) - Belo Horizonte / MG 03 - AnaCatacombs - Cianorte / PR 04 - Joaosolution - Contagem / MG 05 - Nárlem - Belo Horizonte / MG 06 - Vander Lúcio Nunes (VLNunes) - João Monlevade / MG 07 - Gilmer - Sorocaba / SP 08 - Evandro G. de Paula - Curvelo / MG 09 - Cleber Ribeiro Conde - Caratinga / MG 10 - Vailton Renato - Sorocaba / SP 11 - José Manoel da Silva - São Paulo / SP 12 - Rodrigo Portugual - São Paulo / SP 13 - Roberto Júnior - São Paulo / SP 14 - Wesley Rodrigues - São Paulo / SP 15 - Luiz Roberto SERVULO Diadema/SP 16 - Leonardo Guimarães(LHSISTEMAS) Vitória-ES 17 - Helder Angelo Fiorotti(LHSISTEMAS) Vitória-ES Herberson Gontijo Ponteware Informática Ltda.

Pessoal Para agilizar o levantamento dos interessados em participar do evento, tomei a liberdade de listá-los abaixo, apenas os que explicitamente declararam o interesse, e peço aos demais que incremente a lista. 01 - Herberson Carlos Gontijo (Hergon) - Belo Horizonte / MG 02 - Claudia M. R. Glória Gontijo (Cacau7) - Belo Horizonte / MG 03 - AnaCatacombs - Cianorte / PR 04 - Joaosolution - Contagem / MG 05 - Nárlem - Belo Horizonte / MG 06 - Vander (VLNunes) - 07 - Gilmer - Sorocaba / SP 08 - Evandro G. de Paula - Curvelo / MG Att. Herberson Gontijo Ponteware Informática Ltda.

Valdir, Boa tarde Com prazer responderei suas perguntas e aproveitarei para esclarecer outros pontos pertinentes, mas já deixando bem claro que por enquanto estamos na fase de levantamento de informações, já que ainda não assinei contrato com o SESC, para isso preciso ter um número mínimo de participantes. Vamos lá: - Serão aceitas inscrições de quem não tem uma cópia oficial ? SIM. Conversei com o Gilmer e segundo ele não tem como apurar quem utiliza versão free ou paga, então o evento continua sendo para todos que quiserem participar. - Serão aceitas Inscrições até as vésperas do Evento ? NÃO. Pretendemos ter até o início de maio um número estimado de participantes, para que possamos efetivar o contrato com o SESC. A partir daí já podemos abrir inscrições para ter o número efetivo. As datas que pretendo seguir são as seguintes: >> Levantamento do número de participantes: até 10/maio >> Criação da estrutura do site do evento, inscrições e boletos para pagamento: até 30/maio >> Vencimento da primeira parcela (total de 5) ou pagamento a vista: dia 10/junho. >> "Repescagem" para quem deixou de fazer a inscrição no prazo legal: 10/julho == neste caso o valor será maior e o pagamento só poderá ser feito a vista. Após a data da repescagem as inscrições serão encerradas e quem não fez não participará. - Existe a possibilidade de se trazer o Antonio Linnares para esse Evento ? SIM. Desde que arquemos com os custos da viagem dele, custos tais que não estão incluídos nos valores já divulgados e claro que ele aceite o convite para a data que está prevista. - Quais serão os temas e estrutura de discussão do Congresso ? Os temas serão sugeridos e escolhidos pela maioria em votação. Algumas regras que também serão criadas para transparência e melhor administração do evento: - Após inscrição feita, não haverá devolução de dinheiro pago até a data, caso aja desistência. - Na impossibilidade do inscrito não poder participar poderá ser substituido por outra pessoa, desde que comunicado com 20 dias de antecedência. - Qualquer atraso no pagamento das parcelas será cobrado multa e juros, não havendo exceção. - Os pagamentos só serão feitos através de boleto bancário (não aceitaremos depósito em conta) Att. Herberson Gontijo Ponteware Informática Ltda.

Pessoal No outro encontro (em 2010) vários participantes que moram em Belo Horizonte e região foram a Confins e pegaram os participantes que estavam chegando. Tudo isso foi previamente combinado pelo fórum, foi uma iniciativa que deu certo e sugiro repeti-la, mas isso tem que ser mais no futuro, quando a maioria das passagens já tiverem sido comprada. Herberson Gontijo Ponteware Software Ltda.

Amigos do fórum Conforme prometi, estou manifestando sobre assumir a realização do "IX Congresso FW" em 2014. Após várias pesquisas, consultas de preço e estudo de viabilidade para realização do “IX Congresso Fivewin”, o resultado apresento abaixo para apreciação de todos. A proposta é realizarmos um evento parecido com o de 2010 no que se refere à estrutura de hospedagem/alimentação, obviamente quanto às palestras/conteúdo, será discutido no decorrer do tempo de acordo com sugestões dos participantes. Novamente o local proposto foi o SESC-MG (em Belo Horizonte) e o check-in poderá ser feito no dia 21/Nov/2014 (sexta-feira) a partir das 18h e check-out no dia 23/Nov/2014 (domingo) até as 18h. Serão 2 diárias em chalés com ar-condicionado, frigobar, cama de casal, TV, café da manhã e almoço. Na sexta-feira, Teremos um “happy-hour”, para recepcionarmos os participantes, no “Bar dos Jogos”, local com estrutura adequada para tal, além de mesas de sinuca e jogos e no sábado, à noite, teremos o tradicional churrasco de confraternização, no salão do restaurante da piscina. Também serão fornecidos 2 coffee-break no sábado e 2 no domingo, nos intervalos das palestras na parte da manhã e da tarde, respectivamente, com o seguinte cardápio: Café, leite c/sem Açúcar, ou Chocolate quente. 05 Variedades Pitt four e Sequilhos, 02 Variedades bolo(Chocolate, Limão, Cenoura, Laranja com cobertura) ou broa de fubá 02 Variedades Suco Natural (Sabores Uva, Abacaxi, Manga, Acerola, Goiaba) 02 Variedades de refrigerante primeira linha (Cola e guaraná) 02 Variedades de mini-salgados (Sfira, enrolado de presunto, empada, coxinha, delicia queijo) 02 Variedade de mini-salgados folheados (Abacaxi c/ presunto, ricota, bacon c/ damasco, alho poro) 02 Variedades de mini-croissant (Queijo, presunto e queijo, frango, goiaba, chocolate) 01 Variedade de mini-sanduíche (Presunto e queijo / pasta de frango / pasta de presunto / pasta de atum) 01 Variedade de mini-sanduíche pão caseiro (Lombo, Queijo prato, Requeijão, peito de peru defumado) Pão de Queijo O custo por participante será de R$ 420,00 (ou 5 x R$ 84,00) e para acompanhante R$ 300,00 (ou 5 x R$ 60,00) no mesmo chalé. Os valores poderão ser pagos à vista ou 5 parcelas, a partir de junho/2014, as inscrições poderão ser feitas pela internet e os pagamentos através de boleto bancário. Os valores acima foram através de muita negociação e talvez consiga segurá-los até 10 de maio, então seria muito bom todos os interessados se manifestarem o quanto antes para conseguirmos segurar a data e o preço. Herberson Gontijo Ponteware Software Ltda.

Olá pessoal Ainda estou aguardando algumas respostas sobre cotações que fiz, assim que as tiver já tenho condições de dar uma resposta definitiva sobre organizar ou não o "IX Encontro". Abraços Herberson Gontijo Ponteware Informática Ltda.

Obrigado pelo apoio Charles. Você é um exemplo de pessoa que ajuda. No encontro realizado em BH você enviou vários brindes que sorteamos entre os participantes, deu sugestões pertinentes, via fórum, e em outros encontros também ajudou financeiramente. Independente de onde seja o encontro, eu organizando ou não, seria muito bom te conhecer pessoalmente, inclusive esse é um dos principais objetivos do encontro. Faça uma forcinha para vir neste ano. Abraço Herberson Gontijo Ponteware Informática Ltda.

Bom dia Como disse em post anterior, estou pensando, pesando e fazendo alguns levantamentos prévios antes de dar a resposta. Todos que me conhecem sabem que não gosto de nada enrolado, mal resolvido ou gambiarrado... assim que receber algumas respostas à consulta que fiz sobre data, custo de um possível local do evento, poderei falar se topo ou não organizar. Herberson Gontijo Ponteware Informática Ltda.

Eduardo Com exceção do primeiro encontro, todos os demais eu participei e em TODOS, vários temas foram abordados, não só programação FW. Tais encontros são importantes para que possamos trocar idéias, experiências, esclarecermos dúvidas, formatarmos parcerias e sobretudo estreitarmos os laços de amizade. Temos que ter uma visão ampla para todos os assuntos que nos rodeia e que indiretamente temos que lidar diariamente, tais como SPED, NFC-e, Manifestação do Destinatário, NFe 3.10, Aplicativo WEB, etc. Herberson Gontijo Ponteware Informática Ltda.

Concordo como Tião.

Pessoal Organizar um evento não é fácil, precisa responsabilidade, comprometimento, tempo e disposição. O que me falta é tempo, acredito que para muitos também. Vou fazer alguns contatos, pesquisas... sem compromisso, vamos ver o que rola. Herberson Gontijo Ponteware Informática

Boa tarde amigos do fórum Sabemos que todas as vezes que discutimos sobre o tema “Encontro de Programadores Fivewin” o tópico fica quente, várias opiniões, sugestões e polêmicas. Nos últimos dois anos acabaram não acontecendo. Em minha opinião é importante discutirmos sobre nossa ferramenta de trabalho e o que devemos esperar para o futuro, mas igualmente relevante é estreitarmos laços de amizade e parceria. Não podemos deixar cair no esquecimento este encontro que já gerou inúmeras relações de negócios, parceria e bons frutos a todos que participaram. No ano passado muito se falou que não havia tempo hábil para realizar um encontro de qualidade e alguns colegas (a maioria de SP) encontram-se para discutir a organização do evento para o início deste ano, salvo engano. Então, não seria a hora de nos organizar para fazermos um evento realmente de qualidade? Em 2012 quando levantei este assunto no inicio do ano, muitos falaram que estava muito cedo e chegamos ao final do ano sem que conseguíssemos realizá-lo. No ano passado cometemos o mesmo erro, será que neste ano vamos repeti-lo? Vamos fazer um debate objetivo aqui no fórum, elegendo a data, os organizadores e no decorrer do tempo os temas. Mas é importante definirmos a data e NÃO mudarmos, para que assim possamos já comprar passagens com desconto e não agendarmos nada para a ocasião. Também seria importante não alongarmos demais este tópico, com sugestões descabidas, brincadeirinhas ou polêmicas alheias ao assunto. Herberson Gontijo Ponteware Informática Ltda.

Bom dia Editei o post e colei novamente a rotina, agora já dá para copiar e colar sem perder a edentação. Abraços Herberson Gontijo Ponteware Software Ltda.

Pessoal Algumas alterações no fonte e o resumo é o seguinte: UF's que estão funcionando perfeitamente (já testadas) e recuperando os dados: BA, CE, ES, MA, MG, MS, PR, RJ, RR, SC e SP. UF's que ainda não foram implementadas: AC, AL, AM, AP, DF, MT, PB, PE, PI, RS, SE e TO. UF's que foram implementadas mas não funcionam, travam ou não capturam os dados: GO, PA, RN e RO. Quem quiser testar e se conseguir algum avanço, por favor, post... Agora vou dar um tempo nisso porque leva um tempo enorme para testar/adequar e o resto dos meus afazeres acabou ficam atrasado. /********************************************************* * Função : Classe para abrir uma página da net e pegar os dados * Data : Por : Alain/Rancharia * Revisado em : 25/07/2011 - 08:50:27 Por : Vagner Wirts * Como Usar : oSintegra := Sintegra():New(cUF) - Onde cUF = estado de consulta ex.: "SP" aRetorno := oSintegra:Consulta() If Len(aRetorno) > 0 MsgInfo("Consulta Executada com sucesso !","AVISO DE ALERTA") MsgArray(aRetorno) EndIf Return Nil * Comentário : //"GO" - não consegui abrir na mesma dialog //"MA" - Pega somente pela inscrição, ver como tratar //"MG" - Pega Exige um terceiro link, ver como tratar //"PA" - Pega somente pela inscrição, ver como tratar //"RN" - Pega somente pela inscrição, ver como tratar Ainda estão faltando alguns estados, pois não possuo informações para poder pegar o código fonte das páginas. Quanto aos estados acima, estarei pesquisando para ver como pegar, mas os estados de MA,PA e RN, parecem fácil de recuperar, apesar de possuir um 3º ítem. **********************************************************/ #Include "Fivewin.ch" #Include "xBrowse.ch" Function GetSintegra(cUF) Return( Sintegra():New(cUF)) /********************************************************* * Função : PegaSintegra() - Função para pegar os dados através de um html em disco * Data : 26/07/2011 - 09:19:59 Por : Vagner * Revisado em : 26/07/2011 - 09:20:02 Por : Vagner * Parâmetros : * cHtml - Arquivo Html * Comentários : * Entrar na página e copiar o código fonte da página **********************************************************/ Function PegaSintegra(cHtml) Return (MontaSintegra(cHtml)) //----------------------------------------------------------------------------------------------------------------------// Class Sintegra Data nTimeOut Init 240 // 4 minutos Data lDownload, lError, cError Data cRetorno Data aGru1, aGru2 Data cUrl, cPost, cView, cBody, cUf Method New(cUF) Constructor Method Consulta( cCGCorIE ) Method DownloadComplete( oAct ) Method Clear() INLINE DelUrlCache({::cPost,::cView}) EndClass //----------------------------------------------------------------------------------------------------------------------// Method New(cUF) Class Sintegra Local aUrls Default cUF := "MG" aUrls := PegaUrls(cUF) If Len(aUrls) == 0 MsgStop("Não pude inicializar o Sintegra.","Estado "+cUF+" Inválido.") Return (.f.) //Self // (.t.) Endif ::cUrl := aUrls[1] ::cPost := ::cUrl+aUrls[2] ::cView := ::cUrl+aUrls[3] ::aGru1 := AClone(aUrls[4]) ::aGru2 := AClone(aUrls[5]) ::cUf := cUf Return Self Method Consulta() Class Sintegra Local oDlg, oAct Local nTimer If IsInternet() == .F. MsgStop("Sem conexão com a internet !") Return {} Else ::Clear() EndIf ::cRetorno := "" ::lDownload := .F. ::lError := .F. Define Dialog oDlg From 0,0 To 600,800 Pixel Title "Consultando CNPJ - Sintegra - UF: "+cUf //Style WS_CAPTION oDlg:lHelpIcon:=.F. Activate Dialog oDlg NoWait Centered oAct:=TActivex():New(oDlg,"Shell.Explorer",00,0,790,590) oAct:bOnEvent := {|cEv|If(cEv=="DownloadComplete",::DownloadComplete( oAct ),Nil)} oAct:Silent := .T. oAct:Navigate( ::cPost ) oAct:SetFocus() nTimer:=Seconds() While !::lDownload If !IsWindowVisible( oDlg:hWnd ) ::lDownload := .T. ::lError := .T. ::cError := "Consulta Cancelada!" ElseIf !IsInternet() ::lDownload := .T. ::lError := .T. ::cError := "Perda de conexao com a internet!" ElseIf( Seconds()-nTimer ) >= ::nTimeOut ::lDownload := .T. ::lError := .T. ::cError := "Tempo limit esgotado!" EndIf SysRefresh() End Try ::cRetorno := oAct:Document:Body:InnerHtml Catch oE ::lError := .T. ::cError := "Falha no recebimento dos dados!" End oDlg:End() SysRefresh() If ::lDownload .and. !::lError Return MontaSintegra( ::cRetorno, ::aGru1,::aGru2 , ::cUf ) Else MsgStop(::cError,"Atenção") MontaSintegra( ::cBody, ::aGru1,::aGru2 , ::cUf ) EndIf Return {} Method DownloadComplete( oAct ) Class Sintegra Local cHTTP := oAct:LocationURL LoGFile('Sintegra.Txt',{cHTTP}) LoGFile('cView.Txt',{::cView}) TRY LoGFile('Body.txt',{ oAct:Document:Body:InnerHtml } ) ::cBody := oAct:Document:Body:InnerHtml Catch End If ( ::cView $ cHTTP ) .or. ::cView == cHTTP If At( ::aGru1[1], oAct:Document:Body:InnerHtml) != 0 oAct:oWnd:Hide() ::lDownload := .T. Endif ElseIf At( "não+foi+encontrado", cHTTP ) > 0 ::cError := "O CNPJ não foi encontrado na base do Sintegra." ::lError := .T. ::lDownload := .T. ElseIf At( "incorreto", cHTTP ) > 0 ::cError := "O CNPJ não é valido !" ::lError := .T. ::lDownload := .T. EndIf Return Nil EXIT PROCEDURE SAIR PostQuitMessage( 0 ) __Quit() Return Nil /********************************************************* * Função : MontaSintegra() - Função para pegar as informações do html * Data : Por : Alain/Rancharia * Revisado em : 26/07/2011 - 07:50:27 Por : Vagner Wirts * Parâmetros : * cSintegra - Texto do html * aGru1 - Array com início e fim do texto * aGru2 - Array com as variáveis para retirar do texto **********************************************************/ Static Function MontaSintegra( cSintegra ,aGru1,aGru2, uUf) Local cLine, nLine, nTotal Local aReto := {} Local cTexto Local nPos,nPo1 Local nPegou:=0 If ValType(cSintegra)=="U" Return Nil Endif Default cUf := '' //Retira Comentários do html If ! cUF $ "BA,MT" While (nPos := At("<!--",cSintegra)) > 0 nPo1 := At("-->",cSintegra) cTexto := SubStr(cSintegra,nPos,(nPo1-nPos)+3) cSintegra := StrTran(cSintegra,cTexto,"") Enddo Else While (nPos := At("<!--%",cSintegra)) > 0 nPo1 := At("%-->",cSintegra) cTexto := SubStr(cSintegra,nPos,(nPo1-nPos)+4) cSintegra := StrTran(cSintegra,cTexto,"") Enddo Endif cSintegra := StrTran(cSintegra,"INFORMAÇÕES COMPLEMENTARES") cSintegra := StrTran(cSintegra,".::ENDEREÇO") cSintegra := StripHTML( cSintegra ) cSintegra := GroupBy( aGru1[1], aGru1[2], cSintegra,.F.,.F.) cSintegra := RemoveBlankLineNfe( cSintegra ) nTotal := MLCount( cSintegra) MemoWrit("Teste.Txt",cSintegra) For nLine := 1 To nTotal If cUf == "MS" cLine := Alltrim(MemoLine(cSintegra,,nLine)) For k=1 TO Len( aGru2 ) If aGru2[k] $ cLine cTexto := AlLTrim( SubStr( cLine, Len(aGru2[k])+1 ) ) AaDd(aReto,RemoveChar(cTexto,{[.],[-],[/],[:]})) AAdd(aPegaCampo, aGru2[k]) EndIf NEXT Else cLine := Alltrim(MemoLine(cSintegra,,nLine)) If AsCan(aGru2,cLine) != 0 cTexto := Alltrim(MemoLine(cSintegra,,++nLine)) If AsCan(aGru2,cTexto) != 0 //Caso não haja a informação cTexto := " " --nLine Endif If cTexto == "Data da Concessão da Inscrição:" //para o Caso do RJ cTexto := " " --nLine Endif If Left(cLine,10) == "Logradouro:" //No Logradouro separa o tipo do endereco nPos := At(" ",cTexto) cNew := AllTrim(Left(cTexto,nPos)) AaDd(aReto,cNew) AAdd(aPegaCampo, cLine) cTexto := AlLTrim(Right(cTexto,Len(cTexto)-nPos)) Endif If cUf="MG" .and. nPegou>2 .and. "Situação Cadastral:" $ cLine // Não repassar Else AaDd(aReto,RemoveChar(cTexto,{[.],[-],[/],[:]})) AAdd(aPegaCampo, cLine) If cUf="MG" .and. "Situação Cadastral:" $ cLine nPegou:=nPegou+1 Endif Endif Endif Endif Next nLine Return(aReto) Static Function StripHTML( cHtml ) Local cString:= RemoveChar( cHTML, {"&","amp;","nbsp;",'<!-- ',' -->','<--','-->','||','\/','<!--%','%-->',[/\]} ) Local aMatch := HB_RegExAll("\<[^\>]*\>", cString) Aeval(aMatch,{|a|cString:=StrTran(cString,a[1])} ) cString:=StrTran(cString,chr(10)+chr(13) ) LoGFile('StripHTML.Txt',{cString}) Return cString Static Function DelUrlCache( aUrl ) Return AEval( aUrl, {|nX,nNum| DeleteUrlCacheEntry( aUrl[nNum] )} ) Static Function DelFile( cFile ) If File(cFile); FErase(cFile); EndIf Return Nil Static Function RemoveChar(cString,aChar) Aeval(aChar,{|cChar|cString:=StrTran(cString,cChar)}) Return(cString) Static Function GroupBy( cStart, cEnd, cString, lTags, lBreak ) Local nBegin, nEnd Local cFound, nAT Default lTags:=.F., lBreak:=.F. nBegin := At( cStart, cString ) If(nBegin == 0 ) ; Return "" ; EndIf If(lTags == .F.) ; nBegin += Len(cStart) ; EndIf If( cEnd != Nil ) nEnd := At( cEnd, cString, nBegin ) If nEnd == 0 Return "" Else nEnd := nEnd - nBegin EndIf If( lTags ) nEnd += Len( cEnd ) EndIf Else If lBreak nAt := At(CRLF,Substr(cString,nBegin,Len(cString))) If nAt > 0 nEnd := nAt - 1 If nEnd < Len(cString) ; nEnd := Len(cString)+1 ; Endif Else nEnd := Len( cString ) EndIf Else nEnd := Len( cString ) EndIf EndIf cFound := Substr( cString, nBegin, nEnd ) If lBreak If lTags cFound:=StrTran(cFound,CRLF) Else If cEnd != Nil nAt := At(CRLF,cFound) If nAt > 0 cFound := Left(cFound,nAT) EndIf Endif EndIf EndIf Return cFound Static Function RemoveBlankLineNfe( cTexto ) Local cTextoNew:="" Local nLines, cLine, nNum nLines := MLCount( cTexto, 400) For nNum := 0 To nLines cLine := Alltrim(MemoLine( cTexto, 400, nNum )) If !Empty(cLine) If cLine == "function ocultarExibir(idDaTabela)" nNum+=14 Loop EndIf cTextoNew += cLine + If (nNum<nLines,CRLF,"") EndIf Next nNum Return cTextoNew /********************************************************* * Função : PegaUrls() - Função para pegar as urls dos estados e também a configuração do itens para para localizar * Data : 25/07/2011 - 11:42:49 Por : Vagner * Revisado em : 25/07/2011 - 11:42:51 Por : Vagner * Parâmetros : * cUF - Unidade da Federação * Comentários : * Nem todos os campos do html são iguais então foi colocado em forma de array para melhor identificar **********************************************************/ Static Function PegaUrls(cUF) Local aRet := {} If cUF == "AC" ElseIf cUF == "AL" ElseIf cUF == "AM" ElseIf cUF == "AP" ElseIf cUF == "BA" aRet := {"http://www.sefaz.ba.gov.br/Sintegra/",; "sintegra.asp?estado=BA/",; "",; {"IDENTIFICAÇÃO","Os dados acima são baseados em"},; {,; "Data da Consulta:",; "Número da Consulta:",; "CNPJ:",; "Inscrição Estadual:",; "UF:",; "Razão Social:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "UF:",; "Município:",; "CEP:",; "Endereço Eletrônico:",; "Telefone:",; "Atividade Econômica:",; "Data da Inscrição Estadual:",; "Usuário SEPD :",; "Situação Cadastral Atual:",; "Data desta Situação Cadastral:",; "Condição:",; "Regime de Apuração de ICMS:"; } ; } ElseIf cUF == "CE" aRet := {"http://www.sefaz.ce.gov.br/content/aplicacao/internet/servicos_online/sintegra/",; "sintegra.asp?estado=ce",; "result.asp",; {"IDENTIFICAÇÃO","Os dados acima são baseados em"},; {"CNPJ:",; "Inscrição Estadual:",; "RazãoSocial:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "UF:",; "Município:",; "CEP:",; "Telefone:",; "CNAE Fiscal Primário:",; "Situação Cadastral Vigente:",; "Data da Situação Cadastral:",; "Regime de Recolhimento:" ; } ; } ElseIf cUF == "DF" ElseIf cUF == "ES" aRet := {"http://www.sintegra.es.gov.br/",; "",; "resultado.php",; {"IDENTIFICAÇÃO","Os dados acima são baseados em"},; {"CNPJ:",; "Inscrição Estadual:",; "Razão Social :",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "UF:",; "Município:",; "CEP:",; "Telefone:",; "Atividade Econômica:",; "Situação Cadastral Vigente:",; "Data da Situação Cadastral:",; "Regime de Apuração:",; "Data de Inicio de Atividade:",; "Data desta Situação Cadastral:"; } ; } ElseIf cUF == "FN" ElseIf cUF == "GO" aRet := {"http://www.sefaz.go.gov.br/sintegra/ConsultaCadastro/",; "",; "consulta.asp",; {"IDENTIFICAÇÃO","Os dados acima são baseados em"},; {"CGC/CNPJ:",; "Inscrição Estadual - CCE :",; "Nome / Razão Social:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "UF:",; "Município:",; "CEP:",; "Telefone:",; "Atividade Econômica:",; "Situação Cadastral Vigente:",; "Data da Situação Cadastral:",; "Regime de Apuração:" ; } ; } ElseIf cUF == "MA" aRet := {"http://sistemas.sefaz.ma.gov.br/sintegra/",; //"http://www.sefaz.ma.gov.br/sintegra/",; "jsp/consultaSintegra/consultaSintegraFiltro.jsf",; "", ; //"result.asp",; {"IDENTIFICAÇÃO","Os dados acima estão baseados em"},; {"CGC:",; "Inscrição Estadual:",; "Razão Social:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "UF:",; "Município:",; "CEP:",; "Telefone:",; "CNAE Principal:",; "Situação Cadastral Vigente:",; "Data desta Situação Cadastral:",; "Regime Apuração:" ; } ; } ElseIf cUF == "MG" aRet := {"http://consultasintegra.fazenda.mg.gov.br/sintegra/",; "",; "ctrl/SINTEGRA/SINTEGRA/CONSULTA_707",; {"Dados Principais",NIL},; {"CNPJ:",; "Inscrição Estadual:",; "Nome Empresarial:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "Município:",; "UF:",; "CEP:",; "Telefone:",; "Atividade Econômica:",; "CNAE-F Principal:",; "Situação Cadastral:",; "Data Situação Cadastral:",; "Regime de Recolhimento:"; } ; } ElseIf cUF == "MS" aRet := {"http://www1.sefaz.ms.gov.br/cadastro",; "/CadastroMsCCI.asp",; "/ResultadoCCI.asp?INSCRICAO",; {"SECRETARIA DE ESTADO DE FAZENDA",NIL},; {"CNPJ",; "INSCRIÇÃO ESTADUAL",; "RAZÃO SOCIAL/NOME",; "LOGRADOURO",; "NÚMERO",; "COMPLEMENTO",; "BAIRRO",; "MUNICÍPIO",; "UF",; "CEP",; "Telefone:",; "DESCRIÇÃO DA ATIVIDADE ECONÔMICA",; "MOTIVO DA SITUAÇÃO CADASTRAL",; "DATA DA ÚLTIMA ATUALIZAÇÃO"; } ; } ElseIf cUF == "MT" ElseIf cUF == "PA" aRet := {"https://app.sefa.pa.gov.br/Sintegra/",; "cadastromsCCI.asp",; "ResultadoCCI.asp",; {"IDENTIFICAÇÃO","Os dados acima são baseados"},; {"CNPJ:",; "Inscrição Estadual:",; "Razão Social:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "Município:",; "UF:",; "CEP:",; "Telefone:",; "Atividade Econômica:",; "Situação Cadastral Atual:",; "Data desta Situação Cadastral:",; "Regime de Apuração de ICMS:" ; } ; } ElseIf cUF == "PB" ElseIf cUF == "PE" ElseIf cUF == "PI" ElseIf cUF == "PR" aRet := {"http://www.sintegra.fazenda.pr.gov.br/",; "sintegra/",; "sintegra/",; {"IDENTIFICAÇÃO","Os dados acima são baseados"},; {"CNPJ:",; "Inscrição Estadual:",; "Nome Empresarial:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "Município:",; "UF:",; "CEP:",; "Telefone:",; "Atividade Econômica Principal:",; "Situação Atual:",; "Data desta Situação Cadastral:",; "Regime de Apuração de ICMS:" ; } ; } ElseIf cUF == "RJ" aRet := {"http://www.fazenda.rj.gov.br/projetoCPS/",; "consulta.jsp;jsessionid=RqRCTtJRZc6Tt0LhXgZnKh1jt8JQLx1Lk2J8HJ7xKqJpGvhQ0W4q!-1007206184",; "cpsServlet",; {"IDENTIFICAÇÃO","Data da Consulta:"},; {"CNPJ:",; "Inscrição Estadual:",; "Razão Social:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "Município:",; "UF:",; "CEP:",; "Telefone:",; "Atividade Econômica:",; "Situação Cadastral Vigente:",; "Data desta Situação Cadastral:",; "Regime de Apuração de ICMS:" ; } ; } ElseIf cUF == "RN" // aRet := {"http://www.sintegra.fazenda.pr.gov.br/",; aRet := {"http://www.set.rn.gov.br/uvt/consultacontribuinte.aspx",; "sintegra/",; "sintegra/",; {"IDENTIFICAÇÃO","Os dados acima são baseados"},; {"CNPJ:",; "Inscrição Estadual:",; "Razão Social:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "Município:",; "UF:",; "CEP:",; "Telefone:",; "CNAE Fiscal Primário:",; "Situação Cadastral Atual:",; "Data da Situação Cadastral:",; "Regime de Pagamento:" ; } ; } ElseIf cUF == "RO" // aRet := {"http://portal.intranet.sefin.ro.gov.br/PortalContribuinte/",; aRet := {"http://www.sefin.ro.gov.br/sint_consul.asp",; "parametropublica.jsp",; "consultapublica.jsp",; {"IDENTIFICA",Nil},; {"C.P.F/C.N.P.J:",; "Inscrição Estadual:",; "Razão Social:",; "Endereço:",; "Número:",; "Complemento:",; "Bairro:",; "Município:",; "UF:",; "CEP:",; "Telefone:",; "Regime de Pagamento:",; "Situação Cadastral Vigente:",; "Data:",; "Regime de Apuração de ICMS:" ; } ; } ElseIf cUF == "RR" aRet := {"https://www.sefaz.rr.gov.br/sintegra/",; "servlet/hwsintco",; "servlet/hwsintpe?",; {".::IDENTIFICAÇÃO",nil},; {"CNPJ:",; "Inscrição Estadual",; "Razão Social:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "Município:",; "UF:",; "CEP:",; "Telefone:",; "Ativ. Enonômica:",; "Sit.Cad. Vigente:",; "Dta.Sit.Cadastral:"; } ; } ElseIf cUF == "RS" ElseIf cUF == "SC" aRet := {"http://sistemas3.sef.sc.gov.br/sintegra/",; "consulta_empresa_pesquisa.aspx",; "consulta_empresa_pesquisa.aspx",; {"IDENTIFICAÇÃO","Os dados acima estão baseados em informações"},; {"CPF/CNPJ:",; "Inscrição Estadual:",; "Nome/Razão Estadual:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "Município:",; "UF:",; "CEP:",; "Telefone:",; "Código e Descrição da Atividade Econômica Principal :",; // "CNAE-Fiscal Principal:",; "Situação Cadastral Atual:",; "Data desta Situação Cadastral:",; "Regime de Apuração de ICMS:" ; } ; } ElseIf cUF == "SE" ElseIf cUF == "SP" aRet := {"http://pfeserv1.fazenda.sp.gov.br/sintegrapfe/",; "consultaSintegraServlet",; "sintegra",; {"IDENTIFICAÇÃO","Os dados acima estão baseados"},; {"CNPJ:",; "Inscrição Estadual:",; "Razão Social:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "Município:",; "UF:",; "CEP:",; "Telefone:",; "Atividade Econômica:",; "Situação Cadastral Vigente:",; "Data desta Situação Cadastral:",; "Regime de Apuração:" ; } ; } ElseIf cUF == "TO" Endif Return(aRet) DLL Static Function DeleteUrlCacheEntry(lpszUrlName AS STRING) AS LONG PASCAL FROM "DeleteUrlCacheEntryA" LIB "wininet.dll" Att. Herberson Gontijo Ponteware Informática Ltda.

Bom dia Com as modificações do link de MG funcionou, abre a página para entrar com o CNPJ e CAPTCHA e mostra os dados na tela, o problema agora é que após feita a consulta a página não fecha automáticamente como nas outras consultas de UF, com isso os dados não são recuperados. Isso tb está acontecendo com BA e GO (ainda não testei todas UF's). Sabe como resolver isso? Herberson Gontijo Ponteware Software

Boa tarde Eduardo Consegui consultar CNPJ de SP e pegar os dados, mas quando tento para MG (que é o que mais me interessa) não abre a página diretamente, mas tudo bem, na página que abre eu clico no link SINTEGRA, abre a página oficial do SINTEGRA, clico no estado MG, e na nova página que abre entro com o CNPJ e CAPTCHA e aparecem os dados. O problema é que estes dados não retornam para o sistema, teria como você testar se ai acontece da mesma forma? PS: no comando abaixo não tenho sr_showvector() teria como postar a função? msgstop(sr_showvector(aRet)) Herberson Gontijo Ponteware Informática Ltda.

Boa tarde Sei que não é um assunto novo, mas os post's anteriores ficaram confusos e acabei me perdendo nas respostas. Gostaria de saber se é possível buscar informações pelo site do SINTEGRA passando por parâmetro o CNPJ da empresa. Sei que tem um captcha na página e isso pode dificultar. Se algum dos amigos conseguiu e puder disponibilizar, seria de grande ajuda, já que agora aqui em MG tem NFe sendo DENEGADA uma atrás da outra por conta do IE não habilitado. Seria legal consultar a situação cadastral do cliente antes de gerar uma NFe e ela ser denegada. Att. Herberson Gontijo Ponteware Informática

Bom dia Gostaria de lembrar que, em todos os encontros que fizemos os maiores ganhos são: o estreitamento da AMIZADE, a troca de conhecimentos, a chance de parcerias e vislumbrarmos tendências de software. Na minha opinião, quanto maior o número de participantes, melhor, tendo em vista que, se estamos unidos, nossa voz ganha força. Sou totalmente a favor de aceitar inscrições após o encerramento, claro que cobrando valor diferenciado, mas isso precisa ser bem ADMINISTRADO, já que ao contratar o hotel para 50 participantes, toda a estrutura deverá ser montada considerando este número, e extrapolando corremos o risco de fazer um evento mal organizado e improdutivo. PENSEMOS NISSO. Abraços Herberson Gontijo Ponteware Informática

Olá Márcio No link abaixo você tem todas as explicações para o assunto (manual de integração) e o download da tabela IBPT com alíquotas para todos os NCM dos produtos e NBS para serviços. http://www.impostometro.com.br/ Abraço Herberson Gontijo Ponteware Informática

Boa tarde Valdir, algumas sugestões: - Apesar de você ter criado o tópico da pré-inscrição para o IX encontro no local correto, "Seminário", pela importância do assunto, seria uma boa idéia transferi-lo para "Programação", onde terá maior visibilidade por todos, e quem sabe, os participantes que ainda não se inscreveram, o faça. - Muita gente fica falando que "ainda dá tempo...", "novembro ainda está longe..", etc... mas quem já organizou (ou ajudou a organizar) um evento, sabe que não é fácil e demanda bastante tempo/dedicação para que as coisas aconteçam como desejado. Se queremos ter um encontro bem organizado e produtivo, com a participação do Linares e possíveis patrocinadores, temos que focar nisso AGORA, não podemos esperar que todos os interessados se inscrevam, estaríamos perdendo tempo. Melhor seria diminuir a estimativa de 100 para 50 participantes e começarmos viabilizar tudo em cima deste número. - Definida a data, estamos liberados para comprar as passagens aérea desde já, para conseguirmos melhores preços. Abraços Herberson Gontijo Ponteware Informática

Bom dia Isso sempre acontece com o meu aplicativo quando abro o home bank BRADESCO, mas pelo menos tem uma explicação... O aplicativo do banco é que faz fechar. Verifique se com o seu isso também não acontece. Abraço Herberson Gontijo Ponteware Informática

001 - Valdir - Jundiaí/SP 002 - Ana - Cianorte/PR 003 - Cesar - Cianorte/PR 004 - EMotta Sistemas - Nova Odessa/SP 005 - EMotta Sistemas - Nova Odessa/SP 006 - EMotta Sistemas - Nova Odessa/SP 007 - EMotta Sistemas - Nova Odessa/SP 008 - EMotta Sistemas - Nova Odessa/SP 009 - Império 010 - Evandro - Curvelo/MG 011 - Dorneles 012 - Dorneles 013 - Kleyber Derick / MA 014 - Geraldo (gbsilva) 015 - Fnl - Jorge (SP) 016 - - Fnl - Aum (SP) 017 - Rubens (SP) 018 - Cleber Conde - Caratinga/MG 019- Sebastião de Oliveira Pessoa (TiaoFw) / Contagem - MG 020 - Luiz Roberto Servulo / Diadema/SP 021 - Jackson Douglas C. Brito - Boa Vista (RR) 022 - Alexandre Pereira (alex2002) - Belo Horizonte / MG 023 - Leonardo Machado(Sygecom ) - Alvorada / RS 024 - Gilmer Luiz Orro Tavares (fivewin.com.br) - Sorocaba / SP 025 - Herberson Carlos Gontijo (Ponteware Informática) - Belo Horizonte / MG 026 - André Emerenciano dos Santos (Ponteware Informática) - Belo Horizonte / MG Herberson Gontijo Ponteware Informática Ltda.