AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"
debug
{View} {Pedidog} Window Handle Current to TabOrig
Window Resize GetWindow() To 8, 80
 
{View} {Pedidog} Window Handle Current to TabPesq 
Window Move GetWindow() To 10, 0 

CoEditKey

Window Select TabOrig   
Scan
  PEDIDO    =[Numero do Pedido]
  ITEMPEDIDO=[Item do Pedido  ]
  ITEM      =[Codigo do Item  ]

  Window Select TabPesq
  Moveto [Numero do Pedido]
  Home
  Locate PEDIDO
  If RetVal
     Then While [Numero do Pedido]=PEDIDO

            If [Codigo do Item]=ITEM And [Item do Pedido]<>ITEMPEDIDO
               Then QTD =[Quantidade         ]
                    QTDF=[Quantidade Faturada]
                    
                    Window Select TabOrig   
                    [Quantidade         ]=[Quantidade         ]+QTD 
                    [Quantidade Faturada]=[Quantidade Faturada]+QTDF
                    If [Quantidade]>0
                       Then [Preco Total]=[Quantidade]*([Preco Unitario]-[Valor Desconto Unitario])
                       Else If [Preco Unitario]>0
                               Then [Preco Total]=[Preco Unitario]-[Valor Desconto Unitario]
                            EndIf
                    EndIf
                    If [Aliquota Reduzida BCICMS]>0 And
                       [Aliquota de ICMS        ]>0
                       Then [Valor do ICMS]=Round((([Preco Total]-(([Preco Total]*[Aliquota Reduzida BCICMS])/100))*[Aliquota de ICMS])/100,2)
                       Else [Valor do ICMS]=Round(([Preco Total]*[Aliquota de ICMS])/100,2)
                    EndIf
                    If [Tributacao de IPI]<>"D"
                       Then If Not IsBlank([Tributacao de IPI])
                               Then [Aliquota de IPI]=BlankNum()
                                    [Valor do IPI   ]=BlankNum()
                            EndIf
                    EndIf
                    If [Aliquota de IPI        ]>0
                       Then [Valor do IPI]=Round(([Preco Total]*[Aliquota de IPI])/100,2)
                    EndIf
                    UnLockRecord

                    Window Select TabPesq
                    Del
            EndIf    
     
            Skip
            If EOT() Then QuitLoop EndIf     
          EndWhile
  EndIf
  
  Window Select TabOrig   
EndScan
Do_It!
ClearAll
