-
Posts
270 -
Joined
-
Last visited
-
Days Won
9
Posts posted by HERGON
-
-
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-ESHerberson 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 / MG02 - Claudia M. R. Glória Gontijo (Cacau7) - Belo Horizonte / MG03 - AnaCatacombs - Cianorte / PR04 - Joaosolution - Contagem / MG05 - Nárlem - Belo Horizonte / MG06 - Vander (VLNunes) -07 - Gilmer - Sorocaba / SP08 - Evandro G. de Paula - Curvelo / MGAtt.Herberson GontijoPonteware 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.
-
-
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ério010 - 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 / RS024 - Gilmer Luiz Orro Tavares (fivewin.com.br) - Sorocaba / SP025 - Herberson Carlos Gontijo (Ponteware Informática) - Belo Horizonte / MG026 - André Emerenciano dos Santos (Ponteware Informática) - Belo Horizonte / MGHerberson GontijoPonteware Informática Ltda.
Posição sobre realização IX Congresso FW
in Programação
Posted