Código: Selecionar todos
//ESTE COMANDO--> ABAIXO
cn_valicm with {||IIF PAR->CC_PAIS = 'B' , (n_quant * vn_preco)/100 * n_aliqicm , (n_quant * vn_preco)/nFatorIva(n_aliqicm)},;
ADIC_REG();BLOQ_REG()
REPL cc_codped with c_codped,;
cc_codlot with c_codlot,;
cc_codfor with c_codfor,;
cc_codprod with c_codprod,;
cc_descr with vc_descr,;
cn_quant with n_quant,;
cc_estoque with c_stok,;
cn_preco with vn_preco,;
cn_totitem with n_quant * vn_preco,;
cn_totcus with n_quant * vn_cusmed,;
cn_valipi with (n_quant * vn_preco)/100 * n_aliqipi,;
cn_valicm with {||IIF PAR->CC_PAIS = 'B' , (n_quant * vn_preco)/100 * n_aliqicm , (n_quant * vn_preco)/nFatorIva(n_aliqicm)},;
cc_marca with vc_marca,;
cc_und with vc_und,;
cc_unddec with vc_decimal,;
cc_local with vc_local,;
cc_codfabr with vc_codfabr,;
cn_aliqipi with n_aliqipi,;
cn_aliqicm with n_aliqicm,;
cn_descite with n_descite,;
cn_str with n_str,;
cc_cst with c_cst,;
cn_cusmed with vn_cusmed,;
cc_usuario with cusuario,;
cd_datalan with date(),;
cc_time with time()
DBCOMMIT()
unlock
