- 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 SpedFiscalAdicionaRegistroD730 está defiinida no pacote SpedFiscalAdicionaRegistroD730.pkg.
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
Move (SpedFiscalAdicionaRegistroD730({vtRegistroD730Adicionar}, (&{vtRegistrosD730}, {bPISCOFINS}, ;
{bExibeErro}, (&{sMsgErro}))) to {bRetorno}
Onde:
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))))
2017, ACRONSOFT Gestão da Informação. Todos os direitos reservados.