Código: Selecionar todos
IF eq->(dbSeek(hc->cod_mercad))
cFim := ' '
ELSE
cFim := '✔'
ENDIF
If lAnalitico
? '<tr bgcolor="#FFFFFF">'
?? '<td>'+hc->cod_mercad + '</td>'
?? '<td>'+hc->mercadoria + '</td>'
?? '<td align="center">' + cFim + '</td>'
?? '<td align="right">'+transform(hc->quantidade,PictUnidade('hc',lMsgCad))+es->unidade + '</td>'
?? '<td align="right">'+transform(hc->preco_unit,'@e 9999,999.99') + '</td>'
?? '<td align="right">'+transform(hc->desconto,'@e 99999.99') + ' ' + hc->tipo_desc + '</td>'
?? '<td align="right">'+transform(soma_valor('hc'),'@e 9999,999.99') + '</td>'
EndIf
Itamar M. Lins Jr.

