HERGON

Bom dia Também estou acompanhando e com certeza estarei presente a mais esse encontro. Posso ajudar no que for preciso, mas como bem disse o Evandro, organizar um encontro em SP, morando em Sete Lagoas/MG é muito difícil. A idéia de trazer o Linares é muito boa. Algumas simulações de valores também foram feitas, mas seria interessante detalhar bem, porque há um tempo atrás, ouvi dizer que ele estaria disposto a participar de congressos sem cobrar nada, mas os organizadores teriam que arcar com os custos da viagem dele e esposa. É um detalhe que no mínimo dobraria o custo. Abraços Herberson Gontijo Ponteware Informática Ltda.

Parabéns, O fórum ficou mais bonito e atual. Herberson Gontijo Ponteware Informática Ltda.

Boa tarde Vários comentários ao longo do tempo foram feitos aqui no fórum em relação ao encontro Fivewin deste ano, e pelo jeito nada ainda foi resolvido. Reconheço que todos andam numa correira e sem tempo para planejar/organizar tal evento. Também estou notando que faltam sugestões para palestras. Enquanto isso, o tempo vai passando e nada está sendo feito... Depois, em cima da hora, acabamos resolvendo fazer e não mais encontraremos passagens com bons descontos/horários. Porque não definirmos, desde já, se o encontro acontecerá ou não? Na falta de temas para palestras, podemos nos reunir para tomar umas cervejas e debater assuntos pertinentes de áreas de interesse comum. O que acham? Herberson Gontijo Ponteware Software

Boa tarde Vários comentários ao longo do tempo foram feitos aqui no fórum em relação ao encontro Fivewin deste ano, e pelo jeito nada ainda foi resolvido. Reconheço que todos andam numa correira e sem tempo para planejar/organizar tal evento. Também estou notando que faltam sugestões para palestras. Enquanto isso, o tempo vai passando e nada está sendo feito... Depois, em cima da hora, acabamos resolvendo fazer e não mais encontraremos passagens com bons descontos/horários. Porque não definirmos, desde já, se o encontro acontecerá ou não? Na falta de temas para palestras, podemos nos reunir para tomar umas cervejas e debater assuntos pertinentes de áreas de interesse comum. O que acham? Herberson Gontijo Ponteware Software

// lRet := HB_ZIPFILE( cFile, uContents, nLevel, bUpdate, lOverwrite, password, lPath, lDrive, bFileUpdate) ) lRet := HB_ZipFile( cLocBk+"\"+cArq, aFiles, , , .t., cSenha, .f.,,) If lRet ? "ok" Else ? "Problema na compactação" Endif Herberson Gontijo Ponteware Software

Bom dia João é Windows 7. Sobre o link acima, é diferente, no meu caso qdo estou no menu principal e digito a tecla ALT+C por exemplo teria que abrir a tela de "&Cadastro", o que não está acontecendo. Herberson Gontijo

Olá pessoal De repente a tecla ATL+letra parou de funcionar para acesso ao menu do meu sistema. Para os botões estão funcionando normalmente, mas para o menu não. Alguem tem alguma idéia do que possa ser? Herberson Gontijo Ponteware Software

Olá pessoal De repente a tecla ATL+letra parou de funcionar para acesso ao menu do meu sistema. Para os botões estão funcionando normalmente, mas para o menu não. Alguem tem alguma idéia do que possa ser? Herberson Gontijo Ponteware Software

Olá pessoal Seria bom comerçarmos a discutir sobre o encontro e também termos uma posição mais concreta sobre a real condicão de ser realizado no Rio de Janeiro. Tudo na feito na última hora fica mais caro e pior qualidade. Herberson Gontijo Ponteware Software

