Italo Giurizzato Junior

Bom dia Maiko, Qual é o motivo de usar o OpenSSL? Caso haja necessidade do uso do OpenSSL, temos que realizar uma alteração no arquivo ACBr.inc que encontra-se na pasta ...\fontes\ACBrComum. Padrão: //{$DEFINE ACBrNFeOpenSSL} // Para Usar OpenSSL no ACBrNFe em Delphi, descomente essa linha //{$DEFINE ACBrCTeOpenSSL} //{$DEFINE CLX} // Para usar CLX no Windows / Delphi descomente essa linha Alterado para usar o OpenSSL: //{$DEFINE ACBrNFeOpenSSL} // Para Usar OpenSSL no ACBrNFe em Delphi, descomente essa linha {$DEFINE ACBrCTeOpenSSL} //{$DEFINE CLX} // Para usar CLX no Windows / Delphi descomente essa linha Quanto as tabelas e respectivos campos que você deve criar no banco de dados, uma dica é o proprio MOC - Manual de Orientação do Contribuinte disponibilizado junto com o programa exemplo (Manual_CTe_v1.04b.PDF). Outra é através do fragmento de código Alimentarcomponente.txt disponibilizado junto com o programa exemplo, nele você encontra os acessos ao banco de dados "Select ...." veja este exemplo: DM_CTA.PessoaFJ.Close; DM_CTA.PessoaFJ.SQL.Clear; DM_CTA.PessoaFJ.SQL.Add('Select * From Sis_PessoaFJ'); DM_CTA.PessoaFJ.SQL.Add('Where CGC = :xCGC'); DM_CTA.PessoaFJ.Params[0].AsString := DM_CNT.Conhec2Remetente.AsString; DM_CTA.PessoaFJ.Active := True; DM_CTA.PessoaFJ.Open; Rem.xNome := DM_CTA.PessoaFJRSocial.AsString; Rem.xFant := DM_CTA.PessoaFJFantasia.AsString; Rem.EnderReme.xLgr := DM_CTA.PessoaFJEndereco.AsString; Rem.EnderReme.nro := DM_CTA.PessoaFJNumero.AsString; Rem.EnderReme.xCpl := DM_CTA.PessoaFJComplemento.AsString; Rem.EnderReme.xBairro := DM_CTA.PessoaFJBairro.AsString; CodigoMunicipio := DM_CTA.PessoaFJCodigoEstado.AsInteger * 100000 + DM_CTA.PessoaFJCodigoMunicipio.AsInteger; Rem.EnderReme.cMun := CodigoMunicipio; Rem.EnderReme.xMun := DM_CTA.PessoaFJCidade.AsString; Rem.EnderReme.CEP := StrToIntDef(DM_CTA.PessoaFJCEP.AsString, 0); Rem.EnderReme.UF := DM_CTA.PessoaFJEstado.AsString; Rem.EnderReme.cPais := DM_CTA.PessoaFJCodigoPais.AsInteger; Rem.EnderReme.xPais := DM_CTA.PessoaFJPais.AsString; if copy(DM_CTA.PessoaFJCGC.AsString,10,4) <> '0000' then begin Rem.CNPJCPF := Copy(DM_CTA.PessoaFJCGC.AsString, 2, 14); IE := DM_CTA.PessoaFJIEstadual.AsString; end else begin Rem.CNPJCPF := Copy(DM_CTA.PessoaFJCGC.AsString, 1, 9) + Copy(DM_CTA.PessoaFJCGC.AsString, 14, 2); IE := 'ISENTO'; end; Rem.IE := IE; Rem.fone := DM_CTA.PessoaFJTelefone.AsString; No exemplo acima estou acessando a tabela Sis_PessoaFJ para ler os dados do Remetente, para alimentar o componente. Rem.xNome := DM_CTA.PessoaFJRSocial.AsString; Note que estou pegando o conteudo do campo RSocial (tabela Sis_PessoaFJ) e atribuindo a propriedade xNome do Remetente. Outra coisa importante é quanto a nova versão 1.04, que devemos habilitar através da diretiva de compilação que tambem encontra-se no arquivo ACBr.inc Padrão: //------------------------------------------------------------------------------ // Definições para o compomente ACBrCTe //------------------------------------------------------------------------------ // Define o Pacote de Liberação / Descomente o pacote a ser utilizado // Atenção não comente ou descomente as duas definições {$DEFINE PL_103} //{$DEFINE PL_104} Alterar para: //------------------------------------------------------------------------------ // Definições para o compomente ACBrCTe //------------------------------------------------------------------------------ // Define o Pacote de Liberação / Descomente o pacote a ser utilizado // Atenção não comente ou descomente as duas definições //{$DEFINE PL_103} {$DEFINE PL_104} Espero ter ajudado.

