joemil

era o ambiente de testes mesmo. em producao funciona normal

fiz uma gambi aqui (temporaria espero hehehe). to copiando o arquivo Ger\num_protocolo-lista-nfse.xml para a pasta NFSe\num_nfse-nfse.xml

agora ficou assim: <Valores> <ValorServicos>1260</ValorServicos> <ValorDeducoes>0</ValorDeducoes> <IssRetido>1</IssRetido> <ValorIss>0</ValorIss> <BaseCalculo>1260</BaseCalculo> <Aliquota>3.0000</Aliquota> <ValorIssRetido>0</ValorIssRetido> <DescontoCondicionado>0</DescontoCondicionado> <DescontoIncondicionado>0</DescontoIncondicionado> </Valores> sera por causa do ambiente de testes?

ola pessoal, to usando o ambiente de testes para o provedor Betha, porem ao gerar o xml do RPS, o valor do iss nao ta gerando, nem mesmo gerando se for Retido (esta era pra ser retido) <Valores> <ValorServicos>2184</ValorServicos> <ValorDeducoes>0</ValorDeducoes> <IssRetido>2</IssRetido> <ValorIss>0</ValorIss> <BaseCalculo>2184</BaseCalculo> <Aliquota>3.0000</Aliquota> <DescontoCondicionado>0</DescontoCondicionado> <DescontoIncondicionado>0</DescontoIncondicionado> </Valores>

a parte de enviar os dados separados esta funcionando. agora so falta a quebra de linha.

e as mudancas de linhas???

ok, e isso vale pra outros provedores tb?

ola pessoal, tem alguma forma de enviar o RPS para o provedor Betha com descricao, qtde, vlr. unitario e total separados para o servico? pelo q vi no exemplo somente um provedor tem essa opcao, conforme o codigo a seguir: // 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; no caso do Betha, so da pra enviar o valor total da nota, e nao o valor unitario e qtde do servico. pelo site da pra informar esses valores, conforme impressao da NFSe: e tb nao to conseguindo enviar as quebras de linhas (to enviando a descricao com ';')

UP

sim, antes de usar o componente, uso estes comandos: procedure TdmDados.ConfiguraACBrNFSe; var xPasta, PathMensal: string; Ok: Boolean; begin xPasta := Pasta_Arquivos + 'NFSe\' + View_EmpresasNome.AsString; ACBrNFSe1.Configuracoes.Certificados.NumeroSerie := View_EmpresasCertificado_NFS_ACBr.AsString; ACBrNFSe1.Configuracoes.Arquivos.AdicionarLiteral := True; ACBrNFSe1.Configuracoes.Arquivos.EmissaoPathNFSe := True; ACBrNFSe1.Configuracoes.Arquivos.PastaMensal := True; ACBrNFSe1.Configuracoes.Arquivos.PathCan := xPasta; //edtPathLogs.Text; ACBrNFSe1.Configuracoes.Arquivos.PathNFSe := xPasta; //edtPathLogs.Text; ACBrNFSe1.Configuracoes.Arquivos.Salvar := True; PathMensal := ACBrNFSe1.Configuracoes.Arquivos.GetPathNFSe(0); ACBrNFSe1.Configuracoes.Geral.PathSchemas := DirPath + 'ACBrNFSe_Schemas\' + StringReplace(View_EmpresasProvedor_NFSe.AsString, ' ', '', [rfReplaceAll]); ; //edtSchemas.Text; ACBrNFSe1.Configuracoes.Geral.Salvar := True; //ckSalvar.Checked; ACBrNFSe1.Configuracoes.Geral.PathSalvar := xPasta; //edtPathLogs.Text; ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := StrToInt(View_EmpresasCodIBGE.AsString); //StrToIntDef(edtCodCidade.Text, 0); ACBrNFSe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok, View_EmpresasNFSe_Ambiente.AsString); ACBrNFSe1.Configuracoes.WebServices.Visualizar := False; //ckVisualizar.Checked; ACBrNFSe1.Configuracoes.WebServices.Salvar := True; //ckVisualizar.Checked; ACBrNFSe1.Configuracoes.WebServices.SenhaWeb := ''; //edtSenhaWeb.Text; ACBrNFSe1.Configuracoes.WebServices.UserWeb := ''; //edtUserWeb.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyHost := ''; //edtProxyHost.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyPort := ''; //edtProxyPorta.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyUser := ''; //edtProxyUser.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyPass := ''; //edtProxySenha.Text; ACBrNFSe1.Configuracoes.WebServices.SetConfigMunicipio(ACBrNFSe1.Configuracoes.Geral.PathSchemas); end;

