Perguntas Importação de TXT no Pedido de Vendas

Opa Brother, conseguiu resolver ? vou ver se acho alguma coisa referente a isso ok.

Abraços.

Veja se esta função te ajuda:

Static Function Ma410Bom(aHeader,aCols,nX)

Local aArea := GetArea()
Local aBOM := {}
Local aHeadBom := {"",RetTitle("C6_PRODUTO"),RetTitle("C6_QTDVEN"),RetTitle("C6_DESCRI")}
Local nPProduto := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_PRODUTO"})
Local nPTES := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_TES"})
Local nPQtdVen := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_QTDVEN"})
Local nPPrcVen := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_PRCVEN"})
Local nPItem := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_ITEM"})
Local nPTotal := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_VALOR"})
Local nY := 0
Local nZ := 0
Local cItem := ""
Local lMA410BOM := ExistBlock("MA410BOM")
PRIVATE N := nX
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Posiciona registros ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("SB1")
dbSetOrder(1)
MsSeek(xFilial("SB1")+aCols[nX][nPProduto])
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Verifica os produtos do primeiro nível da estrutura ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("SG1")
dbSetOrder(1)
MsSeek(xFilial("SG1")+aCols[nX][nPProduto])
While !Eof() .And. xFilial("SG1") == SG1->G1_FILIAL .And.;
aCols[nX][nPProduto] == SG1->G1_COD

dbSelectArea("SB1")
dbSetOrder(1)
MsSeek(xFilial("SB1")+aCols[nX][nPProduto])
If RetFldProd(SB1->B1_COD,"B1_FANTASM") <> "S" // Projeto Implementeacao de campos MRP e FANTASM no SBZ
aadd(aBOM,{SG1->G1_COMP,ExplEstr(aCols[nX][nPQtdVen],dDataBase,"",SB1->B1_REVATU),SB1->B1_DESC})
EndIf
dbSelectArea("SG1")
dbSkip()
EndDo

If lMA410BOM
ExecBlock("MA410BOM",.F.,.F.,{aBOM})
Else
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Adiciona os produtos no aCols ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
For nX := 1 To Len(aBOM)
cItem := aCols[Len(aCols)][nPItem]
aadd(aCOLS,Array(Len(aHeader)+1))
For nY := 1 To Len(aHeader)
If ( AllTrim(aHeader[nY][2]) == "C6_ITEM" )
aCols[Len(aCols)][nY] := Soma1(cItem)
Else
If (aHeader[nY,2] <> "C6_REC_WT") .And. (aHeader[nY,2] <> "C6_ALI_WT")
aCols[Len(aCols)][nY] := CriaVar(aHeader[nY][2])
EndIf
EndIf
Next nY
N := Len(aCols)
aCOLS[N][Len(aHeader)+1] := .F.
A410Produto(aBom[nX][1],.F.)
aCols[N][nPProduto] := aBom[nX][1]
A410MultT("M->C6_PRODUTO",aBom[nX][1])
If ExistTrigger("C6_PRODUTO")
RunTrigger(2,N,Nil,,"C6_PRODUTO")
Endif

A410SegUm(.T.)
A410MultT("M->C6_QTDVEN",aBom[nX][2])
If ExistTrigger("C6_QTDVEN ")
RunTrigger(2,N,Nil,,"C6_QTDVEN ")
Endif
If Empty(aCols[N][nPTotal]) .Or. Empty(aCols[N][nPTES])
aCOLS[N][Len(aHeader)+1] := .T.
EndIf
Next nX
Endif

RestArea(aArea)
Return(.T.)