MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Preenchimento, Comparação e validação

    Compartilhe

    Carlao2
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 171
    Registrado : 19/10/2016

    Preenchimento, Comparação e validação

    Mensagem  Carlao2 em 29/6/2018, 17:21

    Bom dia à todos.

    Mais uma vez, venho recorrer ao conselho de especialistas para tentar elucidar uma enorme dificuldade que estou tendo.
    Vou tentar ser o mais claro possível e claro, colocarei um arquivo de exemplo.

    Preciso de um módulo que:

    Imaginem que tenho duas tabelas

    Tbl_Cont e Tbl_Fis

    As duas deverão ser cruzadas através do campo Localiz X Campo01

    O que preciso:

    Ex:

    Tbl_Cont

    Patrim PatrimAlt        IncAlt       Conc            Localiz              Idoper   Valor
    10        10                0000        Ativo3           xyl_001            M1        1280,00
    11        10                9999        Ativo3-Inc      xyl_001           I2          350,00
    12        10                9999        Ativo3-Inc      xyl_001           I2          640,00
    13        13                0000        L                   zzp_012           M1        20,00
    15        13                9999        L-inc             zzp_012           I2          35,00
    16        16                0000        Sobra            llm_018           B1         15,00
    17        17                0000        Sobra            ppu_023          B1         254,60
    18        18                0000        Dev-la           jjd_001           M0         364,80
    19        19                0000        Dev-Vila        pol_015           M0         1365,40

    Tbl_Fis

    Patrim Tag               CodAtivo        Conc     Idoper Campo01
    10       1212121212  1212121212  Ativo3    M1      xyl_001
    10       1212121212   fkjh_0017     Ativo3    I3       xyl_001
    10       1212121212   ujhg_0020    Ativo3    I3       xyl_001
    13       9595959595   9595959595 L            M1      zzp_012
    Nulo    7463546735   7463546735 SOBRA    I1       Imz_012
    Nulo    7463546735   iuet_0521     SOBRA   I1       ojf_022

    Se na Tab_Fis tiver um Tag igual a um Outro com Idoper M1, e Patrim nulo esse deverá receber o mesmo número de Patrim do M1, Idoper I3 e o Mesmo Conc do M1 ajustado com relação a quantidade, no exemplo 3
    Se na Tb_Fis tiver item com o Patrim Nulo esses deverão receber o Idoper “I1”
    Se na Tab_Cont tiver um PatrimAlt igual a um Outro com Idoper M1,  esse deverá receber o Idoper I2, o campo IncAlt deverá ser alterado para "9999" e o Mesmo Conc do M1 ajustado com relação a quantidade, no exemplo 3
    Após essa etapa se na tabela_Cont tiver itens com o Conc preenchido com a palavra “SOBRA*” o idoper deverá ser preenchido com “B1”
    E se tiver itens com o Conc preenchido com a palavra “DEV*” o idoper deverá ser preenchido com “M0”

    Obs: A quantidade é verificada contanto a quantidade de Patrim na Tab_Fis


    Na tabela Fis
    Todo Patrim com Idoper I3 tem que ter um item de mesmo patrim com Idoper M1

    Na tabela_cont

    Todo PatrimAlt com Idoper I2 tem que ter um item de mesmo PatrimAlt com Idoper M1

    Se Houver Na tabela Fis um Item I3 sem um correspondente M1, deverá ser gerado uma Tabela “PATRIM I3 SEM M1”, somente com o Patrim  I3 que não possui M1
    Se Houver Na tabela Cont um Item I2 sem um correspondente M1, deverá ser gerado uma Tabela “PATRIMALT I2 SEM M1”, somente com o PatrimAlt  I2 que não possui M1

    No final deverá ser gerado um Totalizador conforme abaixo

    Totalizador Tab_Fis_idoper

    Idoper Quant
    M1          2
    I3           2
    I1           2

    Totalizador Tab_Cont`_idoper

    Idoper Quant      Valor
    M1          2        1300,00 (soma o valor)
    I2           3        1025,00 II
    M0          2        1730,20 II
    B1          2        269,60   II


    Desde já agradeço imensamente a ajuda dos senhores que além de tudo é um aprendizado.

    Qualquer dúvida é só perguntar.

    Grato
    Anexos
    testemodulo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 6 vez(es)

      Data/hora atual: 21/7/2018, 14:31