ACBrNFSe1.Configuracoes.Arquivos.Salvar := True; ACBrNFSe1.Configuracoes.Geral.Salvar := True; ACBrNFSe1.Configuracoes.WebServices.Salvar := True; tem mais alguma?

ola pessoal, tb to querendo salvar o XML da NFS-e, mas nao ta salvando mais. ele gera as pastas 201406\RPS, 201406\Ger e 201406\NFSe, porem o XML da NFSe nao ta sendo salvo. alguma dica?

ok, obrigado mais uma vez

é NFe. o valor dos impostos ja é impresso proximo ao total da nota, mas nao informa a fonte. posso colocar nas informacoes complementares o texto: 'VALOR APROX. DOS IMPOSTOS-FONTE:IBPT'

valeu regys, vc como sempre atencioso e prestativo. outra duvida agora: como informo q a fonte foi o IBPT? coloco direto nas inf. complementares? ha algum lugar pra informar isso?

ola pessoal, vou iniciar o uso do IBPTax, e queria saber qual o link usado pra baixar o arquivo atualizado. pesquisei no forum, mas nao encontrei (acho mto confusa aquela pesquisa do google hehehe) se alg puder ajudar, agradeco

tb acho q deveria da segunda forma q o manoel santos postou. eu to fazendo assim: cdsBoletosCodCedente.AsString := ACBrBoleto1.Banco.MontarCampoCodigoCedente(titulo); e nao ta mostrando o codigo do cedente no boleto, e sim o numero da conta. alterei meu codigo no mesmo lugar indicado pelo manoel santos. apesar q uso esta informacao apenas na impressao do boleto, mas alterei pra ficar igual ao do banco. paralelamente, o arquivo remessa parece estar ok

e ai galera, tudo na paz? seguinte, to tentando enviar uma NFSe para o provedor Betha, mas como faco para mudar de linha da descricao do servico? pesquisei no forum, mas nao achei resposta

