Eventos: | If ExistBlock("VM180VLR") // Parametros do Ponto de Entrada (ParamIXB): // [1] = % Desconto // [2] = Vlr Base // [3] = % Comissão // [4] = Vlr Comissão // [5] = RecNo VQ2 // [6] = Valor Inicial // [7] = Filial Atendimento // [8] = Nro. Atendimento aRet := ExecBlock("VM180VLR",.f.,.f., { aIncent[nLinVet,08] ,; aIncent[nLinVet,09] ,; aIncent[nLinVet,10] ,; aIncent[nLinVet,11] ,; aIncent[nLinVet,15] ,; aIncent[nLinVet,07] ,; aIncent[nLinVet,03] ,; aIncent[nLinVet,04] }) If ValType(aRet) == "A" // Retorno do Ponto de Entrada: // [1] = % Desconto // [2] = Vlr Base // [3] = % Comissão // [4] = Vlr Comissão aIncent[nLinVet,08] := aRet[01] // % Desconto aIncent[nLinVet,09] := aRet[02] // Vlr Base aIncent[nLinVet,10] := aRet[03] // % Comissão aIncent[nLinVet,11] := aRet[04] // Vlr Comissão lOkTela := .t. EndIf Else cTip := substr(aIncent[nLinVet,12],2) AADD(aParamBox,{1,STR0028 ,aIncent[nLinVet,07],"@E 999,999,999.99","" ,"",".F.",50,.t.}) // Vlr Inicial AADD(aParamBox,{1,"% "+STR0007 ,aIncent[nLinVet,08],"@E 999.99" ,"VM180VLDP(2)","","",50,.f.}) // % Desconto AADD(aParamBox,{1,STR0029 ,aIncent[nLinVet,09],"@E 999,999,999.99","VM180VLDP(3)","","",50,.f.}) // Vlr Base AADD(aParamBox,{1,"% "+cTip ,aIncent[nLinVet,10],"@E 999.99" ,"VM180VLDP(4)","","",50,.f.}) // % Comissão AADD(aParamBox,{1,STR0027+" "+cTip,aIncent[nLinVet,11],"@E 999,999,999.99","VM180VLDP(5)","","",50,.f.}) // Vlr Comissão If ParamBox(aParamBox,STR0031,@aRet,,,,,,,,.f.) // Incentivo - ALTERAR aIncent[nLinVet,08] := aRet[02] // % Desconto aIncent[nLinVet,09] := aRet[03] // Vlr Base aIncent[nLinVet,10] := aRet[04] // % Comissão aIncent[nLinVet,11] := aRet[05] // Vlr Comissão lOkTela := .t. EndIf EndIf If lOkTela If right(aIncent[nLinVet,2],1) $ "12" .and. aIncent[nLinVet,15] > 0 DbSelectArea("VQ2") DbGoTo(aIncent[nLinVet,15]) RecLock("VQ2",.f.) VQ2->VQ2_PERDES := aIncent[nLinVet,08] // % Desconto VQ2->VQ2_VLRBAS := aIncent[nLinVet,09] // Vlr Base VQ2->VQ2_PERINC := aIncent[nLinVet,10] // % Comissão VQ2->VQ2_VLRINC := aIncent[nLinVet,11] // Vlr Comissão MsUnLock() EndIf EndIf |