MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Pegar 4° e 5° letra de um campo

    avatar
    lbatalha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 29
    Registrado : 13/02/2014

    [Resolvido]Pegar 4° e 5° letra de um campo Empty [Resolvido]Pegar 4° e 5° letra de um campo

    Mensagem  lbatalha 20/3/2014, 08:57

    Bom Dia!

    Tenho a seguinte Consulta: A parte em negrito é que eu preciso que pegue a 4° e a 5° letra desse campo.

    SELECT C.Num_Contrato, SUP.Nome, Mun.Cidade AS Município, IB.Numero, IB.Descricao, UM.Sigla AS UnidadeMedida,SUBSTR(A.Nome,4,5) as AMO, TA.Nome AS Apropriação, UNV.Sigla AS UC, Conta.Num_Conta_Contabil AS Conta, "" AS NúmeroCC, P.Numero AS Projeto, TP.Nome AS NomeTarefa, TP.Sigla, Dis.Nome AS TipoDispêndio, NAV.Num AS OrgDispêndio, IB.Fisico_Estimado AS FísicoContrato, IB.Valor_Unitario, IB.Valor_Total AS TotalContratado, Sum(ID.QuantidadeTotal) AS FisicoMedicao, (FisicoMedicao*Valor_Unitario) AS FinanceiroMedicao, (IB.Fisico_Estimado-FisicoMedicao) AS TotalQuantidade, (IB.Valor_Total-FinanceiroMedicao) AS TotalFinanceiro
    FROM ((((((((((((((((((Itens_Diario AS ID INNER JOIN Locais_Servico AS LS ON ID.Cod_Loc_Serv=LS.Cod_Loc_Serv) INNER JOIN Municipio AS Mun ON LS.Cod_Municipio=Mun.Cod_Municipio) INNER JOIN Itens_Boletim AS IB ON ID.Cod_ItemBoletim=IB.Cod_ItemBoletim) INNER JOIN Boletim AS B ON IB.Cod_Boletim=B.Cod_Boletim) INNER JOIN Contrato AS C ON B.Cod_Contrato=C.Cod_Contrato) INNER JOIN Cabecalho ON B.Cod_Cabecalho=Cabecalho.Cod_Cabecalho) INNER JOIN Supervisao AS SUP ON Cabecalho.Cod_Supervisao=SUP.Cod_Supervisao) INNER JOIN UnidadeControleVale AS UNV ON Cabecalho.Cod_UC=UNV.Cod_UC) INNER JOIN Nome AS NAV ON Cabecalho.Cod_V=NAV.Cod_V) INNER JOIN UnidadeMedida AS UM ON IB.Cod_UnidadeMedida=UM.Cod_UnidadeMedida) INNER JOIN Diarios AS D ON ID.Cod_Diario=D.Cod_Diario) INNER JOIN Equipe AS E ON D.Cod_Equipe=[E].Cod_Equipe) INNER JOIN Medicao AS M ON D.Cod_Medicao=M.Cod_Medicao) LEFT JOIN Tarefa_Projeto AS TP ON IB.Cod_Tarefa=TP.Cod_Tarefa) LEFT JOIN Projeto AS P ON TP.Cod_Projeto=P.Cod_Projeto) LEFT JOIN Tipo_Aplicacao AS TA ON P.Cod_Tipo_Aplicacao=TA.Cod_Tipo_Aplicacao) LEFT JOIN Conta_Contabil AS Conta ON P.Cod_Contabil=Conta.Cod_Contabil) LEFT JOIN Dispendio AS Dis ON TP.Cod_Dispendio=Dis.Cod_Dispendio) INNER JOIN Almoxerifado AS A ON Mun.Cod_Almoxerifado=A.Cod_Almoxerifado
    WHERE (((D.Cod_Medicao)=PassaParametroMedicao('CodMedicao')) AND ((P.Numero) Is Not Null))
    GROUP BY C.Num_Contrato, SUP.Nome, Mun.Cidade, IB.Numero, IB.Descricao, UM.Sigla, TA.Nome, UNV.Sigla, Conta.Num_Conta_Contabil, P.Numero, TP.Nome, TP.Sigla, Dis.Nome, NAV.Num, IB.Fisico_Estimado, IB.Valor_Unitario, IB.Valor_Total;
    avatar
    lbatalha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 29
    Registrado : 13/02/2014

    [Resolvido]Pegar 4° e 5° letra de um campo Empty Re: [Resolvido]Pegar 4° e 5° letra de um campo

    Mensagem  lbatalha 20/3/2014, 09:49

    SELECT C.Num_Contrato, SUP.Nome, Mun.Cidade AS Município, IB.Numero, IB.Descricao, UM.Sigla AS UnidadeMedida,mid(A.Nome,5,2) as AMO
    Consegui resolver, a parte em negrito.

      Data/hora atual: 13/5/2024, 07:53