
Agnaldo Prates
-
Total de ítens
972 -
Registro em
-
Última visita
-
Days Won
4
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Agnaldo Prates
-
-
Já tentou.
With AcbrNFE1 do
NotasFiscais.Items[0].GravarXML('NOME DO ARQUIVO', 'Pasta Desejada?'); -
Jhonlenon, você tem esses arquivos .xml, poderia anexá-los?
,
-
Experimenta testar o seu XML no demo do ACBr para saber se a configuração da logo está em conformidade. Aqui no meu sistema está saindo 100%, tanto no fast quanto no fortes.
-
Não seria o ini da NFC-e, Ignácio?
-
2 horas atrás, abrahaofv disse:
Faz o seguinte. Utilize o FastReport e customiza sua logomarca e fontes ao gosto do seu cliente. O @Juliomar Marchetti está coberto de razão. Você já imaginou se fosse feito um DANFE para cada vontade de cliente?
-
1
-
-
Qry.CommandText := 'select TITULO, NOME_CLIENTE, SALDO_DEVEDOR from TITULOS_AREC '+#13+#10;
Qry.CommandText := Qry.CommandText + 'inner join CLIENTES on (CLIENTES.COD_CLI = TITULOS_AREC.CODIGO) '+#13+#10;
Qry.CommandText := Qry.CommandText + 'where (COD_CLI = :cli) '+#13+#10;
Qry.CommandText := Qry.CommandText + 'Order by 1'
ou
Qry.CommandText := 'select TITULO, NOME_CLIENTE, SALDO_DEVEDOR from TITULOS_AREC ';
Qry.CommandText := Qry.CommandText + ' inner join CLIENTES on (CLIENTES.COD_CLI = TITULOS_AREC.CODIGO) '
Qry.CommandText := Qry.CommandText + ' where (COD_CLI = :cli) ';
Qry.CommandText := Qry.CommandText + ' Order by 1'
-
Boa tarde.
Ao gerar o arquivo de remessa SICOOB CNAB240, tive vários problemas, e o pessoal não soube explicar o que poderia ser. Pediram para gerar no CNAB400, gerei, e retornaram dizendo que estafa divergente em algumas informações.Fiz as correções devidas e agora homologou beleza.
AcbrBancoBancoob,pas
Linhas 347 e 348.
IntToStrZero( StrtoInt( OnlyNumber(Cedente.Conta)), 8) + // Adicionado para gerar apenas 8 dígitos conforme instruçao LAYOUT.XLS lh 32
PadLeft( Cedente.ContaDigito,1,'0') + // Dígito CorrenteEssa informação do Cedente.Conta, a função PadLeft estava cortando parte da conta do cedente, então alterei para IntToStrZero.
Acrescentei ainda as variáveis no ACBrBoleto
TACBrBancoClass = class
(...)
fLayoutVersao_HF : String; // Versão do Hearder do arquivo
fLayoutVersao_HL : String; // Versão do Hearder do Loteconstructor TACBrBancoClass.create(AOwner: TACBrBanco);
(...)fLayoutVersao_HF := '87';
fLayoutVersao_HL := '40';Devido ao fato de que o Layout para algumas cooperativas muda a versão do Layout, entretanto, acredito que as versões de layouts já poderia fazer parte do AcbrBoleto.
Por aqui normal.
Parte do email recebido.
boa tarde
O arquivo de remessa e boletos estão ok, por favor efetuar um teste de pagamento, solicitar ao jefferson da agencia de jaru para que acompanhe o envio caso seja necessário.
0 0 1 Não existem registros com erros neste arquivo.
TOTAL COM ERROS : 0 Documento(s)
TOTAL SEM ERROS: 7 Documento(s)
TOTAL GERAL : 7 Documento(s)_____________________
Renato Bastos
Departamento de Tecnologia
Analista de Sistemas-
1
-
-
Já experimentou colocar na pasta do seu executável o arquivo ACBrNFeServicos.ini?
Toda configuração necessária em relação à endereços de webservices, esse arquivo resolve. Lembre-se de setar no componente ACBrNFE a propriedade: Configuraões-> Arquivos[ IniServicos o nome "ACBrNFeServicos.ini" -
Aqui está retornando normalmente.
OpenDialog1.Title := 'Selecione a NFE';
OpenDialog1.DefaultExt := '*-nfe.XML';
OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
if OpenDialog1.Execute then
begin
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
ShowMessage('dHemi '+ DateTimeToStr( ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi) );
end; -
Estranho que o que baixei a primeira vez não havia a tag <retNFe>
Baixando novamente sim. -
O xml em questão não possui a tag ora mencionada. Pelo conteúdo do xml, há apenas a tag dhResp, trata-se de arquivo de retorno. retDownloadNFe.
-
30 minutos atrás, medeiros.sunsystem disse:
Mas sempre terá que calcular ? pois no link que informei, diz que se for para industrialização ou revenda, não precisa, ou algo assim.
Na devolução*, na saída da indústria para a distribuidora.
* Devolução para a indústria, para que ela credite do mesmo imposto que dela foi debitado.
-
24 minutos atrás, medeiros.sunsystem disse:
Olá pessoal.
Um cliente precisou fazer uma nota de devolução e informou que a contabilidade queria que saísse a nota 100% igual a nota de entrada.
Porém, percebi que a NFe deles tinha na soma da base de cálculo, incluso o IPI.
Não tinha visto isto ainda, e fiquei em dúvida, pois vi um artigo que informa quando deve entrar no cálculo para a soma da base de cálculo e quando não deve.
Mas diante do que li no link: http://www.portaltributario.com.br/guia/icms_bc_ipi.html , fiquei mais confusoAlguém poderia me auxiliar quanto ao que fazer ? Gostaria de conhecer o conceito e sugestões de como deixar isto mais fácil para o usuário final, que muitas vezes não sabe nada de regras da sefaz.
Segue danfe do fornecedor do meu cliente, que teríamos que fazer uma NFe igual.Obrigado
A BC do ICMS é com o IPI por dentro, da seguinte maneira.
Na hora de calcular o ICMS, calcule o IPI sobre o valor total primeiro, conforme consta na sua nota.Ex: valor total: R$ 715,69 aplica aqui a alíquota de 2% do IPI que corresponderá a R$ 14,3138, soma este valor com o valor total de R$ 715,69, totalizado assim R$ 730,0038, assim sendo, a BC do ICMS será R$ 730,00 aplicando-se a alíquota de 12%, gerando assim o ICMS no valor de R$ 87,60.
E, dessa forma segue, quantos itens existirem na NFe.
No final, basta que seja informado no total os respectivos valores de IPI e ICMS.
Essa lei complementar é uma vergonha para o Brasil.. -
-
-
2 horas atrás, adilsonpazzini disse:
Isso que entendi tambem e foi isso que o proprio sefaz mes respondeu , de que nao é obrigatorio para NFCe . somente para ECF é obrigatorio .. mais uma vez obrigado a todos
Adilson .
Lembre-se que somente é obrigatório no caso da NFC-e, se o seu cliente já utilizava o TEF.
-
Galera é o seguinte:
Segundo o Decreto nº. 16.738, em seu art. 1º, inciso I, § 4º, estabelece que: “§ 4º Na hipótese de pagamento com cartão de crédito ou débito,havendo integração do sistema autorizador da venda com o programa emissor de NFC-e, devem ser informados os dados da credenciadora e da autorização concedida.”Ao analisar o referido parágrafo, é possível extrair o seguinte: Caso já tenha implantado o TEF "havendo integração do sistema autorizador da venda", caso o pagamento seja feito por cartão de crédito ou débito, haverá obrigatoriamente a sua continuidade.
Por outro lado, caso o contribuinte não tenha instituído o TEF, no caso da NFCe, não há obrigatoriedade.
Em resumo, caso o teu cliente já utilize o TEF, e, a o pagamento tenha ocorrido com cartão de crédito ou débito, o TEF é obrigatório.
Caso não tema o TEF, não é obrigado para NFCe. -
Eu tive que fazer isso, dois loops, um para gerar o PDF e outro para gerar a Remessa.
-
Graça, bom dia.
Na sua procedure "GeraBoleto", há algum ACBrBoleto.CriarTituloNaLista, se sim, acredito que antes deva ser chamado ACBrBoleto.ListadeBoletos.Clear. De repente pode ser isso. -
Em não sendo erro de aplicação, e, caso o cStat seja 656, apresente o conteúdo da tag, xMotivo.
"Olá,Galera onde eu trata este erro?
Estou usando a rotina - ACBrNFe1.WebServices.Consulta.Executar
Esta retornando o erro - Consumo indevido.
Ja tentei - ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[l].RetEventoNFe.xMotivo (Não da)queria mostrar uma mensagem para o usuario !"
O que entendi ma mensagem é que se tratava de um erro. -
Já tentou utilizar
Try
...
Except
... Tratar a exceção
End
Assim você pega o retorno e mostra para o usuário. -
2 horas atrás, ssouzaacbr disse:
Pessoal, como poderia emitir um NFCe somente com serviço, quando incluo produto e serviço consigo normalmente se eu incluir somente o serviço a sefaz me retorna dizendo que a soma total dos impostos não batem com o valor da nota, pra funcionar preciso informar o ICMS! mas como só é prestação de serviço acredito que não precise, segue a parte onde estou com dúvidas:
Total.ICMSTot.vBC := 100;//TClientDataSet(srcItemVenda.DataSet).FieldByName('valorUnitario').Value;
Total.ICMSTot.vICMS := 2;
Total.ICMSTot.vBCST := 0;
Total.ICMSTot.vST := 0;
Total.ICMSTot.vProd := 100;
Total.ICMSTot.vFrete := 0;
Total.ICMSTot.vSeg := 0;
Total.ICMSTot.vDesc := 0;
Total.ICMSTot.vII := 0;
Total.ICMSTot.vIPI := 0;
Total.ICMSTot.vPIS := 0;
Total.ICMSTot.vCOFINS := 0;
Total.ICMSTot.vOutro := 0;
Total.ICMSTot.vNF := 100;//TClientDataSet(srcItemVenda.DataSet).FieldByName('valorUnitario').Value;
Total.ICMSTot.vTotTrib := 2;Total.ISSQNtot.vServ := 100;
Total.ISSQNTot.vBC := 100;
Total.ISSQNTot.vISS := 2;
Total.ISSQNTot.vPIS := 0;
Total.ISSQNTot.vCOFINS := 0;
Total.ISSQNTot.dCompet := Now;Dessa forma funciona mas se eu remover o ICMS é rejeitado...
Seria interessante postar o xml, assim teríamos uma ideia exata do que esteja ocorrendo.
-
Aqui em RO já estava sendo obrigatório desde 01/09. Ainda bem que adequei a tempo. Mas ainda assim acredito ser uma boa notícia para todos àqueles que por algum motivo não deu tempo de modificar os seus sistemas.
-
Na pasta do ACBr:
Acbr\Exemplos\ACBrDFe\ACBrNFe\Delphi
Nesta pasta existe o arquivo ACBrNFe_demo.dpr
Abra a unit Unit1.pas, linha 2518 trata de como adicionar a informação complementar.
Linha 2521, por sua vez, trata da Informação adicional.
Com base no exemplo você pode criar suas respostas.
Logo Empresa
em ACBrBoleto
Postado
O Boleto no Fortes, sendo o Layout Carnê, tem a opção ImgLoja. Talvez seja isso. Unit. ACBrBoletoFCFortesFr.pas veja no form: BoletoCarne
Quanto aos demais não sei se há.