Ir para conteúdo
  • Cadastre-se

Pesquisar na Comunidade

Showing results for tags 'Bauru'.

  • Search By Tags

    Digite tags separadas por vírgulas
  • Search By Author

Tipo de Conteúdo


Fóruns

  • Fórum Aberto - ACBr
    • Notícias do ACBr
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrDFe
    • Dúvidas sobre TEF
    • Dúvidas sobre PIX
    • ACBrMonitor PLUS
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
  • ACBr Pro
    • Dúvidas gerais
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • Boteco do ACBr
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Banco de Dados
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categorias

  • ACBr Pro
    • ACBrLib - PRO
    • ACBrMonitorPLUS - PRO
    • Utilitários - PRO
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
  • Download Livre
    • ACBrLib - DEMO
    • ACBrMonitorPLUS - DEMO
    • Demos / Testes / Utilitários
    • Apresentações - Palestras

Calendários

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Calendário da Comunidade
  • ACBr Papo Pro
  • Feriados Nacionais

Find results in...

Find results that contain...


Data de Criação

  • Início

    End


Data de Atualização

  • Início

    End


Filter by number of...

Data de Registro

  • Início

    End


Grupo


Website URL

Encontrado 2 registros

  1. Fala pessoal. Sou novo no ramo de NFSe e até agora não desenvolvi nenhuma Nota Fiscal Eletronica em uma prefeitura que não esteja no Projeto ACBR. Essa semana iniciei Londrina, e os usuários já estão criados, e tudo certo. estou recebendo sempre a mensagem: Processo Geral - Usuário não emissor de nota eletrônica Processo Geral - Falha na autenticação, verifique suas credenciais. Esse código é o envio da nota através do XML, gostaria de saber se estou fazendo da maneira certa. var RPS : TElementoRPS; ws: ModuloEmissorNFSePortType; descricaoRps: tcDescricaoRps; retornoNota: tcRetornoNota; DescricaoErros: tcListaErrosAlertas; I: Integer; dia,mes,ano : word; begin try RPS := TLeitorGenerico(TNFPSe(FNFPSeRef).Leitor).lote.listaRPS.item(indice); descricaoRps := tcDescricaoRps.Create; DescricaoErros := tcListaErrosAlertas.Create(); if TUtil.iif(IniOptions.Ambiente = 1, True, False) then begin ws := getModuloEmissorNFSePortType(True, 'http://testeiss.londrina.pr.gov.br/ws/v1_01/sigiss_ws.php?wsdl', frmMenu.HTTPRIO1); descricaoRps.ccm := 948314; descricaoRps.cpf := '22853201830'; descricaoRps.senha := '**********'; end else begin ws := getModuloEmissorNFSePortType(True, 'https://iss.londrina.pr.gov.br/ws/v1_01/sigiss_ws.php?wsdl', frmMenu.HTTPRIO1); descricaoRps.ccm := 948314; descricaoRps.cpf := '10280162634'; descricaoRps.senha := ''**********';'; end; descricaoRps.cnpj := Session.Filial.getCnpj; if (RPS.Servico.Valores.IssRetido <> 0.00) then descricaoRps.situacao := 'tt' // tributado no tomador else descricaoRps.situacao := 'tp'; // tributado no prestador //cod_pais_prestacao_servico := '1082'; descricaoRps.servico := StrToInt(RPS.Fiscal.ItemListaServico); descricaoRps.aliquota := RPS.Servico.Valores.Aliquota; if StrToFloat(descricaoRps.aliquota)=0 then descricaoRps.aliquota := '0,00' else descricaoRps.aliquota := descricaoRps.aliquota+',00'; descricaoRps.cod_municipio_prestacao_servico := IntToStr(ord(Session.Filial.getEndereco.CodigoMunicipio)); descricaoRps.cod_municipio_incidencia := RPS.Fiscal.CodIBGEMunicipioIncidencia; // ****************************** Início Dados Tomador ******************************** // // Verifica o tipo de tomador if (RPS.Tomador.TipoPessoa = pesFisica) then descricaoRps.tomador_tipo := 2 // 2- Pessoa Física else if (descricaoRps.cod_municipio_prestacao_servico = descricaoRps.tomador_cod_cidade) then descricaoRps.tomador_tipo := 3 // 3- Pessoa Jurídica do Município do Prestador else if (descricaoRps.cod_municipio_prestacao_servico <> descricaoRps.tomador_cod_cidade) then descricaoRps.tomador_tipo := 4 // 4- Pessoa Jurídica de Fora else raise Exception.Create('Tipo do Tomador inexistente!!!'); if (descricaoRps.tomador_tipo<>1) and (descricaoRps.tomador_tipo<>5) then begin descricaoRps.tomador_cnpj := RPS.Tomador.Documento; descricaoRps.tomador_razao := RPS.Tomador.RazaoSocial; descricaoRps.tomador_endereco := RPS.Tomador.Endereco.Logradouro; descricaoRps.tomador_numero := RPS.Tomador.Endereco.Numero; descricaoRps.tomador_CEP := RPS.Tomador.Endereco.CEP; descricaoRps.tomador_cod_cidade := RPS.Tomador.Endereco.CodigoMunicipio; descricaoRps.tomador_bairro := RPS.Tomador.Endereco.Bairro; if (descricaoRps.tomador_tipo<>1) then descricaoRps.tomador_complemento := ''; end; descricaoRps.tomador_im := IntToStr(descricaoRps.ccm); // ****************************** Fim Dados Tomador ************************************ // // Verifica se o código de incidência do serviço é diferente do município do prestador. if (descricaoRps.cod_municipio_incidencia <> descricaoRps.cod_municipio_prestacao_servico) then begin descricaoRps.situacao := 'nt'; descricaoRps.retencao_iss := FormataDinheiro(FloatToStr(RPS.Servico.Valores.Inss.AsCurrency)); end else //descricaoRps.retencao_iss := '0,00'; //NAO PREENCHER COM NENHUM VALOR //Dados e Impostos RPS descricaoRps.valor := FormataDinheiro(FloatToStr(RPS.Servico.Valores.Servico)); descricaoRps.base := FormataDinheiro(FloatToStr(RPS.Servico.Valores.BaseDeCalculo)); if RPS.Servico.Valores.Ir.AsFloat>0 then descricaoRps.ir := FormataDinheiro(FloatToStr(RPS.Servico.Valores.Ir.AsFloat)); if RPS.Servico.Valores.Pis.AsFloat>0 then descricaoRps.pis := FormataDinheiro(FloatToStr(RPS.Servico.Valores.Pis.AsFloat)); if RPS.Servico.Valores.Cofins.AsFloat>0 then descricaoRps.cofins := FormataDinheiro(FloatToStr(RPS.Servico.Valores.Cofins.AsFloat)); if RPS.Servico.Valores.Csll.AsFloat>0 then descricaoRps.csll := FormataDinheiro(FloatToStr(RPS.Servico.Valores.Csll.AsFloat)); if RPS.Servico.Valores.Inss.AsFloat>0 then descricaoRps.inss := FormataDinheiro(FloatToStr(RPS.Servico.Valores.Inss.AsFloat)); descricaoRps.descricaoNF := RPS.Servico.Discriminacao; descricaoRps.rps_num := StrToInt(RPS.Numero); descricaoRps.rps_serie := RPS.Serie; DecodeDate(now,ano,mes,dia); descricaoRps.rps_dia := dia; descricaoRps.rps_mes := mes; descricaoRps.rps_ano := ano; retornoNota := tcRetornoNota.Create; ws.GerarNota(descricaoRps, retornoNota, DescricaoErros); if retornoNota.Resultado=1 then begin with retornoNota do begin TfrmNFSeEnvio(Pai).dolog('Auth: '+autenticidade,tmSucesso); TfrmNFSeEnvio(Pai).doLog('Nota: '+IntToStr(Nota),tmSucesso); TfrmNFSeEnvio(Pai).dolog('Link para visualização: '+LinkImpressao,tmSucesso); end; end else begin for I:= 0 to Length(DescricaoErros)-1 do with DescricaoErros[I] do begin TfrmNFSeEnvio(Pai).dolog(ID+'-'+DescricaoProcesso+' - '+DescricaoErro,tmVermelho); end; end; { if ((Length(DescricaoErros) > 0) and (retornoNota.Nota = 0)) then begin for I := 0 to Length(DescricaoErros) - 1 do begin with DescricaoErros[I] do begin frmNFSeEnvio.doLog(IntToStr(id) + ' - ' + DescricaoProcesso + ': ' + DescricaoErro, tmErro); end; end; end else begin frmNFSeEnvio.doLog(retornoNota.Resultado, tmSucesso); frmNFSeEnvio.doLog(retornoNota.Nota, tmSucesso); frmNFSeEnvio.doLog(retornoNota.autenticidade, tmSucesso); frmNFSeEnvio.doLog(retornoNota.LinkImpressao, tmSucesso); end; } except on e: Exception do raise Exception.Create('Erro ao enviar da nota fiscal.' + sLineBreak + e.Message); end; end; Alguém pode me auxiliar no codigo acima?? agradeço.
  2. R E S O L V I D O . Obrigado. !. Estou procurando algum programador em Bauru (SP) , para desenvolver / ou continuar dando assistência a um programa já desenvolvido (em Delphi 7 / firebird 2.5 / ACBR ) , para uma indústria de massas alimentícias, ERP com as seguintes características : - Cadastro de clientes e produtos . Nota : Aproximadamente 1200 clientes, sendo que cada um tem um preço diferenciado (isto é, uma tabela para cada um dos clientes - mas a quantidade de produtos é pequena, de 15 a 20 produtos. - Emissão de NF-e , cancelamentos, consultas, relatórios, etc. Mais algumas funções para controle de estoque em caminhões que viajam para vender, acertos de contas semanais, etc...; caso haja algum interessado poderemos entrar em mais detalhes. Entrar em contato pelo e-mail : [email protected]
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.