Perguntas Variáveis

Segue o que foi desenvolvido e que necessitava das várias nos dois fontes.

#include "rwmake.ch"

Static _cVerCond := .T.
Static _cBlq
Static _cLibMar

User Function MTA410()

If altera
_cVerCond := .F.
_nPosProd := aScan(aHeader, {|x| AllTrim(x[2])=="C6_PRODUTO"})
_nPosVal := aScan(aHeader, {|x| AllTrim(x[2])=="C6_VALOR"})
DbSelectArea("SC6")
DbSetOrder(1)
DbSeek(xFilial("SC6")+M->C5_NUM)
For _nx := 1 to len(acols)
If !aCols[_nx][Len(aHeader)+1]
If SC6->C6_FILIAL+SC6->C6_NUM == xFilial("SC5")+M->C5_NUM
_cProduto := acols[_nx][_nPosProd]
_nValor1 := acols[_nx][_nPosVal]
If _nValor1 != SC6->C6_VALOR
_cVerCond := .T.
Endif
Endif
dbskip()
Endif
Next
If !(_cVerCond)
_cBlq := SC5->C5_BLQ
_cLibMar := SC5->C5_LIBMAR
Endif
endif


User Function MTA410T()


if _cVerCond
if sc5 -> c5_tpvenda == "N" .and. _lVerBlq .and. U_VldLucra(xFilial("SC5"),_xNumPed) // tipo de venda = Normal

// If _lVerBlq .or. _bBlqMar // Deve consistir a Margem
// If _lVerBlq //.or. _bBlqMar // Deve consistir a Margem
Dbselectarea("SZ8")
DbSetOrder(1)
DbSeek(xFilial("SZ8"))
Do while !Eof() .And. SZ8->Z8_FILIAL == xFilial("SZ8")
do case
case ( _Retorno >= sz8->z8_de .and. _Retorno <= sz8->z8_ate .and. sz8->z8_libera == "S" .AND. sc5->c5_tipo == "N" ) .Or. _lCusZero .Or. _bBlqMar
If !_lMsg
msginfo ("Pedido bloqueado por margem de lucratividade, liberação do supervisor ! "+_cMsg,"Aviso")
Endif
_lMsg := .T.
reclock("SC5", .f.)
SC5->C5_BLQ := "2"
SC5->C5_LIBMAR := "S" // Supervisor
msunlock()
case ( _Retorno >= sz8 -> z8_de .and. _Retorno <= sz8 -> z8_ate .and. sz8 -> z8_libera == "L" .AND. sc5 -> c5_tipo=="N" )
If !_lMsg
msginfo ("Pedido bloqueado por margem de lucratividade, liberação do lider !","Aviso")
Endif
_lMsg := .T.
reclock("SC5", .f.)
SC5->C5_BLQ := "2"
SC5->C5_LIBMAR := "L" // Lider
msunlock()
endcase
dbselectarea("SZ8")
dbskip()
enddo
Endif
Else
SC5->C5_BLQ := _cBlq
SC5->C5_LIBMAR :=_cLibMar
endif