SpedFiscalAdicionaRegistroC190

Tipo de Retorno

Boolean

Pacote

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

Para que serve

A função SpedFiscalAdicionaRegistroC190 é usada para fazer a adição de um registro C190 no vetor de registros C190. Ela irá verificar se já existe um registro C190 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.

Sintaxe

Move (SpedFiscalAdicionaRegistroC190({vtRegistroC190Adicionar}, ;
    (&{vtRegistrosC190}, {bPISCOFINS}, {bExibeErro}, ;
    (&{sMsgErro}))) to {bRetorno}

Onde:

• {vtRegistroC190Adicionar} é uma variável do tipo tSpedFiscalRegistroC190 com o novo registro que será adicionado em vtRegistrosC190.
• &{vtRegistrosC190} é uma variável do tipo tSpedFiscalRegistroC190[] que precisa ser passada via referência. Esta variável do tipo array contém todos os registros C190 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_PacotesSpedFiscalAdicionaRegistroC190.pkg
:
:
tSpedFiscalRegistroC190 vtRegistroC190  
:
String sMsgErro
:
// Gerando registro C190
Move ITMVFIS.iCST_ICMS to vtRegistroC190.iCST_ICMS
Move ITMVFIS.iCFOP to vtRegistroC190.iCFOP
Move ITMVFIS.nAliq_ICMS to vtRegistroC190.nALIQ_ICMS
Move (ITMVFIS.nVl_IPI + ITMVFIS.nVl_ICMS_ST + ITMVFIS.nVl_Item + ;
    ITMVFIS.nVL_DESP_AC) to vtRegistroC190.nVL_OPR
Move ITMVFIS.nVl_BC_ICMS to vtRegistroC190.nVL_BC_ICMS
Move ITMVFIS.nVl_ICMS to vtRegistroC190.nVL_ICMS
Move ITMVFIS.nVl_BC_ICMS_ST to vtRegistroC190.nVL_BC_ICMS_ST
Move ITMVFIS.nVl_ICMS_ST to vtRegistroC190.nVL_ICMS_ST

Move (vtRegistroC190.nVL_OPR – vtRegistroC190.nVL_BC_ICMS) to vtRegistroC190.nVL_RED_BC

If (vtRegistroC190.nVL_RED_BC < 0) Move 0 to vtRegistroC190.nVL_RED_BC

Move ITMVFIS.nVl_IPI to vtRegistroC190.nVL_IPI
Move ITMVFIS.sCOD_OBS to vtRegistroC190.sCOD_OBS

If (not(SpedFiscalAdicionaRegistroC190(vtRegistroC190, ;
(&vtArquivo.vtBlocoC.vtRegistrosC190),False,True,(&sMsgErro)))) Procedure_Return

Observações

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