Perguntas Complemento nota de exportação

Pessoal, boa tarde

Na versão 2.0 da NF-e, em uma nota de exportação com 20 itens, era possível entrar nos complementos de exportação e digitar um único item e a nota era aceita.
Agora na versão 3.10, isso não é mais possível, tem que digitar os complementos para todos os itens da nota.
O que ocorre, é que onde trabalho, tem nota com mais de 100 itens, e fica inviável fazer esse procedimento um a um, já abri um chamado na Totvs, mas até agora ninguém me responde se tem uma solução para isso.
Vi que tem o ponto de entrada MT926CDL, mas não esta dando certo os testes que estou fazendo, alguém já programou esse ponto de entrada, ou tem outra solução para o problema.

Muito obrigado

Luiz, muito obrigado

Mais uma coisa, não existe ExecAuto para a população da tabela CDL, qual a melhor maneira para o campo R_E_C_N_O_ dessa tabela, pegar o (maior valor)+1 para gravar o item.

Pessoal, boa tarde

Na empresa que trabalho, temos bastante exportação, e agora na versão 3.10 da NF-e tem que inserir item a item nos complementos tabela CDL010, antes na versão 2.0 poderia inserir somente um item que a nota era aceita, agora como falei, tem que ser todos os itens.
Criei uma rotina dentro do ponto de entrada M460FIM, sugerido pelo nosso amigo Luiz, e quem tiver com o mesmo problema, segue abaixo o que foi feito aqui:

User Function M460FIM()
Local aArea := GetArea()
Local aAreaE1 := SE1->(GetArea())
Local cCliEx := ""

cCliEx := Posicione("SA1",1,xfilial("SA1")+SC5->C5_CLIENTE+SC5->C5_LOJACLI,"A1_EST")

dbSelectArea("SD2") // posiciona no item da nf
dbGoTop()
dbSetorder(3)
If dbSeek(SF2->F2_FILIAL + SF2->F2_DOC + SF2->F2_SERIE + SF2->F2_CLIENTE + SF2->F2_LOJA)
While !sd2->(Eof()) .and. sd2->d2_filial == sf2->f2_filial .and. sd2->d2_doc == sf2->f2_doc .and. sd2->d2_serie == sf2->f2_serie .and. sd2->d2_cliente == sf2->f2_cliente .and. sd2->d2_loja == sf2->f2_loja

//incluir registro na tabela CDL complemento de exportação caso no cadastro do cliente o campo A1_EST = 'EX'
If cCliEx == 'EX'
DbSelectArea("CDL")
RecLock("CDL",.T.)

CDL->CDL_FILIAL := SD2->D2_FILIAL
CDL->CDL_DOC := SD2->D2_DOC
CDL->CDL_SERIE := SD2->D2_SERIE
CDL->CDL_ESPEC := 'SPED'
CDL->CDL_CLIENT := SD2->D2_CLIENTE
CDL->CDL_LOJA := SD2->D2_LOJA
CDL->CDL_INDDOC := '0'
CDL->CDL_NUMDE := '1'
CDL->CDL_DTDE := SD2->D2_EMISSAO
CDL->CDL_NATEXP := '0'
CDL->CDL_DTREG := SD2->D2_EMISSAO
CDL->CDL_CHCEMB := '01'
CDL->CDL_DTCHC := SD2->D2_EMISSAO
CDL->CDL_DTAVB := SD2->D2_EMISSAO
CDL->CDL_TPCHC := '01'
CDL->CDL_PAIS := Posicione("SA1",1,xfilial("SA1")+SD2->D2_CLIENTE+SD2->D2_LOJA,"A1_CODPAIS")
CDL->CDL_NRMEMO := SD2->D2_ITEM
CDL->CDL_EMIEXP := SD2->D2_EMISSAO
CDL->CDL_QTDEXP := 0
CDL->CDL_UFEMB := 'SP'
CDL->CDL_LOCEMB := 'SAO PAULO'
CDL->CDL_ITEMNF := SD2->D2_ITEM
CDL->CDL_PRODNF := SD2->D2_COD
CDL->CDL_VLREXP := 0
CDL->(MsUnLock())
EndIf
Endif
restArea(aArea)
Return

Jeferson Tavares escreveu: Pessoal, boa tarde

Na empresa que trabalho, temos bastante exportação, e agora na versão 3.10 da NF-e tem que inserir item a item nos complementos tabela CDL010, antes na versão 2.0 poderia inserir somente um item que a nota era aceita, agora como falei, tem que ser todos os itens.
Criei uma rotina dentro do ponto de entrada M460FIM, sugerido pelo nosso amigo Luiz, e quem tiver com o mesmo problema, segue abaixo o que foi feito aqui:

User Function M460FIM()
Local aArea := GetArea()
Local aAreaE1 := SE1->(GetArea())
Local cCliEx := ""

cCliEx := Posicione("SA1",1,xfilial("SA1")+SC5->C5_CLIENTE+SC5->C5_LOJACLI,"A1_EST")

dbSelectArea("SD2") // posiciona no item da nf
dbGoTop()
dbSetorder(3)
If dbSeek(SF2->F2_FILIAL + SF2->F2_DOC + SF2->F2_SERIE + SF2->F2_CLIENTE + SF2->F2_LOJA)
While !sd2->(Eof()) .and. sd2->d2_filial == sf2->f2_filial .and. sd2->d2_doc == sf2->f2_doc .and. sd2->d2_serie == sf2->f2_serie .and. sd2->d2_cliente == sf2->f2_cliente .and. sd2->d2_loja == sf2->f2_loja

//incluir registro na tabela CDL complemento de exportação caso no cadastro do cliente o campo A1_EST = 'EX'
If cCliEx == 'EX'
DbSelectArea("CDL")
RecLock("CDL",.T.)

CDL->CDL_FILIAL := SD2->D2_FILIAL
CDL->CDL_DOC := SD2->D2_DOC
CDL->CDL_SERIE := SD2->D2_SERIE
CDL->CDL_ESPEC := 'SPED'
CDL->CDL_CLIENT := SD2->D2_CLIENTE
CDL->CDL_LOJA := SD2->D2_LOJA
CDL->CDL_INDDOC := '0'
CDL->CDL_NUMDE := '1'
CDL->CDL_DTDE := SD2->D2_EMISSAO
CDL->CDL_NATEXP := '0'
CDL->CDL_DTREG := SD2->D2_EMISSAO
CDL->CDL_CHCEMB := '01'
CDL->CDL_DTCHC := SD2->D2_EMISSAO
CDL->CDL_DTAVB := SD2->D2_EMISSAO
CDL->CDL_TPCHC := '01'
CDL->CDL_PAIS := Posicione("SA1",1,xfilial("SA1")+SD2->D2_CLIENTE+SD2->D2_LOJA,"A1_CODPAIS")
CDL->CDL_NRMEMO := SD2->D2_ITEM
CDL->CDL_EMIEXP := SD2->D2_EMISSAO
CDL->CDL_QTDEXP := 0
CDL->CDL_UFEMB := 'SP'
CDL->CDL_LOCEMB := 'SAO PAULO'
CDL->CDL_ITEMNF := SD2->D2_ITEM
CDL->CDL_PRODNF := SD2->D2_COD
CDL->CDL_VLREXP := 0
CDL->(MsUnLock())
EndIf
Endif
restArea(aArea)
Return

Bom dia Jeferson,
Estou tentando compilar o código que você enviou mas está ocorrendo o seguinte erro: Error C2027 ENDIF does not match IF. Você poderia me ajudar em solucioná-lo?
Desde já agradeço.