Baixa Estoque Pedido

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