Ir para conteúdo
  • Cadastre-se

dev botao

Geração Do Sintegra


Ver Solução Respondido por Rafael Dias,
  • Este tópico foi criado há 3900 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Entao pessoal, estou implementando em meu pdv a geração do registro 60 do sintegra, bom ate ai tudo bem, so que ao executar a minha rotina, segue ela:

 'REGISTRO TIPO 10 **************************************************************************************************************************************
      AcBrSintegra.LimparRegistros()

      With AcBrSintegra.Registro10
         .FinalidadeArquivo = CInt(TxtFinalidade.Text)
         .CNPJ = CStr(FbDs.Tables(0).Rows(0).Item("cnpjfilial"))
         .Inscricao = CStr(FbDs.Tables(0).Rows(0).Item("iefilial"))
         .RazaoSocial = FbDs.Tables(0).Rows(0).Item("razaosocial").ToString
         .Cidade = FbDs.Tables(0).Rows(0).Item("nomemunic").ToString
         .Estado = FbDs.Tables(0).Rows(0).Item("siglauf").ToString
         .Telefone = FbDs.Tables(0).Rows(0).Item("fonefilial1").ToString
         .DataInicial = CDate(TxtData1.Text) '=01/01/2012
         .DataFinal = CDate(TxtData2.Text) '=31/12/2012
         .CodigoConvenio = 3
         .NaturezaInformacoes = 3
      End With

      'REGISTRO TIPO 11 **************************************************************************************************************************************
      With AcBrSintegra.Registro11
         .Endereco = FbDs.Tables(0).Rows(0).Item("endfilial").ToString
         .Numero = FbDs.Tables(0).Rows(0).Item("numero").ToString
         .Complemento = FbDs.Tables(0).Rows(0).Item("complemento").ToString
         .Bairro = FbDs.Tables(0).Rows(0).Item("bairrofilial").ToString
         .Cep = FbDs.Tables(0).Rows(0).Item("cepfilial").ToString
         .Responsavel = FbDs.Tables(0).Rows(0).Item("nomeresp").ToString
         .Telefone = FbDs.Tables(0).Rows(0).Item("fonefilial2").ToString
      End With

 

'outros registros que nao vem ao caso

      AcBrSintegra.VersaoValidador = ACBrFramework.Sintegra.VersaoValidador.V524

      AcBrSintegra.FileName = Application.StartupPath & "\fisco.txt"
      AcBrSintegra.GeraArquivo()

 

 

segue tambem o arquivo em anexo gerado.

 

bom vamos ao problema, esta gerando a data final com erro vejam no arquivo gerado, ta la como '18991230'

 

fisco.txt

Link para o comentário
Compartilhar em outros sites

  • Consultores

O que é CDate? É um método seu?

Faz um debug do código e verifique se o valor está sendo gravado corretamente no Registro 10. Também veja quando é que o componente altera o valor.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

Cdate converte uma string para data, ou seja, pega o que esta no controle text e transforma em data, pois o controle retorna texto, bom... eu ja debuguei e os valores e nao estao errados, parece que é quando vai gerar o arquivo, pois nas propriedades do acbrsintegra os valores estao todos ok, so que gera com valor errado.

a

 

aah, esqueci de falar o cdate é uma function do proprio vb.net

Editado por marcelokrol
Link para o comentário
Compartilhar em outros sites

  • 6 meses depois ...
  • Este tópico foi criado há 3900 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.