- 12 Jun 2020 às 18:52
#55881
Olá,
Ainda não entendi, alterando a fonte, ficaria conforme abaixo. O que eu preciso fazer agora?
(tabela as table) as table =>
let
Fonte = tabela,
//Fonte = Excel.Workbook(File.Contents("C:\Users\dsanto12\Documents\BD Performance Inbound_W01.XLSX"))[Data]{0},
PromoveCabecalho = Table.PromoteHeaders(Fonte, [PromoteAllScalars=true]),
ColunasEmLinhas = Table.UnpivotOtherColumns(PromoveCabecalho, {"Semana", "Ano", "Formulário", "Demanda", "Origem", "Descrição ZT Partida", "Pátio Origem", "Descrição Pátio Orig", "Centro Origem", "Destino", "Descrição ZT Chegada", "UF Destino", "Pátio Destino", "Descrição Pátio Dest", "Centro Destino", "Pedido MOSAIC", "Item", "Cliente", "Nome Cliente", "Documento de vendas", "Item_1", "Produto", "Nome Produto", "Transportadora", "Nome Transportadora", "Frete", "Armazém", "Descrição Armazém", "Planejado", "UM Planejado", "Realizado", "UM Realizado", "Saldo", "UM Saldo", "Obs da demanda", "Pedido do Fornecedor", "Navio", "N. DI", "Porto", "Pedido Retorno Simbólico", "Item Retorno Simbólico", "Centro Toll Destino", "Documento de compras", "Item_2", "Pedido do Fornecedor_3", "Ped. Troca NF", "Item Ped. Troca NF"}, "Atributo", "Valor"),
DividirData_PLANREAL = Table.SplitColumn(ColunasEmLinhas, "Atributo", Splitter.SplitTextByDelimiter("-", QuoteStyle.Csv), {"Data_Texto", "PLAN_REAL"}),
ExtraiData = Table.TransformColumns(DividirData_PLANREAL, {{"Data_Texto", each Text.AfterDelimiter(_, " ", {0, RelativePosition.FromEnd}), type text}}),
TipoAlterado = Table.TransformColumnTypes(ExtraiData,{{"Semana", Int64.Type}, {"Ano", Int64.Type}, {"Formulário", type text}, {"Demanda", Int64.Type}, {"Origem", type text}, {"Descrição ZT Partida", type text}, {"Pátio Origem", type text}, {"Descrição Pátio Orig", type text}, {"Centro Origem", Int64.Type}, {"Destino", type text}, {"Descrição ZT Chegada", type text}, {"UF Destino", type text}, {"Pátio Destino", type text}, {"Descrição Pátio Dest", type text}, {"Centro Destino", Int64.Type}, {"Pedido MOSAIC", Int64.Type}, {"Item", Int64.Type}, {"Cliente", Int64.Type}, {"Nome Cliente", type text}, {"Documento de vendas", Int64.Type}, {"Item_1", Int64.Type}, {"Produto", Int64.Type}, {"Nome Produto", type text}, {"Transportadora", Int64.Type}, {"Nome Transportadora", type text}, {"Frete", type number}, {"Armazém", type text}, {"Descrição Armazém", type text}, {"Planejado", Int64.Type}, {"UM Planejado", type text}, {"Realizado", type number}, {"UM Realizado", type text}, {"Saldo", type number}, {"UM Saldo", type text}, {"Obs da demanda", type text}, {"Pedido do Fornecedor", type text}, {"Navio", type text}, {"N. DI", type text}, {"Porto", type text}, {"Pedido Retorno Simbólico", type text}, {"Item Retorno Simbólico", Int64.Type}, {"Centro Toll Destino", type text}, {"Documento de compras", type text}, {"Item_2", Int64.Type}, {"Pedido do Fornecedor_3", type text}, {"Ped. Troca NF", type text}, {"Item Ped. Troca NF", Int64.Type}, {"Data_Texto", type text}, {"PLAN_REAL", type text}, {"Valor", type number}}),
DataCorretaComAno = Table.AddColumn(TipoAlterado, "Datas", each [Data_Texto] & "/" & (if [Semana] = 1 and Number.From(Text.End([Data_Texto],2))=12 then Text.From([Ano]-1) else Text.From([Ano]))),
RemoveColDataTexto = Table.RemoveColumns(DataCorretaComAno, "Data_Texto"),
#"Tipo Alterado" = Table.TransformColumnTypes(RemoveColDataTexto,{{"Datas", type date}})
in
#"Tipo Alterado"