Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Geração Do Sintegra


marcelokrol
Go to solution Solved by Rafael Dias,
  • Este tópico foi criado há 3222 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 to comment
Share on other 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 to comment
Share on other 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

Edited by marcelokrol
Link to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.