HERGON
-
Posts
270 -
Joined
-
Last visited
-
Days Won
9
Posts posted by HERGON
-
-
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
IX Congresso 2013
in Programação
Posted
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.