tpDoc 99 - Não gera tag

[fefevilela]

Bom dia.

Ao incluir um registro de Documento com o tipo 99, o componente não está gerando a tag <tpDoc>99 </tpDoc>.

segue trecho correspondente:
            <infDoc>
                <infOutros>
                    <tpDoc/>
                    <descOutros>PED</descOutros>
                    <nDoc>1</nDoc>
                    <dEmi>2020-05-23</dEmi>
                    <vDocFisc>1000.00</vDocFisc>
                </infOutros>
            </infDoc>

Isto tem alguma relação com os schemas ?

[Juliomar Marchetti]

Bom dia.

Não, mas com combinações de tags

[fefevilela]

14 minutos atrás, Juliomar Marchetti disse:

Bom dia.

Não, mas com combinações de tags

Olá Juliomar,

Verificando a Classe: 

Constatei que na linha 1675, existe a referencia a um item do TMemIniFile que não foi definido,
          tpDoc      := StrToTpDocumento(OK,INIRec.ReadString(sSecao,'tpDoc','01'));

Não seria esse o problema??

[Juliomar Marchetti]

tu tá usando o monitor?

[fefevilela]

2 minutos atrás, Juliomar Marchetti disse:

tu tá usando o monitor?

Não... usando apenas o componente TACBrCte..

Estou investigando o motivo dessa tag não estar sendo preenchida e sendo recusada pela SEFAZ.

Pelo manual, ela deveria ser preenchida com 99, porem algo está fazendo com que ela seja anulada no xml...

[BigWings]

Agora, fefevilela disse:

Não... usando apenas o componente TACBrCte..

Como está alimentando a tag no componente?

[fefevilela]

1 minuto atrás, BigWings disse:

Como está alimentando a tag no componente?

              with infDoc.infOutros.New do
              begin
                tpDoc      := TpCteTipoDocumento(99);
                descOutros := Movimentos_Documentostipo.AsWideString;
                nDoc       := Movimentos_Documentosdocumento.AsWideString;
                dEmi       := Movimentos_Documentosdt_emissao_nf.AsDateTime;
                vDocFisc   := Movimentos_Documentosvl_documento.AsFloat;
              end;

[BigWings]

4 minutos atrás, fefevilela disse:

                tpDoc      := TpCteTipoDocumento(99);

Dessa forma está acessando pelo índice do enumerado, e não pelo valor.

Faça:

Citar

          tpDoc      := StrToTpDocumento(ok, '99');

 

[fefevilela]

3 minutos atrás, BigWings disse:

Dessa forma está acessando pelo índice do enumerado, e não pelo valor.

Faça:

 

Obrigado.. falha imperdoável.
problema sanado.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.