Olá João Eu faço assim: Function fTstEmail(cVar,oObjeto) If Empty(cVar) Return .t. Else cVar := Lower(cVar) oObjeto:Refresh() If ! ("@" $ cVar .and. "." $ cVar) MsgStop('Faltando informação no email.'+CRLF+CRLF+; 'Email´s válidos precisam conter os caracteres "@" e "."', "Atenção") Return .f. Endif If At(" ",Alltrim(cVar))>0 MsgStop('Não pode conter espaço em branco no email.', "Atenção") Return .f. Endif Endif Return .t. id=code>id=code>Abraço Herberson Gontijo Ponteware Software Editado por - HERGON on 03/08/2012 09:17:37

Boa tarde Que bom que a idéia da cooperativa está tendo boa adesão. Claro que também apoiamos e queremos participar. Quanto a participação da Cacau na parte jurídica, acabei de ver com ela por telefone e se mostrou interessada... no momento ela está em local sem acesso à internet e não tem como responder, mas assim que for possível ela o fará. Abraços Herberson Gontijo Ponteware Software

Boa tarde Senhores Realmente as dificuldades para nós programadores e pequenas empresas aumentaram muito. A cada dia novas exigências por parte do fisco, muitos custos em homologações, certificações, equipamentos fiscais para desenvolvimento etc, isso sem falar na concorrência desigual com grandes empresas, como por exemplo, a Bematech que sem constrangimento traiu seus parceiros programadores, conforme sabido por todos nós, e outras que vem com tudo disputando o mercado com pouca ou quase nenhuma lealdade. Temos hoje, em Belo Horizonte, uma experiência de parceria para o PAF-ECF que já dura aproximadamente 2 anos, com 15 integrantes de diferentes cidades/estados que rateiam os custos para homologação PAF-ECF, este já registrado em 5 estados. Todos os Parceiros são donos do código-fonte e pagam uma manutenção mensal para um responsável desenvolver/implementar/alterar quando há necessidade. Ao longo desse tempo tivemos alguns problemas, mas nada que inviabilizasse o projeto, o custo é bem interessante e o melhor, conseguimos redirecionar nosso tempo para dedicarmos a outras finalidades. Acho bastante interessante a ideia de criar uma parceria para o “retaguardaâ€, um pouco diferente da que temos aqui, na qual todos contribuíssem com o desenvolvimento, para que não precisássemos ficar a todo momento “reinventando a rodaâ€, e desta forma estaríamos aptos para concorrermos em pé de igualdade com empresas maiores, ao mesmo tempo que baixamos nossos custos. Vamos amadurecer essa ideia... como bem disse o Gilmer, é uma questão de sobrevivência. Abraços Herberson Gontijo Ponteware Software

Olá Também gostaria de ver as telas. Se for possível enviá-las para mim tb, agradeceria. herberson@ponteware.com.br Herberson Gontijo Ponteware Software Editado por - HERGON on 31/03/2012 13:04:39

