;** FT_PEND  *******************************************************************
;*  Rotina de Controle de Pendencias                                           *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 30/11/2011 por Anivel Augusto Rodrigues
;Ultima Alteracao:   /  /     por 
;Motivo Alteracao: 


;*******************************************************************************
;*  Rotina de Controle de Pendencias                                           *
;*******************************************************************************
Proc Pendencias(Tipo)
Private Tipo,NUMEROL, NE_ENCONTRADA

;--- Estorna PendentC/PendentI -------------------------------------------------
Moveto "PendentC"

Switch
  Case Tipo="ECT": ; Estoque com Terceiros
    Moveto [Codigo da Empresa]
    Locate IndexOrder By "Pend_01" [FaturaC->Codigo da Empresa],CODFISC,NOTAFISC,SERIEFISC
EndSwitch
If RetVal
   Then NE_ENCONTRADA=True
   Else NE_ENCONTRADA=False
EndIf

If NE_ENCONTRADA
   Then NUMEROL=[Numero do Lancamento]

        Moveto "PendentI"
        Moveto [Numero do Lancamento]
        Locate NUMEROL
        If RetVal
           Then While [Numero do Lancamento]=NUMEROL
                  Del
                EndWhile
        EndIf
        Moveto "PendentC"
        Del
EndIf

;--- Cria PendentC -------------------------------------------------------------
Moveto "PendentC"
While True
 End
 If [Numero do Lancamento]=""
    Then NUMEROL=1
    Else NUMEROL=[Numero do Lancamento]+1
 EndIf
 Down
 [Numero do Lancamento     ]=NUMEROL
 If Not IsLockRecord()
    Then QuitLoop
 EndIf
EndWhile
[Codigo da Empresa        ]=[FaturaC->Codigo da Empresa        ]
[Nome Fantasia Empresa    ]=[FaturaC->Nome Fantasia Empresa    ]
[Codigo                   ]=[FaturaC->Codigo                   ]
[Razao Social             ]=[FaturaC->Razao Social             ]

[Tipo_Controle            ]=Tipo  
Switch
  Case Search("INDUST",[FaturaC->Descricao da Destinacao])>0: [Tipo_Operacao]="INDUSTRIALIZACAO"
EndSwitch

[Codigo do Documento      ]=CODFISC
[Numero do Documento      ]=NOTAFISC
[Serie do Documento       ]=SERIEFISC

[Data de Emissao          ]=[FaturaC->Data de Emissao          ]
[Codigo da Destinacao     ]=[FaturaC->Codigo da Destinacao     ]
[Descricao da Destinacao  ]=[FaturaC->Descricao da Destinacao  ]
[Situacao                 ]="EM ABERTO"
UnLockrecord

;--- Cria PendentC -------------------------------------------------------------
Moveto "FaturaI"
Moveto [Numero da OF]
Locate [FaturaC->Numero da OF]
While [Numero da OF]=[FaturaC->Numero da OF]

  Moveto "PendentI"
  End
  Down

  [Numero do Lancamento    ]=NUMEROL
  [Codigo do Item          ]=[FaturaI->Codigo do Item]
  [Quantidade              ]=[FaturaI->Quantidade    ]
  [Preco Unitario          ]=[FaturaI->Preco Unitario]
  
  UnLockrecord

  Moveto "FaturaI"
  Skip
  If EOT() Then QuitLoop EndIf
EndWhile

Moveto "FaturaC"

EndProc

;--- Rotina Principal ----------------------------------------------------------
Aguarde("Atualizando PENDENCIAS "+Opcaoc+" "+NOTAFISC)

{TableAdd} {PendentC}
{TableAdd} {PendentI}
Pendencias("ECT")
Do_It!
Moveto "PendentC" ClearImage
Moveto "PendentI" ClearImage

Moveto "FaturaC" CoEditKey

Release Procs Pendencia
