AF251EAC() - Manipulaçao de aCols da rotina Aquisição por Transferência

Descrição

O ponto de entrada AF251EAC() manipula a aCols da pasta Complementos da Rotina de Aquisição por Transferência.

Observações

O ponto de entrada AF251EAC() manipula a aCols da pasta Complementos da Rotina de Aquisição por Transferência, e permite a cópia da aCols da pasta Dados do Bem.

Exemplos

User Function AF251EAC()
Local aHeader := paramixb[1]
Local aCols := paramixb[2]
Local aHeaderComp := paramixb[3]
Local aColsComp := paramixb[4]
Alert("Ponto de Entrada Executado")
aColsComp[1][1] := "Teste Manipulação aCols"
aColsComp[1][2] := aCols[1][2]
aColsComp[1][3] := aCols[1][3]
aColsComp[1][4] := aCols[1][4]
aColsComp[1][5] := aCols[1][5]
aColsComp[1][6] := aCols[1][6]
aColsComp[1][7] := aCols[1][7]
aColsComp[1][8] := aCols[1][8]
aColsComp[1][9] := aCols[1][9]
Return {aHeader , aCols , aHeaderComp , aColsComp }
//aColsComp (aCols da pasta Complementos)
//aCols (aCols da pasta Dados do Bem)

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

aHeader, aCols, aHeaderComp, aColsComp

Retorno

aHeader, aCols, aHeaderComp, aColsComp

Eventos de chamada do Ponto de Entrada

If ValType (aEdtAcols) =="A" .And. Len (aEdtAcols)==4
aHeader := aClone(aEdtAcols1 )
aCols := aClone(aEdtAcols2 )
aHeaderComp := aClone(aEdtAcols3 )
aColsComp := aClone(aEdtAcols4 )
EndIf
EndIf

Programa Fonte

ATFA251.PRW