Boa tarde Dorneles Veja se ajuda. |0000|005|1|01042012|30042012|EMPRESA TESTE SPED|00000000000000||MG|0000000000000|3106200|||B|1| |0001|0| |0005|EMPRESA TESTE SPED|30120010|AVENIDA DOS ANDRADAS|210|AB|CENTRO|3534452092|3534452785|perfitec@perfitec.com.br| |0100||00000000000|||00000000| ||||0000000000|0000000000||| |0150|000090F|A. GOMES DE ALMEIDA - MADEIRAS - ME|01058|06070765000184||372129304115|3522406||ROD:ITAPEV A RIBEIRAO BCO|||| |0190|KG|KILO| |0190|LT|LITRO| |0190|PC|PECA| |0200|000607|401-PRETO MAB JS|||KG|00|||||18,00| |0200|000609|419-VERMELHO MAB JS|||KG|00|||||18,00| |0200|001882|2935-MMPL MARROM|||KG|00|||||18,00| |0200|002074|ADESIVO AM 150|||LT|00|||||18,00| |0200|002243|ALICE SHANGHAI 2,60X2,90 (COLOR)|||PC|00|63039200||63||18,00| |0200|002249|ALICE JACARD NATURAL 2,60X2,80 (COLOR)|||PC|00|63039200||63||18,00| |0200|002267|ALICE JACARD BRANCO 2,20X2,80 (COLOR)|||PC|00|||||18,00| |0200|002269|ALICE JACARD LILAS 2,20X2,80 (COLOR)|||PC|00|63039200||63||18,00| |0200|002528|(BRA-702) ART.PROJETANTE 500MM-PR-INOX|||PC|07|||55||18,00| |0400|2101|| |0990|19| |C001|0| |C100|0|1|000090F|55|00|1|000003461|33120350567288000663550060000770731080432585|01042012|01042012|907,33|0|0,00||873,60|9|0,00|0,00|0,00|873,60|104,84|1154,80|33,73|0,00|0,00|0,00|0,00|0,00| |C170|001|001882||15,00000|KG|64,50|0,00|0|052|2101|2101|64,50|12,00|7,74|85,13|0,00|2,48||||0,00|0,00|0,00|07|0,00|0,00|||0,00|70|0,00|0,00|||0,00|| |C170|002|001882||60,00000|KG|105,00|0,00|0|052|2101|2101|105,00|12,00|12,60|138,59|0,00|4,03||||0,00|0,00|0,00|07|0,00|0,00|||0,00|70|0,00|0,00|||0,00|| |C170|003|000607||60,00000|KG|87,00|0,00|0|052|2101|2101|87,00|12,00|10,44|114,83|0,00|3,34||||0,00|0,00|0,00|07|0,00|0,00|||0,00|70|0,00|0,00|||0,00|| |C170|004|000609||30,00000|KG|33,00|0,00|0|052|2101|2101|33,00|12,00|3,96|43,75|0,00|1,29||||0,00|0,00|0,00|07|0,00|0,00|||0,00|70|0,00|0,00|||0,00|| |C170|005|002074||60,00000|LT|63,00|0,00|0|052|2101|2101|63,00|12,00|7,56|83,53|0,00|2,46||||0,00|0,00|0,00|07|0,00|0,00|||0,00|70|0,00|0,00|||0,00|| |C170|006|002267||30,00000|PC|24,90|0,00|0|052|2101|2101|24,90|12,00|2,99|33,01|0,00|0,97||||0,00|0,00|0,00|07|0,00|0,00|||0,00|70|0,00|0,00|||0,00|| |C170|007|002269||30,00000|PC|24,00|0,00|0|052|2101|2101|24,00|12,00|2,88|31,82|0,00|0,94||||0,00|0,00|0,00|07|0,00|0,00|||0,00|70|0,00|0,00|||0,00|| |C170|008|002249||60,00000|PC|50,40|0,00|0|052|2101|2101|50,40|12,00|6,05|66,83|0,00|1,97||||0,00|0,00|0,00|07|0,00|0,00|||0,00|70|0,00|0,00|||0,00|| |C170|009|002243||120,00000|PC|94,80|0,00|0|052|2101|2101|94,80|12,00|11,38|125,70|0,00|3,70||||0,00|0,00|0,00|07|0,00|0,00|||0,00|70|0,00|0,00|||0,00|| |C170|010|002528||1,00000|PR|327,00|0,00|0|052|2101|2101|327,00|12,00|39,24|431,61|0,00|12,55||||0,00|0,00|0,00|07|0,00|0,00|||0,00|07|0,00|0,00|||0,00|| |C190|052|2101|12,00|907,33|873,60|104,84|1154,80|33,73|0,00|0,00|| |C990|14| |D001|1| |D990|2| |E001|0| |E100|01042012|30042012| |E110|0,00|0,00|0,00|0,00|104,84|0,00|0,00|0,00|0,00|0,00|0,00|0,00|104,84|0,00| |E990|4| |G001|1| |G990|2| |H001|1| |H990|2| |1001|1| |1990|2| |9001|0| |9900|0000|1| |9900|0001|1| |9900|0005|1| |9900|0100|1| |9900|0150|1| |9900|0190|3| |9900|0200|9| |9900|0400|1| |9900|0990|1| |9900|C001|1| |9900|C100|1| |9900|C170|10| |9900|C190|1| |9900|C990|1| |9900|D001|1| |9900|D990|1| |9900|E001|1| |9900|E100|1| |9900|E110|1| |9900|E990|1| |9900|G001|1| |9900|G990|1| |9900|H001|1| |9900|H990|1| |9900|1001|1| |9900|1990|1| |9900|9001|1| |9900|9900|30| |9900|9990|1| |9900|9999|1| |9990|33| |9999|78| Editado por - HERGON on 16/03/2012 17:32:30

