Jump to content

Ajuste Componente Bloco X - erro no envio


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

Recommended Posts

Prezados, correção no arquivo de Envio ao Fisco Redução Z.

Na utilização do Serviço está apresentando a mensagem:

Citar

List index out of bounds (0)

 Verifiquei que na lógica está assim:

Citar

      if Servicos.Count > 0 then
        begin
          for X := 0 to Servicos.Count - 1 do
          begin
            FGerador.wGrupo('Servico');
            FGerador.wCampo(tcStr, '', 'Descricao',     0, 0, 1, Produtos[X].Descricao);
            FGerador.wCampo(tcStr, '', 'Codigo',        0, 0, 1, Produtos[X].Codigo.Numero, '', True, 'Tipo="' + TipoCodigoToStr(Produtos[X].Codigo.Tipo) + '"');
            FGerador.wCampo(tcStr, '', 'Quantidade',    0, 0, 1, Produtos[X].Quantidade);
            FGerador.wCampo(tcStr, '', 'Unidade',       0, 0, 1, Produtos[X].Unidade);
            FGerador.wCampo(tcStr, '', 'ValorUnitario', 0, 0, 1, FloatToIntStr(Produtos[X].ValorUnitario, 2));
            FGerador.wGrupo('/Servico');
          end;
        end;

Quando o correto seria asism:

Citar

        if Servicos.Count > 0 then
        begin
          for X := 0 to Servicos.Count - 1 do
          begin
            FGerador.wGrupo('Servico');
            FGerador.wCampo(tcStr, '', 'Descricao',     0, 0, 1, Servicos[X].Descricao);
            FGerador.wCampo(tcStr, '', 'Codigo',        0, 0, 1, Servicos[X].Codigo.Numero, '', True, 'Tipo="' + TipoCodigoToStr(Servicos[X].Codigo.Tipo) + '"');
            FGerador.wCampo(tcStr, '', 'Quantidade',    0, 0, 1, Servicos[X].Quantidade);
            FGerador.wCampo(tcStr, '', 'Unidade',       0, 0, 1, Servicos[X].Unidade);
            FGerador.wCampo(tcStr, '', 'ValorUnitario', 0, 0, 1, FloatToIntStr(Servicos[X].ValorUnitario, 2));
            FGerador.wGrupo('/Servico');
          end;
        end;

Segue unit para análise da correção.

ACBrBlocoX_ReducaoZ.pas

  • Like 1

Darlan Souza

Ninguém sabe tanto que não possa aprender e nem tão pouco que não possa ensinar.

Link to comment
Share on other sites

  • Consultores

Crie um tópico novo para uma dúvida nova conforme as regras. Veja neste link aqui, em especial a "2.2 - Permaneça no assunto". 

Dessa vez eu dividi o tópico para você...

[]'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

  • 4 weeks later...

Boa tarde Régys, voltei a testar usando o serviço e verifiquei que ainda existe o bug, faltou aplicar a correção no tipo:

FGerador.wCampo(tcStr, '', 'Codigo',        0, 0, 1, Servicos[X].Codigo.Numero, '', True, 'Tipo="' + TipoCodigoToStr(Produtos[X].Codigo.Tipo) + '"');

Darlan Souza

Ninguém sabe tanto que não possa aprender e nem tão pouco que não possa ensinar.

Link to comment
Share on other sites

Bom dia, passei o xml para meu homologador verificar e ele me informou que existe uma inconsistência no leiaute.

Errado:

<ReducaoZ Versao="1.0">

<Codigo Tipo="GTIN">12345678901234</Codigo>

 

Correto:

<ReducaoZ>

<Versao>1.0</Versao>

 

<Codigo>12345678901234</Codigo>

<Tipo>GTIN</Tipo>

 

Caso proceda o que ele me passou, segue unit modificada. 

ACBrBlocoX_ReducaoZ.pas

 

(Perdão se não permaneci no assunto, não observei o título do tópico)

Edited by Darlan Souza
Acho que estou fora do assunto.

Darlan Souza

Ninguém sabe tanto que não possa aprender e nem tão pouco que não possa ensinar.

Link to comment
Share on other sites

  • Solution

Enviei o arquivo ao homologador (Vou homologar dia 3/3 - Unisul - SC), e ele me informou que está correto, ou seja, sem as alterações que você informou que o seu homologador solicitou.

E segundo https://www.confaz.fazenda.gov.br/legislacao/despacho/2015/despacho-209-15 e a imagem, acho que de fato o seu homologador está equivocado.

Att.

 

aaaa.png

Edited by giulianon

Giuliano Naspolini Ribeiro

Automalog Consultoria e Sistemas Ltda

Link to comment
Share on other sites

Obrigado pela observação Giuliano.

Eu realmente não verifiquei o Despacho, como está próximo minha homologação, simplesmente fiz a modificação solicitada.

Cara, nem os "homologadores" são capacitados para nos passar a informação corretamente. É tenso desenvolver um PAF-ECF totalmente as cegas.

Darlan Souza

Ninguém sabe tanto que não possa aprender e nem tão pouco que não possa ensinar.

Link to comment
Share on other sites

Hehehehe. Exatamente.

Eu até solicitei para ele um validador mas ele me informou que ainda não está pronto.

Sem roteiro de testes e sem validador fica complicado.

Att.

Edited by giulianon

Giuliano Naspolini Ribeiro

Automalog Consultoria e Sistemas Ltda

Link to comment
Share on other sites

  • Consultores

Correto então vamos dar por encerrado o tópico!

  • Like 1
Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

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