Erro Sintegra Registro 10 Acbrframework

[jucieudo]

Olá pessoal.

 

Estou começando a desenvolver agora com o ACBrFramework. Utilizo o Visual Studio 2010 (Visual Basic).

O registro 10 está gerando erro na data inicial:

2013053118991230101 (a partir da posição 108 do registro 10)

 

Como posso resolver esse problema?

 

Agradeço desde já.

 

Juciêudo Kéfrem.

[Régys Silveira]

Pelo que percebi ai você não setou a data final e setou a data inicial como a ultima data do mês.

[jucieudo]

Não amigo. Conferi várias vezes debugando. As datas informadas foram: Inicial: 01/05/2013 Final: 31/05/2013. Coloquei até manualmente durante o debug e o resultado foi o mesmo. Segue o código:

 

            Try

                AcBrSintegra1.Registro10.CNPJ = Fu_Zeros(reader("CNPJ").ToString, 14)

                AcBrSintegra1.Registro10.Inscricao = reader("IE").ToString

                AcBrSintegra1.Registro10.RazaoSocial = Fu_Brancos(reader("RAZÃO_SOCIAL").ToString, 35)

                AcBrSintegra1.Registro10.Cidade = Fu_Brancos(reader("CIDADE").ToString, 30)

                AcBrSintegra1.Registro10.Estado = Fu_Brancos(reader("ESTADO").ToString, 2)

                AcBrSintegra1.Registro10.Telefone = Fu_Zeros(reader("FONE").ToString, 10)

                AcBrSintegra1.Registro10.DataInicial = CDate("01/05/2013")

                AcBrSintegra1.Registro10.DataFinal = CDate("31/05/2013")

                AcBrSintegra1.Registro10.CodigoConvenio = VI_CODCONVENIO

                AcBrSintegra1.Registro10.NaturezaInformacoes = cmbNatureza.SelectedIndex + 1

                AcBrSintegra1.Registro10.FinalidadeArquivo = cmbFinalidade.SelectedIndex + 1

            Catch ex As Exception

                MessageBox.Show(ex.Message, "Erro ao gerar Registro10", MessageBoxButtons.OK, MessageBoxIcon.Error)

            End Try

            

            Try

                AcBrSintegra1.Registro11.Bairro = reader("BAIRRO").ToString

                AcBrSintegra1.Registro11.Cep = reader("CEP").ToString

                AcBrSintegra1.Registro11.Complemento = reader("COMPLEMENTO").ToString

                AcBrSintegra1.Registro11.Endereco = reader("ENDEREÇO").ToString

                AcBrSintegra1.Registro11.Numero = reader("NRO").ToString

                AcBrSintegra1.Registro11.Responsavel = txtResponsavel.Text

                AcBrSintegra1.Registro11.Telefone = reader("FONE").ToString

            Catch ex As Exception

                MessageBox.Show(ex.Message, "Erro ao gerar Registro11", MessageBoxButtons.OK, MessageBoxIcon.Error)

            End Try

[Régys Silveira]

Vou mover para o tópico do ACBrFramework, o pessoal que desenvolve pode te ajudar melhor.

[jucieudo]

ok. agradeço.

[jucieudo]

Alguém pode ajudar?

 

Ainda não consegui resolver!