Bom dia Pessoal. Estamos com um erro no EN0804 e é no campo estrutura.quant-usada, que é usado somente pelos programas onde se usa. Alguem já passou por isto ? Poderia informar qual foi a forma para a correção ? Atte;
As consultas onde se usa, tipo o EN0804 está mostrando quantidade errada. Abrimos chamado e o suporte falou do campo estrutura.quant-usada que só é utilizado pelos programas com conceito "Tipo se usa" igual ao EN0804 ou EN0210. Este campo está com valor errado. Segundo o suporte, ele é calculado como sendo: IF estrutura.log-quant-fix = YES THEN de-quant-usada = estrutura.qtd-compon. ELSE de-quant-usada = estrutura.qtd-compon / estrutura.qtd-item. Passei um programa para verificação e achei um certo numero de divergencia. E preciso bolar uma forma de correção em massa.
Não vi ninguém falando disso, varre ai seus programas customizados (com o notepad++ ou agent ransack), triggers e upcs pra verificar se estão mudando esse campo
Nos fontes antigos que tenho, esse campo é alterado em vários programas: Código: [Fontes_EMS2]\enp\en0105b.w 49 KB Arquivo W 16/09/2020 17:04:19 04/05/2026 13:21:31 07/05/2026 15:50:14 19 57 def var de-quant-usada AS DEC FORMAT ">>,>>9.9999999999". 902 assign de-quant-usada = estr-modelo.quant-usada. 903 if estr-modelo.quant-usada = ? or (b1-item.tipo-con-est = 4 and substring(estr-modelo.char-2,1,12) = "") then do: 906 input-output de-quant-usada, 912 if de-quant-usada = ? then do: 933 estrutura.quant-usada = de-quant-usada 959 assign estrutura.qtd-compon = de-quant-usada 960 estrutura.quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 963 assign estrutura.quant-usada = estrutura.quant-usada. 1024 assign de-quant-usada = estr-modelo.quant-usada. 1025 if estr-modelo.quant-usada = ? or (b1-item.tipo-con-est = 4 and substring(estr-modelo.char-2,1,12) = "") then do: 1028 input-output de-quant-usada, 1034 if de-quant-usada = ? then do: 1056 tt-estrutura.quant-usada = de-quant-usada [Fontes_EMS2]\enp\en0105c.w 42 KB Arquivo W 16/09/2020 17:04:19 04/05/2026 13:21:31 07/05/2026 15:50:14 4 899 estrutura.quant-usada = item-desenho.quantidade 900 estrutura.tipo-sobra = IF estrutura.quant-usada >= 0 960 tt-estrutura.quant-usada = item-desenho.quantidade 961 tt-estrutura.tipo-sobra = IF tt-estrutura.quant-usada >= 0 [Fontes_EMS2]\enp\en0105e.w 49 KB Arquivo W 16/09/2020 17:04:19 04/05/2026 13:21:31 07/05/2026 15:50:14 5 1148 tt-estrutura.quant-usada = b-estrutura.qtd-compon. 1151 tt-estrutura.quant-usada = b-estrutura.quant-usada. 1202 tt-alternativo.quant-usada = b-alternativo.quant-usada [Fontes_EMS2]\enp\en0105f.w 34 KB Arquivo W 16/09/2020 17:04:19 04/05/2026 13:21:31 07/05/2026 15:50:14 10 98 &Scoped-define FIELDS-IN-QUERY-br-estrutura tt-estrutura.sequencia tt-estrutura.es-codigo b-item.desc-item + '' @ c-item-descricao tt-estrutura.fantasma tt-estrutura.data-inicio tt-estrutura.data-termino tt-estrutura.cod-roteiro tt-estrutura.op-codigo tt-estrutura.local-montag tt-estrutura.fator-perda tt-estrutura.proporcao tt-estrutura.qtd-item tt-estrutura.quant-usada tt-estrutura.quant-liquid tt-estrutura.revisao tt-estrutura.observacao 99 &Scoped-define ENABLED-FIELDS-IN-QUERY-br-estrutura tt-estrutura.fantasma tt-estrutura.data-inicio tt-estrutura.data-termino tt-estrutura.cod-roteiro tt-estrutura.op-codigo tt-estrutura.local-montag tt-estrutura.fator-perda tt-estrutura.proporcao tt-estrutura.qtd-item tt-estrutura.quant-usada tt-estrutura.quant-liquid tt-estrutura.revisao tt-estrutura.observacao 212 tt-estrutura.quant-usada 227 tt-estrutura.quant-usada 503 assign estrutura.qtd-compon = if estrutura.log-quant-fix = false then tt-estrutura.quant-usada 505 estrutura.quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 508 assign estrutura.quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 509 else tt-estrutura.quant-usada. 603 assign tt-estrutura.quant-usada:label in browse br-estrutura = return-value. 985 else estrutura.quant-usada. [Fontes_EMS2]\enp\en0105m.w 19 KB Arquivo W 16/09/2020 17:04:19 04/05/2026 13:21:31 07/05/2026 15:50:14 4 32 def input-output param de-quant-usada like estrutura.quant-usada. 273 de-quant-usada = input frame {&frame-name} de-quant 496 de-quant = de-quant-usada. [Fontes_EMS2]\enp\en0109.w 43 KB Arquivo W 29/12/2020 13:38:26 04/05/2026 13:21:31 07/05/2026 15:50:14 3 69 DEFINE VARIABLE l-quant-usada as logical initial yes no-undo. 362 input-output l-quant-usada, 381 input-output l-quant-usada, [Fontes_EMS2]\enp\en0106e.w 18 KB Arquivo W 16/09/2020 17:04:19 04/05/2026 13:21:31 07/05/2026 15:50:14 2 82 &Scoped-define FIELDS-IN-QUERY-br-estr-modelo tt-estr-modelo.sequencia tt-estr-modelo.it-codigo tt-estr-modelo.fm-codigo tt-estr-modelo.descricao tt-estr-modelo.fantasma tt-estr-modelo.fator-perda tt-estr-modelo.quant-usada tt-estr-modelo.tempo-reserv tt-estr-modelo.proporcao 176 tt-estr-modelo.quant-usada [Fontes_EMS2]\enp\en0109b.w 81 KB Arquivo W 29/12/2020 13:38:26 04/05/2026 13:21:31 07/05/2026 15:50:14 26 53 define input-output parameter l-quant-usada as logical no-undo. 496 input-output l-quant-usada, 512 de-qtd-compon:sensitive = l-quant-usada 521 de-qtd-item:sensitive = l-quant-usada 602 if (l-quant-usada 611 assign l-quant-usada = no 632 if l-quant-usada THEN 765 estrutura.quant-usada = tt-anterior.quant-usada 826 estrutura.quant-usada = tt-aux.quant-usada 1169 assign de-qtd-compon = estrutura.quant-usada 1207 assign cb-tipo-sobra:sensitive = (estrutura.quant-usada < 0) 1208 cb-tipo-sobra:visible = (estrutura.quant-usada < 0). 1266 de-qtd-compon:sensitive = l-quant-usada 1275 de-qtd-item:sensitive = l-quant-usada 1399 if l-quant-usada then DO: 1405 estrutura.quant-usada = de-qtd-compon. 1411 estrutura.quant-usada = estrutura.quant-usada * de-fator-conversao. 1419 if l-tipo-sobra and estrutura.quant-usada < 0 then 1575 if l-quant-usada THEN 1581 tt-estrutura.quant-usada = de-qtd-compon. 1587 tt-estrutura.quant-usada = tt-estrutura.quant-usada * de-fator-conversao. 1610 if l-tipo-sobra and tt-estrutura.quant-usada < 0 then do: [Fontes_EMS2]\enp\en0113rp.i1 6 KB Arquivo I1 16/09/2020 17:04:20 04/05/2026 13:17:34 07/05/2026 15:50:14 9 24 tt-estrutura.quant-usada = dec(substr(c-reg,81,16)) / 10000000000 36 if tt-estrutura.quant-usada = 0 then 37 assign tt-estrutura.quant-usada = 1. 48 tt-estrutura.qtd-compon = tt-estrutura.quant-usada 50 tt-estrutura.quant-usada = if tt-estrutura.log-quant-fix = true then tt-estrutura.qtd-compon 55 assign tt-estrutura.quant-liquid = tt-estrutura.quant-usada * (1 - tt-estrutura.fator-perda / 100). 67 tt-estrutura.quant-usada >= 0 then 90 tt-alternativo.quant-usada = dec(substr(c-reg,60,16)) / 10000000000 94 assign tt-alternativo.quant-liquid = tt-alternativo.quant-usada * (1 - (tt-alternativo.fator-perda / 100)). [Fontes_EMS2]\enp\en0109e.w 17 KB Arquivo W 29/12/2020 13:38:26 04/05/2026 13:21:31 07/05/2026 15:50:14 12 55 def input-output parameter l-quant-usada as logical no-undo. 88 tb-proporcao tb-quant-usada tb-data-inicio tb-tipo-sobra tb-data-termino ~ 91 tb-quant-usada tb-data-inicio tb-tipo-sobra tb-data-termino tb-local-montag ~ 171 DEFINE VARIABLE tb-quant-usada AS LOGICAL INITIAL no 188 tb-quant-usada AT ROW 2.33 COL 27 287 l-quant-usada = tb-quant-usada:checked 316 tb-quant-usada:checked = yes 411 DISPLAY tb-fator-perda tb-fantasma tb-proporcao tb-quant-usada tb-data-inicio 415 tb-quant-usada tb-data-inicio tb-tipo-sobra tb-data-termino 464 tb-quant-usada:checked = l-quant-usada [Fontes_EMS2]\enp\en0109d.w 57 KB Arquivo W 16/09/2020 17:04:20 04/05/2026 13:21:31 07/05/2026 15:50:14 16 149 &Scoped-define FIELDS-IN-QUERY-br-estrutura tt-estrutura.it-codigo b-item.desc-item + "" @ c-item-descricao tt-estrutura.sequencia tt-estrutura.qtd-item &if defined (bf_man_sfc_lc) &then tt-estrutura.qtd-compon &else tt-estrutura.quant-usada &ENDIF tt-estrutura.fantasma tt-estrutura.data-inicio tt-estrutura.data-termino tt-estrutura.local-montag tt-estrutura.fator-perda tt-estrutura.proporcao tt-estrutura.observacao &IF DEFINED (bf_man_per_ppm) &THEN tt-estrutura.veiculo &ENDIF 150 &Scoped-define ENABLED-FIELDS-IN-QUERY-br-estrutura tt-estrutura.fantasma tt-estrutura.data-inicio tt-estrutura.data-termino tt-estrutura.local-montag tt-estrutura.fator-perda tt-estrutura.proporcao &if defined (bf_man_sfc_lc) &then tt-estrutura.qtd-compon &else tt-estrutura.quant-usada &ENDIF tt-estrutura.observacao &IF DEFINED (bf_man_per_ppm) &THEN tt-estrutura.veiculo &ENDIF 254 tt-estrutura.quant-usada WIDTH 25 FORMAT '->>,>>9.9999999999' 280 tt-estrutura.quant-usada. 470 else tt-estrutura.quant-usada 592 IF tt-estrutura.quant-usada < 0 then do: 686 estrutura.quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 689 assign estrutura.quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 690 else tt-estrutura.quant-usada NO-ERROR. 721 estrutura.quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 724 assign estrutura.quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 725 tt-estrutura.quant-usada. 787 estrutura.quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 790 assign estrutura.quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 791 else tt-estrutura.quant-usada. 942 assign tt-estrutura.quant-usada:label in browse {&browse-name} = return-value. [Fontes_EMS2]\enp\en0204.i2 7 KB Arquivo I2 16/09/2020 17:04:20 04/05/2026 13:17:39 07/05/2026 15:50:14 9 63 assign de-quant-usada = IF estrutura.log-quant-fix then estrutura.qtd-compon 65 de-quant-liquid = if estrutura.log-quant-fix then de-quant-usada 66 else de-quant-usada * (1 - (estrutura.fator-perda / 100)). 68 assign de-quant-usada = (estrutura.quant-usada / estrutura.qtd-item * (estrutura.proporcao / 100)) * de-quantidade 69 de-quant-liquid = de-quant-usada * (1 - (estrutura.fator-perda / 100)). 93 de-quant-usada 119 de-quant-usada 148 de-quant-usada [Fontes_EMS2]\enp\en0205.i2 3 KB Arquivo I2 16/09/2020 17:04:20 04/05/2026 13:17:39 07/05/2026 15:50:14 3 10 define input param de-quant-usada like estrutura.quant-usada no-undo. 27 de-quant-usada, [Fontes_EMS2]\enp\en0204b.p 11 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 4 91 DEFINE VARIABLE de-quant-usada like estrutura.quant-usada FORMAT "->>>,>>9.9999999999" no-undo. 112 estrutura.quant-usada 138 de-quant-usada [Fontes_EMS2]\enp\en0205.i 23 KB Arquivo I 16/09/2020 17:04:20 04/05/2026 13:17:00 07/05/2026 15:50:14 14 56 assign de-quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 58 de-quant-liq = if estrutura.log-quant-fix then de-quant-usada 59 else de-quant-usada * (1 - (estrutura.fator-perda / 100)). 61 assign de-quant-usada = ((estrutura.quant-usada / estrutura.qtd-item) * (estrutura.proporcao / 100)) * de-quant-itens 62 de-quant-liq = de-quant-usada * (1 - (estrutura.fator-perda / 100)). 110 &else estrutura.quant-usada &endif /* de-quant-usada */ 112 tt-estrutura.quant-usada = de-quant-usada 149 de-quant-usada, 154 de-quant-usada, 357 tt-estrutura.quant-usada 373 tt-estrutura.quant-usada [Fontes_EMS2]\enp\en0204a.p 11 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 4 86 def var de-quant-usada like estrutura.quant-usada FORMAT "->>>,>>9.9999999999" no-undo. 112 estrutura.quant-usada 138 de-quant-usada [Fontes_EMS2]\enp\en0204c.p 10 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 4 90 DEFINE VARIABLE de-quant-usada like estrutura.quant-usada FORMAT "->>>,>>9.9999999999" no-undo. 107 de-quant-usada 128 de-quant-usada [Fontes_EMS2]\enp\en0205a.p 37 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 39 38 FIELD quantidade LIKE estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 39 field quant-usada like estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 95 def var de-quant-usada like estrutura.quant-usada no-undo. 139 estrutura.quant-usada 142 tt-estrutura.quant-usada AT 80 156 estrutura.quant-usada 159 tt-estrutura.quant-usada AT 80 172 estrutura.quant-usada 175 tt-estrutura.quant-usada 194 estrutura.quant-usada 197 tt-estrutura.quant-usada 226 tt-estrutura.quant-usada AT 82 246 estrutura.quant-usada 249 tt-estrutura.quant-usada 262 estrutura.quant-usada 265 tt-estrutura.quant-usada 277 estrutura.quant-usada 280 tt-estrutura.quant-usada 298 estrutura.quant-usada 301 tt-estrutura.quant-usada 328 tt-estrutura.quant-usada 428 assign estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 429 estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 430 estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 431 estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). 434 assign tt-estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 435 tt-estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 436 tt-estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 437 tt-estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). 474 assign estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 475 estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 476 estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 477 estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). 480 assign tt-estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 481 tt-estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 482 tt-estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 483 tt-estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). [Fontes_EMS2]\enp\en0206.i 9 KB Arquivo I 16/09/2020 17:04:20 04/05/2026 13:17:00 07/05/2026 15:50:14 13 80 ASSIGN de-quant-usada = 0 84 assign de-quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 86 de-quant-liq = if estrutura.log-quant-fix then de-quant-usada 87 else de-quant-usada * (1 - (estrutura.fator-perda / 100)). 89 assign de-quant-usada = estrutura.quant-usada / estrutura.qtd-item * (estrutura.proporcao / 100) * de-quantidade 90 de-quant-liq = de-quant-usada * (1 - (estrutura.fator-perda / 100)). 168 assign tt-estrutura.quant-usada = de-quant-usada 182 assign tt-estrutura.quant-usada = tt-estrutura.quant-usada + de-quant-usada 191 run pi-gera-tt-estrutura-filho(rowid(b2-item), c-refer-es, de-quant-usada, i-nivel, c-cod-lista-compon). [Fontes_EMS2]\enp\en0206.i2 11 KB Arquivo I2 16/09/2020 17:04:20 04/05/2026 13:17:39 07/05/2026 15:50:14 12 91 assign de-quant-usada = if b-estrutura.log-quant-fix then b-estrutura.qtd-compon 93 de-quant-liq = if b-estrutura.log-quant-fix then de-quant-usada 94 else de-quant-usada * (1 - (b-estrutura.fator-perda / 100)). 96 assign de-quant-usada = (b-estrutura.quant-usada / b-estrutura.qtd-item) * p-quantidade * (b-estrutura.proporcao / 100) 97 de-quant-liq = de-quant-usada * (1 - (b-estrutura.fator-perda / 100)). 176 tt-estrutura.quant-usada = de-quant-usada 190 assign tt-estrutura.quant-usada = tt-estrutura.quant-usada + de-quant-usada 195 run pi-gera-tt-estrutura-filho(rowid(b2-item), c-refer-es, de-quant-usada, p-nivel, p-cod-lista-compon). [Fontes_EMS2]\enp\en0205d.p 15 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 15 25 FIELD quantidade LIKE estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 26 field quant-usada like estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 45 define input param de-quant-usada like estrutura.quant-usada no-undo. 82 INPUT de-quant-usada, 103 define input param de-quant-usada like estrutura.quant-usada no-undo. 155 assign de-quant-usada = if b-estrutura.log-quant-fix then b-estrutura.qtd-compon 157 de-quant-liq = if b-estrutura.log-quant-fix then de-quant-usada 158 else de-quant-usada * (1 - (b-estrutura.fator-perda / 100)). 203 tt-estrutura.quant-usada = de-quant-usada /*p-quant-itens*/ 244 INPUT de-quant-usada, 249 INPUT de-quant-usada, [Fontes_EMS2]\enp\en0206.i10 5 KB Arquivo I10 16/09/2020 17:04:20 04/05/2026 13:17:36 07/05/2026 15:50:14 1 61 de-quant-aux = (estrutura.quant-usada * [Fontes_EMS2]\enp\en0206d.p 13 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 5 55 def shared var de-quantidade like estrutura.quant-usada init 1 no-undo. 70 def var de-quant-usada like estrutura.quant-usada NO-UNDO. 111 tt-estrutura.quant-usada format "->>,>>>,>>>,>>9.9999999999" at 35 279 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" [Fontes_EMS2]\enp\en0206c.p 39 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 13 64 def shared var de-quantidade like estrutura.quant-usada init 1 no-undo. 86 def var de-quant-usada like estrutura.quant-usada NO-UNDO. 162 tt-estrutura.quant-usada format "->>,>>>,>>>,>>9.9999999999" at 35 179 tt-estrutura.quant-usada format "->>,>>>,>>>,>>9.9999999999" at 35 459 tt-estrutura.quant-usada 555 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" 568 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" 650 tt-estrutura.quant-usada 765 tt-estrutura.quant-usada 872 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" 885 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" 967 tt-estrutura.quant-usada [Fontes_EMS2]\enp\en0205b.p 36 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 39 40 FIELD quantidade LIKE estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 41 field quant-usada like estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 93 def var de-quant-usada like estrutura.quant-usada no-undo. 139 estrutura.quant-usada 142 tt-estrutura.quant-usada AT 80 156 estrutura.quant-usada 159 tt-estrutura.quant-usada AT 80 172 estrutura.quant-usada 175 tt-estrutura.quant-usada 194 estrutura.quant-usada 197 tt-estrutura.quant-usada 226 tt-estrutura.quant-usada AT 82 245 estrutura.quant-usada 248 tt-estrutura.quant-usada 261 estrutura.quant-usada 264 tt-estrutura.quant-usada 276 estrutura.quant-usada 279 tt-estrutura.quant-usada 297 estrutura.quant-usada 300 tt-estrutura.quant-usada 327 tt-estrutura.quant-usada 421 assign estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 422 estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 423 estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 424 estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). 427 assign tt-estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 428 tt-estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 429 tt-estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 430 tt-estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). 467 assign estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 468 estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 469 estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 470 estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). 473 assign tt-estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 474 tt-estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 475 tt-estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 476 tt-estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). [Fontes_EMS2]\enp\en0205c.p 35 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 39 40 FIELD quantidade LIKE estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 41 field quant-usada like estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 93 def var de-quant-usada like estrutura.quant-usada no-undo. 137 estrutura.quant-usada 140 tt-estrutura.quant-usada AT 80 154 estrutura.quant-usada 157 tt-estrutura.quant-usada AT 80 170 estrutura.quant-usada 173 tt-estrutura.quant-usada 192 estrutura.quant-usada 195 tt-estrutura.quant-usada 225 tt-estrutura.quant-usada 245 estrutura.quant-usada 248 tt-estrutura.quant-usada 261 estrutura.quant-usada 264 tt-estrutura.quant-usada 276 estrutura.quant-usada 279 tt-estrutura.quant-usada 297 estrutura.quant-usada 300 tt-estrutura.quant-usada 327 tt-estrutura.quant-usada 419 assign estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 420 estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 421 estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 422 estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). 425 assign tt-estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 426 tt-estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 427 tt-estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 428 tt-estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). 465 assign estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 466 estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 467 estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 468 estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). 471 assign tt-estrutura.quant-usada:label in frame f-cab-resumido-un = trim(return-value) 472 tt-estrutura.quant-usada:label in frame f-cab-detalhado-un = trim(return-value) 473 tt-estrutura.quant-usada:label in frame f-cab-resumido2-un = trim(return-value) 474 tt-estrutura.quant-usada:label in frame f-cab-detalhado2-un = trim(return-value). [Fontes_EMS2]\enp\en0206a.p 25 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 9 62 def shared var de-quantidade like estrutura.quant-usada init 1 no-undo. 102 def var de-quant-usada like estrutura.quant-usada FORMAT "->>>,>>9.9999999999" NO-UNDO. 149 tt-estrutura.quant-usada format "->>,>>>,>>>,>>9.9999999999" at 35 165 tt-estrutura.quant-usada format "->>,>>>,>>>,>>9.9999999999" at 35 459 tt-estrutura.quant-usada 526 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" 540 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" 614 tt-estrutura.quant-usada [Fontes_EMS2]\enp\en0206e.p 19 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 7 51 def shared var de-quantidade like estrutura.quant-usada init 1 no-undo. 66 def var de-quant-usada like estrutura.quant-usada NO-UNDO. 129 tt-estrutura.quant-usada /* format "->>,>>>,>>>,>>9.9999999999" at 35 */ 145 tt-estrutura.quant-usada format "->>,>>>,>>>,>>9.9999999999" at 35 407 tt-estrutura.quant-usada /* at 35 format "->>,>>>,>>>,>>9.9999999999" */ 420 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" [Fontes_EMS2]\enp\en0206b.p 24 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 9 61 def shared var de-quantidade like estrutura.quant-usada init 1 no-undo. 89 def var de-quant-usada like estrutura.quant-usada NO-UNDO. 155 tt-estrutura.quant-usada format "->>,>>>,>>>,>>9.9999999999" at 35 171 tt-estrutura.quant-usada format "->>,>>>,>>>,>>9.9999999999" at 35 453 tt-estrutura.quant-usada 525 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" 539 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" 612 tt-estrutura.quant-usada [Fontes_EMS2]\enp\en0206.w 71 KB Arquivo W 16/09/2020 17:04:20 04/05/2026 13:21:31 07/05/2026 15:50:14 1 85 field quantidade like estrutura.quant-usada [Fontes_EMS2]\enp\en0206f.p 30 KB Arquivo P 16/09/2020 17:04:20 04/05/2026 13:18:24 07/05/2026 15:50:14 9 59 def shared var de-quantidade like estrutura.quant-usada init 1 no-undo. 74 def var de-quant-usada like estrutura.quant-usada NO-UNDO. 133 tt-estrutura.quant-usada /* format "->>,>>>,>>>,>>9.9999999999" at 35 */ 149 tt-estrutura.quant-usada format "->>,>>>,>>>,>>9.9999999999" at 35 438 tt-estrutura.quant-usada /* at 35 format "->>,>>>,>>>,>>9.9999999999" */ 451 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" 625 tt-estrutura.quant-usada /* at 35 format "->>,>>>,>>>,>>9.9999999999" */ 638 tt-estrutura.quant-usada at 35 format "->>,>>>,>>>,>>9.9999999999" [Fontes_EMS2]\enp\en0206rp.i 3 KB Arquivo I 16/09/2020 17:04:20 04/05/2026 13:17:00 07/05/2026 15:50:14 1 14 RUN piColumn IN h-utapi033(INPUT 11, INPUT "DEC" , INPUT tt-estrutura.quant-usada:LABEL , INPUT ">>,>>9.9999" , INPUT "110.00"). [Fontes_EMS2]\enp\en0207c.p 24 KB Arquivo P 16/09/2020 17:04:21 04/05/2026 13:18:24 07/05/2026 15:50:14 11 82 def var de-quant-usada like estrutura.quant-usada FORMAT "->>>,>>9.9999999999" no-undo. 131 estrutura.quant-usada 156 de-quant-usada 185 estrutura.quant-usada 209 de-quant-usada 246 estrutura.quant-usada 268 de-quant-usada 291 estrutura.quant-usada 315 de-quant-usada 349 alternativo.quant-usada [Fontes_EMS2]\enp\en0206rp.p 31 KB Arquivo P 16/09/2020 17:04:21 04/05/2026 13:18:24 07/05/2026 15:50:14 2 44 field quantidade like estrutura.quant-usada 127 def new shared var de-quantidade like estrutura.quant-usada init 1 no-undo. [Fontes_EMS2]\enp\en0207.i1 38 KB Arquivo I1 16/09/2020 17:04:21 04/05/2026 13:17:34 07/05/2026 15:50:14 21 69 estrutura.quant-usada 95 estrutura.quant-usada 131 estrutura.quant-usada 156 estrutura.quant-usada 192 estrutura.quant-usada 217 estrutura.quant-usada 240 estrutura.quant-usada 317 estrutura.quant-usada 343 estrutura.quant-usada 379 estrutura.quant-usada 404 estrutura.quant-usada 439 estrutura.quant-usada 464 estrutura.quant-usada 487 estrutura.quant-usada 573 estrutura.quant-usada 599 estrutura.quant-usada 636 estrutura.quant-usada 661 estrutura.quant-usada 698 estrutura.quant-usada 723 estrutura.quant-usada 746 estrutura.quant-usada [Fontes_EMS2]\enp\en0208.i3 7 KB Arquivo I3 16/09/2020 17:04:21 04/05/2026 13:17:41 07/05/2026 15:50:14 8 39 "" @ de-quant-usada 84 de-quant-usada = estrutura.quant-usada 86 de-quant-liq = if estrutura.log-quant-fix then estrutura.quant-usada 87 else (estrutura.quant-usada * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)). 96 de-quant-usada 119 "" @ de-quant-usada 145 "" @ de-quant-usada [Fontes_EMS2]\enp\en0208.i4 7 KB Arquivo I4 16/09/2020 17:04:21 04/05/2026 13:17:43 07/05/2026 15:50:14 7 39 "" @ de-quant-usada 61 "" @ de-quant-usada 105 de-quant-usada = estrutura.quant-usada. 114 de-quant-usada 135 "" @ de-quant-usada 158 "" @ de-quant-usada [Fontes_EMS2]\enp\en0207.i2 8 KB Arquivo I2 16/09/2020 17:04:21 04/05/2026 13:17:39 07/05/2026 15:50:14 6 29 estrutura.quant-usada 54 estrutura.quant-usada 77 estrutura.quant-usada 114 estrutura.quant-usada 139 estrutura.quant-usada 162 estrutura.quant-usada [Fontes_EMS2]\enp\en0208.i1 8 KB Arquivo I1 16/09/2020 17:04:21 04/05/2026 13:17:34 07/05/2026 15:50:14 8 50 "" @ de-quant-usada 100 de-quant-usada = estrutura.quant-usada 102 de-quant-liq = if estrutura.log-quant-fix then estrutura.quant-usada 103 else (estrutura.quant-usada * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)). 113 de-quant-usada 136 "" @ de-quant-usada 162 "" @ de-quant-usada [Fontes_EMS2]\enp\en0206rp.i3 1 KB Arquivo I3 16/09/2020 17:04:20 04/05/2026 13:17:41 07/05/2026 15:50:14 1 24 tt-estrutura.quant-usada [Fontes_EMS2]\enp\en0207b.p 25 KB Arquivo P 16/09/2020 17:04:21 04/05/2026 13:18:24 07/05/2026 15:50:14 11 82 def var de-quant-usada like estrutura.quant-usada FORMAT "->>>,>>9.9999999999" no-undo . 132 estrutura.quant-usada 157 de-quant-usada 187 estrutura.quant-usada 209 de-quant-usada 245 estrutura.quant-usada 267 de-quant-usada 291 estrutura.quant-usada 315 de-quant-usada 348 alternativo.quant-usada [Fontes_EMS2]\enp\en0208.i2 8 KB Arquivo I2 16/09/2020 17:04:21 04/05/2026 13:17:39 07/05/2026 15:50:14 8 51 "" @ de-quant-usada 99 de-quant-usada = estrutura.quant-usada 101 de-quant-liq = if estrutura.log-quant-fix then estrutura.quant-usada 102 else (estrutura.quant-usada * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)). 111 de-quant-usada 134 "" @ de-quant-usada 160 "" @ de-quant-usada [Fontes_EMS2]\enp\en0208.i5 7 KB Arquivo I5 16/09/2020 17:04:21 04/05/2026 13:17:44 07/05/2026 15:50:14 7 40 "" @ de-quant-usada 62 "" @ de-quant-usada 105 de-quant-usada = estrutura.quant-usada. 114 de-quant-usada 135 "" @ de-quant-usada 158 "" @ de-quant-usada [Fontes_EMS2]\enp\en0207a.p 24 KB Arquivo P 16/09/2020 17:04:21 04/05/2026 13:18:24 07/05/2026 15:50:14 11 82 def var de-quant-usada like estrutura.quant-usada FORMAT "->>>,>>9.9999999999" no-undo. 132 estrutura.quant-usada 157 de-quant-usada 187 estrutura.quant-usada 210 de-quant-usada 248 estrutura.quant-usada 270 de-quant-usada 293 estrutura.quant-usada 317 de-quant-usada 349 alternativo.quant-usada [Fontes_EMS2]\enp\en0207.i3 67 KB Arquivo I3 16/09/2020 17:04:21 04/05/2026 13:17:41 07/05/2026 15:50:14 42 130 assign de-quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 132 de-quant-liquid = if estrutura.log-quant-fix then de-quant-usada 133 else de-quant-usada * (1 - (estrutura.fator-perda / 100)). 135 assign de-quant-usada = (estrutura.quant-usada / estrutura.qtd-item * (estrutura.proporcao / 100)) * de-quantidade 136 de-quant-liquid = de-quant-usada * (1 - (estrutura.fator-perda / 100)). 202 de-quant-usada 228 de-quant-usada 265 de-quant-usada 290 de-quant-usada 326 de-quant-usada 351 de-quant-usada 374 de-quant-usada 433 estrutura.quant-usada 459 estrutura.quant-usada 496 estrutura.quant-usada 521 estrutura.quant-usada 557 estrutura.quant-usada 582 estrutura.quant-usada 605 estrutura.quant-usada 643 de-quant-usada 669 de-quant-usada 706 de-quant-usada 731 de-quant-usada 767 de-quant-usada 792 de-quant-usada 815 de-quant-usada 866 estrutura.quant-usada 892 estrutura.quant-usada 929 estrutura.quant-usada 954 estrutura.quant-usada 990 estrutura.quant-usada 1015 estrutura.quant-usada 1038 estrutura.quant-usada 1076 de-quant-usada 1102 de-quant-usada 1139 de-quant-usada 1164 de-quant-usada 1200 de-quant-usada 1225 de-quant-usada 1248 de-quant-usada 1281 alternativo.quant-usada [Fontes_EMS2]\enp\en0206rp.i2 1 KB Arquivo I2 16/09/2020 17:04:20 04/05/2026 13:17:39 07/05/2026 15:50:14 1 24 tt-estrutura.quant-usada:LABEL [Fontes_EMS2]\enp\en0208.i6 5 KB Arquivo I6 16/09/2020 17:04:21 04/05/2026 13:17:45 07/05/2026 15:50:14 7 37 "" @ de-quant-usada 81 de-quant-usada = estrutura.quant-usada 83 de-quant-liq = if estrutura.log-quant-fix then estrutura.quant-usada 84 else (estrutura.quant-usada * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)). 94 de-quant-usada 120 "" @ de-quant-usada [Fontes_EMS2]\enp\en0208rp.i3 1 KB Arquivo I3 16/09/2020 17:04:21 04/05/2026 13:17:41 07/05/2026 15:50:14 1 20 de-quant-usada [Fontes_EMS2]\enp\en0209.i3 9 KB Arquivo I3 16/09/2020 17:04:21 04/05/2026 13:17:41 07/05/2026 15:50:14 4 92 de-quant-aux = if estrutura.log-quant-fix then estrutura.quant-usada 93 else (estrutura.quant-usada * estrutura.proporcao) / 100 94 de-liq-aux = if estrutura.log-quant-fix then estrutura.quant-usada 95 else (estrutura.quant-usada * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)) [Fontes_EMS2]\enp\en0210.i1 6 KB Arquivo I1 16/09/2020 17:04:21 04/05/2026 13:17:34 07/05/2026 15:50:14 2 35 field quantidade like estrutura.quant-usada 128 {utp/ut-field.i mgind estrutura quant-usada 1} [Fontes_EMS2]\enp\en0209.i7 12 KB Arquivo I7 16/09/2020 17:04:21 04/05/2026 13:17:46 07/05/2026 15:50:14 8 49 ASSIGN de-quant-aux = if b-estrutura.log-quant-fix then b-estrutura.quant-usada 50 else p-quantidade * ((b-estrutura.quant-usada * b-estrutura.proporcao) / 100) 51 de-liq-aux = if b-estrutura.log-quant-fix then b-estrutura.quant-usada 52 else p-quantidade * (b-estrutura.quant-usada * b-estrutura.proporcao / 100) * (1 - (b-estrutura.fator-perda / 100)). 55 ASSIGN de-quant-aux = if b-estrutura.log-quant-fix then b-estrutura.quant-usada 56 else p-quantidade * ((b-estrutura.quant-usada * b-estrutura.proporcao) / 100) * de-quant-1 57 de-liq-aux = if b-estrutura.log-quant-fix then b-estrutura.quant-usada 58 else p-quantidade * (b-estrutura.quant-usada * de-quant-1 * b-estrutura.proporcao / 100) * (1 - (b-estrutura.fator-perda / 100)). [Fontes_EMS2]\enp\en0209rp.p 23 KB Arquivo P 16/09/2020 17:04:21 04/05/2026 13:18:24 07/05/2026 15:50:14 1 187 def var de-quant like estrutura.quant-usada no-undo. [Fontes_EMS2]\enp\en0208b.p 22 KB Arquivo P 16/09/2020 17:04:21 04/05/2026 13:18:24 07/05/2026 15:50:14 14 52 def shared var de-quant-usada as decimal format "->>,>>9.9999999". 84 de-quant-usada format "->>,>>9.9999999999" 103 {utp/ut-field.i mgind estrutura quant-usada 2} 108 assign de-quant-usada:label = c-aux. 173 "" @ de-quant-usada 230 de-quant-usada = estrutura.quant-usada 232 de-quant-liq = if estrutura.log-quant-fix then estrutura.quant-usada 233 else (estrutura.quant-usada * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)). 262 c-descr-aux3 b-item.un de-quant-usada estrutura.fator-perda estrutura.proporcao de-quant-liq 279 de-quant-usada 324 c-descr-aux3 b-item.un de-quant-usada estrutura.fator-perda estrutura.proporcao de-quant-liq 340 de-quant-usada 376 "" @ de-quant-usada [Fontes_EMS2]\enp\en0208rp.i 7 KB Arquivo I 16/09/2020 17:04:21 04/05/2026 13:17:00 07/05/2026 15:50:14 2 12 RUN piColumn IN h-utapi033(INPUT 09, INPUT "DEC", INPUT de-quant-usada:LABEL , INPUT ">>,>>9.999999" , INPUT "110.00"). 30 de-quant-usada [Fontes_EMS2]\enp\en0208rp.i2 1 KB Arquivo I2 16/09/2020 17:04:21 04/05/2026 13:17:39 07/05/2026 15:50:14 1 20 de-quant-usada:LABEL [Fontes_EMS2]\enp\en0209.i1 9 KB Arquivo I1 16/09/2020 17:04:21 04/05/2026 13:17:34 07/05/2026 15:50:14 4 106 de-quant-aux = if estrutura.log-quant-fix then estrutura.quant-usada 107 else (estrutura.quant-usada * estrutura.proporcao) / 100 108 de-liq-aux = if estrutura.log-quant-fix then estrutura.quant-usada 109 else (estrutura.quant-usada * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)) [Fontes_EMS2]\enp\en0208a.p 17 KB Arquivo P 16/09/2020 17:04:21 04/05/2026 13:18:24 07/05/2026 15:50:14 13 54 def shared var de-quant-usada as decimal format "->>,>>9.9999999". 88 de-quant-usada format "->>,>>9.9999999999" 110 {utp/ut-field.i mgind estrutura quant-usada 2} 115 assign de-quant-usada:label in frame f-detalhe = c-aux. 177 "" @ de-quant-usada 240 de-quant-usada = estrutura.quant-usada 242 de-quant-liq = if estrutura.log-quant-fix then estrutura.quant-usada 243 else (estrutura.quant-usada * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)). 271 c-descr-aux3 b-item.un de-quant-usada estrutura.fator-perda estrutura.proporcao de-quant-liq 288 de-quant-usada 334 c-descr-aux3 b-item.un de-quant-usada estrutura.fator-perda estrutura.proporcao de-quant-liq 350 de-quant-usada [Fontes_EMS2]\enp\en0209.i2 9 KB Arquivo I2 16/09/2020 17:04:21 04/05/2026 13:17:39 07/05/2026 15:50:14 4 107 de-quant-aux = if estrutura.log-quant-fix then estrutura.quant-usada 108 else (estrutura.quant-usada * estrutura.proporcao) / 100 109 de-liq-aux = if estrutura.log-quant-fix then estrutura.quant-usada 110 else (estrutura.quant-usada * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)) [Fontes_EMS2]\enp\en0208rp.p 18 KB Arquivo P 16/09/2020 17:04:21 04/05/2026 13:18:24 07/05/2026 15:50:14 1 125 def new shared var de-quant-usada as decimal format "->>,>>9.9999999". [Fontes_EMS2]\enp\en0208c.p 21 KB Arquivo P 16/09/2020 17:04:21 04/05/2026 13:18:24 07/05/2026 15:50:14 14 52 def shared var de-quant-usada as decimal format "->>,>>9.9999999". 84 de-quant-usada format "->>,>>9.9999999999" 100 {utp/ut-field.i mgind estrutura quant-usada 2} 105 assign de-quant-usada:label = c-aux. 161 "" @ de-quant-usada 215 de-quant-usada = estrutura.quant-usada 216 de-quant-liq = if estrutura.log-quant-fix then estrutura.quant-usada 217 else (estrutura.quant-usada * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)). 245 c-descr-aux3 b-item.un de-quant-usada estrutura.fator-perda estrutura.proporcao de-quant-liq 262 de-quant-usada 308 c-descr-aux3 b-item.un de-quant-usada estrutura.fator-perda estrutura.proporcao de-quant-liq 324 de-quant-usada 359 "" @ de-quant-usada [Fontes_EMS2]\enp\en0211.i2 24 KB Arquivo I2 16/09/2020 17:04:21 04/05/2026 13:17:39 07/05/2026 15:50:14 11 77 de-quant-liquid = if estrutura.log-quant-fix then estrutura.quant-usada 78 else (estrutura.quant-usada * de-quant * estrutura.proporcao / 100) 178 estrutura.quant-usada 205 estrutura.quant-usada 230 estrutura.quant-usada 272 estrutura.quant-usada 299 estrutura.quant-usada 324 estrutura.quant-usada 365 estrutura.quant-usada 399 estrutura.quant-usada 413 estrutura.quant-usada [Fontes_EMS2]\enp\en0210.i7 17 KB Arquivo I7 16/09/2020 17:04:21 04/05/2026 13:17:46 07/05/2026 15:50:14 8 89 assign estr-tmp.quantidade = if estrutura.log-quant-fix then estrutura.quant-usada 90 else ((estrutura.quant-usada * estrutura.proporcao) / 100) * de-quant 91 estr-tmp.quant-liquid = if estrutura.log-quant-fix then estrutura.quant-usada 92 else (estrutura.quant-usada * de-quant * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)). 188 assign estr-tmp.quantidade = if estrutura.log-quant-fix then estrutura.quant-usada 189 else ((estrutura.quant-usada * estrutura.proporcao) / 100) * b-estr-tmp.quantidade 190 estr-tmp.quant-liquid = if estrutura.log-quant-fix then estrutura.quant-usada 191 else (estrutura.quant-usada * b-estr-tmp.quantidade * estrutura.proporcao / 100) * (1 - (estrutura.fator-perda / 100)). [Fontes_EMS2]\enp\en0211.i3 21 KB Arquivo I3 16/09/2020 17:04:21 04/05/2026 13:17:41 07/05/2026 15:50:14 11 63 de-quant-liquid = if estrutura.log-quant-fix then estrutura.quant-usada 64 else (estrutura.quant-usada * de-quant * estrutura.proporcao / 100) 162 estrutura.quant-usada 189 estrutura.quant-usada 214 estrutura.quant-usada 257 estrutura.quant-usada 284 estrutura.quant-usada 309 estrutura.quant-usada 348 estrutura.quant-usada 383 estrutura.quant-usada 397 estrutura.quant-usada [Fontes_EMS2]\enp\en0211.i1 23 KB Arquivo I1 16/09/2020 17:04:21 04/05/2026 13:17:34 07/05/2026 15:50:14 11 75 assign de-quant-liquid = estrutura.quant-usada. 77 assign de-quant-liquid = (estrutura.quant-usada * de-quant * estrutura.proporcao / 100) 177 estrutura.quant-usada 204 estrutura.quant-usada 229 estrutura.quant-usada 271 estrutura.quant-usada 298 estrutura.quant-usada 323 estrutura.quant-usada 364 estrutura.quant-usada 397 estrutura.quant-usada 411 estrutura.quant-usada [Fontes_EMS2]\enp\en0211rp.p 22 KB Arquivo P 16/09/2020 17:04:21 04/05/2026 13:18:24 07/05/2026 15:50:14 6 220 estrutura.quant-usada 246 estrutura.quant-usada 276 estrutura.quant-usada 307 estrutura.quant-usada 337 estrutura.quant-usada 348 estrutura.quant-usada [Fontes_EMS2]\enp\en0301d.w 27 KB Arquivo W 16/09/2020 17:04:21 04/05/2026 13:21:32 07/05/2026 15:50:14 2 64 def var d-tot-qt like estrutura.quant-usada init 0 no-undo. 720 assign d-tot-qt = d-tot-qt + estrutura.quant-usada. [Fontes_EMS2]\enp\en0606.i8 7 KB Arquivo I8 16/09/2020 17:04:23 04/05/2026 13:17:46 07/05/2026 15:50:14 2 49 "mgind;estrutura;quant-usada,mgind;item;un,mgind;item;lote-economi,":U + 67 "mgind;op-ferram;sequencia,mgind;estrutura;es-codigo,mgind;item;desc-item,mgind;ref-item;cod-refer,mgind;estrutura;quant-usada,":U + [Fontes_EMS2]\enp\en0606.i6 3 KB Arquivo I6 16/09/2020 17:04:23 04/05/2026 13:17:45 07/05/2026 15:50:14 2 54 (estrutura.quant-usada * de-quantidade) @ estrutura.quant-usada [Fontes_EMS2]\enp\en0606.i2 9 KB Arquivo I2 16/09/2020 17:04:23 04/05/2026 13:17:39 07/05/2026 15:50:14 1 222 estrutura.quant-usada [Fontes_EMS2]\enp\en0606.i7 139 KB Arquivo I7 16/09/2020 17:04:23 04/05/2026 13:17:46 07/05/2026 15:50:14 12 59 RUN piLine IN h-utapi033 (INPUT i-cont2 , INPUT de-quant-usada). 257 RUN piLine IN h-utapi033 (INPUT i-cont2 , INPUT de-quant-usada). 455 RUN piLine IN h-utapi033 (INPUT i-cont2 , INPUT de-quant-usada). 647 RUN piLine IN h-utapi033 (INPUT i-cont2 , INPUT de-quant-usada). 839 RUN piLine IN h-utapi033 (INPUT i-cont2 , INPUT de-quant-usada). 1025 RUN piLine IN h-utapi033 (INPUT i-cont2 , INPUT de-quant-usada). 1089 RUN piLine IN h-utapi033 (INPUT i-cont2 , INPUT estrutura.quant-usada * de-quant-usada). 1217 RUN piLine IN h-utapi033 (INPUT i-cont2 , INPUT de-quant-usada). 1409 RUN piLine IN h-utapi033 (INPUT i-cont2 , INPUT de-quant-usada). 1607 {utp/ut-field.i mgind estrutura quant-usada 1} 1743 {utp/ut-field.i mgind estrutura quant-usada 1} [Fontes_EMS2]\enp\en0606.i1 15 KB Arquivo I1 16/09/2020 17:04:23 04/05/2026 13:17:34 07/05/2026 15:50:14 2 21 de-hora-h = ((((operacao.tempo-homem * de-prop-rot) / 100) / operacao.nr-unidades) * de-quant-usada) 22 de-hora-m = ((((operacao.tempo-maquin * de-prop-rot) / 100) / operacao.nr-unidades) * de-quant-usada). [Fontes_EMS2]\enp\en0606rp.p 42 KB Arquivo P 16/09/2020 17:04:23 04/05/2026 13:18:24 07/05/2026 15:50:14 42 100 def var de-quant-ant like estrutura.quant-usada INIT 0. 170 def var de-nr-un like estrutura.quant-usada format "->,>>>,>>9.9999999999". 193 DEF VAR i-quantidade LIKE estrutura.quant-usada. 230 field quant-usada like estrutura.quant-usada. 446 estrutura.quant-usada). 583 def input parameter de-quant-usada as DECIMAL format ">,>>>,>>9.99999" no-undo. 595 estrutura.quant-usada FORMAT "->>>>,>>9.99999" 610 estrutura.quant-usada FORMAT "->>>>,>>9.99999" 749 estrutura.quant-usada * de-quant-usada @ estrutura.quant-usada 772 estrutura.quant-usada * de-quant-usada @ estrutura.quant-usada 803 tt-estrutura.quant-usada = estrutura.quant-usada. 827 define input parameter de-quant-usada as decimal format ">,>>>,>>9.99999" no-undo. 828 DEFINE INPUT PARAMETER de-quant-comp LIKE estrutura.quant-usada NO-UNDO. 830 DEF VAR i-qtd-usada LIKE estrutura.quant-usada. 831 DEF VAR quant-usada-aux LIKE estrutura.quant-usada. 863 de-quant-usada @ de-quantidade 877 de-quant-usada @ de-quantidade 911 input de-quant-usada). /*** Emite estrutura do item ***/ 923 input de-quant-usada). 944 input de-quant-usada). /*** Emite estrutura do item ***/ 950 INPUT de-quant-usada). 958 INPUT de-quant-usada).*/ 965 input de-quant-usada). /*** Emite estrutura do item ***/ 986 input de-quant-usada). /*** Emite estrutura do item ***/ 992 INPUT de-quant-usada). 1002 INPUT de-quant-usada). 1012 input de-quant-usada). 1034 IF AVAIL estrutura THEN ASSIGN i-qtd-usada = estrutura.quant-usada. 1037 ASSIGN quant-usada-aux = IF btt-estrutura.quant-usada < 0 THEN btt-estrutura.quant-usada * (-1) ELSE btt-estrutura.quant-usada. 1041 de-quant-usada * quant-usada-aux , 1042 estrutura.quant-usada). [Fontes_EMS2]\enp\en0801a.w 19 KB Arquivo W 16/09/2020 17:04:24 04/05/2026 13:21:32 07/05/2026 15:50:14 1 57 define input parameter p-quantidade like estrutura.quant-usada. [Fontes_EMS2]\enp\en0801.w 26 KB Arquivo W 16/09/2020 17:04:24 04/05/2026 13:21:32 07/05/2026 15:50:14 2 58 def var de-quant-usada like estrutura.quant-usada no-undo. [Fontes_EMS2]\enp\en0803a.w 19 KB Arquivo W 16/09/2020 17:04:24 04/05/2026 13:21:32 07/05/2026 15:50:14 1 57 define input parameter p-quantidade like estrutura.quant-usada. [Fontes_EMS2]\enp\en0802.w 27 KB Arquivo W 16/09/2020 17:04:24 04/05/2026 13:21:32 07/05/2026 15:50:14 2 62 def var de-quant-usada like estrutura.quant-usada no-undo. [Fontes_EMS2]\enp\en0804.w 28 KB Arquivo W 16/09/2020 17:04:24 04/05/2026 13:21:32 07/05/2026 15:50:14 2 62 def var de-quant-usada like estrutura.quant-usada no-undo. [Fontes_EMS2]\enp\en0802b.p 13 KB Arquivo P 16/09/2020 17:04:24 04/05/2026 13:18:24 07/05/2026 15:50:14 10 50 define var de-quant-usada as decimal. 170 assign de-quant-usada = b-estrutura.quant-usada * p-quantidade * 172 de-quant-liq = (b-estrutura.quant-usada * p-quantidade 226 tt-estrutura.quant-usada = de-quant-usada 235 assign tt-estrutura.quant-usada = tt-estrutura.quant-usada + de-quant-usada 242 INPUT de-quant-usada, [Fontes_EMS2]\enp\en0803.w 27 KB Arquivo W 16/09/2020 17:04:24 04/05/2026 13:21:32 07/05/2026 15:50:14 2 63 def var de-quant-usada like estrutura.quant-usada no-undo. [Fontes_EMS2]\enp\en0805b.p 16 KB Arquivo P 16/09/2020 17:04:24 04/05/2026 13:18:24 07/05/2026 15:50:14 8 26 field quant-usada like estrutura.quant-usada 62 define var de-quant-usada as DECIMAL NO-UNDO. 165 for each b-estrutura fields (data-inicio data-termino es-codigo quant-usada 197 assign de-quant-usada = if b-estrutura.log-quant-fix then b-estrutura.qtd-compon 249 tt-estrutura.quant-usada = de-quant-usada 289 INPUT de-quant-usada, [Fontes_EMS2]\enp\en0809.w 25 KB Arquivo W 16/09/2020 17:04:24 04/05/2026 13:21:32 07/05/2026 15:50:14 2 59 def var de-quant-usada like estrutura.quant-usada no-undo. [Fontes_EMS2]\enp\en0812a.p 15 KB Arquivo P 16/09/2020 17:04:24 04/05/2026 13:18:24 07/05/2026 15:50:14 10 29 field de-quant-usada like estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 66 def var de-quant-usada like estrutura.quant-usada format "->>>>,>>9.9999999999" no-undo. 181 assign de-quant-usada = if b-estrutura.log-quant-fix then b-estrutura.qtd-compon 183 de-quant-liquid = if b-estrutura.log-quant-fix then de-quant-usada 184 else de-quant-usada * (1 - (b-estrutura.fator-perda / 100)). 256 tt-estrutura-no.de-quant-usada = de-quant-usada 280 input de-quant-usada, [Fontes_EMS2]\enp\en9991.i 2 KB Arquivo I 16/09/2020 17:04:25 04/05/2026 13:17:00 07/05/2026 15:50:14 4 14 field quant-usada like estrutura.quant-usada 27 field quant-usada like estrutura.quant-usada [Fontes_EMS2]\enp\enapi205.i1 2 KB Arquivo I1 16/09/2020 17:04:25 04/05/2026 13:17:34 07/05/2026 15:50:14 2 11 tt-estrutura.quant-usada = de-quant-usada [Fontes_EMS2]\enp\enapi205.i 6 KB Arquivo I 16/09/2020 17:04:25 04/05/2026 13:17:00 07/05/2026 15:50:14 8 57 FIELD quantidade LIKE estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 58 FIELD quant-usada LIKE estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 60 FIELD quant-sumariz LIKE estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 61 FIELD quant-liq-sum LIKE estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" 90 DEFINE VARIABLE de-quant-usada LIKE estrutura.quant-usada NO-UNDO. 96 DEFINE VARIABLE de-quantidade LIKE estrutura.quant-usada NO-UNDO. [Fontes_EMS2]\enp\en9991.p 17 KB Arquivo P 16/09/2020 17:04:25 04/05/2026 13:18:24 07/05/2026 15:50:14 21 47 ** de-quant-usada => quantidade usada do componente na estrutura 72 define var de-quant-usada as decimal. 92 for each b-estrutura fields (data-inicio data-termino es-codigo quant-usada 97 for each b-estrutura fields (data-inicio data-termino es-codigo quant-usada 114 assign de-quant-usada = if b-estrutura.log-quant-fix then b-estrutura.qtd-compon 121 assign de-quant-usada = if b-estrutura.log-quant-fix then b-estrutura.qtd-compon 122 else p-quantidade * b-estrutura.quant-usada * 125 else (p-quantidade * b-estrutura.quant-usada 164 tt-estrutura.quant-usada = de-quant-usada 195 de-quant-usada, 228 define var de-quant-usada as decimal. 239 for each b-estrutura fields (data-inicio data-termino es-codigo quant-usada 244 for each b-estrutura fields (data-inicio data-termino es-codigo quant-usada 260 assign de-quant-usada = if b-estrutura.log-quant-fix then b-estrutura.qtd-compon 267 assign de-quant-usada = if b-estrutura.log-quant-fix then b-estrutura.qtd-compon 268 else p-quantidade * b-estrutura.quant-usada * 271 else p-quantidade * b-estrutura.quant-usada 311 tt-estrutura.quant-usada = de-quant-usada 347 de-quant-usada, [Fontes_EMS2]\enp\enapi209.i 4 KB Arquivo I 23/11/2020 14:24:52 04/05/2026 13:17:00 07/05/2026 15:50:14 1 67 tt-estrutura.quant-usada = p-quantidade [Fontes_EMS2]\enp\enapi205.p 18 KB Arquivo P 16/09/2020 17:04:25 04/05/2026 13:18:24 07/05/2026 15:50:14 19 127 ASSIGN de-quant-usada = IF estrutura.log-quant-fix THEN estrutura.qtd-compon 129 de-quant-liq = IF estrutura.log-quant-fix THEN de-quant-usada 130 ELSE de-quant-usada * (1 - (estrutura.fator-perda / 100)). 132 ASSIGN de-quant-usada = ((estrutura.quant-usada / estrutura.qtd-item) * (estrutura.proporcao / 100)) * tt-param.quant-itens 133 de-quant-liq = de-quant-usada * (1 - (estrutura.fator-perda / 100)). 179 INPUT de-quant-usada, 183 INPUT de-quant-usada, 195 INPUT de-quant-usada, 199 INPUT de-quant-usada, 215 DEFINE INPUT PARAMETER de-quant-usada LIKE estrutura.quant-usada NO-UNDO. 263 ASSIGN de-quant-usada = IF b-estrutura.log-quant-fix THEN b-estrutura.qtd-compon 265 de-quant-liq = IF b-estrutura.log-quant-fix THEN de-quant-usada 266 ELSE de-quant-usada * (1 - (b-estrutura.fator-perda / 100)). 316 INPUT de-quant-usada, 320 INPUT de-quant-usada, 332 INPUT de-quant-usada, 336 INPUT de-quant-usada, [Fontes_EMS2]\enp\enapi209.i1 4 KB Arquivo I1 16/09/2020 17:04:25 04/05/2026 13:17:34 07/05/2026 15:50:14 1 40 FIELD quant-usada as decimal format "->>>,>>>,>>9.9999999999" [Fontes_EMS2]\enp\enapi209.p 20 KB Arquivo P 16/09/2020 17:04:25 04/05/2026 13:18:24 07/05/2026 15:50:14 13 121 DEFINE VARIABLE de-quant-usada AS DECIMAL NO-UNDO. 245 ASSIGN de-quant-usada = if b-estrutura.log-quant-fix then b-estrutura.quant-usada 246 else p-quant-uso * ((b-estrutura.quant-usada * b-estrutura.proporcao) / 100) 247 de-liq-aux = if b-estrutura.log-quant-fix then b-estrutura.quant-usada 248 else p-quant-uso * (b-estrutura.quant-usada * b-estrutura.proporcao / 100) * (1 - (b-estrutura.fator-perda / 100)). 253 p-quantidade = de-quant-usada * p-quant-uso. 260 ASSIGN de-quant-sum = p-quantidade * (b-estrutura.quant-usada * b-estrutura.proporcao / 100) * (1 - (b-estrutura.fator-perda / 100)) 261 de-quant-liq-sum = p-quantidade * ((b-estrutura.quant-usada * b-estrutura.proporcao) / 100) 276 INPUT de-quant-usada, 301 INPUT de-quant-usada, 322 INPUT de-quant-usada, 357 INPUT de-quant-usada, [Fontes_EMS2]\enp\enapi301.p 28 KB Arquivo P 16/09/2020 17:04:25 04/05/2026 13:18:24 07/05/2026 15:50:14 3 368 tt-estrutura.quant-usada < 0) or 370 tt-estrutura.quant-usada > 0) 390 if tt-estrutura.quant-usada < 0 then [Fontes_EMS2]\enp\enapi504.p 5 KB Arquivo P 16/09/2020 17:04:25 04/05/2026 13:18:24 07/05/2026 15:50:14 1 87 tt_estrutura.tta_qtd_compon_item_fabric = estrutura.quant-usada [Fontes_EMS2]\enp\enapi600.p 308 KB Arquivo P 16/09/2020 17:04:26 04/05/2026 13:18:24 07/05/2026 15:50:14 68 49 DEF VAR de-quant-usada LIKE estrutura.quant-usada. 50 DEF VAR de-quantidade LIKE estrutura.quant-usada. 51 DEF VAR de-quant-liquid LIKE estrutura.quant-usada. 52 def var d-tot-qt like estrutura.quant-usada init 0 no-undo. 427 if (&IF defined (bf_man_sfc_lc) &then estrutura.qtd-compon &else estrutura.quant-usada &endif < 0) and 436 if (&IF defined (bf_man_sfc_lc) &then estrutura.qtd-compon &else estrutura.quant-usada &endif > 0) and 454 alternativo.quant-usada = ttAlternativeComponentVO.quantity 605 estrutura.quant-usada = item-desenho.quantidade 608 estrutura.tipo-sobra = IF estrutura.quant-usada >= 0 3017 assign d-tot-qt = d-tot-qt + estrutura.quant-usada. 3174 estrutura.quant-usada = de-quant-usada 3188 assign estrutura.qtd-compon = estrutura.quant-usada 3189 estrutura.quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 3192 assign estrutura.quant-usada = estrutura.quant-usada. 3444 estrutura.quant-usada = ttItemComponentVO.componentQuantity / ttItemComponentVO.itemQuantity 3676 estrutura.quant-usada = b-estrutura.quant-usada 3714 alternativo.quant-usada = b-alternativo.quant-usada 3964 ttAlternativeComponentVO.quantity = alternativo.quant-usada 4005 ttAlternativeComponentVO.quantity = alternativo.quant-usada 4342 assign de-quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 4344 de-quant-liquid = if estrutura.log-quant-fix then de-quant-usada 4345 else de-quant-usada * (1 - (estrutura.fator-perda / 100)). 4347 assign de-quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 4348 else de-quantidade * estrutura.quant-usada * 4351 else de-quantidade * estrutura.quant-usada * 4367 ttItemComponentVO.componentQuantity = de-quant-usada 4394 de-quant-usada, 4590 assign de-quant-usada = ((estrutura.qtd-compon / estrutura.qtd-item) * (estrutura.proporcao / 100)) * de-quantidade 4591 de-quant-liquid = de-quant-usada * (1 - (estrutura.fator-perda / 100)). 4597 LOG-MANAGER:WRITE-MESSAGE("de-quant-usada : " + STRING(de-quant-usada)). 4602 assign de-quant-usada = de-quantidade * estrutura.quant-usada * 4604 de-quant-liquid = de-quantidade * estrutura.quant-usada * 4707 ttItemStructureVO.UsedQuantity = de-quant-usada 4792 DEFINE VARIABLE de-quant-usada AS DECIMAL NO-UNDO. 4856 assign de-quant-usada = ((bf-estrutura.qtd-compon / bf-estrutura.qtd-item) * (bf-estrutura.proporcao / 100)) * pQuantidade 4857 de-quant-liquid = de-quant-usada * (1 - (bf-estrutura.fator-perda / 100)). 4859 assign de-quant-usada = pQuantidade * bf-estrutura.quant-usada * 4861 de-quant-liquid = pQuantidade * bf-estrutura.quant-usada * 4966 ttItemStructureVO.UsedQuantity = de-quant-usada 5400 define var de-quant-usada like estrutura.quant-usada FORMAT "->>>>,>>9.9999999999" NO-UNDO. 5472 assign de-quant-usada = if b-estrutura.log-quant-fix then b-estrutura.qtd-compon 5474 de-quant-liquid = if b-estrutura.log-quant-fix then de-quant-usada 5475 else de-quant-usada * (1 - (b-estrutura.fator-perda / 100)). 5477 assign de-quant-usada = p-quantidade * b-estrutura.quant-usada * 5479 de-quant-liquid = p-quantidade * b-estrutura.quant-usada * 5493 ttItemComponentVO.componentQuantity = de-quant-usada 6227 alternativo.quant-usada = estrutura.quant-usada 6233 estrutura.qtd-compon = tt-alternativo.quant-usada. 6235 estrutura.quant-usada = tt-alternativo.quant-usada. 6246 alternativo.quant-usada = tt-estrutura.qtd-compon. 6248 alternativo.quant-usada = tt-estrutura.quant-usada. 6431 if (&IF defined (bf_man_sfc_lc) &then estrutura.qtd-compon &else estrutura.quant-usada &endif < 0) and 6441 if (&IF defined (bf_man_sfc_lc) &then estrutura.qtd-compon &else estrutura.quant-usada &endif > 0) and 6461 alternativo.quant-usada = ttAlternativeComponentVO.quantity 6639 b-estrutura.quant-usada = ttItemComponentVO.componentQuantity / ttItemComponentVO.itemQuantity [Fontes_EMS2]\enp\enr0022.p 12 KB Arquivo P 16/09/2020 17:04:26 04/05/2026 13:18:24 07/05/2026 15:50:14 2 104 estr-modelo.quant-usada column-label "Qtde" format ">>>,>>9.9999999999" at 001 232 estr-modelo.quant-usada [Fontes_EMS2]\enp\enapi602.p 113 KB Arquivo P 16/09/2020 17:04:25 04/05/2026 13:18:24 07/05/2026 15:50:14 18 41 FIELD quant-usada LIKE estrutura.quant-usada 46 FIELD qtd-compon LIKE estrutura.quant-usada 220 estrutura.quant-usada = if lista-compon-item.log-quant-fix then estrutura.qtd-compon 410 ttItemComponentVO.netQuantity = tt-estrutura.quant-usada 455 assign estrutura.quant-usada = ttComponentListVO.componentQuantity * ttComponentListVO.convertionFactor 464 if estrutura.quant-usada < 0 then 607 tt-estrutura.quant-usada = estrutura.quant-usada 616 tt-estrutura.qtd-compon = tt-estrutura.quant-usada * tt-estrutura.qtd-item 644 tt-estrutura.quant-usada = estrutura.quant-usada 653 tt-estrutura.qtd-compon = tt-estrutura.quant-usada * tt-estrutura.qtd-item 680 tt-estrutura.quant-usada = estrutura.quant-usada 689 tt-estrutura.qtd-compon = tt-estrutura.quant-usada * tt-estrutura.qtd-item 1941 estrutura.quant-usada = estrutura.qtd-compon / 1944 assign estrutura.quant-usada = ttItemComponentVO.componentQuantity.
Eu usei o codigo estrutura.quant-usada = if estrutura.log-quant-fix then estrutura.qtd-compon 963 assign estrutura.quant-usada = estrutura.quant-usada. Para calcular o valor que era para ser, e ai comparei com o valor que está na tabela estrutura. Tem algumas divergencias. Estou querendo fazer o saneamento da tabela, mas com algum receio de fazer via ASSIGN direto no campo
