Registro 88 sintegra

[Valter Rafael]

Estou precisando gerar o registro 88ean no sintegra, pois aqui na UF MG é obrigatório, mas não está gerando, não aparece no arquivo

Segue o código que estou utilizando

          if (dmdados.query1.FieldByName('codbarra').AsString<>'') or (dmdados.query1.FieldByName('codbarra').AsString='SEM GTIN') then
          Begin
            wregistro88:=TRegistro88ean.Create;
            wregistro88.VersaoEan:=Tversaoean(3);
            wregistro88.Codigo:=strtoint(dmdados.query1.FieldByName('id_prodnfe').AsString);
            wregistro88.Descricao:=dmdados.query1.FieldByName('p1').AsString;
            wregistro88.Unidade:=dmdados.query1.FieldByName('p4').AsString;
            wregistro88.CodigoBarras:=dmdados.query1.FieldByName('codbarra').AsString;
            ACBrSintegra.Registros88Ean.Add(wregistro88);
          End; 

 

se alguém puder ajudar agradeço

[EMBarbosa]

21 horas atrás, Valter Rafael disse:

Estou precisando gerar o registro 88ean no sintegra, pois aqui na UF MG é obrigatório, mas não está gerando, não aparece no arquivo

Segue o código que estou utilizando

          if (dmdados.query1.FieldByName('codbarra').AsString<>'') or (dmdados.query1.FieldByName('codbarra').AsString='SEM GTIN') then
          Begin
            wregistro88:=TRegistro88ean.Create;
            wregistro88.VersaoEan:=Tversaoean(3);
            wregistro88.Codigo:=strtoint(dmdados.query1.FieldByName('id_prodnfe').AsString);
            wregistro88.Descricao:=dmdados.query1.FieldByName('p1').AsString;
            wregistro88.Unidade:=dmdados.query1.FieldByName('p4').AsString;
            wregistro88.CodigoBarras:=dmdados.query1.FieldByName('codbarra').AsString;
            ACBrSintegra.Registros88Ean.Add(wregistro88);
          End; 

 

se alguém puder ajudar agradeço

Tentou reproduzir o problema usando o aplicativo de exemplo?

[Valter Rafael]

2 horas atrás, EMBarbosa disse:

Tentou reproduzir o problema usando o aplicativo de exemplo?

Já resolvi o problema,  faltou esse comando para habilitar 

acbrsintegra.Informa88EAN:=true;

 

Agradeço 

[Juliana Tamizou]

Obrigado por reportar.

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