Ajuste Componente Bloco X - erro no envio

[Darlan Souza]

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

[EMBarbosa]

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ê...

[Régys Silveira]

Realmente, eu não tinha testado somente com serviços e acabou passando o bug,

Já subi as correções para o SVN, obrigado pela observação.

[Darlan Souza]

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]

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)

Editado 28 Janeiro, 2016 por Darlan Souza
Acho que estou fora do assunto.

[giulianon]

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.

 

Editado 28 Janeiro, 2016 por giulianon

[Darlan Souza]

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.

[giulianon]

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.

Editado 28 Janeiro, 2016 por giulianon

[Juliomar Marchetti]

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

[giulianon]

O homologador me enviou os arquivos xsd.

Segue anexo para que tiver dúvida na estrutura.

 

Att.

ReducaoZ.xsd

Estoque.xsd