eduardoengcosta

Boa tarde a todos. Recentemente notei que a DANFE da NFC-e com QR-Code lateral deixou de conter a informação da Hora da emissão. Verifiquei que houve uma modificação realizada no arquivo ACBrDANFCeFortesFr.pas (revisão 31591 - substituição da função DateTimeToStr() pela função FormatDateBr() ), que tenha motivado esta questão. O tópico relacionado a esta questão se encontra abaixo. Anexei os respectivos prints e o ajuste efetuado no arquivo mencionado. Desde já, Muito Obrigado. ACBrDANFCeFortesFr.pas

Bom dia, a correção já foi publicada?

Encontrei a Rejeição 855: Somatório percentuais de GLP derivado do petróleo, GLGNn e GLGNi diferente de 100. Verifiquei que no pcnNFe.pas estava incompleto. fiz a correção para Arquivo pcnNFe.pas em anexo. pcnNFe.pas

Desculpe Juliomar, postando novamente o arquivo. ACBrEFDBloco_C_Class.pas

Boa tarde Quando não é passado nada para a o campo VL_UNIT_ICMS_ST_CONV_COMPL o mesmo retorna o valor "0,00". Segundo o guia prático da EFD e não pode ser "0" e sim vazio. Fiz a modificação a seguir. procedure TBloco_C.WriteRegistroC181(RegC100: TRegistroC100; RegC170: TRegistroC170); var intFor: integer; begin if Assigned( RegC170.RegistroC181 ) then begin if RegC170.RegistroC181.Count > 0 then begin if (RegC100.IND_OPER = tpSaidaPrestacao) or (FBloco_0.Registro0000.IND_PERFIL in [pfPerfilC]) then Check(False, 'O RegistroC181, não deve ser gerado em movimentações de saída ou %s, conforme ATO COTEPE 09/08', ['PerfilC']); end; for intFor := 0 to RegC170.RegistroC181.Count - 1 do begin with RegC170.RegistroC181.Items[intFor] do begin Add( LFill('C181') + LFill( COD_MOT_REST_COMPL ) + LFill( QUANT_CONV,0,6 ) + LFill( UNID) + LFill( COD_MOD_SAIDA) + LFill( SERIE_SAIDA) + LFill( ECF_FAB_SAIDA) + LFill( NUM_DOC_SAIDA) + LFill( CHV_DFE_SAIDA) + LFill( DT_DOC_SAIDA, 'ddmmyyyy' ) + LFill( NUM_ITEM_SAIDA) + DFill( VL_UNIT_CONV_SAIDA,0,True ) + DFill( VL_UNIT_ICMS_OP_ESTOQUE_CONV_SAIDA,0,True ) + DFill( VL_UNIT_ICMS_ST_ESTOQUE_CONV_SAIDA,0,True ) + DFill( VL_UNIT_FCP_ICMS_ST_ESTOQUE_CONV_SAIDA,0,True ) + DFill( VL_UNIT_ICMS_NA_OPERACAO_CONV_SAIDA,0,True ) + DFill( VL_UNIT_ICMS_OP_CONV_SAIDA,0,True ) + DFill( VL_UNIT_ICMS_ST_CONV_REST,0,True ) + DFill( VL_UNIT_FCP_ST_CONV_REST,0,True ) + DFill( VL_UNIT_ICMS_ST_CONV_COMPL,0,True ) + DFill( VL_UNIT_FCP_ST_CONV_COMPL,0,True )); end; RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroC181Count := FRegistroC181Count + RegC170.RegistroC181.Count; end; ACBrEFDBloco_C_Class.pas

Bom dia a todos. Foi publicado ontem 11/02/2021. Alteração no prazo de implantação Homologação: 01/11/2021 - Publicação: 30/11/2021 NT2020.007_v1.10 - Evento_Ator_NFe_Transportador.pdf

Bom dia O Registro C185 está faltando a totalização no registro 9900. Está faltando o código na unit ACBrSpedFiscal: if Bloco_C.RegistroC185Count > 0 then begin with New do begin REG_BLC := 'C185'; QTD_REG_BLC := Bloco_C.RegistroC185Count; end; end; ACBrSpedFiscal.pas

Bom dia. Blz, Obrigado

Boa Tarde Juliana. Estou anexando os arquivos que foram alterados para análise. Att. ACBrEFDBloco_H.pas ACBrEFDBloco_H_Class.pas ACBrEFDBlocos.pas

Boa Tarde. Já foi implementado o motivo 6 do registro H005?

Boa Tarde, Alguma solução para o problema citado?

Me desculpe, não foi a minha intenção. Mas alguém poderia me ajudar nesta situação?

BOM DIA. É POSSIVEL COOLOCAR NO DANFE A QTD TRIB E A UNIDADE, MESMO SENDO IGUAIS?

Encontrei um erro em: procedure Tcomb.Assign(Source: TPersistent); begin if Source is Tcomb then begin cProdANP := Tcomb(Source).cProdANP; descANP := Tcomb(Source).descANP; pMixGN := Tcomb(Source).pMixGN; CODIF := Tcomb(Source).CODIF; qTemp := Tcomb(Source).qTemp; UFcons := Tcomb(Source).UFcons; CIDE.Assign(Tcomb(Source).CIDE); ICMS.Assign(Tcomb(Source).ICMS); ICMSInter.Assign(Tcomb(Source).ICMSInter); ICMSCons.Assign(Tcomb(Source).ICMSCons); encerrante.Assign(Tcomb(Source).encerrante); end else inherited; end; não tinha a linha descANP := Tcomb(Source).descANP; Poderiam verificar se já foi corrigido? pcnNFe.pas

Obrigado amigo!

Na Unit pcnNfe encontrei um erro na seguinte procedure. procedure TProd.Assign(Source: TPersistent); begin if Source is TProd then begin cProd := TProd(Source).cProd; nItem := TProd(Source).nItem; cEAN := TProd(Source).cEAN; xProd := TProd(Source).xProd; NCM := TProd(Source).NCM; NVE.Assign(TProd(Source).NVE); EXTIPI := TProd(Source).EXTIPI; //genero := TProd(Source).genero; CFOP := TProd(Source).CFOP; uCom := TProd(Source).uCom; qCom := TProd(Source).qCom; vUnCom := TProd(Source).vUnCom; vProd := TProd(Source).vProd; cEANTrib := TProd(Source).cEANTrib; uTrib := TProd(Source).uTrib; qTrib := TProd(Source).qTrib; vUnTrib := TProd(Source).vUnTrib; vFrete := TProd(Source).vFrete; vSeg := TProd(Source).vSeg; vDesc := TProd(Source).vDesc; vOutro := TProd(Source).vOutro; IndTot := TProd(Source).IndTot; DI.Assign(TProd(Source).DI); xPed := TProd(Source).xPed; nItemPed := TProd(Source).nItemPed; detExport.Assign(TProd(Source).detExport); veicProd.Assign(TProd(Source).veicProd); med.Assign(TProd(Source).med); rastro.Assign(TProd(Source).rastro); (Não existia este procedimento). arma.Assign(TProd(Source).arma); comb.Assign(TProd(Source).comb); nRECOPI := TProd(Source).nRECOPI; nFCI := TProd(Source).nFCI; CEST := TProd(Source).CEST; indEscala := TProd(Source).indEscala; CNPJFab := TProd(Source).CNPJFab; cBenef := TProd(Source).cBenef; end else inherited; end; Sem esta linha não estava carregando os dados de rastreabilidade do produto. Alguém poderia me ajudar com essa informação, pois acho que é um erro.