SpedFiscalAdicionaRegistroC850
Veja também:
Tipo de Retorno
Boolean
Pacote
A função SpedFiscalAdicionaRegistroC850 está defiinida no pacote SpedFiscalAdicionaRegistroC850.pkg.
Para que serve
A função SpedFiscalAdicionaRegistroC850 é usada para fazer a adição de um registro C850 no vetor de registros C850. Ela irá verificar se já existe um registro C850 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 (SpedFiscalAdicionaRegistroC850({vtRegistroC850Adicionar}, ;
(&{vtRegistrosC850}, {bPISCOFINS}, {bExibeErro}, ;
(&{sMsgErro}))) to {bRetorno}
Onde:
- {vtRegistroC850Adicionar} é uma variável do tipo tSpedFiscalRegistroC850 com o novo registro que será adicionado em vtRegistrosC850.
- &{vtRegistrosC850} é uma variável do tipo tSpedFiscalRegistroC850[] que precisa ser passada via referência. Esta variável do tipo array contém todos os registros C850 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_PacotesSpedFiscalAdicionaRegistroC850.pkg
:
:
tSpedFiscalRegistroC850 vtRegistroC850
:
String sMsgErro
:
// Gerando registro C850
Move ITMVFIS.iCST_ICMS to vtRegistroC850.iCST_ICMS
Move ITMVFIS.iCFOP to vtRegistroC850.iCFOP
Move ITMVFIS.nAliq_ICMS to vtRegistroC850.nALIQ_ICMS
Move ITMVFIS.nVl_Opr to vtRegistroC850.nVL_OPR
Move ITMVFIS.nVl_BC_ICMS to vtRegistroC850.nVL_BC_ICMS
Move ITMVFIS.nVl_ICMS to vtRegistroC850.nVL_ICMS
Move ITMVFIS.sCOD_OBS to vtRegistroC850.sCOD_OBS
If (not(SpedFiscalAdicionaRegistroC850(vtRegistroC850, ;
(&vtArquivo.vtBlocoC.vtRegistrosC800[iIndiceC800].vtRegistrosC850), ;
False,True,(&sMsgErro)))) Procedure_Return
Observações
- Para que esta função funcione, todos os registros C850 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“.