FX_PEACTE - Executado antes da gravação da Pré-nota para alterações necesárias antes do Execauto.
user function FXPEACTE()
Local aRet := {.T., ""}
Local nPosCC := aScan(aItens[1],{|x| Alltrim(x[01]) == "D1_CC"}) // como nos ctes em lote vem somente uma posição no array coloco fixo 1
Local cUnNeg := ""
Local cCC := ""
cCgc := AllTrim(IIf(Type("oDestCT:_CPF")=="U",oDestCT:_CNPJ:TEXT,oDestCT:_CPF:TEXT))
cUnNeg := FBUSCACPO("SA1", 3 , xfilial("SA1") + cCgc, "A1_XITEMCT")
if (IsInCallStack("ProcCTeLT"))
if alltrim(cUnNeg) == "101"
cCC := "302002"
elseif alltrim(cUnNeg) == "102"
cCC := "302010"
elseif alltrim(cUnNeg) == "103"
cCC := "302017"
elseif alltrim(cUnNeg) == "104"
cCC := "302011"
elseif alltrim(cUnNeg) == "105"
cCC := "302022"
else
cCC := ""
endif
if nPosCC > 0
aItens[1,nPosCC][2] := cCC
endif
endif
Return aRet