Ricardo De Luca

blz então italio quem esperou ate hoje não custa esperar mas uns dias rsss . obrigado atenção.

mas estranho Italo e que faz todos os processo o status e envio e processo de recebido faz tudo certo mas so o retorno da este erro se não tive-se liberado não iria funcionar nenhum destas opções ou estou enganado?

boa tarde alguém sabe me dizer se este erro e do sefaz pois estou fazendo teste da nf-e e nfc-e v.4.00 esta me retornado este erro envia tudo certo so me retorna este erro? obs estou usando o acbrnfe_demo estou utilizando sefaz do parana e são Paulo os mesmo retorna este erro.

boa tarde como faco para acrescentar um bloco tipo referencia na danfe fast report? criei a tabela no ACBrNFeDANFEFRDM nas não aparece la no fast report a tabela nem o campo? alguém poderia me ajudar?

boa tarde como faco para acrescentar um bloco tipo referencia na danfe fast report? criei a tabela no ACBrNFeDANFEFRDM nas não aparece la no fast report a tabela nem o campo? alguém poderia me ajudar?

ai não vai afetar a regra como esta so vai acrescentar uma opção a mais e questão de tratamento e feito na aplicação o problema a impressão na danfe. procedure TACBrNFeFRClass.CarregaPagamento; var i: Integer; begin with cdsPagamento do begin Close; CreateDataSet; if ImprimeFormaPgtoXML then begin for i := 0 to NFe.Pag.Count - 1 do begin Append; with FNFe.Pag do begin FieldByName('tPag').AsString := FormaPagamentoToDescricao( tPag ); FieldByName('vPag').AsFloat := vPag; // ver tpIntegra FieldByName('CNPJ').AsString := FormatarCNPJ(CNPJ); FieldByName('tBand').AsString := BandeiraCartaoToDescStr( tBand ); FieldByName('cAut').AsString := cAut; end; Post; end; end else begin for i := 1 to 15 do begin if FDANFEClassOwner.ListaFormaPgto.FormaPgto.VAlor>0 then begin Append; FieldByName('tPag').AsString := FDANFEClassOwner.ListaFormaPgto.FormaPgto.Descricao; FieldByName('vPag').AsFloat := FDANFEClassOwner.ListaFormaPgto.FormaPgto.VAlor; post; end; end; end; // acrescenta o troco if vTroco > 0 then begin Append; FieldByName('tPag').AsString := 'Troco R$'; FieldByName('vPag').AsFloat := vTroco; end; end; end;

boa tarde Henrique criei duas propriedade ImprimeFormaPgtoXML e ListaFormaPgto: ImprimeFormaPgtoXML por padrão e verdadeira vai imprimir a forma de pagamento que tiver no arquivo XML ser for falsa vai imprimir a forma de pagamento quer for passada para a propriedade ListaFormaPgto. segue os arquivos que alterei por gentileza analisa. e obrigado pela atenção. ACBrNFeDANFEClass.pas ACBrNFeDANFEFR.pas ACBrNFeDANFEFRDM.pas

bom dia Henrique e se acrescentar uma propriedade que contenha a descrição e valor da forma de pagamento para nos informar e não pegar do arquivo xml?

boa tarde Henrique fiz esta alteração criei uma propriedade SomaTrocoFormaPgto em ACBrNFeDANFEClass como padrão esta como falsa e alterei ACBrNFeDANFEFRDM da uma analizada se e possível colocar esta propriedade ou fazer diferente. procedure TACBrNFeFRClass.CarregaPagamento; var i: Integer; begin with cdsPagamento do begin Close; CreateDataSet; for i := 0 to NFe.Pag.Count - 1 do begin Append; with FNFe.Pag do begin FieldByName('tPag').AsString := FormaPagamentoToDescricao( tPag ); FieldByName('vPag').AsFloat := vPag; if SomaTrocoFormaPgto then begin if tPag in [fpDinheiro, fpCheque] then if vTroco > 1 then FieldByName('vPag').AsFloat := vPag+vTroco; end; // ver tpIntegra FieldByName('CNPJ').AsString := FormatarCNPJ(CNPJ); FieldByName('tBand').AsString := BandeiraCartaoToDescStr( tBand ); FieldByName('cAut').AsString := cAut; end; Post; end; // acrescenta o troco if vTroco > 0 then begin Append; FieldByName('tPag').AsString := 'Troco R$'; FieldByName('vPag').AsFloat := vTroco; end; end; end; alterei 3 arquivos esta em anexo: ACBrNFeDANFEClass.pas ACBrNFeDANFEFR.pas ACBrNFeDANFEFRDM.pas

