Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include "Protheus.ch" User Function NatSevLoad() Local _nPosNat := 0 Local _nPosVlr := 0 Local _nPosPerc := 0 Local _nPosRat := 0 Local _MyaCols := {} Local _aColsRot := PARAMIXB[1] Local _aHeadRot := PARAMIXB[2] _MyaCols :=aClone(_aColsRot) _nPosNat :=Ascan(_aHeadRot, {|e| AllTrim(e[2]) == AllTrim("EV_NATUREZ") } ) _nPosVlr :=Ascan(_aHeadRot, {|e| AllTrim(e[2]) == AllTrim("EV_VALOR") } ) _nPosPerc :=Ascan(_aHeadRot, {|e| AllTrim(e[2]) == AllTrim("EV_PERC") } ) _nPosRat :=Ascan(_aHeadRot, {|e| AllTrim(e[2]) == AllTrim("EV_RATEICC") } ) If FwIsInCallStack("FINA050")//-- Contas a Pagar //-- Cria um item com 50% do valor do título _MyaCols[1,_nPosNat] := PadR('000001',Len(SEV->EV_NATUREZ)) _MyaCols[1,_nPosVlr] := M->E2_VALOR / 2 _MyaCols[1,_nPosPerc]:= 50 _MyaCols[1,_nPosRat] := "1" //Rateio CC=Sim //-- Cria um segundo item para distribuir os 50% restante Aadd(_MyaCols,Array(Len(_aHeadRot)+1)) _MyaCols[Len(_MyaCols),_nPosNat] := PadR('000003',Len(SEV->EV_NATUREZ)) _MyaCols[Len(_MyaCols),_nPosVlr] := M->E2_VALOR /2 _MyaCols[Len(_MyaCols),_nPosPerc]:= 50 _MyaCols[Len(_MyaCols),_nPosRat] := "1" _MyaCols[Len(_MyaCols),(Len(_aHeadRot)+1)] := .F. EndIf Return(_MyaCols) |
05. CONTEÚDO RELACIONADO
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas