SpedFiscalAdicionaRegistroD730

Tipo de Retorno

Boolean

Pacote

A função SpedFiscalAdicionaRegistroD730 está defiinida no pacote SpedFiscalAdicionaRegistroD730.pkg.

Para que serve

A função SpedFiscalAdicionaRegistroD730 é usada para fazer a adição de um registro D730 no vetor de registros D730. Ela irá verificar se já existe um registro D730 com o mesmo combinação de campos CST_ICMS, CFOP e ALIQ_ICMS. Se houver, ela irá somar os valores passados no registro existente e se não houver, irá acrescentar o novo registro no array. No caso do campo COD_OBS, será atualizado desde que o conteúdo informado não

Sintaxe

Move (SpedFiscalAdicionaRegistroD730({vtRegistroD730Adicionar}, (&{vtRegistrosD730}, {bPISCOFINS}, ;
     {bExibeErro}, (&{sMsgErro}))) to {bRetorno}

Onde:

  • {vtRegistroD730Adicionar} é uma variável do tipo tSpedFiscalRegistroD730 com o novo registro que será adicionado em vtRegistrosD730.
  • &{vtRegistrosD730} é uma variável do tipo tSpedFiscalRegistroD730[] que precisa ser passada via referência. Esta variável do tipo array contém todos os registros D730 já acrescentados na estrutura do arquivo que está sendo gerado.
  • {bPISCOFINS} é usado para indicar para a função qual é o tipo de arquivo que deve ser gerado:
    • True: será gerado o arquivo do EFD-Contribuições.
    • False: será gerado o arquivo do Sped Fiscal.
  • {bExibeErro} é usado para indicar se a função deve exibir ou não os erros que ocorrerem na execução.
  • &{sMsgErro} é uma variável do tipo String que precisa ser passada via referência. No caso de ocorrer algum erro durante a execução a função devolverá nesta variável a mensagem do erro ocorrido.
  • {bRetorno} indica se a função foi executada com sucesso (True) ou não (False).

Exemplo

Use SpedFiscalLibrary_PacotesSpedFiscalAdicionaRegistroD730.pkg
:
:
tSpedFiscalRegistroD730 vtRegistroD730  
:
String sMsgErro
:
// Gerando registro D730
Move ITMVFIS.iCST_ICMS   to vtRegistroD730.iCST_ICMS
Move ITMVFIS.iCFOP       to vtRegistroD730.iCFOP
Move ITMVFIS.nALIQ_ICMS  to vtRegistroD730.nALIQ_ICMS
Move ITMVFIS.nVL_OPR     to vtRegistroD730.nVL_OPR
Move ITMVFIS.nVL_BC_ICMS to vtRegistroD730.nVL_BC_ICMS
Move ITMVFIS.nVL_ICMS    to vtRegistroD730.nVL_ICMS
Move ITMVFIS.nVL_RED_BC  to vtRegistroD730.nVL_RED_BC
Move ITMVFIS.sCOD_OBS    to vtRegistroD730.sCOD_OBS

If (not(SpedFiscalAdicionaRegistroD730(vtRegistroD730, (&vtArquivo.vtBlocoD.vtRegistrosD730[0].vtRegistrosD730), ;
   False,True,(&sMsgErro))))

Observações

  • Para que esta função funcione, todos os registros D730 devem ser adicionados através de sua utilização.
  • Veja mais detalhes sobre o processo completo de geração do arquivo em "Gerando o arquivo".