- 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 SpedFiscalPisCofinsAdicionaRegistro0190 está defiinida no pacote SpedFiscalPisCofinsAdicionaRegistro0190.pkg.
A função SpedFiscalPisCofinsAdicionaRegistro0190 é usada para fazer a adição de um registro 0190 no vetor de registros 0190. Ela irá verificar se já existe um registro 0190 com o mesmo valor de campo sUNID. Se não houver, irá acrescentar o novo registro no array. Se já existir, não fará nada.
Move (SpedFiscalPisCofinsAdicionaRegistro0190({vtRegistro0190Adicionar}, ;
(&{vtRegistros0190}, {bPISCOFINS}, {bExibeErro}, ;
(&{sMsgErro}))) to {bRetorno}
Onde:
Use SpedFiscalLibrary_PacotesSpedFiscalPisCofinsAdicionaRegistro0190.pkg
:
:
tSpedFiscalPisCofinsRegistro0190 vtRegistro0190
:
tSpedFiscalPisCofinsRegistro0190 vtRegistro0190
:
:Move "ZZZZZZZZZZZZZZ" to SpedPart.sCNPJ_CPF
Move ItNota.sUnidade to vtRegistro0190.sUNID Move Produto.sDescricao to vtRegistro0190.sDESCR
If (not(SpedFiscalPisCofinsAdicionaRegistro0190(vtRegistro0190, ;
(&vtArquivo.vtBloco0.vtRegistros0190), ;
False,True,(&sMsgErro)))) Function_Return False
O exemplo acima contém particularidades específicas do sistema onde foi implementado para chegar à informação desejada. O objetivo do exemplo é mostrar o preenchimento da estrutura vtRegistro0190 e a chamada da função.
2017, ACRONSOFT Gestão da Informação. Todos os direitos reservados.