/******-------------------------------******-------------------/--
Garantir preo a vista para OS cadastradas sem contratos: --alter
table [TITMMOV] disable trigger [TITMMOV_DESCSUPLEMENTO]
/******-------------------------------******-------------------/
CREATE TRIGGER [dbo].[TITMMOV_PRECOAVISTA] ON [dbo].[TITMMOV]
FOR INSERT,UPDATE AS DECLARE @IDCNT INT ,@COLIGADA VARCHAR(1)
,@IDMOV INT ,@IDPRD INT ,@VALOR DECIMAL(10,4) SELECT @IDCNT = IDCNT
,@COLIGADA = CODCOLIGADA ,@IDMOV = IDMOV ,@IDPRD = IDPRD FROM
INSERTED SELECT @VALOR = PRECO1 FROM TPRODUTODEF WHERE IDPRD =
@IDPRD AND CODCOLIGADA = @COLIGADA IF @IDCNT IS NULL AND @COLIGADA
= 3 BEGIN UPDATE TITMMOV SET PRECOUNITARIOSELEC = 1, VALORTOTALITEM
= @VALOR WHERE IDMOV = @IDMOV AND CODCOLIGADA = @COLIGADA AND IDPRD
= @IDPRD END
---------------------------[Fim]-------------------------
****** Object: Trigger [dbo].[TMOV_FRETETCNT] Script Date:
05/02/2014 13:34:38 ******/-- HELIOMAR-- Trigeer utilizada para
inser o frete do contrao nos --adiantamentos;--Devero Ser
considerados os dados includos:-- 1- Campos complementares da
Cli/For-- 2- Percentual a ser aplicado, campos complementares do --
contrato
/******-------------------------------******-------------------/
CREATE TRIGGER [dbo].[TMOV_FRETETCNT] ON [dbo].[TMOV] FOR INSERT AS
BEGIN DECLARE @IDMOV INT DECLARE @CODTMV VARCHAR (10) DECLARE
@PAGA_FRETE VARCHAR (1) DECLARE @PAGA_CIF VARCHAR (1) DECLARE
@FRETE_TCNT DECIMAL(9,4) DECLARE @CIF DECIMAL(9,4) SELECT @IDMOV =
A.IDMOV, @CODTMV = E.CODTMV, @FRETE_TCNT = G.FRETE, @CIF = G.CIFF,
@PAGA_FRETE = H.PAGA_FRETE, @PAGA_CIF = H.PAGA_CIF FROM INSERTED A
JOIN TMOV E ON (E.CODCOLIGADA = A.CODCOLIGADA AND E.IDMOV =
A.IDMOV) JOIN FCFO B ON (B.CODCOLIGADA = E.CODCOLIGADA AND B.CODCFO
= E.CODCFO) JOIN TCNT F ON (B.CODCOLIGADA = F.CODCOLIGADA AND
B.CODCFO = F.CODCFO) JOIN TCNTCOMPL G ON (F.CODCOLIGADA =
G.CODCOLIGADA AND F.IDCNT = G.IDCNT) JOIN FCFOCOMPL H ON
(B.CODCOLIGADA = H.CODCOLIGADA AND B.CODCFO = H.CODCFO) SET
@FRETE_TCNT = (CASE WHEN @FRETE_TCNT > 0 THEN @FRETE_TCNT ELSE
'0.00' END) SET @CIF = (CASE WHEN @CIF > 0 THEN @CIF ELSE '0.00'
END) SET @FRETE_TCNT = CAST (@FRETE_TCNT as decimal(9,4)) SET @CIF
= CAST (@CIF as decimal(9,4)) IF @CODTMV = '2.2.22' AND @PAGA_FRETE
= 'S' BEGIN UPDATE TMOV SET PERCENTUALFRETE = @FRETE_TCNT ,
FRETECIFOUFOB = 2 FROM TMOV WHERE IDMOV = @IDMOV END ELSE IF
@CODTMV = '2.2.22' AND @PAGA_CIF = 'S' BEGIN UPDATE TMOV SET
PERCENTUALFRETE = @CIF , FRETECIFOUFOB = 1 FROM TMOV WHERE IDMOV =
@IDMOV END END
---------------------------------------------------------------------------------
Heliomar 02/05/2014.-- O objetivo dessa contorno uma limitao da
rotina de medio, na qual ao -- cancelar uma medio no conseguirar
criar uma nova.-- Soluo do gatilho: Ao cancelar o movimento, a
medio assumir o Status=2 --- No Fatura e Qauntidade ser zerada,--
Permitindo assim que se possa inserir nova
medio.-------------------------------------------------------------------------------
IF EXISTS (SELECT name FROM sysobjects WHERE name =
'TRG_NAOFATrec' AND TYPE = 'TR') DROP TRIGGER TRG_NAOFATRECGO
CREATE TRIGGER [dbo].[TRG_NAOFATrec] ON [dbo].[Tmov] after UPDATE
AS SET NOCOUNT ON IF UPDATE (status) BEGIN UPDATE
dbo.TITMCNTMEDICAO SET TITMCNTMEDICAO.quantidade = 0,
TITMCNTMEDICAO.STATUS=2 FROM TITMCNTMEDICAO P JOIN TITMMOV A ON
(P.CODCOLIGADA=A.CODCOLIGADA AND P.IDCNT=A.IDCNT AND
P.NSEQITMCNT=A.NSEQITMCNT AND P.NSEQMEDICAO=A.NSEQITMCNTMEDICAO)
JOIN inserted M ON (A.CODCOLIGADA=M.CODCOLIGADA AND
A.IDMOV=M.IDMOV) END
---------------------------[Fim]-------------------------
-- HELIOMAR 08/05/2014-- ATUALIZAR DATA PREVISO DE
ENTREGA---------------------------------------------------------
USE [Corpore12032014]GO/****** Object: Trigger
[dbo].[TRG_PREVISAO_ENTREGA] Script Date: 04/09/2014 15:35:47
******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOIF EXISTS
(SELECT NAME FROM sysobjects WHERE name = 'TRG_PREVISAO_ENTREGA'
AND TYPE = 'TR') DROP TRIGGER TRG_PREVISAO_ENTREGAGO
CREATE TRIGGER [dbo].[TRG_PREVISAO_ENTREGA] ON [dbo].[TMOV] FOR
INSERT AS BEGIN DECLARE @IDMOV INT ,@CODTMV VARCHAR (10)
,@DATAEMISSAO DATETIME ,@DATASAIDA DATETIME ,@DATAENTREGA DATETIME
,@PREVISAO INT ,@DIAS_ENTREGA INT ,@CODCOLIGADA INT ,@CIDADE
VARCHAR(20) ,@UF VARCHAR(2) ,@MEIOTRANSP VARCHAR(1) SET
@DIAS_ENTREGA = 0 SELECT @IDMOV = A.IDMOV, @CODTMV = A.CODTMV,
@DATAEMISSAO = A.DATAEMISSAO, @DATASAIDA = A.DATASAIDA,
@DATAENTREGA = A.DATAENTREGA, @DIAS_ENTREGA = B.CAMPOALFAOP2,
@CODCOLIGADA = B.CODCOLIGADA, @CIDADE = B.CIDADE, @UF = B.CODETD,
@MEIOTRANSP = A.CODVIATRANSPORTE FROM INSERTED A JOIN FCFO B ON
(B.CODCOLIGADA = A.CODCOLIGADA AND B.CODCFO = A.CODCFO) JOIN TCNT F
ON (B.CODCOLIGADA = F.CODCOLIGADA AND B.CODCFO = F.CODCFO) JOIN
TCNTCOMPL G ON (F.CODCOLIGADA = G.CODCOLIGADA AND F.IDCNT =
G.IDCNT) IF @MEIOTRANSP IN(1,6) AND @DATAENTREGA = @DATAEMISSAO
BEGIN SELECT @DIAS_ENTREGA = ( SELECT
ROUND(CAST(SUM(CAST(DATEDIFF(DAY,DATASAIDA,TC.DATAENTREGA)AS
DECIMAL(10,2))) / COUNT(*) AS DECIMAL(10,2)),0) AS T_DIAS FROM TMOV
T LEFT JOIN FCFO F ON T.CODCOLIGADA = F.CODCOLIGADA AND T.CODCFO =
F.CODCFO JOIN TMOVCOMPL TC ON TC.CODCOLIGADA = T.CODCOLIGADA AND
TC.IDMOV = T.IDMOV WHERE CODVIATRANSPORTE IS NOT NULL AND
DATAEMISSAO BETWEEN DATEADD(MONTH,-12 ,@DATASAIDA) AND @DATASAIDA
AND F.CIDADE = @CIDADE AND F.CODETD = @UF AND CODVIATRANSPORTE =
@MEIOTRANSP AND TC.DATAENTREGA IS NOT NULL AND T.DATASAIDA 1)
DELETE FROM TITMCNTADITIVO WHERE CODCOLIGADA=@CODCOLIGADA AND
IDCNT=@IDCNT AND NSEQITMCNT=@NSEQITMCNT AND
NSEQADITIVO=@NSEQADITIVO END --BUXO A PARTIR DAQUI IF EXISTS(
SELECT 1 FROM TITMCNTMEDICAO M WHERE M.IDCNT = @IDCNT AND
M.NSEQITMCNT = @NSEQITMCNT AND M.CODCOLIGADA = @CODCOLIGADA AND
M.STATUS = 0 ) BEGIN ---fim condio de update --- --INSERT INTO
TITMCNTMEDICAO_DEBUG -- SELECT * FROM TITMCNTMEDICAO M -- WHERE
M.IDCNT = @IDCNT -- AND M.NSEQITMCNT = @NSEQITMCNT -- AND
M.CODCOLIGADA = @CODCOLIGADA -- AND M.STATUS = 0 --Deletar Medio
existente DELETE TITMCNTMEDICAO WHERE IDCNT = @IDCNT AND NSEQITMCNT
= @NSEQITMCNT AND CODCOLIGADA = @CODCOLIGADA and STATUS=0 and
NSEQMEDICAO = (select MAX(NSEQMEDICAO) from TITMCNTMEDICAO m where
m.IDCNT = TITMCNTMEDICAO.idcnt and m.NSEQITMCNT =
TITMCNTMEDICAO.NSEQITMCNT and m.CODCOLIGADA =
TITMCNTMEDICAO.CODCOLIGADA) END IF EXISTS (SELECT * FROM DELETED)
BEGIN --RAISERROR ('Delete', 16, 2) SELECT @CODCOLIGADA =
CODCOLIGADA, @IDCNT = IDCNT, @NSEQITMCNT = NSEQITMCNT, @DATA =
DATA, @VALOR = 0, @EFEITOADITIVO = EFEITOADITIVO FROM DELETED
DELETE TITMCNTMEDICAO WHERE IDCNT = @IDCNT AND NSEQITMCNT =
@NSEQITMCNT AND CODCOLIGADA = @CODCOLIGADA and STATUS=0 END --
Varivel da quantidade do item do contrato SET @QTDE_CTR = (SELECT
isnull(I.QUANTIDADE,0)+(SELECT isnull(SUM(M.VALOR),0) FROM
TITMCNTADITIVO M WHERE M.IDCNT = I.IDCNT AND M.NSEQITMCNT
=I.NSEQITMCNT AND M.CODCOLIGADA = I.CODCOLIGADA AND
M.EFEITOADITIVO='A')- (SELECT isnull(SUM(M.VALOR ),0) FROM
TITMCNTADITIVO M WHERE M.IDCNT = I.IDCNT AND M.NSEQITMCNT
=I.NSEQITMCNT AND M.CODCOLIGADA = I.CODCOLIGADA AND
M.EFEITOADITIVO='D') FROM TITMCNT I WHERE I.CODCOLIGADA =
@CODCOLIGADA AND I.IDCNT = @IDCNT AND I.NSEQITMCNT = @NSEQITMCNT)
-- Varivel da quantidade do item da Medio, qaundo Faturada. SET
@QTDE_FAT = (SELECT isnull(SUM(M.QUANTIDADE),0) FROM TITMCNTMEDICAO
M WHERE M.IDCNT = @IDCNT AND M.NSEQITMCNT = @NSEQITMCNT AND
M.CODCOLIGADA = @CODCOLIGADA AND M.STATUS = 1) IF ( (@QTDE_CTR -
@QTDE_FAT)> 0 AND @EFEITOADITIVO = 'A') BEGIN --RAISERROR
(@chave,16, 2) INSERT INTO
TITMCNTMEDICAO(CODCOLIGADA,IDCNT,NSEQITMCNT,NSEQMEDICAO,STATUS,DATA,VALOR,QUANTIDADE,DATAEXECUCAO,CODMUNSERVICO,CODETDMUNSERV,CODIGOSERVICO,RECCREATEDBY,RECCREATEDON,RECMODIFIEDBY,RECMODIFIEDON)
SELECT top 1 @CODCOLIGADA, @IDCNT, @NSEQITMCNT, (SELECT
ISNULL(MAX(NSEQMEDICAO),0) + 1 FROM TITMCNTMEDICAO where IDCNT =
@IDCNT AND CODCOLIGADA = @CODCOLIGADA ), -- AND NSEQITMCNT =
@NSEQITMCNT , 0 AS STATUS, @DATA, I.PRECO AS VALOR, ((@QTDE_CTR -
@QTDE_FAT))AS QUANTIDADE, NULL AS DATAEXECUCAO, NULL AS
CODMUNSERVICO, NULL AS CODETDMUNSERV, NULL AS CODIGOSERVICO,
I.RECCREATEDBY, I.RECCREATEDON, I.RECMODIFIEDBY, I.RECMODIFIEDON
FROM TITMCNT I WHERE I.IDCNT = @IDCNT AND I.NSEQITMCNT =
@NSEQITMCNT AND I.CODCOLIGADA = @CODCOLIGADA END ELSE BEGIN
--Verificar se o o ativo a se inserido maior que Zero IF (@QTDE_CTR
- @QTDE_FAT) > 0 BEGIN INSERT INTO
TITMCNTMEDICAO(CODCOLIGADA,IDCNT,NSEQITMCNT,NSEQMEDICAO,STATUS,DATA,VALOR,QUANTIDADE,DATAEXECUCAO,CODMUNSERVICO,CODETDMUNSERV,CODIGOSERVICO,RECCREATEDBY,RECCREATEDON,RECMODIFIEDBY,RECMODIFIEDON)
SELECT top 1 @CODCOLIGADA ,@IDCNT ,@NSEQITMCNT ,(SELECT
ISNULL(MAX(NSEQMEDICAO),0)+1 FROM TITMCNTMEDICAO where CODCOLIGADA
= @CODCOLIGADA AND IDCNT = @IDCNT ) AS 'NSEQITMCNT' ,0 AS STATUS
,DATA ,I.PRECO AS VALOR ,(@QTDE_CTR - @QTDE_FAT) QUANTIDADE ,NULL
AS DATAEXECUCAO ,NULL AS CODMUNSERVICO ,NULL AS CODETDMUNSERV ,NULL
AS CODIGOSERVICO
,M.RECCREATEDBY,M.RECCREATEDON,M.RECMODIFIEDBY,M.RECMODIFIEDON FROM
TITMCNTADITIVO M JOIN TITMCNT I ON(M.CODCOLIGADA =I.CODCOLIGADA AND
M.IDCNT = I.IDCNT AND M.NSEQITMCNT = I.NSEQITMCNT) WHERE M.IDCNT =
@IDCNT AND M.NSEQITMCNT = @NSEQITMCNT AND M.CODCOLIGADA =
@CODCOLIGADA END END
---------------------------[Fim]-------------------------
-----------------------------------------------------------------------------------------------------------
-- Heliomar -- Trigger criarda para retornar o valor correto do
frete por cidades -- Alternativa usada pois o valor era digitado
manualmente , con auxilio de consulta a uma tabela excel
------------------------------------------------------------------------------------------------------------
CREATE TRIGGER [dbo].[TMOVCOMPL_FRETE] ON [dbo].[TMOVCOMPL] FOR
INSERT AS BEGIN DECLARE @IDMOV INT DECLARE @CODETD VARCHAR (2)
DECLARE @CIDADE VARCHAR (10) DECLARE @PAGA_FRETE VARCHAR (1)
DECLARE @TPENVIO VARCHAR (2) --//Define se o pedido principal 01 ou
complementar 03 DECLARE @PERCFRETE decimal (9,4) DECLARE @CODTMV
VARCHAR (10) DECLARE @CODCFO VARCHAR (25) DECLARE @CODCOLIGADA INT
SET @PERCFRETE = 0 SELECT @IDMOV = A.IDMOV, @CODETD = B.CODETD,
@CIDADE = B.CIDADE, @PAGA_FRETE = C.PAGA_FRETE, @TPENVIO =
D.TPENVIO, @CODTMV = E.CODTMV, @CODCOLIGADA = A.CODCOLIGADA
--B.CODETD, B.CIDADE, C.PAGA_FRETE, D.TPENVIO, * FROM INSERTED A
JOIN TMOV E ON (E.CODCOLIGADA = A.CODCOLIGADA AND E.IDMOV =
A.IDMOV) JOIN FCFO B ON (B.CODCOLIGADA = E.CODCOLIGADA AND B.CODCFO
= E.CODCFO) JOIN FCFOCOMPL C ON (C.CODCOLIGADA = B.CODCOLIGADA AND
C.CODCFO = B.CODCFO) JOIN TMOVCOMPL D ON (D.CODCOLIGADA =
E.CODCOLIGADA AND D.IDMOV = E.IDMOV) IF @CODCOLIGADA = 3 BEGIN SET
@CODCFO = (SELECT CODCFO FROM TMOV WHERE IDMOV = @IDMOV) SET
@PERCFRETE = ( CASE --------- Regras p/Clculos do Estado do
CEAR----------- WHEN @CODETD ='CE' AND @CIDADE in('Fortaleza'
,'Aquiraz','Cascavel','Caucaia','Chorozinho','Eusbio','Fortaleza','Guaiba','Horizonte','Itaitinga','Maracana','Maranguape','Pacajus','Pacatuba','Pindoretama','So
Gonalo do Amarante') AND @PAGA_FRETE = 'S' AND @TPENVIO = '01' AND
@CODCFO NOT
IN('101109','101110','101111','102132','102133','102134','103873')
THEN '1.20' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL WHEN @CODETD
='CE' AND @CIDADE in('Fortaleza'
,'Aquiraz','Cascavel','Caucaia','Chorozinho','Eusbio','Fortaleza','Guaiba','Horizonte','Itaitinga','Maracana','Maranguape','Pacajus','Pacatuba','Pindoretama','So
Gonalo do Amarante') AND @PAGA_FRETE IN('N','S') AND @TPENVIO =
'03' AND @CODCFO NOT
IN('101109','101110','101111','102132','102133','102134','103873')
THEN '1.20' --//CODIO CAPITAL P/ PEDIDO COMPLEMENTAR WHEN @CODETD
='CE' AND @CIDADE not in('Fortaleza'
,'Aquiraz','Cascavel','Caucaia','Chorozinho','Eusbio','Fortaleza','Guaiba','Horizonte','Itaitinga','Maracana','Maranguape','Pacajus','Pacatuba','Pindoretama','So
Gonalo do Amarante') AND @PAGA_FRETE ='S' AND @TPENVIO = '01' AND
@CODCFO NOT
IN('101109','101110','101111','102132','102133','102134','103873')
THEN '1.50' --//CODIO DEMAIS CIDADE DO CE P/ PEDIDO PRINCIPAL WHEN
@CODETD ='CE' AND @CIDADE not in('Fortaleza'
,'Aquiraz','Cascavel','Caucaia','Chorozinho','Eusbio','Fortaleza','Guaiba','Horizonte','Itaitinga','Maracana','Maranguape','Pacajus','Pacatuba','Pindoretama','So
Gonalo do Amarante') AND @PAGA_FRETE IN('N','S') AND @TPENVIO =
'03' AND @CODCFO NOT
IN('101109','101110','101111','102132','102133','102134','103873')
THEN '1.50' --//CODIO DEMAIS CIDADE DO CE P/ PEDIDO COMPLEMENTAR
WHEN @CODCFO = '103873' THEN '1.20' --------- Regras p/Clculos do
Estado do ACRE----------- WHEN @CODETD ='AC' AND @CIDADE = 'Rio
Branco' AND @PAGA_FRETE = 'S' AND @TPENVIO = '01' THEN '8.50'
--//CODIO CAPITAL P/ PEDIDO PRINCIPAL WHEN @CODETD ='AC' AND
@CIDADE = 'Rio Branco' AND @PAGA_FRETE IN('N','S') AND @TPENVIO =
'03' THEN '8.50' --//CODIO CAPITAL P/ PEDIDO COMPLEMENTAR WHEN
@CODETD ='AC' AND @CIDADE 'Rio Branco' AND @PAGA_FRETE ='S' AND
@TPENVIO = '01' THEN '10.0' --//CODIO DEMAIS CIDADE DO AC P/ PEDIDO
PRINCIPAL WHEN @CODETD ='AC' AND @CIDADE 'Rio Branco' AND
@PAGA_FRETE IN('N','S') AND @TPENVIO = '03' THEN '10.0' --//CODIO
DEMAIS CIDADE DO AC P/ PEDIDO COMPLEMENTAR --------- Regras
p/Clculos do Estado do ALAGOAS----------- WHEN @CODETD ='AL' AND
@CIDADE in('Macei''Barra de Santo Antnio','Barra de So
Miguel','Coqueiro Seco','Macei','Marechal
Deodoro','Messias','Paripueira','Pilar','Rio Largo','Santa Luzia do
Norte','So Miguel dos Campos','Satuba') AND @PAGA_FRETE = 'S' AND
@TPENVIO = '01' AND @CODCFO '103326' THEN '1.63' --//CODIO CAPITAL
P/ PEDIDO PRINCIPAL WHEN @CODETD ='AL' AND @CIDADE in('Macei''Barra
de Santo Antnio','Barra de So Miguel','Coqueiro
Seco','Macei','Marechal
Deodoro','Messias','Paripueira','Pilar','Rio Largo','Santa Luzia do
Norte','So Miguel dos Campos','Satuba') AND @PAGA_FRETE IN('N','S')
AND @TPENVIO = '03' AND @CODCFO '103326' THEN '1.63' --//CODIO
CAPITAL P/ PEDIDO COMPLEMENTAR WHEN @CODETD ='AL' AND @CIDADE not
in('Macei''Barra de Santo Antnio','Barra de So Miguel','Coqueiro
Seco','Macei','Marechal
Deodoro','Messias','Paripueira','Pilar','Rio Largo','Santa Luzia do
Norte','So Miguel dos Campos','Satuba') AND @PAGA_FRETE ='S' AND
@TPENVIO = '01' AND @CODCFO '103326' THEN '3.49' --//CODIO DEMAIS
CIDADE DO AL P/ PEDIDO PRINCIPAL WHEN @CODETD ='AL' AND @CIDADE not
in('Macei''Barra de Santo Antnio','Barra de So Miguel','Coqueiro
Seco','Macei','Marechal
Deodoro','Messias','Paripueira','Pilar','Rio Largo','Santa Luzia do
Norte','So Miguel dos Campos','Satuba') AND @PAGA_FRETE IN('N','S')
AND @TPENVIO = '03' AND @CODCFO '103326' THEN '3.49' --//CODIO
DEMAIS CIDADE DO AL P/ PEDIDO COMPLEMENTAR WHEN @CODCFO = '103326'
THEN '1.74' --------- Regras p/Clculos do Estado do
AMAZONAS----------- WHEN @CODETD ='AM' AND @CIDADE
in('Manaus','Manaus','Itacoatiara','Manacapuru','Iranduba','Presidente
Figueiredo','Rio Preto da Eva','Careiro da Vrzea','Novo Airo') AND
@PAGA_FRETE = 'S' AND @TPENVIO = '01' THEN '5.52' --//CODIO CAPITAL
P/ PEDIDO PRINCIPAL WHEN @CODETD ='AM' AND @CIDADE
in('Manaus','Manaus','Itacoatiara','Manacapuru','Iranduba','Presidente
Figueiredo','Rio Preto da Eva','Careiro da Vrzea','Novo Airo') AND
@PAGA_FRETE IN('N','S') AND @TPENVIO = '03' THEN '5.52' --//CODIO
CAPITAL P/ PEDIDO COMPLEMENTAR WHEN @CODETD ='AM' AND @CIDADE not
in('Manaus','Manaus','Itacoatiara','Manacapuru','Iranduba','Presidente
Figueiredo','Rio Preto da Eva','Careiro da Vrzea','Novo Airo') AND
@PAGA_FRETE ='S' AND @TPENVIO = '01' THEN '8.00' --//CODIO DEMAIS
CIDADE DO AM P/ PEDIDO PRINCIPAL WHEN @CODETD ='AM' AND @CIDADE not
in('Manaus','Manaus','Itacoatiara','Manacapuru','Iranduba','Presidente
Figueiredo','Rio Preto da Eva','Careiro da Vrzea','Novo Airo') AND
@PAGA_FRETE IN('N','S') AND @TPENVIO = '03' THEN '8.00' --//CODIO
DEMAIS CIDADE DO AM P/ PEDIDO COMPLEMENTAR --------- Regras
p/Clculos do Estado do AMAPA----------- WHEN @CODETD ='AP' AND
@CIDADE = 'Macap' AND @PAGA_FRETE = 'S' AND @TPENVIO = '01' THEN
'6.07' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL WHEN @CODETD ='AP' AND
@CIDADE = 'Macap' AND @PAGA_FRETE IN('N','S') AND @TPENVIO = '03'
THEN '6.07' --//CODIO CAPITAL P/ PEDIDO COMPLEMENTAR WHEN @CODETD
='AP' AND @CIDADE 'Macap' AND @PAGA_FRETE ='S' AND @TPENVIO = '01'
THEN '9.00' --//CODIO DEMAIS CIDADE DO AP P/ PEDIDO PRINCIPAL WHEN
@CODETD ='AP' AND @CIDADE 'Macap' AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' THEN '9.00' --//CODIO DEMAIS CIDADE DO AP P/ PEDIDO
COMPLEMENTAR --------- Regras p/Clculos do Estado do
BAHIA----------- WHEN @CODETD ='BA' AND @CIDADE
in('Salvador','Salvador','Camaari','So Francisco do
Conde','Candeias','Simes Filho','Lauro de Freitas','Dias D
vila','Pojuca','So Sebastio do Pass','Mata de So Joo','Madre de
Deus','Vera Cruz','Itaparica') AND @PAGA_FRETE = 'S' AND @TPENVIO =
'01' AND @CODCFO '102419' THEN '2.46' --//CODIO CAPITAL P/ PEDIDO
PRINCIPAL WHEN @CODETD ='BA' AND @CIDADE
in('Salvador','Salvador','Camaari','So Francisco do
Conde','Candeias','Simes Filho','Lauro de Freitas','Dias D
vila','Pojuca','So Sebastio do Pass','Mata de So Joo','Madre de
Deus','Vera Cruz','Itaparica') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' AND @CODCFO '102419' THEN '2.46' --//CODIO CAPITAL
P/ PEDIDO COMPLEMENTAR WHEN @CODETD ='BA' AND @CIDADE not
in('Salvador','Salvador','Camaari','So Francisco do
Conde','Candeias','Simes Filho','Lauro de Freitas','Dias D
vila','Pojuca','So Sebastio do Pass','Mata de So Joo','Madre de
Deus','Vera Cruz','Itaparica') AND @PAGA_FRETE ='S' AND @TPENVIO =
'01' AND @CODCFO '102419' THEN '3.56' --//CODIO DEMAIS CIDADE DO BA
P/ PEDIDO PRINCIPAL WHEN @CODETD ='BA' AND @CIDADE not
in('Salvador','Salvador','Camaari','So Francisco do
Conde','Candeias','Simes Filho','Lauro de Freitas','Dias D
vila','Pojuca','So Sebastio do Pass','Mata de So Joo','Madre de
Deus','Vera Cruz','Itaparica') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' AND @CODCFO '102419' THEN '3.56' --//CODIO DEMAIS
CIDADE DO BA P/ PEDIDO COMPLEMENTAR --------- Regras p/Clculos do
Estado do DISTRITO FEDERAL----------- WHEN @CODETD ='DF' AND
@CIDADE = 'Braslia' AND @PAGA_FRETE = 'S' AND @TPENVIO
IN('01','03') THEN '3.23' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL OU
COMPLEMENTAR --------- Regras p/Clculos do Estado do ESPIRTO
SANTO----------- WHEN @CODETD ='ES' AND @CIDADE
in('Vitria','Cariacica','Fundo','Guarapari','Serra','Viana','Vila
Velha') AND @PAGA_FRETE = 'S' AND @TPENVIO = '01' AND @CODCFO
'102198' THEN '2.61' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL WHEN
@CODETD ='ES' AND @CIDADE
in('Vitria','Cariacica','Fundo','Guarapari','Serra','Viana','Vila
Velha') AND @PAGA_FRETE IN('N','S') AND @TPENVIO = '03' AND @CODCFO
'102198' THEN '2.61' --//CODIO CAPITAL P/ PEDIDO COMPLEMENTAR WHEN
@CODETD ='ES' AND @CIDADE not
in('Vitria','Cariacica','Fundo','Guarapari','Serra','Viana','Vila
Velha') AND @PAGA_FRETE ='S' AND @TPENVIO = '01' AND @CODCFO
'102198' THEN '4.00' --//CODIO DEMAIS CIDADE DO ES P/ PEDIDO
PRINCIPAL WHEN @CODETD ='ES' AND @CIDADE not
in('Vitria','Cariacica','Fundo','Guarapari','Serra','Viana','Vila
Velha') AND @PAGA_FRETE IN('N','S') AND @TPENVIO = '03' AND @CODCFO
'102198' THEN '4.00' --//CODIO DEMAIS CIDADE DO ES P/ PEDIDO
COMPLEMENTAR WHEN @CODCFO = '102198' THEN '1.54' --------- Regras
p/Clculos do Estado do GOIS----------- WHEN @CODETD ='GO' AND
@CIDADE in('Goinia','Abadia de Gois','Aparecida de
Goinia','Aragoinia','Bela Vista de
Gois','Bonfinpolis','Brazabrantes','Caldazinha','Catura','Goinia','Goianpolis','Goianira','Guap','Hidrolndia','Inhumas','Nerpolis'
,'Nova Veneza','Santo Antnio de Gois','Senador Canedo','Terezpolis
de Gois','Trindade') AND @PAGA_FRETE = 'S' AND @TPENVIO = '01' THEN
'2.79' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL WHEN @CODETD ='GO' AND
@CIDADE in('Goinia','Abadia de Gois','Aparecida de
Goinia','Aragoinia','Bela Vista de
Gois','Bonfinpolis','Brazabrantes','Caldazinha','Catura','Goinia','Goianpolis','Goianira','Guap','Hidrolndia','Inhumas','Nerpolis'
,'Nova Veneza','Santo Antnio de Gois','Senador Canedo','Terezpolis
de Gois','Trindade') AND @PAGA_FRETE IN('N','S') AND @TPENVIO =
'03' THEN '2.79' --//CODIO CAPITAL P/ PEDIDO COMPLEMENTAR WHEN
@CODETD ='GO' AND @CIDADE not in('Goinia','Abadia de
Gois','Aparecida de Goinia','Aragoinia','Bela Vista de
Gois','Bonfinpolis','Brazabrantes','Caldazinha','Catura','Goinia','Goianpolis','Goianira','Guap','Hidrolndia','Inhumas','Nerpo
lis','Nova Veneza','Santo Antnio de Gois','Senador
Canedo','Terezpolis de Gois','Trindade') AND @PAGA_FRETE ='S' AND
@TPENVIO = '01' THEN '4.50' --//CODIO DEMAIS CIDADE DO GO P/ PEDIDO
PRINCIPAL WHEN @CODETD ='GO' AND @CIDADE not in('Goinia','Abadia de
Gois','Aparecida de Goinia','Aragoinia','Bela Vista de
Gois','Bonfinpolis','Brazabrantes','Caldazinha','Catura','Goinia','Goianpolis','Goianira','Guap','Hidrolndia','Inhumas','Nerpo
lis','Nova Veneza','Santo Antnio de Gois','Senador
Canedo','Terezpolis de Gois','Trindade') AND @PAGA_FRETE
IN('N','S') AND @TPENVIO = '03' THEN '4.50' --//CODIO DEMAIS CIDADE
DO GO P/ PEDIDO COMPLEMENTAR --------- Regras p/Clculos do Estado
do MARANHO----------- WHEN @CODETD ='MA' AND @CIDADE in('So
Lus','So Jos de Ribamar','Raposa','Pao do
Lumiar','Alcntara','Bacabeira','Rosrio','Santa Rita ','So Lus') AND
@PAGA_FRETE = 'S' AND @TPENVIO = '01' AND @CODCFO '103030' THEN
'1.50' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL WHEN @CODETD ='MA' AND
@CIDADE in('So Lus','So Jos de Ribamar','Raposa','Pao do
Lumiar','Alcntara','Bacabeira','Rosrio','Santa Rita ','So Lus') AND
@PAGA_FRETE IN('N','S') AND @TPENVIO = '03' AND @CODCFO '103030'
THEN '1.50' --//CODIO CAPITAL P/ PEDIDO COMPLEMENTAR WHEN @CODETD
='MA' AND @CIDADE 'So Lus' AND @PAGA_FRETE ='S' AND @TPENVIO = '01'
AND @CODCFO '103030' THEN '2.09' --//CODIO DEMAIS CIDADE DO MA P/
PEDIDO PRINCIPAL WHEN @CODETD ='MA' AND @CIDADE 'So Lus' AND
@PAGA_FRETE IN('N','S') AND @TPENVIO = '03' AND @CODCFO '103030'
THEN '2.09' --//CODIO DEMAIS CIDADE DO MA P/ PEDIDO COMPLEMENTAR
WHEN @CODCFO = '103030' THEN '1.50' --------- Regras p/Clculos do
Estado do MINAS GERAIS----------- WHEN @CODETD ='MG' AND @CIDADE
IN('Belo Horizonte','Baldim','Belo
Horizonte','Betim','Brumadinho','Caet','Capim
Branco','Confins','Contagem','Esmeraldas','Florestal','Ibirit','Igarap','Itaguara','Itatiaiuu','Jaboticatubas','Nova
Unio','Juatuba',' Lagoa Santa','Mrio Campos','Mateus
Leme','Matozinhos','Nova Lima','Pedro Leopoldo','Raposos','Ribeiro
das Neves','Rio Acima','Rio Manso','Sabar','Santa Luzia','So
Joaquim de Bicas','So Jos da Lapa','Sarzedo','Taquarau de
Minas','Vespasiano') AND @PAGA_FRETE = 'S' AND @TPENVIO = '01' THEN
'2.00' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL WHEN @CODETD ='MG' AND
@CIDADE IN('Belo Horizonte','Baldim','Belo
Horizonte','Betim','Brumadinho','Caet','Capim
Branco','Confins','Contagem','Esmeraldas','Florestal','Ibirit','Igarap','Itaguara','Itatiaiuu','Jaboticatubas','Nova
Unio','Juatuba',' Lagoa Santa','Mrio Campos','Mateus
Leme','Matozinhos','Nova Lima','Pedro Leopoldo','Raposos','Ribeiro
das Neves','Rio Acima','Rio Manso','Sabar','Santa Luzia','So
Joaquim de Bicas','So Jos da Lapa','Sarzedo','Taquarau de
Minas','Vespasiano') AND @PAGA_FRETE IN('N','S') AND @TPENVIO =
'03' THEN '2.00' --//CODIO CAPITAL P/ PEDIDO COMPLEMENTAR WHEN
@CODETD ='MG' AND @CIDADE NOT IN('Belo Horizonte','Baldim','Belo
Horizonte','Betim','Brumadinho','Caet','Capim
Branco','Confins','Contagem','Esmeraldas','Florestal','Ibirit','Igarap','Itaguara','Itatiaiuu','Jaboticatubas','Nova
Unio','Juatub a','Lagoa Santa','Mrio Campos','Mateus
Leme','Matozinhos','Nova Lima','Pedro Leopoldo','Raposos','Ribeiro
das Neves','Rio Acima','Rio Manso','Sabar','Santa Luzia','So
Joaquim de Bicas','So Jos da Lapa','Sarzedo','Taquarau de
Minas','Vespasiano') AND @PAGA_FRETE ='S' AND @TPENVIO = '01' THEN
'2.83' --//CODIO DEMAIS CIDADE DO MG P/ PEDIDO PRINCIPAL WHEN
@CODETD ='MG' AND @CIDADE NOT IN('Belo Horizonte','Baldim','Belo
Horizonte','Betim','Brumadinho','Caet','Capim
Branco','Confins','Contagem','Esmeraldas','Florestal','Ibirit','Igarap','Itaguara','Itatiaiuu','Jaboticatubas','Nova
Unio','Juatub a','Lagoa Santa','Mrio Campos','Mateus
Leme','Matozinhos','Nova Lima','Pedro Leopoldo','Raposos','Ribeiro
das Neves','Rio Acima','Rio Manso','Sabar','Santa Luzia','So
Joaquim de Bicas','So Jos da Lapa','Sarzedo','Taquarau de
Minas','Vespasiano') AND @PAGA_FRETE IN('N','S') AND @TPENVIO =
'03' THEN '2.83' --//CODIO DEMAIS CIDADE DO MG P/ PEDIDO
COMPLEMENTAR --------- Regras p/Clculos do Estado do MATO GROSSO DO
SUL----------- WHEN @CODETD ='MS' AND @CIDADE = 'Campo Grande' AND
@PAGA_FRETE = 'S' AND @TPENVIO = '01' THEN '3.43' --//CODIO CAPITAL
P/ PEDIDO PRINCIPAL WHEN @CODETD ='MS' AND @CIDADE = 'Campo Grande'
AND @PAGA_FRETE IN('N','S') AND @TPENVIO = '03' THEN '3.43'
--//CODIO CAPITAL P/ PEDIDO COMPLEMENTAR WHEN @CODETD ='MS' AND
@CIDADE 'Campo Grande' AND @PAGA_FRETE ='S' AND @TPENVIO = '01'
THEN '5.50' --//CODIO DEMAIS CIDADE DO MS P/ PEDIDO PRINCIPAL WHEN
@CODETD ='MS' AND @CIDADE 'Campo Grande' AND @PAGA_FRETE
IN('N','S') AND @TPENVIO = '03' THEN '5.50' --//CODIO DEMAIS CIDADE
DO MS P/ PEDIDO COMPLEMENTAR --------- Regras p/Clculos do Estado
do MATO GROSSO----------- WHEN @CODETD ='MT' AND @CIDADE
in('Cuiab','Acorizal','Baro de Melgao','Chapada dos
Guimares','Jangada','Nobres','Nova Brasilndia','Planalto da
Serra','Pocon','Rosrio Oeste','Cuiab','Vrzea Grande','Santo Antnio
do Leverger','Nossa Senhora do Livramento') AND @PAGA_FRETE = 'S'
AND @TPENVIO = '01' THEN '3.50' --//CODIO CAPITAL P/ PEDIDO
PRINCIPAL WHEN @CODETD ='MT' AND @CIDADE
in('Cuiab','Acorizal','Baro de Melgao','Chapada dos
Guimares','Jangada','Nobres','Nova Brasilndia','Planalto da
Serra','Pocon','Rosrio Oeste','Cuiab','Vrzea Grande','Santo Antnio
do Leverger','Nossa Senhora do Livramento') AND @PAGA_FRETE
IN('N','S') AND @TPENVIO = '03' THEN '3.50' --//CODIO CAPITAL P/
PEDIDO COMPLEMENTAR WHEN @CODETD ='MT' AND @CIDADE not
in('Cuiab','Acorizal','Baro de Melgao','Chapada dos
Guimares','Jangada','Nobres','Nova Brasilndia','Planalto da
Serra','Pocon','Rosrio Oeste','Cuiab','Vrzea Grande','Santo Antnio
do Leverger','Nossa Senhor a do Livramento') AND @PAGA_FRETE ='S'
AND @TPENVIO = '01' THEN '5.56' --//CODIO DEMAIS CIDADE DO MT P/
PEDIDO PRINCIPAL WHEN @CODETD ='MT' AND @CIDADE not
in('Cuiab','Acorizal','Baro de Melgao','Chapada dos
Guimares','Jangada','Nobres','Nova Brasilndia','Planalto da
Serra','Pocon','Rosrio Oeste','Cuiab','Vrzea Grande','Santo Antnio
do Leverger','Nossa Senhor a do Livramento') AND @PAGA_FRETE
IN('N','S') AND @TPENVIO = '03' THEN '5.56' --//CODIO DEMAIS CIDADE
DO MT P/ PEDIDO COMPLEMENTAR --------- Regras p/Clculos do Estado
do PAR----------- WHEN @CODETD ='PA' AND @CIDADE
in('Belm','Ananindeua','Belm','Benevides','Marituba','Santa Brbara
do Par','Santa Isabel do Par') AND @PAGA_FRETE = 'S' AND @TPENVIO =
'01' THEN '5.76' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL WHEN @CODETD
='PA' AND @CIDADE
in('Belm','Ananindeua','Belm','Benevides','Marituba','Santa Brbara
do Par','Santa Isabel do Par') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' THEN '5.76' --//CODIO CAPITAL P/ PEDIDO
COMPLEMENTAR WHEN @CODETD ='PA' AND @CIDADE not
in('Belm','Ananindeua','Belm','Benevides','Marituba','Santa Brbara
do Par','Santa Isabel do Par') AND @PAGA_FRETE ='S' AND @TPENVIO =
'01' THEN '6.38' --//CODIO DEMAIS CIDADE DO PA P/ PEDIDO PRINCIPAL
WHEN @CODETD ='PA' AND @CIDADE not
in('Belm','Ananindeua','Belm','Benevides','Marituba','Santa Brbara
do Par','Santa Isabel do Par') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' THEN '6.38' --//CODIO DEMAIS CIDADE DO PA P/ PEDIDO
COMPLEMENTAR --------- Regras p/Clculos do Estado do
PARABA----------- WHEN @CODETD ='PB' AND @CIDADE in('Joo
Pessoa','Alhandra','Bayeux','Caapor','Cabedelo','Conde','Cruz do
Esprito Santo','Joo Pessoa','Lucena') AND @PAGA_FRETE = 'S' AND
@TPENVIO = '01' THEN '1.66' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL
WHEN @CODETD ='PB' AND @CIDADE in('Joo
Pessoa','Alhandra','Bayeux','Caapor','Cabedelo','Conde','Cruz do
Esprito Santo','Joo Pessoa','Lucena') AND @PAGA_FRETE IN('N','S')
AND @TPENVIO = '03' THEN '1.66' --//CODIO CAPITAL P/ PEDIDO
COMPLEMENTAR WHEN @CODETD ='PB' AND @CIDADE 'Joo Pessoa' AND
@PAGA_FRETE ='S' AND @TPENVIO = '01' THEN '2.21' --//CODIO DEMAIS
CIDADE DO PB P/ PEDIDO PRINCIPAL WHEN @CODETD ='PB' AND @CIDADE
'Joo Pessoa' AND @PAGA_FRETE IN('N','S') AND @TPENVIO = '03' THEN
'2.21' --//CODIO DEMAIS CIDADE DO PB P/ PEDIDO COMPLEMENTAR
--------- Regras p/Clculos do Estado do PERNAMPUCO----------- WHEN
@CODETD ='PE' AND @CIDADE in('Recife','Cabo de Santo
Agostinho','Camaragibe','Igarassu','Ilha de
Itamarac','Ipojuca','Itapissuma','Jaboato dos
Guararapes','Moreno','Olinda','Paulista','Recife','So Loureno da
Mata','Rio Grande do Norte') AND @PAGA_FRETE = 'S' AND @TPENVIO =
'01' AND @CODCFO '050867' THEN '1.69' --//CODIO CAPITAL P/ PEDIDO
PRINCIPAL WHEN @CODETD ='PE' AND @CIDADE in('Recife','Cabo de Santo
Agostinho','Camaragibe','Igarassu','Ilha de
Itamarac','Ipojuca','Itapissuma','Jaboato dos
Guararapes','Moreno','Olinda','Paulista','Recife','So Loureno da
Mata','Rio Grande do Norte') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' AND @CODCFO '050867' THEN '1.69' --//CODIO CAPITAL
P/ PEDIDO COMPLEMENTAR WHEN @CODETD ='PE' AND @CIDADE not
in('Recife','Cabo de Santo Agostinho','Camaragibe','Igarassu','Ilha
de Itamarac','Ipojuca','Itapissuma','Jaboato dos
Guararapes','Moreno','Olinda','Paulista','Recife','So Loureno da
Mata','Rio Grande do Norte') AND @PAGA_FRETE ='S' AND @TPENVIO =
'01' AND @CODCFO '050867' THEN '1.98' --//CODIO DEMAIS CIDADE DO PE
P/ PEDIDO PRINCIPAL WHEN @CODETD ='PE' AND @CIDADE not
in('Recife','Cabo de Santo Agostinho','Camaragibe','Igarassu','Ilha
de Itamarac','Ipojuca','Itapissuma','Jaboato dos
Guararapes','Moreno','Olinda','Paulista','Recife','So Loureno da
Mata','Rio Grande do Norte') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' AND @CODCFO '050867' THEN '1.98' --//CODIO DEMAIS
CIDADE DO PE P/ PEDIDO COMPLEMENTAR WHEN @CODCFO = '050867' THEN
'1.69' --------- Regras p/Clculos do Estado do PIAUI-----------
WHEN @CODETD ='PI' AND @CIDADE = 'Teresina' AND @PAGA_FRETE = 'S'
AND @TPENVIO = '01' THEN '1.44' --//CODIO CAPITAL P/ PEDIDO
PRINCIPAL WHEN @CODETD ='PI' AND @CIDADE = 'Teresina' AND
@PAGA_FRETE IN('N','S') AND @TPENVIO = '03' THEN '1.44' --//CODIO
CAPITAL P/ PEDIDO COMPLEMENTAR WHEN @CODETD ='PI' AND @CIDADE
'Teresina' AND @PAGA_FRETE ='S' AND @TPENVIO = '01' THEN '1.94'
--//CODIO DEMAIS CIDADE DO PI P/ PEDIDO PRINCIPAL WHEN @CODETD
='PI' AND @CIDADE 'Teresina' AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' THEN '1.94' --//CODIO DEMAIS CIDADE DO PI P/ PEDIDO
COMPLEMENTAR --------- Regras p/Clculos do Estado do RIO GRANDE DO
NORTE----------- WHEN @CODETD ='RN' AND @CIDADE
in('Natal','Natal','Cear-Mirim','Extremoz','Macaba','Monte
Alegre','Nsia Floresta','Parnamirim','So Gonalo do Amarante','So
Jos de Mipibu','Vera Cruz') AND @PAGA_FRETE = 'S' AND @TPENVIO =
'01' AND @CODCFO NOT IN('103457','050999','051001') THEN '1.35'
--//CODIO CAPITAL P/ PEDIDO PRINCIPAL WHEN @CODETD ='RN' AND
@CIDADE in('Natal','Natal','Cear-Mirim','Extremoz','Macaba','Monte
Alegre','Nsia Floresta','Parnamirim','So Gonalo do Amarante','So
Jos de Mipibu','Vera Cruz') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' AND @CODCFO NOT IN('103457','050999','051001') THEN
'1.35' --//CODIO CAPITAL P/ PEDIDO COMPLEMENTAR WHEN @CODETD ='RN'
AND @CIDADE not
in('Natal','Natal','Cear-Mirim','Extremoz','Macaba','Monte
Alegre','Nsia Floresta','Parnamirim','So Gonalo do Amarante','So
Jos de Mipibu','Vera Cruz') AND @PAGA_FRETE ='S' AND @TPENVIO =
'01' AND @CODCFO NOT IN('103457','050999','051001') THEN '1.69'
--//CODIO DEMAIS CIDADE DO RN P/ PEDIDO PRINCIPAL WHEN @CODETD
='RN' AND @CIDADE not
in('Natal','Natal','Cear-Mirim','Extremoz','Macaba','Monte
Alegre','Nsia Floresta','Parnamirim','So Gonalo do Amarante','So
Jos de Mipibu','Vera Cruz') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' AND @CODCFO NOT IN('103457','050999','051001') THEN
'1.69' --//CODIO DEMAIS CIDADE DO RN P/ PEDIDO COMPLEMENTAR
--------- Regras p/Clculos do Estado do SERGIPE----------- WHEN
@CODETD ='SE' AND @CIDADE in('Aracaju','Aracaju','Barra dos
Coqueiros','Nossa Senhora do Socorro','So Cristvo') AND @PAGA_FRETE
= 'S' AND @TPENVIO = '01' THEN '2.02' --//CODIO CAPITAL P/ PEDIDO
PRINCIPAL WHEN @CODETD ='SE' AND @CIDADE
in('Aracaju','Aracaju','Barra dos Coqueiros','Nossa Senhora do
Socorro','So Cristvo') AND @PAGA_FRETE IN('N','S') AND @TPENVIO =
'03' THEN '2.02' --//CODIO CAPITAL P/ PEDIDO COMPLEMENTAR WHEN
@CODETD ='SE' AND @CIDADE not in('Aracaju','Aracaju','Barra dos
Coqueiros','Nossa Senhora do Socorro','So Cristvo') AND @PAGA_FRETE
='S' AND @TPENVIO = '01' THEN '3.34' --//CODIO DEMAIS CIDADE DO SE
P/ PEDIDO PRINCIPAL WHEN @CODETD ='SE' AND @CIDADE not
in('Aracaju','Aracaju','Barra dos Coqueiros','Nossa Senhora do
Socorro','So Cristvo') AND @PAGA_FRETE IN('N','S') AND @TPENVIO =
'03' THEN '3.34' --//CODIO DEMAIS CIDADE DO SE P/ PEDIDO
COMPLEMENTAR --------- Regras p/Clculos do Estado do SO
PAULO----------- WHEN @CODETD ='SP' AND @CIDADE in('So
Paulo','Aruj','Barueri','Biritiba
Mirim','Caieiras','Cajamar','Carapicuba','Cotia','Diadema','Embu
das Artes','Embu-Guau','Ferraz de Vasconcelos','Francisco
Morato','Franco da Rocha','Itapevi','Itapecerica da
Serra','Itaquaquecetuba','Jandira','Juquitiba','Mairipor','Mau','Mogi
das Cruzes','Osasco','Pirapora do Bom Jesus','Po','Ribeiro
Pires','Rio Grande da Serra','Salespolis','Santa Isabel','Santana
de Parnaba','Santo Andr','So Bernardo do Campo','S o Caetano do
Sul','So Loureno da Serra') AND @PAGA_FRETE = 'S' AND @TPENVIO =
'01' THEN '4.95' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL WHEN @CODETD
='SP' AND @CIDADE in('So Paulo','Aruj','Barueri','Biritiba
Mirim','Caieiras','Cajamar','Carapicuba','Cotia','Diadema','Embu
das Artes','Embu-Guau','Ferraz de Vasconcelos','Francisco
Morato','Franco da Rocha','Itapevi','Itapecerica da
Serra','Itaquaquecetuba','Jandira','Juquitiba','Mairipor','Mau','Mogi
das Cruzes','Osasco','Pirapora do Bom Jesus','Po','Ribeiro
Pires','Rio Grande da Serra','Salespolis','Santa Isabel','Santana
de Parnaba','Santo Andr','So Bernardo do Campo','So Caetano do
Sul','So Loureno da Serra') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' THEN '4.95' --//CODIO CAPITAL P/ PEDIDO
COMPLEMENTAR WHEN @CODETD ='SP' AND @CIDADE not in('So
Paulo','Aruj','Barueri','Biritiba
Mirim','Caieiras','Cajamar','Carapicuba','Cotia','Diadema','Embu
das Artes','Embu-Guau','Ferraz de Vasconcelos','Francisco
Morato','Franco da Rocha','Itapevi','Itapecerica da
Serra','Itaquaquecetuba','Jandira','Juquitiba','Mairipor','Mau','Mogi
das Cruzes','Osasco','Pirapora do Bom Jesus','Po','Ribeiro
Pires','Rio Grande da Serra','Salespolis','Santa Isabel','Santana
de Parnaba','Santo Andr','So Bernardo do Campo', 'So Caetano do
Sul','So Loureno da Serra') AND @PAGA_FRETE ='S' AND @TPENVIO =
'01' THEN '3.11' --//CODIO DEMAIS CIDADE DO SP P/ PEDIDO PRINCIPAL
WHEN @CODETD ='SP' AND @CIDADE not in('So
Paulo','Aruj','Barueri','Biritiba
Mirim','Caieiras','Cajamar','Carapicuba','Cotia','Diadema','Embu
das Artes','Embu-Guau','Ferraz de Vasconcelos','Francisco
Morato','Franco da Rocha','Itapevi','Itapecerica da
Serra','Itaquaquecetuba','Jandira','Juquitiba','Mairipor','Mau','Mogi
das Cruzes','Osasco','Pirapora do Bom Jesus','Po','Ribeiro
Pires','Rio Grande da Serra','Salespolis','Santa Isabel','Santana
de Parnaba','Santo Andr','So Bernardo do Campo', 'So Caetano do
Sul','So Loureno da Serra') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' THEN '3.11' --//CODIO DEMAIS CIDADE DO SP P/ PEDIDO
COMPLEMENTAR --------- Regras p/Clculos do Estado do
TOCANTINS----------- WHEN @CODETD ='TO' AND @CIDADE = 'Palmas' AND
@PAGA_FRETE = 'S' AND @TPENVIO = '01' THEN '7.79' --//CODIO CAPITAL
P/ PEDIDO PRINCIPAL WHEN @CODETD ='TO' AND @CIDADE = 'Palmas' AND
@PAGA_FRETE IN('N','S') AND @TPENVIO = '03' THEN '7.79' --//CODIO
CAPITAL P/ PEDIDO COMPLEMENTAR WHEN @CODETD ='TO' AND @CIDADE
'Palmas' AND @PAGA_FRETE ='S' AND @TPENVIO = '01' THEN '10.00'
--//CODIO DEMAIS CIDADE DO TO P/ PEDIDO PRINCIPAL WHEN @CODETD
='TO' AND @CIDADE 'Palmas' AND @PAGA_FRETE IN('N','S') AND @TPENVIO
= '03' THEN '10.00' --//CODIO DEMAIS CIDADE DO TO P/ PEDIDO
COMPLEMENTAR --------- Regras p/Clculos do Estado do RIO GRANDE DO
SUL----------- WHEN @CODETD ='RS' AND @CIDADE in('Porto
Alegre','Alvorada','Cachoeirinha','Campo Bom','Canoas','Estncia
Velha','Esteio','Gravata','Guaba','Novo Hamburgo','Porto
Alegre','So Leopoldo','Sapiranga','Sapucaia do Sul','Viamo','Dois
Irmos','Eldorado do Sul','Glorinha','Ivoti','Nova
Hartz','Parob','Porto','Triunfo','Charqueadas','Araric','Nova Santa
Rita','Montenegro','Taquara','So Jernimo','Arroio dos Ratos','Santo
Antnio da Patrulha','Capela de Santana','Rolante','Igrejinha') AND
@PAGA_FRETE = 'S' AND @TPENVIO = '01' THEN '2.80' --//CODIO CAPITAL
P/ PEDIDO PRINCIPAL WHEN @CODETD ='RS' AND @CIDADE in('Porto
Alegre','Alvorada','Cachoeirinha','Campo Bom','Canoas','Estncia
Velha','Esteio','Gravata','Guaba','Novo Hamburgo','Porto
Alegre','So Leopoldo','Sapiranga','Sapucaia do Sul','Viamo','Dois
Irmos','Eldorado do Sul','Glorinha','Ivoti','Nova
Hartz','Parob','Porto','Triunfo','Charqueadas','Araric','Nova Santa
Rita','Montenegro','Taquara','So Jernimo','Arroio dos Ratos','Santo
Antnio da Patrulha','Capela de Santana','Rolante','Igrejinha') AND
@PAGA_FRETE IN('N','S') AND @TPENVIO = '03' THEN '2.80' --//CODIO
CAPITAL P/ PEDIDO COMPLEMENTAR WHEN @CODETD ='RS' AND @CIDADE not
in('Porto Alegre','Alvorada','Cachoeirinha','Campo
Bom','Canoas','Estncia Velha','Esteio','Gravata','Guaba','Novo
Hamburgo','Porto Alegre','So Leopoldo','Sapiranga','Sapucaia do
Sul','Viamo','Dois Irmos','Eldo rado do
Sul','Glorinha','Ivoti','Nova
Hartz','Parob','Porto','Triunfo','Charqueadas','Araric','Nova Santa
Rita','Montenegro','Taquara','So Jernimo','Arroio dos Ratos','Santo
Antnio da Patrulha','Capela de Santana','Rolante','Igrejinha') AND
@PAGA_FRETE ='S' AND @TPENVIO = '01' THEN '3.10' --//CODIO DEMAIS
CIDADE DO RS P/ PEDIDO PRINCIPAL WHEN @CODETD ='RS' AND @CIDADE not
in('Porto Alegre','Alvorada','Cachoeirinha','Campo
Bom','Canoas','Estncia Velha','Esteio','Gravata','Guaba','Novo
Hamburgo','Porto Alegre','So Leopoldo','Sapiranga','Sapucaia do
Sul','Viamo','Dois Irmos','Eldo rado do
Sul','Glorinha','Ivoti','Nova
Hartz','Parob','Porto','Triunfo','Charqueadas','Araric','Nova Santa
Rita','Montenegro','Taquara','So Jernimo','Arroio dos Ratos','Santo
Antnio da Patrulha','Capela de Santana','Rolante','Igrejinha') AND
@PAGA_FRETE IN('N','S') AND @TPENVIO = '03' THEN '3.10' --//CODIO
DEMAIS CIDADE DO RS P/ PEDIDO COMPLEMENTAR --------- Regras
p/Clculos do Estado do SANTA CATARINA----------- WHEN @CODETD ='SC'
AND @CIDADE in('Florianpolis','Florianpolis','So
Jos','Palhoa','Biguau','Santo Amaro da Imperatriz','Governador
Celso Ramos','Antnio Carlos','guas Mornas','So Pedro de
Alcntara','Total do Ncleo Metropolitano','Alfredo Wag
ner','Angelina','Anitpolis','Canelinha','Garopaba','Leoberto
Leal','Major Gercino','Nova Trento','Paulo Lopes','Rancho
Queimado','So Bonifcio','So Joo Batista') AND @PAGA_FRETE = 'S' AND
@TPENVIO = '01' THEN '2.95' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL
WHEN @CODETD ='SC' AND @CIDADE in('Florianpolis','Florianpolis','So
Jos','Palhoa','Biguau','Santo Amaro da Imperatriz','Governador
Celso Ramos','Antnio Carlos','guas Mornas','So Pedro de
Alcntara','Total do Ncleo Metropolitano','Alfredo Wag
ner','Angelina','Anitpolis','Canelinha','Garopaba','Leoberto
Leal','Major Gercino','Nova Trento','Paulo Lopes','Rancho
Queimado','So Bonifcio','So Joo Batista') AND @PAGA_FRETE
IN('N','S') AND @TPENVIO = '03' THEN '2.95' --//CODIO CAPITAL P/
PEDIDO COMPLEMENTAR WHEN @CODETD ='SC' AND @CIDADE not
in('Florianpolis','Florianpolis','So Jos','Palhoa','Biguau','Santo
Amaro da Imperatriz','Governador Celso Ramos','Antnio Carlos','guas
Mornas','So Pedro de Alcntara','Total do Ncleo
Metropolitano','Alfredo
Wagner','Angelina','Anitpolis','Canelinha','Garopaba','Leoberto
Leal','Major Gercino','Nova Trento','Paulo Lopes','Rancho
Queimado','So Bonifcio','So Joo Batista') AND @PAGA_FRETE ='S' AND
@TPENVIO = '01' THEN '3.24' --//CODIO DEMAIS CIDADE DO RS P/ PEDIDO
PRINCIPAL WHEN @CODETD ='SC' AND @CIDADE not
in('Florianpolis','Florianpolis','So Jos','Palhoa','Biguau','Santo
Amaro da Imperatriz','Governador Celso Ramos','Antnio Carlos','guas
Mornas','So Pedro de Alcntara','Total do Ncleo
Metropolitano','Alfredo
Wagner','Angelina','Anitpolis','Canelinha','Garopaba','Leoberto
Leal','Major Gercino','Nova Trento','Paulo Lopes','Rancho
Queimado','So Bonifcio','So Joo Batista') AND @PAGA_FRETE
IN('N','S') AND @TPENVIO = '03' THEN '3.24' --//CODIO DEMAIS CIDADE
DO RS P/ PEDIDO COMPLEMENTAR --------- Regras p/Clculos do Estado
do PARAN----------- WHEN @CODETD ='PR' AND @CIDADE in('Curitiba'
,'Adrianpolis','Agudos do Sul','Almirante
Tamandar','Araucria','Balsa Nova','Bocaiva do Sul','Campina Grande
do Sul','Campo do Tenente','Campo Largo','Campo Magro','Cerro
Azul','Colombo','Contenda','Cur itiba','Doutor Ulysses','Fazenda
Rio
Grande','Itaperuu','Lapa','Mandirituba','Pin','Pinhais','Piraquara','Quatro
Barras','Quitandinha','Rio Branco do Sul','Rio Negro','So Jos dos
Pinhais','Tijucas do Sul','Tunas do Paran') AND @PAGA_FRETE = 'S'
AND @TPENVIO = '01' THEN '2.90' --//CODIO CAPITAL P/ PEDIDO
PRINCIPAL WHEN @CODETD ='PR' AND @CIDADE in('Curitiba'
,'Adrianpolis','Agudos do Sul','Almirante
Tamandar','Araucria','Balsa Nova','Bocaiva do Sul','Campina Grande
do Sul','Campo do Tenente','Campo Largo','Campo Magro','Cerro
Azul','Colombo','Contenda','Cur itiba','Doutor Ulysses','Fazenda
Rio
Grande','Itaperuu','Lapa','Mandirituba','Pin','Pinhais','Piraquara','Quatro
Barras','Quitandinha','Rio Branco do Sul','Rio Negro','So Jos dos
Pinhais','Tijucas do Sul','Tunas do Paran') AND @PAGA_FRETE
IN('N','S') AND @TPENVIO = '03' THEN '2.90' --//CODIO CAPITAL P/
PEDIDO COMPLEMENTAR WHEN @CODETD ='PR' AND @CIDADE not
in('Curitiba' ,'Adrianpolis','Agudos do Sul','Almirante
Tamandar','Araucria','Balsa Nova','Bocaiva do Sul','Campina Grande
do Sul','Campo do Tenente','Campo Largo','Campo Magro','Cerro
Azul','Colombo','Contenda', 'Curitiba','Doutor Ulysses','Fazenda
Rio
Grande','Itaperuu','Lapa','Mandirituba','Pin','Pinhais','Piraquara','Quatro
Barras','Quitandinha','Rio Branco do Sul','Rio Negro','So Jos dos
Pinhais','Tijucas do Sul','Tunas do Paran') AND @PAGA_FRETE ='S'
AND @TPENVIO = '01' THEN '3.80' --//CODIO DEMAIS CIDADE DO PR P/
PEDIDO PRINCIPAL WHEN @CODETD ='PR' AND @CIDADE not in('Curitiba'
,'Adrianpolis','Agudos do Sul','Almirante
Tamandar','Araucria','Balsa Nova','Bocaiva do Sul','Campina Grande
do Sul','Campo do Tenente','Campo Largo','Campo Magro','Cerro
Azul','Colombo','Contenda', 'Curitiba','Doutor Ulysses','Fazenda
Rio
Grande','Itaperuu','Lapa','Mandirituba','Pin','Pinhais','Piraquara','Quatro
Barras','Quitandinha','Rio Branco do Sul','Rio Negro','So Jos dos
Pinhais','Tijucas do Sul','Tunas do Paran') AND @PAGA_FRETE
IN('N','S') AND @TPENVIO = '03' THEN '3.80' --//CODIO DEMAIS CIDADE
DO PR P/ PEDIDO COMPLEMENTAR --------- Regras p/Clculos do Estado
do RIO DE JANEIRO----------- WHEN @CODETD ='RJ' AND @CIDADE in('Rio
de Janeiro','Belford Roxo','Duque de
Caxias','Guapimirim','Itabora','Itagua','Japeri','Mag','Maric','Mesquita','Nilpolis','Niteri','Nova
Iguau','Paracambi','Queimados','Rio de Janeiro','So Gonalo','So J
oo de Meriti','Seropdica','Tangu') AND @PAGA_FRETE = 'S' AND
@TPENVIO = '01' THEN '2.60' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL
WHEN @CODETD ='RJ' AND @CIDADE in('Rio de Janeiro','Belford
Roxo','Duque de
Caxias','Guapimirim','Itabora','Itagua','Japeri','Mag','Maric','Mesquita','Nilpolis','Niteri','Nova
Iguau','Paracambi','Queimados','Rio de Janeiro','So Gonalo','So J
oo de Meriti','Seropdica','Tangu') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' THEN '2.60' --//CODIO CAPITAL P/ PEDIDO
COMPLEMENTAR WHEN @CODETD ='RJ' AND @CIDADE not in('Rio de
Janeiro','Belford Roxo','Duque de
Caxias','Guapimirim','Itabora','Itagua','Japeri','Mag','Maric','Mesquita','Nilpolis','Niteri','Nova
Iguau','Paracambi','Queimados','Rio de Janeiro','So Gonalo','S o
Joo de Meriti','Seropdica','Tangu') AND @PAGA_FRETE ='S' AND
@TPENVIO = '01' THEN '4.50' --//CODIO DEMAIS CIDADE DO RJ P/ PEDIDO
PRINCIPAL WHEN @CODETD ='RJ' AND @CIDADE not in('Rio de
Janeiro','Belford Roxo','Duque de
Caxias','Guapimirim','Itabora','Itagua','Japeri','Mag','Maric','Mesquita','Nilpolis','Niteri','Nova
Iguau','Paracambi','Queimados','Rio de Janeiro','So Gonalo','S o
Joo de Meriti','Seropdica','Tangu') AND @PAGA_FRETE IN('N','S') AND
@TPENVIO = '03' THEN '4.50' --//CODIO DEMAIS CIDADE DO RJ P/ PEDIDO
COMPLEMENTAR --------- Regras p/Clculos do Estado de
RORAIMA----------- WHEN @CODETD ='RR' AND @CIDADE in('Porto
Velho','Boa Vista','Cant') AND @PAGA_FRETE = 'S' AND @TPENVIO =
'01' THEN '8.00' --//CODIO CAPITAL P/ PEDIDO PRINCIPAL WHEN @CODETD
='RR' AND @CIDADE in('Porto Velho','Boa Vista','Cant') AND
@PAGA_FRETE IN('N','S') AND @TPENVIO = '03' THEN '8.00' --//CODIO
CAPITAL P/ PEDIDO COMPLEMENTAR WHEN @CODETD ='RR' AND @CIDADE not
in('Porto Velho','Boa Vista','Cant') AND @PAGA_FRETE ='S' AND
@TPENVIO = '01' THEN '10.00' --//CODIO DEMAIS CIDADE DO RO P/
PEDIDO PRINCIPAL WHEN @CODETD ='RR' AND @CIDADE not in('Porto
Velho','Boa Vista','Cant') AND @PAGA_FRETE IN('N','S') AND @TPENVIO
= '03' THEN '10.00' --//CODIO DEMAIS CIDADE DO RO P/ PEDIDO
COMPLEMENTAR WHEN @PAGA_FRETE = 'N' AND @TPENVIO = '01' THEN '0.00'
--//CODIO GERAL PEDIDO PRINCIPAL - QUANDO NO PAGA FRETE ELSE '0.00'
END) SET @PERCFRETE = CAST (@PERCFRETE as decimal(9,4)) --IF
@CODTMV = '2.2.10' --BEGIN -- UPDATE TMOV SET VALORFRETE =
(VALORBRUTO * @PERCFRETE)/100,PERCENTUALFRETE = @PERCFRETE -- FROM
TMOV -- WHERE IDMOV = @IDMOV -- END IF @CODTMV = '2.2.10' BEGIN
UPDATE TMOV SET PERCENTUALFRETE = @PERCFRETE FROM TMOV WHERE IDMOV
= @IDMOV END END END
D:\Views Relatorios
VW_CUSTO_FRETE VW_DEVOLUCAO VW_DEVOLUCAO_D LOCAL_ESTOQ
VW_DEPESAS VW_ID_ESTORNO_DV VW_ID_ESTORNO_V VW_VENDAS
VW_DEPESAS_APF CONTRATO DEVOL ENVIO_1 a 6
ENVIADOS_SEM_ABATER_DEVOLUCOES VIEW_FRETE_XML_SAS_UTILITARIOS
CONTRATO_UN REL_ESTIMATIVA
D:\Funes Relatrios
DiasPorExtenso DataPorExtenso HoraPorExtenso2 FDIA_SEMANA_EXT
FDIA_SEMANA HoraPorMinutosMM MinutosPorExtenso HoraPorExtensoHH
