FM SOLUÇÕES - (31) 3761-3490
Seja bem vindo ao Fórum FM Soluções!!

Aqui você poderá postar suas dúvidas, experiências e ainda baixar e postar roteiros e tutoriais não oficiais sobre os módulos da RM Sistemas.

E ainda, conhecer um pouco sobre os nossos produtos e serviços!!!
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Últimos assuntos
» Relatorio Rm reports / Holerite salario
Ter 18 Out 2016 - 8:09 por Gárgio

» DEFAULT NO CADASTRO DE FUNCIONARIOS RM LABORE
Sex 7 Out 2016 - 21:51 por mpsbrasilia

» Duvida RM Labore - Calculo Folha de Pagamento
Seg 12 Set 2016 - 15:51 por RIVALDO PAES

» Exportar Imagem do banco de dados SQL SERVER
Qui 28 Jul 2016 - 11:42 por edivan

» Consulta SQL
Qui 10 Set 2015 - 11:32 por evertonerp

» Existe Algum Demo do RM Labore???
Sex 17 Abr 2015 - 11:53 por fmsolucoes

» RM BIBLIOS
Seg 16 Fev 2015 - 7:50 por fmsolucoes

» Identificação do Tipo de Renegociação de Aditivo (SGI)
Ter 26 Ago 2014 - 9:13 por VM Simoes

» Conexão com o banco de dados.
Seg 4 Ago 2014 - 20:44 por Juscelio

Galeria


Navegação
 Portal
 Índice
 Membros
 Perfil
 FAQ
 Buscar
Parceiros & Clientes FM Soluções

Alterando uma NF com Lançamentos no Fluxus e no Saldus

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Alterando uma NF com Lançamentos no Fluxus e no Saldus

Mensagem por fmsolucoes em Qua 6 Jan 2010 - 14:08

Lendo um blog recentemente, encontrei esta dica do analista Walter Chagas Jr. no endereço: http://delphitocorporerm.blogspot.com/2008/01/alterando-uma-nota-fiscal-com.html, não sei se ele ainda continua atualizando o blog, mas achamos muito interessante e por isso, estamos postando aqui.

Alterando uma nota fiscal com lançamentos no Fluxus e no Saldus
Eu uso este script:

DECLARE @iIDMOV INT;
DECLARE @fVALOR FLOAT;
DECLARE @iCODFILIAL INT;
DECLARE @iALIQUOTA FLOAT;
DECLARE @dDATAEMISSAO DATETIME;
DECLARE @iPRECOUNITARIO FLOAT;

SET @fVALOR = 580.3900
SET @iCODFILIAL = 17;
SET @dDATAEMISSAO = '05/18/2007'
SET @iIDMOV = (select IDMOV from TMOV where numeromov = '027856' and codfilial = @iCODFILIAL and codtmv = '2.1.16');
SET @iALIQUOTA = 2;
SET @iPRECOUNITARIO = 22.2568;

update TMOV set VALORBRUTO = @fVALOR, VALORLIQUIDO = @fVALOR, VALOROUTROS = @fVALOR, VALORBRUTOINTERNO = @fVALOR where codfilial = @iCODFILIAL and idmov = @iIDMOV
update TMOV set CAMPOLIVRE1 = substring(campolivre1, 1, 13) + substring(replace(convert(varchar(10), @iALIQUOTA), '.', ','), 1, 4) + '%' + substring(campolivre1, 17, 20) where IDMOV = @iIDMOV and campolivre1 like '%ISS%'
update TTRBMOV set BASEDECALCULO = @fVALOR, BASEDECALCULOCALCULADA = @fVALOR, ALIQUOTA = @iALIQUOTA, VALOR = (@fVALOR * (ALIQUOTA / 100)) where IDMOV = @iIDMOV
update TITMMOV set VALORTOTALITEM = @fVALOR, PRECOUNITARIO = @iPRECOUNITARIO where IDMOV = @iIDMOV AND NSEQITMMOV = 1
update TMOVRATDEP set VALOR = @fVALOR where CODFILIAL = @iCODFILIAL and IDMOV = @iIDMOV
update TMOVRESUMOTRBIT set VALOR = @fVALOR WHERE IDMOV = @iIDMOV
update FLAN set VALORORIGINAL = @fVALOR, VALORCHEQUE = @fVALOR, VALOROP3 = (@fVALOR * (ALIQUOTA / 100)) where IDMOV = @iIDMOV
update FLAN set VALOROP2 = (@fVALOR * .055) Where IDMOV = @iIDMOV
update FLANCONT set VALOR = @fVALOR where IDLAN in (Select IDLAN from FLAN where IDMOV = @iIDMOV)
update FLANRATCCU set VALOR = @fVALOR where IDLAN in (Select 7DLAN from FLAN where IDMOV = @iIDMOV)
update FLANRATDEP set VALOR = @fVALOR where IDLAN in (Select IDLAN from FLAN where IDMOV = @iIDMOV)
update CLCTLOTE set VALOR = @fVALOR WHERE LCTREF IN (SELECT LCTREF FROM TMOVCONT WHERE IDMOV = @iIDMOV)

fmsolucoes
Admin

Mensagens : 292
Pontos : 612
Data de inscrição : 17/07/2009
Idade : 38
Localização : Conselheiro Lafaiete

Ver perfil do usuário http://www.fmsolucoeserp.com.br

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum