-
Total de ítens
381 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que joemil postou
-
e eu nao estou conseguindo imprimir a Carta de Correcao: // CARREGA O XML DA NFE dmDados.NFe.NotasFiscais.Clear; dmDados.NFe.NotasFiscais.LoadFromFile(dmDados.PastaXML(sqlvendasNF_Data.value) + Chave + '-nfe.xml'); // CARREGA O XML DA CCE Arquivo := dmDados.PastaXML(sqlvendasNF_Data.value) + fNFe_Impressao.ListBox1.Items[fNFe_Impressao.ListBox1.ItemIndex]; ShowMessage(Arquivo); dmDados.NFe.EventoNFe.Evento.Clear; dmDados.NFe.EventoNFe.LerXML(Arquivo); dmDados.NFe.ImprimirEvento; da o erro:
-
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 ';')
-
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??
-
Consulta de SPC via componente
joemil replied to Sergioguedes's tópico in Dúvidas Gerais sobre o ACBr
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
- 60 replies
-
- acbrmail
- envio de e-mail
- (e 1 mais)
-
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?
- 60 replies
-
- 1
-
- acbrmail
- envio de e-mail
- (e 1 mais)
-
fiz um teste simples aqui (gmail) e ta ok. parabens.
- 60 replies
-
- acbrmail
- envio de e-mail
- (e 1 mais)