eduardoengcosta
-
Total de ítens
16 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por eduardoengcosta
-
-
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.
-
-
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;
-
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
-
2
-
-
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;-
1
-
-
-
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?
-
2 horas atrás, RicardoVoigt disse:
A dica sempre é vc mesmo anexar o arquivo de fonte alterado, quando tem alguma sugestão...
Anexei ai pro pessoal verificar...
Att
Ricardo
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.
-
1
-
DANFE NFC-e sem informação de Horário
em NFC-e - Nota Fiscal do Consumidor Eletrônica
Postado
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