e assim Henrique.

blz vou ficar no aguardo.

então se for seguir a norma deveria tirar o troco. mas o que eu quero dizer e colocar uma condição igual o troco? e quem quiser coloca quem não quiser não coloca.

boa tarde Leandro e seguinte eu li: não sei vc mexe com cliente e cliente acha que tem que ser do jeito deles ai tive que mudar em ACBrNFeDANFEFR a tive que fazer isso if tPag in [fpDinheiro, fpCheque] then if vTroco > 1 then begin FieldByName('vPag').AsFloat := vPag+vTroco; end else FieldByName('vPag').AsFloat := vPag else FieldByName('vPag').AsFloat := vPag; e que eles tao acustumado com ecf ai acha que tem que ser igual cupom fiscal. ai pensei se poderia criar uma propriedade pra somar o troco junto com forma de pagamento dinheiro ou cheque.

exemplo: valor a pagar: 16,80 forma de pagamento: Dinheiro: 20,00 troco: 3,20 so que na danfe imprime valor a pagar: 16,80 forma de pagamento Dinheiro: 16,80 troco: 3,20 por que no xml ta desta forma.

problema na consulta individual na rotina ACBRNFeWebServices na função TNFeConsulta.Executar:boolean ta assim // Alteracoes realizadas por Italo em 25/08/2014 IF (FConfiguracoes.webservices.UFCodigo=29) AND (Fconfiguracoes.geral.versaodf=ve310) THEN teria que colocar outros estado que estão liberado pra usar ve310.

removi tudo e abaixei a fontes do acbr e funcionou. obrigado a todos. pela ajuda.

se eu so atualizar as fontes não da erro. agora se eu compilo individualmente o ACBr_SPED.bpl da esse erro.

seguinte Isaque Exclui a pasta ACBR e baixei tudo de novo quando vou compilar so o pacote do acbrpiscofins da Undeclared identifier: 'VLFill'

Boa tarde Isaque recompilei o pacote do SpedPisCofins e agora não ta achando a função VDFill.

boa tarde Isaque obrigado recompilei os pacotes funcionou.

bom dia Isaque abaixei novamente o pacote da acbr removi o componente do acbrspedpiscofins1 removi os evento e não aparece AC481:TObject abri o exemplo do spedpiscofins da acbr la também não aparece o AC481:TObject. na rotina acbrEPCBloco_C_Class aparece TWriteRegistroC481Event = procedure(const AC481:TObject; var ANullVL_BC_PIS, ANullALIQ_PIS, ANullQUANT_BC_PIS, ANullALIQ_PIS_QUANT, ANullVL_PIS:Boolean) of object;

boa tarde quando uso o evento BEFOREWRITERESITROC481 da este erro que esta em anexo. procedure TFrmExpSpedNovo.AcbrSPEDPisCofins1EventsBloco_CBeforeWriteRegistroC481( var ANullVL_BC_PIS, ANullALIQ_PIS, ANullQuant_BC_PIS, ANullAliq_PIS_QUANT,ANullVL_PIS:boolean); begin ANullVL_BC_PIS := false; ANullALIQ_PIS := false; ANullQUANT_BC_PIS := true; ANullALIQ_PIS_QUANT := true; ANullVL_PIS := false; end;

e isso Isaque resolvido obrigado. Mas lembrando este problema deu numa NF-e de Complemento de ICMS.

da uma olhada nesta parte da rotina function TACBrTXTClass.DFill(value:double; Decimal:Integer=2; nulo:boolean=false):string; begin if (Nulo) and (value=0) then begin result := FDelimitador; exit; end; Result:= FDelimitador+ FormatFloat('#0.'+stringofchar('0',decimal),value); end; se eu não mudar na rotina ACBREPCBloco_C_Class a linha aonde ta DFill(VL_BC_PIS,2,true) para DFill(VL_BC_PIS,2,false) não vai alimentar com o valor zero olha código acima aonde ta if (Nulo) and (value=0) then begin na rotina atual DFill(VL_VC_PIS,2,TRUE) então o NULO VAI SER VERDADE E O VALOR QUE TOU PASSANDO E 0(ZERO) ele vai retornar o delimidador sem valor.