Boa tarde Jeferson, Já existe um componente ACBrCLe no repositório branches.

Bom dia ncc, Se a placa de um veículo estrangeiro é xxx999, ao informar inclua um ZERO para ficar no formato 3 letras e 4 numeros, por exemplo: Placa do veículo: ABC-432 Informar da seguinte forma: ABC0432, resolva desta forma até que a sefaz disponibilize um novo schema.

Bom dia, Para qual cidade você esta emitindo a NFSe?

Bom dia Janio, Sim, é isso mesmo o prazo passa a ser de 24 horas, contados apartir da data e hora de autorização. Exemplo: se uma NF-e foi autorizada em 29/12/2011 as 09:20, o usuário poderá solicitar o cancelamento da mesma até as 09:20 do dia 30/12/2011. Lembre-se o prazo é de 24 horas e não de 1 dia. Segundo o exemplo após as 09:20 não será mais possível o seu cancelamento. E tem mais apartir de 01/12/2012 o cancelamento deverá ser feito por evento, de uma lida na NT2011.006

Bom dia José, Chegei a realizar testes com a minha aplicação em um Note com o Windows 7 32 bits, rodou 100%. Detalhe, SEFAZ-SP e não MG. Como foi dito esses ultimos mês, devido as alterações nos WebServices por conta da nova versão 1.04 do CT-e o SEFAZ-MG esta muito instavel.

Boa noite José, De uma olhada no portal nacional do CTe em Disponibilidade de Serviços, note que há vários serviços na situação AMARELO.

Boa noite Julian, Poste a imagem com a mensagem de erro.

Boa tarde Kiko, E tem outra: A NT2011.006 contendo as especificações técnicas para a implementação do cancelamento da NF-e como um evento da NF-e de segunda geração. A adoção desse evento será realizado de forma gradual e as Sefaz têm até 01/07/2012 para implementarem esse processo em suas respectivas aplicações de autorização de NF-e. O Web Service de Cancelamento existente será eliminado em 01/12/2012, permanecendo unicamente a possibilidade de cancelamento da NF-e através do Web Service de Registro de Eventos.

Boa tarde, Se possível poste o XML.

Bom dia Wagner, Note que no código do municipio você já esta informando o código da UF no caso 35. Sendo assim, a maneira de alimentar o componente esta correta do jeito que você esta fazendo. Rem.EnderReme.cMun := StrToInt(txtRemeCodCid.Text); Eu já armazeno o código do municipo sem o código da UF ou seja: UF: SP (tabela do IBGE = 35) xMun: Campinas (09502) desta forma tenho que realizar o calculo no momento de alimentar o componente. txtRemeCodUf.Text := '35'; txtRemeCodCid.Text := '09502'; CodigoMunicipio := StrToInt(txtRemeCodUf.Text) * 100000 + StrToInt(txtRemeCodCid.Text); Rem.EnderReme.cMun := CodigoMunicipio;

Boa tarde Wagner, Qual é o conteudo de txtRemeCodCid.Text ? No meu sistema utilizo a formula apresentada no post anterior, pois armazeno no banco de dados o código da UF e do Municipio separados. Agora se você armazena os dois juntos, ai tem que ser do seu jeito.

Bom dia Wagner, Dica: baixe o MOC - Manual de Orientações do Contribuinte, para eventuais consultas. No que diz respeito ao campo Rem.EnderReme.cMun (Página 95 do MOC 1.03 ou Página 106 do MOC 1.04b), temos que o tamanho desse campo é 7. O código do município (tabela do IBGE) tem tamanho 5, portanto falta 2 para completar os 7 e esses 2 digitos refere-se ao código da UF (tabela do IBGE). Exemplo: UF: SP (tabela do IBGE = 35) xMun: ARARAQUARA (tabela do IBGE = 03208) txtRemeCodUf.Text := '35'; txtRemeCodCid.Text := '03208'; CodigoMunicipio := StrToInt(txtRemeCodUf.Text) * 100000 + StrToInt(txtRemeCodCid.Text); Rem.EnderReme.cMun := CodigoMunicipio; Eu sei, o MOC não deixa claro que tem que ser desta forma. Espero ter ajudado.

Boa tarde, Voce deve baixar os fontes da pasta Branches, como Jundiaí utiliza o provedor GINFES, o componente esta preparado para este servidor, portanto vai funcionar.

