- conheça também:
- acronsoft
- acrondesign
DeveloperFlex - Soluções para Desenvolvedores Visual DataFlex
contato@developerflex.com.br | (55 11) 4378-1115
veja também:
Boolean
A função SpedFiscalAdicionaRegistroC850 está defiinida no pacote SpedFiscalAdicionaRegistroC850.pkg.
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.
Move (SpedFiscalAdicionaRegistroC850({vtRegistroC850Adicionar}, ;
(&{vtRegistrosC850}, {bPISCOFINS}, {bExibeErro}, ;
(&{sMsgErro}))) to {bRetorno}
Onde:
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
2017, ACRONSOFT Gestão da Informação. Todos os direitos reservados.