bri softwares

obrigado.... tomarei esse cuidado da próxima vez

Fiz essa configuração para testar a homologação with ACBrNFSe1 do begin NotasFiscais.NumeroLote := '1'; NotasFiscais.Transacao := True; with NotasFiscais.Add.NFSe do begin IdentificacaoRps.Numero := FormatFloat('#########0', StrToInt(NumNFSe)); // Para o provedor ISS.NET em ambiente de Homologação mudar a série para '8' IdentificacaoRps.Serie := 'UNICA'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); IdentificacaoRps.Tipo := trRPS; DataEmissao := Now; (* TnfseNaturezaOperacao = ( no1, no2, no3, no4, no5, no6, no7, no50, no51, no52, no53, no54, no55, no56, no57, no58, no59, no60, no61, no62, no63, no64, no65, no66, no67, no68, no69, no70, no71, no72, no78, no79, no101, no111, no121, no201, no301, no501, no511, no541, no551, no601, no701 ); *) NaturezaOperacao := no1; // NaturezaOperacao := no51; // TnfseRegimeEspecialTributacao = ( retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP ); // RegimeEspecialTributacao := retNenhum; RegimeEspecialTributacao := retNenhum; // TnfseSimNao = ( snSim, snNao ); OptanteSimplesNacional := snSim; // TnfseSimNao = ( snSim, snNao ); IncentivadorCultural := snNao; // TnfseSimNao = ( snSim, snNao ); // snSim = Ambiente de Produção // snNao = Ambiente de Homologação Producao := snNao; // TnfseStatusRPS = ( srNormal, srCancelado ); Status := srNormal; // Somente Os provedores Betha, FISSLex e SimplISS permitem incluir no RPS // a TAG: OutrasInformacoes os demais essa TAG é gerada e preenchida pelo // WebService do provedor. OutrasInformacoes := 'Pagamento a Vista'; // Usado quando o RPS for substituir outro // RpsSubstituido.Numero := FormatFloat('#########0', i); // RpsSubstituido.Serie := 'UNICA'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); /// RpsSubstituido.Tipo := trRPS; Servico.Valores.ValorServicos := 100.00; Servico.Valores.ValorDeducoes := 0.00; Servico.Valores.ValorPis := 0.00; Servico.Valores.ValorCofins := 0.00; Servico.Valores.ValorInss := 0.00; Servico.Valores.ValorIr := 0.00; Servico.Valores.ValorCsll := 0.00; // TnfseSituacaoTributaria = ( stRetencao, stNormal, stSubstituicao ); // stRetencao = snSim // stNormal = snNao // Neste exemplo não temos ISS Retido ( stNormal = Não ) // Logo o valor do ISS Retido é igual a zero. Servico.Valores.IssRetido := stNormal; Servico.Valores.ValorIssRetido := 0.00; Servico.Valores.OutrasRetencoes := 0.00; Servico.Valores.DescontoIncondicionado := 0.00; Servico.Valores.DescontoCondicionado := 0.00; Servico.Valores.BaseCalculo := Servico.Valores.ValorServicos - Servico.Valores.ValorDeducoes - Servico.Valores.DescontoIncondicionado; // No caso do provedor Ginfes devemos informar a aliquota já dividida por 100 // para outros provedores devemos informar por exemplo 3, mas ao fazer o calculo // do valor do ISS devemos dividir por 100 Servico.Valores.Aliquota := 4; // Valor do ISS calculado multiplicando-se a base de calculo pela aliquota ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota / 100; // A função RoundTo5 é usada para arredondar valores, sendo que o segundo // parametro se refere ao numero de casas decimais. // exemplos: RoundTo5(50.532, -2) ==> 50.53 // exemplos: RoundTo5(50.535, -2) ==> 50.54 // exemplos: RoundTo5(50.536, -2) ==> 50.54 Servico.Valores.ValorISS := RoundTo5(ValorISS, -2); Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos - Servico.Valores.ValorPis - Servico.Valores.ValorCofins - Servico.Valores.ValorInss - Servico.Valores.ValorIr - Servico.Valores.ValorCsll - Servico.Valores.OutrasRetencoes - Servico.Valores.ValorIssRetido - Servico.Valores.DescontoIncondicionado - Servico.Valores.DescontoCondicionado; // TnfseResponsavelRetencao = ( ptTomador, rtPrestador ); Servico.ResponsavelRetencao := ptTomador; Servico.ItemListaServico := '14.01'; //Servico.CodigoCnae := '6201500'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo CNAE tem que ser '6511102' // Servico.CodigoCnae := '123'; // Informação Opcional Servico.CodigoTributacaoMunicipio := '3201209'; Servico.Discriminacao := 'discriminacao I;discriminacao II'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo do Municipio tem que ser '999' Servico.CodigoMunicipio := edtCodCidade.Text; // Informar A Exigibilidade ISS para fintelISS [1/2/3/4/5/6/7] Servico.ExigibilidadeISS := exiExigivel; // Informar para Saatri Servico.CodigoPais := 1058; // Brasil Servico.MunicipioIncidencia := StrToIntDef(edtCodCidade.Text, 0); // Somente o provedor SimplISS permite infomar mais de 1 serviço with Servico.ItemServico.Add do begin Descricao := 'SERVICO 1'; Quantidade := 1; ValorUnitario := 15.00; end; Prestador.CNPJ := edtEmitCNPJ.Text; Prestador.InscricaoMunicipal := edtEmitIM.Text; // Para o provedor ISSDigital deve-se informar também: Prestador.Senha := 'senha'; Prestador.FraseSecreta := 'frase secreta'; Prestador.cUF := 33; PrestadorServico.Endereco.CodigoMunicipio := edtCodCidade.Text; PrestadorServico.RazaoSocial := edtEmitRazao.Text; Tomador.IdentificacaoTomador.CpfCnpj := '99999999000191'; Tomador.IdentificacaoTomador.InscricaoMunicipal := '17331600'; Tomador.RazaoSocial := 'INSCRICAO DE TESTE'; Tomador.Endereco.Endereco := 'RUA PRINCIPAL'; Tomador.Endereco.Numero := '100'; Tomador.Endereco.Complemento := 'APTO 11'; Tomador.Endereco.Bairro := 'CENTRO'; Tomador.Endereco.CodigoMunicipio := edtCodCidade.Text; Tomador.Endereco.UF := edtEmitUF.Text; Tomador.Endereco.CodigoPais := 1058; // Brasil Tomador.Endereco.CEP := edtEmitCEP.Text; // Provedor Equiplano é obrigatório o pais e IE Tomador.Endereco.xPais := 'BRASIL'; Tomador.IdentificacaoTomador.InscricaoEstadual := '123456'; Tomador.Contato.Telefone := '1122223333'; Tomador.Contato.Email := '[email protected]'; // Usado quando houver um intermediario na prestação do serviço // IntermediarioServico.RazaoSocial := 'razao'; // IntermediarioServico.CpfCnpj := '00000000000'; // IntermediarioServico.InscricaoMunicipal := '12547478'; // Usado quando o serviço for uma obra // ConstrucaoCivil.CodigoObra := '88888'; // ConstrucaoCivil.Art := '433'; end; end;

obrigado td resolvido

Erro na abertura do Delphi2007 apos instalação do Acbr. Precisa de fazer algum ajuste no instalador ?

ok.. vlw

Juliomar nao sei pode me ajudar mas estou com o seguinte erro abaixo sabe o que poderia ser ?

Estou com o problema que nao estou conseguindo achar nos tópicos... já fiquei a manha inteira fazendo testes... alguém ja passou por isso, segue as telas de configuração do exemplo abaixo.

Obrigado Juliomar td certo agora

A compilação do pacote deu td certo mas na hora de abrir da um erro e o componente aparece desmarcado. alguma modificação é necessária???