-
Posts
270 -
Joined
-
Last visited
-
Days Won
9
Posts posted by HERGON
-
-
Boa tarde
Alguém já teria esta nova tabela NCM em DBF??
Herberson Gontijo
-
-
Para ser mais preciso: 6.270.464 bytes
-
Bom dia
Meu sistema está com 6.124 Kb.
-
Bom dia Vitor
Temos um PAF que comunica com o sistema de retaguarda através de arquivos .txt.
Funciona com ECF, SAT e NFCe. Totalmente homologado na POLIMIG e já registrado em alguns estados. Entre em contato.
Herberson Gontijo
Skype: herberson_gontijo
email: herberson@ponteware.com.br
-
Bom dia pessoal
Estou acompanhando o post, apesar de ainda não ter manifestado... Com certeza também participarei.
A data 29/10 é legal. Se quiserem passar para novembro, para mim também não há problema.
Sobre os temas de palestras até agora apresentados, são bem interessantes, apenas acrescentaria falarmos sobre a FiveTouch e se alguém já tiver utilizando, quem sabe apresentar algum aplicativo pronto para termos maior contato com o produto.
Não vamos deixar esfriar este assunto do encontro, senão acaba ficando para última hora e não sair do papel.
Abraços
-
Boa tarde
fnl, tudo, EXATAMENTE TUDO que vc citou foi feito no encontro de BH/MG, elegemos o estado/cidade, quem o organizaria, data (mês de preferência) e os assuntos seriam debatidos no decorrer do ano para o próximo evento, assim como hotel e palestrantes... o que aconteceu? FUROU. Porque? Porque todos ficaram a espera de um milagre e que tudo fosse feito a gosto e hora sem que ninguém mexesse uma palha... final da estória, estamos sem realizar o evento até hoje.
MEXAM-SE, ou não existirão eventos futuros.
Herberson Gontijo
-
Boa tarde
No ano passado eu me dispus a organizar o evento em BH/MG, nos mesmos moldes do anterior que foi realizado no SESC... Perdi meu tempo fazendo cotações, pré contratos com o SESC e empresas para buffet e etc. O único trabalho que os participantes interessados teriam era fazer uma pré-inscrição para levantarmos o número de pessoas que participariam e assim termos como contratar os serviços. Depois, obviamente viria a parte onde levantaríamos o conteúdo programático do evento.
Para resumir, TODOS estão a favor do evento, querem que seja realizado mas não contribuem com NADA, nem mesmo com uma simples pré-inscrição.
Estou totalmente a favor da realização do evento, desde que bem preparado e que exista um conteúdo elaborado para usufruirmos não só da companhia dos participantes, mas também adquirirmos conhecimento e quem sabe promovermos parcerias. Se for apenas uma reunião para tomarmos cervejas numa padaira/bar, não contem comigo.
Herberson Gontijo
-
Bom dia
Na função Atu_Est() substitua:
aLst := {}
por
aSize(aLst, 0)
E depois do xBrowse coloque
oEst:SetArray(aLst)
Herberson Gontijo
-
Edutraini,
A Cobrebem não desenvolveu (apesar de prometido) a geração do boleto em PDF. A Dll está parada a muito tempo, não está tendo atualizações e sempre que questionamos o suporte deles falam que não tem previsão... O que tudo indica é que eles descontinuaram o produto, mas continuam vendendo licenças.
Uma alternativa que você tem é, em vez de mandar o boleto via PDF enviá-lo em HTML, aqui mesmo no fórum e no manual tem exemplos de como fazer.
Att.
Herberson Gontijo
-
Boa tarde Miragerr
Se seu objetivo é cancelamento de NF-e, eu fiz assim, talvez te ajude:
nDias:= Date()-Ctod(Subs(CabNf->DTRET,9,2)+"/"+Subs(CabNf->DTRET,6,2)+"/"+Subs(CabNf->DTRET,1,4)) cHora:= Subs(CabNf->DTRET,12,8) If nDias>1 .or. (nDias=1 .and. Secs(Elaptime(cHora,"23:59:59"))+Secs(Elaptime("00:00:00",Time()))>86400) If !MsgYesNo("Nota fiscal fora do prazo legal para cancelamento."+CRLF+; "Se deseja realmente cancelar esta NF, é necessário primeiro solicitar o cancelamento EXTEMPORÂNEO pelo"+CRLF+; "site da Secretaria da Fazenda (SEFAZ) do seu estado."+CRLF+; "Caso já tenha solicitado o cancelamento extemporâneo, deseja continuar o cancelamento?",; "Prazo Para Cancelamento Terminado") Return .t. Endif Endif
Herberson Gontijo
-
Boa tarde
Eu uso assim:
If !Empty(Alltrim(cNfeRef)) oNFe:setvalue("ide", "refNFe", cNfeREf ) oNFe:setvalue("ide", "cUf", Subs(cNfeREf,1,2) ) Endif
Herberson Gontijo
Ponteware Software
-
Bom dia
Obrigado a todos que responderam o post, especialmente ao JoãoSolution que me enviou a classe por email.
Estudando a classe, consegui chegar no resultado desejado mesmo sem utilizá-la... Vamos à solução do problema:
Quando utilizava o comando
aFilesInZip:=HB_GetFilesInZip(cArqZip)
o retorno é uma array unidimensional com os nomes dos arquivos zipados contidos no arquivo .zip
Se utilizarmos o mesmo comando passando .t. como segundo parâmetro, o retorno será uma array multi com todos os dados dos arquivos zipados contidos no arquivo .zip, inclusive o tamanho real, que era o que eu precisava. Exemplo:
aFilesInZip:=HB_GetFilesInZip(cArqZip, .t.)
Solução perfeita para o que eu queria, mas se não fosse a classe que o João enviou não saberia.... Por isso, meu MUITO OBRIGADO.
Herberson Gontijo
Ponteware Software Ltda.
-
Boa tarde
Obrigado JoãoSolution e Kapiaba por responder.
Olhei no link que o Kapiaba postou mas não achei nada que pudesse me retornar o tamanho dos arquivos dentro do arquivo zipado, já a rotina do JoaoSolution está acusando a falta das funções: DetalheLog() e SaveZipLog(), se puder me enviar eu testo aqui e dou o retorno.
Obrigado
Herberson Gontijo
-
Bom dia
Utilizo:
- HB_ZipFile() para compactar ;
- HB_GetFilesInZip() para listar arquivos que estão dentro do zip. (cria uma array)
Existe algum comando que me retorne os arquivos e seus respectivos tamanhos que estão em um arquivo ZIP (tamanho real do arquivo, não compactado) ?
Alguém teria uma lista completa dos comandos?
Agradeço antecipadamente.
Herberson Gontijo
Ponteware Informática
-
Qto a exterior veja que tem um IF testando isso, já NFCe não sei, ja que ainda não fiz nada nesta área.
Herberson Gontijo
-
Crisvam, não sei se é o que você precisa, mas se utiliza a classe do Gilmer + Flexdocs, deve ser isso, espero que ajude:
// Modificação nos dados do XML a partir de 01/05/2011 obrigado pelo SEFAZ para ambiente de HOMOLOGAÇÃOIf Val(cTpAmbiente)=1 // ProducaocDestNome := If(!Empty((cAliasCliFor)->RAZAO),(cAliasCliFor)->RAZAO,(cAliasCliFor)->NOME )cDestCnpjCpf:= If(lPosIcm,(cAliasCliFor)->CNPJ, (cAliasCliFor)->CPF)cDestIe := (cAliasCliFor)->IESTElse // HomologaçãocDestNome := "NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL"cDestCnpjCpf:= If(lPosIcm,(cAliasCliFor)->CNPJ, (cAliasCliFor)->CPF)cDestIe := (cAliasCliFor)->IESTEndifIf cUfCli <> "EX" // Só passar CNPF se não for importação/exportação.If lPosIcm // .or. Val(cTpAmbiente)=2oNFe:SetValue("dest" , "CNPJ" , R_CnpjLienar(cDestCnpjCpf)) // CNPJElseoNFe:SetValue("dest" , "CPF" , R_CpfLienar(cDestCnpjCpf) ) // CPFEndifElseoNFe:SetValue("dest" , "CNPJ" , "") // CNPJEndifoNFe:SetValue("dest" , "xNome" , cDestNome )// Razão SocialoNFe:SetValue("dest" , "xFant" , " " ) // Nome FabtasiaoNFe:SetValue("dest" , "xLgr" , Alltrim((cAliasCliFor)->TIPO)+" "+Alltrim((cAliasCliFor)->END) ) // EndereçooNFe:SetValue("dest" , "nro" , (cAliasCliFor)->NUMERO ) // Numero do EndereçooNFe:SetValue("dest" , "xCpl" , (cAliasCliFor)->COMPL ) // Complemento do EndereçooNFe:SetValue("dest" , "xBairro" , (cAliasCliFor)->BAIRRO ) // BairrooNFe:SetValue("dest" , "cMun" , (cAliasCliFor)->CODCID ) // Código do IBGE do MunicipiooNFe:SetValue("dest" , "xMun" , (cAliasCliFor)->CIDADE ) // MunicipiooNFe:SetValue("dest" , "UF" , (cAliasCliFor)->UF ) // EstadooNFe:SetValue("dest" , "CEP" , ClearChar( (cAliasCliFor)->CEP, {"-"}) ) // CEPoNFe:SetValue("dest" , "cPais" , If(Empty((cAliasCliFor)->CODPAIS), "1058", (cAliasCliFor)->CODPAIS))// RetCodPaisIBGE()) //Default := Brasil // Código do IBGE do PaisoNFe:SetValue("dest" , "xPais" , cNomePais) // PaisoNFe:SetValue("dest" , "fone" , ClearChar((cAliasCliFor)->FONE ,{"-","(",")"," ","."}) ) // TelefoneoNFe:SetValue("dest" , "indIEDest", If("ISENTO" $ cDestIe .or. Empty(Alltrim(cDestIe)), "2","1") )If ! ( "ISENTO" $ cDestIe .or. Empty(Alltrim(cDestIe)) )oNFe:SetValue("dest" , "IE" , ClearChar(cDestIe ,{".","-"} ) ) // Inscrição EstadualEndifoNFe:SetValue("dest" , "ISUF" , cSuframa ) // Inscrição SuframaoNFe:SetValue("dest" , "email" , (cAliasCliFor)->EMAIL ) // Email -
Obrigado pelas respostas, João e ReneuMg
João, os link's eu já havia pesquisado, mas não resolveram.
Tentei a dica do Reneu mas deu o seguinte erro:
Descrição do erro: Error cobrebemx.contacorrente/3 DISP_E_MEMBERNOTFOUND: CALCULARDADOSBOLETOSChamado por: => TOLEAUTO:CALCULARDADOSBOLETOS(0)Att.Herberson GontijoPonteware Informática -
Boa tarde pessoal
Estou com um problema para gerar o NOSSO NUMERO no arquivo de remessa pelo CobreBemX, mas não utilizo a opção
oCbx:InicioNossoNumero := "000000001"oCbx:FimNossoNumero := "999999999"oCbx:ProximoNossoNumero := Strzero(Val(cProximoNro),9,0)porque meus cleintes geram o boleto e imprimem enviando junto com a NF e apenas no final do dia gera o arquivo remessa. Se utilizasse da forma acima na geração do arquivo remessa o nosso numero seria outro, então eu tenho que passa-lo exatamente como foi impresso no boleto gerado anteriormente, da seguinte forma:oBoleto:NossoNumero := cNossoNumeroSó que as vezes a geração do boleto é junto com o arquivo remessa, nestes casos ainda não tenho o nosso numero gerado e gostaria que a dll calculasse o dígito verificador para que eu possa passá-lo corretamente. Em contato com o suporte da CobreBemX foi passado que eu deveria fazer assim:Prezado(a) Sr. Herberson Gontijo, Quanto a sua dúvida, por favor, leia o valor da propriedade "NossoNumero" do objeto 'IDocumentosCobranca', após a chamada de um dos métodos a seguir: "CalcularDadosBoletos"; "EnviaBoletosPorEmail"; "ImprimeBoletos"; "ImprimeBoletosSemPreview"; "GravaArquivoRemessa"; "GeraHTMLBoleto"; Segue o exemplo abaixo: CobreBemX.ImprimeBoletos; ShowMessage(Boleto.NossoNumero);
Fiz o que orientaram e não surtiu resultado.
Alguém saberia como resolver esse problema?
Att.
Herberson Gontijo
Ponteware Informática
-
Bom dia Erciley
Possível é, mas não é o maior problema, todo o custo é negociado em relação ao número de participantes, happy houer, coffee break, churrasco, etc. Isso para não falar da parte técnica, como apresentações, projetor, sistema de som, e por ai vai... depois temos a parte do material didático, ou seja, sem um número mínimo para trabalhar não há organização possível.
Mas valeu pela tentativa, eu já entreguei... quem sabe em cima da hora no final do ano fazemos um "junta-junta" de abnegados e vamos tomar umas brejas e conversar em um buteco em SP?
Herberson Gontijo
Ponteware Informática Ltda.
-
Bom dia pessoal
Agradeço a todos que responderam o tópico, posicionando suas opiniões e sugestões e principalmente aos que fizeram a "pré-inscrição". Opiniões diversas além de saudável é democrático, expressá-las, defender seu ponto de vista com diplomacia é prova de apoio ao evento e vontade que nossa comunidade FW cresça.
Conforme dito anteriormente, a viabilidade do "encontro/congresso" depende de no mínimo 50 participantes para que tenhamos um custo acessível e, até o momento temos apenas 23 participantes (27 contando com acompanhantes) pré-inscritos. Diante do número insuficiente de interessados, comunico agora que estou encerrando minha participação na organização do evento.
PS: Narlem, minha intenção não é unanimidade ou agradar a todos... temos e podemos fazer um grande evento, bem organizado e proveitoso, mas para isso é necessário vontade e animação de quem participará. Não estou vendo isso neste ano. Se alguém se habilitar na organização, ajudo no que for possível.
Herberson Gontijo
Ponteware Informática Ltda.
-
Boa tarde senhores,
Gostaria apenas de esclarecer alguns pontos:
- O encontro não será lazer. A proposta é fazer um encontro parecido com o de 2010, com várias palestras importantes e multiplicação do conhecimento, com temas importantes para a maioria, que impactam diretamente no nosso dia a dia. Óbvio que teremos a parte de confraternização, com o happy houer da chegada, no primeiro dia e o churrasco, no segundo dia.
- Por enquanto não há como definir as palestras, será feito em momento oportuno, por sugestão e votação, vencendo a maioria, mas podem ter certeza que compensará o investimento.
- Em relação a inscrições fora do prazo, minha posição é que não há problema da MINHA PARTE, apesar de dificultar (e muito) qualquer tipo de organização, mas consigo lidar com isso... Mas é importante frisar que, não haverá garantias que consigamos chalés para quem não fizer dentro do prazo, então ficar esperando para ver com fica pode não ser uma boa ideia para quem REALMENTE quer participar.
Sem querer fazer qualquer tipo de pressão/imposição, mas volto a falar, até sexta-feira (16/05/2014), data limite para eu reunir com o SESC para fecharmos o contrato. Após esta data fica encerrada minha tentativa de organização do evento.
Herberson Gontijo
Ponteware Informática Ltda.
-
Olá
Nada contra inscrições após a data, mesmo porque imprevistos acontecem, mas não posso assinar um contrato com SESC, com buffet etc sem um número mínimo de participantes que possam arcar com os custos do evento.
Outro detalhe importante é, o SESC é muito solicitado para eventos e se não contratarmos já não haverá disponibilidade para a data que desejamos.
Herberson Gontijo
Ponteware Informática Ltda.
-
Olá pessoalNeste ritmo de "pré-inscrições" não vamos conseguir fazer o encontro. Estava marcando reunião amanhã com o SESC para discutirmos o contrato, mas com esse número de participantes não rola. Vou remarcar para outra sexta-feira, dia 16/05/2014, mas se tivermos menos que 50 pré-inscritos não dá segurança e encerro minha tentativa de organização neste ano.Chalés Nome-----------------------------------------------------------------------------------------------------------------01 01 - Herberson Carlos Gontijo (Hergon) - Belo Horizonte / MG - (01 chalé - 2 pessoas)02 - Claudia M. R. Glória Gontijo (Cacau7) - Belo Horizonte / MG (Acompanhante)02 03 - Ana Possani (AnaCatacombs) - Cianorte / PR (01 Chalé - 1 Pessoa)03 04 - João Bosco de Paulo - Contagem / MG (01 chalé )04 05 - Cleber Luiz Souza - Contagem / MG05 06 - Nárlem - Beloarrow-10x10.png Horizonte / MG - ( 01 chalé - 1 pessoa )06 07 - Vander Lúcio Nunes (VLNunes) - João Monlevade / MG07 08 - Gilmer - Sorocaba / SP08 09 - Evandro G. de Paula - Curvelo / MG - ( 01 chalé - 1 pessoa )09 10 - Cleber Ribeiro Conde - Caratinga / MG10 11 - Vailton Renato - Sorocaba / SP11 12 - José Manoel da Silva - São Paulo / SP12 13 - Rodrigo Portugual - São Paulo / SP13 14 - Roberto Júnior - São Paulo / SP14 15 - Wesley Rodrigues - São Paulo / SP15 16 - Luiz Roberto SERVULO Diadema/SP16 17 - Leonardo Guimarães(LHSISTEMAS) Vitória-ES18 - Helder Angelo Fiorotti(LHSISTEMAS) Vitória-ES17 19 - Marcio Eduardo Teixeira - Visconde do Rio Branco - MG18 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 - TiaoFw20 23 - Alexandre Pereira da Silva - B. Horizonte / MG - alex200221 24 - André Emerenciano dos Santos - Belo Horizonte / MG - (01 chalé - 2 pessoas)25 - Eliane Correia da Silva (Acompanhante)Herberson GontijoPonteware Informática Ltda.
Ler arquivo de retorno da CEF pelo ACBR
in Programação
Posted
Bom dia
Não estou conseguindo ler o arquivo de retorno da CEF utilizando o ACBr. Com a mesma rotina consigo ler o retorno do Bradesco normalmente.
Alguém que use o ACBr já passou por esse problema? Tem alguma dica?
Antecipadamente agradeço
Herberson Gontijo