Obrigado, Convidado!
Bem-vindo ao FMGARCIA - SAMP!
HuemersonFMG |
| |||
CleidiSilva21 |
| |||
barbfix |
| |||
Tranks_NorT |
| |||
RenatoFMG |
| |||
William |
| |||
Vinícius_ Kawasaki |
| |||
scorpio |
| |||
alfredw10 |
|
Scripts SQL - Oracle
Scripts SQL - Oracle
Calculando MPC:
- Código:
#type.sql#
SELECT
CASE WHEN (CAB.AD_VALOR_FRETE IS NULL OR CAB.VLRNOTA IS NULL OR CAB.AD_VALOR_FRETE =0 OR CAB.VLRNOTA=0 ) THEN 0
ELSE CAB.AD_VALOR_FRETE / CAB.QTDVOL
END
FROM TGFCAB CAB
WHERE CAB.NUNOTA = TGFCAB.NUNOTA
Notas e respectivos pedidos:
- Código:
CabecalhoNota.NUNOTA IN (
SELECT nunota FROM (
(SELECT DISTINCT tgfvar.nunota AS varnunota, tgfvar.nunotaorig as varorig, tgfcab.nunota as cabnunota
FROM tgfvar RIGHT JOIN tgfcab ON (tgfcab.nunota = tgfvar.nunota)
WHERE ?:{entidade=CabecalhoNota;campo=NUNOTA}
IN (tgfvar.nunota, tgfvar.nunotaorig, tgfcab.nunota))
UNPIVOT (nunota for resul IN (varnunota, varorig, cabnunota))
) temp
)
Function: Custo sem ICMS:
- Código:
CREATE OR REPLACE FUNCTION JIVA.AD_OBTEMCUSTO_MEDSEMICM(
P_CODPROD IN NUMBER,
P_CODEMP IN NUMBER,
P_DATA IN DATE)
RETURN FLOAT
IS P_CUSSEMICM FLOAT;
P_DTATUAL DATE;
BEGIN
BEGIN
SELECT
MAX(DTATUAL) INTO P_DTATUAL
FROM TGFCUS CN
WHERE CN.CODPROD = P_CODPROD
AND CN.DTATUAL <= P_DATA
AND CN.CONTROLE = ’ ’
AND CN.CODLOCAL = 0
AND CN.CODEMP = P_CODEMP;
SELECT NVL(CUSSEMICM,0)
INTO P_CUSSEMICM
FROM TGFCUS
WHERE CODPROD = P_CODPROD
AND CONTROLE = ' '
AND CODLOCAL = 0
AND CODEMP = P_CODEMP
AND DTATUAL = P_DTATUAL;
EXCEPTION
WHEN NO_DATA_FOUND THEN
RETURN 0;
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(-20101, ’ O parametro EXIBRENTNOTACAC (Exibe rentabilidade na CAC) esta ligado! ERRO: ’ || SUBSTR(SQLERRM,1,200));
END;
RETURN P_CUSSEMICM;
EXCEPTION
WHEN NO_DATA_FOUND THEN RETURN (0);
END;
Remessas para Vendas Autorizadas:
- Código:
/*FILTRO PARA TELA FORMAÇÃOD DE CARGA PARA MOSTRAR AS REMESSAS SOMENTE
DEPOIS QUE A VENDA ESTIVER AUTORIZADA.*/
CabecalhoNota.NUNOTA IN (SELECT C.NUNOTA FROM TGFCAB C WHERE NUNOTA NOT IN (
SELECT CAB.NUNOTA FROM TGFCAB CAB
INNER JOIN TGFVAR VAR ON VAR.NUNOTA=CAB.NUNOTA
INNER JOIN TGFCAB CAB2 ON CAB2.NUNOTA=VAR.NUNOTAORIG
WHERE
CAB.CODTIPOPER IN (1004,1124) AND
CAB.NUNOTA!=VAR.NUNOTAORIG
AND CAB2.STATUSNOTA!='L'
GROUP BY
CAB.NUNOTA))
Busca de Ceps por Faixas:
- Código:
AD_TBHFAIXACEP.CODFAIXA IN (
SELECT CODFAIXA
FROM AD_TBHFAIXACEP
WHERE ?:{entidade=AD_TBHFAIXACEP;campo=CEPINI} BETWEEN AD_TBHFAIXACEP.CEPINI
AND AD_TBHFAIXACEP.CEPFIN)
HuemersonFMG- Fundador - ADM
- PublicaçõesPublicaçõesMembro VipMembro VipCriador de TópicosCriador de TópicosParticipação em tópicosParticipação em tópicosCriador de EventosCriador de EventosPopular no fórum - AmigosPopular no fórum - AmigosAvaliação de MSGAvaliação de MSGMelhores avaliações de AmigosMelhores avaliações de AmigosRei dos Grupos no FórumRei dos Grupos no FórumMelhor RPGRecebe este ao criar sua Ficha RPG no Perfil
- Mensagens : 510
Pontos : 26770
Reputação : 0
Data de inscrição : 11/06/2018
Idade : 51
Localização : Brasil
FMGRPG
FMG:(200/100)
-
![-](https://2img.net/i/empty.gif)
» Scripts Diversos 1
» Scripts Diversos 4
» Scripts Diversos 3
» Scripts diversos 2
» Modelos para Mensagens
» Modelo API Chamada Externa - Rest
» Sistema de Ceps Brasileiro
» Esqueceu o número do seu telefone?
» Scripts SQL - Oracle
» Dicas para Excel
» Acentos e Caracteres Especiais em HTML
» Dez motivos para consumir mais café...
» Combinações de teclas do Windows
» PL/SQL - Extensão da linguagem SQL - Oracle
» Node.js é uma tecnologia assíncrona
» Pontos Cardeais
» 1º DE MAIO – DIA MUNDIAL DO TRABALHO
» ChatGPT - robô virtual (chatbot) que responde a perguntas variadas