01. DADOS GERAIS
Produto: | TOTVS Distribuição e Varejo |
---|---|
Linha de Produto: | Linha Winthor |
Segmento: | Distribuição |
Módulo: | 40 - Tributação |
Função: | Cadastro CEST |
País: | Brasil |
Ticket: | 16156707 |
Requisito/Story/Issue: | DDFISCAL-21414 |
02. SITUAÇÃO/REQUISITO
Requisito: criar um serviço que validará se o NCM existe na tabela PCCESTPRODUTOCOM A PCCEST
Se retornar verdadeiro, retornar a mensagem abaixo:
"Este NCM possui vínculo com CEST. Ao efetuar esta alteração o vinculo será perdido e, caso necessário, deve-se refazer o vínculo na Rotina 4004."
Se retornar falso, não apresentar nenhuma mensagem.
03. SOLUÇÃO
PACOTES
Criado serviço: Winthor.Fiscal.Produto.ExisteVinculoCest
Parâmetros: Código Produto e NBM
Para edição do NCM cadastro produto rotina 203 e/ ou rotina 271:var vParametros: RFis_ProdNBM;
vParametros.CodProd := 5; <- Código produto sendo alterado
vParametros.NBM := '19023000'; <- Codigo NBM (PCPRODUT.NBM) sendo alteradoChamada:
if Winthor.Fiscal.Produto.ExisteVinculoCest(vParametros) then
begin**Verdadeiro: Não pode ser alterado pois existe vinculado do Produto/NBM na rotina 4004, mensagem no retorno.
vParametros.Retorno.Msg;
end
else
begin**Falso: Não existe vinculo, pode alterar.
end;
04. DEMAIS INFORMAÇÕES
Importante!
As versões estarão disponíveis para download no CCW.
https://centraldecontrole.pcinformatica.com.br/
Mantenha suas rotinas sempre atualizadas!
05. ASSUNTOS RELACIONADOS