Perguntas Erro de transmissão de nota de importação

Pessoal o cliente incluiu uma nota de importação e na depois da transmissão aparece a seguinte mensagem:
525/rejeição cfop de importação e não informado dados da di

No documento de entrada esses dados estão preenchidos, sendo que esse CFOP já é utilizado e os dados da DI foram inclusos no próprio documento de entrada nos respectivos campos (Numero da DI, Data da DI e data de Desembaraço)

Fiz uma atualização lá semana passada enfim já vi em vários posts que deveria alimentar os dados da DI no Livro Fiscal, porém acesso Livros Fiscais -> atualizações -> Nf Manual Entrada -> Seleciona a anota em questão -> Complementos -> Importação. Só que não me aparece nenhum campo para alimentar a DI.

Outra dúvida será que pode meu NFESEFAZ não estar levando essas informações, pois no schemas está igual ao documento de entrada.

Marcelo Evangelista, boa noite!

Antes de ter toda essa rotina que as vezes não funciona, tive muito problemas ai criei um fonte e coloquei dentro de um ponto de entrada como segue qualquer duvida me envia um e-mail Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.:

Fonte a ser colocado no ponto de entrada
#INCLUDE "rwmake.ch"
#INCLUDE "TOPCONN.CH"

USER FUNCTION AEST001(l_OK)

_aSvArea:=GetArea()
_cNroDI := space(20)
_nPBrut := 0
_nPLiqui := 0
_nQtde := 0
_cEspecie := Space(20)
_cTransp := Space(6)
_nTxsis := 0 //Space(10)
_nPis := 0 //Space(10)
_nCofins := 0 //Space(10)
_dDi := Ctod(Space()
_cLocDes := Space(30)
_cUfDes := Space(2)
_dDesemb := Ctod(Space()
_cFornec := Space(30)
_cFabri := Space(30)



If Inclui .And. SF1->F1_FORMUL == "S" .And. SF1->F1_EST $ "EX"
@ 000,000 TO 450,500 DIALOG oDlg3 TITLE "Dados a serem impressos na Nota Fiscal"
@ 020,010 say "Numero da DI: " size 50, 13
@ 020,070 get _cNroDI PICTURE "@S20!" SIZE 80,13
@ 030,010 SAY "Dt. DI : " SIZE 50,13
@ 030,070 GET _dDi PICTURE "99/99/99" SIZE 50,13
@ 040,010 say "Peso Bruto : " size 50, 13
@ 040,070 get _nPBrut PICTURE "@E 999,999.9999" SIZE 80,13
@ 050,010 say "Peso Liquido: " size 50, 13
@ 050,070 get _nPLiqui PICTURE "@E 999,999.9999" SIZE 80,13
@ 060,010 say "Quantidade : " size 50, 13
@ 060,070 get _nQtde PICTURE "@E 999,999.9999" SIZE 80,13
@ 070,010 say "Especie : " size 50, 13
@ 070,070 get _cEspecie PICTURE "@!" SIZE 80,13
@ 080,010 say "Transport. : " size 50, 13
@ 080,070 get _cTransp PICTURE "@S20!" SIZE 80,13
@ 090,010 say "Tx Siscomex : " size 50, 13
@ 090,070 get _nTxsis PICTURE "@E 999,999.9999" SIZE 80,13
@ 100,010 say "PIS/PASEP : " size 50, 13
@ 100,070 get _nPis PICTURE "@E 999,999.9999" SIZE 80,13
@ 110,010 say "COFINS : " size 50, 13
@ 110,070 get _nCofins PICTURE "@E 999,999.9999" SIZE 80,13
@ 120,010 SAY "L.Desemb : " SIZE 50,13
@ 120,070 GET _cLocDes PICTURE "@!" SIZE 80,13
@ 130,010 SAY "UF Desemb : " SIZE 50,13
@ 130,070 GET _cUfDes PICTURE "@!" SIZE 80,13
@ 140,010 SAY "Dt.Desemb : " SIZE 50,13
@ 140,070 GET _dDesemb PICTURE "99/99/99" SIZE 80,13
@ 150,010 SAY "Exportador: " SIZE 50,13
@ 150,070 GET _cFornec PICTURE "@S20!" SIZE 80,13
@ 180,180 BMPBUTTON TYPE 1 ACTION Close(oDlg3)

ACTIVATE DIALOG oDlg3 CENTERED
//Grava status como conferido
RecLock("SF1",.F.)
Field->F1_NRODI := _cNroDI
Field->F1_PESOL := _nPLiqui
Field->F1_PLIQUI := _nPLiqui // Incluido em 19/04/11 - Henrique
Field->F1_PESOB := _nPBrut
Field->F1_PBRUTO := _nPBrut // Incluido em 19/04/11 - Henrique
Field->F1_QTDE := _nQtde
Field->F1_VOLUME := _cEspecie
Field->F1_ESPECI1 := _cEspecie // Incluido em 19/04/11 - Henrique
Field->F1_TRANSP := _cTransp
Field->F1_TXSISC := _nTxsis
Field->F1_PISIMP := _nPis
Field->F1_COFIMP := _nCofins
Field->F1_XDTREGD := _dDi
Field->F1_XLOCALD := _cLocDes
Field->F1_XUFDESE := _cUfDes
Field->F1_XDTDESE := _dDesemb
Field->F1_XFORNEC := _cFornec

MsUnLock("SF1")
EndIf

RestArea(_aSvArea)

RETURN(l_OK)



Ponto de entrada

#include "rwmake.ch"

User Function SF1100I()

Local l_Ret := .T.

/*
*

---

*
| Programa | SF1100I | Autor | Henrique | Data | 29/01/2013 |
|

---

+

---

|
|Desc. | Ponto de entrada para gravacao de dados adicionais na |
| | nota de entrada de importação |
+

---

+
*/

If ExistBlock("AEST001")
l_Ret:=U_AEST001(l_Ret)
EndIf

RETURN(l_Ret)

Primeiro quero agradecer o Henrique pela atenção.

Pessoal aí vão algumas informações de como procedi e no que errei nesse processo!!

O Fonte padrão era customizado porem esqueci de alterar esse trecho.

Quando utilizei os livros fiscais não aparecia a mensagem porque meu cliente não utilizava essa rotina e sim a customizada, então no cadastro de fornecedor tinha que colocar tipo = X, onde depois de alterado consegui colocar as informações da DI.

Atenciosamente!!!