Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include "Protheus.ch" User Function NatSezLoad() Local _nPosCC := 0 Local _nPosVal := 0 Local _nPosPer := 0 Local _MyaCols := {} Local _aColsRot := PARAMIXB[1] Local _aHeadRot := PARAMIXB[2] Local _cNatur := PARAMIXB[3] Local _nValNat := PARAMIXB[4] _MyaCols:= aClone(_aColsRot) _nPosCC := Ascan(_aHeadRot, {|e| AllTrim(e[2]) == AllTrim("EZ_CCUSTO") } ) _nPosVal:= Ascan(_aHeadRot, {|e| AllTrim(e[2]) == AllTrim("EZ_VALOR") } ) _nPosPer:= Ascan(_aHeadRot, {|e| AllTrim(e[2]) == AllTrim("EZ_PERC") } ) If FwIsInCallStack("FINA050") //-- Contas a Pagar If Empty(_MyaCols[1,_nPosCC]) //-- Vazio = ainda não carregou nenhuma informação para o Centro de Custo If !Empty(_cNatur) //-- Cria um item com 50% do percentual do valor da Natureza _MyaCols[1,_nPosCC] :=PadR('000000003',Len(SEZ->EZ_CCUSTO)) _MyaCols[1,_nPosPer]:=50 _MyaCols[1,_nPosVal]:=_nValNat/2 //-- Cria um segundo item para distribuir os 50% restante Aadd(_MyaCols,Array(Len(_aHeadRot)+1)) _MyaCols[Len(_MyaCols),_nPosCC] := PadR('000000004',Len(SEZ->EZ_CCUSTO)) _MyaCols[Len(_MyaCols),_nPosPer]:= 50 _MyaCols[Len(_MyaCols),_nPosVal]:= _nValNat/2 _MyaCols[Len(_MyaCols),(Len(_aHeadRot)+1)] := .F. EndIf EndIf EndIf Return(_MyaCols) |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas