Perguntas PE M410PCDV

#include "TOTVS.CH"
#include "rwmake.ch"
#include "protheus.ch"

User Function M410PCDV()
Local cAliasSD1 := PARAMIXB[1]
Local aArea := GetArea()
Local nCodPRO := Ascan( aHeader, { |x| Alltrim(x[2]) == "C6_PRODUTO" } )
Local nCodCli := Ascan( aHeader, { |x| Alltrim(x[2]) == "C6_ZZCODCL" } )
Local nCodPN := Ascan( aHeader, { |x| Alltrim(x[2]) == "C6_ZZPN" } )
Local nCodNCM := Ascan( aHeader, { |x| Alltrim(x[2]) == "C6_ZZNCM" } )
Local nCodORF := Ascan( aHeader, { |x| Alltrim(x[2]) == "C6_ZZORDFA" } )
Local nNumNF := Ascan( aHeader, { |x| Alltrim(x[2]) == "C6_NFORI" } )
Local nSerNF := Ascan( aHeader, { |x| Alltrim(x[2]) == "C6_SERIORI" } )
Local nIteNF := Ascan( aHeader, { |x| Alltrim(x[2]) == "C6_ITEMORI" } )

If !aCols[Len(aCols)][Len(aHeader)+1] // Se a Linha Não Estiver Deletada Prossegue
SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+aCols[Len(aCols),nCodPRO]))

aCols[Len(aCols),nCodCli] := (cAliasSD1)->D1_XXCODZL
aCols[Len(aCols),nCodPN] := SB1->B1_PARTNUM
aCols[Len(aCols),nCodNCM] := SB1->B1_POSIPI
aCols[Len(aCols),nCodORF] := (cAliasSD1)->D1_XXEMPEN
Endif
RestArea(aArea)
Return Nil