Olá O Vagner tem razão, acabei de importar uma NFe e realmente vem faltando esses dados do primeiro produto ... ou seja, agora essa solução ficou MEIA-BOCA, o cliente terá que conferir com as informações da DANFE. No meu sistema eu coloquei importação pela internet ou pelo arquivo xml (que as vezes o fornecedor não envia). Agora o jeito é INSISTIR que seja enviado o xml e não depender da importação via internet. Herberson Gontijo Ponteware Software

Boa tarde Ontem também não consegui fazer a importação da NFe pelo portal nacional. Pelo que percebi foi modificado as informações abaixo por IMAGENS para dificultar a nossa vida e não conseguirmos importar: EMITENTE: Nome e Inscrição Estadual DESTINATÃRIO: CNPJ, Nome e Inscrição Estadual Eu uso a classe do Gilmer, então para "driblar" esse problema, eu a modifiquei para não salvar os campos acima e na importação eu solicito ao meu cliente que indique o emitente da NFe a partir do cadastro de fornecedor dele. Abraços Herberson Gontijo Ponteware Software

Olá Geraldo, bom dia. Tente assim: oCad[9]:bGotFocus:={|| oCad[9]:HideSel()} Abraço Herberson Gontijo Ponteware Software

Olá Polirep Eu faço assim, veja se ajuda: oCBX := TOleAuto():New("CobreBemX.ContaCorrente") // Monta arquivo de licença oCBX:ArquivoLicenca := cUnidadeSis+"\"+cPastaSis + "\CobreBem\"+Alltrim(aBoleto[nI+2]) // Monta dados da conta corrente oCBX:CodigoAgencia := Alltrim(aBoleto[nI+3]) oCBX:NumeroContaCorrente := Alltrim(aBoleto[nI+4]) oCBX:CodigoCedente := Alltrim(aBoleto[nI+5]) // Nosso Numero oCBX:InicioNossoNumero := "000000001" oCBX:FimNossoNumero := "999999999" oCBX:ProximoNossoNumero := If(lReimprime,Alltrim(Str(Val((cAliasCon)->NOSSONRO)-1),9,0), cNossoNumero) If ! Empty(aBoleto[nI+6]) oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := cUnidadeSis+"\"+cPastaSis + "\CobreBem\"+Alltrim(aBoleto[nI+6]) Endif oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := cUnidadeSis+"\"+cPastaSis + "\CobreBem\"+aBoleto[nI+8]+"\" oCBX:PadroesBoleto:Demonstrativo:=Alltrim(cMsgBol) oCBX:PadroesBoleto:InstrucoesCaixa:=Alltrim(Conf->INSTRUCX) oBoleto := oCBX:DocumentosCobranca:Add() // Monta dados do sacado oBoleto:NomeSacado := (cAliasCon)->NOME oBoleto:CPFSacado := If(" "$(cAliasCli)->CPF, (cAliasCli)->CNPJ, (cAliasCli)->CPF) If (cAliasCli)->ENDCOR="S" oBoleto:EnderecoSacado := Alltrim((cAliasCli)->TIPOC)+" "+Alltrim((cAliasCli)->ENDEC) +" "+; Alltrim((cAliasCli)->NUMEROC)+" "+Alltrim((cAliasCli)->COMPLC) oBoleto:BairroSacado := Alltrim((cAliasCli)->BAIRROC) oBoleto:CidadeSacado := Alltrim((cAliasCli)->CIDADEC) oBoleto:EstadoSacado := (cAliasCli)->UFC oBoleto:CepSacado := (cAliasCli)->CEPC Else oBoleto:EnderecoSacado := Alltrim((cAliasCli)->TIPO)+" "+Alltrim((cAliasCli)->END) +" "+; Alltrim((cAliasCli)->NUMERO)+" "+Alltrim((cAliasCli)->COMPL) oBoleto:BairroSacado := Alltrim((cAliasCli)->BAIRRO) oBoleto:CidadeSacado := Alltrim((cAliasCli)->CIDADE) oBoleto:EstadoSacado := (cAliasCli)->UF oBoleto:CepSacado := (cAliasCli)->CEP Endif // Monta dados do documento de cobrança oBoleto:DataVencimento := dNovoVenc oBoleto:NumeroDocumento := (cAliasCon)->NROCON oBoleto:ValorDocumento := nNovoValor oBoleto:ValorjurosdiaAtraso := ((nNovoValor * Val(Subs(Conf->TXMULTA,1,5)) /100)/30) oBoleto:ValorMultaAtraso := (nNovoValor * Val(Subs(Conf->TXMULTA,6,5)) /100) If lPreviewLocal oCBX:ImprimeBoletos() Else oCBX:ImprimeBoletosSemPreview() Endif // Repassando Dados fLockRec(2,cAliasCon) If ! lReimprime (cAliasCon)->NOSSOBCO:=oBoleto:NossoNumero (cAliasCon)->CONTA :=Alltrim(aBoleto[nI+4]) (cAliasCon)->NOSSONRO:=Strzero(Val(cNossoNumero)+1,9,0) MemoWrit(cArqNossoNumero, Strzero( Val(cNossoNumero)+2,9,0) ) Endif If dNovoVenc <> (cAliasCon)->VENC .or. nNovoValor <> (cAliasCon)->VALOR (cAliasCon)->VENCANT := (cAliasCon)->VENC (cAliasCon)->VALORANT := (cAliasCon)->VALOR (cAliasCon)->VENC := dNovoVenc (cAliasCon)->VALOR := nNovoValor Endif (cAliasCon)->MSGBOL1 := Subs(cMsgBol,1,200) (cAliasCon)->MSGBOL2 := Subs(cMsgBol,201) (cAliasCon)->ARQMSG := cArqMsg (cAliasCon)->(DbCommit()) ; (cAliasCon)->(DbUnlock()) Abraço Herberson Gontijo Ponteware Software

