AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show,\\Sistemas\\Vendas\\Bib_Fat"
debug
Edit "NotaEC"
NR=NRecords("NotaEc")
PickForm "1"

Switch 
  Case SYS_CODIGO_CLIENTE="0173": ; Ponto Con
      Scan 

        Barra(NR, RecNo())
        Aguarde("Aguarde, Calculando "+Completa(StrVal(Recno())+"/"+StrVal(NR),9," ")+BARRA_STRING)
      
        Moveto [Data de Emissao]
        If [Data de Emissao]<DateVal("01.01.2012")
           Then Loop
        EndIf   
      
        Moveto "NotaEI"
                Scan
              
                  VSD_I_BC_PIS      = [Preco Total]
                  VSD_I_BC_PIS      = VSD_I_BC_PIS-Round(([Preco Total]*(([NotaEC->Valor Desconto]/[NotaEC->Valor Mercadoria])*100))/100,2)
                  VSD_I_BC_PIS      = VSD_I_BC_PIS+Round(([Preco Total]*((([NotaEC->Valor do Frete]+[NotaEC->Valor do Seguro]+
                                                                               [NotaEC->Valor Despesas Acessorias])/[NotaEC->Valor Mercadoria])*100))/100,2)
                  VSD_I_BC_PIS      = VSD_I_BC_PIS+[Valor do IPI]

                  VSD_I_BC_COFINS   = VSD_I_BC_PIS

                  If [PIS_Aliquota   ]>0
                     Then [PIS_BC         ]=VSD_I_BC_PIS   
                          [PIS_Valor      ]=NDecimal(([PIS_BC         ]*[PIS_Aliquota   ])/100,2)
                  EndIf   
                  If [COFINS_Aliquota]>0
                     Then [COFINS_BC      ]=VSD_I_BC_COFINS
                          [COFINS_Valor   ]=NDecimal(([COFINS_BC      ]*[COFINS_Aliquota])/100,2)
                  EndIf   
                  
                EndScan
          
        Moveto "NotaEC"

      EndScan
  
EndSwitch    
Do_It!
ClearAll

Mensagem("Opera‡Æo Finalizada!")
