krepe

favor de uma conferida foi repetido o registro sendo o correto Obrigado.

Boa tarde, atualizei pelo svn e o registro D300 não está gerando o campo VL_ICMS. procedure TBloco_D.WriteRegistroD300(RegD001: TRegistroD001) ; var intFor: integer; begin if Assigned( RegD001.RegistroD300 ) then begin for intFor := 0 to RegD001.RegistroD300.Count - 1 do begin with RegD001.RegistroD300.Items[intFor] do begin Add( LFill('D300') + LFill( COD_MOD ) + LFill( SER ) + LFill( SUB ) + LFill( NUM_DOC_INI ) + LFill( NUM_DOC_FIN ) + LFill( CST_ICMS ) + LFill( CFOP ) + LFill( ALIQ_ICMS,0,2 ) + LFill( DT_DOC ) + LFill( VL_OPR,0,2 ) + LFill( VL_DESC,0,2 ) + LFill( VL_SERV,0,2 ) + LFill( VL_SEG,0,2 ) + LFill( VL_OUT_DESP,0,2 ) + LFill( VL_BC_ICMS,0,2 ) + LFill( VL_RED_BC,0,2 ) + LFill( COD_OBS ) + LFill( COD_CTA ) ) ; end; /// Registros FILHOS WriteRegistroD301( RegD001.RegistroD300.Items[intFor] ) ; WriteRegistroD310( RegD001.RegistroD300.Items[intFor] ) ; RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroD300Count := FRegistroD300Count + RegD001.RegistroD300.Count; end; end; acrescentei o campo conforme o código abaixo: LFill( VL_BC_ICMS,0,2 ) + LFill( VL_ICMS,0,2 ) + //krepe LFill( VL_RED_BC,0,2 ) + Parabéns e Obrigado.

Obrigado Gr@c@ por disponibilizar a resposta do fisco.

Ao gerar os registros D100 os quais eram originados de documentos cancelados, estava dando erro na validação no PVA. A mensagem de erro era referente aos campos que devem ser preenchidos qdo for documento cancelado , dei uma olhada no GUIA_PRATICO_DA_EFD_Versao_2_0_4: Os campos VL_DOC, VL_DESC, VL_SERV, VL_BC_ICMS, VL_ICMS, VL_NT, estavam sendo formatados com 0,00 Alterei a procedure TBloco_D.WriteRegistroD100(RegD001: TRegistroD001) ; para verificar o código de situação if StrToInt(strCOD_SIT) in [2..5] then procedure TBloco_D.WriteRegistroD100(RegD001: TRegistroD001) ; var . . . if StrToInt(strCOD_SIT) in [2..5] then Add( LFill('D100') + LFill( Integer(IND_OPER), 0 ) + LFill( Integer(IND_EMIT), 0 ) + LFill( COD_PART ) + LFill( COD_MOD ) + LFill( strCOD_SIT ) + LFill( SER ) + LFill( SUB ) + LFill( NUM_DOC ) + LFill( CHV_CTE ) + LFill( DT_DOC ) + LFill( DT_A_P ) + LFill( TP_CT_e ) + LFill( CHV_CTE_REF ) + LFill( VL_DOC ) + LFill( VL_DESC ) + LFill( strIND_FRT ) + LFill( VL_SERV ) + LFill( VL_BC_ICMS ) + LFill( VL_ICMS ) + LFill( VL_NT ) + LFill( COD_INF ) + LFill( COD_CTA ) ) else Add( LFill('D100') + LFill( Integer(IND_OPER), 0 ) + LFill( Integer(IND_EMIT), 0 ) + LFill( COD_PART ) + LFill( COD_MOD ) + LFill( strCOD_SIT ) + LFill( SER ) + LFill( SUB ) + LFill( NUM_DOC ) + LFill( CHV_CTE ) + LFill( DT_DOC ) + LFill( DT_A_P ) + LFill( TP_CT_e ) + LFill( CHV_CTE_REF ) + LFill( VL_DOC,0,2 ) + LFill( VL_DESC,0,2 ) + LFill( strIND_FRT ) + LFill( VL_SERV,0,2 ) + LFill( VL_BC_ICMS,0,2 ) + LFill( VL_ICMS,0,2 ) + LFill( VL_NT,0,2 ) + LFill( COD_INF ) + LFill( COD_CTA ) ) ; end; . . . o registro ficou assim Deixo a dica, pode ser que seja útil para mais alguem. Abraços. Alexandre Krepe

Bom dia, ao gerar o registro D300 do SpedFiscal o campo 17 VL_ICMS não está sendo gerado. Fui na e na verifiquei que estava faltando a linha para a inclusão deste campo. Ficando a procedure assim: Abraços a todos. Alexandre Krepe.