Rio de Janeiro Herberson Gontijo Ponteware Software

rsrsrsrsrsrs Dizem que santo de casa não faz milagre... Não sou santo e muito menos sei fazer milagre... conheço um pouco de fivewin, e no que se refere a paciência, terei... mas que Deus a aumente, assim como o meu tempo, que anda bem curtinho ultimamente. E no final tudo acaba dando certo. Herberson Gontijo

Olá Luiz Fernando Tem razão... então vou editá-lo... Herberson Gontijo

Olá Com certeza teremos mais uma programadora no nosso fórum. E daqui a pouco tempo ela é que estará nos ajudando Abraço a todos e beijos apenas para minha amada ESPOSA. Herberson Gontijo Editado por - HERGON on 05/12/2011 17:13:14

Olá Eu sou a favor da tradição, mas se o próprio Vagner não vai poder ir, perde a graça. Sugiro que encontremos um local mais perto do hotel, o importante é ter o pré-encontro. Herberson Gontijo

Olá A maioria dos meus clientes utilizam com série 0 e nunca tiveram problemas. Herberson Gontijo Ponteware Software

Olá Acho que era isso que estava faltando. Ver na prática a solução WEB e conhecer o potencial. APOIADÃSSIMA e excelente mudança. Herberson Gontijo Ponteware Software