Ultima redução Z SwedaSTX ainda com bug

[marcelo_sp]

Coloquei estas informações em um tópico ja discutido aqui no forum dia 29/04 mas vi que ninguem se manisteu e por isso estou colocando aqui em um novo tópico para os administradores verificarem pois ainda continua com um pequeno bug no trecho a seguir :

{Descontos ISS}

PosI := Pos('DS',RetCMD); // aqui esta o problema (sempre vai existir)

if PosI > 0 then

begin

PosI := PosI + 5 ; {DS }

V := V + StrToFloatDef(Trim(Copy(RetCMD,PosI,18)),0)/100;

end;

Result := Result +'TotalDescontos = '+FormatFloat('#0.00',V)+ sLineBreak;

... esta posição do 'DS' normalmente sempre vai existir , pois uma parte da string de retorno o 'DS' sempre aparece , acredito que é o número de série da MFD , só não deu erro ainda porque por coicidencia normalmente o retorno das posições estão retornando Zero , futuramente se for um número maior ou caracteres alfa , com certeza daria pau .

Minha solução foi :

PosI := Pos('DS ',RetCMD); // um espaço na frente do S funcionou , e acabei colocando este espaço tambem nas demais opções como cancelamento , acrescimo , etc.. , já que na string de retorno tem um espaço na frente desses trechos base .

Abraço a todos .

Marcelo.

[lampada]

Por favor, faça a alteração na ultima versão da UNIT e anexe aqui para facilitar.

Obrigado.

[marcelo_sp]

Me esqueci , desculpa a todos .

Segue anexo das modificações .

Marcelo .

[Daniel Simoes]

Fernando,

Você que é especialista na SwedaSTX... Está tudo certo ? posso subir ?

[lampada]

Olá Daniel.

Olhei no fonte e essa versão dele está desatualizada apesar de as alterações dele estarem corretas.

Vou fazer as alterações na ultima versão baixada do svn testar e anexo aqui.

[lampada]

Beleza, no manual diz que as legendas tem 5 posições.

Baseado nisso, no pos de todas legendas coloquei para ele busca utilizando os 5 caracteres('DS ') e não apenas o nome da legenda('DS').

Obrigado Marcelo pela sua colaboração.

ACBrECFSwedaSTX.zip

[rossine]

Boa tarde Fernando,

Na versão que tenho aqui vejo 3 problemas:

1) Número do COO eu estou tendo que subtrair 1.

2) Valor dos Descontos estão dobrando.

3) Valor dos cancelamentos está errado.

Tem como você verificar nesta última versão se estes problemas já foram corrigidos ?

Obrigado pela atenção,

Rossine.

[lampada]

Descontos e cancelamentos estão corrigidos.

De qual COO que vc está falando?

[rossine]

Olá Fernando,

Sobre o NumCOO está correto:

Retorno do arquivo de redução .INI:

get NUMCOO section "ECF" entry "NUMCOO" default 0

O problema era somente o cancelamento e desconto mesmo

Sobre o COO Inicial e Final estou fazendo assim:

Retorno do arquivo de redução .INI:

get NUMCOI section "ECF" entry "NUMCOOINICIAL" default 0

get NUMCOO section "ECF" entry "NUMCOO" default 0

COO Inicial = NUMCOI

COO Final = NUMCOO

Você também pega estes COO´s assim ?

Obrigado,

Rossine.

[lampada]

Isso

[rossine]

Blz

[Daniel Simoes]

Oi Fernando... Obrigado pelo retorno... já subi suas alterações

[rossine]

Olá Fernando e Daniel,

Agora os dados da última redução Z, estão sendo retornandos corretamente para a swedaSTX.

Obrigado pelas correções,

Rossine.