;** Ft_ImpE ********************************************************************
;*  Exclusao do Grupo de Impostos Importacao do Item                           *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 21/03/2016 por Anivel Augusto Rodrigues
;Ultima Alteracao:   /  /     por  
;Motivo Alteracao: 

; Rotina Principal -------------------------------------------------------------

ietabtemp=table()
ieformok =false

If APLIC_ORIGEM="NOTA"
   Then
        if isformview()
           then moveto "notac"
                unlockrecord
                
                formkey
                lockrecord
   
                ieformok=true
        endif
    
        Moveto "NotaiAD"
				Moveto [Codigo da Empresa]
				Locate EMPRESA,NUMDOC,SERIE,SEQIT
				If RetVal
           Then While [Codigo da Empresa       ]=EMPRESA And
                      [Numero do Documento     ]=NUMDOC  And
                      [Serie do Documento      ]=SERIE   And
                      [Item do Documento       ]=SEQIT   
                      Del
                      If EOT() Then QuitLoop EndIf
                EndWhile
				EndIf
				
        Moveto "NotaiDD"
				Moveto [Codigo da Empresa]
				Locate EMPRESA,NUMDOC,SERIE,SEQIT
				If RetVal
           Then While [Codigo da Empresa       ]=EMPRESA And
                      [Numero do Documento     ]=NUMDOC  And
                      [Serie do Documento      ]=SERIE   And
                      [Item do Documento       ]=SEQIT   
                      Del
                      If EOT() Then QuitLoop EndIf
                EndWhile
				EndIf

        if ieformok
           then moveto "notac"
                unlockrecord
                
                formkey
                lockrecord
        endif
           
   Else 
        if isformview()
           then moveto "faturac"
                unlockrecord
                
                formkey
                lockrecord
   
                ieformok=true
        endif
    
        Moveto "FaturIAD"
        Moveto [Numero da OF]
        Locate ORDFAT,SEQIT
        If RetVal
           Then While [Numero da OF            ]=ORDFAT  And 
                      [Item da OF              ]=SEQIT    
                      Del
                      If EOT() Then QuitLoop EndIf
                EndWhile
        EndIf
        
        Moveto "FaturIDD"
        Moveto [Numero da OF]
        Locate ORDFAT,SEQIT
        If RetVal
           Then While [Numero da OF            ]=ORDFAT  And 
                      [Item da OF              ]=SEQIT    
                      Del
                      If EOT() Then QuitLoop EndIf
                EndWhile
        EndIf
        
        if ieformok
           then moveto "faturac"
                unlockrecord
                
                formkey
                lockrecord
        endif
           
EndIf
moveto ietabtemp

release vars ietabtemp, ieformok