Ola pessoal, to fazendo os testes de envio do RPS para o provedor Betha, porem nao ta gravando o XML da NFSe (procurei no forum mas nao achei, caso alg tiver o link, por gentileza, inclua-o na respota) to usando o comando: ConfiguraNFSe; nroLote := '9'; protocolo := '93295748728213'; {ACBrNFSe1.ConsultarSituacao(SoNumeros(View_EmpresasCNPJ.AsString), View_EmpresasInsc_Municipal.AsString, Protocolo, nroLote);} ACBrNFSe1.ConsultarLoteRps(nroLote, Protocolo, SoNumeros(View_EmpresasCNPJ.AsString), View_EmpresasInsc_Municipal.AsString); procedure CofiguraNFSe: procedure TdmDados.ConfiguraNFSe; var xPasta, PathMensal: string; Ok: Boolean; begin xPasta := Pasta_Arquivos + 'NFSe\'+View_EmpresasNome.AsString; ACBrNFSe1.Configuracoes.Certificados.NumeroSerie := View_EmpresasCertificado_NFS_ACBr.AsString; ACBrNFSe1.Configuracoes.Arquivos.AdicionarLiteral := True; ACBrNFSe1.Configuracoes.Arquivos.EmissaoPathNFSe := True; ACBrNFSe1.Configuracoes.Arquivos.PastaMensal := True; ACBrNFSe1.Configuracoes.Arquivos.PathCan := xPasta; //edtPathLogs.Text; ACBrNFSe1.Configuracoes.Arquivos.PathNFSe := xPasta; //edtPathLogs.Text; ACBrNFSe1.Configuracoes.Arquivos.Salvar := True; PathMensal := ACBrNFSe1.Configuracoes.Arquivos.GetPathNFSe(0); ACBrNFSe1.Configuracoes.Geral.PathSchemas := DirPath + 'ACBrNFSe_Schemas\' + StringReplace(View_EmpresasProvedor_NFSe.AsString, ' ', '', [rfReplaceAll]); ; //edtSchemas.Text; ACBrNFSe1.Configuracoes.Geral.Salvar := True; //ckSalvar.Checked; ACBrNFSe1.Configuracoes.Geral.PathSalvar := xPasta; //edtPathLogs.Text; ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := StrToInt(View_EmpresasCodIBGE.AsString); //StrToIntDef(edtCodCidade.Text, 0); ACBrNFSe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok, View_EmpresasNFSe_Ambiente.AsString); ACBrNFSe1.Configuracoes.WebServices.Visualizar := False; //ckVisualizar.Checked; ACBrNFSe1.Configuracoes.WebServices.SenhaWeb := ''; //edtSenhaWeb.Text; ACBrNFSe1.Configuracoes.WebServices.UserWeb := ''; //edtUserWeb.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyHost := ''; //edtProxyHost.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyPort := ''; //edtProxyPorta.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyUser := ''; //edtProxyUser.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyPass := ''; //edtProxySenha.Text; ACBrNFSe1.Configuracoes.WebServices.SetConfigMunicipio(ACBrNFSe1.Configuracoes.Geral.PathSchemas); o XML de retorno: <ConsultarSituacaoLoteRpsResposta> <NumeroLote>9</NumeroLote> <Situacao>4</Situacao> <ListaMensagemRetorno/> </ConsultarSituacaoLoteRpsResposta> o sistema gera os arquivos das pastas RPS e Ger (conforme anexo), mas nao me retorna a NFSe. qual a funcao usada para salvar o XML da NFSe??

ola pessoal, como esta o desenvolvimento do componente? tvz vou precisar tb e no q puder ajudar

ola pessoal, to tentando instalar o DACTe do FastReport, mas recebo o erro ao clicar em instalar: --------------------------- Delphi 7: delphi32.exe - Ponto de entrada não encontrado --------------------------- Não foi possível localizar o ponto de entrada do procedimento @Frxpdffile@initialization$qqrv na biblioteca de vínculo dinâmico frxe7.bpl. to usando D7, FR v. 4.12.6 fiz uma pesquisa mas nao encontrei alguma solucao. caso tenha algum posto com a solucao, por favor indique aqui, please. valew

Seria isto? tentei executar por fora do delphi tb. mesma coisa. to usando D7

agora ta ocorrendo o seguinte: se adiciono a linha: ACBrMail1.AddAttachment('f:\clientes.csv') o projeto fecha, mas nao envia o email com anexo, e se tento compilar novamente (F9), nao compila, so pisca o delphi e volta no mesmo lugar. o antivirus ta excluindo o executavel (Norton 360) e nao deixa compilar se nao coloco anexo, vai normal assim nao envia: ACBrMail1.AddAttachment('f:\clientes.csv'); ACBrMail1.Send; assim envia normal: // ACBrMail1.AddAttachment('f:\clientes.csv'); ACBrMail1.Send; mas o antivirus exclui o executavel de qq forma alguma dica? usei o exemplo q foi postado aqui neste post. e onde esta o demo?

fiz um teste simples aqui (gmail) e ta ok. parabens.

tb estou com o problema. atualizei o acbr, copei as dlls para a pasta SysWow64, mas continua o mesmo erro: Win 7 64 Certificado A3 - Serasa Leitora Perto CCID ja baixei todas as cadeias do site da serasa, o SafeSign versao 3.0.80 - 64Bits mais alguma dica?