Bom dia John, O provedor SimplISS foi o primeiro que eu vi que exige que seja informado no xml de envio do lote o CNPJ e senha. Todos os provedores exige CNPJ e senha no caso de emitir a NFSe via site, mas via webservice o normal é a utilização do certificado. Até onde sei no xml de envio do lote do provedor GovBR não há necessidade de informar a senha. Outra coisa, para emitir uma NFSe via webservice há necessidade da empresa (prestador de serviço) possuir o certificado digital e a mesma estar credenciada junto a prefeitura a emitir a NFSe, o que eu não sei te responder é, se existe um credenciamento para emitir via site e outro via webservice.

Bom dia, O componente impõe um limite de 990 notas emitidas pelo remetente para o mesmo destinatário. No DACTE todas elas vão ser impressas, caso seja necessário o DACTE terá 2 ou mais páginas, para que todas as notas informadas constem no DACTE.

Boa noite johnbh3, Favor baixar a atualização e testar novamente.

Bom dia a todos, Esta disponivel no SVN as alterações no componente, acredito que agora ele esta em conformidade com o novo pacote de liberação PL_104b. Esta faltando a publicação do Manual de Integração Contribuinte - DACTE que vai conter todas as informações necessárias e respectivos Lay-out dos DACTE de cada modal, para que possamos realizar as alterações, vamos aguardar. Desejo a todos um Feliz Natal e um Próspero Ano Novo.

Bom dia Josemar, Estude os fragmentos de código disponibilizados juntamente com o programa exemplo, pasta: ...\Exemplos\ACBrCTe Você vai notar que a procedure para envio de Lote é a mesma proposta pelo Janis, e esta funcionando. São fragmentos da minha aplicação que esta rodando em ambiente de produção a mais de 1 ano.

Bom dia, Essa mensagem de erro: Ancestor for 'QRNFSe' not found aparece porque o Delphi abre somente o fonte que contem o erro, se ele depende de um fonte PAI ocorre esse erro, até ai tudo bem. O fonte que ele abre deve ser o ACBrNFSeDANFSeQRRetrato, é nele que contem o erro, qual é a linha deste fonte que ele aponta como errada?

Boa tarde Josemar, Verifique se a sua rotina não esta limpando o conteudo do componente antes de gerar e enviar.

Boa tarde Lucas, Você tem que desinstalar o componente ACBrNFSe. Excluir da pasta ...\Projects\Bpl os arquivos ACBr_NFSe.bpl e ACBr_NFSe.dcp Depois realizar a instalação novamente. Essa Propriedade foi retirada do componente. Lembre-se o componente esta em desenvolvimento, algumas propriedades poderão ser incluidas e outras serem removidas.

Boa noite Wagner, No componente temos a função Enviar() que realiza todas as taferas mensionadas. Estude os fragmentos de códigos contidos na pasta ...\Exemplos\ACBrCTe, eles estão no formato TXT. Espero ter ajudado.

Boa noite a todos, Esta disponivel no SVN algumas alterações que realizei no componente para que ele fique em conformidade com o novo pacote de liberação PL_104b. Hove mais uma alteração na nomenclatura da tag cIATA que agora passa a ter o nome de IdT (modal Aéreo). No modal Rodoviário não ocorreu nenhuma alteração. Há alterações nos modais Aquaviário e Ferroviário, que não tive tempo de realizar no componente. Na pasta ...\Exemplos\ACBrCTe\Delphi\Schemas temos o arquivo PL_CTe_104b.zip que contem os schemas atualizados para esse novo pacote. No arquivo que contem um resumo das alterações consta que teremos um Manual de Orientações do Contribuinte - DACTE, esse manual vai conter todas as orientações necessarias para a montagem do layout do DACTE. Na pasta ...\Exemplos\ACBrCTe temos o Manual de Orientações do Contribuinte - Padrões Técnicos de Comunicação - Versão 1.04b - Dezembro/2011 - Página 3 - Identificação e vigência do Manual temos na útima linha da tabela: Data Final de vigência do PL_CTe_103 - 01/04/2012 Pessoal, não parece mas o tempo é curto, Dezembro já era, Janeiro é o mês da ressaca, Fevereiro é carnaval, não vamos deixar tudo para Março, certo? Um forte abraço a todos.

Boa noite Paulo, Qual é a versão do Quick Report instalado no Delphi ? Caso seja a 4 ou posterior, você deve abrir o arquivo ACBr.inc que encontra-se na pasta ...\ACBrComuns e descomentar a linha que define a diretiva QReport_PDF. A definição dessa diretiva encontra-se no final do arquivo ACBr.inc Espero ter ajudado.