#include 'Protheus.ch'
/*/{Protheus.doc} MT103FIM
Ponto de Entrada executado após a geração da Nota Fiscal de Entrada.
	
@author Diego Martins
@since 04/12/2020
@version 1.0		

/*/
User Function MT103FIM()

Local aArea      := GetArea()
    dbSelectArea("SD1") // posiciona no item da nf
    dbSetorder(1)

If SF1->F1_EST == 'EX'  // Incluir somente para Notas de Fornecedores de Importação
// Incluir as informaçôes para Importação - Diego Martins - 04-12-2020
    If SD1->(DbSeek(SF1->F1_FILIAL+SF1->F1_DOC+SF1->F1_SERIE+SF1->F1_FORNECE+SF1->F1_LOJA))
        While !SD1->(Eof()) .And. ;
        SD1->D1_FILIAL  == SF1->F1_FILIAL  .And. ;
        SD1->D1_DOC     == SF1->F1_DOC     .And. ;
        SD1->D1_SERIE   == SF1->F1_SERIE   .And. ;
        SD1->D1_FORNECE == SF1->F1_FORNECE .And. ;
        SD1->D1_LOJA    == SF1->F1_LOJA 
     // Incluir o Registro na tabela CD5 - Complemento de Importação   
            DbSelectArea("CD5")
            RecLock("CD5",.T.)

            CD5->CD5_FILIAL    := SD1->D1_FILIAL
            CD5->CD5_DOC       := SD1->D1_DOC
            CD5->CD5_SERIE     := SD1->D1_SERIE 
            CD5->CD5_LOJA      := SD1->D1_LOJA 
            CD5->CD5_DOCIMP    := SD1->D1_ZZNDI
            CD5->CD5_TPIMP     := '0'
            CD5->CD5_LOCAL     := '0'
            CD5->CD5_NDI       := SD1->D1_ZZNDI
            CD5->CD5_DTDI      := SD1->D1_ZZDTDI
            CD5->CD5_LOCDES    := "AEROPORTOS BRASIL VIRACOPOS SA"
            CD5->CD5_UFDES     := 'SP'
            CD5->CD5_DTDES     := SD1->D1_EMISSAO
            CD5->CD5_CODEXP    := SD1->D1_FORNECE
            CD5->CD5_LOJEXP    := SD1->D1_LOJA
            CD5->CD5_NADIC     := "001"
            CD5->CD5_SQADIC    := "001"
            CD5->CD5_CODFAB    := SD1->D1_FORNECE            
            CD5->CD5_LOJFAB    := SD1->D1_LOJA
            CD5->CD5_INTERM    := '1'
            CD5->CD5_CNPJAE    := "13884068000122"
            CD5->CD5_UFTERC    := 'SP'
            CD5->CD5_ITEM      := SD1->D1_ITEM
            CD5->CD5_VTRANS    := '4'
            CD5->CD5_SDOC      := "001"  
            CD5->(MsUnlock ())
            
            SD1->(DBSkip()) 
        EndDo             
    Endif 

Endif
RestArea(aArea)
Return Nil