SpedFiscalAdicionaRegistroD760

Tipo de Retorno

Boolean

Pacote

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

Para que serve

A função SpedFiscalAdicionaRegistroD760 é usada para fazer a adição de um registro D760 no vetor de registros D760. Ela irá verificar se já existe um registro D760 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 (SpedFiscalAdicionaRegistroD760({vtRegistroD730Adicionar}, (&{vtRegistrosD760}, {bPISCOFINS},{bExibeErro}, ;
      (&{sMsgErro}))) to {bRetorno}

Onde:

  • {vtRegistroD760Adicionar} é uma variável do tipo tSpedFiscalRegistroD760 com o novo registro que será adicionado em vtRegistrosD760.
  • &{vtRegistrosD760} é uma variável do tipo tSpedFiscalRegistroD760[] que precisa ser passada via referência. Esta variável do tipo array contém todos os registros D760 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_PacotesSpedFiscalAdicionaRegistroD760.pkg
:
:
tSpedFiscalRegistroD760 vtRegistroD760  
:
String sMsgErro
:
// Gerando registro D760
Move ITMVFIS.iCST_ICMS   to vtRegistroD760.iCST_ICMS
Move ITMVFIS.iCFOP       to vtRegistroD760.iCFOP
Move ITMVFIS.nALIQ_ICMS  to vtRegistroD760.nALIQ_ICMS
Move ITMVFIS.nVL_OPR     to vtRegistroD760.nVL_OPR
Move ITMVFIS.nVL_BC_ICMS to vtRegistroD760.nVL_BC_ICMS
Move ITMVFIS.nVL_ICMS    to vtRegistroD760.nVL_ICMS
Move ITMVFIS.nVL_RED_BC  to vtRegistroD760.nVL_RED_BC
Move ITMVFIS.sCOD_OBS    to vtRegistroD760.sCOD_OBS

If (not(SpedFiscalAdicionaRegistroD760(vtRegistroD760, (&vtArquivo.vtBlocoD.vtRegistrosD760[0].vtRegistrosD760), ;
    False,True,(&sMsgErro))))

Observações

  • Para que esta função funcione, todos os registros D760 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".