-
Total de ítens
9 -
Registro em
-
Última visita
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
bri softwares's Achievements
-
Codigo de tributacao do municipio invalido provedor Elv2
bri softwares replied to bri softwares's tópico in ACBrNFSe
obrigado.... tomarei esse cuidado da próxima vez -
Codigo de tributacao do municipio invalido provedor Elv2
um tópico no fórum postou bri softwares ACBrNFSe
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; -
Erro na abertura do Delphi2007 apos instalação do Acbr
bri softwares replied to bri softwares's tópico in ACBrNFSe
obrigado td resolvido -
Erro na abertura do Delphi2007 apos instalação do Acbr
um tópico no fórum postou bri softwares ACBrNFSe
Erro na abertura do Delphi2007 apos instalação do Acbr. Precisa de fazer algum ajuste no instalador ? -
ok.. vlw
-
-
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???