AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show,\\Sistemas\\Vendas\\Bib_Fat"

Coedit "NotaC"
NR=NRecords("Notac")
PickForm "1"

Switch 
  Case SYS_CODIGO_CLIENTE="0173": ; Ponto Con
      Scan For [Situacao]<>"C"

        Barra(NR, RecNo())
        Aguarde("Aguarde, Convertendo Cupom "+Completa(StrVal(Recno())+"/"+StrVal(NR),9," ")+BARRA_STRING)
      
        Moveto [Data de Emissao]
        If [Data de Emissao]<DateVal("01.07.2011")
           Then Loop
        EndIf   
      
        VRPIS   =0
        VRCOFINS=0
        
        Moveto "NotaI"
        If RecordStatus("New")=False
           Then Scan
              
                  BCPIS   =([Preco Total]-[Valor Desconto Total])+[Valor Frete Total]+[Valor Seguro Total]+[Valor OutDesp Total]
                  BCCOFINS=BCPIS
      
                  If SubStr([NotaC->Codigo do Documento],1,1)="X"
                     Then If IsBlank([CFO])
                             Then If [Tipo do Item]="S"
                                     Then [CFO]="5403"
                                     Else [CFO]="5102"
                                  EndIf
                          EndIf
                  EndIf                   
                  
                  If [CFO]="5102" Or [CFO]="5403" Or [CFO]="6102" Or [CFO]="6403"
                     Then [PIS_CST        ]="01"
                          [PIS_BC         ]=BCPIS
                          [PIS_Aliquota   ]=1.65
                          [PIS_Valor      ]=NDecimal(([PIS_BC         ]*[PIS_Aliquota   ])/100,2)
                
                          [COFINS_CST     ]="01"
                          [COFINS_BC      ]=BCCOFINS
                          [COFINS_Aliquota]=7.6
                          [COFINS_Valor   ]=NDecimal(([COFINS_BC      ]*[COFINS_Aliquota])/100,2)
                  
                     Else [PIS_CST        ]="06"
                          [PIS_BC         ]=BlankNum()
                          [PIS_Aliquota   ]=BlankNum()
                          [PIS_Valor      ]=BlankNum()
                
                          [COFINS_CST     ]="06"
                          [COFINS_BC      ]=BlankNum()
                          [COFINS_Aliquota]=BlankNum()
                          [COFINS_Valor   ]=BlankNum()
                  EndIf        
                  UnLockRecord
                  VRPIS   =VRPIS   +[PIS_Valor   ]
                  VRCOFINS=VRCOFINS+[COFINS_Valor]
                
                EndScan
        EndIf
          
        If VRPIS   =0 Then VRPIS   =BlankNum() EndIf
        If VRCOFINS=0 Then VRCOFINS=BlankNum() EndIf
        
        Moveto "NotaC"
        [Valor PIS   ]=VRPIS
        [Valor COFINS]=VRCOFINS
        UnLockRecord
      
      EndScan
  
  Case SYS_CODIGO_CLIENTE="0216": ; HF Tecidos  
      
      Scan For [Situacao]<>"C"
        
        Barra(NR, RecNo())
        Aguarde("Aguarde, Convertendo Cupom "+Completa(StrVal(Recno())+"/"+StrVal(NR),9," ")+BARRA_STRING)
        
        Moveto [Data de Emissao]
        If [Data de Emissao]<DateVal("01.01.2012")
           Then Loop
        EndIf   
      
        VRPIS   =0
        VRCOFINS=0
        
        Moveto "NotaI"
        If RecordStatus("New")=False
           Then Scan
              
                  BCPIS   =([Preco Total]-[Valor Desconto Total])+[Valor Frete Total]+[Valor Seguro Total]+[Valor OutDesp Total]
                  BCCOFINS=BCPIS
                
                  If [Tipo do Item]="T" 
                    Then If [CFO]="5102" Or [CFO]="6102" Or [CFO]="6108" Or [CFO]="1202" Or [CFO]="2202"
                           Then [PIS_CST        ]="01"
                                [PIS_BC         ]=BCPIS
                                [PIS_Aliquota   ]=0.65
                                [PIS_Valor      ]=NDecimal(([PIS_BC         ]*[PIS_Aliquota   ])/100,2)
                      
                                [COFINS_CST     ]="01"
                                [COFINS_BC      ]=BCCOFINS
                                [COFINS_Aliquota]=3.0
                                [COFINS_Valor   ]=NDecimal(([COFINS_BC      ]*[COFINS_Aliquota])/100,2)
                                UnLockRecord
                         EndIf       
                  EndIf        
              
                  VRPIS   =VRPIS   +[PIS_Valor   ]
                  VRCOFINS=VRCOFINS+[COFINS_Valor]
                
                EndScan
        EndIf
          
        If VRPIS   =0 Then VRPIS   =BlankNum() EndIf
        If VRCOFINS=0 Then VRCOFINS=BlankNum() EndIf
        
        Moveto "NotaC"
        [Valor PIS   ]=VRPIS
        [Valor COFINS]=VRCOFINS
        UnLockRecord
      
       EndScan
  
  Case SYS_CODIGO_CLIENTE="0370" :
      Scan For [Situacao]<>"C"
        Barra(NR, RecNo())
        Aguarde("Aguarde, ajustando dados  "+Completa(StrVal(Recno())+"/"+StrVal(NR),9," ")+BARRA_STRING)
        
        If [Data de Emissao]<DateVal("01.01.2020")
           Then Loop
        EndIf   
      
        VRPIS   =0
        VRCOFINS=0
                                             
        Moveto "NotaI"
        If RecordStatus("New")=False
           Then Scan
                  BCPIS    = ([Preco Total]-[Valor Desconto Total])+[Valor Frete Total]+[Valor Seguro Total]+[Valor OutDesp Total]
                  BCCOFINS = BCPIS
                
                  [PIS_CST        ] = "01"
                  [PIS_BC         ] = BCPIS
                  [PIS_Aliquota   ] = 1.65
                  [PIS_Valor      ] = NDecimal(([PIS_BC   ]*[PIS_Aliquota   ])/100,2)
                      
                  [COFINS_CST     ] = "01"
                  [COFINS_BC      ] = BCCOFINS
                  [COFINS_Aliquota] = 7.6
                  [COFINS_Valor   ] = NDecimal(([COFINS_BC]*[COFINS_Aliquota])/100,2)
                  UnLockRecord
                  
                  VRPIS    = VRPIS    + [PIS_Valor   ]
                  VRCOFINS = VRCOFINS + [COFINS_Valor]
                EndScan
        EndIf
          
        If VRPIS   =0 Then VRPIS   =BlankNum() EndIf
        If VRCOFINS=0 Then VRCOFINS=BlankNum() EndIf
        
        Moveto "NotaC"
        [Valor PIS   ]=VRPIS
        [Valor COFINS]=VRCOFINS
      EndScan
EndSwitch    
Do_It!
ClearAll

Mensagem("Opera‡Æo Finalizada!")