HERGON

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

Boa tarde Alguém já teria esta nova tabela NCM em DBF?? Herberson Gontijo

Boa tarde Interessante mais essa opção para pegarmos os dados informando o CNPJ, mas infelizmente não retorna a INSCRIÇÃO ESTADUAL. 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ÇÃO If Val(cTpAmbiente)=1 // Producao cDestNome := If(!Empty((cAliasCliFor)->RAZAO),(cAliasCliFor)->RAZAO,(cAliasCliFor)->NOME ) cDestCnpjCpf:= If(lPosIcm,(cAliasCliFor)->CNPJ, (cAliasCliFor)->CPF) cDestIe := (cAliasCliFor)->IEST Else // Homologação cDestNome := "NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL" cDestCnpjCpf:= If(lPosIcm,(cAliasCliFor)->CNPJ, (cAliasCliFor)->CPF) cDestIe := (cAliasCliFor)->IEST Endif If cUfCli <> "EX" // Só passar CNPF se não for importação/exportação. If lPosIcm // .or. Val(cTpAmbiente)=2 oNFe:SetValue("dest" , "CNPJ" , R_CnpjLienar(cDestCnpjCpf)) // CNPJ Else oNFe:SetValue("dest" , "CPF" , R_CpfLienar(cDestCnpjCpf) ) // CPF Endif Else oNFe:SetValue("dest" , "CNPJ" , "") // CNPJ Endif oNFe:SetValue("dest" , "xNome" , cDestNome )// Razão Social oNFe:SetValue("dest" , "xFant" , " " ) // Nome Fabtasia oNFe:SetValue("dest" , "xLgr" , Alltrim((cAliasCliFor)->TIPO)+" "+Alltrim((cAliasCliFor)->END) ) // Endereço oNFe:SetValue("dest" , "nro" , (cAliasCliFor)->NUMERO ) // Numero do Endereço oNFe:SetValue("dest" , "xCpl" , (cAliasCliFor)->COMPL ) // Complemento do Endereço oNFe:SetValue("dest" , "xBairro" , (cAliasCliFor)->BAIRRO ) // Bairro oNFe:SetValue("dest" , "cMun" , (cAliasCliFor)->CODCID ) // Código do IBGE do Municipio oNFe:SetValue("dest" , "xMun" , (cAliasCliFor)->CIDADE ) // Municipio oNFe:SetValue("dest" , "UF" , (cAliasCliFor)->UF ) // Estado oNFe:SetValue("dest" , "CEP" , ClearChar( (cAliasCliFor)->CEP, {"-"}) ) // CEP oNFe:SetValue("dest" , "cPais" , If(Empty((cAliasCliFor)->CODPAIS), "1058", (cAliasCliFor)->CODPAIS))// RetCodPaisIBGE()) //Default := Brasil // Código do IBGE do Pais oNFe:SetValue("dest" , "xPais" , cNomePais) // Pais oNFe:SetValue("dest" , "fone" , ClearChar((cAliasCliFor)->FONE ,{"-","(",")"," ","."}) ) // Telefone oNFe: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 Estadual Endif oNFe:SetValue("dest" , "ISUF" , cSuframa ) // Inscrição Suframa oNFe: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: CALCULARDADOSBOLETOS Chamado por: => TOLEAUTO:CALCULARDADOSBOLETOS(0) Att. Herberson Gontijo Ponteware 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 := cNossoNumero Só 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á pessoal Neste 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 / MG 05 06 - Nárlem - Beloarrow-10x10.png Horizonte / MG - ( 01 chalé - 1 pessoa ) 06 07 - Vander Lúcio Nunes (VLNunes) - João Monlevade / MG 07 08 - Gilmer - Sorocaba / SP 08 09 - Evandro G. de Paula - Curvelo / MG - ( 01 chalé - 1 pessoa ) 09 10 - Cleber Ribeiro Conde - Caratinga / MG 10 11 - Vailton Renato - Sorocaba / SP 11 12 - José Manoel da Silva - São Paulo / SP 12 13 - Rodrigo Portugual - São Paulo / SP 13 14 - Roberto Júnior - São Paulo / SP 14 15 - Wesley Rodrigues - São Paulo / SP 15 16 - Luiz Roberto SERVULO Diadema/SP 16 17 - Leonardo Guimarães(LHSISTEMAS) Vitória-ES 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 20 23 - Alexandre Pereira da Silva - B. Horizonte / MG - alex2002 21 24 - André Emerenciano dos Santos - Belo Horizonte / MG - (01 chalé - 2 pessoas) 25 - Eliane Correia da Silva (Acompanhante) Herberson Gontijo Ponteware Informática Ltda.