Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

Registro I015


CHARLESCMS
Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 2871 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

BOM DIA A TODOS, ESTROU PRESTANDO SERVIÇOS EM UMA EMPRESA QUE USA ESTA BOA FERRAMENTA. O ANALISTA ANTERIOR ESCREVEU NO CÓDIGO "propriedade RegistroI015 deixou de existir no componente. 02/07/2012 Na próxima geração de arquivo, será necessário resolver isto." SE ALGUÉM PUDER ME RESPONDE. GOSTARIA DE SABER PORQUE FOI RETIRADA E QUAL É O PROCESSO SUBSTITUTO. PESQUISEI NA INTERNET E NO BLOG E NÃO TIVE RESULTADO SATISFATÓRIO DESDE JÁ AGRADEÇO A TODOS AS PESSOAS. 

Link to comment
Share on other sites

  • 5 months later...
  • Consultores

BOM DIA A TODOS, ESTROU PRESTANDO SERVIÇOS EM UMA EMPRESA QUE USA ESTA BOA FERRAMENTA. O ANALISTA ANTERIOR ESCREVEU NO CÓDIGO "propriedade RegistroI015 deixou de existir no componente. 02/07/2012 Na próxima geração de arquivo, será necessário resolver isto." SE ALGUÉM PUDER ME RESPONDE. GOSTARIA DE SABER PORQUE FOI RETIRADA E QUAL É O PROCESSO SUBSTITUTO. PESQUISEI NA INTERNET E NO BLOG E NÃO TIVE RESULTADO SATISFATÓRIO DESDE JÁ AGRADEÇO A TODOS AS PESSOAS. 

Boa tarde CHARLESCMS, primeiro seja bem vindo ao projeto, segundo peço para que leia as regras do fórum

Lá tem um item que fala sobre não escrever textos em caixa alta pois pode parecer estar gritando com os demais colegas!

 

Olá, também estou com o mesmo problema, CharlesCmS, conseguiu resolver?

Bom vocês chegaram a ver o código? E o manual

Ele faz parte do registro TRegistroI012

então existe e está lá mas no local correto

veja o codigo abaixo

  /// Registro I012 - LIVROS AUXILIARES AO DIÁRIO

  TRegistroI012 = class
  private
    fNUM_ORD: String;        /// Número de ordem do instrumento associado.
    fNAT_LIVR: String;       /// Natureza do livro associado; finalidade a que se destina o instrumento.
    fTIPO: String;           /// Tipo de escrituração do livro associado: 0 – digital (incluídos no Sped) 1 – outros.
    fCOD_HASH_AUX: String;   /// Código Hash do arquivo correspondente ao livro auxiliar utilizado na assinatura digital.
    FRegistroI015: TRegistroI015List;  /// BLOCO I - Lista de RegistroI051 (FILHO)
  public
    constructor Create; virtual; /// Create
    destructor Destroy; override; /// Destroy

    property NUM_ORD: String read fNUM_ORD write fNUM_ORD;
    property NAT_LIVR: String read fNAT_LIVR write fNAT_LIVR;
    property TIPO: String read fTIPO write fTIPO;
    property COD_HASH_AUX: String read fCOD_HASH_AUX write fCOD_HASH_AUX;

    /// Registros FILHOS
    property RegistroI015: TRegistroI015List read FRegistroI015 write FRegistroI015;
  end;
Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

Bom dia, no meu caso, na geração da dll, o erro está dando neste ponto:

 

Function RegistroI015(SEQ_ITEM:integer; COD_CTA_RES: PChar): Integer; Export; stdcall;
begin
   Result := 0;
   try
     SC.Bloco_I.RegistroI015.New;   // erro aqui
     SC.Bloco_I.RegistroI015.Items[sEQ_ITEM].COD_CTA_RES := COD_CTA_RES; // erro aqui
   except
     Result := -1;
   end;
end;

post-12529-0-68744800-1389876702.png

Edited by Eroni
Link to comment
Share on other sites

  • Consultores

Bom dia, no meu caso, na geração da dll, o erro está dando neste ponto:

 

Function RegistroI015(SEQ_ITEM:integer; COD_CTA_RES: PChar): Integer; Export; stdcall;

begin

   Result := 0;

   try

     SC.Bloco_I.RegistroI015.New;   // erro aqui

     SC.Bloco_I.RegistroI015.Items[sEQ_ITEM].COD_CTA_RES := COD_CTA_RES; // erro aqui

   except

     Result := -1;

   end;

end;

attachicon.gifSem título3.png

Você olhou o código que colei?

entendeu que ele não faz parte do principal e sim é filho o outro registro?

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

Boa tarde, Juliomar, acredito que estes erros deve ser minha falta de conhecimento em Delphi mesmo, a ultima vez que eu trabalhei com Delphi estava na versão 5 ainda, de la pra cá não mexi mais, meu aplicativo é em outra ferramenta. Mas vou tentar voltar a ter a mesma prática que tinha antes, e assim, também vou poder contribuir para esta comunidade. Alguma dica de documentação para quem está enferrujado?

Grato.

Link to comment
Share on other sites

  • Consultores

 

Boa tarde CHARLESCMS, primeiro seja bem vindo ao projeto, segundo peço para que leia as regras do fórum

Lá tem um item que fala sobre não escrever textos em caixa alta pois pode parecer estar gritando com os demais colegas!

 

Bom vocês chegaram a ver o código? E o manual

Ele faz parte do registro TRegistroI012

então existe e está lá mas no local correto

veja o codigo abaixo

  /// Registro I012 - LIVROS AUXILIARES AO DIÁRIO

  TRegistroI012 = class
  private
    fNUM_ORD: String;        /// Número de ordem do instrumento associado.
    fNAT_LIVR: String;       /// Natureza do livro associado; finalidade a que se destina o instrumento.
    fTIPO: String;           /// Tipo de escrituração do livro associado: 0 – digital (incluídos no Sped) 1 – outros.
    fCOD_HASH_AUX: String;   /// Código Hash do arquivo correspondente ao livro auxiliar utilizado na assinatura digital.
    FRegistroI015: TRegistroI015List;  /// BLOCO I - Lista de RegistroI051 (FILHO)
  public
    constructor Create; virtual; /// Create
    destructor Destroy; override; /// Destroy

    property NUM_ORD: String read fNUM_ORD write fNUM_ORD;
    property NAT_LIVR: String read fNAT_LIVR write fNAT_LIVR;
    property TIPO: String read fTIPO write fTIPO;
    property COD_HASH_AUX: String read fCOD_HASH_AUX write fCOD_HASH_AUX;

    /// Registros FILHOS
    property RegistroI015: TRegistroI015List read FRegistroI015 write FRegistroI015;
  end;

Não se faz necessário conhecimento especifico em delphi 

confere comigo acima o trecho do código que postei, então ele está a dizer que o registro I015 está dentro do I012

portanto não conseguirá acessar diretamente ele e sim através do registro I012

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • Consultores
  • Solution

Deixa tentar explicar com código:
ERRADO

    SC.Bloco_I.RegistroI015.New;

CORRETO

    SC.Bloco_I.RegistroI012[i].RegistroI015.New;
  • Like 1

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

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

  • Este tópico foi criado há 2871 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.