Mes_Aux=0
View PrivDir()+"GR_0001"
CoEdit "SaldCont"
Scan For [Codigo da Conta]=VSDGCONTA
  If ([Ano Referencia]=ANOINI And [Mes Referencia]>=MESINI) Or
     ([Ano Referencia]=ANO    And [Mes Referencia]<=MES)
     Then Moveto PrivDir()+"GR_0001"
          End Down
          [Mes    ]=MESEXT(NumVal([SaldCont->Mes Referencia]))
          [Valor 1]=[SaldCont->Entradas]
          [Valor 2]=[SaldCont->Saidas  ]
          If Mes_Aux <> 0
             Then While True
                    If Mes_Aux = 12 Then Mes_Aux=0 EndIf
                    If NumVal([SaldCont->Mes Referencia]) <> Mes_Aux+1
                       Then Ins
                            [Mes    ]=mesext(NumVal(Mes_Aux+1))
                            [Valor 1]=0
                            [Valor 2]=0
                            Mes_Aux  =Mes_Aux+1
                            Down
                       Else Mes_Aux =NumVal([SaldCont->Mes Referencia])
                            QuitLoop
                    EndIf
                  EndWhile
             Else Mes_Aux=NumVal([SaldCont->Mes Referencia])
          EndIf
          Moveto "SaldCont"
	EndIf
EndScan
