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


2 participantes

    EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP

    Styluss
    Styluss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 21/05/2014

    EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP Empty EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP

    Mensagem  Styluss 1/7/2015, 03:18


    Olá pessoal, estamos com uma situação diferente para exportar dados no formato TXT > ISO-8859-1

    Estou preparando a exportação dos dados para o Educacenso 2015.

    A equipe do Educacenso me disponibilizou o modelo abaixo com a ordem dos dados que serão exportados do sistema Access para o site do INEP.

    REGRAS GERAIS PARA O ARQUIVO DE IMPORTAÇÃO/EXPORTAÇÃO – EDUCACENSO 2015 (.TXT ISO-8859-1)

    CADASTRO DE ESCOLA – IDENTIFICAÇÃO – REGISTRO 00
    CADASTRO DE ESCOLA – CARACTERIZAÇÃO E INFRAESTRUTURA – REGISTRO 10
    CADASTRO DE TURMA – REGISTRO 20
    CADASTRO DE PROFISSIONAL ESCOLAR EM SALA DE AULA – IDENTIFICAÇÃO – REGISTRO 30
    CADASTRO DE PROFISSIONAL ESCOLAR EM SALA DE AULA – DOCUMENTOS E ENDEREÇO – REGISTRO 40
    CADASTRO DE PROFISSIONAL ESCOLAR EM SALA DE AULA – DADOS VARIÁVEIS – REGISTRO 50
    CADASTRO DE PROFISSIONAL ESCOLAR EM SALA DE AULA – DADOS DE DOCÊNCIA – REGISTRO 51
    CADASTRO DE ALUNO – IDENTIFICAÇÃO – REGISTRO 60
    CADASTRO DE ALUNO – DOCUMENTOS E ENDEREÇO – REGISTRO 70
    CADASTRO DE ALUNO – VÍNCULO (MATRÍCULA) – REGISTRO 80

    Modelo do arquivo disponibilizado pelo INEP:

    00|52000000|12345678901|JOSE ALMEIDA|1|JOSE.ALMEIDA156487@GMAIL.COM|1|02/02/2015|27/11/2015|ESCOLA MACHADO DE ASSIS|||76270000|BECO SEM SAIDA||||52|5212204|5|||||||00018|2|1||||||||||1|0||
    10|52000000|0|0|0|0|0|0|0|0|1|||||||||2|1|0|0|0|0|1|0|0|0|1|0|0|1|0|0|0|0|0|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|0||5||||||||||||||||||10|1|1|1|1|0|0|0||7|1|0|0|0||||0|0|0
    20|52000000||T01|ENSINO MEDIO 1 SERIE|1|08|00|12|00|0|1|1|1|1|1|0|0|0||||||||||||||||||1|25||0|0|1|0|0|1|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0
    20|52000000||T02|ATIVIDADE COMPLEMENTAR|1|14|00|16|00|0|1|1|1|1|1|0|4|0|11002||||||||||||||||||||||||||||||||||||||||||||||
    20|52000000||T03|AEE|1|16|00|18|00|0|1|1|1|1|1|0|5||||||||1|0|0|0|0|0|0|0|0|0|0||||||||||||||||||||||||||||||
    30|52000000|120000000000|D01|AMANDA VAZ ARAUJO|||02/11/1988|1|0|RAQUEL VAZ ARAUJO|1|76|51|5101258|0||||||||
    40|52000000|120000000000|D01|22598568425||||||||
    50|52000000|120000000000|D01|5||||||||||||||||||||||||||0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|1
    51|52000000|120000000000|D01||T01|1|1|3|6|||||||||||
    51|52000000|120000000000|D01||T02|1|1|||||||||||||
    51|52000000|120000000000|D01||T03|1|1|||||||||||||
    60|52000000||A01|JOAO ARAUJO DA SILVA|01/01/2000|1|0|0|||1|76|21|2111300|0|||||||||||||||||||||||
    70|52000000||A01||||||||||||||||||1|||||||
    80|52000000||A01||T01||||3|0|||||||||||||
    80|52000000||A01||T02|||||0|||||||||||||
    60|52000000||A02|MARIA JOSE DA SILVA|04/03/2001|1|0|0|||1|76|21|2111300|0|||||||||||||||||||||||
    70|52000000||A02||||||||||||||||||1|||||||
    80|52000000||A02||T03|||||0|||||||||||||

    Diante deste modelo alguém pode ajudar, orientando como exportar os dados observando esta ordem das linhas?

    Agradeço desde já a quem puder ajudar, pois até o momento não encontrei nada sobre esta dúvida.

    Idea

    Arquivo PDF com as Orientações do Layout 2015:
    http://download.inep.gov.br/educacao_basica/educacenso/migracao/2015/layout_importacao_exportacao_2015_v3.pdf



    .................................................................................
    Gilberto Moreira. ( Styluss )    -    A dúvida é o principio da sabedoria. (Aristóteles)
    Access 2013 - Windows 7 Home Premium - 64 Bits
    Hephraim BF
    Hephraim BF
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 134
    Registrado : 05/03/2013

    EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP Empty Re: EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP

    Mensagem  Hephraim BF 1/7/2015, 13:52

    Olá amigo!

    Você já fez alguma vez a importação e, nesse sentido, está com dificuldade apenas nesse novo layout do Educacenso?
    Styluss
    Styluss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 21/05/2014

    EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP Empty Re: EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP

    Mensagem  Styluss 1/7/2015, 14:05

    Bom dia Hephraim BF

    Ainda não fiz,

    Estou sem saber ainda, como montar o arquivo automaticamente.

    Pois poderia geral um exportação individualmente para cada tipo de registro: 00, 10 , 20 etc

    Mas pra gerar o arquivo com todos juntos na ordem que o inep solicita, ainda não encontrei um forma automática pra realizar esta exportação dos dados.


    Você encontrou um forma pra fazer isso?


    .................................................................................
    Gilberto Moreira. ( Styluss )    -    A dúvida é o principio da sabedoria. (Aristóteles)
    Access 2013 - Windows 7 Home Premium - 64 Bits
    Hephraim BF
    Hephraim BF
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 134
    Registrado : 05/03/2013

    EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP Empty Re: EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP

    Mensagem  Hephraim BF 1/7/2015, 14:19

    Tudo bem.

    Amigo vou te ajudar nessa. Também desenvolvo sistemas escolares e quando surgiu essa necessidade de exportação para o Educacenso tive um trabalho considerável em resolver a minha situação, pois não encontrava nada a respeito, até que encontrei as instruções do próprio site que disponibiliza o layout com instruções e tabelas auxiliares e com a ajuda desse fórum pude enviar tanto os dados da coleta inicial quanto a coleta de movimentação.

    Primeiramente, esse fórum é show!
    Segundamente, se a sua dúvida for apenas na geração dos dados no arquivo que será importado para o Educacenso, não é tão complicado.

    Uso esse código - Ele gera o arquivo com os dados da movimentação escolar dos alunos que possui três tipos de registros:
    O cadastro da escola;
    Dados dos alunos informados ao censo;
    Dados dos alunos admitidos após o censo.

    Código:
    Dim N As Integer
        Dim rstEscola As Recordset
        Dim rst As Recordset
        Dim rstApos As Recordset
        
        N = FreeFile
        
        Set rstEscola = CurrentDb.OpenRecordset("cons_B_Integracao_Situacao_Escola")
        Set rst = CurrentDb.OpenRecordset("cons_B_Integracao_Situacao_Aluno")
        Set rstApos = CurrentDb.OpenRecordset("cons_B_Integracao_Situacao_Aluno_Apos")
        Open caminho For Output As #N
        
        Do While Not rstEscola.EOF
            Print #N, rstEscola!TipoRegistro & "|" & rstEscola!CodigoINEP & "|" & rstEscola!GestorCPF & "|" & rstEscola!GestorNome & "|" & rstEscola!GestorCargo & "|" & rstEscola!GestorEmail & "|"
            rstEscola.MoveNext
        Loop
        
        Do While Not rst.EOF
            Print #N, rst!TipoRegistro & "|" & rst!CodEscola & "|" & rst!CodTurmaLocal & "|" & rst!CodTurmaINEP & "|" & rst!CodAlunoINEP & "|" & Format(rst!CodAlunoLocal, "000000") & "|" & rst!CodMatriculaINEP & _
                        "|" & rst!CodModalidade & "|" & rst!CodEt & "|" & rst!Movimento & "|" & rst!Rendimento & "|" & rst!Concluinte & "|" & rst!Andamento & "|"
            rst.MoveNext
        Loop
        
        Do While Not rstApos.EOF
            Print #N, rstApos!TipoRegistro & "|" & rstApos!CodEscola & "|" & rstApos!CodTurmaLocal & "|" & rstApos!CodTurmaINEP & "|" & rstApos!CodAlunoINEP & "|" & rstApos!CodAlunoLocal & "|" & _
                            rstApos!NomeAluno & "|" & rstApos!Nascimento & "|" & rstApos!NomeMae & "|" & rstApos!CodMatriculaINEP & _
                            "|" & rstApos!CodModalidade & "|" & rstApos!CodEtapa & "|" & rstApos!Movimento & "|" & rstApos!Rendimento & "|" & rstApos!Concluinte & "|" & rstApos!Andamento & "|"
            rstApos.MoveNext
        Loop
        
        Set rstApos = Nothing
        Set rst = Nothing
        Set rstEscola = Nothing
        Close #N

    Boa sorte aí!
    Qualquer coisa estou por aqui.
    Styluss
    Styluss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 21/05/2014

    EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP Empty Re: EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP

    Mensagem  Styluss 1/7/2015, 15:07

    Certo,

    Este código seria para gerar o arquivo de "Situação do Aluno"? correto?

    Para enviar os dados do censo 2015 (escola, turmas, profissionais, alunos) seria outro código ou seria a mesma lógica adaptando os campos?


    .................................................................................
    Gilberto Moreira. ( Styluss )    -    A dúvida é o principio da sabedoria. (Aristóteles)
    Access 2013 - Windows 7 Home Premium - 64 Bits
    Styluss
    Styluss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 21/05/2014

    EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP Empty Re: EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP

    Mensagem  Styluss 2/7/2015, 05:38

    Olá Hephraim BF,

    Fiz um teste com apenas uma consulta, conforme o código abaixo:

    Código:

    Private Sub Comando0_Click()

    Dim N As Integer
        Dim rstDocentes1 As Recordset
        Dim rstDocentes2 As Recordset
        Dim rstDocentes3 As Recordset
        
        N = FreeFile
        
        Set rstDocentes1 = CurrentDb.OpenRecordset("cns_Docentes")
        Set rstDocentes2 = CurrentDb.OpenRecordset("cns_Docentes")
        Set rstDocentes3 = CurrentDb.OpenRecordset("cns_Docentes")
    '    Open Caminho For Output As #N
        Open "C:\micro_censo_escolar_2015\DADOS\docentes.txt" For Output As #N
        
        Do While Not rstDocentes1.EOF
            Print #N, "10" & "|" & rstDocentes1!ANO_CENSO & "|" & rstDocentes1!FK_COD_DOCENTE & "|"
            rstDocentes1.MoveNext
        Loop
        
        Do While Not rstDocentes2.EOF
            Print #N, "20" & "|" & rstDocentes2!NU_DIA & "|" & rstDocentes2!NU_MES & "|" & rstDocentes2!NU_ANO & "|"
            rstDocentes2.MoveNext
        Loop
        
        Do While Not rstDocentes3.EOF
            Print #N, "30" & "|" & rstDocentes3!FK_COD_MUNICIPIO_DEND & "|" & rstDocentes3!PK_COD_ENTIDADE & "|" & rstDocentes3!ID_NOME_INSTITUICAO_1 & "|"
            rstDocentes3.MoveNext
        Loop
        
        Set rstDocentes1 = Nothing
        Set rstDocentes2 = Nothing
        Set rstDocentes3 = Nothing
        Close #N

    End Sub


    O Resultado foi a geração de um arquivo .txt com o conteudo abaixo:
    Código:

    10|2014|117357508754|
    10|2014|112088947046|
    10|2014|121543170910|
    20|11|4|1969|
    20|2|11|1983|
    20|5|8|1979|
    30|2906808|29115620|UNIVERSIDADE DO ESTADO DA BAHIA|
    30|2906808|29115620|ÁREA1 - FACULDADE DE CIÊNCIA E TECNOLOGIA|
    30|2906808|29115620|FTC EAD FACULDADE DE TECNOLOGIA E CIENCIAS ENSINO A DISTANCIA|

    Com mais algumas horas ou dias o código para gerar o arquivo completo deverá ficar no ponto.
    Notei que a geração do arquivo é meio demorada, pois neste teste com aproximadamente 240 regístros, levou uns 5 minutos para terminar.
    Na escola onde implantou o sistema você sabe o tempo para gerar o arquivo e quantos alunos tem na escola?

    Muito obrigado mesmo, ajudou muito! Vou agilizar para enviar os dados do censo ainda este ano.



    .................................................................................
    Gilberto Moreira. ( Styluss )    -    A dúvida é o principio da sabedoria. (Aristóteles)
    Access 2013 - Windows 7 Home Premium - 64 Bits

    Conteúdo patrocinado


    EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP Empty Re: EducaCenso - Layout de migração 2015 - Como exportar dados obedecendo as regras do INEP

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/5/2024, 12:22