Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Bloco X - Redução Z


douglas_k
  • Este tópico foi criado há 1579 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia Pessoal,

    Me surgiu uma duvida nos arquivos de reduções z do bloco x. Nos campos VendaBrutaDiaria e GT devem ser informado um numero inteiro com zeros a esquerda para completar o tamanho. Supondo que tenho um valor de Venda Bruta de 1.065,98 esse campo deve ser informado de qual forma:

<VendaBrutaDiaria>00000000106598</VendaBrutaDiaria> Com as decimais

<VendaBrutaDiaria>00000000001065</VendaBrutaDiaria> Sem as decimais.

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Eu já iniciei os envios do bloco x nos postos de combustível e acabei vendo o seguinte, o ACBr manda com as casas decimais, mais quando é um valor que termina com 0 ele corta uma casa, exemplo, com o mesmo valor usado acima '1.065,98' ele vai:

<VendaBrutaDiaria>00000000106598</VendaBrutaDiaria>

Agora se o valor terminar com 0, por exemplo, '1.065,90' ele vai:

<VendaBrutaDiaria>00000000010659</VendaBrutaDiaria> acaba desconsiderando a ultima casa,

Alguém verificou essa situação? Estou com o ACBr atualizado com a ultima versão.

 

Até mais.

Link to comment
Share on other sites

Contornei o problema fazendo um ajuste na unit ACBrBlocoX_ReducaoZ na procedure TACBrBlocoX_ReducaoZ.GerarXML.

Comentei as seguintes linhas

//  FGerador.wCampo(tcNumStr, '', 'VendaBrutaDiaria', 14, 14, 1, OnlyNumber(CurrToStr(VendaBrutaDiaria)));
//  FGerador.wCampo(tcNumStr, '', 'GT', 18, 18, 1, OnlyNumber(CurrToStr(GT)));

e substitui o 'CurrToStr' por um FormatFloat. Não sei se é a melhor forma mais assim fica garantido que sempre ele vai trabalhar com duas casas decimais antes de tirar os outros caracteres do valor e acrescentar os zeros a esquerda.

  FGerador.wCampo(tcNumStr, '', 'VendaBrutaDiaria', 14, 14, 1, OnlyNumber(FormatFloat('0.00', VendaBrutaDiaria)));
  FGerador.wCampo(tcNumStr, '', 'GT', 18, 18, 1, OnlyNumber(FormatFloat('0.00', GT)));

 

Link to comment
Share on other sites

  • Consultores

Anexe o arquivo com a sugestão que avaliamos.

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

  • Consultores
Em 26/01/2018 at 13:59, douglas_k disse:

Show, anexei agora.

ACBrBlocoX_ReducaoZ.pas

no svn a contribuição

Obrigado

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á 1579 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.