1. Entrar Parametros, Estoque,
message('contrato locacao|'&PEDI:ContratoLocacao) = 0
message('CabPedido|'&CabPedido) =
message('par:pergunta16_pcp|'&par:pergunta16_pcp) S
message('ope:icm_f2_somar_estoque|'&ope:icm_f2_somar_estoque) 0
message('par:cupomfiscal|'&par:cupomfiscal) =1
message('ope:rotina|'&ope:rotina) Sa
message('wtipo|'&wtipo)
!Gravando Material
PEDI:Chave_Pedido_Iten=pedi:numero&format(pedi:sequencia,@n03)
if PEDI:ContratoLocacao=1
grava#=0
clear(mat:record)
MAT:CODIGO=pedi:CODIGO_MATERIAL
get(mater,mat:mat_por_codigo)
if MAT:DataPrevisaoEntrega=0
MAT:DataLocadoItem=today()
MAT:DataPrevisaoEntrega=PEDI:DataEntrega
MAT:SituacaoMaterial=3
grava#=1
END
if grava#=1
put(mater)
END
ELSE
if CabPedido='Orcamento Numero' ! Par:Pergunta16_Pcp
else
if par:pergunta16_pcp='S' ! no parametro - Baixar estoque pelos pedidos
if ~ope:icm_f2_somar_estoque=0!ope:futuro[2]='N'
if par:cupomfiscal!cupomfiscal ficou igual a deseja diminuir do faturamento
clear(mat:record)
MAT:CODIGO=pedi:CODIGO_MATERIAL
get(mater,mat:mat_por_codigo)
if ~errorcode()
if ope:rotina='Se'
else
if ope:rotina='En'
if wtipo=3
mat:saldo=mat:saldo-pedi:Quantidade
mat:saldo_mes[month(data_movimento_date)]=mat:saldo_mes[month(data_movimento_date)]-pedi:Quantidade
else
quantidade$=mat:saldo
mat:saldo=mat:saldo+pedi:Quantidade-wquantidade_saida
mat:saldo_mes[month(data_movimento_date)]=mat:saldo_mes[month(data_movimento_date)]+pedi:Quantidade-wquantidade_saida
end
else
if wtipo=3
mat:saldo=mat:saldo+pedi:Quantidade
mat:saldo_mes[month(data_movimento_date)]=mat:saldo_mes[month(data_movimento_date)]+pedi:Quantidade
else
quantidade$=mat:saldo
mat:saldo=mat:saldo-pedi:Quantidade+wquantidade_saida
mat:saldo_mes[month(data_movimento_date)]=mat:saldo_mes[month(data_movimento_date)]-pedi:Quantidade+wquantidade_saida
end
end
end
put(mater)
end
end
end
end
end
END!if PEDI:ContratoLocacao=1
